/*===========================================================================*/
/*   (Read/reader.scm)                                                       */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -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

	extern obj_t BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(obj_t, long, obj_t,
		obj_t, obj_t);
	static obj_t BGl_readzd2errorzf2locz20zz__readerz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza36335ze36813ze5zz__readerz00(obj_t,
		obj_t);
	static obj_t BGl_symbol6920z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62makezd2sourcezd2locationz62zz__readerz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol6922z00zz__readerz00 = BUNSPEC;
	extern obj_t BGl_listzd2ze3f64vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_symbol6924z00zz__readerz00 = BUNSPEC;
	extern bool_t BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00(void);
	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_z62getzd2sourcezd2locationz62zz__readerz00(obj_t, obj_t);
	static obj_t BGl_symbol6936z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6938z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6857z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__readerz00 = BUNSPEC;
	extern obj_t rgc_buffer_escape_substring(obj_t, long, long, bool_t);
	extern obj_t BGl_listzd2ze3s16vectorz31zz__srfi4z00(obj_t);
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	extern obj_t BGl_listzd2ze3u16vectorz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2sourcezd2locationz00zz__readerz00(obj_t,
		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_ignoreze70ze7zz__readerz00(obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza36335ze3ze5zz__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);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__readerz00(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_z62bigloozd2identifierzd2syntaxzd2setz12za2zz__readerz00(obj_t, obj_t);
	static obj_t BGl_symbol6871z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62readzf2casez90zz__readerz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl_z62bigloozd2identifierzd2syntaxz62zz__readerz00(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);
	static obj_t BGl_symbol6883z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6885z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6887z00zz__readerz00 = BUNSPEC;
	extern obj_t
		BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00(obj_t, long);
	static obj_t BGl_z62zc3z04anonymousza36324ze36811ze5zz__readerz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza36324ze36812ze5zz__readerz00(obj_t);
	extern obj_t BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(obj_t);
	extern obj_t utf8_string_to_ucs2_string(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);
	static obj_t BGl_symbol6891z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6893z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6895z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6897z00zz__readerz00 = BUNSPEC;
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__readerz00(void);
	static obj_t BGl_z62zc3z04anonymousza35883ze3ze5zz__readerz00(obj_t);
	static obj_t BGl_genericzd2initzd2zz__readerz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern long bgl_list_length(obj_t);
	static obj_t BGl_za2readerzd2extensionsza2zd2zz__readerz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_readerzd2resetz12zc0zz__readerz00(void);
	extern obj_t BGl_listzd2ze3s8vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__readerz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__readerz00(void);
	BGL_EXPORTED_DECL obj_t BGl_bigloozd2regularzd2grammarz00zz__readerz00(void);
	static obj_t BGl_z62readzd2casezd2sensitivez62zz__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);
	BGL_EXPORTED_DECL obj_t BGl_readzf2casezf2zz__readerz00(obj_t, obj_t);
	static obj_t BGl_z62ignorez62zz__readerz00(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_listzd2ze3u32vectorz31zz__srfi4z00(obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	extern obj_t BGl_bigloozd2casezd2sensitivez00zz__paramz00(void);
	extern obj_t BGl_stringzd2splitzd2zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DEF obj_t BGl_za2bigloozd2interpreterza2zd2zz__readerz00 =
		BUNSPEC;
	static obj_t BGl_readzd2quotezd2zz__readerz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_listzd2ze3s64vectorz31zz__srfi4z00(obj_t);
	extern obj_t BGl_listzd2ze3u64vectorz31zz__srfi4z00(obj_t);
	extern obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	extern double rgc_buffer_flonum(obj_t);
	extern obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_portzd2ze3listz31zz__readerz00(obj_t, obj_t);
	static obj_t BGl_z62definezd2readerzd2ctorz62zz__readerz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl__portzd2ze3sexpzd2listze3zz__readerz00(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);
	static obj_t BGl_thezd2substringze71z35zz__readerz00(obj_t, int, int);
	extern obj_t make_vector(long, obj_t);
	extern obj_t BGl_stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(obj_t,
		long);
	static obj_t BGl_za2sharpzd2grammarza2zd2zz__readerz00 = BUNSPEC;
	static obj_t BGl_vector6933z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_readzd2multizd2linezd2commentzd2zz__readerz00(obj_t);
	static obj_t BGl_z62readerzd2resetz12za2zz__readerz00(obj_t);
	extern obj_t rgc_buffer_symbol(obj_t);
	static obj_t BGl_z62setzd2readzd2syntaxz12z70zz__readerz00(obj_t, obj_t,
		obj_t);
	extern obj_t make_struct(obj_t, int, obj_t);
	static obj_t BGl_methodzd2initzd2zz__readerz00(void);
	BGL_EXPORTED_DECL obj_t BGl_readzd2casezd2insensitivez00zz__readerz00(obj_t);
	extern obj_t BGl_listzd2ze3tvectorz31zz__tvectorz00(obj_t, 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);
	static obj_t BGl_z62zc3z04anonymousza32709ze3ze5zz__readerz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned
		char);
	extern obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t);
	extern bool_t rgc_fill_buffer(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);
	BGL_EXPORTED_DECL obj_t BGl_bigloozd2casezd2sensitivityz00zz__readerz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_bigloozd2identifierzd2syntaxz00zz__readerz00(void);
	extern obj_t string_append(obj_t, obj_t);
	static obj_t BGl_z62bigloozd2casezd2sensitivityz62zz__readerz00(obj_t);
	static obj_t BGl_symbol6900z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6903z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6905z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_za2identifierzd2syntaxza2zd2zz__readerz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_readzd2casezd2sensitivez00zz__readerz00(obj_t);
	static obj_t BGl_symbol6908z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_za2dottedzd2markza2zd2zz__readerz00 = BUNSPEC;
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	BGL_EXPORTED_DECL obj_t
		BGl_bigloozd2identifierzd2syntaxzd2setz12zc0zz__readerz00(obj_t);
	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;
	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);
	static obj_t BGl_symbol6914z00zz__readerz00 = BUNSPEC;
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol6916z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6918z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza36324ze3ze5zz__readerz00(obj_t);
	extern long BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
	BGL_EXPORTED_DECL obj_t
		BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc6955z00zz__readerz00,
		BgL_bgl_za762za7c3za704anonymo6960za7,
		BGl_z62zc3z04anonymousza36335ze36813ze5zz__readerz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string6880z00zz__readerz00,
		BgL_bgl_string6880za700za7za7_6961za7, "u64", 3);
	      DEFINE_STRING(BGl_string6881z00zz__readerz00,
		BgL_bgl_string6881za700za7za7_6962za7, "f32", 3);
	      DEFINE_STRING(BGl_string6882z00zz__readerz00,
		BgL_bgl_string6882za700za7za7_6963za7, "f64", 3);
	      DEFINE_STRING(BGl_string6884z00zz__readerz00,
		BgL_bgl_string6884za700za7za7_6964za7, "upcase", 6);
	      DEFINE_STRING(BGl_string6886z00zz__readerz00,
		BgL_bgl_string6886za700za7za7_6965za7, "downcase", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2casezd2sensitivityzd2envzd2zz__readerz00,
		BgL_bgl_za762biglooza7d2case6966z00,
		BGl_z62bigloozd2casezd2sensitivityz62zz__readerz00, 0L, BUNSPEC, 0);
	      DEFINE_STRING(BGl_string6888z00zz__readerz00,
		BgL_bgl_string6888za700za7za7_6967za7, "sensitive", 9);
	      DEFINE_STRING(BGl_string6889z00zz__readerz00,
		BgL_bgl_string6889za700za7za7_6968za7, "'", 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2regularzd2grammarzd2envzd2zz__readerz00,
		BgL_bgl_za762biglooza7d2regu6969z00,
		BGl_z62bigloozd2regularzd2grammarz62zz__readerz00, 0L, BUNSPEC, 0);
	      DEFINE_STRING(BGl_string6890z00zz__readerz00,
		BgL_bgl_string6890za700za7za7_6970za7, "Superfluous closing parenthesis `",
		33);
	      DEFINE_STRING(BGl_string6892z00zz__readerz00,
		BgL_bgl_string6892za700za7za7_6971za7, "unquote-splicing", 16);
	      DEFINE_STRING(BGl_string6894z00zz__readerz00,
		BgL_bgl_string6894za700za7za7_6972za7, "unquote", 7);
	      DEFINE_STRING(BGl_string6896z00zz__readerz00,
		BgL_bgl_string6896za700za7za7_6973za7, "quasiquote", 10);
	      DEFINE_STRING(BGl_string6898z00zz__readerz00,
		BgL_bgl_string6898za700za7za7_6974za7, "quote", 5);
	      DEFINE_STRING(BGl_string6899z00zz__readerz00,
		BgL_bgl_string6899za700za7za7_6975za7, "", 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzf2casezd2envz20zz__readerz00,
		BgL_bgl_za762readza7f2caseza796976za7, va_generic_entry,
		BGl_z62readzf2casez90zz__readerz00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_portzd2ze3sexpzd2listzd2envz31zz__readerz00,
		BgL_bgl__portza7d2za7e3sexpza76977za7, opt_generic_entry,
		BGl__portzd2ze3sexpzd2listze3zz__readerz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_readerzd2resetz12zd2envz12zz__readerz00,
		BgL_bgl_za762readerza7d2rese6978z00,
		BGl_z62readerzd2resetz12za2zz__readerz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2identifierzd2syntaxzd2setz12zd2envz12zz__readerz00,
		BgL_bgl_za762biglooza7d2iden6979z00,
		BGl_z62bigloozd2identifierzd2syntaxzd2setz12za2zz__readerz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2casezd2insensitivezd2envzd2zz__readerz00,
		BgL_bgl_za762readza7d2caseza7d6980za7, va_generic_entry,
		BGl_z62readzd2casezd2insensitivez62zz__readerz00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_definezd2readerzd2ctorzd2envzd2zz__readerz00,
		BgL_bgl_za762defineza7d2read6981z00,
		BGl_z62definezd2readerzd2ctorz62zz__readerz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2sourcezd2locationzd2envzd2zz__readerz00,
		BgL_bgl_za762getza7d2sourceza76982za7,
		BGl_z62getzd2sourcezd2locationz62zz__readerz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_portzd2ze3listzd2envze3zz__readerz00,
		BgL_bgl_za762portza7d2za7e3lis6983za7,
		BGl_z62portzd2ze3listz53zz__readerz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2envzd2zz__readerz00,
		BgL_bgl__readza700za7za7__read6984za7, opt_generic_entry,
		BGl__readz00zz__readerz00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2sourcezd2locationzd2envzd2zz__readerz00,
		BgL_bgl_za762makeza7d2source6985z00,
		BGl_z62makezd2sourcezd2locationz62zz__readerz00, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string6901z00zz__readerz00,
		BgL_bgl_string6901za700za7za7_6986za7, "bigloo", 6);
	      DEFINE_STRING(BGl_string6902z00zz__readerz00,
		BgL_bgl_string6902za700za7za7_6987za7, ".", 1);
	      DEFINE_STRING(BGl_string6904z00zz__readerz00,
		BgL_bgl_string6904za700za7za7_6988za7, "->", 2);
	      DEFINE_STRING(BGl_string6906z00zz__readerz00,
		BgL_bgl_string6906za700za7za7_6989za7, "at", 2);
	      DEFINE_STRING(BGl_string6907z00zz__readerz00,
		BgL_bgl_string6907za700za7za7_6990za7, "Illegal token", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2casezd2sensitivityzd2setz12zd2envz12zz__readerz00,
		BgL_bgl_za762biglooza7d2case6991z00,
		BGl_z62bigloozd2casezd2sensitivityzd2setz12za2zz__readerz00, 0L, BUNSPEC,
		1);
	      DEFINE_STRING(BGl_string6909z00zz__readerz00,
		BgL_bgl_string6909za700za7za7_6992za7, "NEWLINE", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2readzd2syntaxz12zd2envzc0zz__readerz00,
		BgL_bgl_za762setza7d2readza7d26993za7,
		BGl_z62setzd2readzd2syntaxz12z70zz__readerz00, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string6911z00zz__readerz00,
		BgL_bgl_string6911za700za7za7_6994za7, "TAB", 3);
	      DEFINE_STRING(BGl_string6913z00zz__readerz00,
		BgL_bgl_string6913za700za7za7_6995za7, "SPACE", 5);
	      DEFINE_STRING(BGl_string6915z00zz__readerz00,
		BgL_bgl_string6915za700za7za7_6996za7, "RETURN", 6);
	      DEFINE_STRING(BGl_string6917z00zz__readerz00,
		BgL_bgl_string6917za700za7za7_6997za7, "NULL", 4);
	      DEFINE_STRING(BGl_string6919z00zz__readerz00,
		BgL_bgl_string6919za700za7za7_6998za7, "ALARM", 5);
	      DEFINE_STRING(BGl_string6921z00zz__readerz00,
		BgL_bgl_string6921za700za7za7_6999za7, "BACKSPACE", 9);
	      DEFINE_STRING(BGl_string6923z00zz__readerz00,
		BgL_bgl_string6923za700za7za7_7000za7, "DELETE", 6);
	      DEFINE_STRING(BGl_string6925z00zz__readerz00,
		BgL_bgl_string6925za700za7za7_7001za7, "ESCAPE", 6);
	      DEFINE_STRING(BGl_string6926z00zz__readerz00,
		BgL_bgl_string6926za700za7za7_7002za7, "Illegal character", 17);
	      DEFINE_STRING(BGl_string6927z00zz__readerz00,
		BgL_bgl_string6927za700za7za7_7003za7, "#!optional", 10);
	      DEFINE_STRING(BGl_string6928z00zz__readerz00,
		BgL_bgl_string6928za700za7za7_7004za7, "#!rest", 6);
	      DEFINE_STRING(BGl_string6929z00zz__readerz00,
		BgL_bgl_string6929za700za7za7_7005za7, "#!key", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2identifierzd2syntaxzd2envzd2zz__readerz00,
		BgL_bgl_za762biglooza7d2iden7006z00,
		BGl_z62bigloozd2identifierzd2syntaxz62zz__readerz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2casezd2sensitivezd2envzd2zz__readerz00,
		BgL_bgl_za762readza7d2caseza7d7007za7, va_generic_entry,
		BGl_z62readzd2casezd2sensitivez62zz__readerz00, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string6930z00zz__readerz00,
		BgL_bgl_string6930za700za7za7_7008za7, "regular-grammar", 15);
	      DEFINE_STRING(BGl_string6931z00zz__readerz00,
		BgL_bgl_string6931za700za7za7_7009za7, "Illegal match", 13);
	      DEFINE_STRING(BGl_string6932z00zz__readerz00,
		BgL_bgl_string6932za700za7za7_7010za7, "Illegal closed input port", 25);
	      DEFINE_STRING(BGl_string6934z00zz__readerz00,
		BgL_bgl_string6934za700za7za7_7011za7, "Unknown SRFI-10 extension", 25);
	      DEFINE_STRING(BGl_string6935z00zz__readerz00,
		BgL_bgl_string6935za700za7za7_7012za7, "Bad SRFI-10 form", 16);
	      DEFINE_STRING(BGl_string6937z00zz__readerz00,
		BgL_bgl_string6937za700za7za7_7013za7, "UNSPECIFIED", 11);
	      DEFINE_STRING(BGl_string6939z00zz__readerz00,
		BgL_bgl_string6939za700za7za7_7014za7, "EOF-OBJECT", 10);
	      DEFINE_STRING(BGl_string6858z00zz__readerz00,
		BgL_bgl_string6858za700za7za7_7015za7, "r5rs", 4);
	      DEFINE_STRING(BGl_string6940z00zz__readerz00,
		BgL_bgl_string6940za700za7za7_7016za7, "#", 1);
	      DEFINE_STRING(BGl_string6941z00zz__readerz00,
		BgL_bgl_string6941za700za7za7_7017za7, "Illegal identifier", 18);
	      DEFINE_STRING(BGl_string6860z00zz__readerz00,
		BgL_bgl_string6860za700za7za7_7018za7, "Illegal range `~a'", 18);
	      DEFINE_STRING(BGl_string6942z00zz__readerz00,
		BgL_bgl_string6942za700za7za7_7019za7,
		"/tmp/bigloo/runtime/Read/reader.scm", 35);
	      DEFINE_STRING(BGl_string6861z00zz__readerz00,
		BgL_bgl_string6861za700za7za7_7020za7, "the-escape-substring", 20);
	      DEFINE_STRING(BGl_string6943z00zz__readerz00,
		BgL_bgl_string6943za700za7za7_7021za7, "&bigloo-identifier-syntax-set!",
		30);
	      DEFINE_STRING(BGl_string6862z00zz__readerz00,
		BgL_bgl_string6862za700za7za7_7022za7, "the-substring", 13);
	      DEFINE_STRING(BGl_string6944z00zz__readerz00,
		BgL_bgl_string6944za700za7za7_7023za7, "symbol", 6);
	      DEFINE_STRING(BGl_string6863z00zz__readerz00,
		BgL_bgl_string6863za700za7za7_7024za7, "Unexpected end-of-file", 22);
	      DEFINE_STRING(BGl_string6945z00zz__readerz00,
		BgL_bgl_string6945za700za7za7_7025za7, "&bigloo-case-sensitivity-set!", 29);
	      DEFINE_STRING(BGl_string6864z00zz__readerz00,
		BgL_bgl_string6864za700za7za7_7026za7, "Unclosed list", 13);
	      DEFINE_STRING(BGl_string6946z00zz__readerz00,
		BgL_bgl_string6946za700za7za7_7027za7, "Illegal pair", 12);
	      DEFINE_STRING(BGl_string6865z00zz__readerz00,
		BgL_bgl_string6865za700za7za7_7028za7, "Unclosed vector or structure", 28);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc6859z00zz__readerz00,
		BgL_bgl_za762za7c3za704anonymo7029za7,
		BGl_z62zc3z04anonymousza32709ze3ze5zz__readerz00, 0L, BUNSPEC, 7);
	      DEFINE_STRING(BGl_string6947z00zz__readerz00,
		BgL_bgl_string6947za700za7za7_7030za7, "Illegal quotation", 17);
	      DEFINE_STRING(BGl_string6866z00zz__readerz00,
		BgL_bgl_string6866za700za7za7_7031za7, "Illegal char", 12);
	      DEFINE_STRING(BGl_string6948z00zz__readerz00,
		BgL_bgl_string6948za700za7za7_7032za7,
		"EOF inside block comment -- #| missing a closing |#", 51);
	      DEFINE_STRING(BGl_string6867z00zz__readerz00,
		BgL_bgl_string6867za700za7za7_7033za7, "no target for graph reference", 29);
	      DEFINE_STRING(BGl_string6949z00zz__readerz00,
		BgL_bgl_string6949za700za7za7_7034za7, "_read", 5);
	      DEFINE_STRING(BGl_string6868z00zz__readerz00,
		BgL_bgl_string6868za700za7za7_7035za7, "Illegal cyclic reference", 24);
	      DEFINE_STRING(BGl_string6869z00zz__readerz00,
		BgL_bgl_string6869za700za7za7_7036za7, "Illegal duplicate declaration", 29);
	      DEFINE_STRING(BGl_string6950z00zz__readerz00,
		BgL_bgl_string6950za700za7za7_7037za7, "vector", 6);
	      DEFINE_STRING(BGl_string6951z00zz__readerz00,
		BgL_bgl_string6951za700za7za7_7038za7, "procedure", 9);
	      DEFINE_STRING(BGl_string6870z00zz__readerz00,
		BgL_bgl_string6870za700za7za7_7039za7, "Superfluous closing bracket `", 29);
	      DEFINE_STRING(BGl_string6952z00zz__readerz00,
		BgL_bgl_string6952za700za7za7_7040za7, "input-port", 10);
	      DEFINE_STRING(BGl_string6953z00zz__readerz00,
		BgL_bgl_string6953za700za7za7_7041za7, "&port->list", 11);
	      DEFINE_STRING(BGl_string6872z00zz__readerz00,
		BgL_bgl_string6872za700za7za7_7042za7, "read", 4);
	      DEFINE_STRING(BGl_string6954z00zz__readerz00,
		BgL_bgl_string6954za700za7za7_7043za7, "_port->sexp-list", 16);
	      DEFINE_STRING(BGl_string6873z00zz__readerz00,
		BgL_bgl_string6873za700za7za7_7044za7, "s8", 2);
	      DEFINE_STRING(BGl_string6874z00zz__readerz00,
		BgL_bgl_string6874za700za7za7_7045za7, "u8", 2);
	      DEFINE_STRING(BGl_string6956z00zz__readerz00,
		BgL_bgl_string6956za700za7za7_7046za7, "&define-reader-ctor", 19);
	      DEFINE_STRING(BGl_string6875z00zz__readerz00,
		BgL_bgl_string6875za700za7za7_7047za7, "s16", 3);
	      DEFINE_STRING(BGl_string6957z00zz__readerz00,
		BgL_bgl_string6957za700za7za7_7048za7, "&set-read-syntax!", 17);
	      DEFINE_STRING(BGl_string6876z00zz__readerz00,
		BgL_bgl_string6876za700za7za7_7049za7, "u16", 3);
	      DEFINE_STRING(BGl_string6958z00zz__readerz00,
		BgL_bgl_string6958za700za7za7_7050za7, "bchar", 5);
	      DEFINE_STRING(BGl_string6877z00zz__readerz00,
		BgL_bgl_string6877za700za7za7_7051za7, "s32", 3);
	      DEFINE_STRING(BGl_string6959z00zz__readerz00,
		BgL_bgl_string6959za700za7za7_7052za7, "__reader", 8);
	      DEFINE_STRING(BGl_string6878z00zz__readerz00,
		BgL_bgl_string6878za700za7za7_7053za7, "u32", 3);
	      DEFINE_STRING(BGl_string6879z00zz__readerz00,
		BgL_bgl_string6879za700za7za7_7054za7, "s64", 3);

/* 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_symbol6920z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6922z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6924z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6936z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6938z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6857z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6871z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6883z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6885z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6887z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6891z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6893z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6895z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6897z00zz__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_vector6933z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_za2bigloozd2grammarza2zd2zz__readerz00));
		     ADD_ROOT((void *) (&BGl_za2readerzd2ctorsza2zd2zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6900z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6903z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6905z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_za2identifierzd2syntaxza2zd2zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6908z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_za2dottedzd2markza2zd2zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6910z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6912z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6914z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6916z00zz__readerz00));
		     ADD_ROOT((void *) (&BGl_symbol6918z00zz__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_19086, char *BgL_fromz00_19087)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__readerz00))
				{
					BGl_requirezd2initializa7ationz75zz__readerz00 = BBOOL(((bool_t) 0));
					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_symbol6857z00zz__readerz00 =
				bstring_to_symbol(BGl_string6858z00zz__readerz00);
			BGl_symbol6871z00zz__readerz00 =
				bstring_to_symbol(BGl_string6872z00zz__readerz00);
			BGl_symbol6883z00zz__readerz00 =
				bstring_to_symbol(BGl_string6884z00zz__readerz00);
			BGl_symbol6885z00zz__readerz00 =
				bstring_to_symbol(BGl_string6886z00zz__readerz00);
			BGl_symbol6887z00zz__readerz00 =
				bstring_to_symbol(BGl_string6888z00zz__readerz00);
			BGl_symbol6891z00zz__readerz00 =
				bstring_to_symbol(BGl_string6892z00zz__readerz00);
			BGl_symbol6893z00zz__readerz00 =
				bstring_to_symbol(BGl_string6894z00zz__readerz00);
			BGl_symbol6895z00zz__readerz00 =
				bstring_to_symbol(BGl_string6896z00zz__readerz00);
			BGl_symbol6897z00zz__readerz00 =
				bstring_to_symbol(BGl_string6898z00zz__readerz00);
			BGl_symbol6900z00zz__readerz00 =
				bstring_to_symbol(BGl_string6901z00zz__readerz00);
			BGl_symbol6903z00zz__readerz00 =
				bstring_to_symbol(BGl_string6904z00zz__readerz00);
			BGl_symbol6905z00zz__readerz00 =
				bstring_to_symbol(BGl_string6906z00zz__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_symbol6914z00zz__readerz00 =
				bstring_to_symbol(BGl_string6915z00zz__readerz00);
			BGl_symbol6916z00zz__readerz00 =
				bstring_to_symbol(BGl_string6917z00zz__readerz00);
			BGl_symbol6918z00zz__readerz00 =
				bstring_to_symbol(BGl_string6919z00zz__readerz00);
			BGl_symbol6920z00zz__readerz00 =
				bstring_to_symbol(BGl_string6921z00zz__readerz00);
			BGl_symbol6922z00zz__readerz00 =
				bstring_to_symbol(BGl_string6923z00zz__readerz00);
			BGl_symbol6924z00zz__readerz00 =
				bstring_to_symbol(BGl_string6925z00zz__readerz00);
			BGl_vector6933z00zz__readerz00 =
				BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL);
			BGl_symbol6936z00zz__readerz00 =
				bstring_to_symbol(BGl_string6937z00zz__readerz00);
			return (BGl_symbol6938z00zz__readerz00 =
				bstring_to_symbol(BGl_string6939z00zz__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_symbol6857z00zz__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 332 */
				obj_t BgL_zc3z04anonymousza31517ze3z87_18072;

				{
					int BgL_tmpz00_19126;

					BgL_tmpz00_19126 = (int) (0L);
					BgL_zc3z04anonymousza31517ze3z87_18072 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_19126);
				}
				BGl_za2sharpzd2grammarza2zd2zz__readerz00 =
					BgL_zc3z04anonymousza31517ze3z87_18072;
			}
			BGl_za2bigloozd2grammarza2zd2zz__readerz00 = BGl_proc6859z00zz__readerz00;
			BGl_za2readerzd2ctorsza2zd2zz__readerz00 = BNIL;
			return (BGl_za2readerzd2extensionsza2zd2zz__readerz00 = BNIL, BUNSPEC);
		}

	}



/* &<@anonymous:2709> */
	obj_t BGl_z62zc3z04anonymousza32709ze3ze5zz__readerz00(obj_t BgL_envz00_18073,
		obj_t BgL_iportz00_18074, obj_t BgL_pospz00_18075,
		obj_t BgL_cyclesz00_18076, obj_t BgL_parzd2openzd2_18077,
		obj_t BgL_brazd2openzd2_18078, obj_t BgL_parzd2poseszd2_18079,
		obj_t BgL_brazd2poseszd2_18080)
	{
		{	/* Read/reader.scm 441 */
			{	/* Read/reader.scm 441 */
				obj_t BgL_cyclesz00_18226;
				obj_t BgL_parzd2openzd2_18227;
				obj_t BgL_brazd2openzd2_18228;
				obj_t BgL_parzd2poseszd2_18229;
				obj_t BgL_brazd2poseszd2_18230;

				BgL_cyclesz00_18226 = BgL_cyclesz00_18076;
				BgL_parzd2openzd2_18227 = BgL_parzd2openzd2_18077;
				BgL_brazd2openzd2_18228 = BgL_brazd2openzd2_18078;
				BgL_parzd2poseszd2_18229 = BgL_parzd2poseszd2_18079;
				BgL_brazd2poseszd2_18230 = BgL_brazd2poseszd2_18080;
				{	/* Read/reader.scm 441 */
					obj_t BgL_brazd2poseszd2_18231;
					obj_t BgL_parzd2poseszd2_18232;
					obj_t BgL_brazd2openzd2_18233;
					obj_t BgL_parzd2openzd2_18234;
					obj_t BgL_cyclesz00_18235;

					BgL_brazd2poseszd2_18231 = MAKE_CELL(BgL_brazd2poseszd2_18230);
					BgL_parzd2poseszd2_18232 = MAKE_CELL(BgL_parzd2poseszd2_18229);
					BgL_brazd2openzd2_18233 = MAKE_CELL(BgL_brazd2openzd2_18228);
					BgL_parzd2openzd2_18234 = MAKE_CELL(BgL_parzd2openzd2_18227);
					BgL_cyclesz00_18235 = MAKE_CELL(BgL_cyclesz00_18226);
					{	/* Read/reader.scm 441 */
						obj_t BgL_resolvez00_18236;

						BgL_resolvez00_18236 = MAKE_CELL(BTRUE);
						{	/* Read/reader.scm 441 */
							obj_t BgL_ignorez00_18237;

							{	/* Read/reader.scm 441 */
								int BgL_tmpz00_19129;

								BgL_tmpz00_19129 = (int) (8L);
								BgL_ignorez00_18237 = MAKE_EL_PROCEDURE(BgL_tmpz00_19129);
							}
							PROCEDURE_EL_SET(BgL_ignorez00_18237,
								(int) (0L), BgL_iportz00_18074);
							PROCEDURE_EL_SET(BgL_ignorez00_18237,
								(int) (1L), ((obj_t) BgL_parzd2poseszd2_18232));
							PROCEDURE_EL_SET(BgL_ignorez00_18237,
								(int) (2L), ((obj_t) BgL_brazd2openzd2_18233));
							PROCEDURE_EL_SET(BgL_ignorez00_18237,
								(int) (3L), ((obj_t) BgL_parzd2openzd2_18234));
							PROCEDURE_EL_SET(BgL_ignorez00_18237,
								(int) (4L), ((obj_t) BgL_cyclesz00_18235));
							PROCEDURE_EL_SET(BgL_ignorez00_18237,
								(int) (5L), ((obj_t) BgL_resolvez00_18236));
							PROCEDURE_EL_SET(BgL_ignorez00_18237,
								(int) (6L), ((obj_t) BgL_brazd2poseszd2_18231));
							PROCEDURE_EL_SET(BgL_ignorez00_18237,
								(int) (7L), BgL_pospz00_18075);
							return BGl_z62ignorez62zz__readerz00(BgL_ignorez00_18237);
						}
					}
				}
			}
		}

	}



/* &ignore */
	obj_t BGl_z62ignorez62zz__readerz00(obj_t BgL_envz00_18088)
	{
		{	/* Read/reader.scm 441 */
			return
				BGl_ignoreze70ze7zz__readerz00(BgL_envz00_18088,
				PROCEDURE_EL_REF(BgL_envz00_18088,
					(int) (7L)),
				PROCEDURE_EL_REF(BgL_envz00_18088,
					(int) (6L)),
				PROCEDURE_EL_REF(BgL_envz00_18088,
					(int) (5L)),
				PROCEDURE_EL_REF(BgL_envz00_18088,
					(int) (4L)),
				PROCEDURE_EL_REF(BgL_envz00_18088,
					(int) (3L)),
				PROCEDURE_EL_REF(BgL_envz00_18088,
					(int) (2L)),
				PROCEDURE_EL_REF(BgL_envz00_18088,
					(int) (1L)), PROCEDURE_EL_REF(BgL_envz00_18088, (int) (0L)));
		}

	}



/* the-escape-substring~1 */
	obj_t BGl_thezd2escapezd2substringze71ze7zz__readerz00(obj_t
		BgL_iportz00_18174, int BgL_minz00_9625, int BgL_maxz00_9626,
		bool_t BgL_strictz00_9627)
	{
		{	/* Read/reader.scm 441 */
			if (((long) (BgL_maxz00_9626) < 0L))
				{	/* Read/reader.scm 441 */
					long BgL_arg5804z00_9630;

					{	/* Read/reader.scm 441 */
						obj_t BgL_tmpz00_19175;

						BgL_tmpz00_19175 = ((obj_t) BgL_iportz00_18174);
						BgL_arg5804z00_9630 = RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_19175);
					}
					{	/* Read/reader.scm 441 */
						long BgL_za72za7_16647;

						BgL_za72za7_16647 = (long) (BgL_maxz00_9626);
						BgL_maxz00_9626 = (int) ((BgL_arg5804z00_9630 + BgL_za72za7_16647));
				}}
			else
				{	/* Read/reader.scm 441 */
					BFALSE;
				}
			{	/* Read/reader.scm 441 */
				bool_t BgL_test7057z00_19181;

				if (((long) (BgL_minz00_9625) >= 0L))
					{	/* Read/reader.scm 441 */
						if (((long) (BgL_maxz00_9626) >= (long) (BgL_minz00_9625)))
							{	/* Read/reader.scm 441 */
								long BgL_arg5813z00_9641;

								{	/* Read/reader.scm 441 */
									obj_t BgL_tmpz00_19189;

									BgL_tmpz00_19189 = ((obj_t) BgL_iportz00_18174);
									BgL_arg5813z00_9641 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_19189);
								}
								BgL_test7057z00_19181 =
									((long) (BgL_maxz00_9626) <= BgL_arg5813z00_9641);
							}
						else
							{	/* Read/reader.scm 441 */
								BgL_test7057z00_19181 = ((bool_t) 0);
							}
					}
				else
					{	/* Read/reader.scm 441 */
						BgL_test7057z00_19181 = ((bool_t) 0);
					}
				if (BgL_test7057z00_19181)
					{	/* Read/reader.scm 441 */
						long BgL_startz00_16655;
						long BgL_stopz00_16656;

						BgL_startz00_16655 = (long) (BgL_minz00_9625);
						BgL_stopz00_16656 = (long) (BgL_maxz00_9626);
						return
							rgc_buffer_escape_substring(
							((obj_t) BgL_iportz00_18174), BgL_startz00_16655,
							BgL_stopz00_16656, BgL_strictz00_9627);
					}
				else
					{	/* Read/reader.scm 441 */
						obj_t BgL_arg5809z00_9635;
						obj_t BgL_arg5810z00_9636;

						{	/* Read/reader.scm 441 */
							obj_t BgL_arg5811z00_9637;

							{	/* Read/reader.scm 441 */
								long BgL_arg5789z00_16658;

								{	/* Read/reader.scm 441 */
									obj_t BgL_tmpz00_19198;

									BgL_tmpz00_19198 = ((obj_t) BgL_iportz00_18174);
									BgL_arg5789z00_16658 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_19198);
								}
								BgL_arg5811z00_9637 =
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_18174), 0L, BgL_arg5789z00_16658);
							}
							{	/* Read/reader.scm 441 */
								obj_t BgL_list5812z00_9638;

								BgL_list5812z00_9638 =
									MAKE_YOUNG_PAIR(BgL_arg5811z00_9637, BNIL);
								BgL_arg5809z00_9635 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string6860z00zz__readerz00, BgL_list5812z00_9638);
						}}
						BgL_arg5810z00_9636 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_9625), BINT(BgL_maxz00_9626));
						return
							BGl_errorz00zz__errorz00(BGl_string6861z00zz__readerz00,
							BgL_arg5809z00_9635, BgL_arg5810z00_9636);
					}
			}
		}

	}



/* the-substring~1 */
	obj_t BGl_thezd2substringze71z35zz__readerz00(obj_t BgL_iportz00_18175,
		int BgL_minz00_9609, int BgL_maxz00_9610)
	{
		{	/* Read/reader.scm 441 */
			if (((long) (BgL_maxz00_9610) < (long) (BgL_minz00_9609)))
				{	/* Read/reader.scm 441 */
					long BgL_arg5792z00_9613;

					{	/* Read/reader.scm 441 */
						obj_t BgL_tmpz00_19213;

						BgL_tmpz00_19213 = ((obj_t) BgL_iportz00_18175);
						BgL_arg5792z00_9613 = RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_19213);
					}
					{	/* Read/reader.scm 441 */
						long BgL_za72za7_16630;

						BgL_za72za7_16630 = (long) (BgL_maxz00_9610);
						BgL_maxz00_9610 = (int) ((BgL_arg5792z00_9613 + BgL_za72za7_16630));
				}}
			else
				{	/* Read/reader.scm 441 */
					BFALSE;
				}
			{	/* Read/reader.scm 441 */
				bool_t BgL_test7061z00_19219;

				if (((long) (BgL_minz00_9609) >= 0L))
					{	/* Read/reader.scm 441 */
						if (((long) (BgL_maxz00_9610) >= (long) (BgL_minz00_9609)))
							{	/* Read/reader.scm 441 */
								long BgL_arg5801z00_9624;

								{	/* Read/reader.scm 441 */
									obj_t BgL_tmpz00_19227;

									BgL_tmpz00_19227 = ((obj_t) BgL_iportz00_18175);
									BgL_arg5801z00_9624 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_19227);
								}
								BgL_test7061z00_19219 =
									((long) (BgL_maxz00_9610) <= BgL_arg5801z00_9624);
							}
						else
							{	/* Read/reader.scm 441 */
								BgL_test7061z00_19219 = ((bool_t) 0);
							}
					}
				else
					{	/* Read/reader.scm 441 */
						BgL_test7061z00_19219 = ((bool_t) 0);
					}
				if (BgL_test7061z00_19219)
					{	/* Read/reader.scm 441 */
						long BgL_startz00_16638;
						long BgL_stopz00_16639;

						BgL_startz00_16638 = (long) (BgL_minz00_9609);
						BgL_stopz00_16639 = (long) (BgL_maxz00_9610);
						return
							rgc_buffer_substring(
							((obj_t) BgL_iportz00_18175), BgL_startz00_16638,
							BgL_stopz00_16639);
					}
				else
					{	/* Read/reader.scm 441 */
						obj_t BgL_arg5797z00_9618;
						obj_t BgL_arg5798z00_9619;

						{	/* Read/reader.scm 441 */
							obj_t BgL_arg5799z00_9620;

							{	/* Read/reader.scm 441 */
								long BgL_arg5789z00_16640;

								{	/* Read/reader.scm 441 */
									obj_t BgL_tmpz00_19236;

									BgL_tmpz00_19236 = ((obj_t) BgL_iportz00_18175);
									BgL_arg5789z00_16640 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_19236);
								}
								BgL_arg5799z00_9620 =
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_18175), 0L, BgL_arg5789z00_16640);
							}
							{	/* Read/reader.scm 441 */
								obj_t BgL_list5800z00_9621;

								BgL_list5800z00_9621 =
									MAKE_YOUNG_PAIR(BgL_arg5799z00_9620, BNIL);
								BgL_arg5797z00_9618 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string6860z00zz__readerz00, BgL_list5800z00_9621);
						}}
						BgL_arg5798z00_9619 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_9609), BINT(BgL_maxz00_9610));
						return
							BGl_errorz00zz__errorz00(BGl_string6862z00zz__readerz00,
							BgL_arg5797z00_9618, BgL_arg5798z00_9619);
					}
			}
		}

	}



/* ignore~0 */
	obj_t BGl_ignoreze70ze7zz__readerz00(obj_t BgL_envz00_18184,
		obj_t BgL_pospz00_18183, obj_t BgL_brazd2poseszd2_18182,
		obj_t BgL_resolvez00_18181, obj_t BgL_cyclesz00_18180,
		obj_t BgL_parzd2openzd2_18179, obj_t BgL_brazd2openzd2_18178,
		obj_t BgL_parzd2poseszd2_18177, obj_t BgL_iportz00_18176)
	{
		{	/* Read/reader.scm 441 */
		BGl_ignoreze70ze7zz__readerz00:
			{
				obj_t BgL_iportz00_8991;
				long BgL_lastzd2matchzd2_8992;
				long BgL_forwardz00_8993;
				long BgL_bufposz00_8994;
				obj_t BgL_iportz00_8978;
				long BgL_lastzd2matchzd2_8979;
				long BgL_forwardz00_8980;
				long BgL_bufposz00_8981;
				obj_t BgL_iportz00_4388;
				long BgL_lastzd2matchzd2_4389;
				long BgL_forwardz00_4390;
				long BgL_bufposz00_4391;
				obj_t BgL_iportz00_5742;
				long BgL_lastzd2matchzd2_5743;
				long BgL_forwardz00_5744;
				long BgL_bufposz00_5745;
				obj_t BgL_iportz00_5693;
				long BgL_lastzd2matchzd2_5694;
				long BgL_forwardz00_5695;
				long BgL_bufposz00_5696;
				obj_t BgL_iportz00_7857;
				long BgL_lastzd2matchzd2_7858;
				long BgL_forwardz00_7859;
				long BgL_bufposz00_7860;
				obj_t BgL_iportz00_5500;
				long BgL_lastzd2matchzd2_5501;
				long BgL_forwardz00_5502;
				long BgL_bufposz00_5503;
				obj_t BgL_iportz00_4406;
				long BgL_lastzd2matchzd2_4407;
				long BgL_forwardz00_4408;
				long BgL_bufposz00_4409;
				obj_t BgL_iportz00_8866;
				long BgL_lastzd2matchzd2_8867;
				long BgL_forwardz00_8868;
				long BgL_bufposz00_8869;
				obj_t BgL_iportz00_7804;
				long BgL_lastzd2matchzd2_7805;
				long BgL_forwardz00_7806;
				long BgL_bufposz00_7807;
				obj_t BgL_iportz00_5051;
				long BgL_lastzd2matchzd2_5052;
				long BgL_forwardz00_5053;
				long BgL_bufposz00_5054;
				obj_t BgL_iportz00_8642;
				long BgL_lastzd2matchzd2_8643;
				long BgL_forwardz00_8644;
				long BgL_bufposz00_8645;
				obj_t BgL_iportz00_4724;
				long BgL_lastzd2matchzd2_4725;
				long BgL_forwardz00_4726;
				long BgL_bufposz00_4727;
				obj_t BgL_iportz00_4704;
				long BgL_lastzd2matchzd2_4705;
				long BgL_forwardz00_4706;
				long BgL_bufposz00_4707;
				obj_t BgL_iportz00_8954;
				long BgL_lastzd2matchzd2_8955;
				long BgL_forwardz00_8956;
				long BgL_bufposz00_8957;
				obj_t BgL_iportz00_9203;
				long BgL_lastzd2matchzd2_9204;
				long BgL_forwardz00_9205;
				long BgL_bufposz00_9206;
				obj_t BgL_iportz00_6219;
				long BgL_lastzd2matchzd2_6220;
				long BgL_forwardz00_6221;
				long BgL_bufposz00_6222;
				obj_t BgL_iportz00_6943;
				long BgL_lastzd2matchzd2_6944;
				long BgL_forwardz00_6945;
				long BgL_bufposz00_6946;
				obj_t BgL_iportz00_5022;
				long BgL_lastzd2matchzd2_5023;
				long BgL_forwardz00_5024;
				long BgL_bufposz00_5025;
				obj_t BgL_iportz00_4877;
				long BgL_lastzd2matchzd2_4878;
				long BgL_forwardz00_4879;
				long BgL_bufposz00_4880;
				obj_t BgL_iportz00_4917;
				long BgL_lastzd2matchzd2_4918;
				long BgL_forwardz00_4919;
				long BgL_bufposz00_4920;
				obj_t BgL_iportz00_8936;
				long BgL_lastzd2matchzd2_8937;
				long BgL_forwardz00_8938;
				long BgL_bufposz00_8939;
				obj_t BgL_iportz00_8343;
				long BgL_lastzd2matchzd2_8344;
				long BgL_forwardz00_8345;
				long BgL_bufposz00_8346;
				obj_t BgL_iportz00_8384;
				long BgL_lastzd2matchzd2_8385;
				long BgL_forwardz00_8386;
				long BgL_bufposz00_8387;
				obj_t BgL_iportz00_4742;
				long BgL_lastzd2matchzd2_4743;
				long BgL_forwardz00_4744;
				long BgL_bufposz00_4745;
				obj_t BgL_iportz00_6618;
				long BgL_lastzd2matchzd2_6619;
				long BgL_forwardz00_6620;
				long BgL_bufposz00_6621;
				obj_t BgL_iportz00_6750;
				long BgL_lastzd2matchzd2_6751;
				long BgL_forwardz00_6752;
				long BgL_bufposz00_6753;
				obj_t BgL_iportz00_8120;
				long BgL_lastzd2matchzd2_8121;
				long BgL_forwardz00_8122;
				long BgL_bufposz00_8123;
				obj_t BgL_iportz00_5241;
				long BgL_lastzd2matchzd2_5242;
				long BgL_forwardz00_5243;
				long BgL_bufposz00_5244;
				obj_t BgL_iportz00_6817;
				long BgL_lastzd2matchzd2_6818;
				long BgL_forwardz00_6819;
				long BgL_bufposz00_6820;
				obj_t BgL_iportz00_6683;
				long BgL_lastzd2matchzd2_6684;
				long BgL_forwardz00_6685;
				long BgL_bufposz00_6686;
				obj_t BgL_iportz00_8181;
				long BgL_lastzd2matchzd2_8182;
				long BgL_forwardz00_8183;
				long BgL_bufposz00_8184;
				obj_t BgL_iportz00_5306;
				long BgL_lastzd2matchzd2_5307;
				long BgL_forwardz00_5308;
				long BgL_bufposz00_5309;
				obj_t BgL_iportz00_8278;
				long BgL_lastzd2matchzd2_8279;
				long BgL_forwardz00_8280;
				long BgL_bufposz00_8281;
				obj_t BgL_iportz00_8054;
				long BgL_lastzd2matchzd2_8055;
				long BgL_forwardz00_8056;
				long BgL_bufposz00_8057;
				obj_t BgL_iportz00_6541;
				long BgL_lastzd2matchzd2_6542;
				long BgL_forwardz00_6543;
				long BgL_bufposz00_6544;
				obj_t BgL_iportz00_9473;
				long BgL_lastzd2matchzd2_9474;
				long BgL_forwardz00_9475;
				long BgL_bufposz00_9476;
				obj_t BgL_iportz00_6882;
				long BgL_lastzd2matchzd2_6883;
				long BgL_forwardz00_6884;
				long BgL_bufposz00_6885;
				obj_t BgL_iportz00_4564;
				long BgL_lastzd2matchzd2_4565;
				long BgL_forwardz00_4566;
				long BgL_bufposz00_4567;
				obj_t BgL_iportz00_7402;
				long BgL_lastzd2matchzd2_7403;
				long BgL_forwardz00_7404;
				long BgL_bufposz00_7405;
				obj_t BgL_iportz00_6146;
				long BgL_lastzd2matchzd2_6147;
				long BgL_forwardz00_6148;
				long BgL_bufposz00_6149;
				obj_t BgL_iportz00_5892;
				long BgL_lastzd2matchzd2_5893;
				long BgL_forwardz00_5894;
				long BgL_bufposz00_5895;
				obj_t BgL_iportz00_4812;
				long BgL_lastzd2matchzd2_4813;
				long BgL_forwardz00_4814;
				long BgL_bufposz00_4815;
				obj_t BgL_iportz00_7734;
				long BgL_lastzd2matchzd2_7735;
				long BgL_forwardz00_7736;
				long BgL_bufposz00_7737;
				obj_t BgL_iportz00_7475;
				long BgL_lastzd2matchzd2_7476;
				long BgL_forwardz00_7477;
				long BgL_bufposz00_7478;
				obj_t BgL_iportz00_6971;
				long BgL_lastzd2matchzd2_6972;
				long BgL_forwardz00_6973;
				long BgL_bufposz00_6974;
				obj_t BgL_iportz00_4006;
				long BgL_lastzd2matchzd2_4007;
				long BgL_forwardz00_4008;
				long BgL_bufposz00_4009;
				obj_t BgL_iportz00_9223;
				long BgL_lastzd2matchzd2_9224;
				long BgL_forwardz00_9225;
				long BgL_bufposz00_9226;
				obj_t BgL_iportz00_7111;
				long BgL_lastzd2matchzd2_7112;
				long BgL_forwardz00_7113;
				long BgL_bufposz00_7114;
				obj_t BgL_iportz00_5628;
				long BgL_lastzd2matchzd2_5629;
				long BgL_forwardz00_5630;
				long BgL_bufposz00_5631;
				obj_t BgL_iportz00_8540;
				long BgL_lastzd2matchzd2_8541;
				long BgL_forwardz00_8542;
				long BgL_bufposz00_8543;
				obj_t BgL_iportz00_8805;
				long BgL_lastzd2matchzd2_8806;
				long BgL_forwardz00_8807;
				long BgL_bufposz00_8808;
				obj_t BgL_iportz00_4327;
				long BgL_lastzd2matchzd2_4328;
				long BgL_forwardz00_4329;
				long BgL_bufposz00_4330;
				obj_t BgL_iportz00_7180;
				long BgL_lastzd2matchzd2_7181;
				long BgL_forwardz00_7182;
				long BgL_bufposz00_7183;
				obj_t BgL_iportz00_6453;
				long BgL_lastzd2matchzd2_6454;
				long BgL_forwardz00_6455;
				long BgL_bufposz00_6456;
				obj_t BgL_iportz00_4256;
				long BgL_lastzd2matchzd2_4257;
				long BgL_forwardz00_4258;
				long BgL_bufposz00_4259;
				obj_t BgL_iportz00_8744;
				long BgL_lastzd2matchzd2_8745;
				long BgL_forwardz00_8746;
				long BgL_bufposz00_8747;
				obj_t BgL_iportz00_4079;
				long BgL_lastzd2matchzd2_4080;
				long BgL_forwardz00_4081;
				long BgL_bufposz00_4082;
				obj_t BgL_iportz00_7591;
				long BgL_lastzd2matchzd2_7592;
				long BgL_forwardz00_7593;
				long BgL_bufposz00_7594;
				obj_t BgL_iportz00_8683;
				long BgL_lastzd2matchzd2_8684;
				long BgL_forwardz00_8685;
				long BgL_bufposz00_8686;
				obj_t BgL_iportz00_4195;
				long BgL_lastzd2matchzd2_4196;
				long BgL_forwardz00_4197;
				long BgL_bufposz00_4198;
				obj_t BgL_iportz00_5427;
				long BgL_lastzd2matchzd2_5428;
				long BgL_forwardz00_5429;
				long BgL_bufposz00_5430;
				obj_t BgL_iportz00_6327;
				long BgL_lastzd2matchzd2_6328;
				long BgL_forwardz00_6329;
				long BgL_bufposz00_6330;
				obj_t BgL_iportz00_5101;
				long BgL_lastzd2matchzd2_5102;
				long BgL_forwardz00_5103;
				long BgL_bufposz00_5104;
				obj_t BgL_iportz00_9540;
				long BgL_lastzd2matchzd2_9541;
				long BgL_forwardz00_9542;
				long BgL_bufposz00_9543;
				obj_t BgL_iportz00_7302;
				long BgL_lastzd2matchzd2_7303;
				long BgL_forwardz00_7304;
				long BgL_bufposz00_7305;
				obj_t BgL_iportz00_3941;
				long BgL_lastzd2matchzd2_3942;
				long BgL_forwardz00_3943;
				long BgL_bufposz00_3944;
				obj_t BgL_iportz00_4961;
				long BgL_lastzd2matchzd2_4962;
				long BgL_forwardz00_4963;
				long BgL_bufposz00_4964;
				obj_t BgL_iportz00_7042;
				long BgL_lastzd2matchzd2_7043;
				long BgL_forwardz00_7044;
				long BgL_bufposz00_7045;
				obj_t BgL_iportz00_9075;
				long BgL_lastzd2matchzd2_9076;
				long BgL_forwardz00_9077;
				long BgL_bufposz00_9078;
				obj_t BgL_iportz00_6392;
				long BgL_lastzd2matchzd2_6393;
				long BgL_forwardz00_6394;
				long BgL_bufposz00_6395;
				obj_t BgL_iportz00_5558;
				long BgL_lastzd2matchzd2_5559;
				long BgL_forwardz00_5560;
				long BgL_bufposz00_5561;
				obj_t BgL_iportz00_7241;
				long BgL_lastzd2matchzd2_7242;
				long BgL_forwardz00_7243;
				long BgL_bufposz00_7244;
				obj_t BgL_iportz00_7989;
				long BgL_lastzd2matchzd2_7990;
				long BgL_forwardz00_7991;
				long BgL_bufposz00_7992;
				obj_t BgL_iportz00_9142;
				long BgL_lastzd2matchzd2_9143;
				long BgL_forwardz00_9144;
				long BgL_bufposz00_9145;
				obj_t BgL_iportz00_5835;
				long BgL_lastzd2matchzd2_5836;
				long BgL_forwardz00_5837;
				long BgL_bufposz00_5838;
				obj_t BgL_iportz00_6034;
				long BgL_lastzd2matchzd2_6035;
				long BgL_forwardz00_6036;
				long BgL_bufposz00_6037;
				obj_t BgL_iportz00_5371;
				long BgL_lastzd2matchzd2_5372;
				long BgL_forwardz00_5373;
				long BgL_bufposz00_5374;
				obj_t BgL_iportz00_5792;
				long BgL_lastzd2matchzd2_5793;
				long BgL_forwardz00_5794;
				long BgL_bufposz00_5795;
				obj_t BgL_iportz00_3853;
				long BgL_lastzd2matchzd2_3854;
				long BgL_forwardz00_3855;
				long BgL_bufposz00_3856;
				obj_t BgL_iportz00_7548;
				long BgL_lastzd2matchzd2_7549;
				long BgL_forwardz00_7550;
				long BgL_bufposz00_7551;
				obj_t BgL_iportz00_6262;
				long BgL_lastzd2matchzd2_6263;
				long BgL_forwardz00_6264;
				long BgL_bufposz00_6265;
				obj_t BgL_iportz00_9288;
				long BgL_lastzd2matchzd2_9289;
				long BgL_forwardz00_9290;
				long BgL_bufposz00_9291;
				obj_t BgL_iportz00_7363;
				long BgL_lastzd2matchzd2_7364;
				long BgL_forwardz00_7365;
				long BgL_bufposz00_7366;
				obj_t BgL_iportz00_4760;
				long BgL_lastzd2matchzd2_4761;
				long BgL_forwardz00_4762;
				long BgL_bufposz00_4763;
				obj_t BgL_iportz00_8475;
				long BgL_lastzd2matchzd2_8476;
				long BgL_forwardz00_8477;
				long BgL_bufposz00_8478;
				obj_t BgL_iportz00_9344;
				long BgL_lastzd2matchzd2_9345;
				long BgL_forwardz00_9346;
				long BgL_bufposz00_9347;
				obj_t BgL_iportz00_9014;
				long BgL_lastzd2matchzd2_9015;
				long BgL_forwardz00_9016;
				long BgL_bufposz00_9017;
				obj_t BgL_iportz00_6103;
				long BgL_lastzd2matchzd2_6104;
				long BgL_forwardz00_6105;
				long BgL_bufposz00_6106;
				obj_t BgL_iportz00_5969;
				long BgL_lastzd2matchzd2_5970;
				long BgL_forwardz00_5971;
				long BgL_bufposz00_5972;
				obj_t BgL_iportz00_8462;
				long BgL_lastzd2matchzd2_8463;
				long BgL_forwardz00_8464;
				long BgL_bufposz00_8465;
				obj_t BgL_iportz00_7910;
				long BgL_lastzd2matchzd2_7911;
				long BgL_forwardz00_7912;
				long BgL_bufposz00_7913;
				obj_t BgL_iportz00_6522;
				long BgL_lastzd2matchzd2_6523;
				long BgL_forwardz00_6524;
				long BgL_bufposz00_6525;
				obj_t BgL_iportz00_7654;
				long BgL_lastzd2matchzd2_7655;
				long BgL_forwardz00_7656;
				long BgL_bufposz00_7657;
				obj_t BgL_iportz00_4136;
				long BgL_lastzd2matchzd2_4137;
				long BgL_forwardz00_4138;
				long BgL_bufposz00_4139;
				obj_t BgL_iportz00_5162;
				long BgL_lastzd2matchzd2_5163;
				long BgL_forwardz00_5164;
				long BgL_bufposz00_5165;
				obj_t BgL_iportz00_7928;
				long BgL_lastzd2matchzd2_7929;
				long BgL_forwardz00_7930;
				long BgL_bufposz00_7931;
				obj_t BgL_iportz00_4635;
				long BgL_lastzd2matchzd2_4636;
				long BgL_forwardz00_4637;
				long BgL_bufposz00_4638;
				obj_t BgL_iportz00_8449;
				long BgL_lastzd2matchzd2_8450;
				long BgL_forwardz00_8451;
				long BgL_bufposz00_8452;
				obj_t BgL_iportz00_9400;
				long BgL_lastzd2matchzd2_9401;
				long BgL_forwardz00_9402;
				long BgL_bufposz00_9403;
				obj_t BgL_iportz00_4476;
				long BgL_lastzd2matchzd2_4477;
				long BgL_forwardz00_4478;
				long BgL_bufposz00_4479;
				obj_t BgL_iportz00_3916;
				long BgL_lastzd2matchzd2_3917;
				long BgL_forwardz00_3918;
				long BgL_bufposz00_3919;
				obj_t BgL_iportz00_7673;
				long BgL_lastzd2matchzd2_7674;
				long BgL_forwardz00_7675;
				long BgL_bufposz00_7676;
				obj_t BgL_iportz00_8265;
				long BgL_lastzd2matchzd2_8266;
				long BgL_forwardz00_8267;
				long BgL_bufposz00_8268;
				obj_t BgL_iportz00_8242;
				long BgL_lastzd2matchzd2_8243;
				long BgL_forwardz00_8244;
				long BgL_bufposz00_8245;
				obj_t BgL_iportz00_8605;
				long BgL_lastzd2matchzd2_8606;
				long BgL_forwardz00_8607;
				long BgL_bufposz00_8608;

				{	/* Read/reader.scm 441 */
					obj_t BgL_tmpz00_19247;

					BgL_tmpz00_19247 = ((obj_t) BgL_iportz00_18176);
					RGC_START_MATCH(BgL_tmpz00_19247);
				}
				{	/* Read/reader.scm 441 */
					long BgL_matchz00_9716;

					{	/* Read/reader.scm 441 */
						long BgL_arg6057z00_9946;
						long BgL_arg6058z00_9947;

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

							BgL_tmpz00_19250 = ((obj_t) BgL_iportz00_18176);
							BgL_arg6057z00_9946 = RGC_BUFFER_FORWARD(BgL_tmpz00_19250);
						}
						{	/* Read/reader.scm 441 */
							obj_t BgL_tmpz00_19253;

							BgL_tmpz00_19253 = ((obj_t) BgL_iportz00_18176);
							BgL_arg6058z00_9947 = RGC_BUFFER_BUFPOS(BgL_tmpz00_19253);
						}
						BgL_iportz00_8605 = BgL_iportz00_18176;
						BgL_lastzd2matchzd2_8606 = 38L;
						BgL_forwardz00_8607 = BgL_arg6057z00_9946;
						BgL_bufposz00_8608 = BgL_arg6058z00_9947;
					BgL_zc3z04anonymousza35269ze3z87_8609:
						if ((BgL_forwardz00_8607 == BgL_bufposz00_8608))
							{	/* Read/reader.scm 441 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_8605)))
									{	/* Read/reader.scm 441 */
										long BgL_arg5272z00_8612;
										long BgL_arg5273z00_8613;

										{	/* Read/reader.scm 441 */
											obj_t BgL_tmpz00_19261;

											BgL_tmpz00_19261 = ((obj_t) BgL_iportz00_8605);
											BgL_arg5272z00_8612 =
												RGC_BUFFER_FORWARD(BgL_tmpz00_19261);
										}
										{	/* Read/reader.scm 441 */
											obj_t BgL_tmpz00_19264;

											BgL_tmpz00_19264 = ((obj_t) BgL_iportz00_8605);
											BgL_arg5273z00_8613 = RGC_BUFFER_BUFPOS(BgL_tmpz00_19264);
										}
										{
											long BgL_bufposz00_19268;
											long BgL_forwardz00_19267;

											BgL_forwardz00_19267 = BgL_arg5272z00_8612;
											BgL_bufposz00_19268 = BgL_arg5273z00_8613;
											BgL_bufposz00_8608 = BgL_bufposz00_19268;
											BgL_forwardz00_8607 = BgL_forwardz00_19267;
											goto BgL_zc3z04anonymousza35269ze3z87_8609;
										}
									}
								else
									{	/* Read/reader.scm 441 */
										BgL_matchz00_9716 = BgL_lastzd2matchzd2_8606;
									}
							}
						else
							{	/* Read/reader.scm 441 */
								int BgL_curz00_8614;

								{	/* Read/reader.scm 441 */
									obj_t BgL_tmpz00_19269;

									BgL_tmpz00_19269 = ((obj_t) BgL_iportz00_8605);
									BgL_curz00_8614 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_19269, BgL_forwardz00_8607);
								}
								{	/* Read/reader.scm 441 */

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

											{	/* Read/reader.scm 441 */
												long BgL_arg5274z00_8617;

												BgL_arg5274z00_8617 = (1L + BgL_forwardz00_8607);
												{	/* Read/reader.scm 441 */
													long BgL_newzd2matchzd2_16000;

													{	/* Read/reader.scm 441 */
														obj_t BgL_tmpz00_19273;

														BgL_tmpz00_19273 = ((obj_t) BgL_iportz00_8605);
														RGC_STOP_MATCH(BgL_tmpz00_19273,
															BgL_arg5274z00_8617);
													}
													BgL_newzd2matchzd2_16000 = 34L;
													BgL_matchz00_9716 = BgL_newzd2matchzd2_16000;
											}} break;
										case 124L:

											BgL_iportz00_6522 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_6523 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_6524 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_6525 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza34209ze3z87_6526:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_6527;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_19276;

													BgL_tmpz00_19276 = ((obj_t) BgL_iportz00_6522);
													RGC_STOP_MATCH(BgL_tmpz00_19276, BgL_forwardz00_6524);
												}
												BgL_newzd2matchzd2_6527 = 38L;
												if ((BgL_forwardz00_6524 == BgL_bufposz00_6525))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_6522)))
															{	/* Read/reader.scm 441 */
																long BgL_arg4212z00_6530;
																long BgL_arg4213z00_6531;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_19284;

																	BgL_tmpz00_19284 =
																		((obj_t) BgL_iportz00_6522);
																	BgL_arg4212z00_6530 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_19284);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_19287;

																	BgL_tmpz00_19287 =
																		((obj_t) BgL_iportz00_6522);
																	BgL_arg4213z00_6531 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_19287);
																}
																{
																	long BgL_bufposz00_19291;
																	long BgL_forwardz00_19290;

																	BgL_forwardz00_19290 = BgL_arg4212z00_6530;
																	BgL_bufposz00_19291 = BgL_arg4213z00_6531;
																	BgL_bufposz00_6525 = BgL_bufposz00_19291;
																	BgL_forwardz00_6524 = BgL_forwardz00_19290;
																	goto BgL_zc3z04anonymousza34209ze3z87_6526;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_6527;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_6532;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_19292;

															BgL_tmpz00_19292 = ((obj_t) BgL_iportz00_6522);
															BgL_curz00_6532 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_19292,
																BgL_forwardz00_6524);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_6532) == 124L))
																{	/* Read/reader.scm 441 */
																	long BgL_arg4215z00_6534;

																	BgL_arg4215z00_6534 =
																		(1L + BgL_forwardz00_6524);
																	{	/* Read/reader.scm 441 */
																		long BgL_newzd2matchzd2_14691;

																		{	/* Read/reader.scm 441 */
																			obj_t BgL_tmpz00_19299;

																			BgL_tmpz00_19299 =
																				((obj_t) BgL_iportz00_6522);
																			RGC_STOP_MATCH(BgL_tmpz00_19299,
																				BgL_arg4215z00_6534);
																		}
																		BgL_newzd2matchzd2_14691 = 23L;
																		BgL_matchz00_9716 =
																			BgL_newzd2matchzd2_14691;
																}}
															else
																{	/* Read/reader.scm 441 */
																	if (((long) (BgL_curz00_6532) == 92L))
																		{	/* Read/reader.scm 441 */
																			long BgL_arg4217z00_6536;

																			BgL_arg4217z00_6536 =
																				(1L + BgL_forwardz00_6524);
																			{
																				long BgL_forwardz00_14697;
																				long BgL_bufposz00_14698;

																				BgL_forwardz00_14697 =
																					BgL_arg4217z00_6536;
																				BgL_bufposz00_14698 =
																					BgL_bufposz00_6525;
																			BgL_statezd222zd21212z00_14696:
																				if (
																					(BgL_forwardz00_14697 ==
																						BgL_bufposz00_14698))
																					{	/* Read/reader.scm 441 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_6522)))
																							{	/* Read/reader.scm 441 */
																								long BgL_arg3689z00_14701;
																								long BgL_arg3691z00_14702;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_19311;

																									BgL_tmpz00_19311 =
																										((obj_t) BgL_iportz00_6522);
																									BgL_arg3689z00_14701 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_19311);
																								}
																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_19314;

																									BgL_tmpz00_19314 =
																										((obj_t) BgL_iportz00_6522);
																									BgL_arg3691z00_14702 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_19314);
																								}
																								{
																									long BgL_bufposz00_19318;
																									long BgL_forwardz00_19317;

																									BgL_forwardz00_19317 =
																										BgL_arg3689z00_14701;
																									BgL_bufposz00_19318 =
																										BgL_arg3691z00_14702;
																									BgL_bufposz00_14698 =
																										BgL_bufposz00_19318;
																									BgL_forwardz00_14697 =
																										BgL_forwardz00_19317;
																									goto
																										BgL_statezd222zd21212z00_14696;
																								}
																							}
																						else
																							{	/* Read/reader.scm 441 */
																								BgL_matchz00_9716 =
																									BgL_newzd2matchzd2_6527;
																							}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						int BgL_curz00_14703;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_19319;

																							BgL_tmpz00_19319 =
																								((obj_t) BgL_iportz00_6522);
																							BgL_curz00_14703 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_19319,
																								BgL_forwardz00_14697);
																						}
																						{	/* Read/reader.scm 441 */

																							if (
																								((long) (BgL_curz00_14703) ==
																									10L))
																								{	/* Read/reader.scm 441 */
																									BgL_matchz00_9716 =
																										BgL_newzd2matchzd2_6527;
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									BgL_iportz00_7910 =
																										BgL_iportz00_6522;
																									BgL_lastzd2matchzd2_7911 =
																										BgL_newzd2matchzd2_6527;
																									BgL_forwardz00_7912 =
																										(1L + BgL_forwardz00_14697);
																									BgL_bufposz00_7913 =
																										BgL_bufposz00_14698;
																								BgL_zc3z04anonymousza34919ze3z87_7914:
																									if (
																										(BgL_forwardz00_7912 ==
																											BgL_bufposz00_7913))
																										{	/* Read/reader.scm 441 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_7910)))
																												{	/* Read/reader.scm 441 */
																													long
																														BgL_arg4922z00_7917;
																													long
																														BgL_arg4923z00_7918;
																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_19330;
																														BgL_tmpz00_19330 =
																															((obj_t)
																															BgL_iportz00_7910);
																														BgL_arg4922z00_7917
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_19330);
																													}
																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_19333;
																														BgL_tmpz00_19333 =
																															((obj_t)
																															BgL_iportz00_7910);
																														BgL_arg4923z00_7918
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_19333);
																													}
																													{
																														long
																															BgL_bufposz00_19337;
																														long
																															BgL_forwardz00_19336;
																														BgL_forwardz00_19336
																															=
																															BgL_arg4922z00_7917;
																														BgL_bufposz00_19337
																															=
																															BgL_arg4923z00_7918;
																														BgL_bufposz00_7913 =
																															BgL_bufposz00_19337;
																														BgL_forwardz00_7912
																															=
																															BgL_forwardz00_19336;
																														goto
																															BgL_zc3z04anonymousza34919ze3z87_7914;
																													}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_matchz00_9716 =
																														BgL_lastzd2matchzd2_7911;
																												}
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											int BgL_curz00_7919;

																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_19338;

																												BgL_tmpz00_19338 =
																													((obj_t)
																													BgL_iportz00_7910);
																												BgL_curz00_7919 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_19338,
																													BgL_forwardz00_7912);
																											}
																											{	/* Read/reader.scm 441 */

																												if (
																													((long)
																														(BgL_curz00_7919) ==
																														124L))
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_arg4925z00_7921;
																														BgL_arg4925z00_7921
																															=
																															(1L +
																															BgL_forwardz00_7912);
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_newzd2matchzd2_15554;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_19345;
																																BgL_tmpz00_19345
																																	=
																																	((obj_t)
																																	BgL_iportz00_7910);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_19345,
																																	BgL_arg4925z00_7921);
																															}
																															BgL_newzd2matchzd2_15554
																																= 23L;
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_15554;
																													}}
																												else
																													{	/* Read/reader.scm 441 */
																														if (
																															((long)
																																(BgL_curz00_7919)
																																== 92L))
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_arg4927z00_7923;
																																BgL_arg4927z00_7923
																																	=
																																	(1L +
																																	BgL_forwardz00_7912);
																																{
																																	long
																																		BgL_forwardz00_15560;
																																	long
																																		BgL_bufposz00_15561;
																																	BgL_forwardz00_15560
																																		=
																																		BgL_arg4927z00_7923;
																																	BgL_bufposz00_15561
																																		=
																																		BgL_bufposz00_7913;
																																BgL_statezd222zd21212z00_15559:
																																	if (
																																		(BgL_forwardz00_15560
																																			==
																																			BgL_bufposz00_15561))
																																		{	/* Read/reader.scm 441 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_7910)))
																																				{	/* Read/reader.scm 441 */
																																					long
																																						BgL_arg3689z00_15564;
																																					long
																																						BgL_arg3691z00_15565;
																																					{	/* Read/reader.scm 441 */
																																						obj_t
																																							BgL_tmpz00_19357;
																																						BgL_tmpz00_19357
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_7910);
																																						BgL_arg3689z00_15564
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_19357);
																																					}
																																					{	/* Read/reader.scm 441 */
																																						obj_t
																																							BgL_tmpz00_19360;
																																						BgL_tmpz00_19360
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_7910);
																																						BgL_arg3691z00_15565
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_19360);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_19364;
																																						long
																																							BgL_forwardz00_19363;
																																						BgL_forwardz00_19363
																																							=
																																							BgL_arg3689z00_15564;
																																						BgL_bufposz00_19364
																																							=
																																							BgL_arg3691z00_15565;
																																						BgL_bufposz00_15561
																																							=
																																							BgL_bufposz00_19364;
																																						BgL_forwardz00_15560
																																							=
																																							BgL_forwardz00_19363;
																																						goto
																																							BgL_statezd222zd21212z00_15559;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_lastzd2matchzd2_7911;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			int
																																				BgL_curz00_15566;
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_19365;
																																				BgL_tmpz00_19365
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_7910);
																																				BgL_curz00_15566
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_19365,
																																					BgL_forwardz00_15560);
																																			}
																																			{	/* Read/reader.scm 441 */

																																				if (
																																					((long) (BgL_curz00_15566) == 10L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_matchz00_9716
																																							=
																																							BgL_lastzd2matchzd2_7911;
																																					}
																																				else
																																					{
																																						long
																																							BgL_bufposz00_19373;
																																						long
																																							BgL_forwardz00_19371;
																																						BgL_forwardz00_19371
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_15560);
																																						BgL_bufposz00_19373
																																							=
																																							BgL_bufposz00_15561;
																																						BgL_bufposz00_7913
																																							=
																																							BgL_bufposz00_19373;
																																						BgL_forwardz00_7912
																																							=
																																							BgL_forwardz00_19371;
																																						goto
																																							BgL_zc3z04anonymousza34919ze3z87_7914;
																																					}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																bool_t
																																	BgL_test7080z00_19374;
																																if (((long)
																																		(BgL_curz00_7919)
																																		== 92L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test7080z00_19374
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		BgL_test7080z00_19374
																																			=
																																			((long)
																																			(BgL_curz00_7919)
																																			== 124L);
																																	}
																																if (BgL_test7080z00_19374)
																																	{	/* Read/reader.scm 441 */
																																		BgL_matchz00_9716
																																			=
																																			BgL_lastzd2matchzd2_7911;
																																	}
																																else
																																	{
																																		long
																																			BgL_forwardz00_19380;
																																		BgL_forwardz00_19380
																																			=
																																			(1L +
																																			BgL_forwardz00_7912);
																																		BgL_forwardz00_7912
																																			=
																																			BgL_forwardz00_19380;
																																		goto
																																			BgL_zc3z04anonymousza34919ze3z87_7914;
																																	}
																															}
																													}
																											}
																										}
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 441 */
																			bool_t BgL_test7082z00_19383;

																			if (((long) (BgL_curz00_6532) == 92L))
																				{	/* Read/reader.scm 441 */
																					BgL_test7082z00_19383 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					BgL_test7082z00_19383 =
																						((long) (BgL_curz00_6532) == 124L);
																				}
																			if (BgL_test7082z00_19383)
																				{	/* Read/reader.scm 441 */
																					BgL_matchz00_9716 =
																						BgL_newzd2matchzd2_6527;
																				}
																			else
																				{
																					long BgL_bufposz00_19393;
																					long BgL_forwardz00_19391;
																					long BgL_lastzd2matchzd2_19390;
																					obj_t BgL_iportz00_19389;

																					BgL_iportz00_19389 =
																						BgL_iportz00_6522;
																					BgL_lastzd2matchzd2_19390 =
																						BgL_newzd2matchzd2_6527;
																					BgL_forwardz00_19391 =
																						(1L + BgL_forwardz00_6524);
																					BgL_bufposz00_19393 =
																						BgL_bufposz00_6525;
																					BgL_bufposz00_7913 =
																						BgL_bufposz00_19393;
																					BgL_forwardz00_7912 =
																						BgL_forwardz00_19391;
																					BgL_lastzd2matchzd2_7911 =
																						BgL_lastzd2matchzd2_19390;
																					BgL_iportz00_7910 =
																						BgL_iportz00_19389;
																					goto
																						BgL_zc3z04anonymousza34919ze3z87_7914;
																				}
																		}
																}
														}
													}
											}
											break;
										case 96L:

											{	/* Read/reader.scm 441 */
												long BgL_arg5276z00_8619;

												BgL_arg5276z00_8619 = (1L + BgL_forwardz00_8607);
												{	/* Read/reader.scm 441 */
													long BgL_newzd2matchzd2_16005;

													{	/* Read/reader.scm 441 */
														obj_t BgL_tmpz00_19396;

														BgL_tmpz00_19396 = ((obj_t) BgL_iportz00_8605);
														RGC_STOP_MATCH(BgL_tmpz00_19396,
															BgL_arg5276z00_8619);
													}
													BgL_newzd2matchzd2_16005 = 25L;
													BgL_matchz00_9716 = BgL_newzd2matchzd2_16005;
											}} break;
										case 59L:

											BgL_iportz00_7654 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_7655 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_7656 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_7657 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza34793ze3z87_7658:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_7659;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_19399;

													BgL_tmpz00_19399 = ((obj_t) BgL_iportz00_7654);
													RGC_STOP_MATCH(BgL_tmpz00_19399, BgL_forwardz00_7656);
												}
												BgL_newzd2matchzd2_7659 = 2L;
												if ((BgL_forwardz00_7656 == BgL_bufposz00_7657))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_7654)))
															{	/* Read/reader.scm 441 */
																long BgL_arg4796z00_7662;
																long BgL_arg4797z00_7663;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_19407;

																	BgL_tmpz00_19407 =
																		((obj_t) BgL_iportz00_7654);
																	BgL_arg4796z00_7662 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_19407);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_19410;

																	BgL_tmpz00_19410 =
																		((obj_t) BgL_iportz00_7654);
																	BgL_arg4797z00_7663 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_19410);
																}
																{
																	long BgL_bufposz00_19414;
																	long BgL_forwardz00_19413;

																	BgL_forwardz00_19413 = BgL_arg4796z00_7662;
																	BgL_bufposz00_19414 = BgL_arg4797z00_7663;
																	BgL_bufposz00_7657 = BgL_bufposz00_19414;
																	BgL_forwardz00_7656 = BgL_forwardz00_19413;
																	goto BgL_zc3z04anonymousza34793ze3z87_7658;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_7659;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_7664;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_19415;

															BgL_tmpz00_19415 = ((obj_t) BgL_iportz00_7654);
															BgL_curz00_7664 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_19415,
																BgL_forwardz00_7656);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_7664) == 10L))
																{	/* Read/reader.scm 441 */
																	BgL_matchz00_9716 = BgL_newzd2matchzd2_7659;
																}
															else
																{	/* Read/reader.scm 441 */
																	BgL_iportz00_8462 = BgL_iportz00_7654;
																	BgL_lastzd2matchzd2_8463 =
																		BgL_newzd2matchzd2_7659;
																	BgL_forwardz00_8464 =
																		(1L + BgL_forwardz00_7656);
																	BgL_bufposz00_8465 = BgL_bufposz00_7657;
																BgL_zc3z04anonymousza35195ze3z87_8466:
																	{	/* Read/reader.scm 441 */
																		long BgL_newzd2matchzd2_8467;

																		{	/* Read/reader.scm 441 */
																			obj_t BgL_tmpz00_19421;

																			BgL_tmpz00_19421 =
																				((obj_t) BgL_iportz00_8462);
																			RGC_STOP_MATCH(BgL_tmpz00_19421,
																				BgL_forwardz00_8464);
																		}
																		BgL_newzd2matchzd2_8467 = 2L;
																		if (
																			(BgL_forwardz00_8464 ==
																				BgL_bufposz00_8465))
																			{	/* Read/reader.scm 441 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_8462)))
																					{	/* Read/reader.scm 441 */
																						long BgL_arg5198z00_8470;
																						long BgL_arg5199z00_8471;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_19429;

																							BgL_tmpz00_19429 =
																								((obj_t) BgL_iportz00_8462);
																							BgL_arg5198z00_8470 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_19429);
																						}
																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_19432;

																							BgL_tmpz00_19432 =
																								((obj_t) BgL_iportz00_8462);
																							BgL_arg5199z00_8471 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_19432);
																						}
																						{
																							long BgL_bufposz00_19436;
																							long BgL_forwardz00_19435;

																							BgL_forwardz00_19435 =
																								BgL_arg5198z00_8470;
																							BgL_bufposz00_19436 =
																								BgL_arg5199z00_8471;
																							BgL_bufposz00_8465 =
																								BgL_bufposz00_19436;
																							BgL_forwardz00_8464 =
																								BgL_forwardz00_19435;
																							goto
																								BgL_zc3z04anonymousza35195ze3z87_8466;
																						}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						BgL_matchz00_9716 =
																							BgL_newzd2matchzd2_8467;
																					}
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				int BgL_curz00_8472;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_19437;

																					BgL_tmpz00_19437 =
																						((obj_t) BgL_iportz00_8462);
																					BgL_curz00_8472 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_19437,
																						BgL_forwardz00_8464);
																				}
																				{	/* Read/reader.scm 441 */

																					if (((long) (BgL_curz00_8472) == 10L))
																						{	/* Read/reader.scm 441 */
																							BgL_matchz00_9716 =
																								BgL_newzd2matchzd2_8467;
																						}
																					else
																						{
																							long BgL_forwardz00_19444;
																							long BgL_lastzd2matchzd2_19443;

																							BgL_lastzd2matchzd2_19443 =
																								BgL_newzd2matchzd2_8467;
																							BgL_forwardz00_19444 =
																								(1L + BgL_forwardz00_8464);
																							BgL_forwardz00_8464 =
																								BgL_forwardz00_19444;
																							BgL_lastzd2matchzd2_8463 =
																								BgL_lastzd2matchzd2_19443;
																							goto
																								BgL_zc3z04anonymousza35195ze3z87_8466;
																						}
																				}
																			}
																	}
																}
														}
													}
											}
											break;
										case 58L:

											BgL_iportz00_4136 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_4137 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_4138 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_4139 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza32882ze3z87_4140:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_4141;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_19448;

													BgL_tmpz00_19448 = ((obj_t) BgL_iportz00_4136);
													RGC_STOP_MATCH(BgL_tmpz00_19448, BgL_forwardz00_4138);
												}
												BgL_newzd2matchzd2_4141 = 22L;
												if ((BgL_forwardz00_4138 == BgL_bufposz00_4139))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_4136)))
															{	/* Read/reader.scm 441 */
																long BgL_arg2885z00_4144;
																long BgL_arg2886z00_4145;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_19456;

																	BgL_tmpz00_19456 =
																		((obj_t) BgL_iportz00_4136);
																	BgL_arg2885z00_4144 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_19456);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_19459;

																	BgL_tmpz00_19459 =
																		((obj_t) BgL_iportz00_4136);
																	BgL_arg2886z00_4145 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_19459);
																}
																{
																	long BgL_bufposz00_19463;
																	long BgL_forwardz00_19462;

																	BgL_forwardz00_19462 = BgL_arg2885z00_4144;
																	BgL_bufposz00_19463 = BgL_arg2886z00_4145;
																	BgL_bufposz00_4139 = BgL_bufposz00_19463;
																	BgL_forwardz00_4138 = BgL_forwardz00_19462;
																	goto BgL_zc3z04anonymousza32882ze3z87_4140;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_4141;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_4146;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_19464;

															BgL_tmpz00_19464 = ((obj_t) BgL_iportz00_4136);
															BgL_curz00_4146 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_19464,
																BgL_forwardz00_4138);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_4146) == 46L))
																{	/* Read/reader.scm 441 */
																	BgL_iportz00_5969 = BgL_iportz00_4136;
																	BgL_lastzd2matchzd2_5970 =
																		BgL_newzd2matchzd2_4141;
																	BgL_forwardz00_5971 =
																		(1L + BgL_forwardz00_4138);
																	BgL_bufposz00_5972 = BgL_bufposz00_4139;
																BgL_zc3z04anonymousza33929ze3z87_5973:
																	{	/* Read/reader.scm 441 */
																		long BgL_newzd2matchzd2_5974;

																		{	/* Read/reader.scm 441 */
																			obj_t BgL_tmpz00_19470;

																			BgL_tmpz00_19470 =
																				((obj_t) BgL_iportz00_5969);
																			RGC_STOP_MATCH(BgL_tmpz00_19470,
																				BgL_forwardz00_5971);
																		}
																		BgL_newzd2matchzd2_5974 = 20L;
																		if (
																			(BgL_forwardz00_5971 ==
																				BgL_bufposz00_5972))
																			{	/* Read/reader.scm 441 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_5969)))
																					{	/* Read/reader.scm 441 */
																						long BgL_arg3932z00_5977;
																						long BgL_arg3933z00_5978;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_19478;

																							BgL_tmpz00_19478 =
																								((obj_t) BgL_iportz00_5969);
																							BgL_arg3932z00_5977 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_19478);
																						}
																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_19481;

																							BgL_tmpz00_19481 =
																								((obj_t) BgL_iportz00_5969);
																							BgL_arg3933z00_5978 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_19481);
																						}
																						{
																							long BgL_bufposz00_19485;
																							long BgL_forwardz00_19484;

																							BgL_forwardz00_19484 =
																								BgL_arg3932z00_5977;
																							BgL_bufposz00_19485 =
																								BgL_arg3933z00_5978;
																							BgL_bufposz00_5972 =
																								BgL_bufposz00_19485;
																							BgL_forwardz00_5971 =
																								BgL_forwardz00_19484;
																							goto
																								BgL_zc3z04anonymousza33929ze3z87_5973;
																						}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						BgL_matchz00_9716 =
																							BgL_newzd2matchzd2_5974;
																					}
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				int BgL_curz00_5979;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_19486;

																					BgL_tmpz00_19486 =
																						((obj_t) BgL_iportz00_5969);
																					BgL_curz00_5979 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_19486,
																						BgL_forwardz00_5971);
																				}
																				{	/* Read/reader.scm 441 */

																					if (((long) (BgL_curz00_5979) == 58L))
																						{	/* Read/reader.scm 441 */
																							BgL_iportz00_9288 =
																								BgL_iportz00_5969;
																							BgL_lastzd2matchzd2_9289 =
																								BgL_newzd2matchzd2_5974;
																							BgL_forwardz00_9290 =
																								(1L + BgL_forwardz00_5971);
																							BgL_bufposz00_9291 =
																								BgL_bufposz00_5972;
																						BgL_zc3z04anonymousza35623ze3z87_9292:
																							{	/* Read/reader.scm 441 */
																								long BgL_newzd2matchzd2_9293;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_19492;

																									BgL_tmpz00_19492 =
																										((obj_t) BgL_iportz00_9288);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_19492,
																										BgL_forwardz00_9290);
																								}
																								BgL_newzd2matchzd2_9293 = 20L;
																								if (
																									(BgL_forwardz00_9290 ==
																										BgL_bufposz00_9291))
																									{	/* Read/reader.scm 441 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_9288)))
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_arg5626z00_9296;
																												long
																													BgL_arg5627z00_9297;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_19500;
																													BgL_tmpz00_19500 =
																														((obj_t)
																														BgL_iportz00_9288);
																													BgL_arg5626z00_9296 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_19500);
																												}
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_19503;
																													BgL_tmpz00_19503 =
																														((obj_t)
																														BgL_iportz00_9288);
																													BgL_arg5627z00_9297 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_19503);
																												}
																												{
																													long
																														BgL_bufposz00_19507;
																													long
																														BgL_forwardz00_19506;
																													BgL_forwardz00_19506 =
																														BgL_arg5626z00_9296;
																													BgL_bufposz00_19507 =
																														BgL_arg5627z00_9297;
																													BgL_bufposz00_9291 =
																														BgL_bufposz00_19507;
																													BgL_forwardz00_9290 =
																														BgL_forwardz00_19506;
																													goto
																														BgL_zc3z04anonymousza35623ze3z87_9292;
																												}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												BgL_matchz00_9716 =
																													BgL_newzd2matchzd2_9293;
																											}
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										int BgL_curz00_9298;

																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_19508;

																											BgL_tmpz00_19508 =
																												((obj_t)
																												BgL_iportz00_9288);
																											BgL_curz00_9298 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_19508,
																												BgL_forwardz00_9290);
																										}
																										{	/* Read/reader.scm 441 */

																											if (
																												((long)
																													(BgL_curz00_9298) ==
																													46L))
																												{	/* Read/reader.scm 441 */
																													BgL_iportz00_6262 =
																														BgL_iportz00_9288;
																													BgL_lastzd2matchzd2_6263
																														=
																														BgL_newzd2matchzd2_9293;
																													BgL_forwardz00_6264 =
																														(1L +
																														BgL_forwardz00_9290);
																													BgL_bufposz00_6265 =
																														BgL_bufposz00_9291;
																												BgL_zc3z04anonymousza34075ze3z87_6266:
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_newzd2matchzd2_6267;
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_19514;
																															BgL_tmpz00_19514 =
																																((obj_t)
																																BgL_iportz00_6262);
																															RGC_STOP_MATCH
																																(BgL_tmpz00_19514,
																																BgL_forwardz00_6264);
																														}
																														BgL_newzd2matchzd2_6267
																															= 20L;
																														if (
																															(BgL_forwardz00_6264
																																==
																																BgL_bufposz00_6265))
																															{	/* Read/reader.scm 441 */
																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_6262)))
																																	{	/* Read/reader.scm 441 */
																																		long
																																			BgL_arg4078z00_6270;
																																		long
																																			BgL_arg4079z00_6271;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_19522;
																																			BgL_tmpz00_19522
																																				=
																																				((obj_t)
																																				BgL_iportz00_6262);
																																			BgL_arg4078z00_6270
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_tmpz00_19522);
																																		}
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_19525;
																																			BgL_tmpz00_19525
																																				=
																																				((obj_t)
																																				BgL_iportz00_6262);
																																			BgL_arg4079z00_6271
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_tmpz00_19525);
																																		}
																																		{
																																			long
																																				BgL_bufposz00_19529;
																																			long
																																				BgL_forwardz00_19528;
																																			BgL_forwardz00_19528
																																				=
																																				BgL_arg4078z00_6270;
																																			BgL_bufposz00_19529
																																				=
																																				BgL_arg4079z00_6271;
																																			BgL_bufposz00_6265
																																				=
																																				BgL_bufposz00_19529;
																																			BgL_forwardz00_6264
																																				=
																																				BgL_forwardz00_19528;
																																			goto
																																				BgL_zc3z04anonymousza34075ze3z87_6266;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		BgL_matchz00_9716
																																			=
																																			BgL_newzd2matchzd2_6267;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																int
																																	BgL_curz00_6272;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_19530;
																																	BgL_tmpz00_19530
																																		=
																																		((obj_t)
																																		BgL_iportz00_6262);
																																	BgL_curz00_6272
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_tmpz00_19530,
																																		BgL_forwardz00_6264);
																																}
																																{	/* Read/reader.scm 441 */

																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test7101z00_19533;
																																		if (((long)
																																				(BgL_curz00_6272)
																																				>= 48L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7101z00_19533
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_6272)
																																					<
																																					58L);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7101z00_19533
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test7101z00_19533)
																																			{
																																				long
																																					BgL_forwardz00_19540;
																																				long
																																					BgL_lastzd2matchzd2_19539;
																																				BgL_lastzd2matchzd2_19539
																																					=
																																					BgL_newzd2matchzd2_6267;
																																				BgL_forwardz00_19540
																																					=
																																					(1L +
																																					BgL_forwardz00_6264);
																																				BgL_forwardz00_6264
																																					=
																																					BgL_forwardz00_19540;
																																				BgL_lastzd2matchzd2_6263
																																					=
																																					BgL_lastzd2matchzd2_19539;
																																				goto
																																					BgL_zc3z04anonymousza34075ze3z87_6266;
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				if (
																																					((long) (BgL_curz00_6272) == 46L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_iportz00_4760
																																							=
																																							BgL_iportz00_6262;
																																						BgL_lastzd2matchzd2_4761
																																							=
																																							BgL_newzd2matchzd2_6267;
																																						BgL_forwardz00_4762
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_6264);
																																						BgL_bufposz00_4763
																																							=
																																							BgL_bufposz00_6265;
																																					BgL_zc3z04anonymousza33288ze3z87_4764:
																																						{	/* Read/reader.scm 441 */
																																							long
																																								BgL_newzd2matchzd2_4765;
																																							{	/* Read/reader.scm 441 */
																																								obj_t
																																									BgL_tmpz00_19545;
																																								BgL_tmpz00_19545
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_4760);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_19545,
																																									BgL_forwardz00_4762);
																																							}
																																							BgL_newzd2matchzd2_4765
																																								=
																																								20L;
																																							if ((BgL_forwardz00_4762 == BgL_bufposz00_4763))
																																								{	/* Read/reader.scm 441 */
																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_4760)))
																																										{	/* Read/reader.scm 441 */
																																											long
																																												BgL_arg3295z00_4768;
																																											long
																																												BgL_arg3296z00_4769;
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_19553;
																																												BgL_tmpz00_19553
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4760);
																																												BgL_arg3295z00_4768
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_tmpz00_19553);
																																											}
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_19556;
																																												BgL_tmpz00_19556
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4760);
																																												BgL_arg3296z00_4769
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_tmpz00_19556);
																																											}
																																											{
																																												long
																																													BgL_bufposz00_19560;
																																												long
																																													BgL_forwardz00_19559;
																																												BgL_forwardz00_19559
																																													=
																																													BgL_arg3295z00_4768;
																																												BgL_bufposz00_19560
																																													=
																																													BgL_arg3296z00_4769;
																																												BgL_bufposz00_4763
																																													=
																																													BgL_bufposz00_19560;
																																												BgL_forwardz00_4762
																																													=
																																													BgL_forwardz00_19559;
																																												goto
																																													BgL_zc3z04anonymousza33288ze3z87_4764;
																																											}
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_matchz00_9716
																																												=
																																												BgL_newzd2matchzd2_4765;
																																										}
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									int
																																										BgL_curz00_4770;
																																									{	/* Read/reader.scm 441 */
																																										obj_t
																																											BgL_tmpz00_19561;
																																										BgL_tmpz00_19561
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_4760);
																																										BgL_curz00_4770
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_tmpz00_19561,
																																											BgL_forwardz00_4762);
																																									}
																																									{	/* Read/reader.scm 441 */

																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test7106z00_19564;
																																											if (((long) (BgL_curz00_4770) == 39L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7106z00_19564
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_4770) == 44L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7106z00_19564
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7106z00_19564
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_4770)
																																																==
																																																96L);
																																												}}
																																											if (BgL_test7106z00_19564)
																																												{	/* Read/reader.scm 441 */
																																													BgL_iportz00_7363
																																														=
																																														BgL_iportz00_4760;
																																													BgL_lastzd2matchzd2_7364
																																														=
																																														BgL_newzd2matchzd2_4765;
																																													BgL_forwardz00_7365
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_4762);
																																													BgL_bufposz00_7366
																																														=
																																														BgL_bufposz00_4763;
																																												BgL_zc3z04anonymousza34647ze3z87_7367:
																																													{	/* Read/reader.scm 441 */
																																														long
																																															BgL_newzd2matchzd2_7368;
																																														{	/* Read/reader.scm 441 */
																																															obj_t
																																																BgL_tmpz00_19573;
																																															BgL_tmpz00_19573
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_7363);
																																															RGC_STOP_MATCH
																																																(BgL_tmpz00_19573,
																																																BgL_forwardz00_7365);
																																														}
																																														BgL_newzd2matchzd2_7368
																																															=
																																															22L;
																																														if ((BgL_forwardz00_7365 == BgL_bufposz00_7366))
																																															{	/* Read/reader.scm 441 */
																																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_7363)))
																																																	{	/* Read/reader.scm 441 */
																																																		long
																																																			BgL_arg4650z00_7371;
																																																		long
																																																			BgL_arg4651z00_7372;
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_19581;
																																																			BgL_tmpz00_19581
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_7363);
																																																			BgL_arg4650z00_7371
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_tmpz00_19581);
																																																		}
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_19584;
																																																			BgL_tmpz00_19584
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_7363);
																																																			BgL_arg4651z00_7372
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_tmpz00_19584);
																																																		}
																																																		{
																																																			long
																																																				BgL_bufposz00_19588;
																																																			long
																																																				BgL_forwardz00_19587;
																																																			BgL_forwardz00_19587
																																																				=
																																																				BgL_arg4650z00_7371;
																																																			BgL_bufposz00_19588
																																																				=
																																																				BgL_arg4651z00_7372;
																																																			BgL_bufposz00_7366
																																																				=
																																																				BgL_bufposz00_19588;
																																																			BgL_forwardz00_7365
																																																				=
																																																				BgL_forwardz00_19587;
																																																			goto
																																																				BgL_zc3z04anonymousza34647ze3z87_7367;
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_matchz00_9716
																																																			=
																																																			BgL_newzd2matchzd2_7368;
																																																	}
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																int
																																																	BgL_curz00_7373;
																																																{	/* Read/reader.scm 441 */
																																																	obj_t
																																																		BgL_tmpz00_19589;
																																																	BgL_tmpz00_19589
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_7363);
																																																	BgL_curz00_7373
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_tmpz00_19589,
																																																		BgL_forwardz00_7365);
																																																}
																																																{	/* Read/reader.scm 441 */

																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test7111z00_19592;
																																																		if (((long) (BgL_curz00_7373) < 33L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7111z00_19592
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test7113z00_19596;
																																																				if (((long) (BgL_curz00_7373) == 35L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7113z00_19596
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7113z00_19596
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_7373)
																																																							==
																																																							34L);
																																																					}
																																																				if (BgL_test7113z00_19596)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7111z00_19592
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test7115z00_19602;
																																																						if (((long) (BgL_curz00_7373) == 41L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7115z00_19602
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7115z00_19602
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7373)
																																																									==
																																																									40L);
																																																							}
																																																						if (BgL_test7115z00_19602)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7111z00_19592
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_7373) == 59L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7111z00_19592
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_7373) == 91L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7111z00_19592
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_7373) == 93L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7111z00_19592
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														bool_t
																																																															BgL_test7120z00_19617;
																																																														if (((long) (BgL_curz00_7373) == 125L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7120z00_19617
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_7373) == 124L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7120z00_19617
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7120z00_19617
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_7373)
																																																																			==
																																																																			123L);
																																																															}}
																																																														if (BgL_test7120z00_19617)
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7111z00_19592
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7111z00_19592
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_7373)
																																																																	==
																																																																	127L);
																																																			}}}}}}}
																																																		if (BgL_test7111z00_19592)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_matchz00_9716
																																																					=
																																																					BgL_newzd2matchzd2_7368;
																																																			}
																																																		else
																																																			{
																																																				long
																																																					BgL_forwardz00_19629;
																																																				long
																																																					BgL_lastzd2matchzd2_19628;
																																																				BgL_lastzd2matchzd2_19628
																																																					=
																																																					BgL_newzd2matchzd2_7368;
																																																				BgL_forwardz00_19629
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_7365);
																																																				BgL_forwardz00_7365
																																																					=
																																																					BgL_forwardz00_19629;
																																																				BgL_lastzd2matchzd2_7364
																																																					=
																																																					BgL_lastzd2matchzd2_19628;
																																																				goto
																																																					BgL_zc3z04anonymousza34647ze3z87_7367;
																																																			}
																																																	}
																																																}
																																															}
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test7123z00_19632;
																																													if (((long) (BgL_curz00_4770) < 33L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7123z00_19632
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test7125z00_19636;
																																															if (((long) (BgL_curz00_4770) == 35L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7125z00_19636
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7125z00_19636
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_4770)
																																																		==
																																																		34L);
																																																}
																																															if (BgL_test7125z00_19636)
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7123z00_19632
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test7127z00_19642;
																																																	if (((long) (BgL_curz00_4770) == 41L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7127z00_19642
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_4770) == 40L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7127z00_19642
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7127z00_19642
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_4770)
																																																						==
																																																						39L);
																																																		}}
																																																	if (BgL_test7127z00_19642)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7123z00_19632
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_4770) == 44L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7123z00_19632
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_4770) == 59L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7123z00_19632
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_4770) == 91L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test7123z00_19632
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_4770) == 93L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test7123z00_19632
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_4770) == 96L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test7123z00_19632
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test7135z00_19666;
																																																													if (((long) (BgL_curz00_4770) == 125L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7135z00_19666
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															if (((long) (BgL_curz00_4770) == 124L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test7135z00_19666
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test7135z00_19666
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_4770)
																																																																		==
																																																																		123L);
																																																														}}
																																																													if (BgL_test7135z00_19666)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7123z00_19632
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7123z00_19632
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_4770)
																																																																==
																																																																127L);
																																														}}}}}}}}}
																																													if (BgL_test7123z00_19632)
																																														{	/* Read/reader.scm 441 */
																																															BgL_matchz00_9716
																																																=
																																																BgL_newzd2matchzd2_4765;
																																														}
																																													else
																																														{
																																															long
																																																BgL_forwardz00_19678;
																																															long
																																																BgL_lastzd2matchzd2_19677;
																																															BgL_lastzd2matchzd2_19677
																																																=
																																																BgL_newzd2matchzd2_4765;
																																															BgL_forwardz00_19678
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_4762);
																																															BgL_forwardz00_4762
																																																=
																																																BgL_forwardz00_19678;
																																															BgL_lastzd2matchzd2_4761
																																																=
																																																BgL_lastzd2matchzd2_19677;
																																															goto
																																																BgL_zc3z04anonymousza33288ze3z87_4764;
																																														}
																																												}
																																										}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test7138z00_19681;
																																						if (
																																							((long) (BgL_curz00_6272) == 39L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7138z00_19681
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_6272) == 44L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7138z00_19681
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7138z00_19681
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6272)
																																											==
																																											96L);
																																							}}
																																						if (BgL_test7138z00_19681)
																																							{
																																								long
																																									BgL_bufposz00_19694;
																																								long
																																									BgL_forwardz00_19692;
																																								long
																																									BgL_lastzd2matchzd2_19691;
																																								obj_t
																																									BgL_iportz00_19690;
																																								BgL_iportz00_19690
																																									=
																																									BgL_iportz00_6262;
																																								BgL_lastzd2matchzd2_19691
																																									=
																																									BgL_newzd2matchzd2_6267;
																																								BgL_forwardz00_19692
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_6264);
																																								BgL_bufposz00_19694
																																									=
																																									BgL_bufposz00_6265;
																																								BgL_bufposz00_7366
																																									=
																																									BgL_bufposz00_19694;
																																								BgL_forwardz00_7365
																																									=
																																									BgL_forwardz00_19692;
																																								BgL_lastzd2matchzd2_7364
																																									=
																																									BgL_lastzd2matchzd2_19691;
																																								BgL_iportz00_7363
																																									=
																																									BgL_iportz00_19690;
																																								goto
																																									BgL_zc3z04anonymousza34647ze3z87_7367;
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test7141z00_19695;
																																								if (((long) (BgL_curz00_6272) < 33L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7141z00_19695
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										bool_t
																																											BgL_test7143z00_19699;
																																										if (((long) (BgL_curz00_6272) == 35L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7143z00_19699
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7143z00_19699
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_6272)
																																													==
																																													34L);
																																											}
																																										if (BgL_test7143z00_19699)
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7141z00_19695
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test7145z00_19705;
																																												if (((long) (BgL_curz00_6272) == 41L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7145z00_19705
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_6272) == 40L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7145z00_19705
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7145z00_19705
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_6272)
																																																	==
																																																	39L);
																																													}}
																																												if (BgL_test7145z00_19705)
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7141z00_19695
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_6272) == 44L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7141z00_19695
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_6272) == 46L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7141z00_19695
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test7150z00_19720;
																																																		if (((long) (BgL_curz00_6272) >= 48L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7150z00_19720
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_6272)
																																																					<
																																																					58L);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7150z00_19720
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test7150z00_19720)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7141z00_19695
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_6272) == 59L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7141z00_19695
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_6272) == 91L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7141z00_19695
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_6272) == 93L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7141z00_19695
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_6272) == 96L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7141z00_19695
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test7156z00_19738;
																																																												if (((long) (BgL_curz00_6272) == 125L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7156z00_19738
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_6272) == 124L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7156z00_19738
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7156z00_19738
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_6272)
																																																																	==
																																																																	123L);
																																																													}}
																																																												if (BgL_test7156z00_19738)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7141z00_19695
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7141z00_19695
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_6272)
																																																															==
																																																															127L);
																																									}}}}}}}}}}}
																																								if (BgL_test7141z00_19695)
																																									{	/* Read/reader.scm 441 */
																																										BgL_matchz00_9716
																																											=
																																											BgL_newzd2matchzd2_6267;
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_iportz00_5371
																																											=
																																											BgL_iportz00_6262;
																																										BgL_lastzd2matchzd2_5372
																																											=
																																											BgL_newzd2matchzd2_6267;
																																										BgL_forwardz00_5373
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_6264);
																																										BgL_bufposz00_5374
																																											=
																																											BgL_bufposz00_6265;
																																									BgL_zc3z04anonymousza33626ze3z87_5375:
																																										{	/* Read/reader.scm 441 */
																																											long
																																												BgL_newzd2matchzd2_5376;
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_19749;
																																												BgL_tmpz00_19749
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_5371);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_19749,
																																													BgL_forwardz00_5373);
																																											}
																																											BgL_newzd2matchzd2_5376
																																												=
																																												20L;
																																											if ((BgL_forwardz00_5373 == BgL_bufposz00_5374))
																																												{	/* Read/reader.scm 441 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_5371)))
																																														{	/* Read/reader.scm 441 */
																																															long
																																																BgL_arg3629z00_5379;
																																															long
																																																BgL_arg3630z00_5380;
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_19757;
																																																BgL_tmpz00_19757
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_5371);
																																																BgL_arg3629z00_5379
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_19757);
																																															}
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_19760;
																																																BgL_tmpz00_19760
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_5371);
																																																BgL_arg3630z00_5380
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_19760);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_19764;
																																																long
																																																	BgL_forwardz00_19763;
																																																BgL_forwardz00_19763
																																																	=
																																																	BgL_arg3629z00_5379;
																																																BgL_bufposz00_19764
																																																	=
																																																	BgL_arg3630z00_5380;
																																																BgL_bufposz00_5374
																																																	=
																																																	BgL_bufposz00_19764;
																																																BgL_forwardz00_5373
																																																	=
																																																	BgL_forwardz00_19763;
																																																goto
																																																	BgL_zc3z04anonymousza33626ze3z87_5375;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_matchz00_9716
																																																=
																																																BgL_newzd2matchzd2_5376;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													int
																																														BgL_curz00_5381;
																																													{	/* Read/reader.scm 441 */
																																														obj_t
																																															BgL_tmpz00_19765;
																																														BgL_tmpz00_19765
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_5371);
																																														BgL_curz00_5381
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_19765,
																																															BgL_forwardz00_5373);
																																													}
																																													{	/* Read/reader.scm 441 */

																																														if (((long) (BgL_curz00_5381) == 46L))
																																															{
																																																long
																																																	BgL_bufposz00_19775;
																																																long
																																																	BgL_forwardz00_19773;
																																																long
																																																	BgL_lastzd2matchzd2_19772;
																																																obj_t
																																																	BgL_iportz00_19771;
																																																BgL_iportz00_19771
																																																	=
																																																	BgL_iportz00_5371;
																																																BgL_lastzd2matchzd2_19772
																																																	=
																																																	BgL_newzd2matchzd2_5376;
																																																BgL_forwardz00_19773
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_5373);
																																																BgL_bufposz00_19775
																																																	=
																																																	BgL_bufposz00_5374;
																																																BgL_bufposz00_6265
																																																	=
																																																	BgL_bufposz00_19775;
																																																BgL_forwardz00_6264
																																																	=
																																																	BgL_forwardz00_19773;
																																																BgL_lastzd2matchzd2_6263
																																																	=
																																																	BgL_lastzd2matchzd2_19772;
																																																BgL_iportz00_6262
																																																	=
																																																	BgL_iportz00_19771;
																																																goto
																																																	BgL_zc3z04anonymousza34075ze3z87_6266;
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test7162z00_19776;
																																																if (((long) (BgL_curz00_5381) == 39L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7162z00_19776
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_5381) == 44L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7162z00_19776
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7162z00_19776
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_5381)
																																																					==
																																																					96L);
																																																	}}
																																																if (BgL_test7162z00_19776)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_iportz00_5792
																																																			=
																																																			BgL_iportz00_5371;
																																																		BgL_lastzd2matchzd2_5793
																																																			=
																																																			BgL_newzd2matchzd2_5376;
																																																		BgL_forwardz00_5794
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_5373);
																																																		BgL_bufposz00_5795
																																																			=
																																																			BgL_bufposz00_5374;
																																																	BgL_zc3z04anonymousza33844ze3z87_5796:
																																																		{	/* Read/reader.scm 441 */
																																																			long
																																																				BgL_newzd2matchzd2_5797;
																																																			{	/* Read/reader.scm 441 */
																																																				obj_t
																																																					BgL_tmpz00_19785;
																																																				BgL_tmpz00_19785
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_5792);
																																																				RGC_STOP_MATCH
																																																					(BgL_tmpz00_19785,
																																																					BgL_forwardz00_5794);
																																																			}
																																																			BgL_newzd2matchzd2_5797
																																																				=
																																																				21L;
																																																			if ((BgL_forwardz00_5794 == BgL_bufposz00_5795))
																																																				{	/* Read/reader.scm 441 */
																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_5792)))
																																																						{	/* Read/reader.scm 441 */
																																																							long
																																																								BgL_arg3847z00_5800;
																																																							long
																																																								BgL_arg3848z00_5801;
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_19793;
																																																								BgL_tmpz00_19793
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_5792);
																																																								BgL_arg3847z00_5800
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_tmpz00_19793);
																																																							}
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_19796;
																																																								BgL_tmpz00_19796
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_5792);
																																																								BgL_arg3848z00_5801
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_tmpz00_19796);
																																																							}
																																																							{
																																																								long
																																																									BgL_bufposz00_19800;
																																																								long
																																																									BgL_forwardz00_19799;
																																																								BgL_forwardz00_19799
																																																									=
																																																									BgL_arg3847z00_5800;
																																																								BgL_bufposz00_19800
																																																									=
																																																									BgL_arg3848z00_5801;
																																																								BgL_bufposz00_5795
																																																									=
																																																									BgL_bufposz00_19800;
																																																								BgL_forwardz00_5794
																																																									=
																																																									BgL_forwardz00_19799;
																																																								goto
																																																									BgL_zc3z04anonymousza33844ze3z87_5796;
																																																							}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_matchz00_9716
																																																								=
																																																								BgL_newzd2matchzd2_5797;
																																																						}
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					int
																																																						BgL_curz00_5802;
																																																					{	/* Read/reader.scm 441 */
																																																						obj_t
																																																							BgL_tmpz00_19801;
																																																						BgL_tmpz00_19801
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_5792);
																																																						BgL_curz00_5802
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_tmpz00_19801,
																																																							BgL_forwardz00_5794);
																																																					}
																																																					{	/* Read/reader.scm 441 */

																																																						if (((long) (BgL_curz00_5802) == 46L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_iportz00_3853
																																																									=
																																																									BgL_iportz00_5792;
																																																								BgL_lastzd2matchzd2_3854
																																																									=
																																																									BgL_newzd2matchzd2_5797;
																																																								BgL_forwardz00_3855
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_5794);
																																																								BgL_bufposz00_3856
																																																									=
																																																									BgL_bufposz00_5795;
																																																							BgL_zc3z04anonymousza32710ze3z87_3857:
																																																								{	/* Read/reader.scm 441 */
																																																									long
																																																										BgL_newzd2matchzd2_3858;
																																																									{	/* Read/reader.scm 441 */
																																																										obj_t
																																																											BgL_tmpz00_19807;
																																																										BgL_tmpz00_19807
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_3853);
																																																										RGC_STOP_MATCH
																																																											(BgL_tmpz00_19807,
																																																											BgL_forwardz00_3855);
																																																									}
																																																									BgL_newzd2matchzd2_3858
																																																										=
																																																										22L;
																																																									if ((BgL_forwardz00_3855 == BgL_bufposz00_3856))
																																																										{	/* Read/reader.scm 441 */
																																																											if (rgc_fill_buffer(((obj_t) BgL_iportz00_3853)))
																																																												{	/* Read/reader.scm 441 */
																																																													long
																																																														BgL_arg2714z00_3861;
																																																													long
																																																														BgL_arg2715z00_3862;
																																																													{	/* Read/reader.scm 441 */
																																																														obj_t
																																																															BgL_tmpz00_19815;
																																																														BgL_tmpz00_19815
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_3853);
																																																														BgL_arg2714z00_3861
																																																															=
																																																															RGC_BUFFER_FORWARD
																																																															(BgL_tmpz00_19815);
																																																													}
																																																													{	/* Read/reader.scm 441 */
																																																														obj_t
																																																															BgL_tmpz00_19818;
																																																														BgL_tmpz00_19818
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_3853);
																																																														BgL_arg2715z00_3862
																																																															=
																																																															RGC_BUFFER_BUFPOS
																																																															(BgL_tmpz00_19818);
																																																													}
																																																													{
																																																														long
																																																															BgL_bufposz00_19822;
																																																														long
																																																															BgL_forwardz00_19821;
																																																														BgL_forwardz00_19821
																																																															=
																																																															BgL_arg2714z00_3861;
																																																														BgL_bufposz00_19822
																																																															=
																																																															BgL_arg2715z00_3862;
																																																														BgL_bufposz00_3856
																																																															=
																																																															BgL_bufposz00_19822;
																																																														BgL_forwardz00_3855
																																																															=
																																																															BgL_forwardz00_19821;
																																																														goto
																																																															BgL_zc3z04anonymousza32710ze3z87_3857;
																																																													}
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_matchz00_9716
																																																														=
																																																														BgL_newzd2matchzd2_3858;
																																																												}
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											int
																																																												BgL_curz00_3863;
																																																											{	/* Read/reader.scm 441 */
																																																												obj_t
																																																													BgL_tmpz00_19823;
																																																												BgL_tmpz00_19823
																																																													=
																																																													(
																																																													(obj_t)
																																																													BgL_iportz00_3853);
																																																												BgL_curz00_3863
																																																													=
																																																													RGC_BUFFER_GET_CHAR
																																																													(BgL_tmpz00_19823,
																																																													BgL_forwardz00_3855);
																																																											}
																																																											{	/* Read/reader.scm 441 */

																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test7170z00_19826;
																																																													if (((long) (BgL_curz00_3863) >= 48L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7170z00_19826
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_3863)
																																																																<
																																																																58L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7170z00_19826
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test7170z00_19826)
																																																														{
																																																															long
																																																																BgL_forwardz00_19833;
																																																															long
																																																																BgL_lastzd2matchzd2_19832;
																																																															BgL_lastzd2matchzd2_19832
																																																																=
																																																																BgL_newzd2matchzd2_3858;
																																																															BgL_forwardz00_19833
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_3855);
																																																															BgL_forwardz00_3855
																																																																=
																																																																BgL_forwardz00_19833;
																																																															BgL_lastzd2matchzd2_3854
																																																																=
																																																																BgL_lastzd2matchzd2_19832;
																																																															goto
																																																																BgL_zc3z04anonymousza32710ze3z87_3857;
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test7172z00_19835;
																																																															switch
																																																																(
																																																																(long)
																																																																(BgL_curz00_3863))
																																																																{
																																																																case 39L:

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

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

																																																																	BgL_test7172z00_19835 = ((bool_t) 1);
																																																																	break;
																																																																default:
																																																																	BgL_test7172z00_19835 = ((long) (BgL_curz00_3863) == 96L);
																																																																}
																																																															if (BgL_test7172z00_19835)
																																																																{
																																																																	long
																																																																		BgL_bufposz00_19844;
																																																																	long
																																																																		BgL_forwardz00_19842;
																																																																	long
																																																																		BgL_lastzd2matchzd2_19841;
																																																																	obj_t
																																																																		BgL_iportz00_19840;
																																																																	BgL_iportz00_19840
																																																																		=
																																																																		BgL_iportz00_3853;
																																																																	BgL_lastzd2matchzd2_19841
																																																																		=
																																																																		BgL_newzd2matchzd2_3858;
																																																																	BgL_forwardz00_19842
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_3855);
																																																																	BgL_bufposz00_19844
																																																																		=
																																																																		BgL_bufposz00_3856;
																																																																	BgL_bufposz00_7366
																																																																		=
																																																																		BgL_bufposz00_19844;
																																																																	BgL_forwardz00_7365
																																																																		=
																																																																		BgL_forwardz00_19842;
																																																																	BgL_lastzd2matchzd2_7364
																																																																		=
																																																																		BgL_lastzd2matchzd2_19841;
																																																																	BgL_iportz00_7363
																																																																		=
																																																																		BgL_iportz00_19840;
																																																																	goto
																																																																		BgL_zc3z04anonymousza34647ze3z87_7367;
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	bool_t
																																																																		BgL_test7173z00_19845;
																																																																	if (((long) (BgL_curz00_3863) < 33L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test7173z00_19845
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			bool_t
																																																																				BgL_test7175z00_19849;
																																																																			if (((long) (BgL_curz00_3863) == 35L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test7175z00_19849
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test7175z00_19849
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_3863)
																																																																						==
																																																																						34L);
																																																																				}
																																																																			if (BgL_test7175z00_19849)
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test7173z00_19845
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					bool_t
																																																																						BgL_test7177z00_19855;
																																																																					if (((long) (BgL_curz00_3863) == 41L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test7177z00_19855
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_3863) == 40L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test7177z00_19855
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test7177z00_19855
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_3863)
																																																																										==
																																																																										39L);
																																																																						}}
																																																																					if (BgL_test7177z00_19855)
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test7173z00_19845
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_3863) == 44L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test7173z00_19845
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_3863) == 46L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test7173z00_19845
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											bool_t
																																																																												BgL_test7182z00_19870;
																																																																											if (((long) (BgL_curz00_3863) >= 48L))
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test7182z00_19870
																																																																														=
																																																																														(
																																																																														(long)
																																																																														(BgL_curz00_3863)
																																																																														<
																																																																														58L);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test7182z00_19870
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														0);
																																																																												}
																																																																											if (BgL_test7182z00_19870)
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test7173z00_19845
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													if (((long) (BgL_curz00_3863) == 59L))
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test7173z00_19845
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															if (((long) (BgL_curz00_3863) == 91L))
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test7173z00_19845
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	if (((long) (BgL_curz00_3863) == 93L))
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test7173z00_19845
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			if (((long) (BgL_curz00_3863) == 96L))
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					BgL_test7173z00_19845
																																																																																						=
																																																																																						(
																																																																																						(bool_t)
																																																																																						1);
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					bool_t
																																																																																						BgL_test7188z00_19888;
																																																																																					if (((long) (BgL_curz00_3863) == 125L))
																																																																																						{	/* Read/reader.scm 441 */
																																																																																							BgL_test7188z00_19888
																																																																																								=
																																																																																								(
																																																																																								(bool_t)
																																																																																								1);
																																																																																						}
																																																																																					else
																																																																																						{	/* Read/reader.scm 441 */
																																																																																							if (((long) (BgL_curz00_3863) == 124L))
																																																																																								{	/* Read/reader.scm 441 */
																																																																																									BgL_test7188z00_19888
																																																																																										=
																																																																																										(
																																																																																										(bool_t)
																																																																																										1);
																																																																																								}
																																																																																							else
																																																																																								{	/* Read/reader.scm 441 */
																																																																																									BgL_test7188z00_19888
																																																																																										=
																																																																																										(
																																																																																										(long)
																																																																																										(BgL_curz00_3863)
																																																																																										==
																																																																																										123L);
																																																																																						}}
																																																																																					if (BgL_test7188z00_19888)
																																																																																						{	/* Read/reader.scm 441 */
																																																																																							BgL_test7173z00_19845
																																																																																								=
																																																																																								(
																																																																																								(bool_t)
																																																																																								1);
																																																																																						}
																																																																																					else
																																																																																						{	/* Read/reader.scm 441 */
																																																																																							BgL_test7173z00_19845
																																																																																								=
																																																																																								(
																																																																																								(long)
																																																																																								(BgL_curz00_3863)
																																																																																								==
																																																																																								127L);
																																																																		}}}}}}}}}}}
																																																																	if (BgL_test7173z00_19845)
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_matchz00_9716
																																																																				=
																																																																				BgL_newzd2matchzd2_3858;
																																																																		}
																																																																	else
																																																																		{
																																																																			long
																																																																				BgL_bufposz00_19903;
																																																																			long
																																																																				BgL_forwardz00_19901;
																																																																			long
																																																																				BgL_lastzd2matchzd2_19900;
																																																																			obj_t
																																																																				BgL_iportz00_19899;
																																																																			BgL_iportz00_19899
																																																																				=
																																																																				BgL_iportz00_3853;
																																																																			BgL_lastzd2matchzd2_19900
																																																																				=
																																																																				BgL_newzd2matchzd2_3858;
																																																																			BgL_forwardz00_19901
																																																																				=
																																																																				(1L
																																																																				+
																																																																				BgL_forwardz00_3855);
																																																																			BgL_bufposz00_19903
																																																																				=
																																																																				BgL_bufposz00_3856;
																																																																			BgL_bufposz00_5795
																																																																				=
																																																																				BgL_bufposz00_19903;
																																																																			BgL_forwardz00_5794
																																																																				=
																																																																				BgL_forwardz00_19901;
																																																																			BgL_lastzd2matchzd2_5793
																																																																				=
																																																																				BgL_lastzd2matchzd2_19900;
																																																																			BgL_iportz00_5792
																																																																				=
																																																																				BgL_iportz00_19899;
																																																																			goto
																																																																				BgL_zc3z04anonymousza33844ze3z87_5796;
																																																																		}
																																																																}
																																																														}
																																																												}
																																																											}
																																																										}
																																																								}
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test7191z00_19905;
																																																								if (((long) (BgL_curz00_5802) < 33L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7191z00_19905
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test7193z00_19909;
																																																										if (((long) (BgL_curz00_5802) == 35L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7193z00_19909
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7193z00_19909
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_5802)
																																																													==
																																																													34L);
																																																											}
																																																										if (BgL_test7193z00_19909)
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7191z00_19905
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test7195z00_19915;
																																																												if (((long) (BgL_curz00_5802) == 41L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7195z00_19915
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7195z00_19915
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_5802)
																																																															==
																																																															40L);
																																																													}
																																																												if (BgL_test7195z00_19915)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7191z00_19905
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_5802) == 46L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7191z00_19905
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_5802) == 59L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7191z00_19905
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_5802) == 91L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7191z00_19905
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_5802) == 93L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7191z00_19905
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						bool_t
																																																																							BgL_test7201z00_19933;
																																																																						if (((long) (BgL_curz00_5802) == 125L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7201z00_19933
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								if (((long) (BgL_curz00_5802) == 124L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7201z00_19933
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7201z00_19933
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_5802)
																																																																											==
																																																																											123L);
																																																																							}}
																																																																						if (BgL_test7201z00_19933)
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7191z00_19905
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7191z00_19905
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_5802)
																																																																									==
																																																																									127L);
																																																									}}}}}}}}
																																																								if (BgL_test7191z00_19905)
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_matchz00_9716
																																																											=
																																																											BgL_newzd2matchzd2_5797;
																																																									}
																																																								else
																																																									{
																																																										long
																																																											BgL_forwardz00_19945;
																																																										long
																																																											BgL_lastzd2matchzd2_19944;
																																																										BgL_lastzd2matchzd2_19944
																																																											=
																																																											BgL_newzd2matchzd2_5797;
																																																										BgL_forwardz00_19945
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_5794);
																																																										BgL_forwardz00_5794
																																																											=
																																																											BgL_forwardz00_19945;
																																																										BgL_lastzd2matchzd2_5793
																																																											=
																																																											BgL_lastzd2matchzd2_19944;
																																																										goto
																																																											BgL_zc3z04anonymousza33844ze3z87_5796;
																																																									}
																																																							}
																																																					}
																																																				}
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test7204z00_19948;
																																																		if (((long) (BgL_curz00_5381) < 33L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7204z00_19948
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test7206z00_19952;
																																																				if (((long) (BgL_curz00_5381) == 35L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7206z00_19952
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7206z00_19952
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_5381)
																																																							==
																																																							34L);
																																																					}
																																																				if (BgL_test7206z00_19952)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7204z00_19948
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test7208z00_19958;
																																																						if (((long) (BgL_curz00_5381) == 41L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7208z00_19958
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_5381) == 40L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7208z00_19958
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7208z00_19958
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_5381)
																																																											==
																																																											39L);
																																																							}}
																																																						if (BgL_test7208z00_19958)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7204z00_19948
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_5381) == 44L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7204z00_19948
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_5381) == 46L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7204z00_19948
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_5381) == 59L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7204z00_19948
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_5381) == 91L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7204z00_19948
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_5381) == 93L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7204z00_19948
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_5381) == 96L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7204z00_19948
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				bool_t
																																																																					BgL_test7217z00_19985;
																																																																				if (((long) (BgL_curz00_5381) == 125L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7217z00_19985
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						if (((long) (BgL_curz00_5381) == 124L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7217z00_19985
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7217z00_19985
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_5381)
																																																																									==
																																																																									123L);
																																																																					}}
																																																																				if (BgL_test7217z00_19985)
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7204z00_19948
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7204z00_19948
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_5381)
																																																																							==
																																																																							127L);
																																																			}}}}}}}}}}
																																																		if (BgL_test7204z00_19948)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_matchz00_9716
																																																					=
																																																					BgL_newzd2matchzd2_5376;
																																																			}
																																																		else
																																																			{
																																																				long
																																																					BgL_forwardz00_19997;
																																																				long
																																																					BgL_lastzd2matchzd2_19996;
																																																				BgL_lastzd2matchzd2_19996
																																																					=
																																																					BgL_newzd2matchzd2_5376;
																																																				BgL_forwardz00_19997
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_5373);
																																																				BgL_forwardz00_5373
																																																					=
																																																					BgL_forwardz00_19997;
																																																				BgL_lastzd2matchzd2_5372
																																																					=
																																																					BgL_lastzd2matchzd2_19996;
																																																				goto
																																																					BgL_zc3z04anonymousza33626ze3z87_5375;
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									}
																																							}
																																					}
																																			}
																																	}
																																}
																															}
																													}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test7220z00_20001;
																													if (((long)
																															(BgL_curz00_9298)
																															== 39L))
																														{	/* Read/reader.scm 441 */
																															BgL_test7220z00_20001
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_9298)
																																	== 44L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test7220z00_20001
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test7220z00_20001
																																		=
																																		((long)
																																		(BgL_curz00_9298)
																																		== 96L);
																														}}
																													if (BgL_test7220z00_20001)
																														{	/* Read/reader.scm 441 */
																															BgL_iportz00_7548
																																=
																																BgL_iportz00_9288;
																															BgL_lastzd2matchzd2_7549
																																=
																																BgL_newzd2matchzd2_9293;
																															BgL_forwardz00_7550
																																=
																																(1L +
																																BgL_forwardz00_9290);
																															BgL_bufposz00_7551
																																=
																																BgL_bufposz00_9291;
																														BgL_zc3z04anonymousza34743ze3z87_7552:
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_newzd2matchzd2_7553;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_20010;
																																	BgL_tmpz00_20010
																																		=
																																		((obj_t)
																																		BgL_iportz00_7548);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_20010,
																																		BgL_forwardz00_7550);
																																}
																																BgL_newzd2matchzd2_7553
																																	= 21L;
																																if (
																																	(BgL_forwardz00_7550
																																		==
																																		BgL_bufposz00_7551))
																																	{	/* Read/reader.scm 441 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_7548)))
																																			{	/* Read/reader.scm 441 */
																																				long
																																					BgL_arg4746z00_7556;
																																				long
																																					BgL_arg4747z00_7557;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_20018;
																																					BgL_tmpz00_20018
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7548);
																																					BgL_arg4746z00_7556
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_20018);
																																				}
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_20021;
																																					BgL_tmpz00_20021
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7548);
																																					BgL_arg4747z00_7557
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_20021);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_20025;
																																					long
																																						BgL_forwardz00_20024;
																																					BgL_forwardz00_20024
																																						=
																																						BgL_arg4746z00_7556;
																																					BgL_bufposz00_20025
																																						=
																																						BgL_arg4747z00_7557;
																																					BgL_bufposz00_7551
																																						=
																																						BgL_bufposz00_20025;
																																					BgL_forwardz00_7550
																																						=
																																						BgL_forwardz00_20024;
																																					goto
																																						BgL_zc3z04anonymousza34743ze3z87_7552;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_7553;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		int
																																			BgL_curz00_7558;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_20026;
																																			BgL_tmpz00_20026
																																				=
																																				((obj_t)
																																				BgL_iportz00_7548);
																																			BgL_curz00_7558
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_20026,
																																				BgL_forwardz00_7550);
																																		}
																																		{	/* Read/reader.scm 441 */

																																			if (
																																				((long)
																																					(BgL_curz00_7558)
																																					==
																																					46L))
																																				{
																																					long
																																						BgL_bufposz00_20036;
																																					long
																																						BgL_forwardz00_20034;
																																					long
																																						BgL_lastzd2matchzd2_20033;
																																					obj_t
																																						BgL_iportz00_20032;
																																					BgL_iportz00_20032
																																						=
																																						BgL_iportz00_7548;
																																					BgL_lastzd2matchzd2_20033
																																						=
																																						BgL_newzd2matchzd2_7553;
																																					BgL_forwardz00_20034
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_7550);
																																					BgL_bufposz00_20036
																																						=
																																						BgL_bufposz00_7551;
																																					BgL_bufposz00_3856
																																						=
																																						BgL_bufposz00_20036;
																																					BgL_forwardz00_3855
																																						=
																																						BgL_forwardz00_20034;
																																					BgL_lastzd2matchzd2_3854
																																						=
																																						BgL_lastzd2matchzd2_20033;
																																					BgL_iportz00_3853
																																						=
																																						BgL_iportz00_20032;
																																					goto
																																						BgL_zc3z04anonymousza32710ze3z87_3857;
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test7226z00_20037;
																																					if ((
																																							(long)
																																							(BgL_curz00_7558)
																																							<
																																							33L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7226z00_20037
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test7228z00_20041;
																																							if (((long) (BgL_curz00_7558) == 35L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7228z00_20041
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7228z00_20041
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_7558)
																																										==
																																										34L);
																																								}
																																							if (BgL_test7228z00_20041)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7226z00_20037
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test7230z00_20047;
																																									if (((long) (BgL_curz00_7558) == 41L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7230z00_20047
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7230z00_20047
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_7558)
																																												==
																																												40L);
																																										}
																																									if (BgL_test7230z00_20047)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7226z00_20037
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_7558) == 46L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7226z00_20037
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_7558) == 59L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7226z00_20037
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_7558) == 91L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7226z00_20037
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_7558) == 93L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7226z00_20037
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test7236z00_20065;
																																																			if (((long) (BgL_curz00_7558) == 125L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7236z00_20065
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_7558) == 124L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7236z00_20065
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7236z00_20065
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_7558)
																																																								==
																																																								123L);
																																																				}}
																																																			if (BgL_test7236z00_20065)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7226z00_20037
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7226z00_20037
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_7558)
																																																						==
																																																						127L);
																																						}}}}}}}}
																																					if (BgL_test7226z00_20037)
																																						{	/* Read/reader.scm 441 */
																																							BgL_matchz00_9716
																																								=
																																								BgL_newzd2matchzd2_7553;
																																						}
																																					else
																																						{
																																							long
																																								BgL_forwardz00_20077;
																																							long
																																								BgL_lastzd2matchzd2_20076;
																																							BgL_lastzd2matchzd2_20076
																																								=
																																								BgL_newzd2matchzd2_7553;
																																							BgL_forwardz00_20077
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_7550);
																																							BgL_forwardz00_7550
																																								=
																																								BgL_forwardz00_20077;
																																							BgL_lastzd2matchzd2_7549
																																								=
																																								BgL_lastzd2matchzd2_20076;
																																							goto
																																								BgL_zc3z04anonymousza34743ze3z87_7552;
																																						}
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test7239z00_20080;
																															if (((long)
																																	(BgL_curz00_9298)
																																	< 33L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test7239z00_20080
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test7241z00_20084;
																																	if (((long)
																																			(BgL_curz00_9298)
																																			== 35L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7241z00_20084
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7241z00_20084
																																				=
																																				((long)
																																				(BgL_curz00_9298)
																																				== 34L);
																																		}
																																	if (BgL_test7241z00_20084)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7239z00_20080
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test7243z00_20090;
																																			if ((
																																					(long)
																																					(BgL_curz00_9298)
																																					==
																																					41L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7243z00_20090
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_9298) == 40L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7243z00_20090
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7243z00_20090
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9298)
																																								==
																																								39L);
																																				}}
																																			if (BgL_test7243z00_20090)
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7239z00_20080
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_9298) == 44L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7239z00_20080
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_9298) == 46L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7239z00_20080
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_9298) == 59L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7239z00_20080
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_9298) == 91L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7239z00_20080
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_9298) == 93L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7239z00_20080
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9298) == 96L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7239z00_20080
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test7252z00_20117;
																																																	if (((long) (BgL_curz00_9298) == 125L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7252z00_20117
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_9298) == 124L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7252z00_20117
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7252z00_20117
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9298)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test7252z00_20117)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7239z00_20080
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7239z00_20080
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9298)
																																																				==
																																																				127L);
																																}}}}}}}}}}
																															if (BgL_test7239z00_20080)
																																{	/* Read/reader.scm 441 */
																																	BgL_matchz00_9716
																																		=
																																		BgL_newzd2matchzd2_9293;
																																}
																															else
																																{
																																	long
																																		BgL_forwardz00_20129;
																																	long
																																		BgL_lastzd2matchzd2_20128;
																																	BgL_lastzd2matchzd2_20128
																																		=
																																		BgL_newzd2matchzd2_9293;
																																	BgL_forwardz00_20129
																																		=
																																		(1L +
																																		BgL_forwardz00_9290);
																																	BgL_forwardz00_9290
																																		=
																																		BgL_forwardz00_20129;
																																	BgL_lastzd2matchzd2_9289
																																		=
																																		BgL_lastzd2matchzd2_20128;
																																	goto
																																		BgL_zc3z04anonymousza35623ze3z87_9292;
																																}
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							bool_t BgL_test7255z00_20132;

																							if (
																								((long) (BgL_curz00_5979) >=
																									48L))
																								{	/* Read/reader.scm 441 */
																									BgL_test7255z00_20132 =
																										(
																										(long) (BgL_curz00_5979) <
																										58L);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									BgL_test7255z00_20132 =
																										((bool_t) 0);
																								}
																							if (BgL_test7255z00_20132)
																								{
																									long BgL_forwardz00_20139;
																									long
																										BgL_lastzd2matchzd2_20138;
																									BgL_lastzd2matchzd2_20138 =
																										BgL_newzd2matchzd2_5974;
																									BgL_forwardz00_20139 =
																										(1L + BgL_forwardz00_5971);
																									BgL_forwardz00_5971 =
																										BgL_forwardz00_20139;
																									BgL_lastzd2matchzd2_5970 =
																										BgL_lastzd2matchzd2_20138;
																									goto
																										BgL_zc3z04anonymousza33929ze3z87_5973;
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									if (
																										((long) (BgL_curz00_5979) ==
																											46L))
																										{	/* Read/reader.scm 441 */
																											BgL_iportz00_5835 =
																												BgL_iportz00_5969;
																											BgL_lastzd2matchzd2_5836 =
																												BgL_newzd2matchzd2_5974;
																											BgL_forwardz00_5837 =
																												(1L +
																												BgL_forwardz00_5971);
																											BgL_bufposz00_5838 =
																												BgL_bufposz00_5972;
																										BgL_zc3z04anonymousza33865ze3z87_5839:
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_newzd2matchzd2_5840;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_20144;
																													BgL_tmpz00_20144 =
																														((obj_t)
																														BgL_iportz00_5835);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_20144,
																														BgL_forwardz00_5837);
																												}
																												BgL_newzd2matchzd2_5840
																													= 20L;
																												if ((BgL_forwardz00_5837
																														==
																														BgL_bufposz00_5838))
																													{	/* Read/reader.scm 441 */
																														if (rgc_fill_buffer(
																																((obj_t)
																																	BgL_iportz00_5835)))
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_arg3868z00_5843;
																																long
																																	BgL_arg3869z00_5844;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_20152;
																																	BgL_tmpz00_20152
																																		=
																																		((obj_t)
																																		BgL_iportz00_5835);
																																	BgL_arg3868z00_5843
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_tmpz00_20152);
																																}
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_20155;
																																	BgL_tmpz00_20155
																																		=
																																		((obj_t)
																																		BgL_iportz00_5835);
																																	BgL_arg3869z00_5844
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_tmpz00_20155);
																																}
																																{
																																	long
																																		BgL_bufposz00_20159;
																																	long
																																		BgL_forwardz00_20158;
																																	BgL_forwardz00_20158
																																		=
																																		BgL_arg3868z00_5843;
																																	BgL_bufposz00_20159
																																		=
																																		BgL_arg3869z00_5844;
																																	BgL_bufposz00_5838
																																		=
																																		BgL_bufposz00_20159;
																																	BgL_forwardz00_5837
																																		=
																																		BgL_forwardz00_20158;
																																	goto
																																		BgL_zc3z04anonymousza33865ze3z87_5839;
																																}
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																BgL_matchz00_9716
																																	=
																																	BgL_newzd2matchzd2_5840;
																															}
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														int BgL_curz00_5845;

																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_20160;
																															BgL_tmpz00_20160 =
																																((obj_t)
																																BgL_iportz00_5835);
																															BgL_curz00_5845 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_tmpz00_20160,
																																BgL_forwardz00_5837);
																														}
																														{	/* Read/reader.scm 441 */

																															if (
																																((long)
																																	(BgL_curz00_5845)
																																	== 58L))
																																{
																																	long
																																		BgL_bufposz00_20170;
																																	long
																																		BgL_forwardz00_20168;
																																	long
																																		BgL_lastzd2matchzd2_20167;
																																	obj_t
																																		BgL_iportz00_20166;
																																	BgL_iportz00_20166
																																		=
																																		BgL_iportz00_5835;
																																	BgL_lastzd2matchzd2_20167
																																		=
																																		BgL_newzd2matchzd2_5840;
																																	BgL_forwardz00_20168
																																		=
																																		(1L +
																																		BgL_forwardz00_5837);
																																	BgL_bufposz00_20170
																																		=
																																		BgL_bufposz00_5838;
																																	BgL_bufposz00_4763
																																		=
																																		BgL_bufposz00_20170;
																																	BgL_forwardz00_4762
																																		=
																																		BgL_forwardz00_20168;
																																	BgL_lastzd2matchzd2_4761
																																		=
																																		BgL_lastzd2matchzd2_20167;
																																	BgL_iportz00_4760
																																		=
																																		BgL_iportz00_20166;
																																	goto
																																		BgL_zc3z04anonymousza33288ze3z87_4764;
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test7261z00_20171;
																																	if (((long)
																																			(BgL_curz00_5845)
																																			== 39L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7261z00_20171
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_5845)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7261z00_20171
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7261z00_20171
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_5845)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test7261z00_20171)
																																		{
																																			long
																																				BgL_bufposz00_20184;
																																			long
																																				BgL_forwardz00_20182;
																																			long
																																				BgL_lastzd2matchzd2_20181;
																																			obj_t
																																				BgL_iportz00_20180;
																																			BgL_iportz00_20180
																																				=
																																				BgL_iportz00_5835;
																																			BgL_lastzd2matchzd2_20181
																																				=
																																				BgL_newzd2matchzd2_5840;
																																			BgL_forwardz00_20182
																																				=
																																				(1L +
																																				BgL_forwardz00_5837);
																																			BgL_bufposz00_20184
																																				=
																																				BgL_bufposz00_5838;
																																			BgL_bufposz00_7366
																																				=
																																				BgL_bufposz00_20184;
																																			BgL_forwardz00_7365
																																				=
																																				BgL_forwardz00_20182;
																																			BgL_lastzd2matchzd2_7364
																																				=
																																				BgL_lastzd2matchzd2_20181;
																																			BgL_iportz00_7363
																																				=
																																				BgL_iportz00_20180;
																																			goto
																																				BgL_zc3z04anonymousza34647ze3z87_7367;
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test7264z00_20185;
																																			if ((
																																					(long)
																																					(BgL_curz00_5845)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7264z00_20185
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test7266z00_20189;
																																					if ((
																																							(long)
																																							(BgL_curz00_5845)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7266z00_20189
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7266z00_20189
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5845)
																																								==
																																								34L);
																																						}
																																					if (BgL_test7266z00_20189)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7264z00_20185
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test7268z00_20195;
																																							if (((long) (BgL_curz00_5845) == 41L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7268z00_20195
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_5845) == 40L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7268z00_20195
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7268z00_20195
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5845)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test7268z00_20195)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7264z00_20185
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_5845) == 44L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7264z00_20185
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test7272z00_20207;
																																											if (((long) (BgL_curz00_5845) == 59L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7272z00_20207
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7272z00_20207
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5845)
																																														==
																																														58L);
																																												}
																																											if (BgL_test7272z00_20207)
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7264z00_20185
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_5845) == 91L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7264z00_20185
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_5845) == 93L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7264z00_20185
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_5845) == 96L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7264z00_20185
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test7277z00_20222;
																																																			if (((long) (BgL_curz00_5845) == 125L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7277z00_20222
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_5845) == 124L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7277z00_20222
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7277z00_20222
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_5845)
																																																								==
																																																								123L);
																																																				}}
																																																			if (BgL_test7277z00_20222)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7264z00_20185
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7264z00_20185
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_5845)
																																																						==
																																																						127L);
																																				}}}}}}}}}
																																			if (BgL_test7264z00_20185)
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_5840;
																																				}
																																			else
																																				{
																																					long
																																						BgL_forwardz00_20234;
																																					long
																																						BgL_lastzd2matchzd2_20233;
																																					BgL_lastzd2matchzd2_20233
																																						=
																																						BgL_newzd2matchzd2_5840;
																																					BgL_forwardz00_20234
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5837);
																																					BgL_forwardz00_5837
																																						=
																																						BgL_forwardz00_20234;
																																					BgL_lastzd2matchzd2_5836
																																						=
																																						BgL_lastzd2matchzd2_20233;
																																					goto
																																						BgL_zc3z04anonymousza33865ze3z87_5839;
																																				}
																																		}
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											bool_t
																												BgL_test7280z00_20237;
																											if (((long)
																													(BgL_curz00_5979) ==
																													39L))
																												{	/* Read/reader.scm 441 */
																													BgL_test7280z00_20237
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													if (
																														((long)
																															(BgL_curz00_5979)
																															== 44L))
																														{	/* Read/reader.scm 441 */
																															BgL_test7280z00_20237
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_test7280z00_20237
																																=
																																((long)
																																(BgL_curz00_5979)
																																== 96L);
																												}}
																											if (BgL_test7280z00_20237)
																												{
																													long
																														BgL_bufposz00_20250;
																													long
																														BgL_forwardz00_20248;
																													long
																														BgL_lastzd2matchzd2_20247;
																													obj_t
																														BgL_iportz00_20246;
																													BgL_iportz00_20246 =
																														BgL_iportz00_5969;
																													BgL_lastzd2matchzd2_20247
																														=
																														BgL_newzd2matchzd2_5974;
																													BgL_forwardz00_20248 =
																														(1L +
																														BgL_forwardz00_5971);
																													BgL_bufposz00_20250 =
																														BgL_bufposz00_5972;
																													BgL_bufposz00_7366 =
																														BgL_bufposz00_20250;
																													BgL_forwardz00_7365 =
																														BgL_forwardz00_20248;
																													BgL_lastzd2matchzd2_7364
																														=
																														BgL_lastzd2matchzd2_20247;
																													BgL_iportz00_7363 =
																														BgL_iportz00_20246;
																													goto
																														BgL_zc3z04anonymousza34647ze3z87_7367;
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test7283z00_20251;
																													if (((long)
																															(BgL_curz00_5979)
																															< 33L))
																														{	/* Read/reader.scm 441 */
																															BgL_test7283z00_20251
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test7285z00_20255;
																															if (((long)
																																	(BgL_curz00_5979)
																																	== 35L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test7285z00_20255
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test7285z00_20255
																																		=
																																		((long)
																																		(BgL_curz00_5979)
																																		== 34L);
																																}
																															if (BgL_test7285z00_20255)
																																{	/* Read/reader.scm 441 */
																																	BgL_test7283z00_20251
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test7287z00_20261;
																																	if (((long)
																																			(BgL_curz00_5979)
																																			== 41L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7287z00_20261
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_5979)
																																					==
																																					40L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7287z00_20261
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7287z00_20261
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_5979)
																																						==
																																						39L);
																																		}}
																																	if (BgL_test7287z00_20261)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7283z00_20251
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_5979)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7283z00_20251
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_5979) == 46L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7283z00_20251
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test7292z00_20276;
																																							if (((long) (BgL_curz00_5979) >= 48L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7292z00_20276
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5979)
																																										<
																																										60L);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7292z00_20276
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test7292z00_20276)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7283z00_20251
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_5979) == 91L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7283z00_20251
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_5979) == 93L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7283z00_20251
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_5979) == 96L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7283z00_20251
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test7297z00_20291;
																																															if (((long) (BgL_curz00_5979) == 125L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7297z00_20291
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_5979) == 124L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7297z00_20291
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7297z00_20291
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_5979)
																																																				==
																																																				123L);
																																																}}
																																															if (BgL_test7297z00_20291)
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7283z00_20251
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7283z00_20251
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5979)
																																																		==
																																																		127L);
																														}}}}}}}}}}
																													if (BgL_test7283z00_20251)
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_5974;
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_iportz00_9142
																																=
																																BgL_iportz00_5969;
																															BgL_lastzd2matchzd2_9143
																																=
																																BgL_newzd2matchzd2_5974;
																															BgL_forwardz00_9144
																																=
																																(1L +
																																BgL_forwardz00_5971);
																															BgL_bufposz00_9145
																																=
																																BgL_bufposz00_5972;
																														BgL_zc3z04anonymousza35549ze3z87_9146:
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_newzd2matchzd2_9147;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_20302;
																																	BgL_tmpz00_20302
																																		=
																																		((obj_t)
																																		BgL_iportz00_9142);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_20302,
																																		BgL_forwardz00_9144);
																																}
																																BgL_newzd2matchzd2_9147
																																	= 20L;
																																if (
																																	(BgL_forwardz00_9144
																																		==
																																		BgL_bufposz00_9145))
																																	{	/* Read/reader.scm 441 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_9142)))
																																			{	/* Read/reader.scm 441 */
																																				long
																																					BgL_arg5552z00_9150;
																																				long
																																					BgL_arg5553z00_9151;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_20310;
																																					BgL_tmpz00_20310
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_9142);
																																					BgL_arg5552z00_9150
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_20310);
																																				}
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_20313;
																																					BgL_tmpz00_20313
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_9142);
																																					BgL_arg5553z00_9151
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_20313);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_20317;
																																					long
																																						BgL_forwardz00_20316;
																																					BgL_forwardz00_20316
																																						=
																																						BgL_arg5552z00_9150;
																																					BgL_bufposz00_20317
																																						=
																																						BgL_arg5553z00_9151;
																																					BgL_bufposz00_9145
																																						=
																																						BgL_bufposz00_20317;
																																					BgL_forwardz00_9144
																																						=
																																						BgL_forwardz00_20316;
																																					goto
																																						BgL_zc3z04anonymousza35549ze3z87_9146;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_9147;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		int
																																			BgL_curz00_9152;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_20318;
																																			BgL_tmpz00_20318
																																				=
																																				((obj_t)
																																				BgL_iportz00_9142);
																																			BgL_curz00_9152
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_20318,
																																				BgL_forwardz00_9144);
																																		}
																																		{	/* Read/reader.scm 441 */

																																			if (
																																				((long)
																																					(BgL_curz00_9152)
																																					==
																																					58L))
																																				{
																																					long
																																						BgL_bufposz00_20328;
																																					long
																																						BgL_forwardz00_20326;
																																					long
																																						BgL_lastzd2matchzd2_20325;
																																					obj_t
																																						BgL_iportz00_20324;
																																					BgL_iportz00_20324
																																						=
																																						BgL_iportz00_9142;
																																					BgL_lastzd2matchzd2_20325
																																						=
																																						BgL_newzd2matchzd2_9147;
																																					BgL_forwardz00_20326
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_9144);
																																					BgL_bufposz00_20328
																																						=
																																						BgL_bufposz00_9145;
																																					BgL_bufposz00_9291
																																						=
																																						BgL_bufposz00_20328;
																																					BgL_forwardz00_9290
																																						=
																																						BgL_forwardz00_20326;
																																					BgL_lastzd2matchzd2_9289
																																						=
																																						BgL_lastzd2matchzd2_20325;
																																					BgL_iportz00_9288
																																						=
																																						BgL_iportz00_20324;
																																					goto
																																						BgL_zc3z04anonymousza35623ze3z87_9292;
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_9152) == 46L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_iportz00_7989
																																								=
																																								BgL_iportz00_9142;
																																							BgL_lastzd2matchzd2_7990
																																								=
																																								BgL_newzd2matchzd2_9147;
																																							BgL_forwardz00_7991
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_9144);
																																							BgL_bufposz00_7992
																																								=
																																								BgL_bufposz00_9145;
																																						BgL_zc3z04anonymousza34962ze3z87_7993:
																																							{	/* Read/reader.scm 441 */
																																								long
																																									BgL_newzd2matchzd2_7994;
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_20332;
																																									BgL_tmpz00_20332
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_7989);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_20332,
																																										BgL_forwardz00_7991);
																																								}
																																								BgL_newzd2matchzd2_7994
																																									=
																																									20L;
																																								if ((BgL_forwardz00_7991 == BgL_bufposz00_7992))
																																									{	/* Read/reader.scm 441 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_7989)))
																																											{	/* Read/reader.scm 441 */
																																												long
																																													BgL_arg4965z00_7997;
																																												long
																																													BgL_arg4966z00_7998;
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_20340;
																																													BgL_tmpz00_20340
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7989);
																																													BgL_arg4965z00_7997
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_20340);
																																												}
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_20343;
																																													BgL_tmpz00_20343
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7989);
																																													BgL_arg4966z00_7998
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_20343);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_20347;
																																													long
																																														BgL_forwardz00_20346;
																																													BgL_forwardz00_20346
																																														=
																																														BgL_arg4965z00_7997;
																																													BgL_bufposz00_20347
																																														=
																																														BgL_arg4966z00_7998;
																																													BgL_bufposz00_7992
																																														=
																																														BgL_bufposz00_20347;
																																													BgL_forwardz00_7991
																																														=
																																														BgL_forwardz00_20346;
																																													goto
																																														BgL_zc3z04anonymousza34962ze3z87_7993;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_matchz00_9716
																																													=
																																													BgL_newzd2matchzd2_7994;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										int
																																											BgL_curz00_7999;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_20348;
																																											BgL_tmpz00_20348
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_7989);
																																											BgL_curz00_7999
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_20348,
																																												BgL_forwardz00_7991);
																																										}
																																										{	/* Read/reader.scm 441 */

																																											if (((long) (BgL_curz00_7999) == 58L))
																																												{
																																													long
																																														BgL_bufposz00_20358;
																																													long
																																														BgL_forwardz00_20356;
																																													long
																																														BgL_lastzd2matchzd2_20355;
																																													obj_t
																																														BgL_iportz00_20354;
																																													BgL_iportz00_20354
																																														=
																																														BgL_iportz00_7989;
																																													BgL_lastzd2matchzd2_20355
																																														=
																																														BgL_newzd2matchzd2_7994;
																																													BgL_forwardz00_20356
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_7991);
																																													BgL_bufposz00_20358
																																														=
																																														BgL_bufposz00_7992;
																																													BgL_bufposz00_5374
																																														=
																																														BgL_bufposz00_20358;
																																													BgL_forwardz00_5373
																																														=
																																														BgL_forwardz00_20356;
																																													BgL_lastzd2matchzd2_5372
																																														=
																																														BgL_lastzd2matchzd2_20355;
																																													BgL_iportz00_5371
																																														=
																																														BgL_iportz00_20354;
																																													goto
																																														BgL_zc3z04anonymousza33626ze3z87_5375;
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test7307z00_20359;
																																													if (((long) (BgL_curz00_7999) >= 48L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7307z00_20359
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_7999)
																																																<
																																																58L);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7307z00_20359
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test7307z00_20359)
																																														{
																																															long
																																																BgL_forwardz00_20366;
																																															long
																																																BgL_lastzd2matchzd2_20365;
																																															BgL_lastzd2matchzd2_20365
																																																=
																																																BgL_newzd2matchzd2_7994;
																																															BgL_forwardz00_20366
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_7991);
																																															BgL_forwardz00_7991
																																																=
																																																BgL_forwardz00_20366;
																																															BgL_lastzd2matchzd2_7990
																																																=
																																																BgL_lastzd2matchzd2_20365;
																																															goto
																																																BgL_zc3z04anonymousza34962ze3z87_7993;
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_7999) == 46L))
																																																{
																																																	long
																																																		BgL_bufposz00_20375;
																																																	long
																																																		BgL_forwardz00_20373;
																																																	long
																																																		BgL_lastzd2matchzd2_20372;
																																																	obj_t
																																																		BgL_iportz00_20371;
																																																	BgL_iportz00_20371
																																																		=
																																																		BgL_iportz00_7989;
																																																	BgL_lastzd2matchzd2_20372
																																																		=
																																																		BgL_newzd2matchzd2_7994;
																																																	BgL_forwardz00_20373
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_7991);
																																																	BgL_bufposz00_20375
																																																		=
																																																		BgL_bufposz00_7992;
																																																	BgL_bufposz00_5838
																																																		=
																																																		BgL_bufposz00_20375;
																																																	BgL_forwardz00_5837
																																																		=
																																																		BgL_forwardz00_20373;
																																																	BgL_lastzd2matchzd2_5836
																																																		=
																																																		BgL_lastzd2matchzd2_20372;
																																																	BgL_iportz00_5835
																																																		=
																																																		BgL_iportz00_20371;
																																																	goto
																																																		BgL_zc3z04anonymousza33865ze3z87_5839;
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test7310z00_20376;
																																																	if (((long) (BgL_curz00_7999) == 39L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7310z00_20376
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_7999) == 44L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7310z00_20376
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7310z00_20376
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_7999)
																																																						==
																																																						96L);
																																																		}}
																																																	if (BgL_test7310z00_20376)
																																																		{
																																																			long
																																																				BgL_bufposz00_20389;
																																																			long
																																																				BgL_forwardz00_20387;
																																																			long
																																																				BgL_lastzd2matchzd2_20386;
																																																			obj_t
																																																				BgL_iportz00_20385;
																																																			BgL_iportz00_20385
																																																				=
																																																				BgL_iportz00_7989;
																																																			BgL_lastzd2matchzd2_20386
																																																				=
																																																				BgL_newzd2matchzd2_7994;
																																																			BgL_forwardz00_20387
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_7991);
																																																			BgL_bufposz00_20389
																																																				=
																																																				BgL_bufposz00_7992;
																																																			BgL_bufposz00_7366
																																																				=
																																																				BgL_bufposz00_20389;
																																																			BgL_forwardz00_7365
																																																				=
																																																				BgL_forwardz00_20387;
																																																			BgL_lastzd2matchzd2_7364
																																																				=
																																																				BgL_lastzd2matchzd2_20386;
																																																			BgL_iportz00_7363
																																																				=
																																																				BgL_iportz00_20385;
																																																			goto
																																																				BgL_zc3z04anonymousza34647ze3z87_7367;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test7313z00_20390;
																																																			if (((long) (BgL_curz00_7999) < 33L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7313z00_20390
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test7315z00_20394;
																																																					if (((long) (BgL_curz00_7999) == 35L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7315z00_20394
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7315z00_20394
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_7999)
																																																								==
																																																								34L);
																																																						}
																																																					if (BgL_test7315z00_20394)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7313z00_20390
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test7317z00_20400;
																																																							if (((long) (BgL_curz00_7999) == 41L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test7317z00_20400
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_7999) == 40L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test7317z00_20400
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test7317z00_20400
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_7999)
																																																												==
																																																												39L);
																																																								}}
																																																							if (BgL_test7317z00_20400)
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test7313z00_20390
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_7999) == 44L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test7313z00_20390
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_7999) == 46L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test7313z00_20390
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test7322z00_20415;
																																																													if (((long) (BgL_curz00_7999) >= 48L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7322z00_20415
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_7999)
																																																																<
																																																																60L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7322z00_20415
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test7322z00_20415)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7313z00_20390
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															if (((long) (BgL_curz00_7999) == 91L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test7313z00_20390
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_7999) == 93L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test7313z00_20390
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_7999) == 96L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test7313z00_20390
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					bool_t
																																																																						BgL_test7327z00_20430;
																																																																					if (((long) (BgL_curz00_7999) == 125L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test7327z00_20430
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_7999) == 124L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test7327z00_20430
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test7327z00_20430
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_7999)
																																																																										==
																																																																										123L);
																																																																						}}
																																																																					if (BgL_test7327z00_20430)
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test7313z00_20390
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test7313z00_20390
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_7999)
																																																																								==
																																																																								127L);
																																																				}}}}}}}}}}
																																																			if (BgL_test7313z00_20390)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_matchz00_9716
																																																						=
																																																						BgL_newzd2matchzd2_7994;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_iportz00_7241
																																																						=
																																																						BgL_iportz00_7989;
																																																					BgL_lastzd2matchzd2_7242
																																																						=
																																																						BgL_newzd2matchzd2_7994;
																																																					BgL_forwardz00_7243
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_7991);
																																																					BgL_bufposz00_7244
																																																						=
																																																						BgL_bufposz00_7992;
																																																				BgL_zc3z04anonymousza34585ze3z87_7245:
																																																					{	/* Read/reader.scm 441 */
																																																						long
																																																							BgL_newzd2matchzd2_7246;
																																																						{	/* Read/reader.scm 441 */
																																																							obj_t
																																																								BgL_tmpz00_20441;
																																																							BgL_tmpz00_20441
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_7241);
																																																							RGC_STOP_MATCH
																																																								(BgL_tmpz00_20441,
																																																								BgL_forwardz00_7243);
																																																						}
																																																						BgL_newzd2matchzd2_7246
																																																							=
																																																							20L;
																																																						if ((BgL_forwardz00_7243 == BgL_bufposz00_7244))
																																																							{	/* Read/reader.scm 441 */
																																																								if (rgc_fill_buffer(((obj_t) BgL_iportz00_7241)))
																																																									{	/* Read/reader.scm 441 */
																																																										long
																																																											BgL_arg4588z00_7249;
																																																										long
																																																											BgL_arg4589z00_7250;
																																																										{	/* Read/reader.scm 441 */
																																																											obj_t
																																																												BgL_tmpz00_20449;
																																																											BgL_tmpz00_20449
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_7241);
																																																											BgL_arg4588z00_7249
																																																												=
																																																												RGC_BUFFER_FORWARD
																																																												(BgL_tmpz00_20449);
																																																										}
																																																										{	/* Read/reader.scm 441 */
																																																											obj_t
																																																												BgL_tmpz00_20452;
																																																											BgL_tmpz00_20452
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_7241);
																																																											BgL_arg4589z00_7250
																																																												=
																																																												RGC_BUFFER_BUFPOS
																																																												(BgL_tmpz00_20452);
																																																										}
																																																										{
																																																											long
																																																												BgL_bufposz00_20456;
																																																											long
																																																												BgL_forwardz00_20455;
																																																											BgL_forwardz00_20455
																																																												=
																																																												BgL_arg4588z00_7249;
																																																											BgL_bufposz00_20456
																																																												=
																																																												BgL_arg4589z00_7250;
																																																											BgL_bufposz00_7244
																																																												=
																																																												BgL_bufposz00_20456;
																																																											BgL_forwardz00_7243
																																																												=
																																																												BgL_forwardz00_20455;
																																																											goto
																																																												BgL_zc3z04anonymousza34585ze3z87_7245;
																																																										}
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_matchz00_9716
																																																											=
																																																											BgL_newzd2matchzd2_7246;
																																																									}
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								int
																																																									BgL_curz00_7251;
																																																								{	/* Read/reader.scm 441 */
																																																									obj_t
																																																										BgL_tmpz00_20457;
																																																									BgL_tmpz00_20457
																																																										=
																																																										(
																																																										(obj_t)
																																																										BgL_iportz00_7241);
																																																									BgL_curz00_7251
																																																										=
																																																										RGC_BUFFER_GET_CHAR
																																																										(BgL_tmpz00_20457,
																																																										BgL_forwardz00_7243);
																																																								}
																																																								{	/* Read/reader.scm 441 */

																																																									if (((long) (BgL_curz00_7251) == 58L))
																																																										{
																																																											long
																																																												BgL_bufposz00_20467;
																																																											long
																																																												BgL_forwardz00_20465;
																																																											long
																																																												BgL_lastzd2matchzd2_20464;
																																																											obj_t
																																																												BgL_iportz00_20463;
																																																											BgL_iportz00_20463
																																																												=
																																																												BgL_iportz00_7241;
																																																											BgL_lastzd2matchzd2_20464
																																																												=
																																																												BgL_newzd2matchzd2_7246;
																																																											BgL_forwardz00_20465
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_7243);
																																																											BgL_bufposz00_20467
																																																												=
																																																												BgL_bufposz00_7244;
																																																											BgL_bufposz00_5374
																																																												=
																																																												BgL_bufposz00_20467;
																																																											BgL_forwardz00_5373
																																																												=
																																																												BgL_forwardz00_20465;
																																																											BgL_lastzd2matchzd2_5372
																																																												=
																																																												BgL_lastzd2matchzd2_20464;
																																																											BgL_iportz00_5371
																																																												=
																																																												BgL_iportz00_20463;
																																																											goto
																																																												BgL_zc3z04anonymousza33626ze3z87_5375;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_7251) == 46L))
																																																												{
																																																													long
																																																														BgL_bufposz00_20475;
																																																													long
																																																														BgL_forwardz00_20473;
																																																													long
																																																														BgL_lastzd2matchzd2_20472;
																																																													obj_t
																																																														BgL_iportz00_20471;
																																																													BgL_iportz00_20471
																																																														=
																																																														BgL_iportz00_7241;
																																																													BgL_lastzd2matchzd2_20472
																																																														=
																																																														BgL_newzd2matchzd2_7246;
																																																													BgL_forwardz00_20473
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_7243);
																																																													BgL_bufposz00_20475
																																																														=
																																																														BgL_bufposz00_7244;
																																																													BgL_bufposz00_7992
																																																														=
																																																														BgL_bufposz00_20475;
																																																													BgL_forwardz00_7991
																																																														=
																																																														BgL_forwardz00_20473;
																																																													BgL_lastzd2matchzd2_7990
																																																														=
																																																														BgL_lastzd2matchzd2_20472;
																																																													BgL_iportz00_7989
																																																														=
																																																														BgL_iportz00_20471;
																																																													goto
																																																														BgL_zc3z04anonymousza34962ze3z87_7993;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test7334z00_20476;
																																																													if (((long) (BgL_curz00_7251) == 39L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7334z00_20476
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															if (((long) (BgL_curz00_7251) == 44L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test7334z00_20476
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test7334z00_20476
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_7251)
																																																																		==
																																																																		96L);
																																																														}}
																																																													if (BgL_test7334z00_20476)
																																																														{
																																																															long
																																																																BgL_bufposz00_20489;
																																																															long
																																																																BgL_forwardz00_20487;
																																																															long
																																																																BgL_lastzd2matchzd2_20486;
																																																															obj_t
																																																																BgL_iportz00_20485;
																																																															BgL_iportz00_20485
																																																																=
																																																																BgL_iportz00_7241;
																																																															BgL_lastzd2matchzd2_20486
																																																																=
																																																																BgL_newzd2matchzd2_7246;
																																																															BgL_forwardz00_20487
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_7243);
																																																															BgL_bufposz00_20489
																																																																=
																																																																BgL_bufposz00_7244;
																																																															BgL_bufposz00_5795
																																																																=
																																																																BgL_bufposz00_20489;
																																																															BgL_forwardz00_5794
																																																																=
																																																																BgL_forwardz00_20487;
																																																															BgL_lastzd2matchzd2_5793
																																																																=
																																																																BgL_lastzd2matchzd2_20486;
																																																															BgL_iportz00_5792
																																																																=
																																																																BgL_iportz00_20485;
																																																															goto
																																																																BgL_zc3z04anonymousza33844ze3z87_5796;
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test7337z00_20490;
																																																															if (((long) (BgL_curz00_7251) < 33L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test7337z00_20490
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	bool_t
																																																																		BgL_test7339z00_20494;
																																																																	if (((long) (BgL_curz00_7251) == 35L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test7339z00_20494
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test7339z00_20494
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_7251)
																																																																				==
																																																																				34L);
																																																																		}
																																																																	if (BgL_test7339z00_20494)
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test7337z00_20490
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			bool_t
																																																																				BgL_test7341z00_20500;
																																																																			if (((long) (BgL_curz00_7251) == 41L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test7341z00_20500
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					if (((long) (BgL_curz00_7251) == 40L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test7341z00_20500
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test7341z00_20500
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_7251)
																																																																								==
																																																																								39L);
																																																																				}}
																																																																			if (BgL_test7341z00_20500)
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test7337z00_20490
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					if (((long) (BgL_curz00_7251) == 44L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test7337z00_20490
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_7251) == 46L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test7337z00_20490
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									bool_t
																																																																										BgL_test7346z00_20515;
																																																																									if (((long) (BgL_curz00_7251) == 59L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test7346z00_20515
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test7346z00_20515
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_7251)
																																																																												==
																																																																												58L);
																																																																										}
																																																																									if (BgL_test7346z00_20515)
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test7337z00_20490
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											if (((long) (BgL_curz00_7251) == 91L))
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test7337z00_20490
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													if (((long) (BgL_curz00_7251) == 93L))
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test7337z00_20490
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															if (((long) (BgL_curz00_7251) == 96L))
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test7337z00_20490
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	bool_t
																																																																																		BgL_test7351z00_20530;
																																																																																	if (((long) (BgL_curz00_7251) == 125L))
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test7351z00_20530
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			if (((long) (BgL_curz00_7251) == 124L))
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					BgL_test7351z00_20530
																																																																																						=
																																																																																						(
																																																																																						(bool_t)
																																																																																						1);
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					BgL_test7351z00_20530
																																																																																						=
																																																																																						(
																																																																																						(long)
																																																																																						(BgL_curz00_7251)
																																																																																						==
																																																																																						123L);
																																																																																		}}
																																																																																	if (BgL_test7351z00_20530)
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test7337z00_20490
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test7337z00_20490
																																																																																				=
																																																																																				(
																																																																																				(long)
																																																																																				(BgL_curz00_7251)
																																																																																				==
																																																																																				127L);
																																																																}}}}}}}}}}
																																																															if (BgL_test7337z00_20490)
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_matchz00_9716
																																																																		=
																																																																		BgL_newzd2matchzd2_7246;
																																																																}
																																																															else
																																																																{
																																																																	long
																																																																		BgL_forwardz00_20542;
																																																																	long
																																																																		BgL_lastzd2matchzd2_20541;
																																																																	BgL_lastzd2matchzd2_20541
																																																																		=
																																																																		BgL_newzd2matchzd2_7246;
																																																																	BgL_forwardz00_20542
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_7243);
																																																																	BgL_forwardz00_7243
																																																																		=
																																																																		BgL_forwardz00_20542;
																																																																	BgL_lastzd2matchzd2_7242
																																																																		=
																																																																		BgL_lastzd2matchzd2_20541;
																																																																	goto
																																																																		BgL_zc3z04anonymousza34585ze3z87_7245;
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																							}
																																																					}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test7354z00_20546;
																																							if (((long) (BgL_curz00_9152) == 39L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7354z00_20546
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_9152) == 44L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7354z00_20546
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7354z00_20546
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9152)
																																												==
																																												96L);
																																								}}
																																							if (BgL_test7354z00_20546)
																																								{
																																									long
																																										BgL_bufposz00_20559;
																																									long
																																										BgL_forwardz00_20557;
																																									long
																																										BgL_lastzd2matchzd2_20556;
																																									obj_t
																																										BgL_iportz00_20555;
																																									BgL_iportz00_20555
																																										=
																																										BgL_iportz00_9142;
																																									BgL_lastzd2matchzd2_20556
																																										=
																																										BgL_newzd2matchzd2_9147;
																																									BgL_forwardz00_20557
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_9144);
																																									BgL_bufposz00_20559
																																										=
																																										BgL_bufposz00_9145;
																																									BgL_bufposz00_7551
																																										=
																																										BgL_bufposz00_20559;
																																									BgL_forwardz00_7550
																																										=
																																										BgL_forwardz00_20557;
																																									BgL_lastzd2matchzd2_7549
																																										=
																																										BgL_lastzd2matchzd2_20556;
																																									BgL_iportz00_7548
																																										=
																																										BgL_iportz00_20555;
																																									goto
																																										BgL_zc3z04anonymousza34743ze3z87_7552;
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test7357z00_20560;
																																									if (((long) (BgL_curz00_9152) < 33L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7357z00_20560
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test7359z00_20564;
																																											if (((long) (BgL_curz00_9152) == 35L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7359z00_20564
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7359z00_20564
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_9152)
																																														==
																																														34L);
																																												}
																																											if (BgL_test7359z00_20564)
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7357z00_20560
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test7361z00_20570;
																																													if (((long) (BgL_curz00_9152) == 41L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7361z00_20570
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9152) == 40L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7361z00_20570
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7361z00_20570
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_9152)
																																																		==
																																																		39L);
																																														}}
																																													if (BgL_test7361z00_20570)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7357z00_20560
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9152) == 44L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7357z00_20560
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_9152) == 46L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7357z00_20560
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test7366z00_20585;
																																																			if (((long) (BgL_curz00_9152) == 59L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7366z00_20585
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7366z00_20585
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9152)
																																																						==
																																																						58L);
																																																				}
																																																			if (BgL_test7366z00_20585)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7357z00_20560
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_9152) == 91L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7357z00_20560
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_9152) == 93L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test7357z00_20560
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_9152) == 96L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test7357z00_20560
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test7371z00_20600;
																																																											if (((long) (BgL_curz00_9152) == 125L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test7371z00_20600
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													if (((long) (BgL_curz00_9152) == 124L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7371z00_20600
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test7371z00_20600
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9152)
																																																																==
																																																																123L);
																																																												}}
																																																											if (BgL_test7371z00_20600)
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test7357z00_20560
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test7357z00_20560
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9152)
																																																														==
																																																														127L);
																																										}}}}}}}}}}
																																									if (BgL_test7357z00_20560)
																																										{	/* Read/reader.scm 441 */
																																											BgL_matchz00_9716
																																												=
																																												BgL_newzd2matchzd2_9147;
																																										}
																																									else
																																										{
																																											long
																																												BgL_forwardz00_20612;
																																											long
																																												BgL_lastzd2matchzd2_20611;
																																											BgL_lastzd2matchzd2_20611
																																												=
																																												BgL_newzd2matchzd2_9147;
																																											BgL_forwardz00_20612
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_9144);
																																											BgL_forwardz00_9144
																																												=
																																												BgL_forwardz00_20612;
																																											BgL_lastzd2matchzd2_9143
																																												=
																																												BgL_lastzd2matchzd2_20611;
																																											goto
																																												BgL_zc3z04anonymousza35549ze3z87_9146;
																																										}
																																								}
																																						}
																																				}
																																		}
																																	}
																															}
																														}
																												}
																										}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 441 */
																	bool_t BgL_test7374z00_20616;

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

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

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

																			BgL_test7374z00_20616 = ((bool_t) 1);
																			break;
																		default:
																			BgL_test7374z00_20616 =
																				((long) (BgL_curz00_4146) == 96L);
																		}
																	if (BgL_test7374z00_20616)
																		{	/* Read/reader.scm 441 */
																			BgL_iportz00_6103 = BgL_iportz00_4136;
																			BgL_lastzd2matchzd2_6104 =
																				BgL_newzd2matchzd2_4141;
																			BgL_forwardz00_6105 =
																				(1L + BgL_forwardz00_4138);
																			BgL_bufposz00_6106 = BgL_bufposz00_4139;
																		BgL_zc3z04anonymousza33993ze3z87_6107:
																			{	/* Read/reader.scm 441 */
																				long BgL_newzd2matchzd2_6108;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_20621;

																					BgL_tmpz00_20621 =
																						((obj_t) BgL_iportz00_6103);
																					RGC_STOP_MATCH(BgL_tmpz00_20621,
																						BgL_forwardz00_6105);
																				}
																				BgL_newzd2matchzd2_6108 = 22L;
																				if (
																					(BgL_forwardz00_6105 ==
																						BgL_bufposz00_6106))
																					{	/* Read/reader.scm 441 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_6103)))
																							{	/* Read/reader.scm 441 */
																								long BgL_arg3996z00_6111;
																								long BgL_arg3997z00_6112;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_20629;

																									BgL_tmpz00_20629 =
																										((obj_t) BgL_iportz00_6103);
																									BgL_arg3996z00_6111 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_20629);
																								}
																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_20632;

																									BgL_tmpz00_20632 =
																										((obj_t) BgL_iportz00_6103);
																									BgL_arg3997z00_6112 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_20632);
																								}
																								{
																									long BgL_bufposz00_20636;
																									long BgL_forwardz00_20635;

																									BgL_forwardz00_20635 =
																										BgL_arg3996z00_6111;
																									BgL_bufposz00_20636 =
																										BgL_arg3997z00_6112;
																									BgL_bufposz00_6106 =
																										BgL_bufposz00_20636;
																									BgL_forwardz00_6105 =
																										BgL_forwardz00_20635;
																									goto
																										BgL_zc3z04anonymousza33993ze3z87_6107;
																								}
																							}
																						else
																							{	/* Read/reader.scm 441 */
																								BgL_matchz00_9716 =
																									BgL_newzd2matchzd2_6108;
																							}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						int BgL_curz00_6113;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_20637;

																							BgL_tmpz00_20637 =
																								((obj_t) BgL_iportz00_6103);
																							BgL_curz00_6113 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_20637,
																								BgL_forwardz00_6105);
																						}
																						{	/* Read/reader.scm 441 */

																							if (
																								((long) (BgL_curz00_6113) ==
																									46L))
																								{	/* Read/reader.scm 441 */
																									BgL_iportz00_6034 =
																										BgL_iportz00_6103;
																									BgL_lastzd2matchzd2_6035 =
																										BgL_newzd2matchzd2_6108;
																									BgL_forwardz00_6036 =
																										(1L + BgL_forwardz00_6105);
																									BgL_bufposz00_6037 =
																										BgL_bufposz00_6106;
																								BgL_zc3z04anonymousza33963ze3z87_6038:
																									{	/* Read/reader.scm 441 */
																										long
																											BgL_newzd2matchzd2_6039;
																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_20643;

																											BgL_tmpz00_20643 =
																												((obj_t)
																												BgL_iportz00_6034);
																											RGC_STOP_MATCH
																												(BgL_tmpz00_20643,
																												BgL_forwardz00_6036);
																										}
																										BgL_newzd2matchzd2_6039 =
																											22L;
																										if ((BgL_forwardz00_6036 ==
																												BgL_bufposz00_6037))
																											{	/* Read/reader.scm 441 */
																												if (rgc_fill_buffer(
																														((obj_t)
																															BgL_iportz00_6034)))
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_arg3966z00_6042;
																														long
																															BgL_arg3967z00_6043;
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_20651;
																															BgL_tmpz00_20651 =
																																((obj_t)
																																BgL_iportz00_6034);
																															BgL_arg3966z00_6042
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_tmpz00_20651);
																														}
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_20654;
																															BgL_tmpz00_20654 =
																																((obj_t)
																																BgL_iportz00_6034);
																															BgL_arg3967z00_6043
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_tmpz00_20654);
																														}
																														{
																															long
																																BgL_bufposz00_20658;
																															long
																																BgL_forwardz00_20657;
																															BgL_forwardz00_20657
																																=
																																BgL_arg3966z00_6042;
																															BgL_bufposz00_20658
																																=
																																BgL_arg3967z00_6043;
																															BgL_bufposz00_6037
																																=
																																BgL_bufposz00_20658;
																															BgL_forwardz00_6036
																																=
																																BgL_forwardz00_20657;
																															goto
																																BgL_zc3z04anonymousza33963ze3z87_6038;
																														}
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														BgL_matchz00_9716 =
																															BgL_newzd2matchzd2_6039;
																													}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												int BgL_curz00_6044;

																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_20659;
																													BgL_tmpz00_20659 =
																														((obj_t)
																														BgL_iportz00_6034);
																													BgL_curz00_6044 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_tmpz00_20659,
																														BgL_forwardz00_6036);
																												}
																												{	/* Read/reader.scm 441 */

																													{	/* Read/reader.scm 441 */
																														bool_t
																															BgL_test7380z00_20662;
																														if (((long)
																																(BgL_curz00_6044)
																																>= 48L))
																															{	/* Read/reader.scm 441 */
																																BgL_test7380z00_20662
																																	=
																																	((long)
																																	(BgL_curz00_6044)
																																	< 58L);
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																BgL_test7380z00_20662
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test7380z00_20662)
																															{
																																long
																																	BgL_forwardz00_20669;
																																long
																																	BgL_lastzd2matchzd2_20668;
																																BgL_lastzd2matchzd2_20668
																																	=
																																	BgL_newzd2matchzd2_6039;
																																BgL_forwardz00_20669
																																	=
																																	(1L +
																																	BgL_forwardz00_6036);
																																BgL_forwardz00_6036
																																	=
																																	BgL_forwardz00_20669;
																																BgL_lastzd2matchzd2_6035
																																	=
																																	BgL_lastzd2matchzd2_20668;
																																goto
																																	BgL_zc3z04anonymousza33963ze3z87_6038;
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																bool_t
																																	BgL_test7382z00_20671;
																																switch ((long)
																																	(BgL_curz00_6044))
																																	{
																																	case 39L:

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

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

																																		BgL_test7382z00_20671 = ((bool_t) 1);
																																		break;
																																	default:
																																		BgL_test7382z00_20671 = ((long) (BgL_curz00_6044) == 96L);
																																	}
																																if (BgL_test7382z00_20671)
																																	{
																																		long
																																			BgL_bufposz00_20680;
																																		long
																																			BgL_forwardz00_20678;
																																		long
																																			BgL_lastzd2matchzd2_20677;
																																		obj_t
																																			BgL_iportz00_20676;
																																		BgL_iportz00_20676
																																			=
																																			BgL_iportz00_6034;
																																		BgL_lastzd2matchzd2_20677
																																			=
																																			BgL_newzd2matchzd2_6039;
																																		BgL_forwardz00_20678
																																			=
																																			(1L +
																																			BgL_forwardz00_6036);
																																		BgL_bufposz00_20680
																																			=
																																			BgL_bufposz00_6037;
																																		BgL_bufposz00_7366
																																			=
																																			BgL_bufposz00_20680;
																																		BgL_forwardz00_7365
																																			=
																																			BgL_forwardz00_20678;
																																		BgL_lastzd2matchzd2_7364
																																			=
																																			BgL_lastzd2matchzd2_20677;
																																		BgL_iportz00_7363
																																			=
																																			BgL_iportz00_20676;
																																		goto
																																			BgL_zc3z04anonymousza34647ze3z87_7367;
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test7383z00_20681;
																																		if (((long)
																																				(BgL_curz00_6044)
																																				< 33L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7383z00_20681
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test7385z00_20685;
																																				if ((
																																						(long)
																																						(BgL_curz00_6044)
																																						==
																																						35L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7385z00_20685
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7385z00_20685
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_6044)
																																							==
																																							34L);
																																					}
																																				if (BgL_test7385z00_20685)
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7383z00_20681
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test7387z00_20691;
																																						if (
																																							((long) (BgL_curz00_6044) == 41L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7387z00_20691
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_6044) == 40L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7387z00_20691
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7387z00_20691
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6044)
																																											==
																																											39L);
																																							}}
																																						if (BgL_test7387z00_20691)
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7383z00_20681
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_6044) == 44L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7383z00_20681
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_6044) == 46L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7383z00_20681
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test7392z00_20706;
																																												if (((long) (BgL_curz00_6044) >= 48L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7392z00_20706
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_6044)
																																															<
																																															58L);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7392z00_20706
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test7392z00_20706)
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7383z00_20681
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_6044) == 59L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7383z00_20681
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_6044) == 91L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7383z00_20681
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_6044) == 93L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7383z00_20681
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_6044) == 96L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7383z00_20681
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test7398z00_20724;
																																																						if (((long) (BgL_curz00_6044) == 125L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7398z00_20724
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_6044) == 124L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7398z00_20724
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7398z00_20724
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_6044)
																																																											==
																																																											123L);
																																																							}}
																																																						if (BgL_test7398z00_20724)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7383z00_20681
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7383z00_20681
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_6044)
																																																									==
																																																									127L);
																																			}}}}}}}}}}}
																																		if (BgL_test7383z00_20681)
																																			{	/* Read/reader.scm 441 */
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_6039;
																																			}
																																		else
																																			{
																																				long
																																					BgL_bufposz00_20739;
																																				long
																																					BgL_forwardz00_20737;
																																				long
																																					BgL_lastzd2matchzd2_20736;
																																				obj_t
																																					BgL_iportz00_20735;
																																				BgL_iportz00_20735
																																					=
																																					BgL_iportz00_6034;
																																				BgL_lastzd2matchzd2_20736
																																					=
																																					BgL_newzd2matchzd2_6039;
																																				BgL_forwardz00_20737
																																					=
																																					(1L +
																																					BgL_forwardz00_6036);
																																				BgL_bufposz00_20739
																																					=
																																					BgL_bufposz00_6037;
																																				BgL_bufposz00_7551
																																					=
																																					BgL_bufposz00_20739;
																																				BgL_forwardz00_7550
																																					=
																																					BgL_forwardz00_20737;
																																				BgL_lastzd2matchzd2_7549
																																					=
																																					BgL_lastzd2matchzd2_20736;
																																				BgL_iportz00_7548
																																					=
																																					BgL_iportz00_20735;
																																				goto
																																					BgL_zc3z04anonymousza34743ze3z87_7552;
																																			}
																																	}
																															}
																													}
																												}
																											}
																									}
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									bool_t BgL_test7401z00_20741;

																									if (
																										((long) (BgL_curz00_6113) <
																											33L))
																										{	/* Read/reader.scm 441 */
																											BgL_test7401z00_20741 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											bool_t
																												BgL_test7403z00_20745;
																											if (((long)
																													(BgL_curz00_6113) ==
																													35L))
																												{	/* Read/reader.scm 441 */
																													BgL_test7403z00_20745
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_test7403z00_20745
																														=
																														((long)
																														(BgL_curz00_6113) ==
																														34L);
																												}
																											if (BgL_test7403z00_20745)
																												{	/* Read/reader.scm 441 */
																													BgL_test7401z00_20741
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test7405z00_20751;
																													if (((long)
																															(BgL_curz00_6113)
																															== 41L))
																														{	/* Read/reader.scm 441 */
																															BgL_test7405z00_20751
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_test7405z00_20751
																																=
																																((long)
																																(BgL_curz00_6113)
																																== 40L);
																														}
																													if (BgL_test7405z00_20751)
																														{	/* Read/reader.scm 441 */
																															BgL_test7401z00_20741
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_6113)
																																	== 46L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test7401z00_20741
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_6113)
																																			== 59L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7401z00_20741
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_6113)
																																					==
																																					91L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7401z00_20741
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_6113) == 93L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7401z00_20741
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test7411z00_20769;
																																							if (((long) (BgL_curz00_6113) == 125L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7411z00_20769
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_6113) == 124L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7411z00_20769
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7411z00_20769
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_6113)
																																												==
																																												123L);
																																								}}
																																							if (BgL_test7411z00_20769)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7401z00_20741
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7401z00_20741
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_6113)
																																										==
																																										127L);
																										}}}}}}}}
																									if (BgL_test7401z00_20741)
																										{	/* Read/reader.scm 441 */
																											BgL_matchz00_9716 =
																												BgL_newzd2matchzd2_6108;
																										}
																									else
																										{
																											long BgL_forwardz00_20781;
																											long
																												BgL_lastzd2matchzd2_20780;
																											BgL_lastzd2matchzd2_20780
																												=
																												BgL_newzd2matchzd2_6108;
																											BgL_forwardz00_20781 =
																												(1L +
																												BgL_forwardz00_6105);
																											BgL_forwardz00_6105 =
																												BgL_forwardz00_20781;
																											BgL_lastzd2matchzd2_6104 =
																												BgL_lastzd2matchzd2_20780;
																											goto
																												BgL_zc3z04anonymousza33993ze3z87_6107;
																										}
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 441 */
																			bool_t BgL_test7414z00_20784;

																			if (((long) (BgL_curz00_4146) < 33L))
																				{	/* Read/reader.scm 441 */
																					BgL_test7414z00_20784 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					bool_t BgL_test7416z00_20788;

																					if (((long) (BgL_curz00_4146) == 35L))
																						{	/* Read/reader.scm 441 */
																							BgL_test7416z00_20788 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_test7416z00_20788 =
																								(
																								(long) (BgL_curz00_4146) ==
																								34L);
																						}
																					if (BgL_test7416z00_20788)
																						{	/* Read/reader.scm 441 */
																							BgL_test7414z00_20784 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							bool_t BgL_test7418z00_20794;

																							if (
																								((long) (BgL_curz00_4146) ==
																									41L))
																								{	/* Read/reader.scm 441 */
																									BgL_test7418z00_20794 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									if (
																										((long) (BgL_curz00_4146) ==
																											40L))
																										{	/* Read/reader.scm 441 */
																											BgL_test7418z00_20794 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											BgL_test7418z00_20794 =
																												(
																												(long) (BgL_curz00_4146)
																												== 39L);
																								}}
																							if (BgL_test7418z00_20794)
																								{	/* Read/reader.scm 441 */
																									BgL_test7414z00_20784 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									if (
																										((long) (BgL_curz00_4146) ==
																											44L))
																										{	/* Read/reader.scm 441 */
																											BgL_test7414z00_20784 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_4146) ==
																													46L))
																												{	/* Read/reader.scm 441 */
																													BgL_test7414z00_20784
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test7423z00_20809;
																													if (((long)
																															(BgL_curz00_4146)
																															== 59L))
																														{	/* Read/reader.scm 441 */
																															BgL_test7423z00_20809
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_test7423z00_20809
																																=
																																((long)
																																(BgL_curz00_4146)
																																== 58L);
																														}
																													if (BgL_test7423z00_20809)
																														{	/* Read/reader.scm 441 */
																															BgL_test7414z00_20784
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_4146)
																																	== 91L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test7414z00_20784
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_4146)
																																			== 93L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7414z00_20784
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_4146)
																																					==
																																					96L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7414z00_20784
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test7428z00_20824;
																																					if ((
																																							(long)
																																							(BgL_curz00_4146)
																																							==
																																							125L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7428z00_20824
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_4146) == 124L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7428z00_20824
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7428z00_20824
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_4146)
																																										==
																																										123L);
																																						}}
																																					if (BgL_test7428z00_20824)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7414z00_20784
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7414z00_20784
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_4146)
																																								==
																																								127L);
																				}}}}}}}}}}
																			if (BgL_test7414z00_20784)
																				{	/* Read/reader.scm 441 */
																					BgL_matchz00_9716 =
																						BgL_newzd2matchzd2_4141;
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					BgL_iportz00_9014 = BgL_iportz00_4136;
																					BgL_lastzd2matchzd2_9015 =
																						BgL_newzd2matchzd2_4141;
																					BgL_forwardz00_9016 =
																						(1L + BgL_forwardz00_4138);
																					BgL_bufposz00_9017 =
																						BgL_bufposz00_4139;
																				BgL_zc3z04anonymousza35483ze3z87_9018:
																					{	/* Read/reader.scm 441 */
																						long BgL_newzd2matchzd2_9019;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_20835;

																							BgL_tmpz00_20835 =
																								((obj_t) BgL_iportz00_9014);
																							RGC_STOP_MATCH(BgL_tmpz00_20835,
																								BgL_forwardz00_9016);
																						}
																						BgL_newzd2matchzd2_9019 = 20L;
																						if (
																							(BgL_forwardz00_9016 ==
																								BgL_bufposz00_9017))
																							{	/* Read/reader.scm 441 */
																								if (rgc_fill_buffer(
																										((obj_t)
																											BgL_iportz00_9014)))
																									{	/* Read/reader.scm 441 */
																										long BgL_arg5486z00_9022;
																										long BgL_arg5487z00_9023;

																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_20843;

																											BgL_tmpz00_20843 =
																												((obj_t)
																												BgL_iportz00_9014);
																											BgL_arg5486z00_9022 =
																												RGC_BUFFER_FORWARD
																												(BgL_tmpz00_20843);
																										}
																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_20846;

																											BgL_tmpz00_20846 =
																												((obj_t)
																												BgL_iportz00_9014);
																											BgL_arg5487z00_9023 =
																												RGC_BUFFER_BUFPOS
																												(BgL_tmpz00_20846);
																										}
																										{
																											long BgL_bufposz00_20850;
																											long BgL_forwardz00_20849;

																											BgL_forwardz00_20849 =
																												BgL_arg5486z00_9022;
																											BgL_bufposz00_20850 =
																												BgL_arg5487z00_9023;
																											BgL_bufposz00_9017 =
																												BgL_bufposz00_20850;
																											BgL_forwardz00_9016 =
																												BgL_forwardz00_20849;
																											goto
																												BgL_zc3z04anonymousza35483ze3z87_9018;
																										}
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										BgL_matchz00_9716 =
																											BgL_newzd2matchzd2_9019;
																									}
																							}
																						else
																							{	/* Read/reader.scm 441 */
																								int BgL_curz00_9024;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_20851;

																									BgL_tmpz00_20851 =
																										((obj_t) BgL_iportz00_9014);
																									BgL_curz00_9024 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_tmpz00_20851,
																										BgL_forwardz00_9016);
																								}
																								{	/* Read/reader.scm 441 */

																									if (
																										((long) (BgL_curz00_9024) ==
																											58L))
																										{	/* Read/reader.scm 441 */
																											BgL_iportz00_9344 =
																												BgL_iportz00_9014;
																											BgL_lastzd2matchzd2_9345 =
																												BgL_newzd2matchzd2_9019;
																											BgL_forwardz00_9346 =
																												(1L +
																												BgL_forwardz00_9016);
																											BgL_bufposz00_9347 =
																												BgL_bufposz00_9017;
																										BgL_zc3z04anonymousza35651ze3z87_9348:
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_newzd2matchzd2_9349;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_20857;
																													BgL_tmpz00_20857 =
																														((obj_t)
																														BgL_iportz00_9344);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_20857,
																														BgL_forwardz00_9346);
																												}
																												BgL_newzd2matchzd2_9349
																													= 20L;
																												if ((BgL_forwardz00_9346
																														==
																														BgL_bufposz00_9347))
																													{	/* Read/reader.scm 441 */
																														if (rgc_fill_buffer(
																																((obj_t)
																																	BgL_iportz00_9344)))
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_arg5654z00_9352;
																																long
																																	BgL_arg5655z00_9353;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_20865;
																																	BgL_tmpz00_20865
																																		=
																																		((obj_t)
																																		BgL_iportz00_9344);
																																	BgL_arg5654z00_9352
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_tmpz00_20865);
																																}
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_20868;
																																	BgL_tmpz00_20868
																																		=
																																		((obj_t)
																																		BgL_iportz00_9344);
																																	BgL_arg5655z00_9353
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_tmpz00_20868);
																																}
																																{
																																	long
																																		BgL_bufposz00_20872;
																																	long
																																		BgL_forwardz00_20871;
																																	BgL_forwardz00_20871
																																		=
																																		BgL_arg5654z00_9352;
																																	BgL_bufposz00_20872
																																		=
																																		BgL_arg5655z00_9353;
																																	BgL_bufposz00_9347
																																		=
																																		BgL_bufposz00_20872;
																																	BgL_forwardz00_9346
																																		=
																																		BgL_forwardz00_20871;
																																	goto
																																		BgL_zc3z04anonymousza35651ze3z87_9348;
																																}
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																BgL_matchz00_9716
																																	=
																																	BgL_newzd2matchzd2_9349;
																															}
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														int BgL_curz00_9354;

																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_20873;
																															BgL_tmpz00_20873 =
																																((obj_t)
																																BgL_iportz00_9344);
																															BgL_curz00_9354 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_tmpz00_20873,
																																BgL_forwardz00_9346);
																														}
																														{	/* Read/reader.scm 441 */

																															if (
																																((long)
																																	(BgL_curz00_9354)
																																	== 46L))
																																{	/* Read/reader.scm 441 */
																																	BgL_iportz00_8475
																																		=
																																		BgL_iportz00_9344;
																																	BgL_lastzd2matchzd2_8476
																																		=
																																		BgL_newzd2matchzd2_9349;
																																	BgL_forwardz00_8477
																																		=
																																		(1L +
																																		BgL_forwardz00_9346);
																																	BgL_bufposz00_8478
																																		=
																																		BgL_bufposz00_9347;
																																BgL_zc3z04anonymousza35202ze3z87_8479:
																																	{	/* Read/reader.scm 441 */
																																		long
																																			BgL_newzd2matchzd2_8480;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_20879;
																																			BgL_tmpz00_20879
																																				=
																																				((obj_t)
																																				BgL_iportz00_8475);
																																			RGC_STOP_MATCH
																																				(BgL_tmpz00_20879,
																																				BgL_forwardz00_8477);
																																		}
																																		BgL_newzd2matchzd2_8480
																																			= 20L;
																																		if (
																																			(BgL_forwardz00_8477
																																				==
																																				BgL_bufposz00_8478))
																																			{	/* Read/reader.scm 441 */
																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_8475)))
																																					{	/* Read/reader.scm 441 */
																																						long
																																							BgL_arg5205z00_8483;
																																						long
																																							BgL_arg5206z00_8484;
																																						{	/* Read/reader.scm 441 */
																																							obj_t
																																								BgL_tmpz00_20887;
																																							BgL_tmpz00_20887
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_8475);
																																							BgL_arg5205z00_8483
																																								=
																																								RGC_BUFFER_FORWARD
																																								(BgL_tmpz00_20887);
																																						}
																																						{	/* Read/reader.scm 441 */
																																							obj_t
																																								BgL_tmpz00_20890;
																																							BgL_tmpz00_20890
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_8475);
																																							BgL_arg5206z00_8484
																																								=
																																								RGC_BUFFER_BUFPOS
																																								(BgL_tmpz00_20890);
																																						}
																																						{
																																							long
																																								BgL_bufposz00_20894;
																																							long
																																								BgL_forwardz00_20893;
																																							BgL_forwardz00_20893
																																								=
																																								BgL_arg5205z00_8483;
																																							BgL_bufposz00_20894
																																								=
																																								BgL_arg5206z00_8484;
																																							BgL_bufposz00_8478
																																								=
																																								BgL_bufposz00_20894;
																																							BgL_forwardz00_8477
																																								=
																																								BgL_forwardz00_20893;
																																							goto
																																								BgL_zc3z04anonymousza35202ze3z87_8479;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_matchz00_9716
																																							=
																																							BgL_newzd2matchzd2_8480;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				int
																																					BgL_curz00_8485;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_20895;
																																					BgL_tmpz00_20895
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_8475);
																																					BgL_curz00_8485
																																						=
																																						RGC_BUFFER_GET_CHAR
																																						(BgL_tmpz00_20895,
																																						BgL_forwardz00_8477);
																																				}
																																				{	/* Read/reader.scm 441 */

																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test7439z00_20898;
																																						if (
																																							((long) (BgL_curz00_8485) >= 48L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7439z00_20898
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_8485)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7439z00_20898
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test7439z00_20898)
																																							{
																																								long
																																									BgL_forwardz00_20905;
																																								long
																																									BgL_lastzd2matchzd2_20904;
																																								BgL_lastzd2matchzd2_20904
																																									=
																																									BgL_newzd2matchzd2_8480;
																																								BgL_forwardz00_20905
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_8477);
																																								BgL_forwardz00_8477
																																									=
																																									BgL_forwardz00_20905;
																																								BgL_lastzd2matchzd2_8476
																																									=
																																									BgL_lastzd2matchzd2_20904;
																																								goto
																																									BgL_zc3z04anonymousza35202ze3z87_8479;
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_8485) == 46L))
																																									{
																																										long
																																											BgL_bufposz00_20914;
																																										long
																																											BgL_forwardz00_20912;
																																										long
																																											BgL_lastzd2matchzd2_20911;
																																										obj_t
																																											BgL_iportz00_20910;
																																										BgL_iportz00_20910
																																											=
																																											BgL_iportz00_8475;
																																										BgL_lastzd2matchzd2_20911
																																											=
																																											BgL_newzd2matchzd2_8480;
																																										BgL_forwardz00_20912
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_8477);
																																										BgL_bufposz00_20914
																																											=
																																											BgL_bufposz00_8478;
																																										BgL_bufposz00_4763
																																											=
																																											BgL_bufposz00_20914;
																																										BgL_forwardz00_4762
																																											=
																																											BgL_forwardz00_20912;
																																										BgL_lastzd2matchzd2_4761
																																											=
																																											BgL_lastzd2matchzd2_20911;
																																										BgL_iportz00_4760
																																											=
																																											BgL_iportz00_20910;
																																										goto
																																											BgL_zc3z04anonymousza33288ze3z87_4764;
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										bool_t
																																											BgL_test7442z00_20915;
																																										if (((long) (BgL_curz00_8485) == 39L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7442z00_20915
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												if (((long) (BgL_curz00_8485) == 44L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7442z00_20915
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7442z00_20915
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_8485)
																																															==
																																															96L);
																																											}}
																																										if (BgL_test7442z00_20915)
																																											{
																																												long
																																													BgL_bufposz00_20928;
																																												long
																																													BgL_forwardz00_20926;
																																												long
																																													BgL_lastzd2matchzd2_20925;
																																												obj_t
																																													BgL_iportz00_20924;
																																												BgL_iportz00_20924
																																													=
																																													BgL_iportz00_8475;
																																												BgL_lastzd2matchzd2_20925
																																													=
																																													BgL_newzd2matchzd2_8480;
																																												BgL_forwardz00_20926
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_8477);
																																												BgL_bufposz00_20928
																																													=
																																													BgL_bufposz00_8478;
																																												BgL_bufposz00_7366
																																													=
																																													BgL_bufposz00_20928;
																																												BgL_forwardz00_7365
																																													=
																																													BgL_forwardz00_20926;
																																												BgL_lastzd2matchzd2_7364
																																													=
																																													BgL_lastzd2matchzd2_20925;
																																												BgL_iportz00_7363
																																													=
																																													BgL_iportz00_20924;
																																												goto
																																													BgL_zc3z04anonymousza34647ze3z87_7367;
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test7445z00_20929;
																																												if (((long) (BgL_curz00_8485) < 33L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7445z00_20929
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test7447z00_20933;
																																														if (((long) (BgL_curz00_8485) == 35L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7447z00_20933
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7447z00_20933
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_8485)
																																																	==
																																																	34L);
																																															}
																																														if (BgL_test7447z00_20933)
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7445z00_20929
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test7449z00_20939;
																																																if (((long) (BgL_curz00_8485) == 41L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7449z00_20939
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_8485) == 40L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7449z00_20939
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7449z00_20939
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_8485)
																																																					==
																																																					39L);
																																																	}}
																																																if (BgL_test7449z00_20939)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7445z00_20929
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_8485) == 44L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7445z00_20929
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_8485) == 46L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7445z00_20929
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test7454z00_20954;
																																																						if (((long) (BgL_curz00_8485) >= 48L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7454z00_20954
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_8485)
																																																									<
																																																									58L);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7454z00_20954
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test7454z00_20954)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7445z00_20929
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_8485) == 59L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7445z00_20929
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_8485) == 91L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7445z00_20929
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_8485) == 93L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7445z00_20929
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_8485) == 96L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7445z00_20929
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																bool_t
																																																																	BgL_test7460z00_20972;
																																																																if (((long) (BgL_curz00_8485) == 125L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7460z00_20972
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_8485) == 124L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7460z00_20972
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7460z00_20972
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_8485)
																																																																					==
																																																																					123L);
																																																																	}}
																																																																if (BgL_test7460z00_20972)
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7445z00_20929
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7445z00_20929
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_8485)
																																																																			==
																																																																			127L);
																																													}}}}}}}}}}}
																																												if (BgL_test7445z00_20929)
																																													{	/* Read/reader.scm 441 */
																																														BgL_matchz00_9716
																																															=
																																															BgL_newzd2matchzd2_8480;
																																													}
																																												else
																																													{
																																														long
																																															BgL_bufposz00_20987;
																																														long
																																															BgL_forwardz00_20985;
																																														long
																																															BgL_lastzd2matchzd2_20984;
																																														obj_t
																																															BgL_iportz00_20983;
																																														BgL_iportz00_20983
																																															=
																																															BgL_iportz00_8475;
																																														BgL_lastzd2matchzd2_20984
																																															=
																																															BgL_newzd2matchzd2_8480;
																																														BgL_forwardz00_20985
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_8477);
																																														BgL_bufposz00_20987
																																															=
																																															BgL_bufposz00_8478;
																																														BgL_bufposz00_9291
																																															=
																																															BgL_bufposz00_20987;
																																														BgL_forwardz00_9290
																																															=
																																															BgL_forwardz00_20985;
																																														BgL_lastzd2matchzd2_9289
																																															=
																																															BgL_lastzd2matchzd2_20984;
																																														BgL_iportz00_9288
																																															=
																																															BgL_iportz00_20983;
																																														goto
																																															BgL_zc3z04anonymousza35623ze3z87_9292;
																																													}
																																											}
																																									}
																																							}
																																					}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test7463z00_20989;
																																	if (((long)
																																			(BgL_curz00_9354)
																																			== 39L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7463z00_20989
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_9354)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7463z00_20989
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7463z00_20989
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9354)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test7463z00_20989)
																																		{
																																			long
																																				BgL_bufposz00_21002;
																																			long
																																				BgL_forwardz00_21000;
																																			long
																																				BgL_lastzd2matchzd2_20999;
																																			obj_t
																																				BgL_iportz00_20998;
																																			BgL_iportz00_20998
																																				=
																																				BgL_iportz00_9344;
																																			BgL_lastzd2matchzd2_20999
																																				=
																																				BgL_newzd2matchzd2_9349;
																																			BgL_forwardz00_21000
																																				=
																																				(1L +
																																				BgL_forwardz00_9346);
																																			BgL_bufposz00_21002
																																				=
																																				BgL_bufposz00_9347;
																																			BgL_bufposz00_6106
																																				=
																																				BgL_bufposz00_21002;
																																			BgL_forwardz00_6105
																																				=
																																				BgL_forwardz00_21000;
																																			BgL_lastzd2matchzd2_6104
																																				=
																																				BgL_lastzd2matchzd2_20999;
																																			BgL_iportz00_6103
																																				=
																																				BgL_iportz00_20998;
																																			goto
																																				BgL_zc3z04anonymousza33993ze3z87_6107;
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test7466z00_21003;
																																			if ((
																																					(long)
																																					(BgL_curz00_9354)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7466z00_21003
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test7468z00_21007;
																																					if ((
																																							(long)
																																							(BgL_curz00_9354)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7468z00_21007
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7468z00_21007
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9354)
																																								==
																																								34L);
																																						}
																																					if (BgL_test7468z00_21007)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7466z00_21003
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test7470z00_21013;
																																							if (((long) (BgL_curz00_9354) == 41L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7470z00_21013
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_9354) == 40L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7470z00_21013
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7470z00_21013
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9354)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test7470z00_21013)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7466z00_21003
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_9354) == 44L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7466z00_21003
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_9354) == 46L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7466z00_21003
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_9354) == 59L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7466z00_21003
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9354) == 91L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7466z00_21003
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_9354) == 93L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7466z00_21003
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_9354) == 96L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7466z00_21003
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test7479z00_21040;
																																																					if (((long) (BgL_curz00_9354) == 125L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7479z00_21040
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_9354) == 124L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test7479z00_21040
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test7479z00_21040
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9354)
																																																										==
																																																										123L);
																																																						}}
																																																					if (BgL_test7479z00_21040)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7466z00_21003
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test7466z00_21003
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9354)
																																																								==
																																																								127L);
																																				}}}}}}}}}}
																																			if (BgL_test7466z00_21003)
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_9349;
																																				}
																																			else
																																				{
																																					long
																																						BgL_forwardz00_21052;
																																					long
																																						BgL_lastzd2matchzd2_21051;
																																					BgL_lastzd2matchzd2_21051
																																						=
																																						BgL_newzd2matchzd2_9349;
																																					BgL_forwardz00_21052
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_9346);
																																					BgL_forwardz00_9346
																																						=
																																						BgL_forwardz00_21052;
																																					BgL_lastzd2matchzd2_9345
																																						=
																																						BgL_lastzd2matchzd2_21051;
																																					goto
																																						BgL_zc3z04anonymousza35651ze3z87_9348;
																																				}
																																		}
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_9024) ==
																													46L))
																												{
																													long
																														BgL_bufposz00_21062;
																													long
																														BgL_forwardz00_21060;
																													long
																														BgL_lastzd2matchzd2_21059;
																													obj_t
																														BgL_iportz00_21058;
																													BgL_iportz00_21058 =
																														BgL_iportz00_9014;
																													BgL_lastzd2matchzd2_21059
																														=
																														BgL_newzd2matchzd2_9019;
																													BgL_forwardz00_21060 =
																														(1L +
																														BgL_forwardz00_9016);
																													BgL_bufposz00_21062 =
																														BgL_bufposz00_9017;
																													BgL_bufposz00_5972 =
																														BgL_bufposz00_21062;
																													BgL_forwardz00_5971 =
																														BgL_forwardz00_21060;
																													BgL_lastzd2matchzd2_5970
																														=
																														BgL_lastzd2matchzd2_21059;
																													BgL_iportz00_5969 =
																														BgL_iportz00_21058;
																													goto
																														BgL_zc3z04anonymousza33929ze3z87_5973;
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test7483z00_21063;
																													if (((long)
																															(BgL_curz00_9024)
																															== 39L))
																														{	/* Read/reader.scm 441 */
																															BgL_test7483z00_21063
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_9024)
																																	== 44L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test7483z00_21063
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test7483z00_21063
																																		=
																																		((long)
																																		(BgL_curz00_9024)
																																		== 96L);
																														}}
																													if (BgL_test7483z00_21063)
																														{
																															long
																																BgL_bufposz00_21076;
																															long
																																BgL_forwardz00_21074;
																															long
																																BgL_lastzd2matchzd2_21073;
																															obj_t
																																BgL_iportz00_21072;
																															BgL_iportz00_21072
																																=
																																BgL_iportz00_9014;
																															BgL_lastzd2matchzd2_21073
																																=
																																BgL_newzd2matchzd2_9019;
																															BgL_forwardz00_21074
																																=
																																(1L +
																																BgL_forwardz00_9016);
																															BgL_bufposz00_21076
																																=
																																BgL_bufposz00_9017;
																															BgL_bufposz00_6106
																																=
																																BgL_bufposz00_21076;
																															BgL_forwardz00_6105
																																=
																																BgL_forwardz00_21074;
																															BgL_lastzd2matchzd2_6104
																																=
																																BgL_lastzd2matchzd2_21073;
																															BgL_iportz00_6103
																																=
																																BgL_iportz00_21072;
																															goto
																																BgL_zc3z04anonymousza33993ze3z87_6107;
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test7486z00_21077;
																															if (((long)
																																	(BgL_curz00_9024)
																																	< 33L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test7486z00_21077
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test7488z00_21081;
																																	if (((long)
																																			(BgL_curz00_9024)
																																			== 35L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7488z00_21081
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7488z00_21081
																																				=
																																				((long)
																																				(BgL_curz00_9024)
																																				== 34L);
																																		}
																																	if (BgL_test7488z00_21081)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test7486z00_21077
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test7490z00_21087;
																																			if ((
																																					(long)
																																					(BgL_curz00_9024)
																																					==
																																					41L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7490z00_21087
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_9024) == 40L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7490z00_21087
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7490z00_21087
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9024)
																																								==
																																								39L);
																																				}}
																																			if (BgL_test7490z00_21087)
																																				{	/* Read/reader.scm 441 */
																																					BgL_test7486z00_21077
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_9024) == 44L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test7486z00_21077
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_9024) == 46L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test7486z00_21077
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test7495z00_21102;
																																									if (((long) (BgL_curz00_9024) == 59L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7495z00_21102
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7495z00_21102
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9024)
																																												==
																																												58L);
																																										}
																																									if (BgL_test7495z00_21102)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test7486z00_21077
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_9024) == 91L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test7486z00_21077
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_9024) == 93L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test7486z00_21077
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9024) == 96L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test7486z00_21077
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test7500z00_21117;
																																																	if (((long) (BgL_curz00_9024) == 125L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7500z00_21117
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_9024) == 124L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7500z00_21117
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test7500z00_21117
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9024)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test7500z00_21117)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7486z00_21077
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test7486z00_21077
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9024)
																																																				==
																																																				127L);
																																}}}}}}}}}}
																															if (BgL_test7486z00_21077)
																																{	/* Read/reader.scm 441 */
																																	BgL_matchz00_9716
																																		=
																																		BgL_newzd2matchzd2_9019;
																																}
																															else
																																{
																																	long
																																		BgL_forwardz00_21129;
																																	long
																																		BgL_lastzd2matchzd2_21128;
																																	BgL_lastzd2matchzd2_21128
																																		=
																																		BgL_newzd2matchzd2_9019;
																																	BgL_forwardz00_21129
																																		=
																																		(1L +
																																		BgL_forwardz00_9016);
																																	BgL_forwardz00_9016
																																		=
																																		BgL_forwardz00_21129;
																																	BgL_lastzd2matchzd2_9015
																																		=
																																		BgL_lastzd2matchzd2_21128;
																																	goto
																																		BgL_zc3z04anonymousza35483ze3z87_9018;
																																}
																														}
																												}
																										}
																								}
																							}
																					}
																				}
																		}
																}
														}
													}
											}
											break;
										case 57L:
										case 56L:
										case 55L:
										case 54L:
										case 53L:
										case 52L:
										case 51L:
										case 50L:
										case 49L:
										case 48L:

											BgL_iportz00_5162 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_5163 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_5164 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_5165 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza33515ze3z87_5166:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_5167;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_21133;

													BgL_tmpz00_21133 = ((obj_t) BgL_iportz00_5162);
													RGC_STOP_MATCH(BgL_tmpz00_21133, BgL_forwardz00_5164);
												}
												BgL_newzd2matchzd2_5167 = 12L;
												if ((BgL_forwardz00_5164 == BgL_bufposz00_5165))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_5162)))
															{	/* Read/reader.scm 441 */
																long BgL_arg3518z00_5170;
																long BgL_arg3519z00_5171;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_21141;

																	BgL_tmpz00_21141 =
																		((obj_t) BgL_iportz00_5162);
																	BgL_arg3518z00_5170 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_21141);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_21144;

																	BgL_tmpz00_21144 =
																		((obj_t) BgL_iportz00_5162);
																	BgL_arg3519z00_5171 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_21144);
																}
																{
																	long BgL_bufposz00_21148;
																	long BgL_forwardz00_21147;

																	BgL_forwardz00_21147 = BgL_arg3518z00_5170;
																	BgL_bufposz00_21148 = BgL_arg3519z00_5171;
																	BgL_bufposz00_5165 = BgL_bufposz00_21148;
																	BgL_forwardz00_5164 = BgL_forwardz00_21147;
																	goto BgL_zc3z04anonymousza33515ze3z87_5166;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_5167;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_5172;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_21149;

															BgL_tmpz00_21149 = ((obj_t) BgL_iportz00_5162);
															BgL_curz00_5172 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_21149,
																BgL_forwardz00_5164);
														}
														{	/* Read/reader.scm 441 */

															{	/* Read/reader.scm 441 */
																bool_t BgL_test7505z00_21152;

																if (((long) (BgL_curz00_5172) == 69L))
																	{	/* Read/reader.scm 441 */
																		BgL_test7505z00_21152 = ((bool_t) 1);
																	}
																else
																	{	/* Read/reader.scm 441 */
																		BgL_test7505z00_21152 =
																			((long) (BgL_curz00_5172) == 101L);
																	}
																if (BgL_test7505z00_21152)
																	{	/* Read/reader.scm 441 */
																		BgL_iportz00_5558 = BgL_iportz00_5162;
																		BgL_lastzd2matchzd2_5559 =
																			BgL_newzd2matchzd2_5167;
																		BgL_forwardz00_5560 =
																			(1L + BgL_forwardz00_5164);
																		BgL_bufposz00_5561 = BgL_bufposz00_5165;
																	BgL_zc3z04anonymousza33723ze3z87_5562:
																		{	/* Read/reader.scm 441 */
																			long BgL_newzd2matchzd2_5563;

																			{	/* Read/reader.scm 441 */
																				obj_t BgL_tmpz00_21158;

																				BgL_tmpz00_21158 =
																					((obj_t) BgL_iportz00_5558);
																				RGC_STOP_MATCH(BgL_tmpz00_21158,
																					BgL_forwardz00_5560);
																			}
																			BgL_newzd2matchzd2_5563 = 22L;
																			if (
																				(BgL_forwardz00_5560 ==
																					BgL_bufposz00_5561))
																				{	/* Read/reader.scm 441 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_5558)))
																						{	/* Read/reader.scm 441 */
																							long BgL_arg3726z00_5566;
																							long BgL_arg3727z00_5567;

																							{	/* Read/reader.scm 441 */
																								obj_t BgL_tmpz00_21166;

																								BgL_tmpz00_21166 =
																									((obj_t) BgL_iportz00_5558);
																								BgL_arg3726z00_5566 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_21166);
																							}
																							{	/* Read/reader.scm 441 */
																								obj_t BgL_tmpz00_21169;

																								BgL_tmpz00_21169 =
																									((obj_t) BgL_iportz00_5558);
																								BgL_arg3727z00_5567 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_21169);
																							}
																							{
																								long BgL_bufposz00_21173;
																								long BgL_forwardz00_21172;

																								BgL_forwardz00_21172 =
																									BgL_arg3726z00_5566;
																								BgL_bufposz00_21173 =
																									BgL_arg3727z00_5567;
																								BgL_bufposz00_5561 =
																									BgL_bufposz00_21173;
																								BgL_forwardz00_5560 =
																									BgL_forwardz00_21172;
																								goto
																									BgL_zc3z04anonymousza33723ze3z87_5562;
																							}
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_matchz00_9716 =
																								BgL_newzd2matchzd2_5563;
																						}
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					int BgL_curz00_5568;

																					{	/* Read/reader.scm 441 */
																						obj_t BgL_tmpz00_21174;

																						BgL_tmpz00_21174 =
																							((obj_t) BgL_iportz00_5558);
																						BgL_curz00_5568 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_21174,
																							BgL_forwardz00_5560);
																					}
																					{	/* Read/reader.scm 441 */

																						if (
																							((long) (BgL_curz00_5568) == 58L))
																							{	/* Read/reader.scm 441 */
																								BgL_iportz00_6392 =
																									BgL_iportz00_5558;
																								BgL_lastzd2matchzd2_6393 =
																									BgL_newzd2matchzd2_5563;
																								BgL_forwardz00_6394 =
																									(1L + BgL_forwardz00_5560);
																								BgL_bufposz00_6395 =
																									BgL_bufposz00_5561;
																							BgL_zc3z04anonymousza34142ze3z87_6396:
																								{	/* Read/reader.scm 441 */
																									long BgL_newzd2matchzd2_6397;

																									{	/* Read/reader.scm 441 */
																										obj_t BgL_tmpz00_21180;

																										BgL_tmpz00_21180 =
																											((obj_t)
																											BgL_iportz00_6392);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_21180,
																											BgL_forwardz00_6394);
																									}
																									BgL_newzd2matchzd2_6397 = 20L;
																									if (
																										(BgL_forwardz00_6394 ==
																											BgL_bufposz00_6395))
																										{	/* Read/reader.scm 441 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_6392)))
																												{	/* Read/reader.scm 441 */
																													long
																														BgL_arg4145z00_6400;
																													long
																														BgL_arg4146z00_6401;
																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_21188;
																														BgL_tmpz00_21188 =
																															((obj_t)
																															BgL_iportz00_6392);
																														BgL_arg4145z00_6400
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_21188);
																													}
																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_21191;
																														BgL_tmpz00_21191 =
																															((obj_t)
																															BgL_iportz00_6392);
																														BgL_arg4146z00_6401
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_21191);
																													}
																													{
																														long
																															BgL_bufposz00_21195;
																														long
																															BgL_forwardz00_21194;
																														BgL_forwardz00_21194
																															=
																															BgL_arg4145z00_6400;
																														BgL_bufposz00_21195
																															=
																															BgL_arg4146z00_6401;
																														BgL_bufposz00_6395 =
																															BgL_bufposz00_21195;
																														BgL_forwardz00_6394
																															=
																															BgL_forwardz00_21194;
																														goto
																															BgL_zc3z04anonymousza34142ze3z87_6396;
																													}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_matchz00_9716 =
																														BgL_newzd2matchzd2_6397;
																												}
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											int BgL_curz00_6402;

																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_21196;

																												BgL_tmpz00_21196 =
																													((obj_t)
																													BgL_iportz00_6392);
																												BgL_curz00_6402 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_21196,
																													BgL_forwardz00_6394);
																											}
																											{	/* Read/reader.scm 441 */

																												if (
																													((long)
																														(BgL_curz00_6402) ==
																														58L))
																													{	/* Read/reader.scm 441 */
																														BgL_iportz00_8805 =
																															BgL_iportz00_6392;
																														BgL_lastzd2matchzd2_8806
																															=
																															BgL_newzd2matchzd2_6397;
																														BgL_forwardz00_8807
																															=
																															(1L +
																															BgL_forwardz00_6394);
																														BgL_bufposz00_8808 =
																															BgL_bufposz00_6395;
																													BgL_zc3z04anonymousza35376ze3z87_8809:
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_newzd2matchzd2_8810;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_21202;
																																BgL_tmpz00_21202
																																	=
																																	((obj_t)
																																	BgL_iportz00_8805);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_21202,
																																	BgL_forwardz00_8807);
																															}
																															BgL_newzd2matchzd2_8810
																																= 22L;
																															if (
																																(BgL_forwardz00_8807
																																	==
																																	BgL_bufposz00_8808))
																																{	/* Read/reader.scm 441 */
																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_8805)))
																																		{	/* Read/reader.scm 441 */
																																			long
																																				BgL_arg5379z00_8813;
																																			long
																																				BgL_arg5380z00_8814;
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_21210;
																																				BgL_tmpz00_21210
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_8805);
																																				BgL_arg5379z00_8813
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_tmpz00_21210);
																																			}
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_21213;
																																				BgL_tmpz00_21213
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_8805);
																																				BgL_arg5380z00_8814
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_tmpz00_21213);
																																			}
																																			{
																																				long
																																					BgL_bufposz00_21217;
																																				long
																																					BgL_forwardz00_21216;
																																				BgL_forwardz00_21216
																																					=
																																					BgL_arg5379z00_8813;
																																				BgL_bufposz00_21217
																																					=
																																					BgL_arg5380z00_8814;
																																				BgL_bufposz00_8808
																																					=
																																					BgL_bufposz00_21217;
																																				BgL_forwardz00_8807
																																					=
																																					BgL_forwardz00_21216;
																																				goto
																																					BgL_zc3z04anonymousza35376ze3z87_8809;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_matchz00_9716
																																				=
																																				BgL_newzd2matchzd2_8810;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	int
																																		BgL_curz00_8815;
																																	{	/* Read/reader.scm 441 */
																																		obj_t
																																			BgL_tmpz00_21218;
																																		BgL_tmpz00_21218
																																			=
																																			((obj_t)
																																			BgL_iportz00_8805);
																																		BgL_curz00_8815
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_tmpz00_21218,
																																			BgL_forwardz00_8807);
																																	}
																																	{	/* Read/reader.scm 441 */

																																		if (
																																			((long)
																																				(BgL_curz00_8815)
																																				== 58L))
																																			{
																																				long
																																					BgL_forwardz00_21225;
																																				long
																																					BgL_lastzd2matchzd2_21224;
																																				BgL_lastzd2matchzd2_21224
																																					=
																																					BgL_newzd2matchzd2_8810;
																																				BgL_forwardz00_21225
																																					=
																																					(1L +
																																					BgL_forwardz00_8807);
																																				BgL_forwardz00_8807
																																					=
																																					BgL_forwardz00_21225;
																																				BgL_lastzd2matchzd2_8806
																																					=
																																					BgL_lastzd2matchzd2_21224;
																																				goto
																																					BgL_zc3z04anonymousza35376ze3z87_8809;
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				if (
																																					((long) (BgL_curz00_8815) == 46L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_iportz00_3941
																																							=
																																							BgL_iportz00_8805;
																																						BgL_lastzd2matchzd2_3942
																																							=
																																							BgL_newzd2matchzd2_8810;
																																						BgL_forwardz00_3943
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_8807);
																																						BgL_bufposz00_3944
																																							=
																																							BgL_bufposz00_8808;
																																					BgL_zc3z04anonymousza32753ze3z87_3945:
																																						{	/* Read/reader.scm 441 */
																																							long
																																								BgL_newzd2matchzd2_3946;
																																							{	/* Read/reader.scm 441 */
																																								obj_t
																																									BgL_tmpz00_21230;
																																								BgL_tmpz00_21230
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_3941);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_21230,
																																									BgL_forwardz00_3943);
																																							}
																																							BgL_newzd2matchzd2_3946
																																								=
																																								22L;
																																							if ((BgL_forwardz00_3943 == BgL_bufposz00_3944))
																																								{	/* Read/reader.scm 441 */
																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_3941)))
																																										{	/* Read/reader.scm 441 */
																																											long
																																												BgL_arg2756z00_3949;
																																											long
																																												BgL_arg2759z00_3950;
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_21238;
																																												BgL_tmpz00_21238
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_3941);
																																												BgL_arg2756z00_3949
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_tmpz00_21238);
																																											}
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_21241;
																																												BgL_tmpz00_21241
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_3941);
																																												BgL_arg2759z00_3950
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_tmpz00_21241);
																																											}
																																											{
																																												long
																																													BgL_bufposz00_21245;
																																												long
																																													BgL_forwardz00_21244;
																																												BgL_forwardz00_21244
																																													=
																																													BgL_arg2756z00_3949;
																																												BgL_bufposz00_21245
																																													=
																																													BgL_arg2759z00_3950;
																																												BgL_bufposz00_3944
																																													=
																																													BgL_bufposz00_21245;
																																												BgL_forwardz00_3943
																																													=
																																													BgL_forwardz00_21244;
																																												goto
																																													BgL_zc3z04anonymousza32753ze3z87_3945;
																																											}
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_matchz00_9716
																																												=
																																												BgL_newzd2matchzd2_3946;
																																										}
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									int
																																										BgL_curz00_3951;
																																									{	/* Read/reader.scm 441 */
																																										obj_t
																																											BgL_tmpz00_21246;
																																										BgL_tmpz00_21246
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_3941);
																																										BgL_curz00_3951
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_tmpz00_21246,
																																											BgL_forwardz00_3943);
																																									}
																																									{	/* Read/reader.scm 441 */

																																										if (((long) (BgL_curz00_3951) == 58L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_iportz00_7302
																																													=
																																													BgL_iportz00_3941;
																																												BgL_lastzd2matchzd2_7303
																																													=
																																													BgL_newzd2matchzd2_3946;
																																												BgL_forwardz00_7304
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_3943);
																																												BgL_bufposz00_7305
																																													=
																																													BgL_bufposz00_3944;
																																											BgL_zc3z04anonymousza34616ze3z87_7306:
																																												{	/* Read/reader.scm 441 */
																																													long
																																														BgL_newzd2matchzd2_7307;
																																													{	/* Read/reader.scm 441 */
																																														obj_t
																																															BgL_tmpz00_21252;
																																														BgL_tmpz00_21252
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_7302);
																																														RGC_STOP_MATCH
																																															(BgL_tmpz00_21252,
																																															BgL_forwardz00_7304);
																																													}
																																													BgL_newzd2matchzd2_7307
																																														=
																																														20L;
																																													if ((BgL_forwardz00_7304 == BgL_bufposz00_7305))
																																														{	/* Read/reader.scm 441 */
																																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_7302)))
																																																{	/* Read/reader.scm 441 */
																																																	long
																																																		BgL_arg4619z00_7310;
																																																	long
																																																		BgL_arg4620z00_7311;
																																																	{	/* Read/reader.scm 441 */
																																																		obj_t
																																																			BgL_tmpz00_21260;
																																																		BgL_tmpz00_21260
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_7302);
																																																		BgL_arg4619z00_7310
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_tmpz00_21260);
																																																	}
																																																	{	/* Read/reader.scm 441 */
																																																		obj_t
																																																			BgL_tmpz00_21263;
																																																		BgL_tmpz00_21263
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_7302);
																																																		BgL_arg4620z00_7311
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_tmpz00_21263);
																																																	}
																																																	{
																																																		long
																																																			BgL_bufposz00_21267;
																																																		long
																																																			BgL_forwardz00_21266;
																																																		BgL_forwardz00_21266
																																																			=
																																																			BgL_arg4619z00_7310;
																																																		BgL_bufposz00_21267
																																																			=
																																																			BgL_arg4620z00_7311;
																																																		BgL_bufposz00_7305
																																																			=
																																																			BgL_bufposz00_21267;
																																																		BgL_forwardz00_7304
																																																			=
																																																			BgL_forwardz00_21266;
																																																		goto
																																																			BgL_zc3z04anonymousza34616ze3z87_7306;
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_matchz00_9716
																																																		=
																																																		BgL_newzd2matchzd2_7307;
																																																}
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															int
																																																BgL_curz00_7312;
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_21268;
																																																BgL_tmpz00_21268
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_7302);
																																																BgL_curz00_7312
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_tmpz00_21268,
																																																	BgL_forwardz00_7304);
																																															}
																																															{	/* Read/reader.scm 441 */

																																																if (((long) (BgL_curz00_7312) == 58L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_iportz00_8744
																																																			=
																																																			BgL_iportz00_7302;
																																																		BgL_lastzd2matchzd2_8745
																																																			=
																																																			BgL_newzd2matchzd2_7307;
																																																		BgL_forwardz00_8746
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_7304);
																																																		BgL_bufposz00_8747
																																																			=
																																																			BgL_bufposz00_7305;
																																																	BgL_zc3z04anonymousza35345ze3z87_8748:
																																																		{	/* Read/reader.scm 441 */
																																																			long
																																																				BgL_newzd2matchzd2_8749;
																																																			{	/* Read/reader.scm 441 */
																																																				obj_t
																																																					BgL_tmpz00_21274;
																																																				BgL_tmpz00_21274
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_8744);
																																																				RGC_STOP_MATCH
																																																					(BgL_tmpz00_21274,
																																																					BgL_forwardz00_8746);
																																																			}
																																																			BgL_newzd2matchzd2_8749
																																																				=
																																																				21L;
																																																			if ((BgL_forwardz00_8746 == BgL_bufposz00_8747))
																																																				{	/* Read/reader.scm 441 */
																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_8744)))
																																																						{	/* Read/reader.scm 441 */
																																																							long
																																																								BgL_arg5348z00_8752;
																																																							long
																																																								BgL_arg5349z00_8753;
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_21282;
																																																								BgL_tmpz00_21282
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_8744);
																																																								BgL_arg5348z00_8752
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_tmpz00_21282);
																																																							}
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_21285;
																																																								BgL_tmpz00_21285
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_8744);
																																																								BgL_arg5349z00_8753
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_tmpz00_21285);
																																																							}
																																																							{
																																																								long
																																																									BgL_bufposz00_21289;
																																																								long
																																																									BgL_forwardz00_21288;
																																																								BgL_forwardz00_21288
																																																									=
																																																									BgL_arg5348z00_8752;
																																																								BgL_bufposz00_21289
																																																									=
																																																									BgL_arg5349z00_8753;
																																																								BgL_bufposz00_8747
																																																									=
																																																									BgL_bufposz00_21289;
																																																								BgL_forwardz00_8746
																																																									=
																																																									BgL_forwardz00_21288;
																																																								goto
																																																									BgL_zc3z04anonymousza35345ze3z87_8748;
																																																							}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_matchz00_9716
																																																								=
																																																								BgL_newzd2matchzd2_8749;
																																																						}
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					int
																																																						BgL_curz00_8754;
																																																					{	/* Read/reader.scm 441 */
																																																						obj_t
																																																							BgL_tmpz00_21290;
																																																						BgL_tmpz00_21290
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_8744);
																																																						BgL_curz00_8754
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_tmpz00_21290,
																																																							BgL_forwardz00_8746);
																																																					}
																																																					{	/* Read/reader.scm 441 */

																																																						if (((long) (BgL_curz00_8754) == 58L))
																																																							{
																																																								long
																																																									BgL_forwardz00_21297;
																																																								long
																																																									BgL_lastzd2matchzd2_21296;
																																																								BgL_lastzd2matchzd2_21296
																																																									=
																																																									BgL_newzd2matchzd2_8749;
																																																								BgL_forwardz00_21297
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_8746);
																																																								BgL_forwardz00_8746
																																																									=
																																																									BgL_forwardz00_21297;
																																																								BgL_lastzd2matchzd2_8745
																																																									=
																																																									BgL_lastzd2matchzd2_21296;
																																																								goto
																																																									BgL_zc3z04anonymousza35345ze3z87_8748;
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_8754) == 46L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_iportz00_6327
																																																											=
																																																											BgL_iportz00_8744;
																																																										BgL_lastzd2matchzd2_6328
																																																											=
																																																											BgL_newzd2matchzd2_8749;
																																																										BgL_forwardz00_6329
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_8746);
																																																										BgL_bufposz00_6330
																																																											=
																																																											BgL_bufposz00_8747;
																																																									BgL_zc3z04anonymousza34108ze3z87_6331:
																																																										{	/* Read/reader.scm 441 */
																																																											long
																																																												BgL_newzd2matchzd2_6332;
																																																											{	/* Read/reader.scm 441 */
																																																												obj_t
																																																													BgL_tmpz00_21302;
																																																												BgL_tmpz00_21302
																																																													=
																																																													(
																																																													(obj_t)
																																																													BgL_iportz00_6327);
																																																												RGC_STOP_MATCH
																																																													(BgL_tmpz00_21302,
																																																													BgL_forwardz00_6329);
																																																											}
																																																											BgL_newzd2matchzd2_6332
																																																												=
																																																												22L;
																																																											if ((BgL_forwardz00_6329 == BgL_bufposz00_6330))
																																																												{	/* Read/reader.scm 441 */
																																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_6327)))
																																																														{	/* Read/reader.scm 441 */
																																																															long
																																																																BgL_arg4111z00_6335;
																																																															long
																																																																BgL_arg4112z00_6336;
																																																															{	/* Read/reader.scm 441 */
																																																																obj_t
																																																																	BgL_tmpz00_21310;
																																																																BgL_tmpz00_21310
																																																																	=
																																																																	(
																																																																	(obj_t)
																																																																	BgL_iportz00_6327);
																																																																BgL_arg4111z00_6335
																																																																	=
																																																																	RGC_BUFFER_FORWARD
																																																																	(BgL_tmpz00_21310);
																																																															}
																																																															{	/* Read/reader.scm 441 */
																																																																obj_t
																																																																	BgL_tmpz00_21313;
																																																																BgL_tmpz00_21313
																																																																	=
																																																																	(
																																																																	(obj_t)
																																																																	BgL_iportz00_6327);
																																																																BgL_arg4112z00_6336
																																																																	=
																																																																	RGC_BUFFER_BUFPOS
																																																																	(BgL_tmpz00_21313);
																																																															}
																																																															{
																																																																long
																																																																	BgL_bufposz00_21317;
																																																																long
																																																																	BgL_forwardz00_21316;
																																																																BgL_forwardz00_21316
																																																																	=
																																																																	BgL_arg4111z00_6335;
																																																																BgL_bufposz00_21317
																																																																	=
																																																																	BgL_arg4112z00_6336;
																																																																BgL_bufposz00_6330
																																																																	=
																																																																	BgL_bufposz00_21317;
																																																																BgL_forwardz00_6329
																																																																	=
																																																																	BgL_forwardz00_21316;
																																																																goto
																																																																	BgL_zc3z04anonymousza34108ze3z87_6331;
																																																															}
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_matchz00_9716
																																																																=
																																																																BgL_newzd2matchzd2_6332;
																																																														}
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													int
																																																														BgL_curz00_6337;
																																																													{	/* Read/reader.scm 441 */
																																																														obj_t
																																																															BgL_tmpz00_21318;
																																																														BgL_tmpz00_21318
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_6327);
																																																														BgL_curz00_6337
																																																															=
																																																															RGC_BUFFER_GET_CHAR
																																																															(BgL_tmpz00_21318,
																																																															BgL_forwardz00_6329);
																																																													}
																																																													{	/* Read/reader.scm 441 */

																																																														if (((long) (BgL_curz00_6337) == 58L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_iportz00_5427
																																																																	=
																																																																	BgL_iportz00_6327;
																																																																BgL_lastzd2matchzd2_5428
																																																																	=
																																																																	BgL_newzd2matchzd2_6332;
																																																																BgL_forwardz00_5429
																																																																	=
																																																																	(1L
																																																																	+
																																																																	BgL_forwardz00_6329);
																																																																BgL_bufposz00_5430
																																																																	=
																																																																	BgL_bufposz00_6330;
																																																															BgL_zc3z04anonymousza33654ze3z87_5431:
																																																																{	/* Read/reader.scm 441 */
																																																																	long
																																																																		BgL_newzd2matchzd2_5432;
																																																																	{	/* Read/reader.scm 441 */
																																																																		obj_t
																																																																			BgL_tmpz00_21324;
																																																																		BgL_tmpz00_21324
																																																																			=
																																																																			(
																																																																			(obj_t)
																																																																			BgL_iportz00_5427);
																																																																		RGC_STOP_MATCH
																																																																			(BgL_tmpz00_21324,
																																																																			BgL_forwardz00_5429);
																																																																	}
																																																																	BgL_newzd2matchzd2_5432
																																																																		=
																																																																		20L;
																																																																	if ((BgL_forwardz00_5429 == BgL_bufposz00_5430))
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_5427)))
																																																																				{	/* Read/reader.scm 441 */
																																																																					long
																																																																						BgL_arg3657z00_5435;
																																																																					long
																																																																						BgL_arg3659z00_5436;
																																																																					{	/* Read/reader.scm 441 */
																																																																						obj_t
																																																																							BgL_tmpz00_21332;
																																																																						BgL_tmpz00_21332
																																																																							=
																																																																							(
																																																																							(obj_t)
																																																																							BgL_iportz00_5427);
																																																																						BgL_arg3657z00_5435
																																																																							=
																																																																							RGC_BUFFER_FORWARD
																																																																							(BgL_tmpz00_21332);
																																																																					}
																																																																					{	/* Read/reader.scm 441 */
																																																																						obj_t
																																																																							BgL_tmpz00_21335;
																																																																						BgL_tmpz00_21335
																																																																							=
																																																																							(
																																																																							(obj_t)
																																																																							BgL_iportz00_5427);
																																																																						BgL_arg3659z00_5436
																																																																							=
																																																																							RGC_BUFFER_BUFPOS
																																																																							(BgL_tmpz00_21335);
																																																																					}
																																																																					{
																																																																						long
																																																																							BgL_bufposz00_21339;
																																																																						long
																																																																							BgL_forwardz00_21338;
																																																																						BgL_forwardz00_21338
																																																																							=
																																																																							BgL_arg3657z00_5435;
																																																																						BgL_bufposz00_21339
																																																																							=
																																																																							BgL_arg3659z00_5436;
																																																																						BgL_bufposz00_5430
																																																																							=
																																																																							BgL_bufposz00_21339;
																																																																						BgL_forwardz00_5429
																																																																							=
																																																																							BgL_forwardz00_21338;
																																																																						goto
																																																																							BgL_zc3z04anonymousza33654ze3z87_5431;
																																																																					}
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_matchz00_9716
																																																																						=
																																																																						BgL_newzd2matchzd2_5432;
																																																																				}
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			int
																																																																				BgL_curz00_5437;
																																																																			{	/* Read/reader.scm 441 */
																																																																				obj_t
																																																																					BgL_tmpz00_21340;
																																																																				BgL_tmpz00_21340
																																																																					=
																																																																					(
																																																																					(obj_t)
																																																																					BgL_iportz00_5427);
																																																																				BgL_curz00_5437
																																																																					=
																																																																					RGC_BUFFER_GET_CHAR
																																																																					(BgL_tmpz00_21340,
																																																																					BgL_forwardz00_5429);
																																																																			}
																																																																			{	/* Read/reader.scm 441 */

																																																																				if (((long) (BgL_curz00_5437) == 58L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_iportz00_8683
																																																																							=
																																																																							BgL_iportz00_5427;
																																																																						BgL_lastzd2matchzd2_8684
																																																																							=
																																																																							BgL_newzd2matchzd2_5432;
																																																																						BgL_forwardz00_8685
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_5429);
																																																																						BgL_bufposz00_8686
																																																																							=
																																																																							BgL_bufposz00_5430;
																																																																					BgL_zc3z04anonymousza35314ze3z87_8687:
																																																																						{	/* Read/reader.scm 441 */
																																																																							long
																																																																								BgL_newzd2matchzd2_8688;
																																																																							{	/* Read/reader.scm 441 */
																																																																								obj_t
																																																																									BgL_tmpz00_21346;
																																																																								BgL_tmpz00_21346
																																																																									=
																																																																									(
																																																																									(obj_t)
																																																																									BgL_iportz00_8683);
																																																																								RGC_STOP_MATCH
																																																																									(BgL_tmpz00_21346,
																																																																									BgL_forwardz00_8685);
																																																																							}
																																																																							BgL_newzd2matchzd2_8688
																																																																								=
																																																																								21L;
																																																																							if ((BgL_forwardz00_8685 == BgL_bufposz00_8686))
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_8683)))
																																																																										{	/* Read/reader.scm 441 */
																																																																											long
																																																																												BgL_arg5317z00_8691;
																																																																											long
																																																																												BgL_arg5318z00_8692;
																																																																											{	/* Read/reader.scm 441 */
																																																																												obj_t
																																																																													BgL_tmpz00_21354;
																																																																												BgL_tmpz00_21354
																																																																													=
																																																																													(
																																																																													(obj_t)
																																																																													BgL_iportz00_8683);
																																																																												BgL_arg5317z00_8691
																																																																													=
																																																																													RGC_BUFFER_FORWARD
																																																																													(BgL_tmpz00_21354);
																																																																											}
																																																																											{	/* Read/reader.scm 441 */
																																																																												obj_t
																																																																													BgL_tmpz00_21357;
																																																																												BgL_tmpz00_21357
																																																																													=
																																																																													(
																																																																													(obj_t)
																																																																													BgL_iportz00_8683);
																																																																												BgL_arg5318z00_8692
																																																																													=
																																																																													RGC_BUFFER_BUFPOS
																																																																													(BgL_tmpz00_21357);
																																																																											}
																																																																											{
																																																																												long
																																																																													BgL_bufposz00_21361;
																																																																												long
																																																																													BgL_forwardz00_21360;
																																																																												BgL_forwardz00_21360
																																																																													=
																																																																													BgL_arg5317z00_8691;
																																																																												BgL_bufposz00_21361
																																																																													=
																																																																													BgL_arg5318z00_8692;
																																																																												BgL_bufposz00_8686
																																																																													=
																																																																													BgL_bufposz00_21361;
																																																																												BgL_forwardz00_8685
																																																																													=
																																																																													BgL_forwardz00_21360;
																																																																												goto
																																																																													BgL_zc3z04anonymousza35314ze3z87_8687;
																																																																											}
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_matchz00_9716
																																																																												=
																																																																												BgL_newzd2matchzd2_8688;
																																																																										}
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									int
																																																																										BgL_curz00_8693;
																																																																									{	/* Read/reader.scm 441 */
																																																																										obj_t
																																																																											BgL_tmpz00_21362;
																																																																										BgL_tmpz00_21362
																																																																											=
																																																																											(
																																																																											(obj_t)
																																																																											BgL_iportz00_8683);
																																																																										BgL_curz00_8693
																																																																											=
																																																																											RGC_BUFFER_GET_CHAR
																																																																											(BgL_tmpz00_21362,
																																																																											BgL_forwardz00_8685);
																																																																									}
																																																																									{	/* Read/reader.scm 441 */

																																																																										if (((long) (BgL_curz00_8693) == 58L))
																																																																											{
																																																																												long
																																																																													BgL_forwardz00_21369;
																																																																												long
																																																																													BgL_lastzd2matchzd2_21368;
																																																																												BgL_lastzd2matchzd2_21368
																																																																													=
																																																																													BgL_newzd2matchzd2_8688;
																																																																												BgL_forwardz00_21369
																																																																													=
																																																																													(1L
																																																																													+
																																																																													BgL_forwardz00_8685);
																																																																												BgL_forwardz00_8685
																																																																													=
																																																																													BgL_forwardz00_21369;
																																																																												BgL_lastzd2matchzd2_8684
																																																																													=
																																																																													BgL_lastzd2matchzd2_21368;
																																																																												goto
																																																																													BgL_zc3z04anonymousza35314ze3z87_8687;
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												if (((long) (BgL_curz00_8693) == 46L))
																																																																													{
																																																																														long
																																																																															BgL_bufposz00_21378;
																																																																														long
																																																																															BgL_forwardz00_21376;
																																																																														long
																																																																															BgL_lastzd2matchzd2_21375;
																																																																														obj_t
																																																																															BgL_iportz00_21374;
																																																																														BgL_iportz00_21374
																																																																															=
																																																																															BgL_iportz00_8683;
																																																																														BgL_lastzd2matchzd2_21375
																																																																															=
																																																																															BgL_newzd2matchzd2_8688;
																																																																														BgL_forwardz00_21376
																																																																															=
																																																																															(1L
																																																																															+
																																																																															BgL_forwardz00_8685);
																																																																														BgL_bufposz00_21378
																																																																															=
																																																																															BgL_bufposz00_8686;
																																																																														BgL_bufposz00_6330
																																																																															=
																																																																															BgL_bufposz00_21378;
																																																																														BgL_forwardz00_6329
																																																																															=
																																																																															BgL_forwardz00_21376;
																																																																														BgL_lastzd2matchzd2_6328
																																																																															=
																																																																															BgL_lastzd2matchzd2_21375;
																																																																														BgL_iportz00_6327
																																																																															=
																																																																															BgL_iportz00_21374;
																																																																														goto
																																																																															BgL_zc3z04anonymousza34108ze3z87_6331;
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														bool_t
																																																																															BgL_test7537z00_21379;
																																																																														if (((long) (BgL_curz00_8693) == 39L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7537z00_21379
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																if (((long) (BgL_curz00_8693) == 44L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7537z00_21379
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7537z00_21379
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_8693)
																																																																																			==
																																																																																			96L);
																																																																															}}
																																																																														if (BgL_test7537z00_21379)
																																																																															{
																																																																																long
																																																																																	BgL_bufposz00_21392;
																																																																																long
																																																																																	BgL_forwardz00_21390;
																																																																																long
																																																																																	BgL_lastzd2matchzd2_21389;
																																																																																obj_t
																																																																																	BgL_iportz00_21388;
																																																																																BgL_iportz00_21388
																																																																																	=
																																																																																	BgL_iportz00_8683;
																																																																																BgL_lastzd2matchzd2_21389
																																																																																	=
																																																																																	BgL_newzd2matchzd2_8688;
																																																																																BgL_forwardz00_21390
																																																																																	=
																																																																																	(1L
																																																																																	+
																																																																																	BgL_forwardz00_8685);
																																																																																BgL_bufposz00_21392
																																																																																	=
																																																																																	BgL_bufposz00_8686;
																																																																																BgL_bufposz00_5795
																																																																																	=
																																																																																	BgL_bufposz00_21392;
																																																																																BgL_forwardz00_5794
																																																																																	=
																																																																																	BgL_forwardz00_21390;
																																																																																BgL_lastzd2matchzd2_5793
																																																																																	=
																																																																																	BgL_lastzd2matchzd2_21389;
																																																																																BgL_iportz00_5792
																																																																																	=
																																																																																	BgL_iportz00_21388;
																																																																																goto
																																																																																	BgL_zc3z04anonymousza33844ze3z87_5796;
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																bool_t
																																																																																	BgL_test7540z00_21393;
																																																																																if (((long) (BgL_curz00_8693) < 33L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7540z00_21393
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		bool_t
																																																																																			BgL_test7542z00_21397;
																																																																																		if (((long) (BgL_curz00_8693) == 35L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7542z00_21397
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7542z00_21397
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_8693)
																																																																																					==
																																																																																					34L);
																																																																																			}
																																																																																		if (BgL_test7542z00_21397)
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7540z00_21393
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				bool_t
																																																																																					BgL_test7544z00_21403;
																																																																																				if (((long) (BgL_curz00_8693) == 41L))
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7544z00_21403
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						if (((long) (BgL_curz00_8693) == 40L))
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7544z00_21403
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7544z00_21403
																																																																																									=
																																																																																									(
																																																																																									(long)
																																																																																									(BgL_curz00_8693)
																																																																																									==
																																																																																									39L);
																																																																																					}}
																																																																																				if (BgL_test7544z00_21403)
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7540z00_21393
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						if (((long) (BgL_curz00_8693) == 44L))
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7540z00_21393
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								if (((long) (BgL_curz00_8693) == 46L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7540z00_21393
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										bool_t
																																																																																											BgL_test7549z00_21418;
																																																																																										if (((long) (BgL_curz00_8693) == 59L))
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7549z00_21418
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7549z00_21418
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_8693)
																																																																																													==
																																																																																													58L);
																																																																																											}
																																																																																										if (BgL_test7549z00_21418)
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7540z00_21393
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												if (((long) (BgL_curz00_8693) == 91L))
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7540z00_21393
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														if (((long) (BgL_curz00_8693) == 93L))
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7540z00_21393
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																if (((long) (BgL_curz00_8693) == 96L))
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		BgL_test7540z00_21393
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		bool_t
																																																																																																			BgL_test7554z00_21433;
																																																																																																		if (((long) (BgL_curz00_8693) == 125L))
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7554z00_21433
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				if (((long) (BgL_curz00_8693) == 124L))
																																																																																																					{	/* Read/reader.scm 441 */
																																																																																																						BgL_test7554z00_21433
																																																																																																							=
																																																																																																							(
																																																																																																							(bool_t)
																																																																																																							1);
																																																																																																					}
																																																																																																				else
																																																																																																					{	/* Read/reader.scm 441 */
																																																																																																						BgL_test7554z00_21433
																																																																																																							=
																																																																																																							(
																																																																																																							(long)
																																																																																																							(BgL_curz00_8693)
																																																																																																							==
																																																																																																							123L);
																																																																																																			}}
																																																																																																		if (BgL_test7554z00_21433)
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7540z00_21393
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7540z00_21393
																																																																																																					=
																																																																																																					(
																																																																																																					(long)
																																																																																																					(BgL_curz00_8693)
																																																																																																					==
																																																																																																					127L);
																																																																																	}}}}}}}}}}
																																																																																if (BgL_test7540z00_21393)
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_matchz00_9716
																																																																																			=
																																																																																			BgL_newzd2matchzd2_8688;
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_iportz00_4195
																																																																																			=
																																																																																			BgL_iportz00_8683;
																																																																																		BgL_lastzd2matchzd2_4196
																																																																																			=
																																																																																			BgL_newzd2matchzd2_8688;
																																																																																		BgL_forwardz00_4197
																																																																																			=
																																																																																			(1L
																																																																																			+
																																																																																			BgL_forwardz00_8685);
																																																																																		BgL_bufposz00_4198
																																																																																			=
																																																																																			BgL_bufposz00_8686;
																																																																																	BgL_zc3z04anonymousza32920ze3z87_4199:
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			long
																																																																																				BgL_newzd2matchzd2_4200;
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				obj_t
																																																																																					BgL_tmpz00_21444;
																																																																																				BgL_tmpz00_21444
																																																																																					=
																																																																																					(
																																																																																					(obj_t)
																																																																																					BgL_iportz00_4195);
																																																																																				RGC_STOP_MATCH
																																																																																					(BgL_tmpz00_21444,
																																																																																					BgL_forwardz00_4197);
																																																																																			}
																																																																																			BgL_newzd2matchzd2_4200
																																																																																				=
																																																																																				21L;
																																																																																			if ((BgL_forwardz00_4197 == BgL_bufposz00_4198))
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_4195)))
																																																																																						{	/* Read/reader.scm 441 */
																																																																																							long
																																																																																								BgL_arg2923z00_4203;
																																																																																							long
																																																																																								BgL_arg2924z00_4204;
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								obj_t
																																																																																									BgL_tmpz00_21452;
																																																																																								BgL_tmpz00_21452
																																																																																									=
																																																																																									(
																																																																																									(obj_t)
																																																																																									BgL_iportz00_4195);
																																																																																								BgL_arg2923z00_4203
																																																																																									=
																																																																																									RGC_BUFFER_FORWARD
																																																																																									(BgL_tmpz00_21452);
																																																																																							}
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								obj_t
																																																																																									BgL_tmpz00_21455;
																																																																																								BgL_tmpz00_21455
																																																																																									=
																																																																																									(
																																																																																									(obj_t)
																																																																																									BgL_iportz00_4195);
																																																																																								BgL_arg2924z00_4204
																																																																																									=
																																																																																									RGC_BUFFER_BUFPOS
																																																																																									(BgL_tmpz00_21455);
																																																																																							}
																																																																																							{
																																																																																								long
																																																																																									BgL_bufposz00_21459;
																																																																																								long
																																																																																									BgL_forwardz00_21458;
																																																																																								BgL_forwardz00_21458
																																																																																									=
																																																																																									BgL_arg2923z00_4203;
																																																																																								BgL_bufposz00_21459
																																																																																									=
																																																																																									BgL_arg2924z00_4204;
																																																																																								BgL_bufposz00_4198
																																																																																									=
																																																																																									BgL_bufposz00_21459;
																																																																																								BgL_forwardz00_4197
																																																																																									=
																																																																																									BgL_forwardz00_21458;
																																																																																								goto
																																																																																									BgL_zc3z04anonymousza32920ze3z87_4199;
																																																																																							}
																																																																																						}
																																																																																					else
																																																																																						{	/* Read/reader.scm 441 */
																																																																																							BgL_matchz00_9716
																																																																																								=
																																																																																								BgL_newzd2matchzd2_4200;
																																																																																						}
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					int
																																																																																						BgL_curz00_4205;
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						obj_t
																																																																																							BgL_tmpz00_21460;
																																																																																						BgL_tmpz00_21460
																																																																																							=
																																																																																							(
																																																																																							(obj_t)
																																																																																							BgL_iportz00_4195);
																																																																																						BgL_curz00_4205
																																																																																							=
																																																																																							RGC_BUFFER_GET_CHAR
																																																																																							(BgL_tmpz00_21460,
																																																																																							BgL_forwardz00_4197);
																																																																																					}
																																																																																					{	/* Read/reader.scm 441 */

																																																																																						if (((long) (BgL_curz00_4205) == 58L))
																																																																																							{
																																																																																								long
																																																																																									BgL_bufposz00_21470;
																																																																																								long
																																																																																									BgL_forwardz00_21468;
																																																																																								long
																																																																																									BgL_lastzd2matchzd2_21467;
																																																																																								obj_t
																																																																																									BgL_iportz00_21466;
																																																																																								BgL_iportz00_21466
																																																																																									=
																																																																																									BgL_iportz00_4195;
																																																																																								BgL_lastzd2matchzd2_21467
																																																																																									=
																																																																																									BgL_newzd2matchzd2_4200;
																																																																																								BgL_forwardz00_21468
																																																																																									=
																																																																																									(1L
																																																																																									+
																																																																																									BgL_forwardz00_4197);
																																																																																								BgL_bufposz00_21470
																																																																																									=
																																																																																									BgL_bufposz00_4198;
																																																																																								BgL_bufposz00_5430
																																																																																									=
																																																																																									BgL_bufposz00_21470;
																																																																																								BgL_forwardz00_5429
																																																																																									=
																																																																																									BgL_forwardz00_21468;
																																																																																								BgL_lastzd2matchzd2_5428
																																																																																									=
																																																																																									BgL_lastzd2matchzd2_21467;
																																																																																								BgL_iportz00_5427
																																																																																									=
																																																																																									BgL_iportz00_21466;
																																																																																								goto
																																																																																									BgL_zc3z04anonymousza33654ze3z87_5431;
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								if (((long) (BgL_curz00_4205) == 46L))
																																																																																									{
																																																																																										long
																																																																																											BgL_bufposz00_21478;
																																																																																										long
																																																																																											BgL_forwardz00_21476;
																																																																																										long
																																																																																											BgL_lastzd2matchzd2_21475;
																																																																																										obj_t
																																																																																											BgL_iportz00_21474;
																																																																																										BgL_iportz00_21474
																																																																																											=
																																																																																											BgL_iportz00_4195;
																																																																																										BgL_lastzd2matchzd2_21475
																																																																																											=
																																																																																											BgL_newzd2matchzd2_4200;
																																																																																										BgL_forwardz00_21476
																																																																																											=
																																																																																											(1L
																																																																																											+
																																																																																											BgL_forwardz00_4197);
																																																																																										BgL_bufposz00_21478
																																																																																											=
																																																																																											BgL_bufposz00_4198;
																																																																																										BgL_bufposz00_6330
																																																																																											=
																																																																																											BgL_bufposz00_21478;
																																																																																										BgL_forwardz00_6329
																																																																																											=
																																																																																											BgL_forwardz00_21476;
																																																																																										BgL_lastzd2matchzd2_6328
																																																																																											=
																																																																																											BgL_lastzd2matchzd2_21475;
																																																																																										BgL_iportz00_6327
																																																																																											=
																																																																																											BgL_iportz00_21474;
																																																																																										goto
																																																																																											BgL_zc3z04anonymousza34108ze3z87_6331;
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										bool_t
																																																																																											BgL_test7561z00_21479;
																																																																																										if (((long) (BgL_curz00_4205) == 39L))
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7561z00_21479
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												if (((long) (BgL_curz00_4205) == 44L))
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7561z00_21479
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7561z00_21479
																																																																																															=
																																																																																															(
																																																																																															(long)
																																																																																															(BgL_curz00_4205)
																																																																																															==
																																																																																															96L);
																																																																																											}}
																																																																																										if (BgL_test7561z00_21479)
																																																																																											{
																																																																																												long
																																																																																													BgL_bufposz00_21492;
																																																																																												long
																																																																																													BgL_forwardz00_21490;
																																																																																												long
																																																																																													BgL_lastzd2matchzd2_21489;
																																																																																												obj_t
																																																																																													BgL_iportz00_21488;
																																																																																												BgL_iportz00_21488
																																																																																													=
																																																																																													BgL_iportz00_4195;
																																																																																												BgL_lastzd2matchzd2_21489
																																																																																													=
																																																																																													BgL_newzd2matchzd2_4200;
																																																																																												BgL_forwardz00_21490
																																																																																													=
																																																																																													(1L
																																																																																													+
																																																																																													BgL_forwardz00_4197);
																																																																																												BgL_bufposz00_21492
																																																																																													=
																																																																																													BgL_bufposz00_4198;
																																																																																												BgL_bufposz00_5795
																																																																																													=
																																																																																													BgL_bufposz00_21492;
																																																																																												BgL_forwardz00_5794
																																																																																													=
																																																																																													BgL_forwardz00_21490;
																																																																																												BgL_lastzd2matchzd2_5793
																																																																																													=
																																																																																													BgL_lastzd2matchzd2_21489;
																																																																																												BgL_iportz00_5792
																																																																																													=
																																																																																													BgL_iportz00_21488;
																																																																																												goto
																																																																																													BgL_zc3z04anonymousza33844ze3z87_5796;
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												bool_t
																																																																																													BgL_test7564z00_21493;
																																																																																												if (((long) (BgL_curz00_4205) < 33L))
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7564z00_21493
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														bool_t
																																																																																															BgL_test7566z00_21497;
																																																																																														if (((long) (BgL_curz00_4205) == 35L))
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7566z00_21497
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7566z00_21497
																																																																																																	=
																																																																																																	(
																																																																																																	(long)
																																																																																																	(BgL_curz00_4205)
																																																																																																	==
																																																																																																	34L);
																																																																																															}
																																																																																														if (BgL_test7566z00_21497)
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7564z00_21493
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																bool_t
																																																																																																	BgL_test7568z00_21503;
																																																																																																if (((long) (BgL_curz00_4205) == 41L))
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		BgL_test7568z00_21503
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		if (((long) (BgL_curz00_4205) == 40L))
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7568z00_21503
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7568z00_21503
																																																																																																					=
																																																																																																					(
																																																																																																					(long)
																																																																																																					(BgL_curz00_4205)
																																																																																																					==
																																																																																																					39L);
																																																																																																	}}
																																																																																																if (BgL_test7568z00_21503)
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		BgL_test7564z00_21493
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		if (((long) (BgL_curz00_4205) == 44L))
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7564z00_21493
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				if (((long) (BgL_curz00_4205) == 46L))
																																																																																																					{	/* Read/reader.scm 441 */
																																																																																																						BgL_test7564z00_21493
																																																																																																							=
																																																																																																							(
																																																																																																							(bool_t)
																																																																																																							1);
																																																																																																					}
																																																																																																				else
																																																																																																					{	/* Read/reader.scm 441 */
																																																																																																						bool_t
																																																																																																							BgL_test7573z00_21518;
																																																																																																						if (((long) (BgL_curz00_4205) == 59L))
																																																																																																							{	/* Read/reader.scm 441 */
																																																																																																								BgL_test7573z00_21518
																																																																																																									=
																																																																																																									(
																																																																																																									(bool_t)
																																																																																																									1);
																																																																																																							}
																																																																																																						else
																																																																																																							{	/* Read/reader.scm 441 */
																																																																																																								BgL_test7573z00_21518
																																																																																																									=
																																																																																																									(
																																																																																																									(long)
																																																																																																									(BgL_curz00_4205)
																																																																																																									==
																																																																																																									58L);
																																																																																																							}
																																																																																																						if (BgL_test7573z00_21518)
																																																																																																							{	/* Read/reader.scm 441 */
																																																																																																								BgL_test7564z00_21493
																																																																																																									=
																																																																																																									(
																																																																																																									(bool_t)
																																																																																																									1);
																																																																																																							}
																																																																																																						else
																																																																																																							{	/* Read/reader.scm 441 */
																																																																																																								if (((long) (BgL_curz00_4205) == 91L))
																																																																																																									{	/* Read/reader.scm 441 */
																																																																																																										BgL_test7564z00_21493
																																																																																																											=
																																																																																																											(
																																																																																																											(bool_t)
																																																																																																											1);
																																																																																																									}
																																																																																																								else
																																																																																																									{	/* Read/reader.scm 441 */
																																																																																																										if (((long) (BgL_curz00_4205) == 93L))
																																																																																																											{	/* Read/reader.scm 441 */
																																																																																																												BgL_test7564z00_21493
																																																																																																													=
																																																																																																													(
																																																																																																													(bool_t)
																																																																																																													1);
																																																																																																											}
																																																																																																										else
																																																																																																											{	/* Read/reader.scm 441 */
																																																																																																												if (((long) (BgL_curz00_4205) == 96L))
																																																																																																													{	/* Read/reader.scm 441 */
																																																																																																														BgL_test7564z00_21493
																																																																																																															=
																																																																																																															(
																																																																																																															(bool_t)
																																																																																																															1);
																																																																																																													}
																																																																																																												else
																																																																																																													{	/* Read/reader.scm 441 */
																																																																																																														bool_t
																																																																																																															BgL_test7578z00_21533;
																																																																																																														if (((long) (BgL_curz00_4205) == 125L))
																																																																																																															{	/* Read/reader.scm 441 */
																																																																																																																BgL_test7578z00_21533
																																																																																																																	=
																																																																																																																	(
																																																																																																																	(bool_t)
																																																																																																																	1);
																																																																																																															}
																																																																																																														else
																																																																																																															{	/* Read/reader.scm 441 */
																																																																																																																if (((long) (BgL_curz00_4205) == 124L))
																																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																																		BgL_test7578z00_21533
																																																																																																																			=
																																																																																																																			(
																																																																																																																			(bool_t)
																																																																																																																			1);
																																																																																																																	}
																																																																																																																else
																																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																																		BgL_test7578z00_21533
																																																																																																																			=
																																																																																																																			(
																																																																																																																			(long)
																																																																																																																			(BgL_curz00_4205)
																																																																																																																			==
																																																																																																																			123L);
																																																																																																															}}
																																																																																																														if (BgL_test7578z00_21533)
																																																																																																															{	/* Read/reader.scm 441 */
																																																																																																																BgL_test7564z00_21493
																																																																																																																	=
																																																																																																																	(
																																																																																																																	(bool_t)
																																																																																																																	1);
																																																																																																															}
																																																																																																														else
																																																																																																															{	/* Read/reader.scm 441 */
																																																																																																																BgL_test7564z00_21493
																																																																																																																	=
																																																																																																																	(
																																																																																																																	(long)
																																																																																																																	(BgL_curz00_4205)
																																																																																																																	==
																																																																																																																	127L);
																																																																																													}}}}}}}}}}
																																																																																												if (BgL_test7564z00_21493)
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_matchz00_9716
																																																																																															=
																																																																																															BgL_newzd2matchzd2_4200;
																																																																																													}
																																																																																												else
																																																																																													{
																																																																																														long
																																																																																															BgL_forwardz00_21545;
																																																																																														long
																																																																																															BgL_lastzd2matchzd2_21544;
																																																																																														BgL_lastzd2matchzd2_21544
																																																																																															=
																																																																																															BgL_newzd2matchzd2_4200;
																																																																																														BgL_forwardz00_21545
																																																																																															=
																																																																																															(1L
																																																																																															+
																																																																																															BgL_forwardz00_4197);
																																																																																														BgL_forwardz00_4197
																																																																																															=
																																																																																															BgL_forwardz00_21545;
																																																																																														BgL_lastzd2matchzd2_4196
																																																																																															=
																																																																																															BgL_lastzd2matchzd2_21544;
																																																																																														goto
																																																																																															BgL_zc3z04anonymousza32920ze3z87_4199;
																																																																																													}
																																																																																											}
																																																																																									}
																																																																																							}
																																																																																					}
																																																																																				}
																																																																																		}
																																																																																	}
																																																																															}
																																																																													}
																																																																											}
																																																																									}
																																																																								}
																																																																						}
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						if (((long) (BgL_curz00_5437) == 46L))
																																																																							{
																																																																								long
																																																																									BgL_bufposz00_21556;
																																																																								long
																																																																									BgL_forwardz00_21554;
																																																																								long
																																																																									BgL_lastzd2matchzd2_21553;
																																																																								obj_t
																																																																									BgL_iportz00_21552;
																																																																								BgL_iportz00_21552
																																																																									=
																																																																									BgL_iportz00_5427;
																																																																								BgL_lastzd2matchzd2_21553
																																																																									=
																																																																									BgL_newzd2matchzd2_5432;
																																																																								BgL_forwardz00_21554
																																																																									=
																																																																									(1L
																																																																									+
																																																																									BgL_forwardz00_5429);
																																																																								BgL_bufposz00_21556
																																																																									=
																																																																									BgL_bufposz00_5430;
																																																																								BgL_bufposz00_6330
																																																																									=
																																																																									BgL_bufposz00_21556;
																																																																								BgL_forwardz00_6329
																																																																									=
																																																																									BgL_forwardz00_21554;
																																																																								BgL_lastzd2matchzd2_6328
																																																																									=
																																																																									BgL_lastzd2matchzd2_21553;
																																																																								BgL_iportz00_6327
																																																																									=
																																																																									BgL_iportz00_21552;
																																																																								goto
																																																																									BgL_zc3z04anonymousza34108ze3z87_6331;
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								bool_t
																																																																									BgL_test7582z00_21557;
																																																																								if (((long) (BgL_curz00_5437) == 39L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7582z00_21557
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										if (((long) (BgL_curz00_5437) == 44L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7582z00_21557
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7582z00_21557
																																																																													=
																																																																													(
																																																																													(long)
																																																																													(BgL_curz00_5437)
																																																																													==
																																																																													96L);
																																																																									}}
																																																																								if (BgL_test7582z00_21557)
																																																																									{
																																																																										long
																																																																											BgL_bufposz00_21570;
																																																																										long
																																																																											BgL_forwardz00_21568;
																																																																										long
																																																																											BgL_lastzd2matchzd2_21567;
																																																																										obj_t
																																																																											BgL_iportz00_21566;
																																																																										BgL_iportz00_21566
																																																																											=
																																																																											BgL_iportz00_5427;
																																																																										BgL_lastzd2matchzd2_21567
																																																																											=
																																																																											BgL_newzd2matchzd2_5432;
																																																																										BgL_forwardz00_21568
																																																																											=
																																																																											(1L
																																																																											+
																																																																											BgL_forwardz00_5429);
																																																																										BgL_bufposz00_21570
																																																																											=
																																																																											BgL_bufposz00_5430;
																																																																										BgL_bufposz00_5795
																																																																											=
																																																																											BgL_bufposz00_21570;
																																																																										BgL_forwardz00_5794
																																																																											=
																																																																											BgL_forwardz00_21568;
																																																																										BgL_lastzd2matchzd2_5793
																																																																											=
																																																																											BgL_lastzd2matchzd2_21567;
																																																																										BgL_iportz00_5792
																																																																											=
																																																																											BgL_iportz00_21566;
																																																																										goto
																																																																											BgL_zc3z04anonymousza33844ze3z87_5796;
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										bool_t
																																																																											BgL_test7585z00_21571;
																																																																										if (((long) (BgL_curz00_5437) < 33L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7585z00_21571
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												bool_t
																																																																													BgL_test7587z00_21575;
																																																																												if (((long) (BgL_curz00_5437) == 35L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7587z00_21575
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7587z00_21575
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_5437)
																																																																															==
																																																																															34L);
																																																																													}
																																																																												if (BgL_test7587z00_21575)
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7585z00_21571
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														bool_t
																																																																															BgL_test7589z00_21581;
																																																																														if (((long) (BgL_curz00_5437) == 41L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7589z00_21581
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																if (((long) (BgL_curz00_5437) == 40L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7589z00_21581
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7589z00_21581
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_5437)
																																																																																			==
																																																																																			39L);
																																																																															}}
																																																																														if (BgL_test7589z00_21581)
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7585z00_21571
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																if (((long) (BgL_curz00_5437) == 44L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7585z00_21571
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		if (((long) (BgL_curz00_5437) == 46L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7585z00_21571
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				bool_t
																																																																																					BgL_test7594z00_21596;
																																																																																				if (((long) (BgL_curz00_5437) == 59L))
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7594z00_21596
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7594z00_21596
																																																																																							=
																																																																																							(
																																																																																							(long)
																																																																																							(BgL_curz00_5437)
																																																																																							==
																																																																																							58L);
																																																																																					}
																																																																																				if (BgL_test7594z00_21596)
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7585z00_21571
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						if (((long) (BgL_curz00_5437) == 91L))
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7585z00_21571
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								if (((long) (BgL_curz00_5437) == 93L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7585z00_21571
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										if (((long) (BgL_curz00_5437) == 96L))
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7585z00_21571
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												bool_t
																																																																																													BgL_test7599z00_21611;
																																																																																												if (((long) (BgL_curz00_5437) == 125L))
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7599z00_21611
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														if (((long) (BgL_curz00_5437) == 124L))
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7599z00_21611
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7599z00_21611
																																																																																																	=
																																																																																																	(
																																																																																																	(long)
																																																																																																	(BgL_curz00_5437)
																																																																																																	==
																																																																																																	123L);
																																																																																													}}
																																																																																												if (BgL_test7599z00_21611)
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7585z00_21571
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7585z00_21571
																																																																																															=
																																																																																															(
																																																																																															(long)
																																																																																															(BgL_curz00_5437)
																																																																																															==
																																																																																															127L);
																																																																											}}}}}}}}}}
																																																																										if (BgL_test7585z00_21571)
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_matchz00_9716
																																																																													=
																																																																													BgL_newzd2matchzd2_5432;
																																																																											}
																																																																										else
																																																																											{
																																																																												long
																																																																													BgL_bufposz00_21626;
																																																																												long
																																																																													BgL_forwardz00_21624;
																																																																												long
																																																																													BgL_lastzd2matchzd2_21623;
																																																																												obj_t
																																																																													BgL_iportz00_21622;
																																																																												BgL_iportz00_21622
																																																																													=
																																																																													BgL_iportz00_5427;
																																																																												BgL_lastzd2matchzd2_21623
																																																																													=
																																																																													BgL_newzd2matchzd2_5432;
																																																																												BgL_forwardz00_21624
																																																																													=
																																																																													(1L
																																																																													+
																																																																													BgL_forwardz00_5429);
																																																																												BgL_bufposz00_21626
																																																																													=
																																																																													BgL_bufposz00_5430;
																																																																												BgL_bufposz00_4198
																																																																													=
																																																																													BgL_bufposz00_21626;
																																																																												BgL_forwardz00_4197
																																																																													=
																																																																													BgL_forwardz00_21624;
																																																																												BgL_lastzd2matchzd2_4196
																																																																													=
																																																																													BgL_lastzd2matchzd2_21623;
																																																																												BgL_iportz00_4195
																																																																													=
																																																																													BgL_iportz00_21622;
																																																																												goto
																																																																													BgL_zc3z04anonymousza32920ze3z87_4199;
																																																																											}
																																																																									}
																																																																							}
																																																																					}
																																																																			}
																																																																		}
																																																																}
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																bool_t
																																																																	BgL_test7602z00_21628;
																																																																if (((long) (BgL_curz00_6337) >= 48L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7602z00_21628
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_6337)
																																																																			<
																																																																			58L);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7602z00_21628
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			0);
																																																																	}
																																																																if (BgL_test7602z00_21628)
																																																																	{
																																																																		long
																																																																			BgL_forwardz00_21635;
																																																																		long
																																																																			BgL_lastzd2matchzd2_21634;
																																																																		BgL_lastzd2matchzd2_21634
																																																																			=
																																																																			BgL_newzd2matchzd2_6332;
																																																																		BgL_forwardz00_21635
																																																																			=
																																																																			(1L
																																																																			+
																																																																			BgL_forwardz00_6329);
																																																																		BgL_forwardz00_6329
																																																																			=
																																																																			BgL_forwardz00_21635;
																																																																		BgL_lastzd2matchzd2_6328
																																																																			=
																																																																			BgL_lastzd2matchzd2_21634;
																																																																		goto
																																																																			BgL_zc3z04anonymousza34108ze3z87_6331;
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_6337) == 46L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_iportz00_9540
																																																																					=
																																																																					BgL_iportz00_6327;
																																																																				BgL_lastzd2matchzd2_9541
																																																																					=
																																																																					BgL_newzd2matchzd2_6332;
																																																																				BgL_forwardz00_9542
																																																																					=
																																																																					(1L
																																																																					+
																																																																					BgL_forwardz00_6329);
																																																																				BgL_bufposz00_9543
																																																																					=
																																																																					BgL_bufposz00_6330;
																																																																			BgL_zc3z04anonymousza35755ze3z87_9544:
																																																																				{	/* Read/reader.scm 441 */
																																																																					long
																																																																						BgL_newzd2matchzd2_9545;
																																																																					{	/* Read/reader.scm 441 */
																																																																						obj_t
																																																																							BgL_tmpz00_21640;
																																																																						BgL_tmpz00_21640
																																																																							=
																																																																							(
																																																																							(obj_t)
																																																																							BgL_iportz00_9540);
																																																																						RGC_STOP_MATCH
																																																																							(BgL_tmpz00_21640,
																																																																							BgL_forwardz00_9542);
																																																																					}
																																																																					BgL_newzd2matchzd2_9545
																																																																						=
																																																																						22L;
																																																																					if ((BgL_forwardz00_9542 == BgL_bufposz00_9543))
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (rgc_fill_buffer(((obj_t) BgL_iportz00_9540)))
																																																																								{	/* Read/reader.scm 441 */
																																																																									long
																																																																										BgL_arg5758z00_9548;
																																																																									long
																																																																										BgL_arg5759z00_9549;
																																																																									{	/* Read/reader.scm 441 */
																																																																										obj_t
																																																																											BgL_tmpz00_21648;
																																																																										BgL_tmpz00_21648
																																																																											=
																																																																											(
																																																																											(obj_t)
																																																																											BgL_iportz00_9540);
																																																																										BgL_arg5758z00_9548
																																																																											=
																																																																											RGC_BUFFER_FORWARD
																																																																											(BgL_tmpz00_21648);
																																																																									}
																																																																									{	/* Read/reader.scm 441 */
																																																																										obj_t
																																																																											BgL_tmpz00_21651;
																																																																										BgL_tmpz00_21651
																																																																											=
																																																																											(
																																																																											(obj_t)
																																																																											BgL_iportz00_9540);
																																																																										BgL_arg5759z00_9549
																																																																											=
																																																																											RGC_BUFFER_BUFPOS
																																																																											(BgL_tmpz00_21651);
																																																																									}
																																																																									{
																																																																										long
																																																																											BgL_bufposz00_21655;
																																																																										long
																																																																											BgL_forwardz00_21654;
																																																																										BgL_forwardz00_21654
																																																																											=
																																																																											BgL_arg5758z00_9548;
																																																																										BgL_bufposz00_21655
																																																																											=
																																																																											BgL_arg5759z00_9549;
																																																																										BgL_bufposz00_9543
																																																																											=
																																																																											BgL_bufposz00_21655;
																																																																										BgL_forwardz00_9542
																																																																											=
																																																																											BgL_forwardz00_21654;
																																																																										goto
																																																																											BgL_zc3z04anonymousza35755ze3z87_9544;
																																																																									}
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_matchz00_9716
																																																																										=
																																																																										BgL_newzd2matchzd2_9545;
																																																																								}
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							int
																																																																								BgL_curz00_9550;
																																																																							{	/* Read/reader.scm 441 */
																																																																								obj_t
																																																																									BgL_tmpz00_21656;
																																																																								BgL_tmpz00_21656
																																																																									=
																																																																									(
																																																																									(obj_t)
																																																																									BgL_iportz00_9540);
																																																																								BgL_curz00_9550
																																																																									=
																																																																									RGC_BUFFER_GET_CHAR
																																																																									(BgL_tmpz00_21656,
																																																																									BgL_forwardz00_9542);
																																																																							}
																																																																							{	/* Read/reader.scm 441 */

																																																																								if (((long) (BgL_curz00_9550) == 58L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_iportz00_7591
																																																																											=
																																																																											BgL_iportz00_9540;
																																																																										BgL_lastzd2matchzd2_7592
																																																																											=
																																																																											BgL_newzd2matchzd2_9545;
																																																																										BgL_forwardz00_7593
																																																																											=
																																																																											(1L
																																																																											+
																																																																											BgL_forwardz00_9542);
																																																																										BgL_bufposz00_7594
																																																																											=
																																																																											BgL_bufposz00_9543;
																																																																									BgL_zc3z04anonymousza34764ze3z87_7595:
																																																																										{	/* Read/reader.scm 441 */
																																																																											long
																																																																												BgL_newzd2matchzd2_7596;
																																																																											{	/* Read/reader.scm 441 */
																																																																												obj_t
																																																																													BgL_tmpz00_21662;
																																																																												BgL_tmpz00_21662
																																																																													=
																																																																													(
																																																																													(obj_t)
																																																																													BgL_iportz00_7591);
																																																																												RGC_STOP_MATCH
																																																																													(BgL_tmpz00_21662,
																																																																													BgL_forwardz00_7593);
																																																																											}
																																																																											BgL_newzd2matchzd2_7596
																																																																												=
																																																																												20L;
																																																																											if ((BgL_forwardz00_7593 == BgL_bufposz00_7594))
																																																																												{	/* Read/reader.scm 441 */
																																																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_7591)))
																																																																														{	/* Read/reader.scm 441 */
																																																																															long
																																																																																BgL_arg4767z00_7599;
																																																																															long
																																																																																BgL_arg4768z00_7600;
																																																																															{	/* Read/reader.scm 441 */
																																																																																obj_t
																																																																																	BgL_tmpz00_21670;
																																																																																BgL_tmpz00_21670
																																																																																	=
																																																																																	(
																																																																																	(obj_t)
																																																																																	BgL_iportz00_7591);
																																																																																BgL_arg4767z00_7599
																																																																																	=
																																																																																	RGC_BUFFER_FORWARD
																																																																																	(BgL_tmpz00_21670);
																																																																															}
																																																																															{	/* Read/reader.scm 441 */
																																																																																obj_t
																																																																																	BgL_tmpz00_21673;
																																																																																BgL_tmpz00_21673
																																																																																	=
																																																																																	(
																																																																																	(obj_t)
																																																																																	BgL_iportz00_7591);
																																																																																BgL_arg4768z00_7600
																																																																																	=
																																																																																	RGC_BUFFER_BUFPOS
																																																																																	(BgL_tmpz00_21673);
																																																																															}
																																																																															{
																																																																																long
																																																																																	BgL_bufposz00_21677;
																																																																																long
																																																																																	BgL_forwardz00_21676;
																																																																																BgL_forwardz00_21676
																																																																																	=
																																																																																	BgL_arg4767z00_7599;
																																																																																BgL_bufposz00_21677
																																																																																	=
																																																																																	BgL_arg4768z00_7600;
																																																																																BgL_bufposz00_7594
																																																																																	=
																																																																																	BgL_bufposz00_21677;
																																																																																BgL_forwardz00_7593
																																																																																	=
																																																																																	BgL_forwardz00_21676;
																																																																																goto
																																																																																	BgL_zc3z04anonymousza34764ze3z87_7595;
																																																																															}
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_matchz00_9716
																																																																																=
																																																																																BgL_newzd2matchzd2_7596;
																																																																														}
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													int
																																																																														BgL_curz00_7601;
																																																																													{	/* Read/reader.scm 441 */
																																																																														obj_t
																																																																															BgL_tmpz00_21678;
																																																																														BgL_tmpz00_21678
																																																																															=
																																																																															(
																																																																															(obj_t)
																																																																															BgL_iportz00_7591);
																																																																														BgL_curz00_7601
																																																																															=
																																																																															RGC_BUFFER_GET_CHAR
																																																																															(BgL_tmpz00_21678,
																																																																															BgL_forwardz00_7593);
																																																																													}
																																																																													{	/* Read/reader.scm 441 */

																																																																														if (((long) (BgL_curz00_7601) == 58L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_iportz00_4079
																																																																																	=
																																																																																	BgL_iportz00_7591;
																																																																																BgL_lastzd2matchzd2_4080
																																																																																	=
																																																																																	BgL_newzd2matchzd2_7596;
																																																																																BgL_forwardz00_4081
																																																																																	=
																																																																																	(1L
																																																																																	+
																																																																																	BgL_forwardz00_7593);
																																																																																BgL_bufposz00_4082
																																																																																	=
																																																																																	BgL_bufposz00_7594;
																																																																															BgL_zc3z04anonymousza32852ze3z87_4083:
																																																																																{	/* Read/reader.scm 441 */
																																																																																	long
																																																																																		BgL_newzd2matchzd2_4084;
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		obj_t
																																																																																			BgL_tmpz00_21684;
																																																																																		BgL_tmpz00_21684
																																																																																			=
																																																																																			(
																																																																																			(obj_t)
																																																																																			BgL_iportz00_4079);
																																																																																		RGC_STOP_MATCH
																																																																																			(BgL_tmpz00_21684,
																																																																																			BgL_forwardz00_4081);
																																																																																	}
																																																																																	BgL_newzd2matchzd2_4084
																																																																																		=
																																																																																		22L;
																																																																																	if ((BgL_forwardz00_4081 == BgL_bufposz00_4082))
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_4079)))
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					long
																																																																																						BgL_arg2855z00_4087;
																																																																																					long
																																																																																						BgL_arg2856z00_4088;
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						obj_t
																																																																																							BgL_tmpz00_21692;
																																																																																						BgL_tmpz00_21692
																																																																																							=
																																																																																							(
																																																																																							(obj_t)
																																																																																							BgL_iportz00_4079);
																																																																																						BgL_arg2855z00_4087
																																																																																							=
																																																																																							RGC_BUFFER_FORWARD
																																																																																							(BgL_tmpz00_21692);
																																																																																					}
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						obj_t
																																																																																							BgL_tmpz00_21695;
																																																																																						BgL_tmpz00_21695
																																																																																							=
																																																																																							(
																																																																																							(obj_t)
																																																																																							BgL_iportz00_4079);
																																																																																						BgL_arg2856z00_4088
																																																																																							=
																																																																																							RGC_BUFFER_BUFPOS
																																																																																							(BgL_tmpz00_21695);
																																																																																					}
																																																																																					{
																																																																																						long
																																																																																							BgL_bufposz00_21699;
																																																																																						long
																																																																																							BgL_forwardz00_21698;
																																																																																						BgL_forwardz00_21698
																																																																																							=
																																																																																							BgL_arg2855z00_4087;
																																																																																						BgL_bufposz00_21699
																																																																																							=
																																																																																							BgL_arg2856z00_4088;
																																																																																						BgL_bufposz00_4082
																																																																																							=
																																																																																							BgL_bufposz00_21699;
																																																																																						BgL_forwardz00_4081
																																																																																							=
																																																																																							BgL_forwardz00_21698;
																																																																																						goto
																																																																																							BgL_zc3z04anonymousza32852ze3z87_4083;
																																																																																					}
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					BgL_matchz00_9716
																																																																																						=
																																																																																						BgL_newzd2matchzd2_4084;
																																																																																				}
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			int
																																																																																				BgL_curz00_4089;
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				obj_t
																																																																																					BgL_tmpz00_21700;
																																																																																				BgL_tmpz00_21700
																																																																																					=
																																																																																					(
																																																																																					(obj_t)
																																																																																					BgL_iportz00_4079);
																																																																																				BgL_curz00_4089
																																																																																					=
																																																																																					RGC_BUFFER_GET_CHAR
																																																																																					(BgL_tmpz00_21700,
																																																																																					BgL_forwardz00_4081);
																																																																																			}
																																																																																			{	/* Read/reader.scm 441 */

																																																																																				if (((long) (BgL_curz00_4089) == 58L))
																																																																																					{
																																																																																						long
																																																																																							BgL_forwardz00_21707;
																																																																																						long
																																																																																							BgL_lastzd2matchzd2_21706;
																																																																																						BgL_lastzd2matchzd2_21706
																																																																																							=
																																																																																							BgL_newzd2matchzd2_4084;
																																																																																						BgL_forwardz00_21707
																																																																																							=
																																																																																							(1L
																																																																																							+
																																																																																							BgL_forwardz00_4081);
																																																																																						BgL_forwardz00_4081
																																																																																							=
																																																																																							BgL_forwardz00_21707;
																																																																																						BgL_lastzd2matchzd2_4080
																																																																																							=
																																																																																							BgL_lastzd2matchzd2_21706;
																																																																																						goto
																																																																																							BgL_zc3z04anonymousza32852ze3z87_4083;
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						bool_t
																																																																																							BgL_test7614z00_21709;
																																																																																						if (((long) (BgL_curz00_4089) == 39L))
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7614z00_21709
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								if (((long) (BgL_curz00_4089) == 44L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7614z00_21709
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7614z00_21709
																																																																																											=
																																																																																											(
																																																																																											(long)
																																																																																											(BgL_curz00_4089)
																																																																																											==
																																																																																											96L);
																																																																																							}}
																																																																																						if (BgL_test7614z00_21709)
																																																																																							{
																																																																																								long
																																																																																									BgL_bufposz00_21722;
																																																																																								long
																																																																																									BgL_forwardz00_21720;
																																																																																								long
																																																																																									BgL_lastzd2matchzd2_21719;
																																																																																								obj_t
																																																																																									BgL_iportz00_21718;
																																																																																								BgL_iportz00_21718
																																																																																									=
																																																																																									BgL_iportz00_4079;
																																																																																								BgL_lastzd2matchzd2_21719
																																																																																									=
																																																																																									BgL_newzd2matchzd2_4084;
																																																																																								BgL_forwardz00_21720
																																																																																									=
																																																																																									(1L
																																																																																									+
																																																																																									BgL_forwardz00_4081);
																																																																																								BgL_bufposz00_21722
																																																																																									=
																																																																																									BgL_bufposz00_4082;
																																																																																								BgL_bufposz00_7366
																																																																																									=
																																																																																									BgL_bufposz00_21722;
																																																																																								BgL_forwardz00_7365
																																																																																									=
																																																																																									BgL_forwardz00_21720;
																																																																																								BgL_lastzd2matchzd2_7364
																																																																																									=
																																																																																									BgL_lastzd2matchzd2_21719;
																																																																																								BgL_iportz00_7363
																																																																																									=
																																																																																									BgL_iportz00_21718;
																																																																																								goto
																																																																																									BgL_zc3z04anonymousza34647ze3z87_7367;
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								bool_t
																																																																																									BgL_test7617z00_21723;
																																																																																								if (((long) (BgL_curz00_4089) < 33L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7617z00_21723
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										bool_t
																																																																																											BgL_test7619z00_21727;
																																																																																										if (((long) (BgL_curz00_4089) == 35L))
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7619z00_21727
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7619z00_21727
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_4089)
																																																																																													==
																																																																																													34L);
																																																																																											}
																																																																																										if (BgL_test7619z00_21727)
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7617z00_21723
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												bool_t
																																																																																													BgL_test7621z00_21733;
																																																																																												if (((long) (BgL_curz00_4089) == 41L))
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7621z00_21733
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														if (((long) (BgL_curz00_4089) == 40L))
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7621z00_21733
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7621z00_21733
																																																																																																	=
																																																																																																	(
																																																																																																	(long)
																																																																																																	(BgL_curz00_4089)
																																																																																																	==
																																																																																																	39L);
																																																																																													}}
																																																																																												if (BgL_test7621z00_21733)
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7617z00_21723
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														if (((long) (BgL_curz00_4089) == 44L))
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7617z00_21723
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																bool_t
																																																																																																	BgL_test7625z00_21745;
																																																																																																if (((long) (BgL_curz00_4089) == 59L))
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		BgL_test7625z00_21745
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		BgL_test7625z00_21745
																																																																																																			=
																																																																																																			(
																																																																																																			(long)
																																																																																																			(BgL_curz00_4089)
																																																																																																			==
																																																																																																			58L);
																																																																																																	}
																																																																																																if (BgL_test7625z00_21745)
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		BgL_test7617z00_21723
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		if (((long) (BgL_curz00_4089) == 91L))
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7617z00_21723
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				if (((long) (BgL_curz00_4089) == 93L))
																																																																																																					{	/* Read/reader.scm 441 */
																																																																																																						BgL_test7617z00_21723
																																																																																																							=
																																																																																																							(
																																																																																																							(bool_t)
																																																																																																							1);
																																																																																																					}
																																																																																																				else
																																																																																																					{	/* Read/reader.scm 441 */
																																																																																																						if (((long) (BgL_curz00_4089) == 96L))
																																																																																																							{	/* Read/reader.scm 441 */
																																																																																																								BgL_test7617z00_21723
																																																																																																									=
																																																																																																									(
																																																																																																									(bool_t)
																																																																																																									1);
																																																																																																							}
																																																																																																						else
																																																																																																							{	/* Read/reader.scm 441 */
																																																																																																								bool_t
																																																																																																									BgL_test7630z00_21760;
																																																																																																								if (((long) (BgL_curz00_4089) == 125L))
																																																																																																									{	/* Read/reader.scm 441 */
																																																																																																										BgL_test7630z00_21760
																																																																																																											=
																																																																																																											(
																																																																																																											(bool_t)
																																																																																																											1);
																																																																																																									}
																																																																																																								else
																																																																																																									{	/* Read/reader.scm 441 */
																																																																																																										if (((long) (BgL_curz00_4089) == 124L))
																																																																																																											{	/* Read/reader.scm 441 */
																																																																																																												BgL_test7630z00_21760
																																																																																																													=
																																																																																																													(
																																																																																																													(bool_t)
																																																																																																													1);
																																																																																																											}
																																																																																																										else
																																																																																																											{	/* Read/reader.scm 441 */
																																																																																																												BgL_test7630z00_21760
																																																																																																													=
																																																																																																													(
																																																																																																													(long)
																																																																																																													(BgL_curz00_4089)
																																																																																																													==
																																																																																																													123L);
																																																																																																									}}
																																																																																																								if (BgL_test7630z00_21760)
																																																																																																									{	/* Read/reader.scm 441 */
																																																																																																										BgL_test7617z00_21723
																																																																																																											=
																																																																																																											(
																																																																																																											(bool_t)
																																																																																																											1);
																																																																																																									}
																																																																																																								else
																																																																																																									{	/* Read/reader.scm 441 */
																																																																																																										BgL_test7617z00_21723
																																																																																																											=
																																																																																																											(
																																																																																																											(long)
																																																																																																											(BgL_curz00_4089)
																																																																																																											==
																																																																																																											127L);
																																																																																									}}}}}}}}}
																																																																																								if (BgL_test7617z00_21723)
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_matchz00_9716
																																																																																											=
																																																																																											BgL_newzd2matchzd2_4084;
																																																																																									}
																																																																																								else
																																																																																									{
																																																																																										long
																																																																																											BgL_bufposz00_21775;
																																																																																										long
																																																																																											BgL_forwardz00_21773;
																																																																																										long
																																																																																											BgL_lastzd2matchzd2_21772;
																																																																																										obj_t
																																																																																											BgL_iportz00_21771;
																																																																																										BgL_iportz00_21771
																																																																																											=
																																																																																											BgL_iportz00_4079;
																																																																																										BgL_lastzd2matchzd2_21772
																																																																																											=
																																																																																											BgL_newzd2matchzd2_4084;
																																																																																										BgL_forwardz00_21773
																																																																																											=
																																																																																											(1L
																																																																																											+
																																																																																											BgL_forwardz00_4081);
																																																																																										BgL_bufposz00_21775
																																																																																											=
																																																																																											BgL_bufposz00_4082;
																																																																																										BgL_bufposz00_9543
																																																																																											=
																																																																																											BgL_bufposz00_21775;
																																																																																										BgL_forwardz00_9542
																																																																																											=
																																																																																											BgL_forwardz00_21773;
																																																																																										BgL_lastzd2matchzd2_9541
																																																																																											=
																																																																																											BgL_lastzd2matchzd2_21772;
																																																																																										BgL_iportz00_9540
																																																																																											=
																																																																																											BgL_iportz00_21771;
																																																																																										goto
																																																																																											BgL_zc3z04anonymousza35755ze3z87_9544;
																																																																																									}
																																																																																							}
																																																																																					}
																																																																																			}
																																																																																		}
																																																																																}
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																bool_t
																																																																																	BgL_test7633z00_21777;
																																																																																if (((long) (BgL_curz00_7601) == 39L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7633z00_21777
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		if (((long) (BgL_curz00_7601) == 44L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7633z00_21777
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7633z00_21777
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_7601)
																																																																																					==
																																																																																					96L);
																																																																																	}}
																																																																																if (BgL_test7633z00_21777)
																																																																																	{
																																																																																		long
																																																																																			BgL_bufposz00_21790;
																																																																																		long
																																																																																			BgL_forwardz00_21788;
																																																																																		long
																																																																																			BgL_lastzd2matchzd2_21787;
																																																																																		obj_t
																																																																																			BgL_iportz00_21786;
																																																																																		BgL_iportz00_21786
																																																																																			=
																																																																																			BgL_iportz00_7591;
																																																																																		BgL_lastzd2matchzd2_21787
																																																																																			=
																																																																																			BgL_newzd2matchzd2_7596;
																																																																																		BgL_forwardz00_21788
																																																																																			=
																																																																																			(1L
																																																																																			+
																																																																																			BgL_forwardz00_7593);
																																																																																		BgL_bufposz00_21790
																																																																																			=
																																																																																			BgL_bufposz00_7594;
																																																																																		BgL_bufposz00_7366
																																																																																			=
																																																																																			BgL_bufposz00_21790;
																																																																																		BgL_forwardz00_7365
																																																																																			=
																																																																																			BgL_forwardz00_21788;
																																																																																		BgL_lastzd2matchzd2_7364
																																																																																			=
																																																																																			BgL_lastzd2matchzd2_21787;
																																																																																		BgL_iportz00_7363
																																																																																			=
																																																																																			BgL_iportz00_21786;
																																																																																		goto
																																																																																			BgL_zc3z04anonymousza34647ze3z87_7367;
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		bool_t
																																																																																			BgL_test7636z00_21791;
																																																																																		if (((long) (BgL_curz00_7601) < 33L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7636z00_21791
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				bool_t
																																																																																					BgL_test7638z00_21795;
																																																																																				if (((long) (BgL_curz00_7601) == 35L))
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7638z00_21795
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7638z00_21795
																																																																																							=
																																																																																							(
																																																																																							(long)
																																																																																							(BgL_curz00_7601)
																																																																																							==
																																																																																							34L);
																																																																																					}
																																																																																				if (BgL_test7638z00_21795)
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7636z00_21791
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						bool_t
																																																																																							BgL_test7640z00_21801;
																																																																																						if (((long) (BgL_curz00_7601) == 41L))
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7640z00_21801
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								if (((long) (BgL_curz00_7601) == 40L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7640z00_21801
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7640z00_21801
																																																																																											=
																																																																																											(
																																																																																											(long)
																																																																																											(BgL_curz00_7601)
																																																																																											==
																																																																																											39L);
																																																																																							}}
																																																																																						if (BgL_test7640z00_21801)
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7636z00_21791
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								if (((long) (BgL_curz00_7601) == 44L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7636z00_21791
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										bool_t
																																																																																											BgL_test7644z00_21813;
																																																																																										if (((long) (BgL_curz00_7601) == 59L))
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7644z00_21813
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7644z00_21813
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_7601)
																																																																																													==
																																																																																													58L);
																																																																																											}
																																																																																										if (BgL_test7644z00_21813)
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7636z00_21791
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												if (((long) (BgL_curz00_7601) == 91L))
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7636z00_21791
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														if (((long) (BgL_curz00_7601) == 93L))
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7636z00_21791
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																if (((long) (BgL_curz00_7601) == 96L))
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		BgL_test7636z00_21791
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 441 */
																																																																																																		bool_t
																																																																																																			BgL_test7649z00_21828;
																																																																																																		if (((long) (BgL_curz00_7601) == 125L))
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7649z00_21828
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				if (((long) (BgL_curz00_7601) == 124L))
																																																																																																					{	/* Read/reader.scm 441 */
																																																																																																						BgL_test7649z00_21828
																																																																																																							=
																																																																																																							(
																																																																																																							(bool_t)
																																																																																																							1);
																																																																																																					}
																																																																																																				else
																																																																																																					{	/* Read/reader.scm 441 */
																																																																																																						BgL_test7649z00_21828
																																																																																																							=
																																																																																																							(
																																																																																																							(long)
																																																																																																							(BgL_curz00_7601)
																																																																																																							==
																																																																																																							123L);
																																																																																																			}}
																																																																																																		if (BgL_test7649z00_21828)
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7636z00_21791
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 441 */
																																																																																																				BgL_test7636z00_21791
																																																																																																					=
																																																																																																					(
																																																																																																					(long)
																																																																																																					(BgL_curz00_7601)
																																																																																																					==
																																																																																																					127L);
																																																																																			}}}}}}}}}
																																																																																		if (BgL_test7636z00_21791)
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_matchz00_9716
																																																																																					=
																																																																																					BgL_newzd2matchzd2_7596;
																																																																																			}
																																																																																		else
																																																																																			{
																																																																																				long
																																																																																					BgL_bufposz00_21843;
																																																																																				long
																																																																																					BgL_forwardz00_21841;
																																																																																				long
																																																																																					BgL_lastzd2matchzd2_21840;
																																																																																				obj_t
																																																																																					BgL_iportz00_21839;
																																																																																				BgL_iportz00_21839
																																																																																					=
																																																																																					BgL_iportz00_7591;
																																																																																				BgL_lastzd2matchzd2_21840
																																																																																					=
																																																																																					BgL_newzd2matchzd2_7596;
																																																																																				BgL_forwardz00_21841
																																																																																					=
																																																																																					(1L
																																																																																					+
																																																																																					BgL_forwardz00_7593);
																																																																																				BgL_bufposz00_21843
																																																																																					=
																																																																																					BgL_bufposz00_7594;
																																																																																				BgL_bufposz00_9543
																																																																																					=
																																																																																					BgL_bufposz00_21843;
																																																																																				BgL_forwardz00_9542
																																																																																					=
																																																																																					BgL_forwardz00_21841;
																																																																																				BgL_lastzd2matchzd2_9541
																																																																																					=
																																																																																					BgL_lastzd2matchzd2_21840;
																																																																																				BgL_iportz00_9540
																																																																																					=
																																																																																					BgL_iportz00_21839;
																																																																																				goto
																																																																																					BgL_zc3z04anonymousza35755ze3z87_9544;
																																																																																			}
																																																																																	}
																																																																															}
																																																																													}
																																																																												}
																																																																										}
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										bool_t
																																																																											BgL_test7652z00_21845;
																																																																										if (((long) (BgL_curz00_9550) == 39L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7652z00_21845
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												if (((long) (BgL_curz00_9550) == 44L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7652z00_21845
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7652z00_21845
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_9550)
																																																																															==
																																																																															96L);
																																																																											}}
																																																																										if (BgL_test7652z00_21845)
																																																																											{
																																																																												long
																																																																													BgL_bufposz00_21858;
																																																																												long
																																																																													BgL_forwardz00_21856;
																																																																												long
																																																																													BgL_lastzd2matchzd2_21855;
																																																																												obj_t
																																																																													BgL_iportz00_21854;
																																																																												BgL_iportz00_21854
																																																																													=
																																																																													BgL_iportz00_9540;
																																																																												BgL_lastzd2matchzd2_21855
																																																																													=
																																																																													BgL_newzd2matchzd2_9545;
																																																																												BgL_forwardz00_21856
																																																																													=
																																																																													(1L
																																																																													+
																																																																													BgL_forwardz00_9542);
																																																																												BgL_bufposz00_21858
																																																																													=
																																																																													BgL_bufposz00_9543;
																																																																												BgL_bufposz00_7366
																																																																													=
																																																																													BgL_bufposz00_21858;
																																																																												BgL_forwardz00_7365
																																																																													=
																																																																													BgL_forwardz00_21856;
																																																																												BgL_lastzd2matchzd2_7364
																																																																													=
																																																																													BgL_lastzd2matchzd2_21855;
																																																																												BgL_iportz00_7363
																																																																													=
																																																																													BgL_iportz00_21854;
																																																																												goto
																																																																													BgL_zc3z04anonymousza34647ze3z87_7367;
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												bool_t
																																																																													BgL_test7655z00_21859;
																																																																												if (((long) (BgL_curz00_9550) < 33L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7655z00_21859
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														bool_t
																																																																															BgL_test7657z00_21863;
																																																																														if (((long) (BgL_curz00_9550) == 35L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7657z00_21863
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7657z00_21863
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_9550)
																																																																																	==
																																																																																	34L);
																																																																															}
																																																																														if (BgL_test7657z00_21863)
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7655z00_21859
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																bool_t
																																																																																	BgL_test7659z00_21869;
																																																																																if (((long) (BgL_curz00_9550) == 41L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7659z00_21869
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		if (((long) (BgL_curz00_9550) == 40L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7659z00_21869
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7659z00_21869
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_9550)
																																																																																					==
																																																																																					39L);
																																																																																	}}
																																																																																if (BgL_test7659z00_21869)
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7655z00_21859
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		if (((long) (BgL_curz00_9550) == 44L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7655z00_21859
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				bool_t
																																																																																					BgL_test7663z00_21881;
																																																																																				if (((long) (BgL_curz00_9550) == 59L))
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7663z00_21881
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7663z00_21881
																																																																																							=
																																																																																							(
																																																																																							(long)
																																																																																							(BgL_curz00_9550)
																																																																																							==
																																																																																							58L);
																																																																																					}
																																																																																				if (BgL_test7663z00_21881)
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7655z00_21859
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						if (((long) (BgL_curz00_9550) == 91L))
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7655z00_21859
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								if (((long) (BgL_curz00_9550) == 93L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7655z00_21859
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										if (((long) (BgL_curz00_9550) == 96L))
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7655z00_21859
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												bool_t
																																																																																													BgL_test7668z00_21896;
																																																																																												if (((long) (BgL_curz00_9550) == 125L))
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7668z00_21896
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														if (((long) (BgL_curz00_9550) == 124L))
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7668z00_21896
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 441 */
																																																																																																BgL_test7668z00_21896
																																																																																																	=
																																																																																																	(
																																																																																																	(long)
																																																																																																	(BgL_curz00_9550)
																																																																																																	==
																																																																																																	123L);
																																																																																													}}
																																																																																												if (BgL_test7668z00_21896)
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7655z00_21859
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7655z00_21859
																																																																																															=
																																																																																															(
																																																																																															(long)
																																																																																															(BgL_curz00_9550)
																																																																																															==
																																																																																															127L);
																																																																													}}}}}}}}}
																																																																												if (BgL_test7655z00_21859)
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_matchz00_9716
																																																																															=
																																																																															BgL_newzd2matchzd2_9545;
																																																																													}
																																																																												else
																																																																													{
																																																																														long
																																																																															BgL_forwardz00_21908;
																																																																														long
																																																																															BgL_lastzd2matchzd2_21907;
																																																																														BgL_lastzd2matchzd2_21907
																																																																															=
																																																																															BgL_newzd2matchzd2_9545;
																																																																														BgL_forwardz00_21908
																																																																															=
																																																																															(1L
																																																																															+
																																																																															BgL_forwardz00_9542);
																																																																														BgL_forwardz00_9542
																																																																															=
																																																																															BgL_forwardz00_21908;
																																																																														BgL_lastzd2matchzd2_9541
																																																																															=
																																																																															BgL_lastzd2matchzd2_21907;
																																																																														goto
																																																																															BgL_zc3z04anonymousza35755ze3z87_9544;
																																																																													}
																																																																											}
																																																																									}
																																																																							}
																																																																						}
																																																																				}
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				bool_t
																																																																					BgL_test7671z00_21911;
																																																																				if (((long) (BgL_curz00_6337) == 39L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7671z00_21911
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						if (((long) (BgL_curz00_6337) == 44L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7671z00_21911
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7671z00_21911
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_6337)
																																																																									==
																																																																									96L);
																																																																					}}
																																																																				if (BgL_test7671z00_21911)
																																																																					{
																																																																						long
																																																																							BgL_bufposz00_21924;
																																																																						long
																																																																							BgL_forwardz00_21922;
																																																																						long
																																																																							BgL_lastzd2matchzd2_21921;
																																																																						obj_t
																																																																							BgL_iportz00_21920;
																																																																						BgL_iportz00_21920
																																																																							=
																																																																							BgL_iportz00_6327;
																																																																						BgL_lastzd2matchzd2_21921
																																																																							=
																																																																							BgL_newzd2matchzd2_6332;
																																																																						BgL_forwardz00_21922
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_6329);
																																																																						BgL_bufposz00_21924
																																																																							=
																																																																							BgL_bufposz00_6330;
																																																																						BgL_bufposz00_7366
																																																																							=
																																																																							BgL_bufposz00_21924;
																																																																						BgL_forwardz00_7365
																																																																							=
																																																																							BgL_forwardz00_21922;
																																																																						BgL_lastzd2matchzd2_7364
																																																																							=
																																																																							BgL_lastzd2matchzd2_21921;
																																																																						BgL_iportz00_7363
																																																																							=
																																																																							BgL_iportz00_21920;
																																																																						goto
																																																																							BgL_zc3z04anonymousza34647ze3z87_7367;
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						bool_t
																																																																							BgL_test7674z00_21925;
																																																																						if (((long) (BgL_curz00_6337) < 33L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7674z00_21925
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								bool_t
																																																																									BgL_test7676z00_21929;
																																																																								if (((long) (BgL_curz00_6337) == 35L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7676z00_21929
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7676z00_21929
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_6337)
																																																																											==
																																																																											34L);
																																																																									}
																																																																								if (BgL_test7676z00_21929)
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7674z00_21925
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										bool_t
																																																																											BgL_test7678z00_21935;
																																																																										if (((long) (BgL_curz00_6337) == 41L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7678z00_21935
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												if (((long) (BgL_curz00_6337) == 40L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7678z00_21935
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7678z00_21935
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_6337)
																																																																															==
																																																																															39L);
																																																																											}}
																																																																										if (BgL_test7678z00_21935)
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7674z00_21925
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												if (((long) (BgL_curz00_6337) == 44L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7674z00_21925
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														if (((long) (BgL_curz00_6337) == 46L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7674z00_21925
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																bool_t
																																																																																	BgL_test7683z00_21950;
																																																																																if (((long) (BgL_curz00_6337) >= 48L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7683z00_21950
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_6337)
																																																																																			<
																																																																																			60L);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7683z00_21950
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			0);
																																																																																	}
																																																																																if (BgL_test7683z00_21950)
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7674z00_21925
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		if (((long) (BgL_curz00_6337) == 91L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7674z00_21925
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				if (((long) (BgL_curz00_6337) == 93L))
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7674z00_21925
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						if (((long) (BgL_curz00_6337) == 96L))
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7674z00_21925
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								bool_t
																																																																																									BgL_test7688z00_21965;
																																																																																								if (((long) (BgL_curz00_6337) == 125L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7688z00_21965
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										if (((long) (BgL_curz00_6337) == 124L))
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7688z00_21965
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7688z00_21965
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_6337)
																																																																																													==
																																																																																													123L);
																																																																																									}}
																																																																																								if (BgL_test7688z00_21965)
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7674z00_21925
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7674z00_21925
																																																																																											=
																																																																																											(
																																																																																											(long)
																																																																																											(BgL_curz00_6337)
																																																																																											==
																																																																																											127L);
																																																																							}}}}}}}}}}
																																																																						if (BgL_test7674z00_21925)
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_matchz00_9716
																																																																									=
																																																																									BgL_newzd2matchzd2_6332;
																																																																							}
																																																																						else
																																																																							{
																																																																								long
																																																																									BgL_bufposz00_21980;
																																																																								long
																																																																									BgL_forwardz00_21978;
																																																																								long
																																																																									BgL_lastzd2matchzd2_21977;
																																																																								obj_t
																																																																									BgL_iportz00_21976;
																																																																								BgL_iportz00_21976
																																																																									=
																																																																									BgL_iportz00_6327;
																																																																								BgL_lastzd2matchzd2_21977
																																																																									=
																																																																									BgL_newzd2matchzd2_6332;
																																																																								BgL_forwardz00_21978
																																																																									=
																																																																									(1L
																																																																									+
																																																																									BgL_forwardz00_6329);
																																																																								BgL_bufposz00_21980
																																																																									=
																																																																									BgL_bufposz00_6330;
																																																																								BgL_bufposz00_4198
																																																																									=
																																																																									BgL_bufposz00_21980;
																																																																								BgL_forwardz00_4197
																																																																									=
																																																																									BgL_forwardz00_21978;
																																																																								BgL_lastzd2matchzd2_4196
																																																																									=
																																																																									BgL_lastzd2matchzd2_21977;
																																																																								BgL_iportz00_4195
																																																																									=
																																																																									BgL_iportz00_21976;
																																																																								goto
																																																																									BgL_zc3z04anonymousza32920ze3z87_4199;
																																																																							}
																																																																					}
																																																																			}
																																																																	}
																																																															}
																																																													}
																																																												}
																																																										}
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test7691z00_21982;
																																																										if (((long) (BgL_curz00_8754) == 39L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7691z00_21982
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_8754) == 44L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7691z00_21982
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7691z00_21982
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_8754)
																																																															==
																																																															96L);
																																																											}}
																																																										if (BgL_test7691z00_21982)
																																																											{
																																																												long
																																																													BgL_bufposz00_21995;
																																																												long
																																																													BgL_forwardz00_21993;
																																																												long
																																																													BgL_lastzd2matchzd2_21992;
																																																												obj_t
																																																													BgL_iportz00_21991;
																																																												BgL_iportz00_21991
																																																													=
																																																													BgL_iportz00_8744;
																																																												BgL_lastzd2matchzd2_21992
																																																													=
																																																													BgL_newzd2matchzd2_8749;
																																																												BgL_forwardz00_21993
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_8746);
																																																												BgL_bufposz00_21995
																																																													=
																																																													BgL_bufposz00_8747;
																																																												BgL_bufposz00_7551
																																																													=
																																																													BgL_bufposz00_21995;
																																																												BgL_forwardz00_7550
																																																													=
																																																													BgL_forwardz00_21993;
																																																												BgL_lastzd2matchzd2_7549
																																																													=
																																																													BgL_lastzd2matchzd2_21992;
																																																												BgL_iportz00_7548
																																																													=
																																																													BgL_iportz00_21991;
																																																												goto
																																																													BgL_zc3z04anonymousza34743ze3z87_7552;
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test7694z00_21996;
																																																												if (((long) (BgL_curz00_8754) < 33L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7694z00_21996
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														bool_t
																																																															BgL_test7696z00_22000;
																																																														if (((long) (BgL_curz00_8754) == 35L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7696z00_22000
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7696z00_22000
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_8754)
																																																																	==
																																																																	34L);
																																																															}
																																																														if (BgL_test7696z00_22000)
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7694z00_21996
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																bool_t
																																																																	BgL_test7698z00_22006;
																																																																if (((long) (BgL_curz00_8754) == 41L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7698z00_22006
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_8754) == 40L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7698z00_22006
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7698z00_22006
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_8754)
																																																																					==
																																																																					39L);
																																																																	}}
																																																																if (BgL_test7698z00_22006)
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7694z00_21996
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_8754) == 44L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7694z00_21996
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_8754) == 46L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7694z00_21996
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						bool_t
																																																																							BgL_test7703z00_22021;
																																																																						if (((long) (BgL_curz00_8754) == 59L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7703z00_22021
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7703z00_22021
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_8754)
																																																																									==
																																																																									58L);
																																																																							}
																																																																						if (BgL_test7703z00_22021)
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7694z00_21996
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								if (((long) (BgL_curz00_8754) == 91L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7694z00_21996
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										if (((long) (BgL_curz00_8754) == 93L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7694z00_21996
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												if (((long) (BgL_curz00_8754) == 96L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7694z00_21996
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														bool_t
																																																																															BgL_test7708z00_22036;
																																																																														if (((long) (BgL_curz00_8754) == 125L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7708z00_22036
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																if (((long) (BgL_curz00_8754) == 124L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7708z00_22036
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7708z00_22036
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_8754)
																																																																																			==
																																																																																			123L);
																																																																															}}
																																																																														if (BgL_test7708z00_22036)
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7694z00_21996
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7694z00_21996
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_8754)
																																																																																	==
																																																																																	127L);
																																																													}}}}}}}}}}
																																																												if (BgL_test7694z00_21996)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_matchz00_9716
																																																															=
																																																															BgL_newzd2matchzd2_8749;
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_iportz00_5101
																																																															=
																																																															BgL_iportz00_8744;
																																																														BgL_lastzd2matchzd2_5102
																																																															=
																																																															BgL_newzd2matchzd2_8749;
																																																														BgL_forwardz00_5103
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_8746);
																																																														BgL_bufposz00_5104
																																																															=
																																																															BgL_bufposz00_8747;
																																																													BgL_zc3z04anonymousza33484ze3z87_5105:
																																																														{	/* Read/reader.scm 441 */
																																																															long
																																																																BgL_newzd2matchzd2_5106;
																																																															{	/* Read/reader.scm 441 */
																																																																obj_t
																																																																	BgL_tmpz00_22047;
																																																																BgL_tmpz00_22047
																																																																	=
																																																																	(
																																																																	(obj_t)
																																																																	BgL_iportz00_5101);
																																																																RGC_STOP_MATCH
																																																																	(BgL_tmpz00_22047,
																																																																	BgL_forwardz00_5103);
																																																															}
																																																															BgL_newzd2matchzd2_5106
																																																																=
																																																																21L;
																																																															if ((BgL_forwardz00_5103 == BgL_bufposz00_5104))
																																																																{	/* Read/reader.scm 441 */
																																																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_5101)))
																																																																		{	/* Read/reader.scm 441 */
																																																																			long
																																																																				BgL_arg3487z00_5109;
																																																																			long
																																																																				BgL_arg3488z00_5110;
																																																																			{	/* Read/reader.scm 441 */
																																																																				obj_t
																																																																					BgL_tmpz00_22055;
																																																																				BgL_tmpz00_22055
																																																																					=
																																																																					(
																																																																					(obj_t)
																																																																					BgL_iportz00_5101);
																																																																				BgL_arg3487z00_5109
																																																																					=
																																																																					RGC_BUFFER_FORWARD
																																																																					(BgL_tmpz00_22055);
																																																																			}
																																																																			{	/* Read/reader.scm 441 */
																																																																				obj_t
																																																																					BgL_tmpz00_22058;
																																																																				BgL_tmpz00_22058
																																																																					=
																																																																					(
																																																																					(obj_t)
																																																																					BgL_iportz00_5101);
																																																																				BgL_arg3488z00_5110
																																																																					=
																																																																					RGC_BUFFER_BUFPOS
																																																																					(BgL_tmpz00_22058);
																																																																			}
																																																																			{
																																																																				long
																																																																					BgL_bufposz00_22062;
																																																																				long
																																																																					BgL_forwardz00_22061;
																																																																				BgL_forwardz00_22061
																																																																					=
																																																																					BgL_arg3487z00_5109;
																																																																				BgL_bufposz00_22062
																																																																					=
																																																																					BgL_arg3488z00_5110;
																																																																				BgL_bufposz00_5104
																																																																					=
																																																																					BgL_bufposz00_22062;
																																																																				BgL_forwardz00_5103
																																																																					=
																																																																					BgL_forwardz00_22061;
																																																																				goto
																																																																					BgL_zc3z04anonymousza33484ze3z87_5105;
																																																																			}
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_matchz00_9716
																																																																				=
																																																																				BgL_newzd2matchzd2_5106;
																																																																		}
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	int
																																																																		BgL_curz00_5111;
																																																																	{	/* Read/reader.scm 441 */
																																																																		obj_t
																																																																			BgL_tmpz00_22063;
																																																																		BgL_tmpz00_22063
																																																																			=
																																																																			(
																																																																			(obj_t)
																																																																			BgL_iportz00_5101);
																																																																		BgL_curz00_5111
																																																																			=
																																																																			RGC_BUFFER_GET_CHAR
																																																																			(BgL_tmpz00_22063,
																																																																			BgL_forwardz00_5103);
																																																																	}
																																																																	{	/* Read/reader.scm 441 */

																																																																		if (((long) (BgL_curz00_5111) == 58L))
																																																																			{
																																																																				long
																																																																					BgL_bufposz00_22073;
																																																																				long
																																																																					BgL_forwardz00_22071;
																																																																				long
																																																																					BgL_lastzd2matchzd2_22070;
																																																																				obj_t
																																																																					BgL_iportz00_22069;
																																																																				BgL_iportz00_22069
																																																																					=
																																																																					BgL_iportz00_5101;
																																																																				BgL_lastzd2matchzd2_22070
																																																																					=
																																																																					BgL_newzd2matchzd2_5106;
																																																																				BgL_forwardz00_22071
																																																																					=
																																																																					(1L
																																																																					+
																																																																					BgL_forwardz00_5103);
																																																																				BgL_bufposz00_22073
																																																																					=
																																																																					BgL_bufposz00_5104;
																																																																				BgL_bufposz00_7305
																																																																					=
																																																																					BgL_bufposz00_22073;
																																																																				BgL_forwardz00_7304
																																																																					=
																																																																					BgL_forwardz00_22071;
																																																																				BgL_lastzd2matchzd2_7303
																																																																					=
																																																																					BgL_lastzd2matchzd2_22070;
																																																																				BgL_iportz00_7302
																																																																					=
																																																																					BgL_iportz00_22069;
																																																																				goto
																																																																					BgL_zc3z04anonymousza34616ze3z87_7306;
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_5111) == 46L))
																																																																					{
																																																																						long
																																																																							BgL_bufposz00_22081;
																																																																						long
																																																																							BgL_forwardz00_22079;
																																																																						long
																																																																							BgL_lastzd2matchzd2_22078;
																																																																						obj_t
																																																																							BgL_iportz00_22077;
																																																																						BgL_iportz00_22077
																																																																							=
																																																																							BgL_iportz00_5101;
																																																																						BgL_lastzd2matchzd2_22078
																																																																							=
																																																																							BgL_newzd2matchzd2_5106;
																																																																						BgL_forwardz00_22079
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_5103);
																																																																						BgL_bufposz00_22081
																																																																							=
																																																																							BgL_bufposz00_5104;
																																																																						BgL_bufposz00_6330
																																																																							=
																																																																							BgL_bufposz00_22081;
																																																																						BgL_forwardz00_6329
																																																																							=
																																																																							BgL_forwardz00_22079;
																																																																						BgL_lastzd2matchzd2_6328
																																																																							=
																																																																							BgL_lastzd2matchzd2_22078;
																																																																						BgL_iportz00_6327
																																																																							=
																																																																							BgL_iportz00_22077;
																																																																						goto
																																																																							BgL_zc3z04anonymousza34108ze3z87_6331;
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						bool_t
																																																																							BgL_test7715z00_22082;
																																																																						if (((long) (BgL_curz00_5111) == 39L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7715z00_22082
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								if (((long) (BgL_curz00_5111) == 44L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7715z00_22082
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7715z00_22082
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_5111)
																																																																											==
																																																																											96L);
																																																																							}}
																																																																						if (BgL_test7715z00_22082)
																																																																							{
																																																																								long
																																																																									BgL_bufposz00_22095;
																																																																								long
																																																																									BgL_forwardz00_22093;
																																																																								long
																																																																									BgL_lastzd2matchzd2_22092;
																																																																								obj_t
																																																																									BgL_iportz00_22091;
																																																																								BgL_iportz00_22091
																																																																									=
																																																																									BgL_iportz00_5101;
																																																																								BgL_lastzd2matchzd2_22092
																																																																									=
																																																																									BgL_newzd2matchzd2_5106;
																																																																								BgL_forwardz00_22093
																																																																									=
																																																																									(1L
																																																																									+
																																																																									BgL_forwardz00_5103);
																																																																								BgL_bufposz00_22095
																																																																									=
																																																																									BgL_bufposz00_5104;
																																																																								BgL_bufposz00_7551
																																																																									=
																																																																									BgL_bufposz00_22095;
																																																																								BgL_forwardz00_7550
																																																																									=
																																																																									BgL_forwardz00_22093;
																																																																								BgL_lastzd2matchzd2_7549
																																																																									=
																																																																									BgL_lastzd2matchzd2_22092;
																																																																								BgL_iportz00_7548
																																																																									=
																																																																									BgL_iportz00_22091;
																																																																								goto
																																																																									BgL_zc3z04anonymousza34743ze3z87_7552;
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								bool_t
																																																																									BgL_test7718z00_22096;
																																																																								if (((long) (BgL_curz00_5111) < 33L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7718z00_22096
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										bool_t
																																																																											BgL_test7720z00_22100;
																																																																										if (((long) (BgL_curz00_5111) == 35L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7720z00_22100
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7720z00_22100
																																																																													=
																																																																													(
																																																																													(long)
																																																																													(BgL_curz00_5111)
																																																																													==
																																																																													34L);
																																																																											}
																																																																										if (BgL_test7720z00_22100)
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7718z00_22096
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												bool_t
																																																																													BgL_test7722z00_22106;
																																																																												if (((long) (BgL_curz00_5111) == 41L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7722z00_22106
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														if (((long) (BgL_curz00_5111) == 40L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7722z00_22106
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7722z00_22106
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_5111)
																																																																																	==
																																																																																	39L);
																																																																													}}
																																																																												if (BgL_test7722z00_22106)
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7718z00_22096
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														if (((long) (BgL_curz00_5111) == 44L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7718z00_22096
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																if (((long) (BgL_curz00_5111) == 46L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7718z00_22096
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		bool_t
																																																																																			BgL_test7727z00_22121;
																																																																																		if (((long) (BgL_curz00_5111) == 59L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7727z00_22121
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7727z00_22121
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_5111)
																																																																																					==
																																																																																					58L);
																																																																																			}
																																																																																		if (BgL_test7727z00_22121)
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test7718z00_22096
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				if (((long) (BgL_curz00_5111) == 91L))
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test7718z00_22096
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						if (((long) (BgL_curz00_5111) == 93L))
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								BgL_test7718z00_22096
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 441 */
																																																																																								if (((long) (BgL_curz00_5111) == 96L))
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										BgL_test7718z00_22096
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 441 */
																																																																																										bool_t
																																																																																											BgL_test7732z00_22136;
																																																																																										if (((long) (BgL_curz00_5111) == 125L))
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7732z00_22136
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												if (((long) (BgL_curz00_5111) == 124L))
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7732z00_22136
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 441 */
																																																																																														BgL_test7732z00_22136
																																																																																															=
																																																																																															(
																																																																																															(long)
																																																																																															(BgL_curz00_5111)
																																																																																															==
																																																																																															123L);
																																																																																											}}
																																																																																										if (BgL_test7732z00_22136)
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7718z00_22096
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 441 */
																																																																																												BgL_test7718z00_22096
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_5111)
																																																																																													==
																																																																																													127L);
																																																																									}}}}}}}}}}
																																																																								if (BgL_test7718z00_22096)
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_matchz00_9716
																																																																											=
																																																																											BgL_newzd2matchzd2_5106;
																																																																									}
																																																																								else
																																																																									{
																																																																										long
																																																																											BgL_forwardz00_22148;
																																																																										long
																																																																											BgL_lastzd2matchzd2_22147;
																																																																										BgL_lastzd2matchzd2_22147
																																																																											=
																																																																											BgL_newzd2matchzd2_5106;
																																																																										BgL_forwardz00_22148
																																																																											=
																																																																											(1L
																																																																											+
																																																																											BgL_forwardz00_5103);
																																																																										BgL_forwardz00_5103
																																																																											=
																																																																											BgL_forwardz00_22148;
																																																																										BgL_lastzd2matchzd2_5102
																																																																											=
																																																																											BgL_lastzd2matchzd2_22147;
																																																																										goto
																																																																											BgL_zc3z04anonymousza33484ze3z87_5105;
																																																																									}
																																																																							}
																																																																					}
																																																																			}
																																																																	}
																																																																}
																																																														}
																																																													}
																																																											}
																																																									}
																																																							}
																																																					}
																																																				}
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_7312) == 46L))
																																																			{
																																																				long
																																																					BgL_bufposz00_22159;
																																																				long
																																																					BgL_forwardz00_22157;
																																																				long
																																																					BgL_lastzd2matchzd2_22156;
																																																				obj_t
																																																					BgL_iportz00_22155;
																																																				BgL_iportz00_22155
																																																					=
																																																					BgL_iportz00_7302;
																																																				BgL_lastzd2matchzd2_22156
																																																					=
																																																					BgL_newzd2matchzd2_7307;
																																																				BgL_forwardz00_22157
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_7304);
																																																				BgL_bufposz00_22159
																																																					=
																																																					BgL_bufposz00_7305;
																																																				BgL_bufposz00_6330
																																																					=
																																																					BgL_bufposz00_22159;
																																																				BgL_forwardz00_6329
																																																					=
																																																					BgL_forwardz00_22157;
																																																				BgL_lastzd2matchzd2_6328
																																																					=
																																																					BgL_lastzd2matchzd2_22156;
																																																				BgL_iportz00_6327
																																																					=
																																																					BgL_iportz00_22155;
																																																				goto
																																																					BgL_zc3z04anonymousza34108ze3z87_6331;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test7736z00_22160;
																																																				if (((long) (BgL_curz00_7312) == 39L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7736z00_22160
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_7312) == 44L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7736z00_22160
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7736z00_22160
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7312)
																																																									==
																																																									96L);
																																																					}}
																																																				if (BgL_test7736z00_22160)
																																																					{
																																																						long
																																																							BgL_bufposz00_22173;
																																																						long
																																																							BgL_forwardz00_22171;
																																																						long
																																																							BgL_lastzd2matchzd2_22170;
																																																						obj_t
																																																							BgL_iportz00_22169;
																																																						BgL_iportz00_22169
																																																							=
																																																							BgL_iportz00_7302;
																																																						BgL_lastzd2matchzd2_22170
																																																							=
																																																							BgL_newzd2matchzd2_7307;
																																																						BgL_forwardz00_22171
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_7304);
																																																						BgL_bufposz00_22173
																																																							=
																																																							BgL_bufposz00_7305;
																																																						BgL_bufposz00_7551
																																																							=
																																																							BgL_bufposz00_22173;
																																																						BgL_forwardz00_7550
																																																							=
																																																							BgL_forwardz00_22171;
																																																						BgL_lastzd2matchzd2_7549
																																																							=
																																																							BgL_lastzd2matchzd2_22170;
																																																						BgL_iportz00_7548
																																																							=
																																																							BgL_iportz00_22169;
																																																						goto
																																																							BgL_zc3z04anonymousza34743ze3z87_7552;
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test7739z00_22174;
																																																						if (((long) (BgL_curz00_7312) < 33L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7739z00_22174
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test7741z00_22178;
																																																								if (((long) (BgL_curz00_7312) == 35L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7741z00_22178
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7741z00_22178
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_7312)
																																																											==
																																																											34L);
																																																									}
																																																								if (BgL_test7741z00_22178)
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7739z00_22174
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test7743z00_22184;
																																																										if (((long) (BgL_curz00_7312) == 41L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7743z00_22184
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_7312) == 40L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7743z00_22184
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7743z00_22184
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_7312)
																																																															==
																																																															39L);
																																																											}}
																																																										if (BgL_test7743z00_22184)
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7739z00_22174
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_7312) == 44L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7739z00_22174
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_7312) == 46L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7739z00_22174
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																bool_t
																																																																	BgL_test7748z00_22199;
																																																																if (((long) (BgL_curz00_7312) == 59L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7748z00_22199
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7748z00_22199
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_7312)
																																																																			==
																																																																			58L);
																																																																	}
																																																																if (BgL_test7748z00_22199)
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7739z00_22174
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_7312) == 91L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7739z00_22174
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_7312) == 93L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7739z00_22174
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						if (((long) (BgL_curz00_7312) == 96L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7739z00_22174
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								bool_t
																																																																									BgL_test7753z00_22214;
																																																																								if (((long) (BgL_curz00_7312) == 125L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7753z00_22214
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										if (((long) (BgL_curz00_7312) == 124L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7753z00_22214
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7753z00_22214
																																																																													=
																																																																													(
																																																																													(long)
																																																																													(BgL_curz00_7312)
																																																																													==
																																																																													123L);
																																																																									}}
																																																																								if (BgL_test7753z00_22214)
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7739z00_22174
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7739z00_22174
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_7312)
																																																																											==
																																																																											127L);
																																																							}}}}}}}}}}
																																																						if (BgL_test7739z00_22174)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_matchz00_9716
																																																									=
																																																									BgL_newzd2matchzd2_7307;
																																																							}
																																																						else
																																																							{
																																																								long
																																																									BgL_bufposz00_22229;
																																																								long
																																																									BgL_forwardz00_22227;
																																																								long
																																																									BgL_lastzd2matchzd2_22226;
																																																								obj_t
																																																									BgL_iportz00_22225;
																																																								BgL_iportz00_22225
																																																									=
																																																									BgL_iportz00_7302;
																																																								BgL_lastzd2matchzd2_22226
																																																									=
																																																									BgL_newzd2matchzd2_7307;
																																																								BgL_forwardz00_22227
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_7304);
																																																								BgL_bufposz00_22229
																																																									=
																																																									BgL_bufposz00_7305;
																																																								BgL_bufposz00_5104
																																																									=
																																																									BgL_bufposz00_22229;
																																																								BgL_forwardz00_5103
																																																									=
																																																									BgL_forwardz00_22227;
																																																								BgL_lastzd2matchzd2_5102
																																																									=
																																																									BgL_lastzd2matchzd2_22226;
																																																								BgL_iportz00_5101
																																																									=
																																																									BgL_iportz00_22225;
																																																								goto
																																																									BgL_zc3z04anonymousza33484ze3z87_5105;
																																																							}
																																																					}
																																																			}
																																																	}
																																															}
																																														}
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test7756z00_22231;
																																												if (((long) (BgL_curz00_3951) >= 48L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7756z00_22231
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_3951)
																																															<
																																															58L);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7756z00_22231
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test7756z00_22231)
																																													{
																																														long
																																															BgL_forwardz00_22238;
																																														long
																																															BgL_lastzd2matchzd2_22237;
																																														BgL_lastzd2matchzd2_22237
																																															=
																																															BgL_newzd2matchzd2_3946;
																																														BgL_forwardz00_22238
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_3943);
																																														BgL_forwardz00_3943
																																															=
																																															BgL_forwardz00_22238;
																																														BgL_lastzd2matchzd2_3942
																																															=
																																															BgL_lastzd2matchzd2_22237;
																																														goto
																																															BgL_zc3z04anonymousza32753ze3z87_3945;
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_3951) == 46L))
																																															{
																																																long
																																																	BgL_bufposz00_22247;
																																																long
																																																	BgL_forwardz00_22245;
																																																long
																																																	BgL_lastzd2matchzd2_22244;
																																																obj_t
																																																	BgL_iportz00_22243;
																																																BgL_iportz00_22243
																																																	=
																																																	BgL_iportz00_3941;
																																																BgL_lastzd2matchzd2_22244
																																																	=
																																																	BgL_newzd2matchzd2_3946;
																																																BgL_forwardz00_22245
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_3943);
																																																BgL_bufposz00_22247
																																																	=
																																																	BgL_bufposz00_3944;
																																																BgL_bufposz00_9543
																																																	=
																																																	BgL_bufposz00_22247;
																																																BgL_forwardz00_9542
																																																	=
																																																	BgL_forwardz00_22245;
																																																BgL_lastzd2matchzd2_9541
																																																	=
																																																	BgL_lastzd2matchzd2_22244;
																																																BgL_iportz00_9540
																																																	=
																																																	BgL_iportz00_22243;
																																																goto
																																																	BgL_zc3z04anonymousza35755ze3z87_9544;
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test7759z00_22248;
																																																if (((long) (BgL_curz00_3951) == 39L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7759z00_22248
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_3951) == 44L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7759z00_22248
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7759z00_22248
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_3951)
																																																					==
																																																					96L);
																																																	}}
																																																if (BgL_test7759z00_22248)
																																																	{
																																																		long
																																																			BgL_bufposz00_22261;
																																																		long
																																																			BgL_forwardz00_22259;
																																																		long
																																																			BgL_lastzd2matchzd2_22258;
																																																		obj_t
																																																			BgL_iportz00_22257;
																																																		BgL_iportz00_22257
																																																			=
																																																			BgL_iportz00_3941;
																																																		BgL_lastzd2matchzd2_22258
																																																			=
																																																			BgL_newzd2matchzd2_3946;
																																																		BgL_forwardz00_22259
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_3943);
																																																		BgL_bufposz00_22261
																																																			=
																																																			BgL_bufposz00_3944;
																																																		BgL_bufposz00_7366
																																																			=
																																																			BgL_bufposz00_22261;
																																																		BgL_forwardz00_7365
																																																			=
																																																			BgL_forwardz00_22259;
																																																		BgL_lastzd2matchzd2_7364
																																																			=
																																																			BgL_lastzd2matchzd2_22258;
																																																		BgL_iportz00_7363
																																																			=
																																																			BgL_iportz00_22257;
																																																		goto
																																																			BgL_zc3z04anonymousza34647ze3z87_7367;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test7762z00_22262;
																																																		if (((long) (BgL_curz00_3951) < 33L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7762z00_22262
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test7764z00_22266;
																																																				if (((long) (BgL_curz00_3951) == 35L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7764z00_22266
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7764z00_22266
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_3951)
																																																							==
																																																							34L);
																																																					}
																																																				if (BgL_test7764z00_22266)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7762z00_22262
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test7766z00_22272;
																																																						if (((long) (BgL_curz00_3951) == 41L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7766z00_22272
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_3951) == 40L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7766z00_22272
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7766z00_22272
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_3951)
																																																											==
																																																											39L);
																																																							}}
																																																						if (BgL_test7766z00_22272)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7762z00_22262
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_3951) == 44L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7762z00_22262
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_3951) == 46L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7762z00_22262
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test7771z00_22287;
																																																												if (((long) (BgL_curz00_3951) >= 48L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7771z00_22287
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_3951)
																																																															<
																																																															60L);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7771z00_22287
																																																															=
																																																															(
																																																															(bool_t)
																																																															0);
																																																													}
																																																												if (BgL_test7771z00_22287)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7762z00_22262
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_3951) == 91L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7762z00_22262
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_3951) == 93L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7762z00_22262
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_3951) == 96L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7762z00_22262
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				bool_t
																																																																					BgL_test7776z00_22302;
																																																																				if (((long) (BgL_curz00_3951) == 125L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7776z00_22302
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						if (((long) (BgL_curz00_3951) == 124L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7776z00_22302
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7776z00_22302
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_3951)
																																																																									==
																																																																									123L);
																																																																					}}
																																																																				if (BgL_test7776z00_22302)
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7762z00_22262
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7762z00_22262
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_3951)
																																																																							==
																																																																							127L);
																																																			}}}}}}}}}}
																																																		if (BgL_test7762z00_22262)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_matchz00_9716
																																																					=
																																																					BgL_newzd2matchzd2_3946;
																																																			}
																																																		else
																																																			{
																																																				long
																																																					BgL_bufposz00_22317;
																																																				long
																																																					BgL_forwardz00_22315;
																																																				long
																																																					BgL_lastzd2matchzd2_22314;
																																																				obj_t
																																																					BgL_iportz00_22313;
																																																				BgL_iportz00_22313
																																																					=
																																																					BgL_iportz00_3941;
																																																				BgL_lastzd2matchzd2_22314
																																																					=
																																																					BgL_newzd2matchzd2_3946;
																																																				BgL_forwardz00_22315
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_3943);
																																																				BgL_bufposz00_22317
																																																					=
																																																					BgL_bufposz00_3944;
																																																				BgL_bufposz00_5104
																																																					=
																																																					BgL_bufposz00_22317;
																																																				BgL_forwardz00_5103
																																																					=
																																																					BgL_forwardz00_22315;
																																																				BgL_lastzd2matchzd2_5102
																																																					=
																																																					BgL_lastzd2matchzd2_22314;
																																																				BgL_iportz00_5101
																																																					=
																																																					BgL_iportz00_22313;
																																																				goto
																																																					BgL_zc3z04anonymousza33484ze3z87_5105;
																																																			}
																																																	}
																																															}
																																													}
																																											}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test7779z00_22319;
																																						if (
																																							((long) (BgL_curz00_8815) == 39L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7779z00_22319
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_8815) == 44L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7779z00_22319
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7779z00_22319
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_8815)
																																											==
																																											96L);
																																							}}
																																						if (BgL_test7779z00_22319)
																																							{
																																								long
																																									BgL_bufposz00_22332;
																																								long
																																									BgL_forwardz00_22330;
																																								long
																																									BgL_lastzd2matchzd2_22329;
																																								obj_t
																																									BgL_iportz00_22328;
																																								BgL_iportz00_22328
																																									=
																																									BgL_iportz00_8805;
																																								BgL_lastzd2matchzd2_22329
																																									=
																																									BgL_newzd2matchzd2_8810;
																																								BgL_forwardz00_22330
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_8807);
																																								BgL_bufposz00_22332
																																									=
																																									BgL_bufposz00_8808;
																																								BgL_bufposz00_6106
																																									=
																																									BgL_bufposz00_22332;
																																								BgL_forwardz00_6105
																																									=
																																									BgL_forwardz00_22330;
																																								BgL_lastzd2matchzd2_6104
																																									=
																																									BgL_lastzd2matchzd2_22329;
																																								BgL_iportz00_6103
																																									=
																																									BgL_iportz00_22328;
																																								goto
																																									BgL_zc3z04anonymousza33993ze3z87_6107;
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test7782z00_22333;
																																								if (((long) (BgL_curz00_8815) < 33L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7782z00_22333
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										bool_t
																																											BgL_test7784z00_22337;
																																										if (((long) (BgL_curz00_8815) == 35L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7784z00_22337
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7784z00_22337
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_8815)
																																													==
																																													34L);
																																											}
																																										if (BgL_test7784z00_22337)
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7782z00_22333
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test7786z00_22343;
																																												if (((long) (BgL_curz00_8815) == 41L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7786z00_22343
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_8815) == 40L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7786z00_22343
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7786z00_22343
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_8815)
																																																	==
																																																	39L);
																																													}}
																																												if (BgL_test7786z00_22343)
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7782z00_22333
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_8815) == 44L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7782z00_22333
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_8815) == 46L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7782z00_22333
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test7791z00_22358;
																																																		if (((long) (BgL_curz00_8815) == 59L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7791z00_22358
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7791z00_22358
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_8815)
																																																					==
																																																					58L);
																																																			}
																																																		if (BgL_test7791z00_22358)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7782z00_22333
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_8815) == 91L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7782z00_22333
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_8815) == 93L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7782z00_22333
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_8815) == 96L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7782z00_22333
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test7796z00_22373;
																																																										if (((long) (BgL_curz00_8815) == 125L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7796z00_22373
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_8815) == 124L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7796z00_22373
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7796z00_22373
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_8815)
																																																															==
																																																															123L);
																																																											}}
																																																										if (BgL_test7796z00_22373)
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7782z00_22333
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7782z00_22333
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_8815)
																																																													==
																																																													127L);
																																									}}}}}}}}}}
																																								if (BgL_test7782z00_22333)
																																									{	/* Read/reader.scm 441 */
																																										BgL_matchz00_9716
																																											=
																																											BgL_newzd2matchzd2_8810;
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_iportz00_4961
																																											=
																																											BgL_iportz00_8805;
																																										BgL_lastzd2matchzd2_4962
																																											=
																																											BgL_newzd2matchzd2_8810;
																																										BgL_forwardz00_4963
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_8807);
																																										BgL_bufposz00_4964
																																											=
																																											BgL_bufposz00_8808;
																																									BgL_zc3z04anonymousza33413ze3z87_4965:
																																										{	/* Read/reader.scm 441 */
																																											long
																																												BgL_newzd2matchzd2_4966;
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_22384;
																																												BgL_tmpz00_22384
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4961);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_22384,
																																													BgL_forwardz00_4963);
																																											}
																																											BgL_newzd2matchzd2_4966
																																												=
																																												22L;
																																											if ((BgL_forwardz00_4963 == BgL_bufposz00_4964))
																																												{	/* Read/reader.scm 441 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_4961)))
																																														{	/* Read/reader.scm 441 */
																																															long
																																																BgL_arg3416z00_4969;
																																															long
																																																BgL_arg3417z00_4970;
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_22392;
																																																BgL_tmpz00_22392
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4961);
																																																BgL_arg3416z00_4969
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_22392);
																																															}
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_22395;
																																																BgL_tmpz00_22395
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4961);
																																																BgL_arg3417z00_4970
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_22395);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_22399;
																																																long
																																																	BgL_forwardz00_22398;
																																																BgL_forwardz00_22398
																																																	=
																																																	BgL_arg3416z00_4969;
																																																BgL_bufposz00_22399
																																																	=
																																																	BgL_arg3417z00_4970;
																																																BgL_bufposz00_4964
																																																	=
																																																	BgL_bufposz00_22399;
																																																BgL_forwardz00_4963
																																																	=
																																																	BgL_forwardz00_22398;
																																																goto
																																																	BgL_zc3z04anonymousza33413ze3z87_4965;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_matchz00_9716
																																																=
																																																BgL_newzd2matchzd2_4966;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													int
																																														BgL_curz00_4971;
																																													{	/* Read/reader.scm 441 */
																																														obj_t
																																															BgL_tmpz00_22400;
																																														BgL_tmpz00_22400
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_4961);
																																														BgL_curz00_4971
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_22400,
																																															BgL_forwardz00_4963);
																																													}
																																													{	/* Read/reader.scm 441 */

																																														if (((long) (BgL_curz00_4971) == 58L))
																																															{
																																																long
																																																	BgL_bufposz00_22410;
																																																long
																																																	BgL_forwardz00_22408;
																																																long
																																																	BgL_lastzd2matchzd2_22407;
																																																obj_t
																																																	BgL_iportz00_22406;
																																																BgL_iportz00_22406
																																																	=
																																																	BgL_iportz00_4961;
																																																BgL_lastzd2matchzd2_22407
																																																	=
																																																	BgL_newzd2matchzd2_4966;
																																																BgL_forwardz00_22408
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_4963);
																																																BgL_bufposz00_22410
																																																	=
																																																	BgL_bufposz00_4964;
																																																BgL_bufposz00_6395
																																																	=
																																																	BgL_bufposz00_22410;
																																																BgL_forwardz00_6394
																																																	=
																																																	BgL_forwardz00_22408;
																																																BgL_lastzd2matchzd2_6393
																																																	=
																																																	BgL_lastzd2matchzd2_22407;
																																																BgL_iportz00_6392
																																																	=
																																																	BgL_iportz00_22406;
																																																goto
																																																	BgL_zc3z04anonymousza34142ze3z87_6396;
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_4971) == 46L))
																																																	{
																																																		long
																																																			BgL_bufposz00_22418;
																																																		long
																																																			BgL_forwardz00_22416;
																																																		long
																																																			BgL_lastzd2matchzd2_22415;
																																																		obj_t
																																																			BgL_iportz00_22414;
																																																		BgL_iportz00_22414
																																																			=
																																																			BgL_iportz00_4961;
																																																		BgL_lastzd2matchzd2_22415
																																																			=
																																																			BgL_newzd2matchzd2_4966;
																																																		BgL_forwardz00_22416
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_4963);
																																																		BgL_bufposz00_22418
																																																			=
																																																			BgL_bufposz00_4964;
																																																		BgL_bufposz00_3944
																																																			=
																																																			BgL_bufposz00_22418;
																																																		BgL_forwardz00_3943
																																																			=
																																																			BgL_forwardz00_22416;
																																																		BgL_lastzd2matchzd2_3942
																																																			=
																																																			BgL_lastzd2matchzd2_22415;
																																																		BgL_iportz00_3941
																																																			=
																																																			BgL_iportz00_22414;
																																																		goto
																																																			BgL_zc3z04anonymousza32753ze3z87_3945;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test7803z00_22419;
																																																		if (((long) (BgL_curz00_4971) == 39L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7803z00_22419
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_4971) == 44L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7803z00_22419
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7803z00_22419
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_4971)
																																																							==
																																																							96L);
																																																			}}
																																																		if (BgL_test7803z00_22419)
																																																			{
																																																				long
																																																					BgL_bufposz00_22432;
																																																				long
																																																					BgL_forwardz00_22430;
																																																				long
																																																					BgL_lastzd2matchzd2_22429;
																																																				obj_t
																																																					BgL_iportz00_22428;
																																																				BgL_iportz00_22428
																																																					=
																																																					BgL_iportz00_4961;
																																																				BgL_lastzd2matchzd2_22429
																																																					=
																																																					BgL_newzd2matchzd2_4966;
																																																				BgL_forwardz00_22430
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_4963);
																																																				BgL_bufposz00_22432
																																																					=
																																																					BgL_bufposz00_4964;
																																																				BgL_bufposz00_6106
																																																					=
																																																					BgL_bufposz00_22432;
																																																				BgL_forwardz00_6105
																																																					=
																																																					BgL_forwardz00_22430;
																																																				BgL_lastzd2matchzd2_6104
																																																					=
																																																					BgL_lastzd2matchzd2_22429;
																																																				BgL_iportz00_6103
																																																					=
																																																					BgL_iportz00_22428;
																																																				goto
																																																					BgL_zc3z04anonymousza33993ze3z87_6107;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test7806z00_22433;
																																																				if (((long) (BgL_curz00_4971) < 33L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7806z00_22433
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test7808z00_22437;
																																																						if (((long) (BgL_curz00_4971) == 35L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7808z00_22437
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7808z00_22437
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_4971)
																																																									==
																																																									34L);
																																																							}
																																																						if (BgL_test7808z00_22437)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7806z00_22433
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test7810z00_22443;
																																																								if (((long) (BgL_curz00_4971) == 41L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7810z00_22443
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_4971) == 40L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7810z00_22443
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7810z00_22443
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_4971)
																																																													==
																																																													39L);
																																																									}}
																																																								if (BgL_test7810z00_22443)
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7806z00_22433
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_4971) == 44L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7806z00_22433
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_4971) == 46L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7806z00_22433
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														bool_t
																																																															BgL_test7815z00_22458;
																																																														if (((long) (BgL_curz00_4971) == 59L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7815z00_22458
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7815z00_22458
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4971)
																																																																	==
																																																																	58L);
																																																															}
																																																														if (BgL_test7815z00_22458)
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7806z00_22433
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_4971) == 91L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7806z00_22433
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_4971) == 93L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7806z00_22433
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_4971) == 96L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7806z00_22433
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						bool_t
																																																																							BgL_test7820z00_22473;
																																																																						if (((long) (BgL_curz00_4971) == 125L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7820z00_22473
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								if (((long) (BgL_curz00_4971) == 124L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7820z00_22473
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7820z00_22473
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_4971)
																																																																											==
																																																																											123L);
																																																																							}}
																																																																						if (BgL_test7820z00_22473)
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7806z00_22433
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7806z00_22433
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_4971)
																																																																									==
																																																																									127L);
																																																					}}}}}}}}}}
																																																				if (BgL_test7806z00_22433)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_matchz00_9716
																																																							=
																																																							BgL_newzd2matchzd2_4966;
																																																					}
																																																				else
																																																					{
																																																						long
																																																							BgL_forwardz00_22485;
																																																						long
																																																							BgL_lastzd2matchzd2_22484;
																																																						BgL_lastzd2matchzd2_22484
																																																							=
																																																							BgL_newzd2matchzd2_4966;
																																																						BgL_forwardz00_22485
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_4963);
																																																						BgL_forwardz00_4963
																																																							=
																																																							BgL_forwardz00_22485;
																																																						BgL_lastzd2matchzd2_4962
																																																							=
																																																							BgL_lastzd2matchzd2_22484;
																																																						goto
																																																							BgL_zc3z04anonymousza33413ze3z87_4965;
																																																					}
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									}
																																							}
																																					}
																																			}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														if (
																															((long)
																																(BgL_curz00_6402)
																																== 46L))
																															{
																																long
																																	BgL_bufposz00_22496;
																																long
																																	BgL_forwardz00_22494;
																																long
																																	BgL_lastzd2matchzd2_22493;
																																obj_t
																																	BgL_iportz00_22492;
																																BgL_iportz00_22492
																																	=
																																	BgL_iportz00_6392;
																																BgL_lastzd2matchzd2_22493
																																	=
																																	BgL_newzd2matchzd2_6397;
																																BgL_forwardz00_22494
																																	=
																																	(1L +
																																	BgL_forwardz00_6394);
																																BgL_bufposz00_22496
																																	=
																																	BgL_bufposz00_6395;
																																BgL_bufposz00_3944
																																	=
																																	BgL_bufposz00_22496;
																																BgL_forwardz00_3943
																																	=
																																	BgL_forwardz00_22494;
																																BgL_lastzd2matchzd2_3942
																																	=
																																	BgL_lastzd2matchzd2_22493;
																																BgL_iportz00_3941
																																	=
																																	BgL_iportz00_22492;
																																goto
																																	BgL_zc3z04anonymousza32753ze3z87_3945;
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																bool_t
																																	BgL_test7824z00_22497;
																																if (((long)
																																		(BgL_curz00_6402)
																																		== 39L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test7824z00_22497
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		if (
																																			((long)
																																				(BgL_curz00_6402)
																																				== 44L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7824z00_22497
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7824z00_22497
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_6402)
																																					==
																																					96L);
																																	}}
																																if (BgL_test7824z00_22497)
																																	{
																																		long
																																			BgL_bufposz00_22510;
																																		long
																																			BgL_forwardz00_22508;
																																		long
																																			BgL_lastzd2matchzd2_22507;
																																		obj_t
																																			BgL_iportz00_22506;
																																		BgL_iportz00_22506
																																			=
																																			BgL_iportz00_6392;
																																		BgL_lastzd2matchzd2_22507
																																			=
																																			BgL_newzd2matchzd2_6397;
																																		BgL_forwardz00_22508
																																			=
																																			(1L +
																																			BgL_forwardz00_6394);
																																		BgL_bufposz00_22510
																																			=
																																			BgL_bufposz00_6395;
																																		BgL_bufposz00_6106
																																			=
																																			BgL_bufposz00_22510;
																																		BgL_forwardz00_6105
																																			=
																																			BgL_forwardz00_22508;
																																		BgL_lastzd2matchzd2_6104
																																			=
																																			BgL_lastzd2matchzd2_22507;
																																		BgL_iportz00_6103
																																			=
																																			BgL_iportz00_22506;
																																		goto
																																			BgL_zc3z04anonymousza33993ze3z87_6107;
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test7827z00_22511;
																																		if (((long)
																																				(BgL_curz00_6402)
																																				< 33L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7827z00_22511
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test7829z00_22515;
																																				if ((
																																						(long)
																																						(BgL_curz00_6402)
																																						==
																																						35L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7829z00_22515
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7829z00_22515
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_6402)
																																							==
																																							34L);
																																					}
																																				if (BgL_test7829z00_22515)
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7827z00_22511
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test7831z00_22521;
																																						if (
																																							((long) (BgL_curz00_6402) == 41L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7831z00_22521
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_6402) == 40L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7831z00_22521
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7831z00_22521
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6402)
																																											==
																																											39L);
																																							}}
																																						if (BgL_test7831z00_22521)
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7827z00_22511
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_6402) == 44L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7827z00_22511
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_6402) == 46L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7827z00_22511
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test7836z00_22536;
																																												if (((long) (BgL_curz00_6402) == 59L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7836z00_22536
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7836z00_22536
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_6402)
																																															==
																																															58L);
																																													}
																																												if (BgL_test7836z00_22536)
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7827z00_22511
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_6402) == 91L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7827z00_22511
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_6402) == 93L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7827z00_22511
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_6402) == 96L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7827z00_22511
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test7841z00_22551;
																																																				if (((long) (BgL_curz00_6402) == 125L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7841z00_22551
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_6402) == 124L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7841z00_22551
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7841z00_22551
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_6402)
																																																									==
																																																									123L);
																																																					}}
																																																				if (BgL_test7841z00_22551)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7827z00_22511
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7827z00_22511
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_6402)
																																																							==
																																																							127L);
																																			}}}}}}}}}}
																																		if (BgL_test7827z00_22511)
																																			{	/* Read/reader.scm 441 */
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_6397;
																																			}
																																		else
																																			{
																																				long
																																					BgL_bufposz00_22566;
																																				long
																																					BgL_forwardz00_22564;
																																				long
																																					BgL_lastzd2matchzd2_22563;
																																				obj_t
																																					BgL_iportz00_22562;
																																				BgL_iportz00_22562
																																					=
																																					BgL_iportz00_6392;
																																				BgL_lastzd2matchzd2_22563
																																					=
																																					BgL_newzd2matchzd2_6397;
																																				BgL_forwardz00_22564
																																					=
																																					(1L +
																																					BgL_forwardz00_6394);
																																				BgL_bufposz00_22566
																																					=
																																					BgL_bufposz00_6395;
																																				BgL_bufposz00_4964
																																					=
																																					BgL_bufposz00_22566;
																																				BgL_forwardz00_4963
																																					=
																																					BgL_forwardz00_22564;
																																				BgL_lastzd2matchzd2_4962
																																					=
																																					BgL_lastzd2matchzd2_22563;
																																				BgL_iportz00_4961
																																					=
																																					BgL_iportz00_22562;
																																				goto
																																					BgL_zc3z04anonymousza33413ze3z87_4965;
																																			}
																																	}
																															}
																													}
																											}
																										}
																								}
																							}
																						else
																							{	/* Read/reader.scm 441 */
																								bool_t BgL_test7844z00_22568;

																								if (
																									((long) (BgL_curz00_5568) >=
																										48L))
																									{	/* Read/reader.scm 441 */
																										BgL_test7844z00_22568 =
																											(
																											(long) (BgL_curz00_5568) <
																											58L);
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										BgL_test7844z00_22568 =
																											((bool_t) 0);
																									}
																								if (BgL_test7844z00_22568)
																									{	/* Read/reader.scm 441 */
																										BgL_iportz00_8540 =
																											BgL_iportz00_5558;
																										BgL_lastzd2matchzd2_8541 =
																											BgL_newzd2matchzd2_5563;
																										BgL_forwardz00_8542 =
																											(1L +
																											BgL_forwardz00_5560);
																										BgL_bufposz00_8543 =
																											BgL_bufposz00_5561;
																									BgL_zc3z04anonymousza35235ze3z87_8544:
																										{	/* Read/reader.scm 441 */
																											long
																												BgL_newzd2matchzd2_8545;
																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_22574;

																												BgL_tmpz00_22574 =
																													((obj_t)
																													BgL_iportz00_8540);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_22574,
																													BgL_forwardz00_8542);
																											}
																											BgL_newzd2matchzd2_8545 =
																												13L;
																											if ((BgL_forwardz00_8542
																													==
																													BgL_bufposz00_8543))
																												{	/* Read/reader.scm 441 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_8540)))
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_arg5238z00_8548;
																															long
																																BgL_arg5239z00_8549;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_22582;
																																BgL_tmpz00_22582
																																	=
																																	((obj_t)
																																	BgL_iportz00_8540);
																																BgL_arg5238z00_8548
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_22582);
																															}
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_22585;
																																BgL_tmpz00_22585
																																	=
																																	((obj_t)
																																	BgL_iportz00_8540);
																																BgL_arg5239z00_8549
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_22585);
																															}
																															{
																																long
																																	BgL_bufposz00_22589;
																																long
																																	BgL_forwardz00_22588;
																																BgL_forwardz00_22588
																																	=
																																	BgL_arg5238z00_8548;
																																BgL_bufposz00_22589
																																	=
																																	BgL_arg5239z00_8549;
																																BgL_bufposz00_8543
																																	=
																																	BgL_bufposz00_22589;
																																BgL_forwardz00_8542
																																	=
																																	BgL_forwardz00_22588;
																																goto
																																	BgL_zc3z04anonymousza35235ze3z87_8544;
																															}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_8545;
																														}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													int BgL_curz00_8550;

																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_22590;
																														BgL_tmpz00_22590 =
																															((obj_t)
																															BgL_iportz00_8540);
																														BgL_curz00_8550 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_22590,
																															BgL_forwardz00_8542);
																													}
																													{	/* Read/reader.scm 441 */

																														if (
																															((long)
																																(BgL_curz00_8550)
																																== 58L))
																															{
																																long
																																	BgL_bufposz00_22600;
																																long
																																	BgL_forwardz00_22598;
																																long
																																	BgL_lastzd2matchzd2_22597;
																																obj_t
																																	BgL_iportz00_22596;
																																BgL_iportz00_22596
																																	=
																																	BgL_iportz00_8540;
																																BgL_lastzd2matchzd2_22597
																																	=
																																	BgL_newzd2matchzd2_8545;
																																BgL_forwardz00_22598
																																	=
																																	(1L +
																																	BgL_forwardz00_8542);
																																BgL_bufposz00_22600
																																	=
																																	BgL_bufposz00_8543;
																																BgL_bufposz00_6395
																																	=
																																	BgL_bufposz00_22600;
																																BgL_forwardz00_6394
																																	=
																																	BgL_forwardz00_22598;
																																BgL_lastzd2matchzd2_6393
																																	=
																																	BgL_lastzd2matchzd2_22597;
																																BgL_iportz00_6392
																																	=
																																	BgL_iportz00_22596;
																																goto
																																	BgL_zc3z04anonymousza34142ze3z87_6396;
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																bool_t
																																	BgL_test7849z00_22601;
																																if (((long)
																																		(BgL_curz00_8550)
																																		>= 48L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test7849z00_22601
																																			=
																																			((long)
																																			(BgL_curz00_8550)
																																			< 58L);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		BgL_test7849z00_22601
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test7849z00_22601)
																																	{
																																		long
																																			BgL_forwardz00_22608;
																																		long
																																			BgL_lastzd2matchzd2_22607;
																																		BgL_lastzd2matchzd2_22607
																																			=
																																			BgL_newzd2matchzd2_8545;
																																		BgL_forwardz00_22608
																																			=
																																			(1L +
																																			BgL_forwardz00_8542);
																																		BgL_forwardz00_8542
																																			=
																																			BgL_forwardz00_22608;
																																		BgL_lastzd2matchzd2_8541
																																			=
																																			BgL_lastzd2matchzd2_22607;
																																		goto
																																			BgL_zc3z04anonymousza35235ze3z87_8544;
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		if (
																																			((long)
																																				(BgL_curz00_8550)
																																				== 46L))
																																			{
																																				long
																																					BgL_bufposz00_22617;
																																				long
																																					BgL_forwardz00_22615;
																																				long
																																					BgL_lastzd2matchzd2_22614;
																																				obj_t
																																					BgL_iportz00_22613;
																																				BgL_iportz00_22613
																																					=
																																					BgL_iportz00_8540;
																																				BgL_lastzd2matchzd2_22614
																																					=
																																					BgL_newzd2matchzd2_8545;
																																				BgL_forwardz00_22615
																																					=
																																					(1L +
																																					BgL_forwardz00_8542);
																																				BgL_bufposz00_22617
																																					=
																																					BgL_bufposz00_8543;
																																				BgL_bufposz00_3944
																																					=
																																					BgL_bufposz00_22617;
																																				BgL_forwardz00_3943
																																					=
																																					BgL_forwardz00_22615;
																																				BgL_lastzd2matchzd2_3942
																																					=
																																					BgL_lastzd2matchzd2_22614;
																																				BgL_iportz00_3941
																																					=
																																					BgL_iportz00_22613;
																																				goto
																																					BgL_zc3z04anonymousza32753ze3z87_3945;
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test7852z00_22618;
																																				if ((
																																						(long)
																																						(BgL_curz00_8550)
																																						==
																																						39L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7852z00_22618
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						if (
																																							((long) (BgL_curz00_8550) == 44L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7852z00_22618
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7852z00_22618
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_8550)
																																									==
																																									96L);
																																					}}
																																				if (BgL_test7852z00_22618)
																																					{
																																						long
																																							BgL_bufposz00_22631;
																																						long
																																							BgL_forwardz00_22629;
																																						long
																																							BgL_lastzd2matchzd2_22628;
																																						obj_t
																																							BgL_iportz00_22627;
																																						BgL_iportz00_22627
																																							=
																																							BgL_iportz00_8540;
																																						BgL_lastzd2matchzd2_22628
																																							=
																																							BgL_newzd2matchzd2_8545;
																																						BgL_forwardz00_22629
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_8542);
																																						BgL_bufposz00_22631
																																							=
																																							BgL_bufposz00_8543;
																																						BgL_bufposz00_6106
																																							=
																																							BgL_bufposz00_22631;
																																						BgL_forwardz00_6105
																																							=
																																							BgL_forwardz00_22629;
																																						BgL_lastzd2matchzd2_6104
																																							=
																																							BgL_lastzd2matchzd2_22628;
																																						BgL_iportz00_6103
																																							=
																																							BgL_iportz00_22627;
																																						goto
																																							BgL_zc3z04anonymousza33993ze3z87_6107;
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test7855z00_22632;
																																						if (
																																							((long) (BgL_curz00_8550) < 33L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7855z00_22632
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test7857z00_22636;
																																								if (((long) (BgL_curz00_8550) == 35L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7857z00_22636
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7857z00_22636
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_8550)
																																											==
																																											34L);
																																									}
																																								if (BgL_test7857z00_22636)
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7855z00_22632
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										bool_t
																																											BgL_test7859z00_22642;
																																										if (((long) (BgL_curz00_8550) == 41L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7859z00_22642
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												if (((long) (BgL_curz00_8550) == 40L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7859z00_22642
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7859z00_22642
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_8550)
																																															==
																																															39L);
																																											}}
																																										if (BgL_test7859z00_22642)
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7855z00_22632
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												if (((long) (BgL_curz00_8550) == 44L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7855z00_22632
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_8550) == 46L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7855z00_22632
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test7864z00_22657;
																																																if (((long) (BgL_curz00_8550) >= 48L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7864z00_22657
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_8550)
																																																			<
																																																			60L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7864z00_22657
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test7864z00_22657)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7855z00_22632
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_8550) == 91L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7855z00_22632
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_8550) == 93L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7855z00_22632
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_8550) == 96L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7855z00_22632
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test7869z00_22672;
																																																								if (((long) (BgL_curz00_8550) == 125L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7869z00_22672
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_8550) == 124L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7869z00_22672
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7869z00_22672
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_8550)
																																																													==
																																																													123L);
																																																									}}
																																																								if (BgL_test7869z00_22672)
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7855z00_22632
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7855z00_22632
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_8550)
																																																											==
																																																											127L);
																																							}}}}}}}}}}
																																						if (BgL_test7855z00_22632)
																																							{	/* Read/reader.scm 441 */
																																								BgL_matchz00_9716
																																									=
																																									BgL_newzd2matchzd2_8545;
																																							}
																																						else
																																							{
																																								long
																																									BgL_bufposz00_22687;
																																								long
																																									BgL_forwardz00_22685;
																																								long
																																									BgL_lastzd2matchzd2_22684;
																																								obj_t
																																									BgL_iportz00_22683;
																																								BgL_iportz00_22683
																																									=
																																									BgL_iportz00_8540;
																																								BgL_lastzd2matchzd2_22684
																																									=
																																									BgL_newzd2matchzd2_8545;
																																								BgL_forwardz00_22685
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_8542);
																																								BgL_bufposz00_22687
																																									=
																																									BgL_bufposz00_8543;
																																								BgL_bufposz00_4964
																																									=
																																									BgL_bufposz00_22687;
																																								BgL_forwardz00_4963
																																									=
																																									BgL_forwardz00_22685;
																																								BgL_lastzd2matchzd2_4962
																																									=
																																									BgL_lastzd2matchzd2_22684;
																																								BgL_iportz00_4961
																																									=
																																									BgL_iportz00_22683;
																																								goto
																																									BgL_zc3z04anonymousza33413ze3z87_4965;
																																							}
																																					}
																																			}
																																	}
																															}
																													}
																												}
																										}
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										if (
																											((long) (BgL_curz00_5568)
																												== 46L))
																											{
																												long
																													BgL_bufposz00_22696;
																												long
																													BgL_forwardz00_22694;
																												long
																													BgL_lastzd2matchzd2_22693;
																												obj_t
																													BgL_iportz00_22692;
																												BgL_iportz00_22692 =
																													BgL_iportz00_5558;
																												BgL_lastzd2matchzd2_22693
																													=
																													BgL_newzd2matchzd2_5563;
																												BgL_forwardz00_22694 =
																													(1L +
																													BgL_forwardz00_5560);
																												BgL_bufposz00_22696 =
																													BgL_bufposz00_5561;
																												BgL_bufposz00_3944 =
																													BgL_bufposz00_22696;
																												BgL_forwardz00_3943 =
																													BgL_forwardz00_22694;
																												BgL_lastzd2matchzd2_3942
																													=
																													BgL_lastzd2matchzd2_22693;
																												BgL_iportz00_3941 =
																													BgL_iportz00_22692;
																												goto
																													BgL_zc3z04anonymousza32753ze3z87_3945;
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												bool_t
																													BgL_test7873z00_22697;
																												if (((long)
																														(BgL_curz00_5568) ==
																														43L))
																													{	/* Read/reader.scm 441 */
																														BgL_test7873z00_22697
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														BgL_test7873z00_22697
																															=
																															((long)
																															(BgL_curz00_5568)
																															== 45L);
																													}
																												if (BgL_test7873z00_22697)
																													{	/* Read/reader.scm 441 */
																														BgL_iportz00_5628 =
																															BgL_iportz00_5558;
																														BgL_lastzd2matchzd2_5629
																															=
																															BgL_newzd2matchzd2_5563;
																														BgL_forwardz00_5630
																															=
																															(1L +
																															BgL_forwardz00_5560);
																														BgL_bufposz00_5631 =
																															BgL_bufposz00_5561;
																													BgL_zc3z04anonymousza33760ze3z87_5632:
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_newzd2matchzd2_5633;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_22703;
																																BgL_tmpz00_22703
																																	=
																																	((obj_t)
																																	BgL_iportz00_5628);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_22703,
																																	BgL_forwardz00_5630);
																															}
																															BgL_newzd2matchzd2_5633
																																= 22L;
																															if (
																																(BgL_forwardz00_5630
																																	==
																																	BgL_bufposz00_5631))
																																{	/* Read/reader.scm 441 */
																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_5628)))
																																		{	/* Read/reader.scm 441 */
																																			long
																																				BgL_arg3763z00_5636;
																																			long
																																				BgL_arg3764z00_5637;
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_22711;
																																				BgL_tmpz00_22711
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_5628);
																																				BgL_arg3763z00_5636
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_tmpz00_22711);
																																			}
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_22714;
																																				BgL_tmpz00_22714
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_5628);
																																				BgL_arg3764z00_5637
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_tmpz00_22714);
																																			}
																																			{
																																				long
																																					BgL_bufposz00_22718;
																																				long
																																					BgL_forwardz00_22717;
																																				BgL_forwardz00_22717
																																					=
																																					BgL_arg3763z00_5636;
																																				BgL_bufposz00_22718
																																					=
																																					BgL_arg3764z00_5637;
																																				BgL_bufposz00_5631
																																					=
																																					BgL_bufposz00_22718;
																																				BgL_forwardz00_5630
																																					=
																																					BgL_forwardz00_22717;
																																				goto
																																					BgL_zc3z04anonymousza33760ze3z87_5632;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_matchz00_9716
																																				=
																																				BgL_newzd2matchzd2_5633;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	int
																																		BgL_curz00_5638;
																																	{	/* Read/reader.scm 441 */
																																		obj_t
																																			BgL_tmpz00_22719;
																																		BgL_tmpz00_22719
																																			=
																																			((obj_t)
																																			BgL_iportz00_5628);
																																		BgL_curz00_5638
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_tmpz00_22719,
																																			BgL_forwardz00_5630);
																																	}
																																	{	/* Read/reader.scm 441 */

																																		if (
																																			((long)
																																				(BgL_curz00_5638)
																																				== 58L))
																																			{
																																				long
																																					BgL_bufposz00_22729;
																																				long
																																					BgL_forwardz00_22727;
																																				long
																																					BgL_lastzd2matchzd2_22726;
																																				obj_t
																																					BgL_iportz00_22725;
																																				BgL_iportz00_22725
																																					=
																																					BgL_iportz00_5628;
																																				BgL_lastzd2matchzd2_22726
																																					=
																																					BgL_newzd2matchzd2_5633;
																																				BgL_forwardz00_22727
																																					=
																																					(1L +
																																					BgL_forwardz00_5630);
																																				BgL_bufposz00_22729
																																					=
																																					BgL_bufposz00_5631;
																																				BgL_bufposz00_6395
																																					=
																																					BgL_bufposz00_22729;
																																				BgL_forwardz00_6394
																																					=
																																					BgL_forwardz00_22727;
																																				BgL_lastzd2matchzd2_6393
																																					=
																																					BgL_lastzd2matchzd2_22726;
																																				BgL_iportz00_6392
																																					=
																																					BgL_iportz00_22725;
																																				goto
																																					BgL_zc3z04anonymousza34142ze3z87_6396;
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test7878z00_22730;
																																				if ((
																																						(long)
																																						(BgL_curz00_5638)
																																						>=
																																						48L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7878z00_22730
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_5638)
																																							<
																																							58L);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7878z00_22730
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test7878z00_22730)
																																					{
																																						long
																																							BgL_bufposz00_22740;
																																						long
																																							BgL_forwardz00_22738;
																																						long
																																							BgL_lastzd2matchzd2_22737;
																																						obj_t
																																							BgL_iportz00_22736;
																																						BgL_iportz00_22736
																																							=
																																							BgL_iportz00_5628;
																																						BgL_lastzd2matchzd2_22737
																																							=
																																							BgL_newzd2matchzd2_5633;
																																						BgL_forwardz00_22738
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_5630);
																																						BgL_bufposz00_22740
																																							=
																																							BgL_bufposz00_5631;
																																						BgL_bufposz00_8543
																																							=
																																							BgL_bufposz00_22740;
																																						BgL_forwardz00_8542
																																							=
																																							BgL_forwardz00_22738;
																																						BgL_lastzd2matchzd2_8541
																																							=
																																							BgL_lastzd2matchzd2_22737;
																																						BgL_iportz00_8540
																																							=
																																							BgL_iportz00_22736;
																																						goto
																																							BgL_zc3z04anonymousza35235ze3z87_8544;
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						if (
																																							((long) (BgL_curz00_5638) == 46L))
																																							{
																																								long
																																									BgL_bufposz00_22748;
																																								long
																																									BgL_forwardz00_22746;
																																								long
																																									BgL_lastzd2matchzd2_22745;
																																								obj_t
																																									BgL_iportz00_22744;
																																								BgL_iportz00_22744
																																									=
																																									BgL_iportz00_5628;
																																								BgL_lastzd2matchzd2_22745
																																									=
																																									BgL_newzd2matchzd2_5633;
																																								BgL_forwardz00_22746
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_5630);
																																								BgL_bufposz00_22748
																																									=
																																									BgL_bufposz00_5631;
																																								BgL_bufposz00_3944
																																									=
																																									BgL_bufposz00_22748;
																																								BgL_forwardz00_3943
																																									=
																																									BgL_forwardz00_22746;
																																								BgL_lastzd2matchzd2_3942
																																									=
																																									BgL_lastzd2matchzd2_22745;
																																								BgL_iportz00_3941
																																									=
																																									BgL_iportz00_22744;
																																								goto
																																									BgL_zc3z04anonymousza32753ze3z87_3945;
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test7881z00_22749;
																																								if (((long) (BgL_curz00_5638) == 39L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7881z00_22749
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_5638) == 44L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7881z00_22749
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7881z00_22749
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_5638)
																																													==
																																													96L);
																																									}}
																																								if (BgL_test7881z00_22749)
																																									{
																																										long
																																											BgL_bufposz00_22762;
																																										long
																																											BgL_forwardz00_22760;
																																										long
																																											BgL_lastzd2matchzd2_22759;
																																										obj_t
																																											BgL_iportz00_22758;
																																										BgL_iportz00_22758
																																											=
																																											BgL_iportz00_5628;
																																										BgL_lastzd2matchzd2_22759
																																											=
																																											BgL_newzd2matchzd2_5633;
																																										BgL_forwardz00_22760
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_5630);
																																										BgL_bufposz00_22762
																																											=
																																											BgL_bufposz00_5631;
																																										BgL_bufposz00_6106
																																											=
																																											BgL_bufposz00_22762;
																																										BgL_forwardz00_6105
																																											=
																																											BgL_forwardz00_22760;
																																										BgL_lastzd2matchzd2_6104
																																											=
																																											BgL_lastzd2matchzd2_22759;
																																										BgL_iportz00_6103
																																											=
																																											BgL_iportz00_22758;
																																										goto
																																											BgL_zc3z04anonymousza33993ze3z87_6107;
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										bool_t
																																											BgL_test7884z00_22763;
																																										if (((long) (BgL_curz00_5638) < 33L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7884z00_22763
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test7886z00_22767;
																																												if (((long) (BgL_curz00_5638) == 35L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7886z00_22767
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7886z00_22767
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_5638)
																																															==
																																															34L);
																																													}
																																												if (BgL_test7886z00_22767)
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7884z00_22763
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test7888z00_22773;
																																														if (((long) (BgL_curz00_5638) == 41L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7888z00_22773
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_5638) == 40L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7888z00_22773
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7888z00_22773
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_5638)
																																																			==
																																																			39L);
																																															}}
																																														if (BgL_test7888z00_22773)
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7884z00_22763
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_5638) == 44L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7884z00_22763
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_5638) == 46L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7884z00_22763
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test7893z00_22788;
																																																				if (((long) (BgL_curz00_5638) >= 48L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7893z00_22788
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_5638)
																																																							<
																																																							60L);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7893z00_22788
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test7893z00_22788)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7884z00_22763
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_5638) == 91L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7884z00_22763
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_5638) == 93L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7884z00_22763
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_5638) == 96L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7884z00_22763
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test7898z00_22803;
																																																												if (((long) (BgL_curz00_5638) == 125L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7898z00_22803
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_5638) == 124L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7898z00_22803
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7898z00_22803
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_5638)
																																																																	==
																																																																	123L);
																																																													}}
																																																												if (BgL_test7898z00_22803)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7884z00_22763
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7884z00_22763
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_5638)
																																																															==
																																																															127L);
																																											}}}}}}}}}}
																																										if (BgL_test7884z00_22763)
																																											{	/* Read/reader.scm 441 */
																																												BgL_matchz00_9716
																																													=
																																													BgL_newzd2matchzd2_5633;
																																											}
																																										else
																																											{
																																												long
																																													BgL_bufposz00_22818;
																																												long
																																													BgL_forwardz00_22816;
																																												long
																																													BgL_lastzd2matchzd2_22815;
																																												obj_t
																																													BgL_iportz00_22814;
																																												BgL_iportz00_22814
																																													=
																																													BgL_iportz00_5628;
																																												BgL_lastzd2matchzd2_22815
																																													=
																																													BgL_newzd2matchzd2_5633;
																																												BgL_forwardz00_22816
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_5630);
																																												BgL_bufposz00_22818
																																													=
																																													BgL_bufposz00_5631;
																																												BgL_bufposz00_4964
																																													=
																																													BgL_bufposz00_22818;
																																												BgL_forwardz00_4963
																																													=
																																													BgL_forwardz00_22816;
																																												BgL_lastzd2matchzd2_4962
																																													=
																																													BgL_lastzd2matchzd2_22815;
																																												BgL_iportz00_4961
																																													=
																																													BgL_iportz00_22814;
																																												goto
																																													BgL_zc3z04anonymousza33413ze3z87_4965;
																																											}
																																									}
																																							}
																																					}
																																			}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														bool_t
																															BgL_test7901z00_22820;
																														if (((long)
																																(BgL_curz00_5568)
																																== 39L))
																															{	/* Read/reader.scm 441 */
																																BgL_test7901z00_22820
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																if (
																																	((long)
																																		(BgL_curz00_5568)
																																		== 44L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test7901z00_22820
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		BgL_test7901z00_22820
																																			=
																																			((long)
																																			(BgL_curz00_5568)
																																			== 96L);
																															}}
																														if (BgL_test7901z00_22820)
																															{
																																long
																																	BgL_bufposz00_22833;
																																long
																																	BgL_forwardz00_22831;
																																long
																																	BgL_lastzd2matchzd2_22830;
																																obj_t
																																	BgL_iportz00_22829;
																																BgL_iportz00_22829
																																	=
																																	BgL_iportz00_5558;
																																BgL_lastzd2matchzd2_22830
																																	=
																																	BgL_newzd2matchzd2_5563;
																																BgL_forwardz00_22831
																																	=
																																	(1L +
																																	BgL_forwardz00_5560);
																																BgL_bufposz00_22833
																																	=
																																	BgL_bufposz00_5561;
																																BgL_bufposz00_6106
																																	=
																																	BgL_bufposz00_22833;
																																BgL_forwardz00_6105
																																	=
																																	BgL_forwardz00_22831;
																																BgL_lastzd2matchzd2_6104
																																	=
																																	BgL_lastzd2matchzd2_22830;
																																BgL_iportz00_6103
																																	=
																																	BgL_iportz00_22829;
																																goto
																																	BgL_zc3z04anonymousza33993ze3z87_6107;
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																bool_t
																																	BgL_test7904z00_22834;
																																if (((long)
																																		(BgL_curz00_5568)
																																		< 33L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test7904z00_22834
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test7906z00_22838;
																																		if (((long)
																																				(BgL_curz00_5568)
																																				== 35L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7906z00_22838
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7906z00_22838
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_5568)
																																					==
																																					34L);
																																			}
																																		if (BgL_test7906z00_22838)
																																			{	/* Read/reader.scm 441 */
																																				BgL_test7904z00_22834
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test7908z00_22844;
																																				if ((
																																						(long)
																																						(BgL_curz00_5568)
																																						==
																																						41L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7908z00_22844
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						if (
																																							((long) (BgL_curz00_5568) == 40L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7908z00_22844
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7908z00_22844
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_5568)
																																									==
																																									39L);
																																					}}
																																				if (BgL_test7908z00_22844)
																																					{	/* Read/reader.scm 441 */
																																						BgL_test7904z00_22834
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test7911z00_22853;
																																						if (
																																							((long) (BgL_curz00_5568) >= 43L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7911z00_22853
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_5568)
																																									<
																																									47L);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7911z00_22853
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test7911z00_22853)
																																							{	/* Read/reader.scm 441 */
																																								BgL_test7904z00_22834
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test7913z00_22859;
																																								if (((long) (BgL_curz00_5568) >= 48L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7913z00_22859
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_5568)
																																											<
																																											60L);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7913z00_22859
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test7913z00_22859)
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7904z00_22834
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_5568) == 91L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test7904z00_22834
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												if (((long) (BgL_curz00_5568) == 93L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test7904z00_22834
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_5568) == 96L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test7904z00_22834
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test7918z00_22874;
																																																if (((long) (BgL_curz00_5568) == 125L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7918z00_22874
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_5568) == 124L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7918z00_22874
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7918z00_22874
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_5568)
																																																					==
																																																					123L);
																																																	}}
																																																if (BgL_test7918z00_22874)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7904z00_22834
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7904z00_22834
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_5568)
																																																			==
																																																			127L);
																																	}}}}}}}}}
																																if (BgL_test7904z00_22834)
																																	{	/* Read/reader.scm 441 */
																																		BgL_matchz00_9716
																																			=
																																			BgL_newzd2matchzd2_5563;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_22889;
																																		long
																																			BgL_forwardz00_22887;
																																		long
																																			BgL_lastzd2matchzd2_22886;
																																		obj_t
																																			BgL_iportz00_22885;
																																		BgL_iportz00_22885
																																			=
																																			BgL_iportz00_5558;
																																		BgL_lastzd2matchzd2_22886
																																			=
																																			BgL_newzd2matchzd2_5563;
																																		BgL_forwardz00_22887
																																			=
																																			(1L +
																																			BgL_forwardz00_5560);
																																		BgL_bufposz00_22889
																																			=
																																			BgL_bufposz00_5561;
																																		BgL_bufposz00_4964
																																			=
																																			BgL_bufposz00_22889;
																																		BgL_forwardz00_4963
																																			=
																																			BgL_forwardz00_22887;
																																		BgL_lastzd2matchzd2_4962
																																			=
																																			BgL_lastzd2matchzd2_22886;
																																		BgL_iportz00_4961
																																			=
																																			BgL_iportz00_22885;
																																		goto
																																			BgL_zc3z04anonymousza33413ze3z87_4965;
																																	}
																															}
																													}
																											}
																									}
																							}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 441 */
																		if (((long) (BgL_curz00_5172) == 58L))
																			{
																				long BgL_bufposz00_22898;
																				long BgL_forwardz00_22896;
																				long BgL_lastzd2matchzd2_22895;
																				obj_t BgL_iportz00_22894;

																				BgL_iportz00_22894 = BgL_iportz00_5162;
																				BgL_lastzd2matchzd2_22895 =
																					BgL_newzd2matchzd2_5167;
																				BgL_forwardz00_22896 =
																					(1L + BgL_forwardz00_5164);
																				BgL_bufposz00_22898 =
																					BgL_bufposz00_5165;
																				BgL_bufposz00_6395 =
																					BgL_bufposz00_22898;
																				BgL_forwardz00_6394 =
																					BgL_forwardz00_22896;
																				BgL_lastzd2matchzd2_6393 =
																					BgL_lastzd2matchzd2_22895;
																				BgL_iportz00_6392 = BgL_iportz00_22894;
																				goto
																					BgL_zc3z04anonymousza34142ze3z87_6396;
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				bool_t BgL_test7922z00_22899;

																				if (((long) (BgL_curz00_5172) >= 48L))
																					{	/* Read/reader.scm 441 */
																						BgL_test7922z00_22899 =
																							((long) (BgL_curz00_5172) < 58L);
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						BgL_test7922z00_22899 =
																							((bool_t) 0);
																					}
																				if (BgL_test7922z00_22899)
																					{	/* Read/reader.scm 441 */
																						BgL_iportz00_9075 =
																							BgL_iportz00_5162;
																						BgL_lastzd2matchzd2_9076 =
																							BgL_newzd2matchzd2_5167;
																						BgL_forwardz00_9077 =
																							(1L + BgL_forwardz00_5164);
																						BgL_bufposz00_9078 =
																							BgL_bufposz00_5165;
																					BgL_zc3z04anonymousza35514ze3z87_9079:
																						{	/* Read/reader.scm 441 */
																							long BgL_newzd2matchzd2_9080;

																							{	/* Read/reader.scm 441 */
																								obj_t BgL_tmpz00_22905;

																								BgL_tmpz00_22905 =
																									((obj_t) BgL_iportz00_9075);
																								RGC_STOP_MATCH(BgL_tmpz00_22905,
																									BgL_forwardz00_9077);
																							}
																							BgL_newzd2matchzd2_9080 = 12L;
																							if (
																								(BgL_forwardz00_9077 ==
																									BgL_bufposz00_9078))
																								{	/* Read/reader.scm 441 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_9075)))
																										{	/* Read/reader.scm 441 */
																											long BgL_arg5517z00_9083;
																											long BgL_arg5518z00_9084;

																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_22913;

																												BgL_tmpz00_22913 =
																													((obj_t)
																													BgL_iportz00_9075);
																												BgL_arg5517z00_9083 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_22913);
																											}
																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_22916;

																												BgL_tmpz00_22916 =
																													((obj_t)
																													BgL_iportz00_9075);
																												BgL_arg5518z00_9084 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_22916);
																											}
																											{
																												long
																													BgL_bufposz00_22920;
																												long
																													BgL_forwardz00_22919;
																												BgL_forwardz00_22919 =
																													BgL_arg5517z00_9083;
																												BgL_bufposz00_22920 =
																													BgL_arg5518z00_9084;
																												BgL_bufposz00_9078 =
																													BgL_bufposz00_22920;
																												BgL_forwardz00_9077 =
																													BgL_forwardz00_22919;
																												goto
																													BgL_zc3z04anonymousza35514ze3z87_9079;
																											}
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											BgL_matchz00_9716 =
																												BgL_newzd2matchzd2_9080;
																										}
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									int BgL_curz00_9085;

																									{	/* Read/reader.scm 441 */
																										obj_t BgL_tmpz00_22921;

																										BgL_tmpz00_22921 =
																											((obj_t)
																											BgL_iportz00_9075);
																										BgL_curz00_9085 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_22921,
																											BgL_forwardz00_9077);
																									}
																									{	/* Read/reader.scm 441 */

																										{	/* Read/reader.scm 441 */
																											bool_t
																												BgL_test7926z00_22924;
																											if (((long)
																													(BgL_curz00_9085) ==
																													69L))
																												{	/* Read/reader.scm 441 */
																													BgL_test7926z00_22924
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_test7926z00_22924
																														=
																														((long)
																														(BgL_curz00_9085) ==
																														101L);
																												}
																											if (BgL_test7926z00_22924)
																												{
																													long
																														BgL_bufposz00_22934;
																													long
																														BgL_forwardz00_22932;
																													long
																														BgL_lastzd2matchzd2_22931;
																													obj_t
																														BgL_iportz00_22930;
																													BgL_iportz00_22930 =
																														BgL_iportz00_9075;
																													BgL_lastzd2matchzd2_22931
																														=
																														BgL_newzd2matchzd2_9080;
																													BgL_forwardz00_22932 =
																														(1L +
																														BgL_forwardz00_9077);
																													BgL_bufposz00_22934 =
																														BgL_bufposz00_9078;
																													BgL_bufposz00_5561 =
																														BgL_bufposz00_22934;
																													BgL_forwardz00_5560 =
																														BgL_forwardz00_22932;
																													BgL_lastzd2matchzd2_5559
																														=
																														BgL_lastzd2matchzd2_22931;
																													BgL_iportz00_5558 =
																														BgL_iportz00_22930;
																													goto
																														BgL_zc3z04anonymousza33723ze3z87_5562;
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													if (
																														((long)
																															(BgL_curz00_9085)
																															== 58L))
																														{
																															long
																																BgL_bufposz00_22942;
																															long
																																BgL_forwardz00_22940;
																															long
																																BgL_lastzd2matchzd2_22939;
																															obj_t
																																BgL_iportz00_22938;
																															BgL_iportz00_22938
																																=
																																BgL_iportz00_9075;
																															BgL_lastzd2matchzd2_22939
																																=
																																BgL_newzd2matchzd2_9080;
																															BgL_forwardz00_22940
																																=
																																(1L +
																																BgL_forwardz00_9077);
																															BgL_bufposz00_22942
																																=
																																BgL_bufposz00_9078;
																															BgL_bufposz00_6395
																																=
																																BgL_bufposz00_22942;
																															BgL_forwardz00_6394
																																=
																																BgL_forwardz00_22940;
																															BgL_lastzd2matchzd2_6393
																																=
																																BgL_lastzd2matchzd2_22939;
																															BgL_iportz00_6392
																																=
																																BgL_iportz00_22938;
																															goto
																																BgL_zc3z04anonymousza34142ze3z87_6396;
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test7929z00_22943;
																															if (((long)
																																	(BgL_curz00_9085)
																																	>= 48L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test7929z00_22943
																																		=
																																		((long)
																																		(BgL_curz00_9085)
																																		< 58L);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test7929z00_22943
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test7929z00_22943)
																																{
																																	long
																																		BgL_forwardz00_22950;
																																	long
																																		BgL_lastzd2matchzd2_22949;
																																	BgL_lastzd2matchzd2_22949
																																		=
																																		BgL_newzd2matchzd2_9080;
																																	BgL_forwardz00_22950
																																		=
																																		(1L +
																																		BgL_forwardz00_9077);
																																	BgL_forwardz00_9077
																																		=
																																		BgL_forwardz00_22950;
																																	BgL_lastzd2matchzd2_9076
																																		=
																																		BgL_lastzd2matchzd2_22949;
																																	goto
																																		BgL_zc3z04anonymousza35514ze3z87_9079;
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_9085)
																																			== 46L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_iportz00_7042
																																				=
																																				BgL_iportz00_9075;
																																			BgL_lastzd2matchzd2_7043
																																				=
																																				BgL_newzd2matchzd2_9080;
																																			BgL_forwardz00_7044
																																				=
																																				(1L +
																																				BgL_forwardz00_9077);
																																			BgL_bufposz00_7045
																																				=
																																				BgL_bufposz00_9078;
																																		BgL_zc3z04anonymousza34481ze3z87_7046:
																																			{	/* Read/reader.scm 441 */
																																				long
																																					BgL_newzd2matchzd2_7047;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_22955;
																																					BgL_tmpz00_22955
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7042);
																																					RGC_STOP_MATCH
																																						(BgL_tmpz00_22955,
																																						BgL_forwardz00_7044);
																																				}
																																				BgL_newzd2matchzd2_7047
																																					= 13L;
																																				if (
																																					(BgL_forwardz00_7044
																																						==
																																						BgL_bufposz00_7045))
																																					{	/* Read/reader.scm 441 */
																																						if (rgc_fill_buffer(((obj_t) BgL_iportz00_7042)))
																																							{	/* Read/reader.scm 441 */
																																								long
																																									BgL_arg4484z00_7050;
																																								long
																																									BgL_arg4485z00_7051;
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_22963;
																																									BgL_tmpz00_22963
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_7042);
																																									BgL_arg4484z00_7050
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_tmpz00_22963);
																																								}
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_22966;
																																									BgL_tmpz00_22966
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_7042);
																																									BgL_arg4485z00_7051
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_tmpz00_22966);
																																								}
																																								{
																																									long
																																										BgL_bufposz00_22970;
																																									long
																																										BgL_forwardz00_22969;
																																									BgL_forwardz00_22969
																																										=
																																										BgL_arg4484z00_7050;
																																									BgL_bufposz00_22970
																																										=
																																										BgL_arg4485z00_7051;
																																									BgL_bufposz00_7045
																																										=
																																										BgL_bufposz00_22970;
																																									BgL_forwardz00_7044
																																										=
																																										BgL_forwardz00_22969;
																																									goto
																																										BgL_zc3z04anonymousza34481ze3z87_7046;
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								BgL_matchz00_9716
																																									=
																																									BgL_newzd2matchzd2_7047;
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						int
																																							BgL_curz00_7052;
																																						{	/* Read/reader.scm 441 */
																																							obj_t
																																								BgL_tmpz00_22971;
																																							BgL_tmpz00_22971
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_7042);
																																							BgL_curz00_7052
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_tmpz00_22971,
																																								BgL_forwardz00_7044);
																																						}
																																						{	/* Read/reader.scm 441 */

																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test7934z00_22974;
																																								if (((long) (BgL_curz00_7052) == 69L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7934z00_22974
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test7934z00_22974
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_7052)
																																											==
																																											101L);
																																									}
																																								if (BgL_test7934z00_22974)
																																									{	/* Read/reader.scm 441 */
																																										BgL_iportz00_4256
																																											=
																																											BgL_iportz00_7042;
																																										BgL_lastzd2matchzd2_4257
																																											=
																																											BgL_newzd2matchzd2_7047;
																																										BgL_forwardz00_4258
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_7044);
																																										BgL_bufposz00_4259
																																											=
																																											BgL_bufposz00_7045;
																																									BgL_zc3z04anonymousza32951ze3z87_4260:
																																										{	/* Read/reader.scm 441 */
																																											long
																																												BgL_newzd2matchzd2_4261;
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_22980;
																																												BgL_tmpz00_22980
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4256);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_22980,
																																													BgL_forwardz00_4258);
																																											}
																																											BgL_newzd2matchzd2_4261
																																												=
																																												22L;
																																											if ((BgL_forwardz00_4258 == BgL_bufposz00_4259))
																																												{	/* Read/reader.scm 441 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_4256)))
																																														{	/* Read/reader.scm 441 */
																																															long
																																																BgL_arg2954z00_4264;
																																															long
																																																BgL_arg2955z00_4265;
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_22988;
																																																BgL_tmpz00_22988
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4256);
																																																BgL_arg2954z00_4264
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_22988);
																																															}
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_22991;
																																																BgL_tmpz00_22991
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4256);
																																																BgL_arg2955z00_4265
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_22991);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_22995;
																																																long
																																																	BgL_forwardz00_22994;
																																																BgL_forwardz00_22994
																																																	=
																																																	BgL_arg2954z00_4264;
																																																BgL_bufposz00_22995
																																																	=
																																																	BgL_arg2955z00_4265;
																																																BgL_bufposz00_4259
																																																	=
																																																	BgL_bufposz00_22995;
																																																BgL_forwardz00_4258
																																																	=
																																																	BgL_forwardz00_22994;
																																																goto
																																																	BgL_zc3z04anonymousza32951ze3z87_4260;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_matchz00_9716
																																																=
																																																BgL_newzd2matchzd2_4261;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													int
																																														BgL_curz00_4266;
																																													{	/* Read/reader.scm 441 */
																																														obj_t
																																															BgL_tmpz00_22996;
																																														BgL_tmpz00_22996
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_4256);
																																														BgL_curz00_4266
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_22996,
																																															BgL_forwardz00_4258);
																																													}
																																													{	/* Read/reader.scm 441 */

																																														if (((long) (BgL_curz00_4266) == 58L))
																																															{
																																																long
																																																	BgL_bufposz00_23006;
																																																long
																																																	BgL_forwardz00_23004;
																																																long
																																																	BgL_lastzd2matchzd2_23003;
																																																obj_t
																																																	BgL_iportz00_23002;
																																																BgL_iportz00_23002
																																																	=
																																																	BgL_iportz00_4256;
																																																BgL_lastzd2matchzd2_23003
																																																	=
																																																	BgL_newzd2matchzd2_4261;
																																																BgL_forwardz00_23004
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_4258);
																																																BgL_bufposz00_23006
																																																	=
																																																	BgL_bufposz00_4259;
																																																BgL_bufposz00_7594
																																																	=
																																																	BgL_bufposz00_23006;
																																																BgL_forwardz00_7593
																																																	=
																																																	BgL_forwardz00_23004;
																																																BgL_lastzd2matchzd2_7592
																																																	=
																																																	BgL_lastzd2matchzd2_23003;
																																																BgL_iportz00_7591
																																																	=
																																																	BgL_iportz00_23002;
																																																goto
																																																	BgL_zc3z04anonymousza34764ze3z87_7595;
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test7939z00_23007;
																																																if (((long) (BgL_curz00_4266) >= 48L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7939z00_23007
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_4266)
																																																			<
																																																			58L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test7939z00_23007
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test7939z00_23007)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_iportz00_7180
																																																			=
																																																			BgL_iportz00_4256;
																																																		BgL_lastzd2matchzd2_7181
																																																			=
																																																			BgL_newzd2matchzd2_4261;
																																																		BgL_forwardz00_7182
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_4258);
																																																		BgL_bufposz00_7183
																																																			=
																																																			BgL_bufposz00_4259;
																																																	BgL_zc3z04anonymousza34553ze3z87_7184:
																																																		{	/* Read/reader.scm 441 */
																																																			long
																																																				BgL_newzd2matchzd2_7185;
																																																			{	/* Read/reader.scm 441 */
																																																				obj_t
																																																					BgL_tmpz00_23013;
																																																				BgL_tmpz00_23013
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_7180);
																																																				RGC_STOP_MATCH
																																																					(BgL_tmpz00_23013,
																																																					BgL_forwardz00_7182);
																																																			}
																																																			BgL_newzd2matchzd2_7185
																																																				=
																																																				13L;
																																																			if ((BgL_forwardz00_7182 == BgL_bufposz00_7183))
																																																				{	/* Read/reader.scm 441 */
																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_7180)))
																																																						{	/* Read/reader.scm 441 */
																																																							long
																																																								BgL_arg4557z00_7188;
																																																							long
																																																								BgL_arg4558z00_7189;
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_23021;
																																																								BgL_tmpz00_23021
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_7180);
																																																								BgL_arg4557z00_7188
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_tmpz00_23021);
																																																							}
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_23024;
																																																								BgL_tmpz00_23024
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_7180);
																																																								BgL_arg4558z00_7189
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_tmpz00_23024);
																																																							}
																																																							{
																																																								long
																																																									BgL_bufposz00_23028;
																																																								long
																																																									BgL_forwardz00_23027;
																																																								BgL_forwardz00_23027
																																																									=
																																																									BgL_arg4557z00_7188;
																																																								BgL_bufposz00_23028
																																																									=
																																																									BgL_arg4558z00_7189;
																																																								BgL_bufposz00_7183
																																																									=
																																																									BgL_bufposz00_23028;
																																																								BgL_forwardz00_7182
																																																									=
																																																									BgL_forwardz00_23027;
																																																								goto
																																																									BgL_zc3z04anonymousza34553ze3z87_7184;
																																																							}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_matchz00_9716
																																																								=
																																																								BgL_newzd2matchzd2_7185;
																																																						}
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					int
																																																						BgL_curz00_7190;
																																																					{	/* Read/reader.scm 441 */
																																																						obj_t
																																																							BgL_tmpz00_23029;
																																																						BgL_tmpz00_23029
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_7180);
																																																						BgL_curz00_7190
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_tmpz00_23029,
																																																							BgL_forwardz00_7182);
																																																					}
																																																					{	/* Read/reader.scm 441 */

																																																						if (((long) (BgL_curz00_7190) == 58L))
																																																							{
																																																								long
																																																									BgL_bufposz00_23039;
																																																								long
																																																									BgL_forwardz00_23037;
																																																								long
																																																									BgL_lastzd2matchzd2_23036;
																																																								obj_t
																																																									BgL_iportz00_23035;
																																																								BgL_iportz00_23035
																																																									=
																																																									BgL_iportz00_7180;
																																																								BgL_lastzd2matchzd2_23036
																																																									=
																																																									BgL_newzd2matchzd2_7185;
																																																								BgL_forwardz00_23037
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_7182);
																																																								BgL_bufposz00_23039
																																																									=
																																																									BgL_bufposz00_7183;
																																																								BgL_bufposz00_7594
																																																									=
																																																									BgL_bufposz00_23039;
																																																								BgL_forwardz00_7593
																																																									=
																																																									BgL_forwardz00_23037;
																																																								BgL_lastzd2matchzd2_7592
																																																									=
																																																									BgL_lastzd2matchzd2_23036;
																																																								BgL_iportz00_7591
																																																									=
																																																									BgL_iportz00_23035;
																																																								goto
																																																									BgL_zc3z04anonymousza34764ze3z87_7595;
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test7944z00_23040;
																																																								if (((long) (BgL_curz00_7190) >= 48L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7944z00_23040
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_7190)
																																																											<
																																																											58L);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7944z00_23040
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test7944z00_23040)
																																																									{
																																																										long
																																																											BgL_forwardz00_23047;
																																																										long
																																																											BgL_lastzd2matchzd2_23046;
																																																										BgL_lastzd2matchzd2_23046
																																																											=
																																																											BgL_newzd2matchzd2_7185;
																																																										BgL_forwardz00_23047
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_7182);
																																																										BgL_forwardz00_7182
																																																											=
																																																											BgL_forwardz00_23047;
																																																										BgL_lastzd2matchzd2_7181
																																																											=
																																																											BgL_lastzd2matchzd2_23046;
																																																										goto
																																																											BgL_zc3z04anonymousza34553ze3z87_7184;
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test7946z00_23049;
																																																										if (((long) (BgL_curz00_7190) == 39L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7946z00_23049
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_7190) == 44L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7946z00_23049
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7946z00_23049
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_7190)
																																																															==
																																																															96L);
																																																											}}
																																																										if (BgL_test7946z00_23049)
																																																											{
																																																												long
																																																													BgL_bufposz00_23062;
																																																												long
																																																													BgL_forwardz00_23060;
																																																												long
																																																													BgL_lastzd2matchzd2_23059;
																																																												obj_t
																																																													BgL_iportz00_23058;
																																																												BgL_iportz00_23058
																																																													=
																																																													BgL_iportz00_7180;
																																																												BgL_lastzd2matchzd2_23059
																																																													=
																																																													BgL_newzd2matchzd2_7185;
																																																												BgL_forwardz00_23060
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_7182);
																																																												BgL_bufposz00_23062
																																																													=
																																																													BgL_bufposz00_7183;
																																																												BgL_bufposz00_7366
																																																													=
																																																													BgL_bufposz00_23062;
																																																												BgL_forwardz00_7365
																																																													=
																																																													BgL_forwardz00_23060;
																																																												BgL_lastzd2matchzd2_7364
																																																													=
																																																													BgL_lastzd2matchzd2_23059;
																																																												BgL_iportz00_7363
																																																													=
																																																													BgL_iportz00_23058;
																																																												goto
																																																													BgL_zc3z04anonymousza34647ze3z87_7367;
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test7949z00_23063;
																																																												if (((long) (BgL_curz00_7190) < 33L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7949z00_23063
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														bool_t
																																																															BgL_test7951z00_23067;
																																																														if (((long) (BgL_curz00_7190) == 35L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7951z00_23067
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7951z00_23067
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_7190)
																																																																	==
																																																																	34L);
																																																															}
																																																														if (BgL_test7951z00_23067)
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7949z00_23063
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																bool_t
																																																																	BgL_test7953z00_23073;
																																																																if (((long) (BgL_curz00_7190) == 41L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7953z00_23073
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_7190) == 40L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7953z00_23073
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7953z00_23073
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_7190)
																																																																					==
																																																																					39L);
																																																																	}}
																																																																if (BgL_test7953z00_23073)
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7949z00_23063
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_7190) == 44L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7949z00_23063
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				bool_t
																																																																					BgL_test7957z00_23085;
																																																																				if (((long) (BgL_curz00_7190) >= 48L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7957z00_23085
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_7190)
																																																																							<
																																																																							60L);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7957z00_23085
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							0);
																																																																					}
																																																																				if (BgL_test7957z00_23085)
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7949z00_23063
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						if (((long) (BgL_curz00_7190) == 91L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7949z00_23063
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								if (((long) (BgL_curz00_7190) == 93L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7949z00_23063
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										if (((long) (BgL_curz00_7190) == 96L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7949z00_23063
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												bool_t
																																																																													BgL_test7962z00_23100;
																																																																												if (((long) (BgL_curz00_7190) == 125L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7962z00_23100
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														if (((long) (BgL_curz00_7190) == 124L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7962z00_23100
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7962z00_23100
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_7190)
																																																																																	==
																																																																																	123L);
																																																																													}}
																																																																												if (BgL_test7962z00_23100)
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7949z00_23063
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7949z00_23063
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_7190)
																																																																															==
																																																																															127L);
																																																													}}}}}}}}}
																																																												if (BgL_test7949z00_23063)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_matchz00_9716
																																																															=
																																																															BgL_newzd2matchzd2_7185;
																																																													}
																																																												else
																																																													{
																																																														long
																																																															BgL_bufposz00_23115;
																																																														long
																																																															BgL_forwardz00_23113;
																																																														long
																																																															BgL_lastzd2matchzd2_23112;
																																																														obj_t
																																																															BgL_iportz00_23111;
																																																														BgL_iportz00_23111
																																																															=
																																																															BgL_iportz00_7180;
																																																														BgL_lastzd2matchzd2_23112
																																																															=
																																																															BgL_newzd2matchzd2_7185;
																																																														BgL_forwardz00_23113
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_7182);
																																																														BgL_bufposz00_23115
																																																															=
																																																															BgL_bufposz00_7183;
																																																														BgL_bufposz00_9543
																																																															=
																																																															BgL_bufposz00_23115;
																																																														BgL_forwardz00_9542
																																																															=
																																																															BgL_forwardz00_23113;
																																																														BgL_lastzd2matchzd2_9541
																																																															=
																																																															BgL_lastzd2matchzd2_23112;
																																																														BgL_iportz00_9540
																																																															=
																																																															BgL_iportz00_23111;
																																																														goto
																																																															BgL_zc3z04anonymousza35755ze3z87_9544;
																																																													}
																																																											}
																																																									}
																																																							}
																																																					}
																																																				}
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test7965z00_23117;
																																																		if (((long) (BgL_curz00_4266) == 43L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7965z00_23117
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test7965z00_23117
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_4266)
																																																					==
																																																					45L);
																																																			}
																																																		if (BgL_test7965z00_23117)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_iportz00_4327
																																																					=
																																																					BgL_iportz00_4256;
																																																				BgL_lastzd2matchzd2_4328
																																																					=
																																																					BgL_newzd2matchzd2_4261;
																																																				BgL_forwardz00_4329
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_4258);
																																																				BgL_bufposz00_4330
																																																					=
																																																					BgL_bufposz00_4259;
																																																			BgL_zc3z04anonymousza32987ze3z87_4331:
																																																				{	/* Read/reader.scm 441 */
																																																					long
																																																						BgL_newzd2matchzd2_4332;
																																																					{	/* Read/reader.scm 441 */
																																																						obj_t
																																																							BgL_tmpz00_23123;
																																																						BgL_tmpz00_23123
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_4327);
																																																						RGC_STOP_MATCH
																																																							(BgL_tmpz00_23123,
																																																							BgL_forwardz00_4329);
																																																					}
																																																					BgL_newzd2matchzd2_4332
																																																						=
																																																						22L;
																																																					if ((BgL_forwardz00_4329 == BgL_bufposz00_4330))
																																																						{	/* Read/reader.scm 441 */
																																																							if (rgc_fill_buffer(((obj_t) BgL_iportz00_4327)))
																																																								{	/* Read/reader.scm 441 */
																																																									long
																																																										BgL_arg2991z00_4335;
																																																									long
																																																										BgL_arg2992z00_4336;
																																																									{	/* Read/reader.scm 441 */
																																																										obj_t
																																																											BgL_tmpz00_23131;
																																																										BgL_tmpz00_23131
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_4327);
																																																										BgL_arg2991z00_4335
																																																											=
																																																											RGC_BUFFER_FORWARD
																																																											(BgL_tmpz00_23131);
																																																									}
																																																									{	/* Read/reader.scm 441 */
																																																										obj_t
																																																											BgL_tmpz00_23134;
																																																										BgL_tmpz00_23134
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_4327);
																																																										BgL_arg2992z00_4336
																																																											=
																																																											RGC_BUFFER_BUFPOS
																																																											(BgL_tmpz00_23134);
																																																									}
																																																									{
																																																										long
																																																											BgL_bufposz00_23138;
																																																										long
																																																											BgL_forwardz00_23137;
																																																										BgL_forwardz00_23137
																																																											=
																																																											BgL_arg2991z00_4335;
																																																										BgL_bufposz00_23138
																																																											=
																																																											BgL_arg2992z00_4336;
																																																										BgL_bufposz00_4330
																																																											=
																																																											BgL_bufposz00_23138;
																																																										BgL_forwardz00_4329
																																																											=
																																																											BgL_forwardz00_23137;
																																																										goto
																																																											BgL_zc3z04anonymousza32987ze3z87_4331;
																																																									}
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_matchz00_9716
																																																										=
																																																										BgL_newzd2matchzd2_4332;
																																																								}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							int
																																																								BgL_curz00_4337;
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_23139;
																																																								BgL_tmpz00_23139
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_4327);
																																																								BgL_curz00_4337
																																																									=
																																																									RGC_BUFFER_GET_CHAR
																																																									(BgL_tmpz00_23139,
																																																									BgL_forwardz00_4329);
																																																							}
																																																							{	/* Read/reader.scm 441 */

																																																								if (((long) (BgL_curz00_4337) == 58L))
																																																									{
																																																										long
																																																											BgL_bufposz00_23149;
																																																										long
																																																											BgL_forwardz00_23147;
																																																										long
																																																											BgL_lastzd2matchzd2_23146;
																																																										obj_t
																																																											BgL_iportz00_23145;
																																																										BgL_iportz00_23145
																																																											=
																																																											BgL_iportz00_4327;
																																																										BgL_lastzd2matchzd2_23146
																																																											=
																																																											BgL_newzd2matchzd2_4332;
																																																										BgL_forwardz00_23147
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_4329);
																																																										BgL_bufposz00_23149
																																																											=
																																																											BgL_bufposz00_4330;
																																																										BgL_bufposz00_7594
																																																											=
																																																											BgL_bufposz00_23149;
																																																										BgL_forwardz00_7593
																																																											=
																																																											BgL_forwardz00_23147;
																																																										BgL_lastzd2matchzd2_7592
																																																											=
																																																											BgL_lastzd2matchzd2_23146;
																																																										BgL_iportz00_7591
																																																											=
																																																											BgL_iportz00_23145;
																																																										goto
																																																											BgL_zc3z04anonymousza34764ze3z87_7595;
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test7970z00_23150;
																																																										if (((long) (BgL_curz00_4337) >= 48L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7970z00_23150
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_4337)
																																																													<
																																																													58L);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7970z00_23150
																																																													=
																																																													(
																																																													(bool_t)
																																																													0);
																																																											}
																																																										if (BgL_test7970z00_23150)
																																																											{
																																																												long
																																																													BgL_bufposz00_23160;
																																																												long
																																																													BgL_forwardz00_23158;
																																																												long
																																																													BgL_lastzd2matchzd2_23157;
																																																												obj_t
																																																													BgL_iportz00_23156;
																																																												BgL_iportz00_23156
																																																													=
																																																													BgL_iportz00_4327;
																																																												BgL_lastzd2matchzd2_23157
																																																													=
																																																													BgL_newzd2matchzd2_4332;
																																																												BgL_forwardz00_23158
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_4329);
																																																												BgL_bufposz00_23160
																																																													=
																																																													BgL_bufposz00_4330;
																																																												BgL_bufposz00_7183
																																																													=
																																																													BgL_bufposz00_23160;
																																																												BgL_forwardz00_7182
																																																													=
																																																													BgL_forwardz00_23158;
																																																												BgL_lastzd2matchzd2_7181
																																																													=
																																																													BgL_lastzd2matchzd2_23157;
																																																												BgL_iportz00_7180
																																																													=
																																																													BgL_iportz00_23156;
																																																												goto
																																																													BgL_zc3z04anonymousza34553ze3z87_7184;
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test7972z00_23161;
																																																												if (((long) (BgL_curz00_4337) == 39L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7972z00_23161
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_4337) == 44L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7972z00_23161
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7972z00_23161
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4337)
																																																																	==
																																																																	96L);
																																																													}}
																																																												if (BgL_test7972z00_23161)
																																																													{
																																																														long
																																																															BgL_bufposz00_23174;
																																																														long
																																																															BgL_forwardz00_23172;
																																																														long
																																																															BgL_lastzd2matchzd2_23171;
																																																														obj_t
																																																															BgL_iportz00_23170;
																																																														BgL_iportz00_23170
																																																															=
																																																															BgL_iportz00_4327;
																																																														BgL_lastzd2matchzd2_23171
																																																															=
																																																															BgL_newzd2matchzd2_4332;
																																																														BgL_forwardz00_23172
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_4329);
																																																														BgL_bufposz00_23174
																																																															=
																																																															BgL_bufposz00_4330;
																																																														BgL_bufposz00_7366
																																																															=
																																																															BgL_bufposz00_23174;
																																																														BgL_forwardz00_7365
																																																															=
																																																															BgL_forwardz00_23172;
																																																														BgL_lastzd2matchzd2_7364
																																																															=
																																																															BgL_lastzd2matchzd2_23171;
																																																														BgL_iportz00_7363
																																																															=
																																																															BgL_iportz00_23170;
																																																														goto
																																																															BgL_zc3z04anonymousza34647ze3z87_7367;
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														bool_t
																																																															BgL_test7975z00_23175;
																																																														if (((long) (BgL_curz00_4337) < 33L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7975z00_23175
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																bool_t
																																																																	BgL_test7977z00_23179;
																																																																if (((long) (BgL_curz00_4337) == 35L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7977z00_23179
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7977z00_23179
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_4337)
																																																																			==
																																																																			34L);
																																																																	}
																																																																if (BgL_test7977z00_23179)
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7975z00_23175
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		bool_t
																																																																			BgL_test7979z00_23185;
																																																																		if (((long) (BgL_curz00_4337) == 41L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7979z00_23185
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_4337) == 40L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7979z00_23185
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7979z00_23185
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_4337)
																																																																							==
																																																																							39L);
																																																																			}}
																																																																		if (BgL_test7979z00_23185)
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7975z00_23175
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_4337) == 44L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7975z00_23175
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						bool_t
																																																																							BgL_test7983z00_23197;
																																																																						if (((long) (BgL_curz00_4337) >= 48L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7983z00_23197
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_4337)
																																																																									<
																																																																									60L);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7983z00_23197
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									0);
																																																																							}
																																																																						if (BgL_test7983z00_23197)
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7975z00_23175
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								if (((long) (BgL_curz00_4337) == 91L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test7975z00_23175
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										if (((long) (BgL_curz00_4337) == 93L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test7975z00_23175
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												if (((long) (BgL_curz00_4337) == 96L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test7975z00_23175
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														bool_t
																																																																															BgL_test7988z00_23212;
																																																																														if (((long) (BgL_curz00_4337) == 125L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7988z00_23212
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																if (((long) (BgL_curz00_4337) == 124L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7988z00_23212
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test7988z00_23212
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_4337)
																																																																																			==
																																																																																			123L);
																																																																															}}
																																																																														if (BgL_test7988z00_23212)
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7975z00_23175
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test7975z00_23175
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_4337)
																																																																																	==
																																																																																	127L);
																																																															}}}}}}}}}
																																																														if (BgL_test7975z00_23175)
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_matchz00_9716
																																																																	=
																																																																	BgL_newzd2matchzd2_4332;
																																																															}
																																																														else
																																																															{
																																																																long
																																																																	BgL_bufposz00_23227;
																																																																long
																																																																	BgL_forwardz00_23225;
																																																																long
																																																																	BgL_lastzd2matchzd2_23224;
																																																																obj_t
																																																																	BgL_iportz00_23223;
																																																																BgL_iportz00_23223
																																																																	=
																																																																	BgL_iportz00_4327;
																																																																BgL_lastzd2matchzd2_23224
																																																																	=
																																																																	BgL_newzd2matchzd2_4332;
																																																																BgL_forwardz00_23225
																																																																	=
																																																																	(1L
																																																																	+
																																																																	BgL_forwardz00_4329);
																																																																BgL_bufposz00_23227
																																																																	=
																																																																	BgL_bufposz00_4330;
																																																																BgL_bufposz00_9543
																																																																	=
																																																																	BgL_bufposz00_23227;
																																																																BgL_forwardz00_9542
																																																																	=
																																																																	BgL_forwardz00_23225;
																																																																BgL_lastzd2matchzd2_9541
																																																																	=
																																																																	BgL_lastzd2matchzd2_23224;
																																																																BgL_iportz00_9540
																																																																	=
																																																																	BgL_iportz00_23223;
																																																																goto
																																																																	BgL_zc3z04anonymousza35755ze3z87_9544;
																																																															}
																																																													}
																																																											}
																																																									}
																																																							}
																																																						}
																																																				}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test7991z00_23229;
																																																				if (((long) (BgL_curz00_4266) == 39L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test7991z00_23229
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_4266) == 44L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7991z00_23229
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7991z00_23229
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_4266)
																																																									==
																																																									96L);
																																																					}}
																																																				if (BgL_test7991z00_23229)
																																																					{
																																																						long
																																																							BgL_bufposz00_23242;
																																																						long
																																																							BgL_forwardz00_23240;
																																																						long
																																																							BgL_lastzd2matchzd2_23239;
																																																						obj_t
																																																							BgL_iportz00_23238;
																																																						BgL_iportz00_23238
																																																							=
																																																							BgL_iportz00_4256;
																																																						BgL_lastzd2matchzd2_23239
																																																							=
																																																							BgL_newzd2matchzd2_4261;
																																																						BgL_forwardz00_23240
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_4258);
																																																						BgL_bufposz00_23242
																																																							=
																																																							BgL_bufposz00_4259;
																																																						BgL_bufposz00_7366
																																																							=
																																																							BgL_bufposz00_23242;
																																																						BgL_forwardz00_7365
																																																							=
																																																							BgL_forwardz00_23240;
																																																						BgL_lastzd2matchzd2_7364
																																																							=
																																																							BgL_lastzd2matchzd2_23239;
																																																						BgL_iportz00_7363
																																																							=
																																																							BgL_iportz00_23238;
																																																						goto
																																																							BgL_zc3z04anonymousza34647ze3z87_7367;
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test7994z00_23243;
																																																						if (((long) (BgL_curz00_4266) < 33L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test7994z00_23243
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test7996z00_23247;
																																																								if (((long) (BgL_curz00_4266) == 35L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7996z00_23247
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7996z00_23247
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_4266)
																																																											==
																																																											34L);
																																																									}
																																																								if (BgL_test7996z00_23247)
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test7994z00_23243
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test7998z00_23253;
																																																										if (((long) (BgL_curz00_4266) == 41L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7998z00_23253
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_4266) == 40L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7998z00_23253
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7998z00_23253
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_4266)
																																																															==
																																																															39L);
																																																											}}
																																																										if (BgL_test7998z00_23253)
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test7994z00_23243
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test8001z00_23262;
																																																												if (((long) (BgL_curz00_4266) == 45L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8001z00_23262
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_4266) == 44L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8001z00_23262
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8001z00_23262
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4266)
																																																																	==
																																																																	43L);
																																																													}}
																																																												if (BgL_test8001z00_23262)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test7994z00_23243
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														bool_t
																																																															BgL_test8004z00_23271;
																																																														if (((long) (BgL_curz00_4266) >= 48L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8004z00_23271
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4266)
																																																																	<
																																																																	60L);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8004z00_23271
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	0);
																																																															}
																																																														if (BgL_test8004z00_23271)
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test7994z00_23243
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_4266) == 91L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test7994z00_23243
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_4266) == 93L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test7994z00_23243
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_4266) == 96L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test7994z00_23243
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						bool_t
																																																																							BgL_test8009z00_23286;
																																																																						if (((long) (BgL_curz00_4266) == 125L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test8009z00_23286
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								if (((long) (BgL_curz00_4266) == 124L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test8009z00_23286
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test8009z00_23286
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_4266)
																																																																											==
																																																																											123L);
																																																																							}}
																																																																						if (BgL_test8009z00_23286)
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7994z00_23243
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test7994z00_23243
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_4266)
																																																																									==
																																																																									127L);
																																																							}}}}}}}}}
																																																						if (BgL_test7994z00_23243)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_matchz00_9716
																																																									=
																																																									BgL_newzd2matchzd2_4261;
																																																							}
																																																						else
																																																							{
																																																								long
																																																									BgL_bufposz00_23301;
																																																								long
																																																									BgL_forwardz00_23299;
																																																								long
																																																									BgL_lastzd2matchzd2_23298;
																																																								obj_t
																																																									BgL_iportz00_23297;
																																																								BgL_iportz00_23297
																																																									=
																																																									BgL_iportz00_4256;
																																																								BgL_lastzd2matchzd2_23298
																																																									=
																																																									BgL_newzd2matchzd2_4261;
																																																								BgL_forwardz00_23299
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_4258);
																																																								BgL_bufposz00_23301
																																																									=
																																																									BgL_bufposz00_4259;
																																																								BgL_bufposz00_9543
																																																									=
																																																									BgL_bufposz00_23301;
																																																								BgL_forwardz00_9542
																																																									=
																																																									BgL_forwardz00_23299;
																																																								BgL_lastzd2matchzd2_9541
																																																									=
																																																									BgL_lastzd2matchzd2_23298;
																																																								BgL_iportz00_9540
																																																									=
																																																									BgL_iportz00_23297;
																																																								goto
																																																									BgL_zc3z04anonymousza35755ze3z87_9544;
																																																							}
																																																					}
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_7052) == 58L))
																																											{
																																												long
																																													BgL_bufposz00_23310;
																																												long
																																													BgL_forwardz00_23308;
																																												long
																																													BgL_lastzd2matchzd2_23307;
																																												obj_t
																																													BgL_iportz00_23306;
																																												BgL_iportz00_23306
																																													=
																																													BgL_iportz00_7042;
																																												BgL_lastzd2matchzd2_23307
																																													=
																																													BgL_newzd2matchzd2_7047;
																																												BgL_forwardz00_23308
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_7044);
																																												BgL_bufposz00_23310
																																													=
																																													BgL_bufposz00_7045;
																																												BgL_bufposz00_7594
																																													=
																																													BgL_bufposz00_23310;
																																												BgL_forwardz00_7593
																																													=
																																													BgL_forwardz00_23308;
																																												BgL_lastzd2matchzd2_7592
																																													=
																																													BgL_lastzd2matchzd2_23307;
																																												BgL_iportz00_7591
																																													=
																																													BgL_iportz00_23306;
																																												goto
																																													BgL_zc3z04anonymousza34764ze3z87_7595;
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test8013z00_23311;
																																												if (((long) (BgL_curz00_7052) >= 48L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8013z00_23311
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_7052)
																																															<
																																															58L);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8013z00_23311
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test8013z00_23311)
																																													{	/* Read/reader.scm 441 */
																																														BgL_iportz00_6453
																																															=
																																															BgL_iportz00_7042;
																																														BgL_lastzd2matchzd2_6454
																																															=
																																															BgL_newzd2matchzd2_7047;
																																														BgL_forwardz00_6455
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_7044);
																																														BgL_bufposz00_6456
																																															=
																																															BgL_bufposz00_7045;
																																													BgL_zc3z04anonymousza34173ze3z87_6457:
																																														{	/* Read/reader.scm 441 */
																																															long
																																																BgL_newzd2matchzd2_6458;
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_23317;
																																																BgL_tmpz00_23317
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_6453);
																																																RGC_STOP_MATCH
																																																	(BgL_tmpz00_23317,
																																																	BgL_forwardz00_6455);
																																															}
																																															BgL_newzd2matchzd2_6458
																																																=
																																																13L;
																																															if ((BgL_forwardz00_6455 == BgL_bufposz00_6456))
																																																{	/* Read/reader.scm 441 */
																																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_6453)))
																																																		{	/* Read/reader.scm 441 */
																																																			long
																																																				BgL_arg4176z00_6461;
																																																			long
																																																				BgL_arg4177z00_6462;
																																																			{	/* Read/reader.scm 441 */
																																																				obj_t
																																																					BgL_tmpz00_23325;
																																																				BgL_tmpz00_23325
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_6453);
																																																				BgL_arg4176z00_6461
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_tmpz00_23325);
																																																			}
																																																			{	/* Read/reader.scm 441 */
																																																				obj_t
																																																					BgL_tmpz00_23328;
																																																				BgL_tmpz00_23328
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_6453);
																																																				BgL_arg4177z00_6462
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_tmpz00_23328);
																																																			}
																																																			{
																																																				long
																																																					BgL_bufposz00_23332;
																																																				long
																																																					BgL_forwardz00_23331;
																																																				BgL_forwardz00_23331
																																																					=
																																																					BgL_arg4176z00_6461;
																																																				BgL_bufposz00_23332
																																																					=
																																																					BgL_arg4177z00_6462;
																																																				BgL_bufposz00_6456
																																																					=
																																																					BgL_bufposz00_23332;
																																																				BgL_forwardz00_6455
																																																					=
																																																					BgL_forwardz00_23331;
																																																				goto
																																																					BgL_zc3z04anonymousza34173ze3z87_6457;
																																																			}
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_matchz00_9716
																																																				=
																																																				BgL_newzd2matchzd2_6458;
																																																		}
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	int
																																																		BgL_curz00_6463;
																																																	{	/* Read/reader.scm 441 */
																																																		obj_t
																																																			BgL_tmpz00_23333;
																																																		BgL_tmpz00_23333
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_6453);
																																																		BgL_curz00_6463
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_tmpz00_23333,
																																																			BgL_forwardz00_6455);
																																																	}
																																																	{	/* Read/reader.scm 441 */

																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8017z00_23336;
																																																			if (((long) (BgL_curz00_6463) == 69L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8017z00_23336
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8017z00_23336
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_6463)
																																																						==
																																																						101L);
																																																				}
																																																			if (BgL_test8017z00_23336)
																																																				{
																																																					long
																																																						BgL_bufposz00_23346;
																																																					long
																																																						BgL_forwardz00_23344;
																																																					long
																																																						BgL_lastzd2matchzd2_23343;
																																																					obj_t
																																																						BgL_iportz00_23342;
																																																					BgL_iportz00_23342
																																																						=
																																																						BgL_iportz00_6453;
																																																					BgL_lastzd2matchzd2_23343
																																																						=
																																																						BgL_newzd2matchzd2_6458;
																																																					BgL_forwardz00_23344
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6455);
																																																					BgL_bufposz00_23346
																																																						=
																																																						BgL_bufposz00_6456;
																																																					BgL_bufposz00_4259
																																																						=
																																																						BgL_bufposz00_23346;
																																																					BgL_forwardz00_4258
																																																						=
																																																						BgL_forwardz00_23344;
																																																					BgL_lastzd2matchzd2_4257
																																																						=
																																																						BgL_lastzd2matchzd2_23343;
																																																					BgL_iportz00_4256
																																																						=
																																																						BgL_iportz00_23342;
																																																					goto
																																																						BgL_zc3z04anonymousza32951ze3z87_4260;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_6463) == 58L))
																																																						{
																																																							long
																																																								BgL_bufposz00_23354;
																																																							long
																																																								BgL_forwardz00_23352;
																																																							long
																																																								BgL_lastzd2matchzd2_23351;
																																																							obj_t
																																																								BgL_iportz00_23350;
																																																							BgL_iportz00_23350
																																																								=
																																																								BgL_iportz00_6453;
																																																							BgL_lastzd2matchzd2_23351
																																																								=
																																																								BgL_newzd2matchzd2_6458;
																																																							BgL_forwardz00_23352
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6455);
																																																							BgL_bufposz00_23354
																																																								=
																																																								BgL_bufposz00_6456;
																																																							BgL_bufposz00_7594
																																																								=
																																																								BgL_bufposz00_23354;
																																																							BgL_forwardz00_7593
																																																								=
																																																								BgL_forwardz00_23352;
																																																							BgL_lastzd2matchzd2_7592
																																																								=
																																																								BgL_lastzd2matchzd2_23351;
																																																							BgL_iportz00_7591
																																																								=
																																																								BgL_iportz00_23350;
																																																							goto
																																																								BgL_zc3z04anonymousza34764ze3z87_7595;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8020z00_23355;
																																																							if (((long) (BgL_curz00_6463) >= 48L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8020z00_23355
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6463)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8020z00_23355
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test8020z00_23355)
																																																								{
																																																									long
																																																										BgL_forwardz00_23362;
																																																									long
																																																										BgL_lastzd2matchzd2_23361;
																																																									BgL_lastzd2matchzd2_23361
																																																										=
																																																										BgL_newzd2matchzd2_6458;
																																																									BgL_forwardz00_23362
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_6455);
																																																									BgL_forwardz00_6455
																																																										=
																																																										BgL_forwardz00_23362;
																																																									BgL_lastzd2matchzd2_6454
																																																										=
																																																										BgL_lastzd2matchzd2_23361;
																																																									goto
																																																										BgL_zc3z04anonymousza34173ze3z87_6457;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8022z00_23364;
																																																									if (((long) (BgL_curz00_6463) == 39L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8022z00_23364
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_6463) == 44L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8022z00_23364
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8022z00_23364
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6463)
																																																														==
																																																														96L);
																																																										}}
																																																									if (BgL_test8022z00_23364)
																																																										{
																																																											long
																																																												BgL_bufposz00_23377;
																																																											long
																																																												BgL_forwardz00_23375;
																																																											long
																																																												BgL_lastzd2matchzd2_23374;
																																																											obj_t
																																																												BgL_iportz00_23373;
																																																											BgL_iportz00_23373
																																																												=
																																																												BgL_iportz00_6453;
																																																											BgL_lastzd2matchzd2_23374
																																																												=
																																																												BgL_newzd2matchzd2_6458;
																																																											BgL_forwardz00_23375
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_6455);
																																																											BgL_bufposz00_23377
																																																												=
																																																												BgL_bufposz00_6456;
																																																											BgL_bufposz00_7366
																																																												=
																																																												BgL_bufposz00_23377;
																																																											BgL_forwardz00_7365
																																																												=
																																																												BgL_forwardz00_23375;
																																																											BgL_lastzd2matchzd2_7364
																																																												=
																																																												BgL_lastzd2matchzd2_23374;
																																																											BgL_iportz00_7363
																																																												=
																																																												BgL_iportz00_23373;
																																																											goto
																																																												BgL_zc3z04anonymousza34647ze3z87_7367;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8025z00_23378;
																																																											if (((long) (BgL_curz00_6463) < 33L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8025z00_23378
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8027z00_23382;
																																																													if (((long) (BgL_curz00_6463) == 35L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8027z00_23382
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8027z00_23382
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6463)
																																																																==
																																																																34L);
																																																														}
																																																													if (BgL_test8027z00_23382)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8025z00_23378
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test8029z00_23388;
																																																															if (((long) (BgL_curz00_6463) == 41L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8029z00_23388
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6463) == 40L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8029z00_23388
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8029z00_23388
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_6463)
																																																																				==
																																																																				39L);
																																																																}}
																																																															if (BgL_test8029z00_23388)
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8025z00_23378
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6463) == 44L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8025z00_23378
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			bool_t
																																																																				BgL_test8033z00_23400;
																																																																			if (((long) (BgL_curz00_6463) >= 48L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8033z00_23400
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_6463)
																																																																						<
																																																																						60L);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8033z00_23400
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						0);
																																																																				}
																																																																			if (BgL_test8033z00_23400)
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8025z00_23378
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					if (((long) (BgL_curz00_6463) == 69L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8025z00_23378
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_6463) == 91L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8025z00_23378
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_6463) == 93L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8025z00_23378
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											if (((long) (BgL_curz00_6463) == 96L))
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test8025z00_23378
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													if (((long) (BgL_curz00_6463) == 101L))
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8025z00_23378
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															bool_t
																																																																																BgL_test8040z00_23421;
																																																																															if (((long) (BgL_curz00_6463) == 125L))
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8040z00_23421
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	if (((long) (BgL_curz00_6463) == 124L))
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test8040z00_23421
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test8040z00_23421
																																																																																				=
																																																																																				(
																																																																																				(long)
																																																																																				(BgL_curz00_6463)
																																																																																				==
																																																																																				123L);
																																																																																}}
																																																																															if (BgL_test8040z00_23421)
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8025z00_23378
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8025z00_23378
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_6463)
																																																																																		==
																																																																																		127L);
																																																												}}}}}}}}}}}
																																																											if (BgL_test8025z00_23378)
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_matchz00_9716
																																																														=
																																																														BgL_newzd2matchzd2_6458;
																																																												}
																																																											else
																																																												{
																																																													long
																																																														BgL_bufposz00_23436;
																																																													long
																																																														BgL_forwardz00_23434;
																																																													long
																																																														BgL_lastzd2matchzd2_23433;
																																																													obj_t
																																																														BgL_iportz00_23432;
																																																													BgL_iportz00_23432
																																																														=
																																																														BgL_iportz00_6453;
																																																													BgL_lastzd2matchzd2_23433
																																																														=
																																																														BgL_newzd2matchzd2_6458;
																																																													BgL_forwardz00_23434
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_6455);
																																																													BgL_bufposz00_23436
																																																														=
																																																														BgL_bufposz00_6456;
																																																													BgL_bufposz00_9543
																																																														=
																																																														BgL_bufposz00_23436;
																																																													BgL_forwardz00_9542
																																																														=
																																																														BgL_forwardz00_23434;
																																																													BgL_lastzd2matchzd2_9541
																																																														=
																																																														BgL_lastzd2matchzd2_23433;
																																																													BgL_iportz00_9540
																																																														=
																																																														BgL_iportz00_23432;
																																																													goto
																																																														BgL_zc3z04anonymousza35755ze3z87_9544;
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																	}
																																																}
																																														}
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test8043z00_23438;
																																														if (((long) (BgL_curz00_7052) == 39L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8043z00_23438
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_7052) == 44L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8043z00_23438
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8043z00_23438
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_7052)
																																																			==
																																																			96L);
																																															}}
																																														if (BgL_test8043z00_23438)
																																															{
																																																long
																																																	BgL_bufposz00_23451;
																																																long
																																																	BgL_forwardz00_23449;
																																																long
																																																	BgL_lastzd2matchzd2_23448;
																																																obj_t
																																																	BgL_iportz00_23447;
																																																BgL_iportz00_23447
																																																	=
																																																	BgL_iportz00_7042;
																																																BgL_lastzd2matchzd2_23448
																																																	=
																																																	BgL_newzd2matchzd2_7047;
																																																BgL_forwardz00_23449
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_7044);
																																																BgL_bufposz00_23451
																																																	=
																																																	BgL_bufposz00_7045;
																																																BgL_bufposz00_7366
																																																	=
																																																	BgL_bufposz00_23451;
																																																BgL_forwardz00_7365
																																																	=
																																																	BgL_forwardz00_23449;
																																																BgL_lastzd2matchzd2_7364
																																																	=
																																																	BgL_lastzd2matchzd2_23448;
																																																BgL_iportz00_7363
																																																	=
																																																	BgL_iportz00_23447;
																																																goto
																																																	BgL_zc3z04anonymousza34647ze3z87_7367;
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test8046z00_23452;
																																																if (((long) (BgL_curz00_7052) < 33L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8046z00_23452
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test8048z00_23456;
																																																		if (((long) (BgL_curz00_7052) == 35L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8048z00_23456
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8048z00_23456
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_7052)
																																																					==
																																																					34L);
																																																			}
																																																		if (BgL_test8048z00_23456)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8046z00_23452
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test8050z00_23462;
																																																				if (((long) (BgL_curz00_7052) == 41L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8050z00_23462
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_7052) == 40L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8050z00_23462
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8050z00_23462
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7052)
																																																									==
																																																									39L);
																																																					}}
																																																				if (BgL_test8050z00_23462)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8046z00_23452
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_7052) == 44L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8046z00_23452
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test8054z00_23474;
																																																								if (((long) (BgL_curz00_7052) >= 48L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8054z00_23474
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_7052)
																																																											<
																																																											60L);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8054z00_23474
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test8054z00_23474)
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8046z00_23452
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_7052) == 69L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8046z00_23452
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_7052) == 91L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8046z00_23452
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_7052) == 93L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8046z00_23452
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_7052) == 96L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test8046z00_23452
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_7052) == 101L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test8046z00_23452
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				bool_t
																																																																					BgL_test8061z00_23495;
																																																																				if (((long) (BgL_curz00_7052) == 125L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test8061z00_23495
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						if (((long) (BgL_curz00_7052) == 124L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test8061z00_23495
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test8061z00_23495
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_7052)
																																																																									==
																																																																									123L);
																																																																					}}
																																																																				if (BgL_test8061z00_23495)
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test8046z00_23452
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test8046z00_23452
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_7052)
																																																																							==
																																																																							127L);
																																																	}}}}}}}}}}}
																																																if (BgL_test8046z00_23452)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_matchz00_9716
																																																			=
																																																			BgL_newzd2matchzd2_7047;
																																																	}
																																																else
																																																	{
																																																		long
																																																			BgL_bufposz00_23510;
																																																		long
																																																			BgL_forwardz00_23508;
																																																		long
																																																			BgL_lastzd2matchzd2_23507;
																																																		obj_t
																																																			BgL_iportz00_23506;
																																																		BgL_iportz00_23506
																																																			=
																																																			BgL_iportz00_7042;
																																																		BgL_lastzd2matchzd2_23507
																																																			=
																																																			BgL_newzd2matchzd2_7047;
																																																		BgL_forwardz00_23508
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_7044);
																																																		BgL_bufposz00_23510
																																																			=
																																																			BgL_bufposz00_7045;
																																																		BgL_bufposz00_9543
																																																			=
																																																			BgL_bufposz00_23510;
																																																		BgL_forwardz00_9542
																																																			=
																																																			BgL_forwardz00_23508;
																																																		BgL_lastzd2matchzd2_9541
																																																			=
																																																			BgL_lastzd2matchzd2_23507;
																																																		BgL_iportz00_9540
																																																			=
																																																			BgL_iportz00_23506;
																																																		goto
																																																			BgL_zc3z04anonymousza35755ze3z87_9544;
																																																	}
																																															}
																																													}
																																											}
																																									}
																																							}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8064z00_23512;
																																			if ((
																																					(long)
																																					(BgL_curz00_9085)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8064z00_23512
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8066z00_23516;
																																					if ((
																																							(long)
																																							(BgL_curz00_9085)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8066z00_23516
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8066z00_23516
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9085)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8066z00_23516)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8064z00_23512
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8068z00_23522;
																																							if (((long) (BgL_curz00_9085) == 41L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8068z00_23522
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_9085) == 40L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8068z00_23522
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8068z00_23522
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9085)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test8068z00_23522)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8064z00_23512
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_9085) == 44L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8064z00_23512
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_9085) == 46L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8064z00_23512
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8073z00_23537;
																																													if (((long) (BgL_curz00_9085) >= 48L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8073z00_23537
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_9085)
																																																<
																																																60L);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8073z00_23537
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8073z00_23537)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8064z00_23512
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9085) == 69L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8064z00_23512
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_9085) == 91L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8064z00_23512
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_9085) == 93L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8064z00_23512
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_9085) == 96L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8064z00_23512
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_9085) == 101L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8064z00_23512
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8080z00_23558;
																																																									if (((long) (BgL_curz00_9085) == 125L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8080z00_23558
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_9085) == 124L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8080z00_23558
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8080z00_23558
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9085)
																																																														==
																																																														123L);
																																																										}}
																																																									if (BgL_test8080z00_23558)
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8064z00_23512
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8064z00_23512
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9085)
																																																												==
																																																												127L);
																																				}}}}}}}}}}}}
																																			if (BgL_test8064z00_23512)
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_9080;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_23573;
																																					long
																																						BgL_forwardz00_23571;
																																					long
																																						BgL_lastzd2matchzd2_23570;
																																					obj_t
																																						BgL_iportz00_23569;
																																					BgL_iportz00_23569
																																						=
																																						BgL_iportz00_9075;
																																					BgL_lastzd2matchzd2_23570
																																						=
																																						BgL_newzd2matchzd2_9080;
																																					BgL_forwardz00_23571
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_9077);
																																					BgL_bufposz00_23573
																																						=
																																						BgL_bufposz00_9078;
																																					BgL_bufposz00_4964
																																						=
																																						BgL_bufposz00_23573;
																																					BgL_forwardz00_4963
																																						=
																																						BgL_forwardz00_23571;
																																					BgL_lastzd2matchzd2_4962
																																						=
																																						BgL_lastzd2matchzd2_23570;
																																					BgL_iportz00_4961
																																						=
																																						BgL_iportz00_23569;
																																					goto
																																						BgL_zc3z04anonymousza33413ze3z87_4965;
																																				}
																																		}
																																}
																														}
																												}
																										}
																									}
																								}
																						}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						if (
																							((long) (BgL_curz00_5172) == 46L))
																							{
																								long BgL_bufposz00_23582;
																								long BgL_forwardz00_23580;
																								long BgL_lastzd2matchzd2_23579;
																								obj_t BgL_iportz00_23578;

																								BgL_iportz00_23578 =
																									BgL_iportz00_5162;
																								BgL_lastzd2matchzd2_23579 =
																									BgL_newzd2matchzd2_5167;
																								BgL_forwardz00_23580 =
																									(1L + BgL_forwardz00_5164);
																								BgL_bufposz00_23582 =
																									BgL_bufposz00_5165;
																								BgL_bufposz00_7045 =
																									BgL_bufposz00_23582;
																								BgL_forwardz00_7044 =
																									BgL_forwardz00_23580;
																								BgL_lastzd2matchzd2_7043 =
																									BgL_lastzd2matchzd2_23579;
																								BgL_iportz00_7042 =
																									BgL_iportz00_23578;
																								goto
																									BgL_zc3z04anonymousza34481ze3z87_7046;
																							}
																						else
																							{	/* Read/reader.scm 441 */
																								bool_t BgL_test8084z00_23583;

																								if (
																									((long) (BgL_curz00_5172) <
																										33L))
																									{	/* Read/reader.scm 441 */
																										BgL_test8084z00_23583 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										bool_t
																											BgL_test8086z00_23587;
																										if (((long)
																												(BgL_curz00_5172) ==
																												35L))
																											{	/* Read/reader.scm 441 */
																												BgL_test8086z00_23587 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												BgL_test8086z00_23587 =
																													(
																													(long)
																													(BgL_curz00_5172) ==
																													34L);
																											}
																										if (BgL_test8086z00_23587)
																											{	/* Read/reader.scm 441 */
																												BgL_test8084z00_23583 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												bool_t
																													BgL_test8088z00_23593;
																												if (((long)
																														(BgL_curz00_5172) ==
																														41L))
																													{	/* Read/reader.scm 441 */
																														BgL_test8088z00_23593
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														if (
																															((long)
																																(BgL_curz00_5172)
																																== 40L))
																															{	/* Read/reader.scm 441 */
																																BgL_test8088z00_23593
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																BgL_test8088z00_23593
																																	=
																																	((long)
																																	(BgL_curz00_5172)
																																	== 39L);
																													}}
																												if (BgL_test8088z00_23593)
																													{	/* Read/reader.scm 441 */
																														BgL_test8084z00_23583
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														if (
																															((long)
																																(BgL_curz00_5172)
																																== 44L))
																															{	/* Read/reader.scm 441 */
																																BgL_test8084z00_23583
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																if (
																																	((long)
																																		(BgL_curz00_5172)
																																		== 46L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test8084z00_23583
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test8093z00_23608;
																																		if (((long)
																																				(BgL_curz00_5172)
																																				>= 48L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8093z00_23608
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_5172)
																																					<
																																					60L);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8093z00_23608
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test8093z00_23608)
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8084z00_23583
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				if (
																																					((long) (BgL_curz00_5172) == 69L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8084z00_23583
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						if (
																																							((long) (BgL_curz00_5172) == 91L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test8084z00_23583
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_5172) == 93L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test8084z00_23583
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_5172) == 96L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test8084z00_23583
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												if (((long) (BgL_curz00_5172) == 101L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8084z00_23583
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test8100z00_23629;
																																														if (((long) (BgL_curz00_5172) == 125L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8100z00_23629
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_5172) == 124L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8100z00_23629
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8100z00_23629
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_5172)
																																																			==
																																																			123L);
																																															}}
																																														if (BgL_test8100z00_23629)
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8084z00_23583
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8084z00_23583
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_5172)
																																																	==
																																																	127L);
																									}}}}}}}}}}}}
																								if (BgL_test8084z00_23583)
																									{	/* Read/reader.scm 441 */
																										BgL_matchz00_9716 =
																											BgL_newzd2matchzd2_5167;
																									}
																								else
																									{
																										long BgL_bufposz00_23644;
																										long BgL_forwardz00_23642;
																										long
																											BgL_lastzd2matchzd2_23641;
																										obj_t BgL_iportz00_23640;

																										BgL_iportz00_23640 =
																											BgL_iportz00_5162;
																										BgL_lastzd2matchzd2_23641 =
																											BgL_newzd2matchzd2_5167;
																										BgL_forwardz00_23642 =
																											(1L +
																											BgL_forwardz00_5164);
																										BgL_bufposz00_23644 =
																											BgL_bufposz00_5165;
																										BgL_bufposz00_4964 =
																											BgL_bufposz00_23644;
																										BgL_forwardz00_4963 =
																											BgL_forwardz00_23642;
																										BgL_lastzd2matchzd2_4962 =
																											BgL_lastzd2matchzd2_23641;
																										BgL_iportz00_4961 =
																											BgL_iportz00_23640;
																										goto
																											BgL_zc3z04anonymousza33413ze3z87_4965;
																									}
																							}
																					}
																			}
																	}
															}
														}
													}
											}
											break;
										case 46L:

											BgL_iportz00_7928 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_7929 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_7930 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_7931 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza34931ze3z87_7932:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_7933;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_23646;

													BgL_tmpz00_23646 = ((obj_t) BgL_iportz00_7928);
													RGC_STOP_MATCH(BgL_tmpz00_23646, BgL_forwardz00_7930);
												}
												BgL_newzd2matchzd2_7933 = 17L;
												if ((BgL_forwardz00_7930 == BgL_bufposz00_7931))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_7928)))
															{	/* Read/reader.scm 441 */
																long BgL_arg4934z00_7936;
																long BgL_arg4935z00_7937;

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

																	BgL_tmpz00_23654 =
																		((obj_t) BgL_iportz00_7928);
																	BgL_arg4934z00_7936 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_23654);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_23657;

																	BgL_tmpz00_23657 =
																		((obj_t) BgL_iportz00_7928);
																	BgL_arg4935z00_7937 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_23657);
																}
																{
																	long BgL_bufposz00_23661;
																	long BgL_forwardz00_23660;

																	BgL_forwardz00_23660 = BgL_arg4934z00_7936;
																	BgL_bufposz00_23661 = BgL_arg4935z00_7937;
																	BgL_bufposz00_7931 = BgL_bufposz00_23661;
																	BgL_forwardz00_7930 = BgL_forwardz00_23660;
																	goto BgL_zc3z04anonymousza34931ze3z87_7932;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_7933;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_7938;

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

															BgL_tmpz00_23662 = ((obj_t) BgL_iportz00_7928);
															BgL_curz00_7938 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_23662,
																BgL_forwardz00_7930);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_7938) == 58L))
																{
																	long BgL_bufposz00_23672;
																	long BgL_forwardz00_23670;
																	long BgL_lastzd2matchzd2_23669;
																	obj_t BgL_iportz00_23668;

																	BgL_iportz00_23668 = BgL_iportz00_7928;
																	BgL_lastzd2matchzd2_23669 =
																		BgL_newzd2matchzd2_7933;
																	BgL_forwardz00_23670 =
																		(1L + BgL_forwardz00_7930);
																	BgL_bufposz00_23672 = BgL_bufposz00_7931;
																	BgL_bufposz00_7594 = BgL_bufposz00_23672;
																	BgL_forwardz00_7593 = BgL_forwardz00_23670;
																	BgL_lastzd2matchzd2_7592 =
																		BgL_lastzd2matchzd2_23669;
																	BgL_iportz00_7591 = BgL_iportz00_23668;
																	goto BgL_zc3z04anonymousza34764ze3z87_7595;
																}
															else
																{	/* Read/reader.scm 441 */
																	bool_t BgL_test8106z00_23673;

																	if (((long) (BgL_curz00_7938) >= 48L))
																		{	/* Read/reader.scm 441 */
																			BgL_test8106z00_23673 =
																				((long) (BgL_curz00_7938) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 441 */
																			BgL_test8106z00_23673 = ((bool_t) 0);
																		}
																	if (BgL_test8106z00_23673)
																		{	/* Read/reader.scm 441 */
																			BgL_iportz00_7111 = BgL_iportz00_7928;
																			BgL_lastzd2matchzd2_7112 =
																				BgL_newzd2matchzd2_7933;
																			BgL_forwardz00_7113 =
																				(1L + BgL_forwardz00_7930);
																			BgL_bufposz00_7114 = BgL_bufposz00_7931;
																		BgL_zc3z04anonymousza34517ze3z87_7115:
																			{	/* Read/reader.scm 441 */
																				long BgL_newzd2matchzd2_7116;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_23679;

																					BgL_tmpz00_23679 =
																						((obj_t) BgL_iportz00_7111);
																					RGC_STOP_MATCH(BgL_tmpz00_23679,
																						BgL_forwardz00_7113);
																				}
																				BgL_newzd2matchzd2_7116 = 13L;
																				if (
																					(BgL_forwardz00_7113 ==
																						BgL_bufposz00_7114))
																					{	/* Read/reader.scm 441 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_7111)))
																							{	/* Read/reader.scm 441 */
																								long BgL_arg4520z00_7119;
																								long BgL_arg4521z00_7120;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_23687;

																									BgL_tmpz00_23687 =
																										((obj_t) BgL_iportz00_7111);
																									BgL_arg4520z00_7119 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_23687);
																								}
																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_23690;

																									BgL_tmpz00_23690 =
																										((obj_t) BgL_iportz00_7111);
																									BgL_arg4521z00_7120 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_23690);
																								}
																								{
																									long BgL_bufposz00_23694;
																									long BgL_forwardz00_23693;

																									BgL_forwardz00_23693 =
																										BgL_arg4520z00_7119;
																									BgL_bufposz00_23694 =
																										BgL_arg4521z00_7120;
																									BgL_bufposz00_7114 =
																										BgL_bufposz00_23694;
																									BgL_forwardz00_7113 =
																										BgL_forwardz00_23693;
																									goto
																										BgL_zc3z04anonymousza34517ze3z87_7115;
																								}
																							}
																						else
																							{	/* Read/reader.scm 441 */
																								BgL_matchz00_9716 =
																									BgL_newzd2matchzd2_7116;
																							}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						int BgL_curz00_7121;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_23695;

																							BgL_tmpz00_23695 =
																								((obj_t) BgL_iportz00_7111);
																							BgL_curz00_7121 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_23695,
																								BgL_forwardz00_7113);
																						}
																						{	/* Read/reader.scm 441 */

																							{	/* Read/reader.scm 441 */
																								bool_t BgL_test8110z00_23698;

																								if (
																									((long) (BgL_curz00_7121) ==
																										69L))
																									{	/* Read/reader.scm 441 */
																										BgL_test8110z00_23698 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										BgL_test8110z00_23698 =
																											(
																											(long) (BgL_curz00_7121)
																											== 101L);
																									}
																								if (BgL_test8110z00_23698)
																									{
																										long BgL_bufposz00_23708;
																										long BgL_forwardz00_23706;
																										long
																											BgL_lastzd2matchzd2_23705;
																										obj_t BgL_iportz00_23704;

																										BgL_iportz00_23704 =
																											BgL_iportz00_7111;
																										BgL_lastzd2matchzd2_23705 =
																											BgL_newzd2matchzd2_7116;
																										BgL_forwardz00_23706 =
																											(1L +
																											BgL_forwardz00_7113);
																										BgL_bufposz00_23708 =
																											BgL_bufposz00_7114;
																										BgL_bufposz00_4259 =
																											BgL_bufposz00_23708;
																										BgL_forwardz00_4258 =
																											BgL_forwardz00_23706;
																										BgL_lastzd2matchzd2_4257 =
																											BgL_lastzd2matchzd2_23705;
																										BgL_iportz00_4256 =
																											BgL_iportz00_23704;
																										goto
																											BgL_zc3z04anonymousza32951ze3z87_4260;
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										if (
																											((long) (BgL_curz00_7121)
																												== 58L))
																											{
																												long
																													BgL_bufposz00_23716;
																												long
																													BgL_forwardz00_23714;
																												long
																													BgL_lastzd2matchzd2_23713;
																												obj_t
																													BgL_iportz00_23712;
																												BgL_iportz00_23712 =
																													BgL_iportz00_7111;
																												BgL_lastzd2matchzd2_23713
																													=
																													BgL_newzd2matchzd2_7116;
																												BgL_forwardz00_23714 =
																													(1L +
																													BgL_forwardz00_7113);
																												BgL_bufposz00_23716 =
																													BgL_bufposz00_7114;
																												BgL_bufposz00_7594 =
																													BgL_bufposz00_23716;
																												BgL_forwardz00_7593 =
																													BgL_forwardz00_23714;
																												BgL_lastzd2matchzd2_7592
																													=
																													BgL_lastzd2matchzd2_23713;
																												BgL_iportz00_7591 =
																													BgL_iportz00_23712;
																												goto
																													BgL_zc3z04anonymousza34764ze3z87_7595;
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												bool_t
																													BgL_test8113z00_23717;
																												if (((long)
																														(BgL_curz00_7121) >=
																														48L))
																													{	/* Read/reader.scm 441 */
																														BgL_test8113z00_23717
																															=
																															((long)
																															(BgL_curz00_7121)
																															< 58L);
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														BgL_test8113z00_23717
																															= ((bool_t) 0);
																													}
																												if (BgL_test8113z00_23717)
																													{
																														long
																															BgL_forwardz00_23724;
																														long
																															BgL_lastzd2matchzd2_23723;
																														BgL_lastzd2matchzd2_23723
																															=
																															BgL_newzd2matchzd2_7116;
																														BgL_forwardz00_23724
																															=
																															(1L +
																															BgL_forwardz00_7113);
																														BgL_forwardz00_7113
																															=
																															BgL_forwardz00_23724;
																														BgL_lastzd2matchzd2_7112
																															=
																															BgL_lastzd2matchzd2_23723;
																														goto
																															BgL_zc3z04anonymousza34517ze3z87_7115;
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														bool_t
																															BgL_test8115z00_23726;
																														if (((long)
																																(BgL_curz00_7121)
																																== 39L))
																															{	/* Read/reader.scm 441 */
																																BgL_test8115z00_23726
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																if (
																																	((long)
																																		(BgL_curz00_7121)
																																		== 44L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test8115z00_23726
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		BgL_test8115z00_23726
																																			=
																																			((long)
																																			(BgL_curz00_7121)
																																			== 96L);
																															}}
																														if (BgL_test8115z00_23726)
																															{
																																long
																																	BgL_bufposz00_23739;
																																long
																																	BgL_forwardz00_23737;
																																long
																																	BgL_lastzd2matchzd2_23736;
																																obj_t
																																	BgL_iportz00_23735;
																																BgL_iportz00_23735
																																	=
																																	BgL_iportz00_7111;
																																BgL_lastzd2matchzd2_23736
																																	=
																																	BgL_newzd2matchzd2_7116;
																																BgL_forwardz00_23737
																																	=
																																	(1L +
																																	BgL_forwardz00_7113);
																																BgL_bufposz00_23739
																																	=
																																	BgL_bufposz00_7114;
																																BgL_bufposz00_7366
																																	=
																																	BgL_bufposz00_23739;
																																BgL_forwardz00_7365
																																	=
																																	BgL_forwardz00_23737;
																																BgL_lastzd2matchzd2_7364
																																	=
																																	BgL_lastzd2matchzd2_23736;
																																BgL_iportz00_7363
																																	=
																																	BgL_iportz00_23735;
																																goto
																																	BgL_zc3z04anonymousza34647ze3z87_7367;
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																bool_t
																																	BgL_test8118z00_23740;
																																if (((long)
																																		(BgL_curz00_7121)
																																		< 33L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test8118z00_23740
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test8120z00_23744;
																																		if (((long)
																																				(BgL_curz00_7121)
																																				== 35L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8120z00_23744
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8120z00_23744
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_7121)
																																					==
																																					34L);
																																			}
																																		if (BgL_test8120z00_23744)
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8118z00_23740
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test8122z00_23750;
																																				if ((
																																						(long)
																																						(BgL_curz00_7121)
																																						==
																																						41L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8122z00_23750
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						if (
																																							((long) (BgL_curz00_7121) == 40L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test8122z00_23750
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								BgL_test8122z00_23750
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_7121)
																																									==
																																									39L);
																																					}}
																																				if (BgL_test8122z00_23750)
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8118z00_23740
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						if (
																																							((long) (BgL_curz00_7121) == 44L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test8118z00_23740
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test8126z00_23762;
																																								if (((long) (BgL_curz00_7121) >= 48L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test8126z00_23762
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_7121)
																																											<
																																											60L);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test8126z00_23762
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test8126z00_23762)
																																									{	/* Read/reader.scm 441 */
																																										BgL_test8118z00_23740
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_7121) == 69L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test8118z00_23740
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												if (((long) (BgL_curz00_7121) == 91L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8118z00_23740
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_7121) == 93L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8118z00_23740
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_7121) == 96L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8118z00_23740
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_7121) == 101L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8118z00_23740
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test8133z00_23783;
																																																				if (((long) (BgL_curz00_7121) == 125L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8133z00_23783
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_7121) == 124L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8133z00_23783
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8133z00_23783
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7121)
																																																									==
																																																									123L);
																																																					}}
																																																				if (BgL_test8133z00_23783)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8118z00_23740
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8118z00_23740
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_7121)
																																																							==
																																																							127L);
																																	}}}}}}}}}}}
																																if (BgL_test8118z00_23740)
																																	{	/* Read/reader.scm 441 */
																																		BgL_matchz00_9716
																																			=
																																			BgL_newzd2matchzd2_7116;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_23798;
																																		long
																																			BgL_forwardz00_23796;
																																		long
																																			BgL_lastzd2matchzd2_23795;
																																		obj_t
																																			BgL_iportz00_23794;
																																		BgL_iportz00_23794
																																			=
																																			BgL_iportz00_7111;
																																		BgL_lastzd2matchzd2_23795
																																			=
																																			BgL_newzd2matchzd2_7116;
																																		BgL_forwardz00_23796
																																			=
																																			(1L +
																																			BgL_forwardz00_7113);
																																		BgL_bufposz00_23798
																																			=
																																			BgL_bufposz00_7114;
																																		BgL_bufposz00_9543
																																			=
																																			BgL_bufposz00_23798;
																																		BgL_forwardz00_9542
																																			=
																																			BgL_forwardz00_23796;
																																		BgL_lastzd2matchzd2_9541
																																			=
																																			BgL_lastzd2matchzd2_23795;
																																		BgL_iportz00_9540
																																			=
																																			BgL_iportz00_23794;
																																		goto
																																			BgL_zc3z04anonymousza35755ze3z87_9544;
																																	}
																															}
																													}
																											}
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 441 */
																			bool_t BgL_test8136z00_23800;

																			if (((long) (BgL_curz00_7938) == 39L))
																				{	/* Read/reader.scm 441 */
																					BgL_test8136z00_23800 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					if (((long) (BgL_curz00_7938) == 44L))
																						{	/* Read/reader.scm 441 */
																							BgL_test8136z00_23800 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_test8136z00_23800 =
																								(
																								(long) (BgL_curz00_7938) ==
																								96L);
																				}}
																			if (BgL_test8136z00_23800)
																				{
																					long BgL_bufposz00_23813;
																					long BgL_forwardz00_23811;
																					long BgL_lastzd2matchzd2_23810;
																					obj_t BgL_iportz00_23809;

																					BgL_iportz00_23809 =
																						BgL_iportz00_7928;
																					BgL_lastzd2matchzd2_23810 =
																						BgL_newzd2matchzd2_7933;
																					BgL_forwardz00_23811 =
																						(1L + BgL_forwardz00_7930);
																					BgL_bufposz00_23813 =
																						BgL_bufposz00_7931;
																					BgL_bufposz00_7366 =
																						BgL_bufposz00_23813;
																					BgL_forwardz00_7365 =
																						BgL_forwardz00_23811;
																					BgL_lastzd2matchzd2_7364 =
																						BgL_lastzd2matchzd2_23810;
																					BgL_iportz00_7363 =
																						BgL_iportz00_23809;
																					goto
																						BgL_zc3z04anonymousza34647ze3z87_7367;
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					bool_t BgL_test8139z00_23814;

																					if (((long) (BgL_curz00_7938) < 33L))
																						{	/* Read/reader.scm 441 */
																							BgL_test8139z00_23814 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							bool_t BgL_test8141z00_23818;

																							if (
																								((long) (BgL_curz00_7938) ==
																									35L))
																								{	/* Read/reader.scm 441 */
																									BgL_test8141z00_23818 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									BgL_test8141z00_23818 =
																										(
																										(long) (BgL_curz00_7938) ==
																										34L);
																								}
																							if (BgL_test8141z00_23818)
																								{	/* Read/reader.scm 441 */
																									BgL_test8139z00_23814 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									bool_t BgL_test8143z00_23824;

																									if (
																										((long) (BgL_curz00_7938) ==
																											41L))
																										{	/* Read/reader.scm 441 */
																											BgL_test8143z00_23824 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_7938) ==
																													40L))
																												{	/* Read/reader.scm 441 */
																													BgL_test8143z00_23824
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_test8143z00_23824
																														=
																														((long)
																														(BgL_curz00_7938) ==
																														39L);
																										}}
																									if (BgL_test8143z00_23824)
																										{	/* Read/reader.scm 441 */
																											BgL_test8139z00_23814 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_7938) ==
																													44L))
																												{	/* Read/reader.scm 441 */
																													BgL_test8139z00_23814
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test8147z00_23836;
																													if (((long)
																															(BgL_curz00_7938)
																															>= 48L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8147z00_23836
																																=
																																((long)
																																(BgL_curz00_7938)
																																< 60L);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_test8147z00_23836
																																= ((bool_t) 0);
																														}
																													if (BgL_test8147z00_23836)
																														{	/* Read/reader.scm 441 */
																															BgL_test8139z00_23814
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_7938)
																																	== 91L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8139z00_23814
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_7938)
																																			== 93L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8139z00_23814
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_7938)
																																					==
																																					96L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8139z00_23814
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8152z00_23851;
																																					if ((
																																							(long)
																																							(BgL_curz00_7938)
																																							==
																																							125L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8152z00_23851
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_7938) == 124L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8152z00_23851
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8152z00_23851
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_7938)
																																										==
																																										123L);
																																						}}
																																					if (BgL_test8152z00_23851)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8139z00_23814
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8139z00_23814
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_7938)
																																								==
																																								127L);
																						}}}}}}}}}
																					if (BgL_test8139z00_23814)
																						{	/* Read/reader.scm 441 */
																							BgL_matchz00_9716 =
																								BgL_newzd2matchzd2_7933;
																						}
																					else
																						{
																							long BgL_bufposz00_23866;
																							long BgL_forwardz00_23864;
																							long BgL_lastzd2matchzd2_23863;
																							obj_t BgL_iportz00_23862;

																							BgL_iportz00_23862 =
																								BgL_iportz00_7928;
																							BgL_lastzd2matchzd2_23863 =
																								BgL_newzd2matchzd2_7933;
																							BgL_forwardz00_23864 =
																								(1L + BgL_forwardz00_7930);
																							BgL_bufposz00_23866 =
																								BgL_bufposz00_7931;
																							BgL_bufposz00_9543 =
																								BgL_bufposz00_23866;
																							BgL_forwardz00_9542 =
																								BgL_forwardz00_23864;
																							BgL_lastzd2matchzd2_9541 =
																								BgL_lastzd2matchzd2_23863;
																							BgL_iportz00_9540 =
																								BgL_iportz00_23862;
																							goto
																								BgL_zc3z04anonymousza35755ze3z87_9544;
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 45L:

											BgL_iportz00_4635 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_4636 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_4637 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_4638 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza33197ze3z87_4639:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_4640;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_23868;

													BgL_tmpz00_23868 = ((obj_t) BgL_iportz00_4635);
													RGC_STOP_MATCH(BgL_tmpz00_23868, BgL_forwardz00_4637);
												}
												BgL_newzd2matchzd2_4640 = 22L;
												if ((BgL_forwardz00_4637 == BgL_bufposz00_4638))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_4635)))
															{	/* Read/reader.scm 441 */
																long BgL_arg3200z00_4643;
																long BgL_arg3201z00_4644;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_23876;

																	BgL_tmpz00_23876 =
																		((obj_t) BgL_iportz00_4635);
																	BgL_arg3200z00_4643 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_23876);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_23879;

																	BgL_tmpz00_23879 =
																		((obj_t) BgL_iportz00_4635);
																	BgL_arg3201z00_4644 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_23879);
																}
																{
																	long BgL_bufposz00_23883;
																	long BgL_forwardz00_23882;

																	BgL_forwardz00_23882 = BgL_arg3200z00_4643;
																	BgL_bufposz00_23883 = BgL_arg3201z00_4644;
																	BgL_bufposz00_4638 = BgL_bufposz00_23883;
																	BgL_forwardz00_4637 = BgL_forwardz00_23882;
																	goto BgL_zc3z04anonymousza33197ze3z87_4639;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_4640;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_4645;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_23884;

															BgL_tmpz00_23884 = ((obj_t) BgL_iportz00_4635);
															BgL_curz00_4645 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_23884,
																BgL_forwardz00_4637);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_4645) == 105L))
																{	/* Read/reader.scm 441 */
																	BgL_iportz00_9223 = BgL_iportz00_4635;
																	BgL_lastzd2matchzd2_9224 =
																		BgL_newzd2matchzd2_4640;
																	BgL_forwardz00_9225 =
																		(1L + BgL_forwardz00_4637);
																	BgL_bufposz00_9226 = BgL_bufposz00_4638;
																BgL_zc3z04anonymousza35589ze3z87_9227:
																	{	/* Read/reader.scm 441 */
																		long BgL_newzd2matchzd2_9228;

																		{	/* Read/reader.scm 441 */
																			obj_t BgL_tmpz00_23890;

																			BgL_tmpz00_23890 =
																				((obj_t) BgL_iportz00_9223);
																			RGC_STOP_MATCH(BgL_tmpz00_23890,
																				BgL_forwardz00_9225);
																		}
																		BgL_newzd2matchzd2_9228 = 22L;
																		if (
																			(BgL_forwardz00_9225 ==
																				BgL_bufposz00_9226))
																			{	/* Read/reader.scm 441 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_9223)))
																					{	/* Read/reader.scm 441 */
																						long BgL_arg5592z00_9231;
																						long BgL_arg5593z00_9232;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_23898;

																							BgL_tmpz00_23898 =
																								((obj_t) BgL_iportz00_9223);
																							BgL_arg5592z00_9231 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_23898);
																						}
																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_23901;

																							BgL_tmpz00_23901 =
																								((obj_t) BgL_iportz00_9223);
																							BgL_arg5593z00_9232 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_23901);
																						}
																						{
																							long BgL_bufposz00_23905;
																							long BgL_forwardz00_23904;

																							BgL_forwardz00_23904 =
																								BgL_arg5592z00_9231;
																							BgL_bufposz00_23905 =
																								BgL_arg5593z00_9232;
																							BgL_bufposz00_9226 =
																								BgL_bufposz00_23905;
																							BgL_forwardz00_9225 =
																								BgL_forwardz00_23904;
																							goto
																								BgL_zc3z04anonymousza35589ze3z87_9227;
																						}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						BgL_matchz00_9716 =
																							BgL_newzd2matchzd2_9228;
																					}
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				int BgL_curz00_9233;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_23906;

																					BgL_tmpz00_23906 =
																						((obj_t) BgL_iportz00_9223);
																					BgL_curz00_9233 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_23906,
																						BgL_forwardz00_9225);
																				}
																				{	/* Read/reader.scm 441 */

																					if (
																						((long) (BgL_curz00_9233) == 110L))
																						{	/* Read/reader.scm 441 */
																							BgL_iportz00_4564 =
																								BgL_iportz00_9223;
																							BgL_lastzd2matchzd2_4565 =
																								BgL_newzd2matchzd2_9228;
																							BgL_forwardz00_4566 =
																								(1L + BgL_forwardz00_9225);
																							BgL_bufposz00_4567 =
																								BgL_bufposz00_9226;
																						BgL_zc3z04anonymousza33159ze3z87_4568:
																							{	/* Read/reader.scm 441 */
																								long BgL_newzd2matchzd2_4569;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_23912;

																									BgL_tmpz00_23912 =
																										((obj_t) BgL_iportz00_4564);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_23912,
																										BgL_forwardz00_4566);
																								}
																								BgL_newzd2matchzd2_4569 = 22L;
																								if (
																									(BgL_forwardz00_4566 ==
																										BgL_bufposz00_4567))
																									{	/* Read/reader.scm 441 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_4564)))
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_arg3162z00_4572;
																												long
																													BgL_arg3163z00_4573;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_23920;
																													BgL_tmpz00_23920 =
																														((obj_t)
																														BgL_iportz00_4564);
																													BgL_arg3162z00_4572 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_23920);
																												}
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_23923;
																													BgL_tmpz00_23923 =
																														((obj_t)
																														BgL_iportz00_4564);
																													BgL_arg3163z00_4573 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_23923);
																												}
																												{
																													long
																														BgL_bufposz00_23927;
																													long
																														BgL_forwardz00_23926;
																													BgL_forwardz00_23926 =
																														BgL_arg3162z00_4572;
																													BgL_bufposz00_23927 =
																														BgL_arg3163z00_4573;
																													BgL_bufposz00_4567 =
																														BgL_bufposz00_23927;
																													BgL_forwardz00_4566 =
																														BgL_forwardz00_23926;
																													goto
																														BgL_zc3z04anonymousza33159ze3z87_4568;
																												}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												BgL_matchz00_9716 =
																													BgL_newzd2matchzd2_4569;
																											}
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										int BgL_curz00_4574;

																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_23928;

																											BgL_tmpz00_23928 =
																												((obj_t)
																												BgL_iportz00_4564);
																											BgL_curz00_4574 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_23928,
																												BgL_forwardz00_4566);
																										}
																										{	/* Read/reader.scm 441 */

																											if (
																												((long)
																													(BgL_curz00_4574) ==
																													102L))
																												{	/* Read/reader.scm 441 */
																													BgL_iportz00_6882 =
																														BgL_iportz00_4564;
																													BgL_lastzd2matchzd2_6883
																														=
																														BgL_newzd2matchzd2_4569;
																													BgL_forwardz00_6884 =
																														(1L +
																														BgL_forwardz00_4566);
																													BgL_bufposz00_6885 =
																														BgL_bufposz00_4567;
																												BgL_zc3z04anonymousza34403ze3z87_6886:
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_newzd2matchzd2_6887;
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_23934;
																															BgL_tmpz00_23934 =
																																((obj_t)
																																BgL_iportz00_6882);
																															RGC_STOP_MATCH
																																(BgL_tmpz00_23934,
																																BgL_forwardz00_6884);
																														}
																														BgL_newzd2matchzd2_6887
																															= 22L;
																														if (
																															(BgL_forwardz00_6884
																																==
																																BgL_bufposz00_6885))
																															{	/* Read/reader.scm 441 */
																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_6882)))
																																	{	/* Read/reader.scm 441 */
																																		long
																																			BgL_arg4406z00_6890;
																																		long
																																			BgL_arg4407z00_6891;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_23942;
																																			BgL_tmpz00_23942
																																				=
																																				((obj_t)
																																				BgL_iportz00_6882);
																																			BgL_arg4406z00_6890
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_tmpz00_23942);
																																		}
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_23945;
																																			BgL_tmpz00_23945
																																				=
																																				((obj_t)
																																				BgL_iportz00_6882);
																																			BgL_arg4407z00_6891
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_tmpz00_23945);
																																		}
																																		{
																																			long
																																				BgL_bufposz00_23949;
																																			long
																																				BgL_forwardz00_23948;
																																			BgL_forwardz00_23948
																																				=
																																				BgL_arg4406z00_6890;
																																			BgL_bufposz00_23949
																																				=
																																				BgL_arg4407z00_6891;
																																			BgL_bufposz00_6885
																																				=
																																				BgL_bufposz00_23949;
																																			BgL_forwardz00_6884
																																				=
																																				BgL_forwardz00_23948;
																																			goto
																																				BgL_zc3z04anonymousza34403ze3z87_6886;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		BgL_matchz00_9716
																																			=
																																			BgL_newzd2matchzd2_6887;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																int
																																	BgL_curz00_6892;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_23950;
																																	BgL_tmpz00_23950
																																		=
																																		((obj_t)
																																		BgL_iportz00_6882);
																																	BgL_curz00_6892
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_tmpz00_23950,
																																		BgL_forwardz00_6884);
																																}
																																{	/* Read/reader.scm 441 */

																																	if (
																																		((long)
																																			(BgL_curz00_6892)
																																			== 58L))
																																		{
																																			long
																																				BgL_bufposz00_23960;
																																			long
																																				BgL_forwardz00_23958;
																																			long
																																				BgL_lastzd2matchzd2_23957;
																																			obj_t
																																				BgL_iportz00_23956;
																																			BgL_iportz00_23956
																																				=
																																				BgL_iportz00_6882;
																																			BgL_lastzd2matchzd2_23957
																																				=
																																				BgL_newzd2matchzd2_6887;
																																			BgL_forwardz00_23958
																																				=
																																				(1L +
																																				BgL_forwardz00_6884);
																																			BgL_bufposz00_23960
																																				=
																																				BgL_bufposz00_6885;
																																			BgL_bufposz00_6395
																																				=
																																				BgL_bufposz00_23960;
																																			BgL_forwardz00_6394
																																				=
																																				BgL_forwardz00_23958;
																																			BgL_lastzd2matchzd2_6393
																																				=
																																				BgL_lastzd2matchzd2_23957;
																																			BgL_iportz00_6392
																																				=
																																				BgL_iportz00_23956;
																																			goto
																																				BgL_zc3z04anonymousza34142ze3z87_6396;
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_6892)
																																					==
																																					46L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_iportz00_9473
																																						=
																																						BgL_iportz00_6882;
																																					BgL_lastzd2matchzd2_9474
																																						=
																																						BgL_newzd2matchzd2_6887;
																																					BgL_forwardz00_9475
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_6884);
																																					BgL_bufposz00_9476
																																						=
																																						BgL_bufposz00_6885;
																																				BgL_zc3z04anonymousza35719ze3z87_9477:
																																					{	/* Read/reader.scm 441 */
																																						long
																																							BgL_newzd2matchzd2_9478;
																																						{	/* Read/reader.scm 441 */
																																							obj_t
																																								BgL_tmpz00_23964;
																																							BgL_tmpz00_23964
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_9473);
																																							RGC_STOP_MATCH
																																								(BgL_tmpz00_23964,
																																								BgL_forwardz00_9475);
																																						}
																																						BgL_newzd2matchzd2_9478
																																							=
																																							22L;
																																						if (
																																							(BgL_forwardz00_9475
																																								==
																																								BgL_bufposz00_9476))
																																							{	/* Read/reader.scm 441 */
																																								if (rgc_fill_buffer(((obj_t) BgL_iportz00_9473)))
																																									{	/* Read/reader.scm 441 */
																																										long
																																											BgL_arg5722z00_9481;
																																										long
																																											BgL_arg5723z00_9482;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_23972;
																																											BgL_tmpz00_23972
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_9473);
																																											BgL_arg5722z00_9481
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_tmpz00_23972);
																																										}
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_23975;
																																											BgL_tmpz00_23975
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_9473);
																																											BgL_arg5723z00_9482
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_tmpz00_23975);
																																										}
																																										{
																																											long
																																												BgL_bufposz00_23979;
																																											long
																																												BgL_forwardz00_23978;
																																											BgL_forwardz00_23978
																																												=
																																												BgL_arg5722z00_9481;
																																											BgL_bufposz00_23979
																																												=
																																												BgL_arg5723z00_9482;
																																											BgL_bufposz00_9476
																																												=
																																												BgL_bufposz00_23979;
																																											BgL_forwardz00_9475
																																												=
																																												BgL_forwardz00_23978;
																																											goto
																																												BgL_zc3z04anonymousza35719ze3z87_9477;
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_matchz00_9716
																																											=
																																											BgL_newzd2matchzd2_9478;
																																									}
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								int
																																									BgL_curz00_9483;
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_23980;
																																									BgL_tmpz00_23980
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_9473);
																																									BgL_curz00_9483
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_tmpz00_23980,
																																										BgL_forwardz00_9475);
																																								}
																																								{	/* Read/reader.scm 441 */

																																									if (((long) (BgL_curz00_9483) == 58L))
																																										{
																																											long
																																												BgL_bufposz00_23990;
																																											long
																																												BgL_forwardz00_23988;
																																											long
																																												BgL_lastzd2matchzd2_23987;
																																											obj_t
																																												BgL_iportz00_23986;
																																											BgL_iportz00_23986
																																												=
																																												BgL_iportz00_9473;
																																											BgL_lastzd2matchzd2_23987
																																												=
																																												BgL_newzd2matchzd2_9478;
																																											BgL_forwardz00_23988
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_9475);
																																											BgL_bufposz00_23990
																																												=
																																												BgL_bufposz00_9476;
																																											BgL_bufposz00_7305
																																												=
																																												BgL_bufposz00_23990;
																																											BgL_forwardz00_7304
																																												=
																																												BgL_forwardz00_23988;
																																											BgL_lastzd2matchzd2_7303
																																												=
																																												BgL_lastzd2matchzd2_23987;
																																											BgL_iportz00_7302
																																												=
																																												BgL_iportz00_23986;
																																											goto
																																												BgL_zc3z04anonymousza34616ze3z87_7306;
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test8171z00_23991;
																																											if (((long) (BgL_curz00_9483) >= 49L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8171z00_23991
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_9483)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8171z00_23991
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test8171z00_23991)
																																												{
																																													long
																																														BgL_bufposz00_24001;
																																													long
																																														BgL_forwardz00_23999;
																																													long
																																														BgL_lastzd2matchzd2_23998;
																																													obj_t
																																														BgL_iportz00_23997;
																																													BgL_iportz00_23997
																																														=
																																														BgL_iportz00_9473;
																																													BgL_lastzd2matchzd2_23998
																																														=
																																														BgL_newzd2matchzd2_9478;
																																													BgL_forwardz00_23999
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_9475);
																																													BgL_bufposz00_24001
																																														=
																																														BgL_bufposz00_9476;
																																													BgL_bufposz00_3944
																																														=
																																														BgL_bufposz00_24001;
																																													BgL_forwardz00_3943
																																														=
																																														BgL_forwardz00_23999;
																																													BgL_lastzd2matchzd2_3942
																																														=
																																														BgL_lastzd2matchzd2_23998;
																																													BgL_iportz00_3941
																																														=
																																														BgL_iportz00_23997;
																																													goto
																																														BgL_zc3z04anonymousza32753ze3z87_3945;
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_9483) == 48L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_iportz00_6541
																																																=
																																																BgL_iportz00_9473;
																																															BgL_lastzd2matchzd2_6542
																																																=
																																																BgL_newzd2matchzd2_9478;
																																															BgL_forwardz00_6543
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_9475);
																																															BgL_bufposz00_6544
																																																=
																																																BgL_bufposz00_9476;
																																														BgL_zc3z04anonymousza34221ze3z87_6545:
																																															{	/* Read/reader.scm 441 */
																																																long
																																																	BgL_newzd2matchzd2_6546;
																																																{	/* Read/reader.scm 441 */
																																																	obj_t
																																																		BgL_tmpz00_24005;
																																																	BgL_tmpz00_24005
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_6541);
																																																	RGC_STOP_MATCH
																																																		(BgL_tmpz00_24005,
																																																		BgL_forwardz00_6543);
																																																}
																																																BgL_newzd2matchzd2_6546
																																																	=
																																																	16L;
																																																if ((BgL_forwardz00_6543 == BgL_bufposz00_6544))
																																																	{	/* Read/reader.scm 441 */
																																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_6541)))
																																																			{	/* Read/reader.scm 441 */
																																																				long
																																																					BgL_arg4224z00_6549;
																																																				long
																																																					BgL_arg4225z00_6550;
																																																				{	/* Read/reader.scm 441 */
																																																					obj_t
																																																						BgL_tmpz00_24013;
																																																					BgL_tmpz00_24013
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6541);
																																																					BgL_arg4224z00_6549
																																																						=
																																																						RGC_BUFFER_FORWARD
																																																						(BgL_tmpz00_24013);
																																																				}
																																																				{	/* Read/reader.scm 441 */
																																																					obj_t
																																																						BgL_tmpz00_24016;
																																																					BgL_tmpz00_24016
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6541);
																																																					BgL_arg4225z00_6550
																																																						=
																																																						RGC_BUFFER_BUFPOS
																																																						(BgL_tmpz00_24016);
																																																				}
																																																				{
																																																					long
																																																						BgL_bufposz00_24020;
																																																					long
																																																						BgL_forwardz00_24019;
																																																					BgL_forwardz00_24019
																																																						=
																																																						BgL_arg4224z00_6549;
																																																					BgL_bufposz00_24020
																																																						=
																																																						BgL_arg4225z00_6550;
																																																					BgL_bufposz00_6544
																																																						=
																																																						BgL_bufposz00_24020;
																																																					BgL_forwardz00_6543
																																																						=
																																																						BgL_forwardz00_24019;
																																																					goto
																																																						BgL_zc3z04anonymousza34221ze3z87_6545;
																																																				}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_matchz00_9716
																																																					=
																																																					BgL_newzd2matchzd2_6546;
																																																			}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		int
																																																			BgL_curz00_6551;
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_24021;
																																																			BgL_tmpz00_24021
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6541);
																																																			BgL_curz00_6551
																																																				=
																																																				RGC_BUFFER_GET_CHAR
																																																				(BgL_tmpz00_24021,
																																																				BgL_forwardz00_6543);
																																																		}
																																																		{	/* Read/reader.scm 441 */

																																																			if (((long) (BgL_curz00_6551) == 58L))
																																																				{
																																																					long
																																																						BgL_bufposz00_24031;
																																																					long
																																																						BgL_forwardz00_24029;
																																																					long
																																																						BgL_lastzd2matchzd2_24028;
																																																					obj_t
																																																						BgL_iportz00_24027;
																																																					BgL_iportz00_24027
																																																						=
																																																						BgL_iportz00_6541;
																																																					BgL_lastzd2matchzd2_24028
																																																						=
																																																						BgL_newzd2matchzd2_6546;
																																																					BgL_forwardz00_24029
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6543);
																																																					BgL_bufposz00_24031
																																																						=
																																																						BgL_bufposz00_6544;
																																																					BgL_bufposz00_7305
																																																						=
																																																						BgL_bufposz00_24031;
																																																					BgL_forwardz00_7304
																																																						=
																																																						BgL_forwardz00_24029;
																																																					BgL_lastzd2matchzd2_7303
																																																						=
																																																						BgL_lastzd2matchzd2_24028;
																																																					BgL_iportz00_7302
																																																						=
																																																						BgL_iportz00_24027;
																																																					goto
																																																						BgL_zc3z04anonymousza34616ze3z87_7306;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8177z00_24032;
																																																					if (((long) (BgL_curz00_6551) >= 48L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8177z00_24032
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6551)
																																																								<
																																																								58L);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8177z00_24032
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test8177z00_24032)
																																																						{
																																																							long
																																																								BgL_bufposz00_24042;
																																																							long
																																																								BgL_forwardz00_24040;
																																																							long
																																																								BgL_lastzd2matchzd2_24039;
																																																							obj_t
																																																								BgL_iportz00_24038;
																																																							BgL_iportz00_24038
																																																								=
																																																								BgL_iportz00_6541;
																																																							BgL_lastzd2matchzd2_24039
																																																								=
																																																								BgL_newzd2matchzd2_6546;
																																																							BgL_forwardz00_24040
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6543);
																																																							BgL_bufposz00_24042
																																																								=
																																																								BgL_bufposz00_6544;
																																																							BgL_bufposz00_3944
																																																								=
																																																								BgL_bufposz00_24042;
																																																							BgL_forwardz00_3943
																																																								=
																																																								BgL_forwardz00_24040;
																																																							BgL_lastzd2matchzd2_3942
																																																								=
																																																								BgL_lastzd2matchzd2_24039;
																																																							BgL_iportz00_3941
																																																								=
																																																								BgL_iportz00_24038;
																																																							goto
																																																								BgL_zc3z04anonymousza32753ze3z87_3945;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_6551) == 46L))
																																																								{
																																																									long
																																																										BgL_bufposz00_24050;
																																																									long
																																																										BgL_forwardz00_24048;
																																																									long
																																																										BgL_lastzd2matchzd2_24047;
																																																									obj_t
																																																										BgL_iportz00_24046;
																																																									BgL_iportz00_24046
																																																										=
																																																										BgL_iportz00_6541;
																																																									BgL_lastzd2matchzd2_24047
																																																										=
																																																										BgL_newzd2matchzd2_6546;
																																																									BgL_forwardz00_24048
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_6543);
																																																									BgL_bufposz00_24050
																																																										=
																																																										BgL_bufposz00_6544;
																																																									BgL_bufposz00_9543
																																																										=
																																																										BgL_bufposz00_24050;
																																																									BgL_forwardz00_9542
																																																										=
																																																										BgL_forwardz00_24048;
																																																									BgL_lastzd2matchzd2_9541
																																																										=
																																																										BgL_lastzd2matchzd2_24047;
																																																									BgL_iportz00_9540
																																																										=
																																																										BgL_iportz00_24046;
																																																									goto
																																																										BgL_zc3z04anonymousza35755ze3z87_9544;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8180z00_24051;
																																																									if (((long) (BgL_curz00_6551) == 39L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8180z00_24051
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_6551) == 44L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8180z00_24051
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8180z00_24051
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6551)
																																																														==
																																																														96L);
																																																										}}
																																																									if (BgL_test8180z00_24051)
																																																										{
																																																											long
																																																												BgL_bufposz00_24064;
																																																											long
																																																												BgL_forwardz00_24062;
																																																											long
																																																												BgL_lastzd2matchzd2_24061;
																																																											obj_t
																																																												BgL_iportz00_24060;
																																																											BgL_iportz00_24060
																																																												=
																																																												BgL_iportz00_6541;
																																																											BgL_lastzd2matchzd2_24061
																																																												=
																																																												BgL_newzd2matchzd2_6546;
																																																											BgL_forwardz00_24062
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_6543);
																																																											BgL_bufposz00_24064
																																																												=
																																																												BgL_bufposz00_6544;
																																																											BgL_bufposz00_7366
																																																												=
																																																												BgL_bufposz00_24064;
																																																											BgL_forwardz00_7365
																																																												=
																																																												BgL_forwardz00_24062;
																																																											BgL_lastzd2matchzd2_7364
																																																												=
																																																												BgL_lastzd2matchzd2_24061;
																																																											BgL_iportz00_7363
																																																												=
																																																												BgL_iportz00_24060;
																																																											goto
																																																												BgL_zc3z04anonymousza34647ze3z87_7367;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8183z00_24065;
																																																											if (((long) (BgL_curz00_6551) < 33L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8183z00_24065
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8185z00_24069;
																																																													if (((long) (BgL_curz00_6551) == 35L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8185z00_24069
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8185z00_24069
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6551)
																																																																==
																																																																34L);
																																																														}
																																																													if (BgL_test8185z00_24069)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8183z00_24065
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test8187z00_24075;
																																																															if (((long) (BgL_curz00_6551) == 41L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8187z00_24075
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6551) == 40L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8187z00_24075
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8187z00_24075
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_6551)
																																																																				==
																																																																				39L);
																																																																}}
																																																															if (BgL_test8187z00_24075)
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8183z00_24065
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6551) == 44L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8183z00_24065
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_6551) == 46L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8183z00_24065
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					bool_t
																																																																						BgL_test8192z00_24090;
																																																																					if (((long) (BgL_curz00_6551) >= 48L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8192z00_24090
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_6551)
																																																																								<
																																																																								60L);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8192z00_24090
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								0);
																																																																						}
																																																																					if (BgL_test8192z00_24090)
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8183z00_24065
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_6551) == 91L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8183z00_24065
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_6551) == 93L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8183z00_24065
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											if (((long) (BgL_curz00_6551) == 96L))
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test8183z00_24065
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													bool_t
																																																																														BgL_test8197z00_24105;
																																																																													if (((long) (BgL_curz00_6551) == 125L))
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8197z00_24105
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															if (((long) (BgL_curz00_6551) == 124L))
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8197z00_24105
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8197z00_24105
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_6551)
																																																																																		==
																																																																																		123L);
																																																																														}}
																																																																													if (BgL_test8197z00_24105)
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8183z00_24065
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8183z00_24065
																																																																																=
																																																																																(
																																																																																(long)
																																																																																(BgL_curz00_6551)
																																																																																==
																																																																																127L);
																																																												}}}}}}}}}}
																																																											if (BgL_test8183z00_24065)
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_matchz00_9716
																																																														=
																																																														BgL_newzd2matchzd2_6546;
																																																												}
																																																											else
																																																												{
																																																													long
																																																														BgL_bufposz00_24120;
																																																													long
																																																														BgL_forwardz00_24118;
																																																													long
																																																														BgL_lastzd2matchzd2_24117;
																																																													obj_t
																																																														BgL_iportz00_24116;
																																																													BgL_iportz00_24116
																																																														=
																																																														BgL_iportz00_6541;
																																																													BgL_lastzd2matchzd2_24117
																																																														=
																																																														BgL_newzd2matchzd2_6546;
																																																													BgL_forwardz00_24118
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_6543);
																																																													BgL_bufposz00_24120
																																																														=
																																																														BgL_bufposz00_6544;
																																																													BgL_bufposz00_5104
																																																														=
																																																														BgL_bufposz00_24120;
																																																													BgL_forwardz00_5103
																																																														=
																																																														BgL_forwardz00_24118;
																																																													BgL_lastzd2matchzd2_5102
																																																														=
																																																														BgL_lastzd2matchzd2_24117;
																																																													BgL_iportz00_5101
																																																														=
																																																														BgL_iportz00_24116;
																																																													goto
																																																														BgL_zc3z04anonymousza33484ze3z87_5105;
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																	}
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9483) == 46L))
																																																{
																																																	long
																																																		BgL_bufposz00_24129;
																																																	long
																																																		BgL_forwardz00_24127;
																																																	long
																																																		BgL_lastzd2matchzd2_24126;
																																																	obj_t
																																																		BgL_iportz00_24125;
																																																	BgL_iportz00_24125
																																																		=
																																																		BgL_iportz00_9473;
																																																	BgL_lastzd2matchzd2_24126
																																																		=
																																																		BgL_newzd2matchzd2_9478;
																																																	BgL_forwardz00_24127
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_9475);
																																																	BgL_bufposz00_24129
																																																		=
																																																		BgL_bufposz00_9476;
																																																	BgL_bufposz00_9543
																																																		=
																																																		BgL_bufposz00_24129;
																																																	BgL_forwardz00_9542
																																																		=
																																																		BgL_forwardz00_24127;
																																																	BgL_lastzd2matchzd2_9541
																																																		=
																																																		BgL_lastzd2matchzd2_24126;
																																																	BgL_iportz00_9540
																																																		=
																																																		BgL_iportz00_24125;
																																																	goto
																																																		BgL_zc3z04anonymousza35755ze3z87_9544;
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test8201z00_24130;
																																																	if (((long) (BgL_curz00_9483) == 39L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8201z00_24130
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_9483) == 44L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8201z00_24130
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8201z00_24130
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9483)
																																																						==
																																																						96L);
																																																		}}
																																																	if (BgL_test8201z00_24130)
																																																		{
																																																			long
																																																				BgL_bufposz00_24143;
																																																			long
																																																				BgL_forwardz00_24141;
																																																			long
																																																				BgL_lastzd2matchzd2_24140;
																																																			obj_t
																																																				BgL_iportz00_24139;
																																																			BgL_iportz00_24139
																																																				=
																																																				BgL_iportz00_9473;
																																																			BgL_lastzd2matchzd2_24140
																																																				=
																																																				BgL_newzd2matchzd2_9478;
																																																			BgL_forwardz00_24141
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_9475);
																																																			BgL_bufposz00_24143
																																																				=
																																																				BgL_bufposz00_9476;
																																																			BgL_bufposz00_7366
																																																				=
																																																				BgL_bufposz00_24143;
																																																			BgL_forwardz00_7365
																																																				=
																																																				BgL_forwardz00_24141;
																																																			BgL_lastzd2matchzd2_7364
																																																				=
																																																				BgL_lastzd2matchzd2_24140;
																																																			BgL_iportz00_7363
																																																				=
																																																				BgL_iportz00_24139;
																																																			goto
																																																				BgL_zc3z04anonymousza34647ze3z87_7367;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8204z00_24144;
																																																			if (((long) (BgL_curz00_9483) < 33L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8204z00_24144
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8206z00_24148;
																																																					if (((long) (BgL_curz00_9483) == 35L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8206z00_24148
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8206z00_24148
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9483)
																																																								==
																																																								34L);
																																																						}
																																																					if (BgL_test8206z00_24148)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8204z00_24144
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8208z00_24154;
																																																							if (((long) (BgL_curz00_9483) == 41L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8208z00_24154
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_9483) == 40L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8208z00_24154
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8208z00_24154
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9483)
																																																												==
																																																												39L);
																																																								}}
																																																							if (BgL_test8208z00_24154)
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8204z00_24144
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_9483) == 44L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8204z00_24144
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_9483) == 46L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8204z00_24144
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8213z00_24169;
																																																													if (((long) (BgL_curz00_9483) >= 48L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8213z00_24169
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9483)
																																																																<
																																																																60L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8213z00_24169
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test8213z00_24169)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8204z00_24144
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															if (((long) (BgL_curz00_9483) == 91L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8204z00_24144
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_9483) == 93L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8204z00_24144
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_9483) == 96L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8204z00_24144
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					bool_t
																																																																						BgL_test8218z00_24184;
																																																																					if (((long) (BgL_curz00_9483) == 125L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8218z00_24184
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_9483) == 124L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8218z00_24184
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8218z00_24184
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_9483)
																																																																										==
																																																																										123L);
																																																																						}}
																																																																					if (BgL_test8218z00_24184)
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8204z00_24144
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8204z00_24144
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_9483)
																																																																								==
																																																																								127L);
																																																				}}}}}}}}}}
																																																			if (BgL_test8204z00_24144)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_matchz00_9716
																																																						=
																																																						BgL_newzd2matchzd2_9478;
																																																				}
																																																			else
																																																				{
																																																					long
																																																						BgL_bufposz00_24199;
																																																					long
																																																						BgL_forwardz00_24197;
																																																					long
																																																						BgL_lastzd2matchzd2_24196;
																																																					obj_t
																																																						BgL_iportz00_24195;
																																																					BgL_iportz00_24195
																																																						=
																																																						BgL_iportz00_9473;
																																																					BgL_lastzd2matchzd2_24196
																																																						=
																																																						BgL_newzd2matchzd2_9478;
																																																					BgL_forwardz00_24197
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_9475);
																																																					BgL_bufposz00_24199
																																																						=
																																																						BgL_bufposz00_9476;
																																																					BgL_bufposz00_5104
																																																						=
																																																						BgL_bufposz00_24199;
																																																					BgL_forwardz00_5103
																																																						=
																																																						BgL_forwardz00_24197;
																																																					BgL_lastzd2matchzd2_5102
																																																						=
																																																						BgL_lastzd2matchzd2_24196;
																																																					BgL_iportz00_5101
																																																						=
																																																						BgL_iportz00_24195;
																																																					goto
																																																						BgL_zc3z04anonymousza33484ze3z87_5105;
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8221z00_24201;
																																					if ((
																																							(long)
																																							(BgL_curz00_6892)
																																							==
																																							39L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8221z00_24201
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_6892) == 44L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8221z00_24201
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8221z00_24201
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_6892)
																																										==
																																										96L);
																																						}}
																																					if (BgL_test8221z00_24201)
																																						{
																																							long
																																								BgL_bufposz00_24214;
																																							long
																																								BgL_forwardz00_24212;
																																							long
																																								BgL_lastzd2matchzd2_24211;
																																							obj_t
																																								BgL_iportz00_24210;
																																							BgL_iportz00_24210
																																								=
																																								BgL_iportz00_6882;
																																							BgL_lastzd2matchzd2_24211
																																								=
																																								BgL_newzd2matchzd2_6887;
																																							BgL_forwardz00_24212
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_6884);
																																							BgL_bufposz00_24214
																																								=
																																								BgL_bufposz00_6885;
																																							BgL_bufposz00_6106
																																								=
																																								BgL_bufposz00_24214;
																																							BgL_forwardz00_6105
																																								=
																																								BgL_forwardz00_24212;
																																							BgL_lastzd2matchzd2_6104
																																								=
																																								BgL_lastzd2matchzd2_24211;
																																							BgL_iportz00_6103
																																								=
																																								BgL_iportz00_24210;
																																							goto
																																								BgL_zc3z04anonymousza33993ze3z87_6107;
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8224z00_24215;
																																							if (((long) (BgL_curz00_6892) < 33L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8224z00_24215
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8226z00_24219;
																																									if (((long) (BgL_curz00_6892) == 35L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8226z00_24219
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8226z00_24219
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_6892)
																																												==
																																												34L);
																																										}
																																									if (BgL_test8226z00_24219)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8224z00_24215
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test8228z00_24225;
																																											if (((long) (BgL_curz00_6892) == 41L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8228z00_24225
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_6892) == 40L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8228z00_24225
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8228z00_24225
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_6892)
																																																==
																																																39L);
																																												}}
																																											if (BgL_test8228z00_24225)
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8224z00_24215
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_6892) == 44L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8224z00_24215
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_6892) == 46L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8224z00_24215
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test8233z00_24240;
																																																	if (((long) (BgL_curz00_6892) == 59L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8233z00_24240
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8233z00_24240
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_6892)
																																																				==
																																																				58L);
																																																		}
																																																	if (BgL_test8233z00_24240)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8224z00_24215
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_6892) == 91L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8224z00_24215
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_6892) == 93L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8224z00_24215
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_6892) == 96L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8224z00_24215
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8238z00_24255;
																																																									if (((long) (BgL_curz00_6892) == 125L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8238z00_24255
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_6892) == 124L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8238z00_24255
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8238z00_24255
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6892)
																																																														==
																																																														123L);
																																																										}}
																																																									if (BgL_test8238z00_24255)
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8224z00_24215
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8224z00_24215
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_6892)
																																																												==
																																																												127L);
																																								}}}}}}}}}}
																																							if (BgL_test8224z00_24215)
																																								{	/* Read/reader.scm 441 */
																																									BgL_matchz00_9716
																																										=
																																										BgL_newzd2matchzd2_6887;
																																								}
																																							else
																																								{
																																									long
																																										BgL_bufposz00_24270;
																																									long
																																										BgL_forwardz00_24268;
																																									long
																																										BgL_lastzd2matchzd2_24267;
																																									obj_t
																																										BgL_iportz00_24266;
																																									BgL_iportz00_24266
																																										=
																																										BgL_iportz00_6882;
																																									BgL_lastzd2matchzd2_24267
																																										=
																																										BgL_newzd2matchzd2_6887;
																																									BgL_forwardz00_24268
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_6884);
																																									BgL_bufposz00_24270
																																										=
																																										BgL_bufposz00_6885;
																																									BgL_bufposz00_4964
																																										=
																																										BgL_bufposz00_24270;
																																									BgL_forwardz00_4963
																																										=
																																										BgL_forwardz00_24268;
																																									BgL_lastzd2matchzd2_4962
																																										=
																																										BgL_lastzd2matchzd2_24267;
																																									BgL_iportz00_4961
																																										=
																																										BgL_iportz00_24266;
																																									goto
																																										BgL_zc3z04anonymousza33413ze3z87_4965;
																																								}
																																						}
																																				}
																																		}
																																}
																															}
																													}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													if (
																														((long)
																															(BgL_curz00_4574)
																															== 58L))
																														{
																															long
																																BgL_bufposz00_24279;
																															long
																																BgL_forwardz00_24277;
																															long
																																BgL_lastzd2matchzd2_24276;
																															obj_t
																																BgL_iportz00_24275;
																															BgL_iportz00_24275
																																=
																																BgL_iportz00_4564;
																															BgL_lastzd2matchzd2_24276
																																=
																																BgL_newzd2matchzd2_4569;
																															BgL_forwardz00_24277
																																=
																																(1L +
																																BgL_forwardz00_4566);
																															BgL_bufposz00_24279
																																=
																																BgL_bufposz00_4567;
																															BgL_bufposz00_6395
																																=
																																BgL_bufposz00_24279;
																															BgL_forwardz00_6394
																																=
																																BgL_forwardz00_24277;
																															BgL_lastzd2matchzd2_6393
																																=
																																BgL_lastzd2matchzd2_24276;
																															BgL_iportz00_6392
																																=
																																BgL_iportz00_24275;
																															goto
																																BgL_zc3z04anonymousza34142ze3z87_6396;
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_4574)
																																	== 46L))
																																{
																																	long
																																		BgL_bufposz00_24287;
																																	long
																																		BgL_forwardz00_24285;
																																	long
																																		BgL_lastzd2matchzd2_24284;
																																	obj_t
																																		BgL_iportz00_24283;
																																	BgL_iportz00_24283
																																		=
																																		BgL_iportz00_4564;
																																	BgL_lastzd2matchzd2_24284
																																		=
																																		BgL_newzd2matchzd2_4569;
																																	BgL_forwardz00_24285
																																		=
																																		(1L +
																																		BgL_forwardz00_4566);
																																	BgL_bufposz00_24287
																																		=
																																		BgL_bufposz00_4567;
																																	BgL_bufposz00_3944
																																		=
																																		BgL_bufposz00_24287;
																																	BgL_forwardz00_3943
																																		=
																																		BgL_forwardz00_24285;
																																	BgL_lastzd2matchzd2_3942
																																		=
																																		BgL_lastzd2matchzd2_24284;
																																	BgL_iportz00_3941
																																		=
																																		BgL_iportz00_24283;
																																	goto
																																		BgL_zc3z04anonymousza32753ze3z87_3945;
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test8243z00_24288;
																																	if (((long)
																																			(BgL_curz00_4574)
																																			== 39L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8243z00_24288
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_4574)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8243z00_24288
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8243z00_24288
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_4574)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test8243z00_24288)
																																		{
																																			long
																																				BgL_bufposz00_24301;
																																			long
																																				BgL_forwardz00_24299;
																																			long
																																				BgL_lastzd2matchzd2_24298;
																																			obj_t
																																				BgL_iportz00_24297;
																																			BgL_iportz00_24297
																																				=
																																				BgL_iportz00_4564;
																																			BgL_lastzd2matchzd2_24298
																																				=
																																				BgL_newzd2matchzd2_4569;
																																			BgL_forwardz00_24299
																																				=
																																				(1L +
																																				BgL_forwardz00_4566);
																																			BgL_bufposz00_24301
																																				=
																																				BgL_bufposz00_4567;
																																			BgL_bufposz00_6106
																																				=
																																				BgL_bufposz00_24301;
																																			BgL_forwardz00_6105
																																				=
																																				BgL_forwardz00_24299;
																																			BgL_lastzd2matchzd2_6104
																																				=
																																				BgL_lastzd2matchzd2_24298;
																																			BgL_iportz00_6103
																																				=
																																				BgL_iportz00_24297;
																																			goto
																																				BgL_zc3z04anonymousza33993ze3z87_6107;
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8246z00_24302;
																																			if ((
																																					(long)
																																					(BgL_curz00_4574)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8246z00_24302
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8248z00_24306;
																																					if ((
																																							(long)
																																							(BgL_curz00_4574)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8248z00_24306
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8248z00_24306
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_4574)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8248z00_24306)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8246z00_24302
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8250z00_24312;
																																							if (((long) (BgL_curz00_4574) == 41L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8250z00_24312
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_4574) == 40L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8250z00_24312
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8250z00_24312
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_4574)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test8250z00_24312)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8246z00_24302
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_4574) == 44L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8246z00_24302
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_4574) == 46L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8246z00_24302
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8255z00_24327;
																																													if (((long) (BgL_curz00_4574) == 59L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8255z00_24327
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8255z00_24327
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_4574)
																																																==
																																																58L);
																																														}
																																													if (BgL_test8255z00_24327)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8246z00_24302
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_4574) == 91L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8246z00_24302
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_4574) == 93L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8246z00_24302
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_4574) == 96L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8246z00_24302
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_4574) == 102L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8246z00_24302
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8261z00_24345;
																																																							if (((long) (BgL_curz00_4574) == 125L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8261z00_24345
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_4574) == 124L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8261z00_24345
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8261z00_24345
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_4574)
																																																												==
																																																												123L);
																																																								}}
																																																							if (BgL_test8261z00_24345)
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8246z00_24302
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8246z00_24302
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_4574)
																																																										==
																																																										127L);
																																				}}}}}}}}}}}
																																			if (BgL_test8246z00_24302)
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_4569;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_24360;
																																					long
																																						BgL_forwardz00_24358;
																																					long
																																						BgL_lastzd2matchzd2_24357;
																																					obj_t
																																						BgL_iportz00_24356;
																																					BgL_iportz00_24356
																																						=
																																						BgL_iportz00_4564;
																																					BgL_lastzd2matchzd2_24357
																																						=
																																						BgL_newzd2matchzd2_4569;
																																					BgL_forwardz00_24358
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_4566);
																																					BgL_bufposz00_24360
																																						=
																																						BgL_bufposz00_4567;
																																					BgL_bufposz00_4964
																																						=
																																						BgL_bufposz00_24360;
																																					BgL_forwardz00_4963
																																						=
																																						BgL_forwardz00_24358;
																																					BgL_lastzd2matchzd2_4962
																																						=
																																						BgL_lastzd2matchzd2_24357;
																																					BgL_iportz00_4961
																																						=
																																						BgL_iportz00_24356;
																																					goto
																																						BgL_zc3z04anonymousza33413ze3z87_4965;
																																				}
																																		}
																																}
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							if (
																								((long) (BgL_curz00_9233) ==
																									58L))
																								{
																									long BgL_bufposz00_24369;
																									long BgL_forwardz00_24367;
																									long
																										BgL_lastzd2matchzd2_24366;
																									obj_t BgL_iportz00_24365;

																									BgL_iportz00_24365 =
																										BgL_iportz00_9223;
																									BgL_lastzd2matchzd2_24366 =
																										BgL_newzd2matchzd2_9228;
																									BgL_forwardz00_24367 =
																										(1L + BgL_forwardz00_9225);
																									BgL_bufposz00_24369 =
																										BgL_bufposz00_9226;
																									BgL_bufposz00_6395 =
																										BgL_bufposz00_24369;
																									BgL_forwardz00_6394 =
																										BgL_forwardz00_24367;
																									BgL_lastzd2matchzd2_6393 =
																										BgL_lastzd2matchzd2_24366;
																									BgL_iportz00_6392 =
																										BgL_iportz00_24365;
																									goto
																										BgL_zc3z04anonymousza34142ze3z87_6396;
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									if (
																										((long) (BgL_curz00_9233) ==
																											46L))
																										{
																											long BgL_bufposz00_24377;
																											long BgL_forwardz00_24375;
																											long
																												BgL_lastzd2matchzd2_24374;
																											obj_t BgL_iportz00_24373;

																											BgL_iportz00_24373 =
																												BgL_iportz00_9223;
																											BgL_lastzd2matchzd2_24374
																												=
																												BgL_newzd2matchzd2_9228;
																											BgL_forwardz00_24375 =
																												(1L +
																												BgL_forwardz00_9225);
																											BgL_bufposz00_24377 =
																												BgL_bufposz00_9226;
																											BgL_bufposz00_3944 =
																												BgL_bufposz00_24377;
																											BgL_forwardz00_3943 =
																												BgL_forwardz00_24375;
																											BgL_lastzd2matchzd2_3942 =
																												BgL_lastzd2matchzd2_24374;
																											BgL_iportz00_3941 =
																												BgL_iportz00_24373;
																											goto
																												BgL_zc3z04anonymousza32753ze3z87_3945;
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											bool_t
																												BgL_test8266z00_24378;
																											if (((long)
																													(BgL_curz00_9233) ==
																													39L))
																												{	/* Read/reader.scm 441 */
																													BgL_test8266z00_24378
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													if (
																														((long)
																															(BgL_curz00_9233)
																															== 44L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8266z00_24378
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_test8266z00_24378
																																=
																																((long)
																																(BgL_curz00_9233)
																																== 96L);
																												}}
																											if (BgL_test8266z00_24378)
																												{
																													long
																														BgL_bufposz00_24391;
																													long
																														BgL_forwardz00_24389;
																													long
																														BgL_lastzd2matchzd2_24388;
																													obj_t
																														BgL_iportz00_24387;
																													BgL_iportz00_24387 =
																														BgL_iportz00_9223;
																													BgL_lastzd2matchzd2_24388
																														=
																														BgL_newzd2matchzd2_9228;
																													BgL_forwardz00_24389 =
																														(1L +
																														BgL_forwardz00_9225);
																													BgL_bufposz00_24391 =
																														BgL_bufposz00_9226;
																													BgL_bufposz00_6106 =
																														BgL_bufposz00_24391;
																													BgL_forwardz00_6105 =
																														BgL_forwardz00_24389;
																													BgL_lastzd2matchzd2_6104
																														=
																														BgL_lastzd2matchzd2_24388;
																													BgL_iportz00_6103 =
																														BgL_iportz00_24387;
																													goto
																														BgL_zc3z04anonymousza33993ze3z87_6107;
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test8269z00_24392;
																													if (((long)
																															(BgL_curz00_9233)
																															< 33L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8269z00_24392
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test8271z00_24396;
																															if (((long)
																																	(BgL_curz00_9233)
																																	== 35L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8271z00_24396
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test8271z00_24396
																																		=
																																		((long)
																																		(BgL_curz00_9233)
																																		== 34L);
																																}
																															if (BgL_test8271z00_24396)
																																{	/* Read/reader.scm 441 */
																																	BgL_test8269z00_24392
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test8273z00_24402;
																																	if (((long)
																																			(BgL_curz00_9233)
																																			== 41L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8273z00_24402
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_9233)
																																					==
																																					40L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8273z00_24402
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8273z00_24402
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9233)
																																						==
																																						39L);
																																		}}
																																	if (BgL_test8273z00_24402)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8269z00_24392
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_9233)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8269z00_24392
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_9233) == 46L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8269z00_24392
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8278z00_24417;
																																							if (((long) (BgL_curz00_9233) == 59L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8278z00_24417
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8278z00_24417
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_9233)
																																										==
																																										58L);
																																								}
																																							if (BgL_test8278z00_24417)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8269z00_24392
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_9233) == 91L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8269z00_24392
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_9233) == 93L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8269z00_24392
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_9233) == 96L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8269z00_24392
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9233) == 110L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8269z00_24392
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test8284z00_24435;
																																																	if (((long) (BgL_curz00_9233) == 125L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8284z00_24435
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_9233) == 124L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8284z00_24435
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8284z00_24435
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9233)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test8284z00_24435)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8269z00_24392
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8269z00_24392
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9233)
																																																				==
																																																				127L);
																														}}}}}}}}}}}
																													if (BgL_test8269z00_24392)
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_9228;
																														}
																													else
																														{
																															long
																																BgL_bufposz00_24450;
																															long
																																BgL_forwardz00_24448;
																															long
																																BgL_lastzd2matchzd2_24447;
																															obj_t
																																BgL_iportz00_24446;
																															BgL_iportz00_24446
																																=
																																BgL_iportz00_9223;
																															BgL_lastzd2matchzd2_24447
																																=
																																BgL_newzd2matchzd2_9228;
																															BgL_forwardz00_24448
																																=
																																(1L +
																																BgL_forwardz00_9225);
																															BgL_bufposz00_24450
																																=
																																BgL_bufposz00_9226;
																															BgL_bufposz00_4964
																																=
																																BgL_bufposz00_24450;
																															BgL_forwardz00_4963
																																=
																																BgL_forwardz00_24448;
																															BgL_lastzd2matchzd2_4962
																																=
																																BgL_lastzd2matchzd2_24447;
																															BgL_iportz00_4961
																																=
																																BgL_iportz00_24446;
																															goto
																																BgL_zc3z04anonymousza33413ze3z87_4965;
																														}
																												}
																										}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 441 */
																	if (((long) (BgL_curz00_4645) == 58L))
																		{
																			long BgL_bufposz00_24459;
																			long BgL_forwardz00_24457;
																			long BgL_lastzd2matchzd2_24456;
																			obj_t BgL_iportz00_24455;

																			BgL_iportz00_24455 = BgL_iportz00_4635;
																			BgL_lastzd2matchzd2_24456 =
																				BgL_newzd2matchzd2_4640;
																			BgL_forwardz00_24457 =
																				(1L + BgL_forwardz00_4637);
																			BgL_bufposz00_24459 = BgL_bufposz00_4638;
																			BgL_bufposz00_6395 = BgL_bufposz00_24459;
																			BgL_forwardz00_6394 =
																				BgL_forwardz00_24457;
																			BgL_lastzd2matchzd2_6393 =
																				BgL_lastzd2matchzd2_24456;
																			BgL_iportz00_6392 = BgL_iportz00_24455;
																			goto
																				BgL_zc3z04anonymousza34142ze3z87_6396;
																		}
																	else
																		{	/* Read/reader.scm 441 */
																			bool_t BgL_test8288z00_24460;

																			if (((long) (BgL_curz00_4645) >= 48L))
																				{	/* Read/reader.scm 441 */
																					BgL_test8288z00_24460 =
																						((long) (BgL_curz00_4645) < 58L);
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					BgL_test8288z00_24460 = ((bool_t) 0);
																				}
																			if (BgL_test8288z00_24460)
																				{	/* Read/reader.scm 441 */
																					BgL_iportz00_4006 = BgL_iportz00_4635;
																					BgL_lastzd2matchzd2_4007 =
																						BgL_newzd2matchzd2_4640;
																					BgL_forwardz00_4008 =
																						(1L + BgL_forwardz00_4637);
																					BgL_bufposz00_4009 =
																						BgL_bufposz00_4638;
																				BgL_zc3z04anonymousza32796ze3z87_4010:
																					{	/* Read/reader.scm 441 */
																						long BgL_newzd2matchzd2_4011;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_24466;

																							BgL_tmpz00_24466 =
																								((obj_t) BgL_iportz00_4006);
																							RGC_STOP_MATCH(BgL_tmpz00_24466,
																								BgL_forwardz00_4008);
																						}
																						BgL_newzd2matchzd2_4011 = 12L;
																						if (
																							(BgL_forwardz00_4008 ==
																								BgL_bufposz00_4009))
																							{	/* Read/reader.scm 441 */
																								if (rgc_fill_buffer(
																										((obj_t)
																											BgL_iportz00_4006)))
																									{	/* Read/reader.scm 441 */
																										long BgL_arg2799z00_4014;
																										long BgL_arg2801z00_4015;

																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_24474;

																											BgL_tmpz00_24474 =
																												((obj_t)
																												BgL_iportz00_4006);
																											BgL_arg2799z00_4014 =
																												RGC_BUFFER_FORWARD
																												(BgL_tmpz00_24474);
																										}
																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_24477;

																											BgL_tmpz00_24477 =
																												((obj_t)
																												BgL_iportz00_4006);
																											BgL_arg2801z00_4015 =
																												RGC_BUFFER_BUFPOS
																												(BgL_tmpz00_24477);
																										}
																										{
																											long BgL_bufposz00_24481;
																											long BgL_forwardz00_24480;

																											BgL_forwardz00_24480 =
																												BgL_arg2799z00_4014;
																											BgL_bufposz00_24481 =
																												BgL_arg2801z00_4015;
																											BgL_bufposz00_4009 =
																												BgL_bufposz00_24481;
																											BgL_forwardz00_4008 =
																												BgL_forwardz00_24480;
																											goto
																												BgL_zc3z04anonymousza32796ze3z87_4010;
																										}
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										BgL_matchz00_9716 =
																											BgL_newzd2matchzd2_4011;
																									}
																							}
																						else
																							{	/* Read/reader.scm 441 */
																								int BgL_curz00_4016;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_24482;

																									BgL_tmpz00_24482 =
																										((obj_t) BgL_iportz00_4006);
																									BgL_curz00_4016 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_tmpz00_24482,
																										BgL_forwardz00_4008);
																								}
																								{	/* Read/reader.scm 441 */

																									{	/* Read/reader.scm 441 */
																										bool_t
																											BgL_test8292z00_24485;
																										if (((long)
																												(BgL_curz00_4016) ==
																												69L))
																											{	/* Read/reader.scm 441 */
																												BgL_test8292z00_24485 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												BgL_test8292z00_24485 =
																													(
																													(long)
																													(BgL_curz00_4016) ==
																													101L);
																											}
																										if (BgL_test8292z00_24485)
																											{
																												long
																													BgL_bufposz00_24495;
																												long
																													BgL_forwardz00_24493;
																												long
																													BgL_lastzd2matchzd2_24492;
																												obj_t
																													BgL_iportz00_24491;
																												BgL_iportz00_24491 =
																													BgL_iportz00_4006;
																												BgL_lastzd2matchzd2_24492
																													=
																													BgL_newzd2matchzd2_4011;
																												BgL_forwardz00_24493 =
																													(1L +
																													BgL_forwardz00_4008);
																												BgL_bufposz00_24495 =
																													BgL_bufposz00_4009;
																												BgL_bufposz00_5561 =
																													BgL_bufposz00_24495;
																												BgL_forwardz00_5560 =
																													BgL_forwardz00_24493;
																												BgL_lastzd2matchzd2_5559
																													=
																													BgL_lastzd2matchzd2_24492;
																												BgL_iportz00_5558 =
																													BgL_iportz00_24491;
																												goto
																													BgL_zc3z04anonymousza33723ze3z87_5562;
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												if (
																													((long)
																														(BgL_curz00_4016) ==
																														58L))
																													{
																														long
																															BgL_bufposz00_24503;
																														long
																															BgL_forwardz00_24501;
																														long
																															BgL_lastzd2matchzd2_24500;
																														obj_t
																															BgL_iportz00_24499;
																														BgL_iportz00_24499 =
																															BgL_iportz00_4006;
																														BgL_lastzd2matchzd2_24500
																															=
																															BgL_newzd2matchzd2_4011;
																														BgL_forwardz00_24501
																															=
																															(1L +
																															BgL_forwardz00_4008);
																														BgL_bufposz00_24503
																															=
																															BgL_bufposz00_4009;
																														BgL_bufposz00_6395 =
																															BgL_bufposz00_24503;
																														BgL_forwardz00_6394
																															=
																															BgL_forwardz00_24501;
																														BgL_lastzd2matchzd2_6393
																															=
																															BgL_lastzd2matchzd2_24500;
																														BgL_iportz00_6392 =
																															BgL_iportz00_24499;
																														goto
																															BgL_zc3z04anonymousza34142ze3z87_6396;
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														bool_t
																															BgL_test8295z00_24504;
																														if (((long)
																																(BgL_curz00_4016)
																																>= 48L))
																															{	/* Read/reader.scm 441 */
																																BgL_test8295z00_24504
																																	=
																																	((long)
																																	(BgL_curz00_4016)
																																	< 58L);
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																BgL_test8295z00_24504
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test8295z00_24504)
																															{
																																long
																																	BgL_forwardz00_24511;
																																long
																																	BgL_lastzd2matchzd2_24510;
																																BgL_lastzd2matchzd2_24510
																																	=
																																	BgL_newzd2matchzd2_4011;
																																BgL_forwardz00_24511
																																	=
																																	(1L +
																																	BgL_forwardz00_4008);
																																BgL_forwardz00_4008
																																	=
																																	BgL_forwardz00_24511;
																																BgL_lastzd2matchzd2_4007
																																	=
																																	BgL_lastzd2matchzd2_24510;
																																goto
																																	BgL_zc3z04anonymousza32796ze3z87_4010;
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																if (
																																	((long)
																																		(BgL_curz00_4016)
																																		== 46L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_iportz00_6146
																																			=
																																			BgL_iportz00_4006;
																																		BgL_lastzd2matchzd2_6147
																																			=
																																			BgL_newzd2matchzd2_4011;
																																		BgL_forwardz00_6148
																																			=
																																			(1L +
																																			BgL_forwardz00_4008);
																																		BgL_bufposz00_6149
																																			=
																																			BgL_bufposz00_4009;
																																	BgL_zc3z04anonymousza34014ze3z87_6150:
																																		{	/* Read/reader.scm 441 */
																																			long
																																				BgL_newzd2matchzd2_6151;
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_24516;
																																				BgL_tmpz00_24516
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_6146);
																																				RGC_STOP_MATCH
																																					(BgL_tmpz00_24516,
																																					BgL_forwardz00_6148);
																																			}
																																			BgL_newzd2matchzd2_6151
																																				= 13L;
																																			if (
																																				(BgL_forwardz00_6148
																																					==
																																					BgL_bufposz00_6149))
																																				{	/* Read/reader.scm 441 */
																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_6146)))
																																						{	/* Read/reader.scm 441 */
																																							long
																																								BgL_arg4017z00_6154;
																																							long
																																								BgL_arg4018z00_6155;
																																							{	/* Read/reader.scm 441 */
																																								obj_t
																																									BgL_tmpz00_24524;
																																								BgL_tmpz00_24524
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_6146);
																																								BgL_arg4017z00_6154
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_tmpz00_24524);
																																							}
																																							{	/* Read/reader.scm 441 */
																																								obj_t
																																									BgL_tmpz00_24527;
																																								BgL_tmpz00_24527
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_6146);
																																								BgL_arg4018z00_6155
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_tmpz00_24527);
																																							}
																																							{
																																								long
																																									BgL_bufposz00_24531;
																																								long
																																									BgL_forwardz00_24530;
																																								BgL_forwardz00_24530
																																									=
																																									BgL_arg4017z00_6154;
																																								BgL_bufposz00_24531
																																									=
																																									BgL_arg4018z00_6155;
																																								BgL_bufposz00_6149
																																									=
																																									BgL_bufposz00_24531;
																																								BgL_forwardz00_6148
																																									=
																																									BgL_forwardz00_24530;
																																								goto
																																									BgL_zc3z04anonymousza34014ze3z87_6150;
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_matchz00_9716
																																								=
																																								BgL_newzd2matchzd2_6151;
																																						}
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					int
																																						BgL_curz00_6156;
																																					{	/* Read/reader.scm 441 */
																																						obj_t
																																							BgL_tmpz00_24532;
																																						BgL_tmpz00_24532
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_6146);
																																						BgL_curz00_6156
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_tmpz00_24532,
																																							BgL_forwardz00_6148);
																																					}
																																					{	/* Read/reader.scm 441 */

																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8300z00_24535;
																																							if (((long) (BgL_curz00_6156) == 69L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8300z00_24535
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8300z00_24535
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_6156)
																																										==
																																										101L);
																																								}
																																							if (BgL_test8300z00_24535)
																																								{	/* Read/reader.scm 441 */
																																									BgL_iportz00_7734
																																										=
																																										BgL_iportz00_6146;
																																									BgL_lastzd2matchzd2_7735
																																										=
																																										BgL_newzd2matchzd2_6151;
																																									BgL_forwardz00_7736
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_6148);
																																									BgL_bufposz00_7737
																																										=
																																										BgL_bufposz00_6149;
																																								BgL_zc3z04anonymousza34832ze3z87_7738:
																																									{	/* Read/reader.scm 441 */
																																										long
																																											BgL_newzd2matchzd2_7739;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_24541;
																																											BgL_tmpz00_24541
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_7734);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_24541,
																																												BgL_forwardz00_7736);
																																										}
																																										BgL_newzd2matchzd2_7739
																																											=
																																											21L;
																																										if ((BgL_forwardz00_7736 == BgL_bufposz00_7737))
																																											{	/* Read/reader.scm 441 */
																																												if (rgc_fill_buffer(((obj_t) BgL_iportz00_7734)))
																																													{	/* Read/reader.scm 441 */
																																														long
																																															BgL_arg4835z00_7742;
																																														long
																																															BgL_arg4836z00_7743;
																																														{	/* Read/reader.scm 441 */
																																															obj_t
																																																BgL_tmpz00_24549;
																																															BgL_tmpz00_24549
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_7734);
																																															BgL_arg4835z00_7742
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_tmpz00_24549);
																																														}
																																														{	/* Read/reader.scm 441 */
																																															obj_t
																																																BgL_tmpz00_24552;
																																															BgL_tmpz00_24552
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_7734);
																																															BgL_arg4836z00_7743
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_tmpz00_24552);
																																														}
																																														{
																																															long
																																																BgL_bufposz00_24556;
																																															long
																																																BgL_forwardz00_24555;
																																															BgL_forwardz00_24555
																																																=
																																																BgL_arg4835z00_7742;
																																															BgL_bufposz00_24556
																																																=
																																																BgL_arg4836z00_7743;
																																															BgL_bufposz00_7737
																																																=
																																																BgL_bufposz00_24556;
																																															BgL_forwardz00_7736
																																																=
																																																BgL_forwardz00_24555;
																																															goto
																																																BgL_zc3z04anonymousza34832ze3z87_7738;
																																														}
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_matchz00_9716
																																															=
																																															BgL_newzd2matchzd2_7739;
																																													}
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												int
																																													BgL_curz00_7744;
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_24557;
																																													BgL_tmpz00_24557
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7734);
																																													BgL_curz00_7744
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_tmpz00_24557,
																																														BgL_forwardz00_7736);
																																												}
																																												{	/* Read/reader.scm 441 */

																																													if (((long) (BgL_curz00_7744) == 58L))
																																														{
																																															long
																																																BgL_bufposz00_24567;
																																															long
																																																BgL_forwardz00_24565;
																																															long
																																																BgL_lastzd2matchzd2_24564;
																																															obj_t
																																																BgL_iportz00_24563;
																																															BgL_iportz00_24563
																																																=
																																																BgL_iportz00_7734;
																																															BgL_lastzd2matchzd2_24564
																																																=
																																																BgL_newzd2matchzd2_7739;
																																															BgL_forwardz00_24565
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_7736);
																																															BgL_bufposz00_24567
																																																=
																																																BgL_bufposz00_7737;
																																															BgL_bufposz00_7305
																																																=
																																																BgL_bufposz00_24567;
																																															BgL_forwardz00_7304
																																																=
																																																BgL_forwardz00_24565;
																																															BgL_lastzd2matchzd2_7303
																																																=
																																																BgL_lastzd2matchzd2_24564;
																																															BgL_iportz00_7302
																																																=
																																																BgL_iportz00_24563;
																																															goto
																																																BgL_zc3z04anonymousza34616ze3z87_7306;
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test8305z00_24568;
																																															if (((long) (BgL_curz00_7744) >= 48L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8305z00_24568
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_7744)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8305z00_24568
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test8305z00_24568)
																																																{	/* Read/reader.scm 441 */
																																																	BgL_iportz00_4812
																																																		=
																																																		BgL_iportz00_7734;
																																																	BgL_lastzd2matchzd2_4813
																																																		=
																																																		BgL_newzd2matchzd2_7739;
																																																	BgL_forwardz00_4814
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_7736);
																																																	BgL_bufposz00_4815
																																																		=
																																																		BgL_bufposz00_7737;
																																																BgL_zc3z04anonymousza33327ze3z87_4816:
																																																	{	/* Read/reader.scm 441 */
																																																		long
																																																			BgL_newzd2matchzd2_4817;
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_24574;
																																																			BgL_tmpz00_24574
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_4812);
																																																			RGC_STOP_MATCH
																																																				(BgL_tmpz00_24574,
																																																				BgL_forwardz00_4814);
																																																		}
																																																		BgL_newzd2matchzd2_4817
																																																			=
																																																			13L;
																																																		if ((BgL_forwardz00_4814 == BgL_bufposz00_4815))
																																																			{	/* Read/reader.scm 441 */
																																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_4812)))
																																																					{	/* Read/reader.scm 441 */
																																																						long
																																																							BgL_arg3330z00_4820;
																																																						long
																																																							BgL_arg3331z00_4821;
																																																						{	/* Read/reader.scm 441 */
																																																							obj_t
																																																								BgL_tmpz00_24582;
																																																							BgL_tmpz00_24582
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_4812);
																																																							BgL_arg3330z00_4820
																																																								=
																																																								RGC_BUFFER_FORWARD
																																																								(BgL_tmpz00_24582);
																																																						}
																																																						{	/* Read/reader.scm 441 */
																																																							obj_t
																																																								BgL_tmpz00_24585;
																																																							BgL_tmpz00_24585
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_4812);
																																																							BgL_arg3331z00_4821
																																																								=
																																																								RGC_BUFFER_BUFPOS
																																																								(BgL_tmpz00_24585);
																																																						}
																																																						{
																																																							long
																																																								BgL_bufposz00_24589;
																																																							long
																																																								BgL_forwardz00_24588;
																																																							BgL_forwardz00_24588
																																																								=
																																																								BgL_arg3330z00_4820;
																																																							BgL_bufposz00_24589
																																																								=
																																																								BgL_arg3331z00_4821;
																																																							BgL_bufposz00_4815
																																																								=
																																																								BgL_bufposz00_24589;
																																																							BgL_forwardz00_4814
																																																								=
																																																								BgL_forwardz00_24588;
																																																							goto
																																																								BgL_zc3z04anonymousza33327ze3z87_4816;
																																																						}
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_matchz00_9716
																																																							=
																																																							BgL_newzd2matchzd2_4817;
																																																					}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				int
																																																					BgL_curz00_4822;
																																																				{	/* Read/reader.scm 441 */
																																																					obj_t
																																																						BgL_tmpz00_24590;
																																																					BgL_tmpz00_24590
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_4812);
																																																					BgL_curz00_4822
																																																						=
																																																						RGC_BUFFER_GET_CHAR
																																																						(BgL_tmpz00_24590,
																																																						BgL_forwardz00_4814);
																																																				}
																																																				{	/* Read/reader.scm 441 */

																																																					if (((long) (BgL_curz00_4822) == 58L))
																																																						{
																																																							long
																																																								BgL_bufposz00_24600;
																																																							long
																																																								BgL_forwardz00_24598;
																																																							long
																																																								BgL_lastzd2matchzd2_24597;
																																																							obj_t
																																																								BgL_iportz00_24596;
																																																							BgL_iportz00_24596
																																																								=
																																																								BgL_iportz00_4812;
																																																							BgL_lastzd2matchzd2_24597
																																																								=
																																																								BgL_newzd2matchzd2_4817;
																																																							BgL_forwardz00_24598
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_4814);
																																																							BgL_bufposz00_24600
																																																								=
																																																								BgL_bufposz00_4815;
																																																							BgL_bufposz00_7305
																																																								=
																																																								BgL_bufposz00_24600;
																																																							BgL_forwardz00_7304
																																																								=
																																																								BgL_forwardz00_24598;
																																																							BgL_lastzd2matchzd2_7303
																																																								=
																																																								BgL_lastzd2matchzd2_24597;
																																																							BgL_iportz00_7302
																																																								=
																																																								BgL_iportz00_24596;
																																																							goto
																																																								BgL_zc3z04anonymousza34616ze3z87_7306;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8310z00_24601;
																																																							if (((long) (BgL_curz00_4822) >= 48L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8310z00_24601
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_4822)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8310z00_24601
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test8310z00_24601)
																																																								{
																																																									long
																																																										BgL_forwardz00_24608;
																																																									long
																																																										BgL_lastzd2matchzd2_24607;
																																																									BgL_lastzd2matchzd2_24607
																																																										=
																																																										BgL_newzd2matchzd2_4817;
																																																									BgL_forwardz00_24608
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_4814);
																																																									BgL_forwardz00_4814
																																																										=
																																																										BgL_forwardz00_24608;
																																																									BgL_lastzd2matchzd2_4813
																																																										=
																																																										BgL_lastzd2matchzd2_24607;
																																																									goto
																																																										BgL_zc3z04anonymousza33327ze3z87_4816;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_4822) == 46L))
																																																										{
																																																											long
																																																												BgL_bufposz00_24617;
																																																											long
																																																												BgL_forwardz00_24615;
																																																											long
																																																												BgL_lastzd2matchzd2_24614;
																																																											obj_t
																																																												BgL_iportz00_24613;
																																																											BgL_iportz00_24613
																																																												=
																																																												BgL_iportz00_4812;
																																																											BgL_lastzd2matchzd2_24614
																																																												=
																																																												BgL_newzd2matchzd2_4817;
																																																											BgL_forwardz00_24615
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_4814);
																																																											BgL_bufposz00_24617
																																																												=
																																																												BgL_bufposz00_4815;
																																																											BgL_bufposz00_6330
																																																												=
																																																												BgL_bufposz00_24617;
																																																											BgL_forwardz00_6329
																																																												=
																																																												BgL_forwardz00_24615;
																																																											BgL_lastzd2matchzd2_6328
																																																												=
																																																												BgL_lastzd2matchzd2_24614;
																																																											BgL_iportz00_6327
																																																												=
																																																												BgL_iportz00_24613;
																																																											goto
																																																												BgL_zc3z04anonymousza34108ze3z87_6331;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8313z00_24618;
																																																											if (((long) (BgL_curz00_4822) == 39L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8313z00_24618
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													if (((long) (BgL_curz00_4822) == 44L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8313z00_24618
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8313z00_24618
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_4822)
																																																																==
																																																																96L);
																																																												}}
																																																											if (BgL_test8313z00_24618)
																																																												{
																																																													long
																																																														BgL_bufposz00_24631;
																																																													long
																																																														BgL_forwardz00_24629;
																																																													long
																																																														BgL_lastzd2matchzd2_24628;
																																																													obj_t
																																																														BgL_iportz00_24627;
																																																													BgL_iportz00_24627
																																																														=
																																																														BgL_iportz00_4812;
																																																													BgL_lastzd2matchzd2_24628
																																																														=
																																																														BgL_newzd2matchzd2_4817;
																																																													BgL_forwardz00_24629
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_4814);
																																																													BgL_bufposz00_24631
																																																														=
																																																														BgL_bufposz00_4815;
																																																													BgL_bufposz00_7551
																																																														=
																																																														BgL_bufposz00_24631;
																																																													BgL_forwardz00_7550
																																																														=
																																																														BgL_forwardz00_24629;
																																																													BgL_lastzd2matchzd2_7549
																																																														=
																																																														BgL_lastzd2matchzd2_24628;
																																																													BgL_iportz00_7548
																																																														=
																																																														BgL_iportz00_24627;
																																																													goto
																																																														BgL_zc3z04anonymousza34743ze3z87_7552;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8316z00_24632;
																																																													if (((long) (BgL_curz00_4822) < 33L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8316z00_24632
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test8318z00_24636;
																																																															if (((long) (BgL_curz00_4822) == 35L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8318z00_24636
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8318z00_24636
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_4822)
																																																																		==
																																																																		34L);
																																																																}
																																																															if (BgL_test8318z00_24636)
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8316z00_24632
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	bool_t
																																																																		BgL_test8320z00_24642;
																																																																	if (((long) (BgL_curz00_4822) == 41L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8320z00_24642
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_4822) == 40L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8320z00_24642
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8320z00_24642
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_4822)
																																																																						==
																																																																						39L);
																																																																		}}
																																																																	if (BgL_test8320z00_24642)
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8316z00_24632
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_4822) == 44L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8316z00_24632
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					if (((long) (BgL_curz00_4822) == 46L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8316z00_24632
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							bool_t
																																																																								BgL_test8325z00_24657;
																																																																							if (((long) (BgL_curz00_4822) >= 48L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8325z00_24657
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_4822)
																																																																										<
																																																																										60L);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8325z00_24657
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										0);
																																																																								}
																																																																							if (BgL_test8325z00_24657)
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8316z00_24632
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_4822) == 91L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8316z00_24632
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											if (((long) (BgL_curz00_4822) == 93L))
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test8316z00_24632
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													if (((long) (BgL_curz00_4822) == 96L))
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8316z00_24632
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															bool_t
																																																																																BgL_test8330z00_24672;
																																																																															if (((long) (BgL_curz00_4822) == 125L))
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8330z00_24672
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	if (((long) (BgL_curz00_4822) == 124L))
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test8330z00_24672
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test8330z00_24672
																																																																																				=
																																																																																				(
																																																																																				(long)
																																																																																				(BgL_curz00_4822)
																																																																																				==
																																																																																				123L);
																																																																																}}
																																																																															if (BgL_test8330z00_24672)
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8316z00_24632
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8316z00_24632
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_4822)
																																																																																		==
																																																																																		127L);
																																																														}}}}}}}}}}
																																																													if (BgL_test8316z00_24632)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_matchz00_9716
																																																																=
																																																																BgL_newzd2matchzd2_4817;
																																																														}
																																																													else
																																																														{
																																																															long
																																																																BgL_bufposz00_24687;
																																																															long
																																																																BgL_forwardz00_24685;
																																																															long
																																																																BgL_lastzd2matchzd2_24684;
																																																															obj_t
																																																																BgL_iportz00_24683;
																																																															BgL_iportz00_24683
																																																																=
																																																																BgL_iportz00_4812;
																																																															BgL_lastzd2matchzd2_24684
																																																																=
																																																																BgL_newzd2matchzd2_4817;
																																																															BgL_forwardz00_24685
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_4814);
																																																															BgL_bufposz00_24687
																																																																=
																																																																BgL_bufposz00_4815;
																																																															BgL_bufposz00_5104
																																																																=
																																																																BgL_bufposz00_24687;
																																																															BgL_forwardz00_5103
																																																																=
																																																																BgL_forwardz00_24685;
																																																															BgL_lastzd2matchzd2_5102
																																																																=
																																																																BgL_lastzd2matchzd2_24684;
																																																															BgL_iportz00_5101
																																																																=
																																																																BgL_iportz00_24683;
																																																															goto
																																																																BgL_zc3z04anonymousza33484ze3z87_5105;
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																			}
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_7744) == 46L))
																																																		{
																																																			long
																																																				BgL_bufposz00_24696;
																																																			long
																																																				BgL_forwardz00_24694;
																																																			long
																																																				BgL_lastzd2matchzd2_24693;
																																																			obj_t
																																																				BgL_iportz00_24692;
																																																			BgL_iportz00_24692
																																																				=
																																																				BgL_iportz00_7734;
																																																			BgL_lastzd2matchzd2_24693
																																																				=
																																																				BgL_newzd2matchzd2_7739;
																																																			BgL_forwardz00_24694
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_7736);
																																																			BgL_bufposz00_24696
																																																				=
																																																				BgL_bufposz00_7737;
																																																			BgL_bufposz00_6330
																																																				=
																																																				BgL_bufposz00_24696;
																																																			BgL_forwardz00_6329
																																																				=
																																																				BgL_forwardz00_24694;
																																																			BgL_lastzd2matchzd2_6328
																																																				=
																																																				BgL_lastzd2matchzd2_24693;
																																																			BgL_iportz00_6327
																																																				=
																																																				BgL_iportz00_24692;
																																																			goto
																																																				BgL_zc3z04anonymousza34108ze3z87_6331;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8334z00_24697;
																																																			if (((long) (BgL_curz00_7744) == 43L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8334z00_24697
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8334z00_24697
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_7744)
																																																						==
																																																						45L);
																																																				}
																																																			if (BgL_test8334z00_24697)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_iportz00_5892
																																																						=
																																																						BgL_iportz00_7734;
																																																					BgL_lastzd2matchzd2_5893
																																																						=
																																																						BgL_newzd2matchzd2_7739;
																																																					BgL_forwardz00_5894
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_7736);
																																																					BgL_bufposz00_5895
																																																						=
																																																						BgL_bufposz00_7737;
																																																				BgL_zc3z04anonymousza33893ze3z87_5896:
																																																					{	/* Read/reader.scm 441 */
																																																						long
																																																							BgL_newzd2matchzd2_5897;
																																																						{	/* Read/reader.scm 441 */
																																																							obj_t
																																																								BgL_tmpz00_24703;
																																																							BgL_tmpz00_24703
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_5892);
																																																							RGC_STOP_MATCH
																																																								(BgL_tmpz00_24703,
																																																								BgL_forwardz00_5894);
																																																						}
																																																						BgL_newzd2matchzd2_5897
																																																							=
																																																							21L;
																																																						if ((BgL_forwardz00_5894 == BgL_bufposz00_5895))
																																																							{	/* Read/reader.scm 441 */
																																																								if (rgc_fill_buffer(((obj_t) BgL_iportz00_5892)))
																																																									{	/* Read/reader.scm 441 */
																																																										long
																																																											BgL_arg3896z00_5900;
																																																										long
																																																											BgL_arg3897z00_5901;
																																																										{	/* Read/reader.scm 441 */
																																																											obj_t
																																																												BgL_tmpz00_24711;
																																																											BgL_tmpz00_24711
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_5892);
																																																											BgL_arg3896z00_5900
																																																												=
																																																												RGC_BUFFER_FORWARD
																																																												(BgL_tmpz00_24711);
																																																										}
																																																										{	/* Read/reader.scm 441 */
																																																											obj_t
																																																												BgL_tmpz00_24714;
																																																											BgL_tmpz00_24714
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_5892);
																																																											BgL_arg3897z00_5901
																																																												=
																																																												RGC_BUFFER_BUFPOS
																																																												(BgL_tmpz00_24714);
																																																										}
																																																										{
																																																											long
																																																												BgL_bufposz00_24718;
																																																											long
																																																												BgL_forwardz00_24717;
																																																											BgL_forwardz00_24717
																																																												=
																																																												BgL_arg3896z00_5900;
																																																											BgL_bufposz00_24718
																																																												=
																																																												BgL_arg3897z00_5901;
																																																											BgL_bufposz00_5895
																																																												=
																																																												BgL_bufposz00_24718;
																																																											BgL_forwardz00_5894
																																																												=
																																																												BgL_forwardz00_24717;
																																																											goto
																																																												BgL_zc3z04anonymousza33893ze3z87_5896;
																																																										}
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_matchz00_9716
																																																											=
																																																											BgL_newzd2matchzd2_5897;
																																																									}
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								int
																																																									BgL_curz00_5902;
																																																								{	/* Read/reader.scm 441 */
																																																									obj_t
																																																										BgL_tmpz00_24719;
																																																									BgL_tmpz00_24719
																																																										=
																																																										(
																																																										(obj_t)
																																																										BgL_iportz00_5892);
																																																									BgL_curz00_5902
																																																										=
																																																										RGC_BUFFER_GET_CHAR
																																																										(BgL_tmpz00_24719,
																																																										BgL_forwardz00_5894);
																																																								}
																																																								{	/* Read/reader.scm 441 */

																																																									if (((long) (BgL_curz00_5902) == 58L))
																																																										{
																																																											long
																																																												BgL_bufposz00_24729;
																																																											long
																																																												BgL_forwardz00_24727;
																																																											long
																																																												BgL_lastzd2matchzd2_24726;
																																																											obj_t
																																																												BgL_iportz00_24725;
																																																											BgL_iportz00_24725
																																																												=
																																																												BgL_iportz00_5892;
																																																											BgL_lastzd2matchzd2_24726
																																																												=
																																																												BgL_newzd2matchzd2_5897;
																																																											BgL_forwardz00_24727
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_5894);
																																																											BgL_bufposz00_24729
																																																												=
																																																												BgL_bufposz00_5895;
																																																											BgL_bufposz00_7305
																																																												=
																																																												BgL_bufposz00_24729;
																																																											BgL_forwardz00_7304
																																																												=
																																																												BgL_forwardz00_24727;
																																																											BgL_lastzd2matchzd2_7303
																																																												=
																																																												BgL_lastzd2matchzd2_24726;
																																																											BgL_iportz00_7302
																																																												=
																																																												BgL_iportz00_24725;
																																																											goto
																																																												BgL_zc3z04anonymousza34616ze3z87_7306;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8339z00_24730;
																																																											if (((long) (BgL_curz00_5902) >= 48L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8339z00_24730
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_5902)
																																																														<
																																																														58L);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8339z00_24730
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																											if (BgL_test8339z00_24730)
																																																												{
																																																													long
																																																														BgL_bufposz00_24740;
																																																													long
																																																														BgL_forwardz00_24738;
																																																													long
																																																														BgL_lastzd2matchzd2_24737;
																																																													obj_t
																																																														BgL_iportz00_24736;
																																																													BgL_iportz00_24736
																																																														=
																																																														BgL_iportz00_5892;
																																																													BgL_lastzd2matchzd2_24737
																																																														=
																																																														BgL_newzd2matchzd2_5897;
																																																													BgL_forwardz00_24738
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_5894);
																																																													BgL_bufposz00_24740
																																																														=
																																																														BgL_bufposz00_5895;
																																																													BgL_bufposz00_4815
																																																														=
																																																														BgL_bufposz00_24740;
																																																													BgL_forwardz00_4814
																																																														=
																																																														BgL_forwardz00_24738;
																																																													BgL_lastzd2matchzd2_4813
																																																														=
																																																														BgL_lastzd2matchzd2_24737;
																																																													BgL_iportz00_4812
																																																														=
																																																														BgL_iportz00_24736;
																																																													goto
																																																														BgL_zc3z04anonymousza33327ze3z87_4816;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													if (((long) (BgL_curz00_5902) == 46L))
																																																														{
																																																															long
																																																																BgL_bufposz00_24748;
																																																															long
																																																																BgL_forwardz00_24746;
																																																															long
																																																																BgL_lastzd2matchzd2_24745;
																																																															obj_t
																																																																BgL_iportz00_24744;
																																																															BgL_iportz00_24744
																																																																=
																																																																BgL_iportz00_5892;
																																																															BgL_lastzd2matchzd2_24745
																																																																=
																																																																BgL_newzd2matchzd2_5897;
																																																															BgL_forwardz00_24746
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_5894);
																																																															BgL_bufposz00_24748
																																																																=
																																																																BgL_bufposz00_5895;
																																																															BgL_bufposz00_6330
																																																																=
																																																																BgL_bufposz00_24748;
																																																															BgL_forwardz00_6329
																																																																=
																																																																BgL_forwardz00_24746;
																																																															BgL_lastzd2matchzd2_6328
																																																																=
																																																																BgL_lastzd2matchzd2_24745;
																																																															BgL_iportz00_6327
																																																																=
																																																																BgL_iportz00_24744;
																																																															goto
																																																																BgL_zc3z04anonymousza34108ze3z87_6331;
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test8342z00_24749;
																																																															if (((long) (BgL_curz00_5902) == 39L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8342z00_24749
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_5902) == 44L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8342z00_24749
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8342z00_24749
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_5902)
																																																																				==
																																																																				96L);
																																																																}}
																																																															if (BgL_test8342z00_24749)
																																																																{
																																																																	long
																																																																		BgL_bufposz00_24762;
																																																																	long
																																																																		BgL_forwardz00_24760;
																																																																	long
																																																																		BgL_lastzd2matchzd2_24759;
																																																																	obj_t
																																																																		BgL_iportz00_24758;
																																																																	BgL_iportz00_24758
																																																																		=
																																																																		BgL_iportz00_5892;
																																																																	BgL_lastzd2matchzd2_24759
																																																																		=
																																																																		BgL_newzd2matchzd2_5897;
																																																																	BgL_forwardz00_24760
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_5894);
																																																																	BgL_bufposz00_24762
																																																																		=
																																																																		BgL_bufposz00_5895;
																																																																	BgL_bufposz00_7551
																																																																		=
																																																																		BgL_bufposz00_24762;
																																																																	BgL_forwardz00_7550
																																																																		=
																																																																		BgL_forwardz00_24760;
																																																																	BgL_lastzd2matchzd2_7549
																																																																		=
																																																																		BgL_lastzd2matchzd2_24759;
																																																																	BgL_iportz00_7548
																																																																		=
																																																																		BgL_iportz00_24758;
																																																																	goto
																																																																		BgL_zc3z04anonymousza34743ze3z87_7552;
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	bool_t
																																																																		BgL_test8345z00_24763;
																																																																	if (((long) (BgL_curz00_5902) < 33L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8345z00_24763
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			bool_t
																																																																				BgL_test8347z00_24767;
																																																																			if (((long) (BgL_curz00_5902) == 35L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8347z00_24767
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8347z00_24767
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_5902)
																																																																						==
																																																																						34L);
																																																																				}
																																																																			if (BgL_test8347z00_24767)
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8345z00_24763
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					bool_t
																																																																						BgL_test8349z00_24773;
																																																																					if (((long) (BgL_curz00_5902) == 41L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8349z00_24773
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_5902) == 40L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8349z00_24773
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8349z00_24773
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_5902)
																																																																										==
																																																																										39L);
																																																																						}}
																																																																					if (BgL_test8349z00_24773)
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8345z00_24763
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_5902) == 44L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8345z00_24763
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_5902) == 46L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8345z00_24763
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											bool_t
																																																																												BgL_test8354z00_24788;
																																																																											if (((long) (BgL_curz00_5902) >= 48L))
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test8354z00_24788
																																																																														=
																																																																														(
																																																																														(long)
																																																																														(BgL_curz00_5902)
																																																																														<
																																																																														60L);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test8354z00_24788
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														0);
																																																																												}
																																																																											if (BgL_test8354z00_24788)
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test8345z00_24763
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													if (((long) (BgL_curz00_5902) == 91L))
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8345z00_24763
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															if (((long) (BgL_curz00_5902) == 93L))
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8345z00_24763
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	if (((long) (BgL_curz00_5902) == 96L))
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test8345z00_24763
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			bool_t
																																																																																				BgL_test8359z00_24803;
																																																																																			if (((long) (BgL_curz00_5902) == 125L))
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					BgL_test8359z00_24803
																																																																																						=
																																																																																						(
																																																																																						(bool_t)
																																																																																						1);
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					if (((long) (BgL_curz00_5902) == 124L))
																																																																																						{	/* Read/reader.scm 441 */
																																																																																							BgL_test8359z00_24803
																																																																																								=
																																																																																								(
																																																																																								(bool_t)
																																																																																								1);
																																																																																						}
																																																																																					else
																																																																																						{	/* Read/reader.scm 441 */
																																																																																							BgL_test8359z00_24803
																																																																																								=
																																																																																								(
																																																																																								(long)
																																																																																								(BgL_curz00_5902)
																																																																																								==
																																																																																								123L);
																																																																																				}}
																																																																																			if (BgL_test8359z00_24803)
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					BgL_test8345z00_24763
																																																																																						=
																																																																																						(
																																																																																						(bool_t)
																																																																																						1);
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 441 */
																																																																																					BgL_test8345z00_24763
																																																																																						=
																																																																																						(
																																																																																						(long)
																																																																																						(BgL_curz00_5902)
																																																																																						==
																																																																																						127L);
																																																																		}}}}}}}}}}
																																																																	if (BgL_test8345z00_24763)
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_matchz00_9716
																																																																				=
																																																																				BgL_newzd2matchzd2_5897;
																																																																		}
																																																																	else
																																																																		{
																																																																			long
																																																																				BgL_bufposz00_24818;
																																																																			long
																																																																				BgL_forwardz00_24816;
																																																																			long
																																																																				BgL_lastzd2matchzd2_24815;
																																																																			obj_t
																																																																				BgL_iportz00_24814;
																																																																			BgL_iportz00_24814
																																																																				=
																																																																				BgL_iportz00_5892;
																																																																			BgL_lastzd2matchzd2_24815
																																																																				=
																																																																				BgL_newzd2matchzd2_5897;
																																																																			BgL_forwardz00_24816
																																																																				=
																																																																				(1L
																																																																				+
																																																																				BgL_forwardz00_5894);
																																																																			BgL_bufposz00_24818
																																																																				=
																																																																				BgL_bufposz00_5895;
																																																																			BgL_bufposz00_5104
																																																																				=
																																																																				BgL_bufposz00_24818;
																																																																			BgL_forwardz00_5103
																																																																				=
																																																																				BgL_forwardz00_24816;
																																																																			BgL_lastzd2matchzd2_5102
																																																																				=
																																																																				BgL_lastzd2matchzd2_24815;
																																																																			BgL_iportz00_5101
																																																																				=
																																																																				BgL_iportz00_24814;
																																																																			goto
																																																																				BgL_zc3z04anonymousza33484ze3z87_5105;
																																																																		}
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																							}
																																																					}
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8362z00_24820;
																																																					if (((long) (BgL_curz00_7744) == 39L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8362z00_24820
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_7744) == 44L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8362z00_24820
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8362z00_24820
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_7744)
																																																										==
																																																										96L);
																																																						}}
																																																					if (BgL_test8362z00_24820)
																																																						{
																																																							long
																																																								BgL_bufposz00_24833;
																																																							long
																																																								BgL_forwardz00_24831;
																																																							long
																																																								BgL_lastzd2matchzd2_24830;
																																																							obj_t
																																																								BgL_iportz00_24829;
																																																							BgL_iportz00_24829
																																																								=
																																																								BgL_iportz00_7734;
																																																							BgL_lastzd2matchzd2_24830
																																																								=
																																																								BgL_newzd2matchzd2_7739;
																																																							BgL_forwardz00_24831
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_7736);
																																																							BgL_bufposz00_24833
																																																								=
																																																								BgL_bufposz00_7737;
																																																							BgL_bufposz00_7551
																																																								=
																																																								BgL_bufposz00_24833;
																																																							BgL_forwardz00_7550
																																																								=
																																																								BgL_forwardz00_24831;
																																																							BgL_lastzd2matchzd2_7549
																																																								=
																																																								BgL_lastzd2matchzd2_24830;
																																																							BgL_iportz00_7548
																																																								=
																																																								BgL_iportz00_24829;
																																																							goto
																																																								BgL_zc3z04anonymousza34743ze3z87_7552;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8365z00_24834;
																																																							if (((long) (BgL_curz00_7744) < 33L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8365z00_24834
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8367z00_24838;
																																																									if (((long) (BgL_curz00_7744) == 35L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8367z00_24838
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8367z00_24838
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_7744)
																																																												==
																																																												34L);
																																																										}
																																																									if (BgL_test8367z00_24838)
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8365z00_24834
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8369z00_24844;
																																																											if (((long) (BgL_curz00_7744) == 41L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8369z00_24844
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													if (((long) (BgL_curz00_7744) == 40L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8369z00_24844
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8369z00_24844
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_7744)
																																																																==
																																																																39L);
																																																												}}
																																																											if (BgL_test8369z00_24844)
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8365z00_24834
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8372z00_24853;
																																																													if (((long) (BgL_curz00_7744) >= 43L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8372z00_24853
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_7744)
																																																																<
																																																																47L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8372z00_24853
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test8372z00_24853)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8365z00_24834
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test8374z00_24859;
																																																															if (((long) (BgL_curz00_7744) >= 48L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8374z00_24859
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_7744)
																																																																		<
																																																																		60L);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8374z00_24859
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																															if (BgL_test8374z00_24859)
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8365z00_24834
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_7744) == 91L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8365z00_24834
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_7744) == 93L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8365z00_24834
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					if (((long) (BgL_curz00_7744) == 96L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8365z00_24834
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							bool_t
																																																																								BgL_test8379z00_24874;
																																																																							if (((long) (BgL_curz00_7744) == 125L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8379z00_24874
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_7744) == 124L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8379z00_24874
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8379z00_24874
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_7744)
																																																																												==
																																																																												123L);
																																																																								}}
																																																																							if (BgL_test8379z00_24874)
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8365z00_24834
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8365z00_24834
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_7744)
																																																																										==
																																																																										127L);
																																																								}}}}}}}}}
																																																							if (BgL_test8365z00_24834)
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_matchz00_9716
																																																										=
																																																										BgL_newzd2matchzd2_7739;
																																																								}
																																																							else
																																																								{
																																																									long
																																																										BgL_bufposz00_24889;
																																																									long
																																																										BgL_forwardz00_24887;
																																																									long
																																																										BgL_lastzd2matchzd2_24886;
																																																									obj_t
																																																										BgL_iportz00_24885;
																																																									BgL_iportz00_24885
																																																										=
																																																										BgL_iportz00_7734;
																																																									BgL_lastzd2matchzd2_24886
																																																										=
																																																										BgL_newzd2matchzd2_7739;
																																																									BgL_forwardz00_24887
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_7736);
																																																									BgL_bufposz00_24889
																																																										=
																																																										BgL_bufposz00_7737;
																																																									BgL_bufposz00_5104
																																																										=
																																																										BgL_bufposz00_24889;
																																																									BgL_forwardz00_5103
																																																										=
																																																										BgL_forwardz00_24887;
																																																									BgL_lastzd2matchzd2_5102
																																																										=
																																																										BgL_lastzd2matchzd2_24886;
																																																									BgL_iportz00_5101
																																																										=
																																																										BgL_iportz00_24885;
																																																									goto
																																																										BgL_zc3z04anonymousza33484ze3z87_5105;
																																																								}
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																											}
																																									}
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_6156) == 58L))
																																										{
																																											long
																																												BgL_bufposz00_24898;
																																											long
																																												BgL_forwardz00_24896;
																																											long
																																												BgL_lastzd2matchzd2_24895;
																																											obj_t
																																												BgL_iportz00_24894;
																																											BgL_iportz00_24894
																																												=
																																												BgL_iportz00_6146;
																																											BgL_lastzd2matchzd2_24895
																																												=
																																												BgL_newzd2matchzd2_6151;
																																											BgL_forwardz00_24896
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_6148);
																																											BgL_bufposz00_24898
																																												=
																																												BgL_bufposz00_6149;
																																											BgL_bufposz00_7305
																																												=
																																												BgL_bufposz00_24898;
																																											BgL_forwardz00_7304
																																												=
																																												BgL_forwardz00_24896;
																																											BgL_lastzd2matchzd2_7303
																																												=
																																												BgL_lastzd2matchzd2_24895;
																																											BgL_iportz00_7302
																																												=
																																												BgL_iportz00_24894;
																																											goto
																																												BgL_zc3z04anonymousza34616ze3z87_7306;
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test8383z00_24899;
																																											if (((long) (BgL_curz00_6156) >= 48L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8383z00_24899
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_6156)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8383z00_24899
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test8383z00_24899)
																																												{	/* Read/reader.scm 441 */
																																													BgL_iportz00_7402
																																														=
																																														BgL_iportz00_6146;
																																													BgL_lastzd2matchzd2_7403
																																														=
																																														BgL_newzd2matchzd2_6151;
																																													BgL_forwardz00_7404
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_6148);
																																													BgL_bufposz00_7405
																																														=
																																														BgL_bufposz00_6149;
																																												BgL_zc3z04anonymousza34665ze3z87_7406:
																																													{	/* Read/reader.scm 441 */
																																														long
																																															BgL_newzd2matchzd2_7407;
																																														{	/* Read/reader.scm 441 */
																																															obj_t
																																																BgL_tmpz00_24905;
																																															BgL_tmpz00_24905
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_7402);
																																															RGC_STOP_MATCH
																																																(BgL_tmpz00_24905,
																																																BgL_forwardz00_7404);
																																														}
																																														BgL_newzd2matchzd2_7407
																																															=
																																															13L;
																																														if ((BgL_forwardz00_7404 == BgL_bufposz00_7405))
																																															{	/* Read/reader.scm 441 */
																																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_7402)))
																																																	{	/* Read/reader.scm 441 */
																																																		long
																																																			BgL_arg4668z00_7410;
																																																		long
																																																			BgL_arg4669z00_7411;
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_24913;
																																																			BgL_tmpz00_24913
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_7402);
																																																			BgL_arg4668z00_7410
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_tmpz00_24913);
																																																		}
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_24916;
																																																			BgL_tmpz00_24916
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_7402);
																																																			BgL_arg4669z00_7411
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_tmpz00_24916);
																																																		}
																																																		{
																																																			long
																																																				BgL_bufposz00_24920;
																																																			long
																																																				BgL_forwardz00_24919;
																																																			BgL_forwardz00_24919
																																																				=
																																																				BgL_arg4668z00_7410;
																																																			BgL_bufposz00_24920
																																																				=
																																																				BgL_arg4669z00_7411;
																																																			BgL_bufposz00_7405
																																																				=
																																																				BgL_bufposz00_24920;
																																																			BgL_forwardz00_7404
																																																				=
																																																				BgL_forwardz00_24919;
																																																			goto
																																																				BgL_zc3z04anonymousza34665ze3z87_7406;
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_matchz00_9716
																																																			=
																																																			BgL_newzd2matchzd2_7407;
																																																	}
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																int
																																																	BgL_curz00_7412;
																																																{	/* Read/reader.scm 441 */
																																																	obj_t
																																																		BgL_tmpz00_24921;
																																																	BgL_tmpz00_24921
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_7402);
																																																	BgL_curz00_7412
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_tmpz00_24921,
																																																		BgL_forwardz00_7404);
																																																}
																																																{	/* Read/reader.scm 441 */

																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test8387z00_24924;
																																																		if (((long) (BgL_curz00_7412) == 69L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8387z00_24924
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8387z00_24924
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_7412)
																																																					==
																																																					101L);
																																																			}
																																																		if (BgL_test8387z00_24924)
																																																			{
																																																				long
																																																					BgL_bufposz00_24934;
																																																				long
																																																					BgL_forwardz00_24932;
																																																				long
																																																					BgL_lastzd2matchzd2_24931;
																																																				obj_t
																																																					BgL_iportz00_24930;
																																																				BgL_iportz00_24930
																																																					=
																																																					BgL_iportz00_7402;
																																																				BgL_lastzd2matchzd2_24931
																																																					=
																																																					BgL_newzd2matchzd2_7407;
																																																				BgL_forwardz00_24932
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_7404);
																																																				BgL_bufposz00_24934
																																																					=
																																																					BgL_bufposz00_7405;
																																																				BgL_bufposz00_7737
																																																					=
																																																					BgL_bufposz00_24934;
																																																				BgL_forwardz00_7736
																																																					=
																																																					BgL_forwardz00_24932;
																																																				BgL_lastzd2matchzd2_7735
																																																					=
																																																					BgL_lastzd2matchzd2_24931;
																																																				BgL_iportz00_7734
																																																					=
																																																					BgL_iportz00_24930;
																																																				goto
																																																					BgL_zc3z04anonymousza34832ze3z87_7738;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_7412) == 58L))
																																																					{
																																																						long
																																																							BgL_bufposz00_24942;
																																																						long
																																																							BgL_forwardz00_24940;
																																																						long
																																																							BgL_lastzd2matchzd2_24939;
																																																						obj_t
																																																							BgL_iportz00_24938;
																																																						BgL_iportz00_24938
																																																							=
																																																							BgL_iportz00_7402;
																																																						BgL_lastzd2matchzd2_24939
																																																							=
																																																							BgL_newzd2matchzd2_7407;
																																																						BgL_forwardz00_24940
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_7404);
																																																						BgL_bufposz00_24942
																																																							=
																																																							BgL_bufposz00_7405;
																																																						BgL_bufposz00_7305
																																																							=
																																																							BgL_bufposz00_24942;
																																																						BgL_forwardz00_7304
																																																							=
																																																							BgL_forwardz00_24940;
																																																						BgL_lastzd2matchzd2_7303
																																																							=
																																																							BgL_lastzd2matchzd2_24939;
																																																						BgL_iportz00_7302
																																																							=
																																																							BgL_iportz00_24938;
																																																						goto
																																																							BgL_zc3z04anonymousza34616ze3z87_7306;
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test8390z00_24943;
																																																						if (((long) (BgL_curz00_7412) >= 48L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8390z00_24943
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7412)
																																																									<
																																																									58L);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8390z00_24943
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test8390z00_24943)
																																																							{
																																																								long
																																																									BgL_forwardz00_24950;
																																																								long
																																																									BgL_lastzd2matchzd2_24949;
																																																								BgL_lastzd2matchzd2_24949
																																																									=
																																																									BgL_newzd2matchzd2_7407;
																																																								BgL_forwardz00_24950
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_7404);
																																																								BgL_forwardz00_7404
																																																									=
																																																									BgL_forwardz00_24950;
																																																								BgL_lastzd2matchzd2_7403
																																																									=
																																																									BgL_lastzd2matchzd2_24949;
																																																								goto
																																																									BgL_zc3z04anonymousza34665ze3z87_7406;
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_7412) == 46L))
																																																									{
																																																										long
																																																											BgL_bufposz00_24959;
																																																										long
																																																											BgL_forwardz00_24957;
																																																										long
																																																											BgL_lastzd2matchzd2_24956;
																																																										obj_t
																																																											BgL_iportz00_24955;
																																																										BgL_iportz00_24955
																																																											=
																																																											BgL_iportz00_7402;
																																																										BgL_lastzd2matchzd2_24956
																																																											=
																																																											BgL_newzd2matchzd2_7407;
																																																										BgL_forwardz00_24957
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_7404);
																																																										BgL_bufposz00_24959
																																																											=
																																																											BgL_bufposz00_7405;
																																																										BgL_bufposz00_9543
																																																											=
																																																											BgL_bufposz00_24959;
																																																										BgL_forwardz00_9542
																																																											=
																																																											BgL_forwardz00_24957;
																																																										BgL_lastzd2matchzd2_9541
																																																											=
																																																											BgL_lastzd2matchzd2_24956;
																																																										BgL_iportz00_9540
																																																											=
																																																											BgL_iportz00_24955;
																																																										goto
																																																											BgL_zc3z04anonymousza35755ze3z87_9544;
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test8393z00_24960;
																																																										if (((long) (BgL_curz00_7412) == 39L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8393z00_24960
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_7412) == 44L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8393z00_24960
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8393z00_24960
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_7412)
																																																															==
																																																															96L);
																																																											}}
																																																										if (BgL_test8393z00_24960)
																																																											{
																																																												long
																																																													BgL_bufposz00_24973;
																																																												long
																																																													BgL_forwardz00_24971;
																																																												long
																																																													BgL_lastzd2matchzd2_24970;
																																																												obj_t
																																																													BgL_iportz00_24969;
																																																												BgL_iportz00_24969
																																																													=
																																																													BgL_iportz00_7402;
																																																												BgL_lastzd2matchzd2_24970
																																																													=
																																																													BgL_newzd2matchzd2_7407;
																																																												BgL_forwardz00_24971
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_7404);
																																																												BgL_bufposz00_24973
																																																													=
																																																													BgL_bufposz00_7405;
																																																												BgL_bufposz00_7366
																																																													=
																																																													BgL_bufposz00_24973;
																																																												BgL_forwardz00_7365
																																																													=
																																																													BgL_forwardz00_24971;
																																																												BgL_lastzd2matchzd2_7364
																																																													=
																																																													BgL_lastzd2matchzd2_24970;
																																																												BgL_iportz00_7363
																																																													=
																																																													BgL_iportz00_24969;
																																																												goto
																																																													BgL_zc3z04anonymousza34647ze3z87_7367;
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test8396z00_24974;
																																																												if (((long) (BgL_curz00_7412) < 33L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8396z00_24974
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														bool_t
																																																															BgL_test8398z00_24978;
																																																														if (((long) (BgL_curz00_7412) == 35L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8398z00_24978
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8398z00_24978
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_7412)
																																																																	==
																																																																	34L);
																																																															}
																																																														if (BgL_test8398z00_24978)
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8396z00_24974
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																bool_t
																																																																	BgL_test8400z00_24984;
																																																																if (((long) (BgL_curz00_7412) == 41L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test8400z00_24984
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_7412) == 40L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test8400z00_24984
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test8400z00_24984
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_7412)
																																																																					==
																																																																					39L);
																																																																	}}
																																																																if (BgL_test8400z00_24984)
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test8396z00_24974
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_7412) == 44L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test8396z00_24974
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				if (((long) (BgL_curz00_7412) == 46L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test8396z00_24974
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						bool_t
																																																																							BgL_test8405z00_24999;
																																																																						if (((long) (BgL_curz00_7412) >= 48L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test8405z00_24999
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_7412)
																																																																									<
																																																																									60L);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test8405z00_24999
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									0);
																																																																							}
																																																																						if (BgL_test8405z00_24999)
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test8396z00_24974
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								if (((long) (BgL_curz00_7412) == 69L))
																																																																									{	/* Read/reader.scm 441 */
																																																																										BgL_test8396z00_24974
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 441 */
																																																																										if (((long) (BgL_curz00_7412) == 91L))
																																																																											{	/* Read/reader.scm 441 */
																																																																												BgL_test8396z00_24974
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 441 */
																																																																												if (((long) (BgL_curz00_7412) == 93L))
																																																																													{	/* Read/reader.scm 441 */
																																																																														BgL_test8396z00_24974
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 441 */
																																																																														if (((long) (BgL_curz00_7412) == 96L))
																																																																															{	/* Read/reader.scm 441 */
																																																																																BgL_test8396z00_24974
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 441 */
																																																																																if (((long) (BgL_curz00_7412) == 101L))
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		BgL_test8396z00_24974
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 441 */
																																																																																		bool_t
																																																																																			BgL_test8412z00_25020;
																																																																																		if (((long) (BgL_curz00_7412) == 125L))
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test8412z00_25020
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				if (((long) (BgL_curz00_7412) == 124L))
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test8412z00_25020
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 441 */
																																																																																						BgL_test8412z00_25020
																																																																																							=
																																																																																							(
																																																																																							(long)
																																																																																							(BgL_curz00_7412)
																																																																																							==
																																																																																							123L);
																																																																																			}}
																																																																																		if (BgL_test8412z00_25020)
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test8396z00_24974
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 441 */
																																																																																				BgL_test8396z00_24974
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_7412)
																																																																																					==
																																																																																					127L);
																																																													}}}}}}}}}}}}
																																																												if (BgL_test8396z00_24974)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_matchz00_9716
																																																															=
																																																															BgL_newzd2matchzd2_7407;
																																																													}
																																																												else
																																																													{
																																																														long
																																																															BgL_bufposz00_25035;
																																																														long
																																																															BgL_forwardz00_25033;
																																																														long
																																																															BgL_lastzd2matchzd2_25032;
																																																														obj_t
																																																															BgL_iportz00_25031;
																																																														BgL_iportz00_25031
																																																															=
																																																															BgL_iportz00_7402;
																																																														BgL_lastzd2matchzd2_25032
																																																															=
																																																															BgL_newzd2matchzd2_7407;
																																																														BgL_forwardz00_25033
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_7404);
																																																														BgL_bufposz00_25035
																																																															=
																																																															BgL_bufposz00_7405;
																																																														BgL_bufposz00_5104
																																																															=
																																																															BgL_bufposz00_25035;
																																																														BgL_forwardz00_5103
																																																															=
																																																															BgL_forwardz00_25033;
																																																														BgL_lastzd2matchzd2_5102
																																																															=
																																																															BgL_lastzd2matchzd2_25032;
																																																														BgL_iportz00_5101
																																																															=
																																																															BgL_iportz00_25031;
																																																														goto
																																																															BgL_zc3z04anonymousza33484ze3z87_5105;
																																																													}
																																																											}
																																																									}
																																																							}
																																																					}
																																																			}
																																																	}
																																																}
																																															}
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_6156) == 46L))
																																														{
																																															long
																																																BgL_bufposz00_25044;
																																															long
																																																BgL_forwardz00_25042;
																																															long
																																																BgL_lastzd2matchzd2_25041;
																																															obj_t
																																																BgL_iportz00_25040;
																																															BgL_iportz00_25040
																																																=
																																																BgL_iportz00_6146;
																																															BgL_lastzd2matchzd2_25041
																																																=
																																																BgL_newzd2matchzd2_6151;
																																															BgL_forwardz00_25042
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_6148);
																																															BgL_bufposz00_25044
																																																=
																																																BgL_bufposz00_6149;
																																															BgL_bufposz00_9543
																																																=
																																																BgL_bufposz00_25044;
																																															BgL_forwardz00_9542
																																																=
																																																BgL_forwardz00_25042;
																																															BgL_lastzd2matchzd2_9541
																																																=
																																																BgL_lastzd2matchzd2_25041;
																																															BgL_iportz00_9540
																																																=
																																																BgL_iportz00_25040;
																																															goto
																																																BgL_zc3z04anonymousza35755ze3z87_9544;
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test8416z00_25045;
																																															if (((long) (BgL_curz00_6156) == 39L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8416z00_25045
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_6156) == 44L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8416z00_25045
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8416z00_25045
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_6156)
																																																				==
																																																				96L);
																																																}}
																																															if (BgL_test8416z00_25045)
																																																{
																																																	long
																																																		BgL_bufposz00_25058;
																																																	long
																																																		BgL_forwardz00_25056;
																																																	long
																																																		BgL_lastzd2matchzd2_25055;
																																																	obj_t
																																																		BgL_iportz00_25054;
																																																	BgL_iportz00_25054
																																																		=
																																																		BgL_iportz00_6146;
																																																	BgL_lastzd2matchzd2_25055
																																																		=
																																																		BgL_newzd2matchzd2_6151;
																																																	BgL_forwardz00_25056
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_6148);
																																																	BgL_bufposz00_25058
																																																		=
																																																		BgL_bufposz00_6149;
																																																	BgL_bufposz00_7366
																																																		=
																																																		BgL_bufposz00_25058;
																																																	BgL_forwardz00_7365
																																																		=
																																																		BgL_forwardz00_25056;
																																																	BgL_lastzd2matchzd2_7364
																																																		=
																																																		BgL_lastzd2matchzd2_25055;
																																																	BgL_iportz00_7363
																																																		=
																																																		BgL_iportz00_25054;
																																																	goto
																																																		BgL_zc3z04anonymousza34647ze3z87_7367;
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test8419z00_25059;
																																																	if (((long) (BgL_curz00_6156) < 33L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8419z00_25059
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8421z00_25063;
																																																			if (((long) (BgL_curz00_6156) == 35L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8421z00_25063
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8421z00_25063
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_6156)
																																																						==
																																																						34L);
																																																				}
																																																			if (BgL_test8421z00_25063)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8419z00_25059
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8423z00_25069;
																																																					if (((long) (BgL_curz00_6156) == 41L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8423z00_25069
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_6156) == 40L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8423z00_25069
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8423z00_25069
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6156)
																																																										==
																																																										39L);
																																																						}}
																																																					if (BgL_test8423z00_25069)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8419z00_25059
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_6156) == 44L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8419z00_25059
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_6156) == 46L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8419z00_25059
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8428z00_25084;
																																																											if (((long) (BgL_curz00_6156) >= 48L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8428z00_25084
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6156)
																																																														<
																																																														60L);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8428z00_25084
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																											if (BgL_test8428z00_25084)
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8419z00_25059
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													if (((long) (BgL_curz00_6156) == 69L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8419z00_25059
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															if (((long) (BgL_curz00_6156) == 91L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8419z00_25059
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6156) == 93L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8419z00_25059
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_6156) == 96L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8419z00_25059
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					if (((long) (BgL_curz00_6156) == 101L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8419z00_25059
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							bool_t
																																																																								BgL_test8435z00_25105;
																																																																							if (((long) (BgL_curz00_6156) == 125L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8435z00_25105
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_6156) == 124L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8435z00_25105
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8435z00_25105
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_6156)
																																																																												==
																																																																												123L);
																																																																								}}
																																																																							if (BgL_test8435z00_25105)
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8419z00_25059
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8419z00_25059
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_6156)
																																																																										==
																																																																										127L);
																																																		}}}}}}}}}}}}
																																																	if (BgL_test8419z00_25059)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_matchz00_9716
																																																				=
																																																				BgL_newzd2matchzd2_6151;
																																																		}
																																																	else
																																																		{
																																																			long
																																																				BgL_bufposz00_25120;
																																																			long
																																																				BgL_forwardz00_25118;
																																																			long
																																																				BgL_lastzd2matchzd2_25117;
																																																			obj_t
																																																				BgL_iportz00_25116;
																																																			BgL_iportz00_25116
																																																				=
																																																				BgL_iportz00_6146;
																																																			BgL_lastzd2matchzd2_25117
																																																				=
																																																				BgL_newzd2matchzd2_6151;
																																																			BgL_forwardz00_25118
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_6148);
																																																			BgL_bufposz00_25120
																																																				=
																																																				BgL_bufposz00_6149;
																																																			BgL_bufposz00_5104
																																																				=
																																																				BgL_bufposz00_25120;
																																																			BgL_forwardz00_5103
																																																				=
																																																				BgL_forwardz00_25118;
																																																			BgL_lastzd2matchzd2_5102
																																																				=
																																																				BgL_lastzd2matchzd2_25117;
																																																			BgL_iportz00_5101
																																																				=
																																																				BgL_iportz00_25116;
																																																			goto
																																																				BgL_zc3z04anonymousza33484ze3z87_5105;
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																						}
																																					}
																																				}
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test8438z00_25122;
																																		if (((long)
																																				(BgL_curz00_4016)
																																				== 39L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8438z00_25122
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				if (
																																					((long) (BgL_curz00_4016) == 44L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8438z00_25122
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8438z00_25122
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_4016)
																																							==
																																							96L);
																																			}}
																																		if (BgL_test8438z00_25122)
																																			{
																																				long
																																					BgL_bufposz00_25135;
																																				long
																																					BgL_forwardz00_25133;
																																				long
																																					BgL_lastzd2matchzd2_25132;
																																				obj_t
																																					BgL_iportz00_25131;
																																				BgL_iportz00_25131
																																					=
																																					BgL_iportz00_4006;
																																				BgL_lastzd2matchzd2_25132
																																					=
																																					BgL_newzd2matchzd2_4011;
																																				BgL_forwardz00_25133
																																					=
																																					(1L +
																																					BgL_forwardz00_4008);
																																				BgL_bufposz00_25135
																																					=
																																					BgL_bufposz00_4009;
																																				BgL_bufposz00_6106
																																					=
																																					BgL_bufposz00_25135;
																																				BgL_forwardz00_6105
																																					=
																																					BgL_forwardz00_25133;
																																				BgL_lastzd2matchzd2_6104
																																					=
																																					BgL_lastzd2matchzd2_25132;
																																				BgL_iportz00_6103
																																					=
																																					BgL_iportz00_25131;
																																				goto
																																					BgL_zc3z04anonymousza33993ze3z87_6107;
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test8441z00_25136;
																																				if ((
																																						(long)
																																						(BgL_curz00_4016)
																																						<
																																						33L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8441z00_25136
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test8443z00_25140;
																																						if (
																																							((long) (BgL_curz00_4016) == 35L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test8443z00_25140
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								BgL_test8443z00_25140
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_4016)
																																									==
																																									34L);
																																							}
																																						if (BgL_test8443z00_25140)
																																							{	/* Read/reader.scm 441 */
																																								BgL_test8441z00_25136
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test8445z00_25146;
																																								if (((long) (BgL_curz00_4016) == 41L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test8445z00_25146
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_4016) == 40L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test8445z00_25146
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_test8445z00_25146
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_4016)
																																													==
																																													39L);
																																									}}
																																								if (BgL_test8445z00_25146)
																																									{	/* Read/reader.scm 441 */
																																										BgL_test8441z00_25136
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_4016) == 44L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test8441z00_25136
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												if (((long) (BgL_curz00_4016) == 46L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8441z00_25136
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test8450z00_25161;
																																														if (((long) (BgL_curz00_4016) >= 48L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8450z00_25161
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_4016)
																																																	<
																																																	60L);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8450z00_25161
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test8450z00_25161)
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8441z00_25136
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_4016) == 69L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8441z00_25136
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_4016) == 91L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8441z00_25136
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_4016) == 93L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8441z00_25136
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_4016) == 96L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8441z00_25136
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_4016) == 101L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8441z00_25136
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test8457z00_25182;
																																																										if (((long) (BgL_curz00_4016) == 125L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8457z00_25182
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_4016) == 124L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8457z00_25182
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8457z00_25182
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_4016)
																																																															==
																																																															123L);
																																																											}}
																																																										if (BgL_test8457z00_25182)
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8441z00_25136
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8441z00_25136
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_4016)
																																																													==
																																																													127L);
																																					}}}}}}}}}}}}
																																				if (BgL_test8441z00_25136)
																																					{	/* Read/reader.scm 441 */
																																						BgL_matchz00_9716
																																							=
																																							BgL_newzd2matchzd2_4011;
																																					}
																																				else
																																					{
																																						long
																																							BgL_bufposz00_25197;
																																						long
																																							BgL_forwardz00_25195;
																																						long
																																							BgL_lastzd2matchzd2_25194;
																																						obj_t
																																							BgL_iportz00_25193;
																																						BgL_iportz00_25193
																																							=
																																							BgL_iportz00_4006;
																																						BgL_lastzd2matchzd2_25194
																																							=
																																							BgL_newzd2matchzd2_4011;
																																						BgL_forwardz00_25195
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_4008);
																																						BgL_bufposz00_25197
																																							=
																																							BgL_bufposz00_4009;
																																						BgL_bufposz00_4964
																																							=
																																							BgL_bufposz00_25197;
																																						BgL_forwardz00_4963
																																							=
																																							BgL_forwardz00_25195;
																																						BgL_lastzd2matchzd2_4962
																																							=
																																							BgL_lastzd2matchzd2_25194;
																																						BgL_iportz00_4961
																																							=
																																							BgL_iportz00_25193;
																																						goto
																																							BgL_zc3z04anonymousza33413ze3z87_4965;
																																					}
																																			}
																																	}
																															}
																													}
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					if (((long) (BgL_curz00_4645) == 46L))
																						{	/* Read/reader.scm 441 */
																							BgL_iportz00_6971 =
																								BgL_iportz00_4635;
																							BgL_lastzd2matchzd2_6972 =
																								BgL_newzd2matchzd2_4640;
																							BgL_forwardz00_6973 =
																								(1L + BgL_forwardz00_4637);
																							BgL_bufposz00_6974 =
																								BgL_bufposz00_4638;
																						BgL_zc3z04anonymousza34446ze3z87_6975:
																							{	/* Read/reader.scm 441 */
																								long BgL_newzd2matchzd2_6976;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_25202;

																									BgL_tmpz00_25202 =
																										((obj_t) BgL_iportz00_6971);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_25202,
																										BgL_forwardz00_6973);
																								}
																								BgL_newzd2matchzd2_6976 = 22L;
																								if (
																									(BgL_forwardz00_6973 ==
																										BgL_bufposz00_6974))
																									{	/* Read/reader.scm 441 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_6971)))
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_arg4449z00_6979;
																												long
																													BgL_arg4450z00_6980;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_25210;
																													BgL_tmpz00_25210 =
																														((obj_t)
																														BgL_iportz00_6971);
																													BgL_arg4449z00_6979 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_25210);
																												}
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_25213;
																													BgL_tmpz00_25213 =
																														((obj_t)
																														BgL_iportz00_6971);
																													BgL_arg4450z00_6980 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_25213);
																												}
																												{
																													long
																														BgL_bufposz00_25217;
																													long
																														BgL_forwardz00_25216;
																													BgL_forwardz00_25216 =
																														BgL_arg4449z00_6979;
																													BgL_bufposz00_25217 =
																														BgL_arg4450z00_6980;
																													BgL_bufposz00_6974 =
																														BgL_bufposz00_25217;
																													BgL_forwardz00_6973 =
																														BgL_forwardz00_25216;
																													goto
																														BgL_zc3z04anonymousza34446ze3z87_6975;
																												}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												BgL_matchz00_9716 =
																													BgL_newzd2matchzd2_6976;
																											}
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										int BgL_curz00_6981;

																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_25218;

																											BgL_tmpz00_25218 =
																												((obj_t)
																												BgL_iportz00_6971);
																											BgL_curz00_6981 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_25218,
																												BgL_forwardz00_6973);
																										}
																										{	/* Read/reader.scm 441 */

																											if (
																												((long)
																													(BgL_curz00_6981) ==
																													58L))
																												{
																													long
																														BgL_bufposz00_25228;
																													long
																														BgL_forwardz00_25226;
																													long
																														BgL_lastzd2matchzd2_25225;
																													obj_t
																														BgL_iportz00_25224;
																													BgL_iportz00_25224 =
																														BgL_iportz00_6971;
																													BgL_lastzd2matchzd2_25225
																														=
																														BgL_newzd2matchzd2_6976;
																													BgL_forwardz00_25226 =
																														(1L +
																														BgL_forwardz00_6973);
																													BgL_bufposz00_25228 =
																														BgL_bufposz00_6974;
																													BgL_bufposz00_7305 =
																														BgL_bufposz00_25228;
																													BgL_forwardz00_7304 =
																														BgL_forwardz00_25226;
																													BgL_lastzd2matchzd2_7303
																														=
																														BgL_lastzd2matchzd2_25225;
																													BgL_iportz00_7302 =
																														BgL_iportz00_25224;
																													goto
																														BgL_zc3z04anonymousza34616ze3z87_7306;
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test8464z00_25229;
																													if (((long)
																															(BgL_curz00_6981)
																															>= 48L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8464z00_25229
																																=
																																((long)
																																(BgL_curz00_6981)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_test8464z00_25229
																																= ((bool_t) 0);
																														}
																													if (BgL_test8464z00_25229)
																														{	/* Read/reader.scm 441 */
																															BgL_iportz00_7475
																																=
																																BgL_iportz00_6971;
																															BgL_lastzd2matchzd2_7476
																																=
																																BgL_newzd2matchzd2_6976;
																															BgL_forwardz00_7477
																																=
																																(1L +
																																BgL_forwardz00_6973);
																															BgL_bufposz00_7478
																																=
																																BgL_bufposz00_6974;
																														BgL_zc3z04anonymousza34704ze3z87_7479:
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_newzd2matchzd2_7480;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_25235;
																																	BgL_tmpz00_25235
																																		=
																																		((obj_t)
																																		BgL_iportz00_7475);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_25235,
																																		BgL_forwardz00_7477);
																																}
																																BgL_newzd2matchzd2_7480
																																	= 13L;
																																if (
																																	(BgL_forwardz00_7477
																																		==
																																		BgL_bufposz00_7478))
																																	{	/* Read/reader.scm 441 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_7475)))
																																			{	/* Read/reader.scm 441 */
																																				long
																																					BgL_arg4707z00_7483;
																																				long
																																					BgL_arg4708z00_7484;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_25243;
																																					BgL_tmpz00_25243
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7475);
																																					BgL_arg4707z00_7483
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_25243);
																																				}
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_25246;
																																					BgL_tmpz00_25246
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7475);
																																					BgL_arg4708z00_7484
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_25246);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_25250;
																																					long
																																						BgL_forwardz00_25249;
																																					BgL_forwardz00_25249
																																						=
																																						BgL_arg4707z00_7483;
																																					BgL_bufposz00_25250
																																						=
																																						BgL_arg4708z00_7484;
																																					BgL_bufposz00_7478
																																						=
																																						BgL_bufposz00_25250;
																																					BgL_forwardz00_7477
																																						=
																																						BgL_forwardz00_25249;
																																					goto
																																						BgL_zc3z04anonymousza34704ze3z87_7479;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_7480;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		int
																																			BgL_curz00_7485;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_25251;
																																			BgL_tmpz00_25251
																																				=
																																				((obj_t)
																																				BgL_iportz00_7475);
																																			BgL_curz00_7485
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_25251,
																																				BgL_forwardz00_7477);
																																		}
																																		{	/* Read/reader.scm 441 */

																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test8468z00_25254;
																																				if ((
																																						(long)
																																						(BgL_curz00_7485)
																																						==
																																						69L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8468z00_25254
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8468z00_25254
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_7485)
																																							==
																																							101L);
																																					}
																																				if (BgL_test8468z00_25254)
																																					{
																																						long
																																							BgL_bufposz00_25264;
																																						long
																																							BgL_forwardz00_25262;
																																						long
																																							BgL_lastzd2matchzd2_25261;
																																						obj_t
																																							BgL_iportz00_25260;
																																						BgL_iportz00_25260
																																							=
																																							BgL_iportz00_7475;
																																						BgL_lastzd2matchzd2_25261
																																							=
																																							BgL_newzd2matchzd2_7480;
																																						BgL_forwardz00_25262
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_7477);
																																						BgL_bufposz00_25264
																																							=
																																							BgL_bufposz00_7478;
																																						BgL_bufposz00_7737
																																							=
																																							BgL_bufposz00_25264;
																																						BgL_forwardz00_7736
																																							=
																																							BgL_forwardz00_25262;
																																						BgL_lastzd2matchzd2_7735
																																							=
																																							BgL_lastzd2matchzd2_25261;
																																						BgL_iportz00_7734
																																							=
																																							BgL_iportz00_25260;
																																						goto
																																							BgL_zc3z04anonymousza34832ze3z87_7738;
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						if (
																																							((long) (BgL_curz00_7485) == 58L))
																																							{
																																								long
																																									BgL_bufposz00_25272;
																																								long
																																									BgL_forwardz00_25270;
																																								long
																																									BgL_lastzd2matchzd2_25269;
																																								obj_t
																																									BgL_iportz00_25268;
																																								BgL_iportz00_25268
																																									=
																																									BgL_iportz00_7475;
																																								BgL_lastzd2matchzd2_25269
																																									=
																																									BgL_newzd2matchzd2_7480;
																																								BgL_forwardz00_25270
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_7477);
																																								BgL_bufposz00_25272
																																									=
																																									BgL_bufposz00_7478;
																																								BgL_bufposz00_7305
																																									=
																																									BgL_bufposz00_25272;
																																								BgL_forwardz00_7304
																																									=
																																									BgL_forwardz00_25270;
																																								BgL_lastzd2matchzd2_7303
																																									=
																																									BgL_lastzd2matchzd2_25269;
																																								BgL_iportz00_7302
																																									=
																																									BgL_iportz00_25268;
																																								goto
																																									BgL_zc3z04anonymousza34616ze3z87_7306;
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								bool_t
																																									BgL_test8471z00_25273;
																																								if (((long) (BgL_curz00_7485) >= 48L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test8471z00_25273
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_7485)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_test8471z00_25273
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test8471z00_25273)
																																									{
																																										long
																																											BgL_forwardz00_25280;
																																										long
																																											BgL_lastzd2matchzd2_25279;
																																										BgL_lastzd2matchzd2_25279
																																											=
																																											BgL_newzd2matchzd2_7480;
																																										BgL_forwardz00_25280
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_7477);
																																										BgL_forwardz00_7477
																																											=
																																											BgL_forwardz00_25280;
																																										BgL_lastzd2matchzd2_7476
																																											=
																																											BgL_lastzd2matchzd2_25279;
																																										goto
																																											BgL_zc3z04anonymousza34704ze3z87_7479;
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_7485) == 46L))
																																											{
																																												long
																																													BgL_bufposz00_25289;
																																												long
																																													BgL_forwardz00_25287;
																																												long
																																													BgL_lastzd2matchzd2_25286;
																																												obj_t
																																													BgL_iportz00_25285;
																																												BgL_iportz00_25285
																																													=
																																													BgL_iportz00_7475;
																																												BgL_lastzd2matchzd2_25286
																																													=
																																													BgL_newzd2matchzd2_7480;
																																												BgL_forwardz00_25287
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_7477);
																																												BgL_bufposz00_25289
																																													=
																																													BgL_bufposz00_7478;
																																												BgL_bufposz00_9543
																																													=
																																													BgL_bufposz00_25289;
																																												BgL_forwardz00_9542
																																													=
																																													BgL_forwardz00_25287;
																																												BgL_lastzd2matchzd2_9541
																																													=
																																													BgL_lastzd2matchzd2_25286;
																																												BgL_iportz00_9540
																																													=
																																													BgL_iportz00_25285;
																																												goto
																																													BgL_zc3z04anonymousza35755ze3z87_9544;
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test8474z00_25290;
																																												if (((long) (BgL_curz00_7485) == 39L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8474z00_25290
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_7485) == 44L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8474z00_25290
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8474z00_25290
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_7485)
																																																	==
																																																	96L);
																																													}}
																																												if (BgL_test8474z00_25290)
																																													{
																																														long
																																															BgL_bufposz00_25303;
																																														long
																																															BgL_forwardz00_25301;
																																														long
																																															BgL_lastzd2matchzd2_25300;
																																														obj_t
																																															BgL_iportz00_25299;
																																														BgL_iportz00_25299
																																															=
																																															BgL_iportz00_7475;
																																														BgL_lastzd2matchzd2_25300
																																															=
																																															BgL_newzd2matchzd2_7480;
																																														BgL_forwardz00_25301
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_7477);
																																														BgL_bufposz00_25303
																																															=
																																															BgL_bufposz00_7478;
																																														BgL_bufposz00_7366
																																															=
																																															BgL_bufposz00_25303;
																																														BgL_forwardz00_7365
																																															=
																																															BgL_forwardz00_25301;
																																														BgL_lastzd2matchzd2_7364
																																															=
																																															BgL_lastzd2matchzd2_25300;
																																														BgL_iportz00_7363
																																															=
																																															BgL_iportz00_25299;
																																														goto
																																															BgL_zc3z04anonymousza34647ze3z87_7367;
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test8477z00_25304;
																																														if (((long) (BgL_curz00_7485) < 33L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8477z00_25304
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test8479z00_25308;
																																																if (((long) (BgL_curz00_7485) == 35L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8479z00_25308
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8479z00_25308
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_7485)
																																																			==
																																																			34L);
																																																	}
																																																if (BgL_test8479z00_25308)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8477z00_25304
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test8481z00_25314;
																																																		if (((long) (BgL_curz00_7485) == 41L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8481z00_25314
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_7485) == 40L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8481z00_25314
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8481z00_25314
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_7485)
																																																							==
																																																							39L);
																																																			}}
																																																		if (BgL_test8481z00_25314)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8477z00_25304
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_7485) == 44L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8477z00_25304
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_7485) == 46L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8477z00_25304
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test8486z00_25329;
																																																								if (((long) (BgL_curz00_7485) >= 48L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8486z00_25329
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_7485)
																																																											<
																																																											60L);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8486z00_25329
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test8486z00_25329)
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8477z00_25304
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_7485) == 69L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8477z00_25304
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_7485) == 91L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8477z00_25304
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_7485) == 93L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8477z00_25304
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_7485) == 96L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test8477z00_25304
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_7485) == 101L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test8477z00_25304
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				bool_t
																																																																					BgL_test8493z00_25350;
																																																																				if (((long) (BgL_curz00_7485) == 125L))
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test8493z00_25350
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						if (((long) (BgL_curz00_7485) == 124L))
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test8493z00_25350
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 441 */
																																																																								BgL_test8493z00_25350
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_7485)
																																																																									==
																																																																									123L);
																																																																					}}
																																																																				if (BgL_test8493z00_25350)
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test8477z00_25304
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 441 */
																																																																						BgL_test8477z00_25304
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_7485)
																																																																							==
																																																																							127L);
																																															}}}}}}}}}}}}
																																														if (BgL_test8477z00_25304)
																																															{	/* Read/reader.scm 441 */
																																																BgL_matchz00_9716
																																																	=
																																																	BgL_newzd2matchzd2_7480;
																																															}
																																														else
																																															{
																																																long
																																																	BgL_bufposz00_25365;
																																																long
																																																	BgL_forwardz00_25363;
																																																long
																																																	BgL_lastzd2matchzd2_25362;
																																																obj_t
																																																	BgL_iportz00_25361;
																																																BgL_iportz00_25361
																																																	=
																																																	BgL_iportz00_7475;
																																																BgL_lastzd2matchzd2_25362
																																																	=
																																																	BgL_newzd2matchzd2_7480;
																																																BgL_forwardz00_25363
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_7477);
																																																BgL_bufposz00_25365
																																																	=
																																																	BgL_bufposz00_7478;
																																																BgL_bufposz00_5104
																																																	=
																																																	BgL_bufposz00_25365;
																																																BgL_forwardz00_5103
																																																	=
																																																	BgL_forwardz00_25363;
																																																BgL_lastzd2matchzd2_5102
																																																	=
																																																	BgL_lastzd2matchzd2_25362;
																																																BgL_iportz00_5101
																																																	=
																																																	BgL_iportz00_25361;
																																																goto
																																																	BgL_zc3z04anonymousza33484ze3z87_5105;
																																															}
																																													}
																																											}
																																									}
																																							}
																																					}
																																			}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_6981)
																																	== 46L))
																																{
																																	long
																																		BgL_bufposz00_25374;
																																	long
																																		BgL_forwardz00_25372;
																																	long
																																		BgL_lastzd2matchzd2_25371;
																																	obj_t
																																		BgL_iportz00_25370;
																																	BgL_iportz00_25370
																																		=
																																		BgL_iportz00_6971;
																																	BgL_lastzd2matchzd2_25371
																																		=
																																		BgL_newzd2matchzd2_6976;
																																	BgL_forwardz00_25372
																																		=
																																		(1L +
																																		BgL_forwardz00_6973);
																																	BgL_bufposz00_25374
																																		=
																																		BgL_bufposz00_6974;
																																	BgL_bufposz00_9543
																																		=
																																		BgL_bufposz00_25374;
																																	BgL_forwardz00_9542
																																		=
																																		BgL_forwardz00_25372;
																																	BgL_lastzd2matchzd2_9541
																																		=
																																		BgL_lastzd2matchzd2_25371;
																																	BgL_iportz00_9540
																																		=
																																		BgL_iportz00_25370;
																																	goto
																																		BgL_zc3z04anonymousza35755ze3z87_9544;
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test8497z00_25375;
																																	if (((long)
																																			(BgL_curz00_6981)
																																			== 39L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8497z00_25375
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_6981)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8497z00_25375
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8497z00_25375
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_6981)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test8497z00_25375)
																																		{
																																			long
																																				BgL_bufposz00_25388;
																																			long
																																				BgL_forwardz00_25386;
																																			long
																																				BgL_lastzd2matchzd2_25385;
																																			obj_t
																																				BgL_iportz00_25384;
																																			BgL_iportz00_25384
																																				=
																																				BgL_iportz00_6971;
																																			BgL_lastzd2matchzd2_25385
																																				=
																																				BgL_newzd2matchzd2_6976;
																																			BgL_forwardz00_25386
																																				=
																																				(1L +
																																				BgL_forwardz00_6973);
																																			BgL_bufposz00_25388
																																				=
																																				BgL_bufposz00_6974;
																																			BgL_bufposz00_7366
																																				=
																																				BgL_bufposz00_25388;
																																			BgL_forwardz00_7365
																																				=
																																				BgL_forwardz00_25386;
																																			BgL_lastzd2matchzd2_7364
																																				=
																																				BgL_lastzd2matchzd2_25385;
																																			BgL_iportz00_7363
																																				=
																																				BgL_iportz00_25384;
																																			goto
																																				BgL_zc3z04anonymousza34647ze3z87_7367;
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8500z00_25389;
																																			if ((
																																					(long)
																																					(BgL_curz00_6981)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8500z00_25389
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8502z00_25393;
																																					if ((
																																							(long)
																																							(BgL_curz00_6981)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8502z00_25393
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8502z00_25393
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_6981)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8502z00_25393)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8500z00_25389
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8504z00_25399;
																																							if (((long) (BgL_curz00_6981) == 41L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8504z00_25399
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_6981) == 40L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8504z00_25399
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8504z00_25399
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_6981)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test8504z00_25399)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8500z00_25389
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_6981) == 44L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8500z00_25389
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_6981) == 46L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8500z00_25389
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8509z00_25414;
																																													if (((long) (BgL_curz00_6981) >= 48L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8509z00_25414
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_6981)
																																																<
																																																60L);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8509z00_25414
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8509z00_25414)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8500z00_25389
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_6981) == 91L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8500z00_25389
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_6981) == 93L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8500z00_25389
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_6981) == 96L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8500z00_25389
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8514z00_25429;
																																																					if (((long) (BgL_curz00_6981) == 125L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8514z00_25429
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_6981) == 124L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8514z00_25429
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8514z00_25429
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6981)
																																																										==
																																																										123L);
																																																						}}
																																																					if (BgL_test8514z00_25429)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8500z00_25389
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8500z00_25389
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6981)
																																																								==
																																																								127L);
																																				}}}}}}}}}}
																																			if (BgL_test8500z00_25389)
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_6976;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_25444;
																																					long
																																						BgL_forwardz00_25442;
																																					long
																																						BgL_lastzd2matchzd2_25441;
																																					obj_t
																																						BgL_iportz00_25440;
																																					BgL_iportz00_25440
																																						=
																																						BgL_iportz00_6971;
																																					BgL_lastzd2matchzd2_25441
																																						=
																																						BgL_newzd2matchzd2_6976;
																																					BgL_forwardz00_25442
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_6973);
																																					BgL_bufposz00_25444
																																						=
																																						BgL_bufposz00_6974;
																																					BgL_bufposz00_5104
																																						=
																																						BgL_bufposz00_25444;
																																					BgL_forwardz00_5103
																																						=
																																						BgL_forwardz00_25442;
																																					BgL_lastzd2matchzd2_5102
																																						=
																																						BgL_lastzd2matchzd2_25441;
																																					BgL_iportz00_5101
																																						=
																																						BgL_iportz00_25440;
																																					goto
																																						BgL_zc3z04anonymousza33484ze3z87_5105;
																																				}
																																		}
																																}
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							bool_t BgL_test8517z00_25446;

																							if (
																								((long) (BgL_curz00_4645) ==
																									39L))
																								{	/* Read/reader.scm 441 */
																									BgL_test8517z00_25446 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									if (
																										((long) (BgL_curz00_4645) ==
																											44L))
																										{	/* Read/reader.scm 441 */
																											BgL_test8517z00_25446 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											BgL_test8517z00_25446 =
																												(
																												(long) (BgL_curz00_4645)
																												== 96L);
																								}}
																							if (BgL_test8517z00_25446)
																								{
																									long BgL_bufposz00_25459;
																									long BgL_forwardz00_25457;
																									long
																										BgL_lastzd2matchzd2_25456;
																									obj_t BgL_iportz00_25455;

																									BgL_iportz00_25455 =
																										BgL_iportz00_4635;
																									BgL_lastzd2matchzd2_25456 =
																										BgL_newzd2matchzd2_4640;
																									BgL_forwardz00_25457 =
																										(1L + BgL_forwardz00_4637);
																									BgL_bufposz00_25459 =
																										BgL_bufposz00_4638;
																									BgL_bufposz00_6106 =
																										BgL_bufposz00_25459;
																									BgL_forwardz00_6105 =
																										BgL_forwardz00_25457;
																									BgL_lastzd2matchzd2_6104 =
																										BgL_lastzd2matchzd2_25456;
																									BgL_iportz00_6103 =
																										BgL_iportz00_25455;
																									goto
																										BgL_zc3z04anonymousza33993ze3z87_6107;
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									bool_t BgL_test8520z00_25460;

																									if (
																										((long) (BgL_curz00_4645) <
																											33L))
																										{	/* Read/reader.scm 441 */
																											BgL_test8520z00_25460 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											bool_t
																												BgL_test8522z00_25464;
																											if (((long)
																													(BgL_curz00_4645) ==
																													35L))
																												{	/* Read/reader.scm 441 */
																													BgL_test8522z00_25464
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_test8522z00_25464
																														=
																														((long)
																														(BgL_curz00_4645) ==
																														34L);
																												}
																											if (BgL_test8522z00_25464)
																												{	/* Read/reader.scm 441 */
																													BgL_test8520z00_25460
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test8524z00_25470;
																													if (((long)
																															(BgL_curz00_4645)
																															== 41L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8524z00_25470
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_4645)
																																	== 40L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8524z00_25470
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test8524z00_25470
																																		=
																																		((long)
																																		(BgL_curz00_4645)
																																		== 39L);
																														}}
																													if (BgL_test8524z00_25470)
																														{	/* Read/reader.scm 441 */
																															BgL_test8520z00_25460
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_4645)
																																	== 44L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8520z00_25460
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_4645)
																																			== 46L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8520z00_25460
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8529z00_25485;
																																			if ((
																																					(long)
																																					(BgL_curz00_4645)
																																					>=
																																					48L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8529z00_25485
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_4645)
																																						<
																																						60L);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8529z00_25485
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test8529z00_25485)
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8520z00_25460
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_4645) == 91L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8520z00_25460
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_4645) == 93L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8520z00_25460
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_4645) == 96L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8520z00_25460
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_4645) == 105L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8520z00_25460
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8535z00_25503;
																																													if (((long) (BgL_curz00_4645) == 125L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8535z00_25503
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_4645) == 124L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8535z00_25503
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8535z00_25503
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_4645)
																																																		==
																																																		123L);
																																														}}
																																													if (BgL_test8535z00_25503)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8520z00_25460
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8520z00_25460
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_4645)
																																																==
																																																127L);
																										}}}}}}}}}}}
																									if (BgL_test8520z00_25460)
																										{	/* Read/reader.scm 441 */
																											BgL_matchz00_9716 =
																												BgL_newzd2matchzd2_4640;
																										}
																									else
																										{
																											long BgL_bufposz00_25518;
																											long BgL_forwardz00_25516;
																											long
																												BgL_lastzd2matchzd2_25515;
																											obj_t BgL_iportz00_25514;

																											BgL_iportz00_25514 =
																												BgL_iportz00_4635;
																											BgL_lastzd2matchzd2_25515
																												=
																												BgL_newzd2matchzd2_4640;
																											BgL_forwardz00_25516 =
																												(1L +
																												BgL_forwardz00_4637);
																											BgL_bufposz00_25518 =
																												BgL_bufposz00_4638;
																											BgL_bufposz00_4964 =
																												BgL_bufposz00_25518;
																											BgL_forwardz00_4963 =
																												BgL_forwardz00_25516;
																											BgL_lastzd2matchzd2_4962 =
																												BgL_lastzd2matchzd2_25515;
																											BgL_iportz00_4961 =
																												BgL_iportz00_25514;
																											goto
																												BgL_zc3z04anonymousza33413ze3z87_4965;
																										}
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 44L:

											BgL_iportz00_8449 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_8450 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_8451 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_8452 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza35188ze3z87_8453:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_8454;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_25520;

													BgL_tmpz00_25520 = ((obj_t) BgL_iportz00_8449);
													RGC_STOP_MATCH(BgL_tmpz00_25520, BgL_forwardz00_8451);
												}
												BgL_newzd2matchzd2_8454 = 26L;
												if ((BgL_forwardz00_8451 == BgL_bufposz00_8452))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_8449)))
															{	/* Read/reader.scm 441 */
																long BgL_arg5191z00_8457;
																long BgL_arg5192z00_8458;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_25528;

																	BgL_tmpz00_25528 =
																		((obj_t) BgL_iportz00_8449);
																	BgL_arg5191z00_8457 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_25528);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_25531;

																	BgL_tmpz00_25531 =
																		((obj_t) BgL_iportz00_8449);
																	BgL_arg5192z00_8458 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_25531);
																}
																{
																	long BgL_bufposz00_25535;
																	long BgL_forwardz00_25534;

																	BgL_forwardz00_25534 = BgL_arg5191z00_8457;
																	BgL_bufposz00_25535 = BgL_arg5192z00_8458;
																	BgL_bufposz00_8452 = BgL_bufposz00_25535;
																	BgL_forwardz00_8451 = BgL_forwardz00_25534;
																	goto BgL_zc3z04anonymousza35188ze3z87_8453;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_8454;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_8459;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_25536;

															BgL_tmpz00_25536 = ((obj_t) BgL_iportz00_8449);
															BgL_curz00_8459 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_25536,
																BgL_forwardz00_8451);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_8459) == 64L))
																{	/* Read/reader.scm 441 */
																	long BgL_arg5194z00_8461;

																	BgL_arg5194z00_8461 =
																		(1L + BgL_forwardz00_8451);
																	{	/* Read/reader.scm 441 */
																		long BgL_newzd2matchzd2_15903;

																		{	/* Read/reader.scm 441 */
																			obj_t BgL_tmpz00_25543;

																			BgL_tmpz00_25543 =
																				((obj_t) BgL_iportz00_8449);
																			RGC_STOP_MATCH(BgL_tmpz00_25543,
																				BgL_arg5194z00_8461);
																		}
																		BgL_newzd2matchzd2_15903 = 27L;
																		BgL_matchz00_9716 =
																			BgL_newzd2matchzd2_15903;
																}}
															else
																{	/* Read/reader.scm 441 */
																	BgL_matchz00_9716 = BgL_newzd2matchzd2_8454;
																}
														}
													}
											}
											break;
										case 43L:

											BgL_iportz00_9400 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_9401 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_9402 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_9403 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza35679ze3z87_9404:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_9405;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_25547;

													BgL_tmpz00_25547 = ((obj_t) BgL_iportz00_9400);
													RGC_STOP_MATCH(BgL_tmpz00_25547, BgL_forwardz00_9402);
												}
												BgL_newzd2matchzd2_9405 = 22L;
												if ((BgL_forwardz00_9402 == BgL_bufposz00_9403))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_9400)))
															{	/* Read/reader.scm 441 */
																long BgL_arg5682z00_9408;
																long BgL_arg5683z00_9409;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_25555;

																	BgL_tmpz00_25555 =
																		((obj_t) BgL_iportz00_9400);
																	BgL_arg5682z00_9408 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_25555);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_25558;

																	BgL_tmpz00_25558 =
																		((obj_t) BgL_iportz00_9400);
																	BgL_arg5683z00_9409 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_25558);
																}
																{
																	long BgL_bufposz00_25562;
																	long BgL_forwardz00_25561;

																	BgL_forwardz00_25561 = BgL_arg5682z00_9408;
																	BgL_bufposz00_25562 = BgL_arg5683z00_9409;
																	BgL_bufposz00_9403 = BgL_bufposz00_25562;
																	BgL_forwardz00_9402 = BgL_forwardz00_25561;
																	goto BgL_zc3z04anonymousza35679ze3z87_9404;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_9405;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_9410;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_25563;

															BgL_tmpz00_25563 = ((obj_t) BgL_iportz00_9400);
															BgL_curz00_9410 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_25563,
																BgL_forwardz00_9402);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_9410) == 110L))
																{	/* Read/reader.scm 441 */
																	BgL_iportz00_8054 = BgL_iportz00_9400;
																	BgL_lastzd2matchzd2_8055 =
																		BgL_newzd2matchzd2_9405;
																	BgL_forwardz00_8056 =
																		(1L + BgL_forwardz00_9402);
																	BgL_bufposz00_8057 = BgL_bufposz00_9403;
																BgL_zc3z04anonymousza34996ze3z87_8058:
																	{	/* Read/reader.scm 441 */
																		long BgL_newzd2matchzd2_8059;

																		{	/* Read/reader.scm 441 */
																			obj_t BgL_tmpz00_25569;

																			BgL_tmpz00_25569 =
																				((obj_t) BgL_iportz00_8054);
																			RGC_STOP_MATCH(BgL_tmpz00_25569,
																				BgL_forwardz00_8056);
																		}
																		BgL_newzd2matchzd2_8059 = 22L;
																		if (
																			(BgL_forwardz00_8056 ==
																				BgL_bufposz00_8057))
																			{	/* Read/reader.scm 441 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_8054)))
																					{	/* Read/reader.scm 441 */
																						long BgL_arg4999z00_8062;
																						long BgL_arg5000z00_8063;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_25577;

																							BgL_tmpz00_25577 =
																								((obj_t) BgL_iportz00_8054);
																							BgL_arg4999z00_8062 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_25577);
																						}
																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_25580;

																							BgL_tmpz00_25580 =
																								((obj_t) BgL_iportz00_8054);
																							BgL_arg5000z00_8063 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_25580);
																						}
																						{
																							long BgL_bufposz00_25584;
																							long BgL_forwardz00_25583;

																							BgL_forwardz00_25583 =
																								BgL_arg4999z00_8062;
																							BgL_bufposz00_25584 =
																								BgL_arg5000z00_8063;
																							BgL_bufposz00_8057 =
																								BgL_bufposz00_25584;
																							BgL_forwardz00_8056 =
																								BgL_forwardz00_25583;
																							goto
																								BgL_zc3z04anonymousza34996ze3z87_8058;
																						}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						BgL_matchz00_9716 =
																							BgL_newzd2matchzd2_8059;
																					}
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				int BgL_curz00_8064;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_25585;

																					BgL_tmpz00_25585 =
																						((obj_t) BgL_iportz00_8054);
																					BgL_curz00_8064 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_25585,
																						BgL_forwardz00_8056);
																				}
																				{	/* Read/reader.scm 441 */

																					if (((long) (BgL_curz00_8064) == 97L))
																						{	/* Read/reader.scm 441 */
																							BgL_iportz00_5241 =
																								BgL_iportz00_8054;
																							BgL_lastzd2matchzd2_5242 =
																								BgL_newzd2matchzd2_8059;
																							BgL_forwardz00_5243 =
																								(1L + BgL_forwardz00_8056);
																							BgL_bufposz00_5244 =
																								BgL_bufposz00_8057;
																						BgL_zc3z04anonymousza33556ze3z87_5245:
																							{	/* Read/reader.scm 441 */
																								long BgL_newzd2matchzd2_5246;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_25591;

																									BgL_tmpz00_25591 =
																										((obj_t) BgL_iportz00_5241);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_25591,
																										BgL_forwardz00_5243);
																								}
																								BgL_newzd2matchzd2_5246 = 22L;
																								if (
																									(BgL_forwardz00_5243 ==
																										BgL_bufposz00_5244))
																									{	/* Read/reader.scm 441 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_5241)))
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_arg3559z00_5249;
																												long
																													BgL_arg3561z00_5250;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_25599;
																													BgL_tmpz00_25599 =
																														((obj_t)
																														BgL_iportz00_5241);
																													BgL_arg3559z00_5249 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_25599);
																												}
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_25602;
																													BgL_tmpz00_25602 =
																														((obj_t)
																														BgL_iportz00_5241);
																													BgL_arg3561z00_5250 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_25602);
																												}
																												{
																													long
																														BgL_bufposz00_25606;
																													long
																														BgL_forwardz00_25605;
																													BgL_forwardz00_25605 =
																														BgL_arg3559z00_5249;
																													BgL_bufposz00_25606 =
																														BgL_arg3561z00_5250;
																													BgL_bufposz00_5244 =
																														BgL_bufposz00_25606;
																													BgL_forwardz00_5243 =
																														BgL_forwardz00_25605;
																													goto
																														BgL_zc3z04anonymousza33556ze3z87_5245;
																												}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												BgL_matchz00_9716 =
																													BgL_newzd2matchzd2_5246;
																											}
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										int BgL_curz00_5251;

																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_25607;

																											BgL_tmpz00_25607 =
																												((obj_t)
																												BgL_iportz00_5241);
																											BgL_curz00_5251 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_25607,
																												BgL_forwardz00_5243);
																										}
																										{	/* Read/reader.scm 441 */

																											if (
																												((long)
																													(BgL_curz00_5251) ==
																													110L))
																												{	/* Read/reader.scm 441 */
																													BgL_iportz00_8120 =
																														BgL_iportz00_5241;
																													BgL_lastzd2matchzd2_8121
																														=
																														BgL_newzd2matchzd2_5246;
																													BgL_forwardz00_8122 =
																														(1L +
																														BgL_forwardz00_5243);
																													BgL_bufposz00_8123 =
																														BgL_bufposz00_5244;
																												BgL_zc3z04anonymousza35030ze3z87_8124:
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_newzd2matchzd2_8125;
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_25613;
																															BgL_tmpz00_25613 =
																																((obj_t)
																																BgL_iportz00_8120);
																															RGC_STOP_MATCH
																																(BgL_tmpz00_25613,
																																BgL_forwardz00_8122);
																														}
																														BgL_newzd2matchzd2_8125
																															= 22L;
																														if (
																															(BgL_forwardz00_8122
																																==
																																BgL_bufposz00_8123))
																															{	/* Read/reader.scm 441 */
																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_8120)))
																																	{	/* Read/reader.scm 441 */
																																		long
																																			BgL_arg5033z00_8128;
																																		long
																																			BgL_arg5034z00_8129;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_25621;
																																			BgL_tmpz00_25621
																																				=
																																				((obj_t)
																																				BgL_iportz00_8120);
																																			BgL_arg5033z00_8128
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_tmpz00_25621);
																																		}
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_25624;
																																			BgL_tmpz00_25624
																																				=
																																				((obj_t)
																																				BgL_iportz00_8120);
																																			BgL_arg5034z00_8129
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_tmpz00_25624);
																																		}
																																		{
																																			long
																																				BgL_bufposz00_25628;
																																			long
																																				BgL_forwardz00_25627;
																																			BgL_forwardz00_25627
																																				=
																																				BgL_arg5033z00_8128;
																																			BgL_bufposz00_25628
																																				=
																																				BgL_arg5034z00_8129;
																																			BgL_bufposz00_8123
																																				=
																																				BgL_bufposz00_25628;
																																			BgL_forwardz00_8122
																																				=
																																				BgL_forwardz00_25627;
																																			goto
																																				BgL_zc3z04anonymousza35030ze3z87_8124;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		BgL_matchz00_9716
																																			=
																																			BgL_newzd2matchzd2_8125;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																int
																																	BgL_curz00_8130;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_25629;
																																	BgL_tmpz00_25629
																																		=
																																		((obj_t)
																																		BgL_iportz00_8120);
																																	BgL_curz00_8130
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_tmpz00_25629,
																																		BgL_forwardz00_8122);
																																}
																																{	/* Read/reader.scm 441 */

																																	if (
																																		((long)
																																			(BgL_curz00_8130)
																																			== 58L))
																																		{
																																			long
																																				BgL_bufposz00_25639;
																																			long
																																				BgL_forwardz00_25637;
																																			long
																																				BgL_lastzd2matchzd2_25636;
																																			obj_t
																																				BgL_iportz00_25635;
																																			BgL_iportz00_25635
																																				=
																																				BgL_iportz00_8120;
																																			BgL_lastzd2matchzd2_25636
																																				=
																																				BgL_newzd2matchzd2_8125;
																																			BgL_forwardz00_25637
																																				=
																																				(1L +
																																				BgL_forwardz00_8122);
																																			BgL_bufposz00_25639
																																				=
																																				BgL_bufposz00_8123;
																																			BgL_bufposz00_6395
																																				=
																																				BgL_bufposz00_25639;
																																			BgL_forwardz00_6394
																																				=
																																				BgL_forwardz00_25637;
																																			BgL_lastzd2matchzd2_6393
																																				=
																																				BgL_lastzd2matchzd2_25636;
																																			BgL_iportz00_6392
																																				=
																																				BgL_iportz00_25635;
																																			goto
																																				BgL_zc3z04anonymousza34142ze3z87_6396;
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_8130)
																																					==
																																					46L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_iportz00_6750
																																						=
																																						BgL_iportz00_8120;
																																					BgL_lastzd2matchzd2_6751
																																						=
																																						BgL_newzd2matchzd2_8125;
																																					BgL_forwardz00_6752
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_8122);
																																					BgL_bufposz00_6753
																																						=
																																						BgL_bufposz00_8123;
																																				BgL_zc3z04anonymousza34333ze3z87_6754:
																																					{	/* Read/reader.scm 441 */
																																						long
																																							BgL_newzd2matchzd2_6755;
																																						{	/* Read/reader.scm 441 */
																																							obj_t
																																								BgL_tmpz00_25643;
																																							BgL_tmpz00_25643
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_6750);
																																							RGC_STOP_MATCH
																																								(BgL_tmpz00_25643,
																																								BgL_forwardz00_6752);
																																						}
																																						BgL_newzd2matchzd2_6755
																																							=
																																							22L;
																																						if (
																																							(BgL_forwardz00_6752
																																								==
																																								BgL_bufposz00_6753))
																																							{	/* Read/reader.scm 441 */
																																								if (rgc_fill_buffer(((obj_t) BgL_iportz00_6750)))
																																									{	/* Read/reader.scm 441 */
																																										long
																																											BgL_arg4336z00_6758;
																																										long
																																											BgL_arg4337z00_6759;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_25651;
																																											BgL_tmpz00_25651
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_6750);
																																											BgL_arg4336z00_6758
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_tmpz00_25651);
																																										}
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_25654;
																																											BgL_tmpz00_25654
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_6750);
																																											BgL_arg4337z00_6759
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_tmpz00_25654);
																																										}
																																										{
																																											long
																																												BgL_bufposz00_25658;
																																											long
																																												BgL_forwardz00_25657;
																																											BgL_forwardz00_25657
																																												=
																																												BgL_arg4336z00_6758;
																																											BgL_bufposz00_25658
																																												=
																																												BgL_arg4337z00_6759;
																																											BgL_bufposz00_6753
																																												=
																																												BgL_bufposz00_25658;
																																											BgL_forwardz00_6752
																																												=
																																												BgL_forwardz00_25657;
																																											goto
																																												BgL_zc3z04anonymousza34333ze3z87_6754;
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										BgL_matchz00_9716
																																											=
																																											BgL_newzd2matchzd2_6755;
																																									}
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								int
																																									BgL_curz00_6760;
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_25659;
																																									BgL_tmpz00_25659
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_6750);
																																									BgL_curz00_6760
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_tmpz00_25659,
																																										BgL_forwardz00_6752);
																																								}
																																								{	/* Read/reader.scm 441 */

																																									if (((long) (BgL_curz00_6760) == 58L))
																																										{
																																											long
																																												BgL_bufposz00_25669;
																																											long
																																												BgL_forwardz00_25667;
																																											long
																																												BgL_lastzd2matchzd2_25666;
																																											obj_t
																																												BgL_iportz00_25665;
																																											BgL_iportz00_25665
																																												=
																																												BgL_iportz00_6750;
																																											BgL_lastzd2matchzd2_25666
																																												=
																																												BgL_newzd2matchzd2_6755;
																																											BgL_forwardz00_25667
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_6752);
																																											BgL_bufposz00_25669
																																												=
																																												BgL_bufposz00_6753;
																																											BgL_bufposz00_7305
																																												=
																																												BgL_bufposz00_25669;
																																											BgL_forwardz00_7304
																																												=
																																												BgL_forwardz00_25667;
																																											BgL_lastzd2matchzd2_7303
																																												=
																																												BgL_lastzd2matchzd2_25666;
																																											BgL_iportz00_7302
																																												=
																																												BgL_iportz00_25665;
																																											goto
																																												BgL_zc3z04anonymousza34616ze3z87_7306;
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test8557z00_25670;
																																											if (((long) (BgL_curz00_6760) >= 49L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8557z00_25670
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_6760)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8557z00_25670
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test8557z00_25670)
																																												{
																																													long
																																														BgL_bufposz00_25680;
																																													long
																																														BgL_forwardz00_25678;
																																													long
																																														BgL_lastzd2matchzd2_25677;
																																													obj_t
																																														BgL_iportz00_25676;
																																													BgL_iportz00_25676
																																														=
																																														BgL_iportz00_6750;
																																													BgL_lastzd2matchzd2_25677
																																														=
																																														BgL_newzd2matchzd2_6755;
																																													BgL_forwardz00_25678
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_6752);
																																													BgL_bufposz00_25680
																																														=
																																														BgL_bufposz00_6753;
																																													BgL_bufposz00_3944
																																														=
																																														BgL_bufposz00_25680;
																																													BgL_forwardz00_3943
																																														=
																																														BgL_forwardz00_25678;
																																													BgL_lastzd2matchzd2_3942
																																														=
																																														BgL_lastzd2matchzd2_25677;
																																													BgL_iportz00_3941
																																														=
																																														BgL_iportz00_25676;
																																													goto
																																														BgL_zc3z04anonymousza32753ze3z87_3945;
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_6760) == 48L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_iportz00_6618
																																																=
																																																BgL_iportz00_6750;
																																															BgL_lastzd2matchzd2_6619
																																																=
																																																BgL_newzd2matchzd2_6755;
																																															BgL_forwardz00_6620
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_6752);
																																															BgL_bufposz00_6621
																																																=
																																																BgL_bufposz00_6753;
																																														BgL_zc3z04anonymousza34263ze3z87_6622:
																																															{	/* Read/reader.scm 441 */
																																																long
																																																	BgL_newzd2matchzd2_6623;
																																																{	/* Read/reader.scm 441 */
																																																	obj_t
																																																		BgL_tmpz00_25684;
																																																	BgL_tmpz00_25684
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_6618);
																																																	RGC_STOP_MATCH
																																																		(BgL_tmpz00_25684,
																																																		BgL_forwardz00_6620);
																																																}
																																																BgL_newzd2matchzd2_6623
																																																	=
																																																	14L;
																																																if ((BgL_forwardz00_6620 == BgL_bufposz00_6621))
																																																	{	/* Read/reader.scm 441 */
																																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_6618)))
																																																			{	/* Read/reader.scm 441 */
																																																				long
																																																					BgL_arg4266z00_6626;
																																																				long
																																																					BgL_arg4267z00_6627;
																																																				{	/* Read/reader.scm 441 */
																																																					obj_t
																																																						BgL_tmpz00_25692;
																																																					BgL_tmpz00_25692
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6618);
																																																					BgL_arg4266z00_6626
																																																						=
																																																						RGC_BUFFER_FORWARD
																																																						(BgL_tmpz00_25692);
																																																				}
																																																				{	/* Read/reader.scm 441 */
																																																					obj_t
																																																						BgL_tmpz00_25695;
																																																					BgL_tmpz00_25695
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6618);
																																																					BgL_arg4267z00_6627
																																																						=
																																																						RGC_BUFFER_BUFPOS
																																																						(BgL_tmpz00_25695);
																																																				}
																																																				{
																																																					long
																																																						BgL_bufposz00_25699;
																																																					long
																																																						BgL_forwardz00_25698;
																																																					BgL_forwardz00_25698
																																																						=
																																																						BgL_arg4266z00_6626;
																																																					BgL_bufposz00_25699
																																																						=
																																																						BgL_arg4267z00_6627;
																																																					BgL_bufposz00_6621
																																																						=
																																																						BgL_bufposz00_25699;
																																																					BgL_forwardz00_6620
																																																						=
																																																						BgL_forwardz00_25698;
																																																					goto
																																																						BgL_zc3z04anonymousza34263ze3z87_6622;
																																																				}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_matchz00_9716
																																																					=
																																																					BgL_newzd2matchzd2_6623;
																																																			}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		int
																																																			BgL_curz00_6628;
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_25700;
																																																			BgL_tmpz00_25700
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6618);
																																																			BgL_curz00_6628
																																																				=
																																																				RGC_BUFFER_GET_CHAR
																																																				(BgL_tmpz00_25700,
																																																				BgL_forwardz00_6620);
																																																		}
																																																		{	/* Read/reader.scm 441 */

																																																			if (((long) (BgL_curz00_6628) == 58L))
																																																				{
																																																					long
																																																						BgL_bufposz00_25710;
																																																					long
																																																						BgL_forwardz00_25708;
																																																					long
																																																						BgL_lastzd2matchzd2_25707;
																																																					obj_t
																																																						BgL_iportz00_25706;
																																																					BgL_iportz00_25706
																																																						=
																																																						BgL_iportz00_6618;
																																																					BgL_lastzd2matchzd2_25707
																																																						=
																																																						BgL_newzd2matchzd2_6623;
																																																					BgL_forwardz00_25708
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6620);
																																																					BgL_bufposz00_25710
																																																						=
																																																						BgL_bufposz00_6621;
																																																					BgL_bufposz00_7305
																																																						=
																																																						BgL_bufposz00_25710;
																																																					BgL_forwardz00_7304
																																																						=
																																																						BgL_forwardz00_25708;
																																																					BgL_lastzd2matchzd2_7303
																																																						=
																																																						BgL_lastzd2matchzd2_25707;
																																																					BgL_iportz00_7302
																																																						=
																																																						BgL_iportz00_25706;
																																																					goto
																																																						BgL_zc3z04anonymousza34616ze3z87_7306;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8563z00_25711;
																																																					if (((long) (BgL_curz00_6628) >= 48L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8563z00_25711
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6628)
																																																								<
																																																								58L);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8563z00_25711
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test8563z00_25711)
																																																						{
																																																							long
																																																								BgL_bufposz00_25721;
																																																							long
																																																								BgL_forwardz00_25719;
																																																							long
																																																								BgL_lastzd2matchzd2_25718;
																																																							obj_t
																																																								BgL_iportz00_25717;
																																																							BgL_iportz00_25717
																																																								=
																																																								BgL_iportz00_6618;
																																																							BgL_lastzd2matchzd2_25718
																																																								=
																																																								BgL_newzd2matchzd2_6623;
																																																							BgL_forwardz00_25719
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6620);
																																																							BgL_bufposz00_25721
																																																								=
																																																								BgL_bufposz00_6621;
																																																							BgL_bufposz00_3944
																																																								=
																																																								BgL_bufposz00_25721;
																																																							BgL_forwardz00_3943
																																																								=
																																																								BgL_forwardz00_25719;
																																																							BgL_lastzd2matchzd2_3942
																																																								=
																																																								BgL_lastzd2matchzd2_25718;
																																																							BgL_iportz00_3941
																																																								=
																																																								BgL_iportz00_25717;
																																																							goto
																																																								BgL_zc3z04anonymousza32753ze3z87_3945;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_6628) == 46L))
																																																								{
																																																									long
																																																										BgL_bufposz00_25729;
																																																									long
																																																										BgL_forwardz00_25727;
																																																									long
																																																										BgL_lastzd2matchzd2_25726;
																																																									obj_t
																																																										BgL_iportz00_25725;
																																																									BgL_iportz00_25725
																																																										=
																																																										BgL_iportz00_6618;
																																																									BgL_lastzd2matchzd2_25726
																																																										=
																																																										BgL_newzd2matchzd2_6623;
																																																									BgL_forwardz00_25727
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_6620);
																																																									BgL_bufposz00_25729
																																																										=
																																																										BgL_bufposz00_6621;
																																																									BgL_bufposz00_9543
																																																										=
																																																										BgL_bufposz00_25729;
																																																									BgL_forwardz00_9542
																																																										=
																																																										BgL_forwardz00_25727;
																																																									BgL_lastzd2matchzd2_9541
																																																										=
																																																										BgL_lastzd2matchzd2_25726;
																																																									BgL_iportz00_9540
																																																										=
																																																										BgL_iportz00_25725;
																																																									goto
																																																										BgL_zc3z04anonymousza35755ze3z87_9544;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8566z00_25730;
																																																									if (((long) (BgL_curz00_6628) == 39L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8566z00_25730
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_6628) == 44L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8566z00_25730
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8566z00_25730
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6628)
																																																														==
																																																														96L);
																																																										}}
																																																									if (BgL_test8566z00_25730)
																																																										{
																																																											long
																																																												BgL_bufposz00_25743;
																																																											long
																																																												BgL_forwardz00_25741;
																																																											long
																																																												BgL_lastzd2matchzd2_25740;
																																																											obj_t
																																																												BgL_iportz00_25739;
																																																											BgL_iportz00_25739
																																																												=
																																																												BgL_iportz00_6618;
																																																											BgL_lastzd2matchzd2_25740
																																																												=
																																																												BgL_newzd2matchzd2_6623;
																																																											BgL_forwardz00_25741
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_6620);
																																																											BgL_bufposz00_25743
																																																												=
																																																												BgL_bufposz00_6621;
																																																											BgL_bufposz00_7366
																																																												=
																																																												BgL_bufposz00_25743;
																																																											BgL_forwardz00_7365
																																																												=
																																																												BgL_forwardz00_25741;
																																																											BgL_lastzd2matchzd2_7364
																																																												=
																																																												BgL_lastzd2matchzd2_25740;
																																																											BgL_iportz00_7363
																																																												=
																																																												BgL_iportz00_25739;
																																																											goto
																																																												BgL_zc3z04anonymousza34647ze3z87_7367;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8569z00_25744;
																																																											if (((long) (BgL_curz00_6628) < 33L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8569z00_25744
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8571z00_25748;
																																																													if (((long) (BgL_curz00_6628) == 35L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8571z00_25748
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8571z00_25748
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6628)
																																																																==
																																																																34L);
																																																														}
																																																													if (BgL_test8571z00_25748)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8569z00_25744
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test8573z00_25754;
																																																															if (((long) (BgL_curz00_6628) == 41L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8573z00_25754
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6628) == 40L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8573z00_25754
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8573z00_25754
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_6628)
																																																																				==
																																																																				39L);
																																																																}}
																																																															if (BgL_test8573z00_25754)
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8569z00_25744
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6628) == 44L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8569z00_25744
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_6628) == 46L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8569z00_25744
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					bool_t
																																																																						BgL_test8578z00_25769;
																																																																					if (((long) (BgL_curz00_6628) >= 48L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8578z00_25769
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_6628)
																																																																								<
																																																																								60L);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8578z00_25769
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								0);
																																																																						}
																																																																					if (BgL_test8578z00_25769)
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8569z00_25744
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_6628) == 91L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8569z00_25744
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_6628) == 93L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8569z00_25744
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											if (((long) (BgL_curz00_6628) == 96L))
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test8569z00_25744
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													bool_t
																																																																														BgL_test8583z00_25784;
																																																																													if (((long) (BgL_curz00_6628) == 125L))
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8583z00_25784
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															if (((long) (BgL_curz00_6628) == 124L))
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8583z00_25784
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8583z00_25784
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_6628)
																																																																																		==
																																																																																		123L);
																																																																														}}
																																																																													if (BgL_test8583z00_25784)
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8569z00_25744
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8569z00_25744
																																																																																=
																																																																																(
																																																																																(long)
																																																																																(BgL_curz00_6628)
																																																																																==
																																																																																127L);
																																																												}}}}}}}}}}
																																																											if (BgL_test8569z00_25744)
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_matchz00_9716
																																																														=
																																																														BgL_newzd2matchzd2_6623;
																																																												}
																																																											else
																																																												{
																																																													long
																																																														BgL_bufposz00_25799;
																																																													long
																																																														BgL_forwardz00_25797;
																																																													long
																																																														BgL_lastzd2matchzd2_25796;
																																																													obj_t
																																																														BgL_iportz00_25795;
																																																													BgL_iportz00_25795
																																																														=
																																																														BgL_iportz00_6618;
																																																													BgL_lastzd2matchzd2_25796
																																																														=
																																																														BgL_newzd2matchzd2_6623;
																																																													BgL_forwardz00_25797
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_6620);
																																																													BgL_bufposz00_25799
																																																														=
																																																														BgL_bufposz00_6621;
																																																													BgL_bufposz00_5104
																																																														=
																																																														BgL_bufposz00_25799;
																																																													BgL_forwardz00_5103
																																																														=
																																																														BgL_forwardz00_25797;
																																																													BgL_lastzd2matchzd2_5102
																																																														=
																																																														BgL_lastzd2matchzd2_25796;
																																																													BgL_iportz00_5101
																																																														=
																																																														BgL_iportz00_25795;
																																																													goto
																																																														BgL_zc3z04anonymousza33484ze3z87_5105;
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																	}
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_6760) == 46L))
																																																{
																																																	long
																																																		BgL_bufposz00_25808;
																																																	long
																																																		BgL_forwardz00_25806;
																																																	long
																																																		BgL_lastzd2matchzd2_25805;
																																																	obj_t
																																																		BgL_iportz00_25804;
																																																	BgL_iportz00_25804
																																																		=
																																																		BgL_iportz00_6750;
																																																	BgL_lastzd2matchzd2_25805
																																																		=
																																																		BgL_newzd2matchzd2_6755;
																																																	BgL_forwardz00_25806
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_6752);
																																																	BgL_bufposz00_25808
																																																		=
																																																		BgL_bufposz00_6753;
																																																	BgL_bufposz00_9543
																																																		=
																																																		BgL_bufposz00_25808;
																																																	BgL_forwardz00_9542
																																																		=
																																																		BgL_forwardz00_25806;
																																																	BgL_lastzd2matchzd2_9541
																																																		=
																																																		BgL_lastzd2matchzd2_25805;
																																																	BgL_iportz00_9540
																																																		=
																																																		BgL_iportz00_25804;
																																																	goto
																																																		BgL_zc3z04anonymousza35755ze3z87_9544;
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test8587z00_25809;
																																																	if (((long) (BgL_curz00_6760) == 39L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8587z00_25809
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_6760) == 44L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8587z00_25809
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8587z00_25809
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_6760)
																																																						==
																																																						96L);
																																																		}}
																																																	if (BgL_test8587z00_25809)
																																																		{
																																																			long
																																																				BgL_bufposz00_25822;
																																																			long
																																																				BgL_forwardz00_25820;
																																																			long
																																																				BgL_lastzd2matchzd2_25819;
																																																			obj_t
																																																				BgL_iportz00_25818;
																																																			BgL_iportz00_25818
																																																				=
																																																				BgL_iportz00_6750;
																																																			BgL_lastzd2matchzd2_25819
																																																				=
																																																				BgL_newzd2matchzd2_6755;
																																																			BgL_forwardz00_25820
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_6752);
																																																			BgL_bufposz00_25822
																																																				=
																																																				BgL_bufposz00_6753;
																																																			BgL_bufposz00_7366
																																																				=
																																																				BgL_bufposz00_25822;
																																																			BgL_forwardz00_7365
																																																				=
																																																				BgL_forwardz00_25820;
																																																			BgL_lastzd2matchzd2_7364
																																																				=
																																																				BgL_lastzd2matchzd2_25819;
																																																			BgL_iportz00_7363
																																																				=
																																																				BgL_iportz00_25818;
																																																			goto
																																																				BgL_zc3z04anonymousza34647ze3z87_7367;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8590z00_25823;
																																																			if (((long) (BgL_curz00_6760) < 33L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8590z00_25823
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8592z00_25827;
																																																					if (((long) (BgL_curz00_6760) == 35L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8592z00_25827
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8592z00_25827
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6760)
																																																								==
																																																								34L);
																																																						}
																																																					if (BgL_test8592z00_25827)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8590z00_25823
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8594z00_25833;
																																																							if (((long) (BgL_curz00_6760) == 41L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8594z00_25833
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_6760) == 40L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8594z00_25833
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8594z00_25833
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_6760)
																																																												==
																																																												39L);
																																																								}}
																																																							if (BgL_test8594z00_25833)
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8590z00_25823
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_6760) == 44L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8590z00_25823
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_6760) == 46L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8590z00_25823
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8599z00_25848;
																																																													if (((long) (BgL_curz00_6760) >= 48L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8599z00_25848
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6760)
																																																																<
																																																																60L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8599z00_25848
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test8599z00_25848)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8590z00_25823
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															if (((long) (BgL_curz00_6760) == 91L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8590z00_25823
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6760) == 93L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8590z00_25823
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_6760) == 96L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8590z00_25823
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					bool_t
																																																																						BgL_test8604z00_25863;
																																																																					if (((long) (BgL_curz00_6760) == 125L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8604z00_25863
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							if (((long) (BgL_curz00_6760) == 124L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8604z00_25863
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8604z00_25863
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_6760)
																																																																										==
																																																																										123L);
																																																																						}}
																																																																					if (BgL_test8604z00_25863)
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8590z00_25823
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8590z00_25823
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_6760)
																																																																								==
																																																																								127L);
																																																				}}}}}}}}}}
																																																			if (BgL_test8590z00_25823)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_matchz00_9716
																																																						=
																																																						BgL_newzd2matchzd2_6755;
																																																				}
																																																			else
																																																				{
																																																					long
																																																						BgL_bufposz00_25878;
																																																					long
																																																						BgL_forwardz00_25876;
																																																					long
																																																						BgL_lastzd2matchzd2_25875;
																																																					obj_t
																																																						BgL_iportz00_25874;
																																																					BgL_iportz00_25874
																																																						=
																																																						BgL_iportz00_6750;
																																																					BgL_lastzd2matchzd2_25875
																																																						=
																																																						BgL_newzd2matchzd2_6755;
																																																					BgL_forwardz00_25876
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6752);
																																																					BgL_bufposz00_25878
																																																						=
																																																						BgL_bufposz00_6753;
																																																					BgL_bufposz00_5104
																																																						=
																																																						BgL_bufposz00_25878;
																																																					BgL_forwardz00_5103
																																																						=
																																																						BgL_forwardz00_25876;
																																																					BgL_lastzd2matchzd2_5102
																																																						=
																																																						BgL_lastzd2matchzd2_25875;
																																																					BgL_iportz00_5101
																																																						=
																																																						BgL_iportz00_25874;
																																																					goto
																																																						BgL_zc3z04anonymousza33484ze3z87_5105;
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8607z00_25880;
																																					if ((
																																							(long)
																																							(BgL_curz00_8130)
																																							==
																																							39L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8607z00_25880
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_8130) == 44L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8607z00_25880
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8607z00_25880
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_8130)
																																										==
																																										96L);
																																						}}
																																					if (BgL_test8607z00_25880)
																																						{
																																							long
																																								BgL_bufposz00_25893;
																																							long
																																								BgL_forwardz00_25891;
																																							long
																																								BgL_lastzd2matchzd2_25890;
																																							obj_t
																																								BgL_iportz00_25889;
																																							BgL_iportz00_25889
																																								=
																																								BgL_iportz00_8120;
																																							BgL_lastzd2matchzd2_25890
																																								=
																																								BgL_newzd2matchzd2_8125;
																																							BgL_forwardz00_25891
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_8122);
																																							BgL_bufposz00_25893
																																								=
																																								BgL_bufposz00_8123;
																																							BgL_bufposz00_6106
																																								=
																																								BgL_bufposz00_25893;
																																							BgL_forwardz00_6105
																																								=
																																								BgL_forwardz00_25891;
																																							BgL_lastzd2matchzd2_6104
																																								=
																																								BgL_lastzd2matchzd2_25890;
																																							BgL_iportz00_6103
																																								=
																																								BgL_iportz00_25889;
																																							goto
																																								BgL_zc3z04anonymousza33993ze3z87_6107;
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8610z00_25894;
																																							if (((long) (BgL_curz00_8130) < 33L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8610z00_25894
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8612z00_25898;
																																									if (((long) (BgL_curz00_8130) == 35L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8612z00_25898
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8612z00_25898
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8130)
																																												==
																																												34L);
																																										}
																																									if (BgL_test8612z00_25898)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8610z00_25894
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test8614z00_25904;
																																											if (((long) (BgL_curz00_8130) == 41L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8614z00_25904
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_8130) == 40L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8614z00_25904
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8614z00_25904
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_8130)
																																																==
																																																39L);
																																												}}
																																											if (BgL_test8614z00_25904)
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8610z00_25894
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_8130) == 44L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8610z00_25894
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_8130) == 46L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8610z00_25894
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test8619z00_25919;
																																																	if (((long) (BgL_curz00_8130) == 59L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8619z00_25919
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8619z00_25919
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_8130)
																																																				==
																																																				58L);
																																																		}
																																																	if (BgL_test8619z00_25919)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8610z00_25894
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_8130) == 91L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8610z00_25894
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_8130) == 93L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8610z00_25894
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_8130) == 96L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8610z00_25894
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8624z00_25934;
																																																									if (((long) (BgL_curz00_8130) == 125L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8624z00_25934
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_8130) == 124L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8624z00_25934
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8624z00_25934
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_8130)
																																																														==
																																																														123L);
																																																										}}
																																																									if (BgL_test8624z00_25934)
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8610z00_25894
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8610z00_25894
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_8130)
																																																												==
																																																												127L);
																																								}}}}}}}}}}
																																							if (BgL_test8610z00_25894)
																																								{	/* Read/reader.scm 441 */
																																									BgL_matchz00_9716
																																										=
																																										BgL_newzd2matchzd2_8125;
																																								}
																																							else
																																								{
																																									long
																																										BgL_bufposz00_25949;
																																									long
																																										BgL_forwardz00_25947;
																																									long
																																										BgL_lastzd2matchzd2_25946;
																																									obj_t
																																										BgL_iportz00_25945;
																																									BgL_iportz00_25945
																																										=
																																										BgL_iportz00_8120;
																																									BgL_lastzd2matchzd2_25946
																																										=
																																										BgL_newzd2matchzd2_8125;
																																									BgL_forwardz00_25947
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_8122);
																																									BgL_bufposz00_25949
																																										=
																																										BgL_bufposz00_8123;
																																									BgL_bufposz00_4964
																																										=
																																										BgL_bufposz00_25949;
																																									BgL_forwardz00_4963
																																										=
																																										BgL_forwardz00_25947;
																																									BgL_lastzd2matchzd2_4962
																																										=
																																										BgL_lastzd2matchzd2_25946;
																																									BgL_iportz00_4961
																																										=
																																										BgL_iportz00_25945;
																																									goto
																																										BgL_zc3z04anonymousza33413ze3z87_4965;
																																								}
																																						}
																																				}
																																		}
																																}
																															}
																													}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													if (
																														((long)
																															(BgL_curz00_5251)
																															== 58L))
																														{
																															long
																																BgL_bufposz00_25958;
																															long
																																BgL_forwardz00_25956;
																															long
																																BgL_lastzd2matchzd2_25955;
																															obj_t
																																BgL_iportz00_25954;
																															BgL_iportz00_25954
																																=
																																BgL_iportz00_5241;
																															BgL_lastzd2matchzd2_25955
																																=
																																BgL_newzd2matchzd2_5246;
																															BgL_forwardz00_25956
																																=
																																(1L +
																																BgL_forwardz00_5243);
																															BgL_bufposz00_25958
																																=
																																BgL_bufposz00_5244;
																															BgL_bufposz00_6395
																																=
																																BgL_bufposz00_25958;
																															BgL_forwardz00_6394
																																=
																																BgL_forwardz00_25956;
																															BgL_lastzd2matchzd2_6393
																																=
																																BgL_lastzd2matchzd2_25955;
																															BgL_iportz00_6392
																																=
																																BgL_iportz00_25954;
																															goto
																																BgL_zc3z04anonymousza34142ze3z87_6396;
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_5251)
																																	== 46L))
																																{
																																	long
																																		BgL_bufposz00_25966;
																																	long
																																		BgL_forwardz00_25964;
																																	long
																																		BgL_lastzd2matchzd2_25963;
																																	obj_t
																																		BgL_iportz00_25962;
																																	BgL_iportz00_25962
																																		=
																																		BgL_iportz00_5241;
																																	BgL_lastzd2matchzd2_25963
																																		=
																																		BgL_newzd2matchzd2_5246;
																																	BgL_forwardz00_25964
																																		=
																																		(1L +
																																		BgL_forwardz00_5243);
																																	BgL_bufposz00_25966
																																		=
																																		BgL_bufposz00_5244;
																																	BgL_bufposz00_3944
																																		=
																																		BgL_bufposz00_25966;
																																	BgL_forwardz00_3943
																																		=
																																		BgL_forwardz00_25964;
																																	BgL_lastzd2matchzd2_3942
																																		=
																																		BgL_lastzd2matchzd2_25963;
																																	BgL_iportz00_3941
																																		=
																																		BgL_iportz00_25962;
																																	goto
																																		BgL_zc3z04anonymousza32753ze3z87_3945;
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test8629z00_25967;
																																	if (((long)
																																			(BgL_curz00_5251)
																																			== 39L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8629z00_25967
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_5251)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8629z00_25967
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8629z00_25967
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_5251)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test8629z00_25967)
																																		{
																																			long
																																				BgL_bufposz00_25980;
																																			long
																																				BgL_forwardz00_25978;
																																			long
																																				BgL_lastzd2matchzd2_25977;
																																			obj_t
																																				BgL_iportz00_25976;
																																			BgL_iportz00_25976
																																				=
																																				BgL_iportz00_5241;
																																			BgL_lastzd2matchzd2_25977
																																				=
																																				BgL_newzd2matchzd2_5246;
																																			BgL_forwardz00_25978
																																				=
																																				(1L +
																																				BgL_forwardz00_5243);
																																			BgL_bufposz00_25980
																																				=
																																				BgL_bufposz00_5244;
																																			BgL_bufposz00_6106
																																				=
																																				BgL_bufposz00_25980;
																																			BgL_forwardz00_6105
																																				=
																																				BgL_forwardz00_25978;
																																			BgL_lastzd2matchzd2_6104
																																				=
																																				BgL_lastzd2matchzd2_25977;
																																			BgL_iportz00_6103
																																				=
																																				BgL_iportz00_25976;
																																			goto
																																				BgL_zc3z04anonymousza33993ze3z87_6107;
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8632z00_25981;
																																			if ((
																																					(long)
																																					(BgL_curz00_5251)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8632z00_25981
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8634z00_25985;
																																					if ((
																																							(long)
																																							(BgL_curz00_5251)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8634z00_25985
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8634z00_25985
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5251)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8634z00_25985)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8632z00_25981
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8636z00_25991;
																																							if (((long) (BgL_curz00_5251) == 41L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8636z00_25991
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_5251) == 40L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8636z00_25991
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8636z00_25991
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5251)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test8636z00_25991)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8632z00_25981
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_5251) == 44L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8632z00_25981
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_5251) == 46L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8632z00_25981
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8641z00_26006;
																																													if (((long) (BgL_curz00_5251) == 59L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8641z00_26006
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8641z00_26006
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_5251)
																																																==
																																																58L);
																																														}
																																													if (BgL_test8641z00_26006)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8632z00_25981
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_5251) == 91L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8632z00_25981
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_5251) == 93L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8632z00_25981
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_5251) == 96L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8632z00_25981
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_5251) == 110L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8632z00_25981
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8647z00_26024;
																																																							if (((long) (BgL_curz00_5251) == 125L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8647z00_26024
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_5251) == 124L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8647z00_26024
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8647z00_26024
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5251)
																																																												==
																																																												123L);
																																																								}}
																																																							if (BgL_test8647z00_26024)
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8632z00_25981
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8632z00_25981
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_5251)
																																																										==
																																																										127L);
																																				}}}}}}}}}}}
																																			if (BgL_test8632z00_25981)
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_5246;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_26039;
																																					long
																																						BgL_forwardz00_26037;
																																					long
																																						BgL_lastzd2matchzd2_26036;
																																					obj_t
																																						BgL_iportz00_26035;
																																					BgL_iportz00_26035
																																						=
																																						BgL_iportz00_5241;
																																					BgL_lastzd2matchzd2_26036
																																						=
																																						BgL_newzd2matchzd2_5246;
																																					BgL_forwardz00_26037
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5243);
																																					BgL_bufposz00_26039
																																						=
																																						BgL_bufposz00_5244;
																																					BgL_bufposz00_4964
																																						=
																																						BgL_bufposz00_26039;
																																					BgL_forwardz00_4963
																																						=
																																						BgL_forwardz00_26037;
																																					BgL_lastzd2matchzd2_4962
																																						=
																																						BgL_lastzd2matchzd2_26036;
																																					BgL_iportz00_4961
																																						=
																																						BgL_iportz00_26035;
																																					goto
																																						BgL_zc3z04anonymousza33413ze3z87_4965;
																																				}
																																		}
																																}
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							if (
																								((long) (BgL_curz00_8064) ==
																									58L))
																								{
																									long BgL_bufposz00_26048;
																									long BgL_forwardz00_26046;
																									long
																										BgL_lastzd2matchzd2_26045;
																									obj_t BgL_iportz00_26044;

																									BgL_iportz00_26044 =
																										BgL_iportz00_8054;
																									BgL_lastzd2matchzd2_26045 =
																										BgL_newzd2matchzd2_8059;
																									BgL_forwardz00_26046 =
																										(1L + BgL_forwardz00_8056);
																									BgL_bufposz00_26048 =
																										BgL_bufposz00_8057;
																									BgL_bufposz00_6395 =
																										BgL_bufposz00_26048;
																									BgL_forwardz00_6394 =
																										BgL_forwardz00_26046;
																									BgL_lastzd2matchzd2_6393 =
																										BgL_lastzd2matchzd2_26045;
																									BgL_iportz00_6392 =
																										BgL_iportz00_26044;
																									goto
																										BgL_zc3z04anonymousza34142ze3z87_6396;
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									if (
																										((long) (BgL_curz00_8064) ==
																											46L))
																										{
																											long BgL_bufposz00_26056;
																											long BgL_forwardz00_26054;
																											long
																												BgL_lastzd2matchzd2_26053;
																											obj_t BgL_iportz00_26052;

																											BgL_iportz00_26052 =
																												BgL_iportz00_8054;
																											BgL_lastzd2matchzd2_26053
																												=
																												BgL_newzd2matchzd2_8059;
																											BgL_forwardz00_26054 =
																												(1L +
																												BgL_forwardz00_8056);
																											BgL_bufposz00_26056 =
																												BgL_bufposz00_8057;
																											BgL_bufposz00_3944 =
																												BgL_bufposz00_26056;
																											BgL_forwardz00_3943 =
																												BgL_forwardz00_26054;
																											BgL_lastzd2matchzd2_3942 =
																												BgL_lastzd2matchzd2_26053;
																											BgL_iportz00_3941 =
																												BgL_iportz00_26052;
																											goto
																												BgL_zc3z04anonymousza32753ze3z87_3945;
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											bool_t
																												BgL_test8652z00_26057;
																											if (((long)
																													(BgL_curz00_8064) ==
																													39L))
																												{	/* Read/reader.scm 441 */
																													BgL_test8652z00_26057
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													if (
																														((long)
																															(BgL_curz00_8064)
																															== 44L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8652z00_26057
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_test8652z00_26057
																																=
																																((long)
																																(BgL_curz00_8064)
																																== 96L);
																												}}
																											if (BgL_test8652z00_26057)
																												{
																													long
																														BgL_bufposz00_26070;
																													long
																														BgL_forwardz00_26068;
																													long
																														BgL_lastzd2matchzd2_26067;
																													obj_t
																														BgL_iportz00_26066;
																													BgL_iportz00_26066 =
																														BgL_iportz00_8054;
																													BgL_lastzd2matchzd2_26067
																														=
																														BgL_newzd2matchzd2_8059;
																													BgL_forwardz00_26068 =
																														(1L +
																														BgL_forwardz00_8056);
																													BgL_bufposz00_26070 =
																														BgL_bufposz00_8057;
																													BgL_bufposz00_6106 =
																														BgL_bufposz00_26070;
																													BgL_forwardz00_6105 =
																														BgL_forwardz00_26068;
																													BgL_lastzd2matchzd2_6104
																														=
																														BgL_lastzd2matchzd2_26067;
																													BgL_iportz00_6103 =
																														BgL_iportz00_26066;
																													goto
																														BgL_zc3z04anonymousza33993ze3z87_6107;
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test8655z00_26071;
																													if (((long)
																															(BgL_curz00_8064)
																															< 33L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8655z00_26071
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test8657z00_26075;
																															if (((long)
																																	(BgL_curz00_8064)
																																	== 35L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8657z00_26075
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test8657z00_26075
																																		=
																																		((long)
																																		(BgL_curz00_8064)
																																		== 34L);
																																}
																															if (BgL_test8657z00_26075)
																																{	/* Read/reader.scm 441 */
																																	BgL_test8655z00_26071
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test8659z00_26081;
																																	if (((long)
																																			(BgL_curz00_8064)
																																			== 41L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8659z00_26081
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_8064)
																																					==
																																					40L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8659z00_26081
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8659z00_26081
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_8064)
																																						==
																																						39L);
																																		}}
																																	if (BgL_test8659z00_26081)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8655z00_26071
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_8064)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8655z00_26071
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_8064) == 46L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8655z00_26071
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8664z00_26096;
																																							if (((long) (BgL_curz00_8064) == 59L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8664z00_26096
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8664z00_26096
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_8064)
																																										==
																																										58L);
																																								}
																																							if (BgL_test8664z00_26096)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8655z00_26071
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_8064) == 91L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8655z00_26071
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_8064) == 93L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8655z00_26071
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8668z00_26108;
																																													if (((long) (BgL_curz00_8064) == 97L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8668z00_26108
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8668z00_26108
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_8064)
																																																==
																																																96L);
																																														}
																																													if (BgL_test8668z00_26108)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8655z00_26071
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test8670z00_26114;
																																															if (((long) (BgL_curz00_8064) == 125L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8670z00_26114
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_8064) == 124L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8670z00_26114
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8670z00_26114
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_8064)
																																																				==
																																																				123L);
																																																}}
																																															if (BgL_test8670z00_26114)
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8655z00_26071
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8655z00_26071
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_8064)
																																																		==
																																																		127L);
																														}}}}}}}}}}
																													if (BgL_test8655z00_26071)
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_8059;
																														}
																													else
																														{
																															long
																																BgL_bufposz00_26129;
																															long
																																BgL_forwardz00_26127;
																															long
																																BgL_lastzd2matchzd2_26126;
																															obj_t
																																BgL_iportz00_26125;
																															BgL_iportz00_26125
																																=
																																BgL_iportz00_8054;
																															BgL_lastzd2matchzd2_26126
																																=
																																BgL_newzd2matchzd2_8059;
																															BgL_forwardz00_26127
																																=
																																(1L +
																																BgL_forwardz00_8056);
																															BgL_bufposz00_26129
																																=
																																BgL_bufposz00_8057;
																															BgL_bufposz00_4964
																																=
																																BgL_bufposz00_26129;
																															BgL_forwardz00_4963
																																=
																																BgL_forwardz00_26127;
																															BgL_lastzd2matchzd2_4962
																																=
																																BgL_lastzd2matchzd2_26126;
																															BgL_iportz00_4961
																																=
																																BgL_iportz00_26125;
																															goto
																																BgL_zc3z04anonymousza33413ze3z87_4965;
																														}
																												}
																										}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 441 */
																	if (((long) (BgL_curz00_9410) == 105L))
																		{	/* Read/reader.scm 441 */
																			BgL_iportz00_8278 = BgL_iportz00_9400;
																			BgL_lastzd2matchzd2_8279 =
																				BgL_newzd2matchzd2_9405;
																			BgL_forwardz00_8280 =
																				(1L + BgL_forwardz00_9402);
																			BgL_bufposz00_8281 = BgL_bufposz00_9403;
																		BgL_zc3z04anonymousza35110ze3z87_8282:
																			{	/* Read/reader.scm 441 */
																				long BgL_newzd2matchzd2_8283;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_26134;

																					BgL_tmpz00_26134 =
																						((obj_t) BgL_iportz00_8278);
																					RGC_STOP_MATCH(BgL_tmpz00_26134,
																						BgL_forwardz00_8280);
																				}
																				BgL_newzd2matchzd2_8283 = 22L;
																				if (
																					(BgL_forwardz00_8280 ==
																						BgL_bufposz00_8281))
																					{	/* Read/reader.scm 441 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_8278)))
																							{	/* Read/reader.scm 441 */
																								long BgL_arg5113z00_8286;
																								long BgL_arg5114z00_8287;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_26142;

																									BgL_tmpz00_26142 =
																										((obj_t) BgL_iportz00_8278);
																									BgL_arg5113z00_8286 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_26142);
																								}
																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_26145;

																									BgL_tmpz00_26145 =
																										((obj_t) BgL_iportz00_8278);
																									BgL_arg5114z00_8287 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_26145);
																								}
																								{
																									long BgL_bufposz00_26149;
																									long BgL_forwardz00_26148;

																									BgL_forwardz00_26148 =
																										BgL_arg5113z00_8286;
																									BgL_bufposz00_26149 =
																										BgL_arg5114z00_8287;
																									BgL_bufposz00_8281 =
																										BgL_bufposz00_26149;
																									BgL_forwardz00_8280 =
																										BgL_forwardz00_26148;
																									goto
																										BgL_zc3z04anonymousza35110ze3z87_8282;
																								}
																							}
																						else
																							{	/* Read/reader.scm 441 */
																								BgL_matchz00_9716 =
																									BgL_newzd2matchzd2_8283;
																							}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						int BgL_curz00_8288;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_26150;

																							BgL_tmpz00_26150 =
																								((obj_t) BgL_iportz00_8278);
																							BgL_curz00_8288 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_26150,
																								BgL_forwardz00_8280);
																						}
																						{	/* Read/reader.scm 441 */

																							if (
																								((long) (BgL_curz00_8288) ==
																									110L))
																								{	/* Read/reader.scm 441 */
																									BgL_iportz00_5306 =
																										BgL_iportz00_8278;
																									BgL_lastzd2matchzd2_5307 =
																										BgL_newzd2matchzd2_8283;
																									BgL_forwardz00_5308 =
																										(1L + BgL_forwardz00_8280);
																									BgL_bufposz00_5309 =
																										BgL_bufposz00_8281;
																								BgL_zc3z04anonymousza33592ze3z87_5310:
																									{	/* Read/reader.scm 441 */
																										long
																											BgL_newzd2matchzd2_5311;
																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_26156;

																											BgL_tmpz00_26156 =
																												((obj_t)
																												BgL_iportz00_5306);
																											RGC_STOP_MATCH
																												(BgL_tmpz00_26156,
																												BgL_forwardz00_5308);
																										}
																										BgL_newzd2matchzd2_5311 =
																											22L;
																										if ((BgL_forwardz00_5308 ==
																												BgL_bufposz00_5309))
																											{	/* Read/reader.scm 441 */
																												if (rgc_fill_buffer(
																														((obj_t)
																															BgL_iportz00_5306)))
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_arg3595z00_5314;
																														long
																															BgL_arg3596z00_5315;
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_26164;
																															BgL_tmpz00_26164 =
																																((obj_t)
																																BgL_iportz00_5306);
																															BgL_arg3595z00_5314
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_tmpz00_26164);
																														}
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_26167;
																															BgL_tmpz00_26167 =
																																((obj_t)
																																BgL_iportz00_5306);
																															BgL_arg3596z00_5315
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_tmpz00_26167);
																														}
																														{
																															long
																																BgL_bufposz00_26171;
																															long
																																BgL_forwardz00_26170;
																															BgL_forwardz00_26170
																																=
																																BgL_arg3595z00_5314;
																															BgL_bufposz00_26171
																																=
																																BgL_arg3596z00_5315;
																															BgL_bufposz00_5309
																																=
																																BgL_bufposz00_26171;
																															BgL_forwardz00_5308
																																=
																																BgL_forwardz00_26170;
																															goto
																																BgL_zc3z04anonymousza33592ze3z87_5310;
																														}
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														BgL_matchz00_9716 =
																															BgL_newzd2matchzd2_5311;
																													}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												int BgL_curz00_5316;

																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_26172;
																													BgL_tmpz00_26172 =
																														((obj_t)
																														BgL_iportz00_5306);
																													BgL_curz00_5316 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_tmpz00_26172,
																														BgL_forwardz00_5308);
																												}
																												{	/* Read/reader.scm 441 */

																													if (
																														((long)
																															(BgL_curz00_5316)
																															== 102L))
																														{	/* Read/reader.scm 441 */
																															BgL_iportz00_8181
																																=
																																BgL_iportz00_5306;
																															BgL_lastzd2matchzd2_8182
																																=
																																BgL_newzd2matchzd2_5311;
																															BgL_forwardz00_8183
																																=
																																(1L +
																																BgL_forwardz00_5308);
																															BgL_bufposz00_8184
																																=
																																BgL_bufposz00_5309;
																														BgL_zc3z04anonymousza35061ze3z87_8185:
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_newzd2matchzd2_8186;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_26178;
																																	BgL_tmpz00_26178
																																		=
																																		((obj_t)
																																		BgL_iportz00_8181);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_26178,
																																		BgL_forwardz00_8183);
																																}
																																BgL_newzd2matchzd2_8186
																																	= 22L;
																																if (
																																	(BgL_forwardz00_8183
																																		==
																																		BgL_bufposz00_8184))
																																	{	/* Read/reader.scm 441 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_8181)))
																																			{	/* Read/reader.scm 441 */
																																				long
																																					BgL_arg5064z00_8189;
																																				long
																																					BgL_arg5065z00_8190;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_26186;
																																					BgL_tmpz00_26186
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_8181);
																																					BgL_arg5064z00_8189
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_26186);
																																				}
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_26189;
																																					BgL_tmpz00_26189
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_8181);
																																					BgL_arg5065z00_8190
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_26189);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_26193;
																																					long
																																						BgL_forwardz00_26192;
																																					BgL_forwardz00_26192
																																						=
																																						BgL_arg5064z00_8189;
																																					BgL_bufposz00_26193
																																						=
																																						BgL_arg5065z00_8190;
																																					BgL_bufposz00_8184
																																						=
																																						BgL_bufposz00_26193;
																																					BgL_forwardz00_8183
																																						=
																																						BgL_forwardz00_26192;
																																					goto
																																						BgL_zc3z04anonymousza35061ze3z87_8185;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_8186;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		int
																																			BgL_curz00_8191;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_26194;
																																			BgL_tmpz00_26194
																																				=
																																				((obj_t)
																																				BgL_iportz00_8181);
																																			BgL_curz00_8191
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_26194,
																																				BgL_forwardz00_8183);
																																		}
																																		{	/* Read/reader.scm 441 */

																																			if (
																																				((long)
																																					(BgL_curz00_8191)
																																					==
																																					58L))
																																				{
																																					long
																																						BgL_bufposz00_26204;
																																					long
																																						BgL_forwardz00_26202;
																																					long
																																						BgL_lastzd2matchzd2_26201;
																																					obj_t
																																						BgL_iportz00_26200;
																																					BgL_iportz00_26200
																																						=
																																						BgL_iportz00_8181;
																																					BgL_lastzd2matchzd2_26201
																																						=
																																						BgL_newzd2matchzd2_8186;
																																					BgL_forwardz00_26202
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_8183);
																																					BgL_bufposz00_26204
																																						=
																																						BgL_bufposz00_8184;
																																					BgL_bufposz00_6395
																																						=
																																						BgL_bufposz00_26204;
																																					BgL_forwardz00_6394
																																						=
																																						BgL_forwardz00_26202;
																																					BgL_lastzd2matchzd2_6393
																																						=
																																						BgL_lastzd2matchzd2_26201;
																																					BgL_iportz00_6392
																																						=
																																						BgL_iportz00_26200;
																																					goto
																																						BgL_zc3z04anonymousza34142ze3z87_6396;
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_8191) == 46L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_iportz00_6683
																																								=
																																								BgL_iportz00_8181;
																																							BgL_lastzd2matchzd2_6684
																																								=
																																								BgL_newzd2matchzd2_8186;
																																							BgL_forwardz00_6685
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_8183);
																																							BgL_bufposz00_6686
																																								=
																																								BgL_bufposz00_8184;
																																						BgL_zc3z04anonymousza34297ze3z87_6687:
																																							{	/* Read/reader.scm 441 */
																																								long
																																									BgL_newzd2matchzd2_6688;
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_26208;
																																									BgL_tmpz00_26208
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_6683);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_26208,
																																										BgL_forwardz00_6685);
																																								}
																																								BgL_newzd2matchzd2_6688
																																									=
																																									22L;
																																								if ((BgL_forwardz00_6685 == BgL_bufposz00_6686))
																																									{	/* Read/reader.scm 441 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_6683)))
																																											{	/* Read/reader.scm 441 */
																																												long
																																													BgL_arg4300z00_6691;
																																												long
																																													BgL_arg4301z00_6692;
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_26216;
																																													BgL_tmpz00_26216
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_6683);
																																													BgL_arg4300z00_6691
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_26216);
																																												}
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_26219;
																																													BgL_tmpz00_26219
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_6683);
																																													BgL_arg4301z00_6692
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_26219);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_26223;
																																													long
																																														BgL_forwardz00_26222;
																																													BgL_forwardz00_26222
																																														=
																																														BgL_arg4300z00_6691;
																																													BgL_bufposz00_26223
																																														=
																																														BgL_arg4301z00_6692;
																																													BgL_bufposz00_6686
																																														=
																																														BgL_bufposz00_26223;
																																													BgL_forwardz00_6685
																																														=
																																														BgL_forwardz00_26222;
																																													goto
																																														BgL_zc3z04anonymousza34297ze3z87_6687;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_matchz00_9716
																																													=
																																													BgL_newzd2matchzd2_6688;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										int
																																											BgL_curz00_6693;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_26224;
																																											BgL_tmpz00_26224
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_6683);
																																											BgL_curz00_6693
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_26224,
																																												BgL_forwardz00_6685);
																																										}
																																										{	/* Read/reader.scm 441 */

																																											if (((long) (BgL_curz00_6693) == 58L))
																																												{
																																													long
																																														BgL_bufposz00_26234;
																																													long
																																														BgL_forwardz00_26232;
																																													long
																																														BgL_lastzd2matchzd2_26231;
																																													obj_t
																																														BgL_iportz00_26230;
																																													BgL_iportz00_26230
																																														=
																																														BgL_iportz00_6683;
																																													BgL_lastzd2matchzd2_26231
																																														=
																																														BgL_newzd2matchzd2_6688;
																																													BgL_forwardz00_26232
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_6685);
																																													BgL_bufposz00_26234
																																														=
																																														BgL_bufposz00_6686;
																																													BgL_bufposz00_7305
																																														=
																																														BgL_bufposz00_26234;
																																													BgL_forwardz00_7304
																																														=
																																														BgL_forwardz00_26232;
																																													BgL_lastzd2matchzd2_7303
																																														=
																																														BgL_lastzd2matchzd2_26231;
																																													BgL_iportz00_7302
																																														=
																																														BgL_iportz00_26230;
																																													goto
																																														BgL_zc3z04anonymousza34616ze3z87_7306;
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8687z00_26235;
																																													if (((long) (BgL_curz00_6693) >= 49L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8687z00_26235
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_6693)
																																																<
																																																58L);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8687z00_26235
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8687z00_26235)
																																														{
																																															long
																																																BgL_bufposz00_26245;
																																															long
																																																BgL_forwardz00_26243;
																																															long
																																																BgL_lastzd2matchzd2_26242;
																																															obj_t
																																																BgL_iportz00_26241;
																																															BgL_iportz00_26241
																																																=
																																																BgL_iportz00_6683;
																																															BgL_lastzd2matchzd2_26242
																																																=
																																																BgL_newzd2matchzd2_6688;
																																															BgL_forwardz00_26243
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_6685);
																																															BgL_bufposz00_26245
																																																=
																																																BgL_bufposz00_6686;
																																															BgL_bufposz00_3944
																																																=
																																																BgL_bufposz00_26245;
																																															BgL_forwardz00_3943
																																																=
																																																BgL_forwardz00_26243;
																																															BgL_lastzd2matchzd2_3942
																																																=
																																																BgL_lastzd2matchzd2_26242;
																																															BgL_iportz00_3941
																																																=
																																																BgL_iportz00_26241;
																																															goto
																																																BgL_zc3z04anonymousza32753ze3z87_3945;
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_6693) == 48L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_iportz00_6817
																																																		=
																																																		BgL_iportz00_6683;
																																																	BgL_lastzd2matchzd2_6818
																																																		=
																																																		BgL_newzd2matchzd2_6688;
																																																	BgL_forwardz00_6819
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_6685);
																																																	BgL_bufposz00_6820
																																																		=
																																																		BgL_bufposz00_6686;
																																																BgL_zc3z04anonymousza34369ze3z87_6821:
																																																	{	/* Read/reader.scm 441 */
																																																		long
																																																			BgL_newzd2matchzd2_6822;
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_26249;
																																																			BgL_tmpz00_26249
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6817);
																																																			RGC_STOP_MATCH
																																																				(BgL_tmpz00_26249,
																																																				BgL_forwardz00_6819);
																																																		}
																																																		BgL_newzd2matchzd2_6822
																																																			=
																																																			15L;
																																																		if ((BgL_forwardz00_6819 == BgL_bufposz00_6820))
																																																			{	/* Read/reader.scm 441 */
																																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_6817)))
																																																					{	/* Read/reader.scm 441 */
																																																						long
																																																							BgL_arg4372z00_6825;
																																																						long
																																																							BgL_arg4373z00_6826;
																																																						{	/* Read/reader.scm 441 */
																																																							obj_t
																																																								BgL_tmpz00_26257;
																																																							BgL_tmpz00_26257
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_6817);
																																																							BgL_arg4372z00_6825
																																																								=
																																																								RGC_BUFFER_FORWARD
																																																								(BgL_tmpz00_26257);
																																																						}
																																																						{	/* Read/reader.scm 441 */
																																																							obj_t
																																																								BgL_tmpz00_26260;
																																																							BgL_tmpz00_26260
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_6817);
																																																							BgL_arg4373z00_6826
																																																								=
																																																								RGC_BUFFER_BUFPOS
																																																								(BgL_tmpz00_26260);
																																																						}
																																																						{
																																																							long
																																																								BgL_bufposz00_26264;
																																																							long
																																																								BgL_forwardz00_26263;
																																																							BgL_forwardz00_26263
																																																								=
																																																								BgL_arg4372z00_6825;
																																																							BgL_bufposz00_26264
																																																								=
																																																								BgL_arg4373z00_6826;
																																																							BgL_bufposz00_6820
																																																								=
																																																								BgL_bufposz00_26264;
																																																							BgL_forwardz00_6819
																																																								=
																																																								BgL_forwardz00_26263;
																																																							goto
																																																								BgL_zc3z04anonymousza34369ze3z87_6821;
																																																						}
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_matchz00_9716
																																																							=
																																																							BgL_newzd2matchzd2_6822;
																																																					}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				int
																																																					BgL_curz00_6827;
																																																				{	/* Read/reader.scm 441 */
																																																					obj_t
																																																						BgL_tmpz00_26265;
																																																					BgL_tmpz00_26265
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6817);
																																																					BgL_curz00_6827
																																																						=
																																																						RGC_BUFFER_GET_CHAR
																																																						(BgL_tmpz00_26265,
																																																						BgL_forwardz00_6819);
																																																				}
																																																				{	/* Read/reader.scm 441 */

																																																					if (((long) (BgL_curz00_6827) == 58L))
																																																						{
																																																							long
																																																								BgL_bufposz00_26275;
																																																							long
																																																								BgL_forwardz00_26273;
																																																							long
																																																								BgL_lastzd2matchzd2_26272;
																																																							obj_t
																																																								BgL_iportz00_26271;
																																																							BgL_iportz00_26271
																																																								=
																																																								BgL_iportz00_6817;
																																																							BgL_lastzd2matchzd2_26272
																																																								=
																																																								BgL_newzd2matchzd2_6822;
																																																							BgL_forwardz00_26273
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6819);
																																																							BgL_bufposz00_26275
																																																								=
																																																								BgL_bufposz00_6820;
																																																							BgL_bufposz00_7305
																																																								=
																																																								BgL_bufposz00_26275;
																																																							BgL_forwardz00_7304
																																																								=
																																																								BgL_forwardz00_26273;
																																																							BgL_lastzd2matchzd2_7303
																																																								=
																																																								BgL_lastzd2matchzd2_26272;
																																																							BgL_iportz00_7302
																																																								=
																																																								BgL_iportz00_26271;
																																																							goto
																																																								BgL_zc3z04anonymousza34616ze3z87_7306;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8693z00_26276;
																																																							if (((long) (BgL_curz00_6827) >= 48L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8693z00_26276
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6827)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8693z00_26276
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test8693z00_26276)
																																																								{
																																																									long
																																																										BgL_bufposz00_26286;
																																																									long
																																																										BgL_forwardz00_26284;
																																																									long
																																																										BgL_lastzd2matchzd2_26283;
																																																									obj_t
																																																										BgL_iportz00_26282;
																																																									BgL_iportz00_26282
																																																										=
																																																										BgL_iportz00_6817;
																																																									BgL_lastzd2matchzd2_26283
																																																										=
																																																										BgL_newzd2matchzd2_6822;
																																																									BgL_forwardz00_26284
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_6819);
																																																									BgL_bufposz00_26286
																																																										=
																																																										BgL_bufposz00_6820;
																																																									BgL_bufposz00_3944
																																																										=
																																																										BgL_bufposz00_26286;
																																																									BgL_forwardz00_3943
																																																										=
																																																										BgL_forwardz00_26284;
																																																									BgL_lastzd2matchzd2_3942
																																																										=
																																																										BgL_lastzd2matchzd2_26283;
																																																									BgL_iportz00_3941
																																																										=
																																																										BgL_iportz00_26282;
																																																									goto
																																																										BgL_zc3z04anonymousza32753ze3z87_3945;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_6827) == 46L))
																																																										{
																																																											long
																																																												BgL_bufposz00_26294;
																																																											long
																																																												BgL_forwardz00_26292;
																																																											long
																																																												BgL_lastzd2matchzd2_26291;
																																																											obj_t
																																																												BgL_iportz00_26290;
																																																											BgL_iportz00_26290
																																																												=
																																																												BgL_iportz00_6817;
																																																											BgL_lastzd2matchzd2_26291
																																																												=
																																																												BgL_newzd2matchzd2_6822;
																																																											BgL_forwardz00_26292
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_6819);
																																																											BgL_bufposz00_26294
																																																												=
																																																												BgL_bufposz00_6820;
																																																											BgL_bufposz00_9543
																																																												=
																																																												BgL_bufposz00_26294;
																																																											BgL_forwardz00_9542
																																																												=
																																																												BgL_forwardz00_26292;
																																																											BgL_lastzd2matchzd2_9541
																																																												=
																																																												BgL_lastzd2matchzd2_26291;
																																																											BgL_iportz00_9540
																																																												=
																																																												BgL_iportz00_26290;
																																																											goto
																																																												BgL_zc3z04anonymousza35755ze3z87_9544;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8696z00_26295;
																																																											if (((long) (BgL_curz00_6827) == 39L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8696z00_26295
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													if (((long) (BgL_curz00_6827) == 44L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8696z00_26295
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8696z00_26295
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6827)
																																																																==
																																																																96L);
																																																												}}
																																																											if (BgL_test8696z00_26295)
																																																												{
																																																													long
																																																														BgL_bufposz00_26308;
																																																													long
																																																														BgL_forwardz00_26306;
																																																													long
																																																														BgL_lastzd2matchzd2_26305;
																																																													obj_t
																																																														BgL_iportz00_26304;
																																																													BgL_iportz00_26304
																																																														=
																																																														BgL_iportz00_6817;
																																																													BgL_lastzd2matchzd2_26305
																																																														=
																																																														BgL_newzd2matchzd2_6822;
																																																													BgL_forwardz00_26306
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_6819);
																																																													BgL_bufposz00_26308
																																																														=
																																																														BgL_bufposz00_6820;
																																																													BgL_bufposz00_7366
																																																														=
																																																														BgL_bufposz00_26308;
																																																													BgL_forwardz00_7365
																																																														=
																																																														BgL_forwardz00_26306;
																																																													BgL_lastzd2matchzd2_7364
																																																														=
																																																														BgL_lastzd2matchzd2_26305;
																																																													BgL_iportz00_7363
																																																														=
																																																														BgL_iportz00_26304;
																																																													goto
																																																														BgL_zc3z04anonymousza34647ze3z87_7367;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8699z00_26309;
																																																													if (((long) (BgL_curz00_6827) < 33L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8699z00_26309
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test8701z00_26313;
																																																															if (((long) (BgL_curz00_6827) == 35L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8701z00_26313
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8701z00_26313
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_6827)
																																																																		==
																																																																		34L);
																																																																}
																																																															if (BgL_test8701z00_26313)
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8699z00_26309
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	bool_t
																																																																		BgL_test8703z00_26319;
																																																																	if (((long) (BgL_curz00_6827) == 41L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8703z00_26319
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_6827) == 40L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8703z00_26319
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8703z00_26319
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_6827)
																																																																						==
																																																																						39L);
																																																																		}}
																																																																	if (BgL_test8703z00_26319)
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8699z00_26309
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_6827) == 44L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8699z00_26309
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					if (((long) (BgL_curz00_6827) == 46L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8699z00_26309
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							bool_t
																																																																								BgL_test8708z00_26334;
																																																																							if (((long) (BgL_curz00_6827) >= 48L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8708z00_26334
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_6827)
																																																																										<
																																																																										60L);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8708z00_26334
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										0);
																																																																								}
																																																																							if (BgL_test8708z00_26334)
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8699z00_26309
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_6827) == 91L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8699z00_26309
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											if (((long) (BgL_curz00_6827) == 93L))
																																																																												{	/* Read/reader.scm 441 */
																																																																													BgL_test8699z00_26309
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 441 */
																																																																													if (((long) (BgL_curz00_6827) == 96L))
																																																																														{	/* Read/reader.scm 441 */
																																																																															BgL_test8699z00_26309
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 441 */
																																																																															bool_t
																																																																																BgL_test8713z00_26349;
																																																																															if (((long) (BgL_curz00_6827) == 125L))
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8713z00_26349
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	if (((long) (BgL_curz00_6827) == 124L))
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test8713z00_26349
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 441 */
																																																																																			BgL_test8713z00_26349
																																																																																				=
																																																																																				(
																																																																																				(long)
																																																																																				(BgL_curz00_6827)
																																																																																				==
																																																																																				123L);
																																																																																}}
																																																																															if (BgL_test8713z00_26349)
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8699z00_26309
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 441 */
																																																																																	BgL_test8699z00_26309
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_6827)
																																																																																		==
																																																																																		127L);
																																																														}}}}}}}}}}
																																																													if (BgL_test8699z00_26309)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_matchz00_9716
																																																																=
																																																																BgL_newzd2matchzd2_6822;
																																																														}
																																																													else
																																																														{
																																																															long
																																																																BgL_bufposz00_26364;
																																																															long
																																																																BgL_forwardz00_26362;
																																																															long
																																																																BgL_lastzd2matchzd2_26361;
																																																															obj_t
																																																																BgL_iportz00_26360;
																																																															BgL_iportz00_26360
																																																																=
																																																																BgL_iportz00_6817;
																																																															BgL_lastzd2matchzd2_26361
																																																																=
																																																																BgL_newzd2matchzd2_6822;
																																																															BgL_forwardz00_26362
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_6819);
																																																															BgL_bufposz00_26364
																																																																=
																																																																BgL_bufposz00_6820;
																																																															BgL_bufposz00_5104
																																																																=
																																																																BgL_bufposz00_26364;
																																																															BgL_forwardz00_5103
																																																																=
																																																																BgL_forwardz00_26362;
																																																															BgL_lastzd2matchzd2_5102
																																																																=
																																																																BgL_lastzd2matchzd2_26361;
																																																															BgL_iportz00_5101
																																																																=
																																																																BgL_iportz00_26360;
																																																															goto
																																																																BgL_zc3z04anonymousza33484ze3z87_5105;
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																			}
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_6693) == 46L))
																																																		{
																																																			long
																																																				BgL_bufposz00_26373;
																																																			long
																																																				BgL_forwardz00_26371;
																																																			long
																																																				BgL_lastzd2matchzd2_26370;
																																																			obj_t
																																																				BgL_iportz00_26369;
																																																			BgL_iportz00_26369
																																																				=
																																																				BgL_iportz00_6683;
																																																			BgL_lastzd2matchzd2_26370
																																																				=
																																																				BgL_newzd2matchzd2_6688;
																																																			BgL_forwardz00_26371
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_6685);
																																																			BgL_bufposz00_26373
																																																				=
																																																				BgL_bufposz00_6686;
																																																			BgL_bufposz00_9543
																																																				=
																																																				BgL_bufposz00_26373;
																																																			BgL_forwardz00_9542
																																																				=
																																																				BgL_forwardz00_26371;
																																																			BgL_lastzd2matchzd2_9541
																																																				=
																																																				BgL_lastzd2matchzd2_26370;
																																																			BgL_iportz00_9540
																																																				=
																																																				BgL_iportz00_26369;
																																																			goto
																																																				BgL_zc3z04anonymousza35755ze3z87_9544;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8717z00_26374;
																																																			if (((long) (BgL_curz00_6693) == 39L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8717z00_26374
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_6693) == 44L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8717z00_26374
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8717z00_26374
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6693)
																																																								==
																																																								96L);
																																																				}}
																																																			if (BgL_test8717z00_26374)
																																																				{
																																																					long
																																																						BgL_bufposz00_26387;
																																																					long
																																																						BgL_forwardz00_26385;
																																																					long
																																																						BgL_lastzd2matchzd2_26384;
																																																					obj_t
																																																						BgL_iportz00_26383;
																																																					BgL_iportz00_26383
																																																						=
																																																						BgL_iportz00_6683;
																																																					BgL_lastzd2matchzd2_26384
																																																						=
																																																						BgL_newzd2matchzd2_6688;
																																																					BgL_forwardz00_26385
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6685);
																																																					BgL_bufposz00_26387
																																																						=
																																																						BgL_bufposz00_6686;
																																																					BgL_bufposz00_7366
																																																						=
																																																						BgL_bufposz00_26387;
																																																					BgL_forwardz00_7365
																																																						=
																																																						BgL_forwardz00_26385;
																																																					BgL_lastzd2matchzd2_7364
																																																						=
																																																						BgL_lastzd2matchzd2_26384;
																																																					BgL_iportz00_7363
																																																						=
																																																						BgL_iportz00_26383;
																																																					goto
																																																						BgL_zc3z04anonymousza34647ze3z87_7367;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8720z00_26388;
																																																					if (((long) (BgL_curz00_6693) < 33L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8720z00_26388
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test8722z00_26392;
																																																							if (((long) (BgL_curz00_6693) == 35L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8722z00_26392
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8722z00_26392
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6693)
																																																										==
																																																										34L);
																																																								}
																																																							if (BgL_test8722z00_26392)
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8720z00_26388
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8724z00_26398;
																																																									if (((long) (BgL_curz00_6693) == 41L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8724z00_26398
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_6693) == 40L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8724z00_26398
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8724z00_26398
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6693)
																																																														==
																																																														39L);
																																																										}}
																																																									if (BgL_test8724z00_26398)
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8720z00_26388
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_6693) == 44L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8720z00_26388
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													if (((long) (BgL_curz00_6693) == 46L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8720z00_26388
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															bool_t
																																																																BgL_test8729z00_26413;
																																																															if (((long) (BgL_curz00_6693) >= 48L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8729z00_26413
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_6693)
																																																																		<
																																																																		60L);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8729z00_26413
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																															if (BgL_test8729z00_26413)
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8720z00_26388
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	if (((long) (BgL_curz00_6693) == 91L))
																																																																		{	/* Read/reader.scm 441 */
																																																																			BgL_test8720z00_26388
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 441 */
																																																																			if (((long) (BgL_curz00_6693) == 93L))
																																																																				{	/* Read/reader.scm 441 */
																																																																					BgL_test8720z00_26388
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 441 */
																																																																					if (((long) (BgL_curz00_6693) == 96L))
																																																																						{	/* Read/reader.scm 441 */
																																																																							BgL_test8720z00_26388
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 441 */
																																																																							bool_t
																																																																								BgL_test8734z00_26428;
																																																																							if (((long) (BgL_curz00_6693) == 125L))
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8734z00_26428
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									if (((long) (BgL_curz00_6693) == 124L))
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8734z00_26428
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 441 */
																																																																											BgL_test8734z00_26428
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_6693)
																																																																												==
																																																																												123L);
																																																																								}}
																																																																							if (BgL_test8734z00_26428)
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8720z00_26388
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 441 */
																																																																									BgL_test8720z00_26388
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_6693)
																																																																										==
																																																																										127L);
																																																						}}}}}}}}}}
																																																					if (BgL_test8720z00_26388)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_matchz00_9716
																																																								=
																																																								BgL_newzd2matchzd2_6688;
																																																						}
																																																					else
																																																						{
																																																							long
																																																								BgL_bufposz00_26443;
																																																							long
																																																								BgL_forwardz00_26441;
																																																							long
																																																								BgL_lastzd2matchzd2_26440;
																																																							obj_t
																																																								BgL_iportz00_26439;
																																																							BgL_iportz00_26439
																																																								=
																																																								BgL_iportz00_6683;
																																																							BgL_lastzd2matchzd2_26440
																																																								=
																																																								BgL_newzd2matchzd2_6688;
																																																							BgL_forwardz00_26441
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6685);
																																																							BgL_bufposz00_26443
																																																								=
																																																								BgL_bufposz00_6686;
																																																							BgL_bufposz00_5104
																																																								=
																																																								BgL_bufposz00_26443;
																																																							BgL_forwardz00_5103
																																																								=
																																																								BgL_forwardz00_26441;
																																																							BgL_lastzd2matchzd2_5102
																																																								=
																																																								BgL_lastzd2matchzd2_26440;
																																																							BgL_iportz00_5101
																																																								=
																																																								BgL_iportz00_26439;
																																																							goto
																																																								BgL_zc3z04anonymousza33484ze3z87_5105;
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8737z00_26445;
																																							if (((long) (BgL_curz00_8191) == 39L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8737z00_26445
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_8191) == 44L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8737z00_26445
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8737z00_26445
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8191)
																																												==
																																												96L);
																																								}}
																																							if (BgL_test8737z00_26445)
																																								{
																																									long
																																										BgL_bufposz00_26458;
																																									long
																																										BgL_forwardz00_26456;
																																									long
																																										BgL_lastzd2matchzd2_26455;
																																									obj_t
																																										BgL_iportz00_26454;
																																									BgL_iportz00_26454
																																										=
																																										BgL_iportz00_8181;
																																									BgL_lastzd2matchzd2_26455
																																										=
																																										BgL_newzd2matchzd2_8186;
																																									BgL_forwardz00_26456
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_8183);
																																									BgL_bufposz00_26458
																																										=
																																										BgL_bufposz00_8184;
																																									BgL_bufposz00_6106
																																										=
																																										BgL_bufposz00_26458;
																																									BgL_forwardz00_6105
																																										=
																																										BgL_forwardz00_26456;
																																									BgL_lastzd2matchzd2_6104
																																										=
																																										BgL_lastzd2matchzd2_26455;
																																									BgL_iportz00_6103
																																										=
																																										BgL_iportz00_26454;
																																									goto
																																										BgL_zc3z04anonymousza33993ze3z87_6107;
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8740z00_26459;
																																									if (((long) (BgL_curz00_8191) < 33L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8740z00_26459
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test8742z00_26463;
																																											if (((long) (BgL_curz00_8191) == 35L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8742z00_26463
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8742z00_26463
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_8191)
																																														==
																																														34L);
																																												}
																																											if (BgL_test8742z00_26463)
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8740z00_26459
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8744z00_26469;
																																													if (((long) (BgL_curz00_8191) == 41L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8744z00_26469
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_8191) == 40L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8744z00_26469
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8744z00_26469
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_8191)
																																																		==
																																																		39L);
																																														}}
																																													if (BgL_test8744z00_26469)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8740z00_26459
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_8191) == 44L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8740z00_26459
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_8191) == 46L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8740z00_26459
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8749z00_26484;
																																																			if (((long) (BgL_curz00_8191) == 59L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8749z00_26484
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8749z00_26484
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_8191)
																																																						==
																																																						58L);
																																																				}
																																																			if (BgL_test8749z00_26484)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8740z00_26459
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_8191) == 91L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8740z00_26459
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_8191) == 93L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8740z00_26459
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_8191) == 96L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8740z00_26459
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											bool_t
																																																												BgL_test8754z00_26499;
																																																											if (((long) (BgL_curz00_8191) == 125L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8754z00_26499
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													if (((long) (BgL_curz00_8191) == 124L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8754z00_26499
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8754z00_26499
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_8191)
																																																																==
																																																																123L);
																																																												}}
																																																											if (BgL_test8754z00_26499)
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8740z00_26459
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8740z00_26459
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_8191)
																																																														==
																																																														127L);
																																										}}}}}}}}}}
																																									if (BgL_test8740z00_26459)
																																										{	/* Read/reader.scm 441 */
																																											BgL_matchz00_9716
																																												=
																																												BgL_newzd2matchzd2_8186;
																																										}
																																									else
																																										{
																																											long
																																												BgL_bufposz00_26514;
																																											long
																																												BgL_forwardz00_26512;
																																											long
																																												BgL_lastzd2matchzd2_26511;
																																											obj_t
																																												BgL_iportz00_26510;
																																											BgL_iportz00_26510
																																												=
																																												BgL_iportz00_8181;
																																											BgL_lastzd2matchzd2_26511
																																												=
																																												BgL_newzd2matchzd2_8186;
																																											BgL_forwardz00_26512
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_8183);
																																											BgL_bufposz00_26514
																																												=
																																												BgL_bufposz00_8184;
																																											BgL_bufposz00_4964
																																												=
																																												BgL_bufposz00_26514;
																																											BgL_forwardz00_4963
																																												=
																																												BgL_forwardz00_26512;
																																											BgL_lastzd2matchzd2_4962
																																												=
																																												BgL_lastzd2matchzd2_26511;
																																											BgL_iportz00_4961
																																												=
																																												BgL_iportz00_26510;
																																											goto
																																												BgL_zc3z04anonymousza33413ze3z87_4965;
																																										}
																																								}
																																						}
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_5316)
																																	== 58L))
																																{
																																	long
																																		BgL_bufposz00_26523;
																																	long
																																		BgL_forwardz00_26521;
																																	long
																																		BgL_lastzd2matchzd2_26520;
																																	obj_t
																																		BgL_iportz00_26519;
																																	BgL_iportz00_26519
																																		=
																																		BgL_iportz00_5306;
																																	BgL_lastzd2matchzd2_26520
																																		=
																																		BgL_newzd2matchzd2_5311;
																																	BgL_forwardz00_26521
																																		=
																																		(1L +
																																		BgL_forwardz00_5308);
																																	BgL_bufposz00_26523
																																		=
																																		BgL_bufposz00_5309;
																																	BgL_bufposz00_6395
																																		=
																																		BgL_bufposz00_26523;
																																	BgL_forwardz00_6394
																																		=
																																		BgL_forwardz00_26521;
																																	BgL_lastzd2matchzd2_6393
																																		=
																																		BgL_lastzd2matchzd2_26520;
																																	BgL_iportz00_6392
																																		=
																																		BgL_iportz00_26519;
																																	goto
																																		BgL_zc3z04anonymousza34142ze3z87_6396;
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_5316)
																																			== 46L))
																																		{
																																			long
																																				BgL_bufposz00_26531;
																																			long
																																				BgL_forwardz00_26529;
																																			long
																																				BgL_lastzd2matchzd2_26528;
																																			obj_t
																																				BgL_iportz00_26527;
																																			BgL_iportz00_26527
																																				=
																																				BgL_iportz00_5306;
																																			BgL_lastzd2matchzd2_26528
																																				=
																																				BgL_newzd2matchzd2_5311;
																																			BgL_forwardz00_26529
																																				=
																																				(1L +
																																				BgL_forwardz00_5308);
																																			BgL_bufposz00_26531
																																				=
																																				BgL_bufposz00_5309;
																																			BgL_bufposz00_3944
																																				=
																																				BgL_bufposz00_26531;
																																			BgL_forwardz00_3943
																																				=
																																				BgL_forwardz00_26529;
																																			BgL_lastzd2matchzd2_3942
																																				=
																																				BgL_lastzd2matchzd2_26528;
																																			BgL_iportz00_3941
																																				=
																																				BgL_iportz00_26527;
																																			goto
																																				BgL_zc3z04anonymousza32753ze3z87_3945;
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8759z00_26532;
																																			if ((
																																					(long)
																																					(BgL_curz00_5316)
																																					==
																																					39L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8759z00_26532
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_5316) == 44L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8759z00_26532
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8759z00_26532
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5316)
																																								==
																																								96L);
																																				}}
																																			if (BgL_test8759z00_26532)
																																				{
																																					long
																																						BgL_bufposz00_26545;
																																					long
																																						BgL_forwardz00_26543;
																																					long
																																						BgL_lastzd2matchzd2_26542;
																																					obj_t
																																						BgL_iportz00_26541;
																																					BgL_iportz00_26541
																																						=
																																						BgL_iportz00_5306;
																																					BgL_lastzd2matchzd2_26542
																																						=
																																						BgL_newzd2matchzd2_5311;
																																					BgL_forwardz00_26543
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5308);
																																					BgL_bufposz00_26545
																																						=
																																						BgL_bufposz00_5309;
																																					BgL_bufposz00_6106
																																						=
																																						BgL_bufposz00_26545;
																																					BgL_forwardz00_6105
																																						=
																																						BgL_forwardz00_26543;
																																					BgL_lastzd2matchzd2_6104
																																						=
																																						BgL_lastzd2matchzd2_26542;
																																					BgL_iportz00_6103
																																						=
																																						BgL_iportz00_26541;
																																					goto
																																						BgL_zc3z04anonymousza33993ze3z87_6107;
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8762z00_26546;
																																					if ((
																																							(long)
																																							(BgL_curz00_5316)
																																							<
																																							33L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8762z00_26546
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8764z00_26550;
																																							if (((long) (BgL_curz00_5316) == 35L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8764z00_26550
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8764z00_26550
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5316)
																																										==
																																										34L);
																																								}
																																							if (BgL_test8764z00_26550)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8762z00_26546
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8766z00_26556;
																																									if (((long) (BgL_curz00_5316) == 41L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8766z00_26556
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_5316) == 40L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8766z00_26556
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8766z00_26556
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5316)
																																														==
																																														39L);
																																										}}
																																									if (BgL_test8766z00_26556)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8762z00_26546
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_5316) == 44L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8762z00_26546
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_5316) == 46L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8762z00_26546
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test8771z00_26571;
																																															if (((long) (BgL_curz00_5316) == 59L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8771z00_26571
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8771z00_26571
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5316)
																																																		==
																																																		58L);
																																																}
																																															if (BgL_test8771z00_26571)
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8762z00_26546
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_5316) == 91L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8762z00_26546
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_5316) == 93L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8762z00_26546
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_5316) == 96L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8762z00_26546
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_5316) == 102L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8762z00_26546
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									bool_t
																																																										BgL_test8777z00_26589;
																																																									if (((long) (BgL_curz00_5316) == 125L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8777z00_26589
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_5316) == 124L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8777z00_26589
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8777z00_26589
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_5316)
																																																														==
																																																														123L);
																																																										}}
																																																									if (BgL_test8777z00_26589)
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8762z00_26546
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8762z00_26546
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5316)
																																																												==
																																																												127L);
																																						}}}}}}}}}}}
																																					if (BgL_test8762z00_26546)
																																						{	/* Read/reader.scm 441 */
																																							BgL_matchz00_9716
																																								=
																																								BgL_newzd2matchzd2_5311;
																																						}
																																					else
																																						{
																																							long
																																								BgL_bufposz00_26604;
																																							long
																																								BgL_forwardz00_26602;
																																							long
																																								BgL_lastzd2matchzd2_26601;
																																							obj_t
																																								BgL_iportz00_26600;
																																							BgL_iportz00_26600
																																								=
																																								BgL_iportz00_5306;
																																							BgL_lastzd2matchzd2_26601
																																								=
																																								BgL_newzd2matchzd2_5311;
																																							BgL_forwardz00_26602
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_5308);
																																							BgL_bufposz00_26604
																																								=
																																								BgL_bufposz00_5309;
																																							BgL_bufposz00_4964
																																								=
																																								BgL_bufposz00_26604;
																																							BgL_forwardz00_4963
																																								=
																																								BgL_forwardz00_26602;
																																							BgL_lastzd2matchzd2_4962
																																								=
																																								BgL_lastzd2matchzd2_26601;
																																							BgL_iportz00_4961
																																								=
																																								BgL_iportz00_26600;
																																							goto
																																								BgL_zc3z04anonymousza33413ze3z87_4965;
																																						}
																																				}
																																		}
																																}
																														}
																												}
																											}
																									}
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									if (
																										((long) (BgL_curz00_8288) ==
																											58L))
																										{
																											long BgL_bufposz00_26613;
																											long BgL_forwardz00_26611;
																											long
																												BgL_lastzd2matchzd2_26610;
																											obj_t BgL_iportz00_26609;

																											BgL_iportz00_26609 =
																												BgL_iportz00_8278;
																											BgL_lastzd2matchzd2_26610
																												=
																												BgL_newzd2matchzd2_8283;
																											BgL_forwardz00_26611 =
																												(1L +
																												BgL_forwardz00_8280);
																											BgL_bufposz00_26613 =
																												BgL_bufposz00_8281;
																											BgL_bufposz00_6395 =
																												BgL_bufposz00_26613;
																											BgL_forwardz00_6394 =
																												BgL_forwardz00_26611;
																											BgL_lastzd2matchzd2_6393 =
																												BgL_lastzd2matchzd2_26610;
																											BgL_iportz00_6392 =
																												BgL_iportz00_26609;
																											goto
																												BgL_zc3z04anonymousza34142ze3z87_6396;
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_8288) ==
																													46L))
																												{
																													long
																														BgL_bufposz00_26621;
																													long
																														BgL_forwardz00_26619;
																													long
																														BgL_lastzd2matchzd2_26618;
																													obj_t
																														BgL_iportz00_26617;
																													BgL_iportz00_26617 =
																														BgL_iportz00_8278;
																													BgL_lastzd2matchzd2_26618
																														=
																														BgL_newzd2matchzd2_8283;
																													BgL_forwardz00_26619 =
																														(1L +
																														BgL_forwardz00_8280);
																													BgL_bufposz00_26621 =
																														BgL_bufposz00_8281;
																													BgL_bufposz00_3944 =
																														BgL_bufposz00_26621;
																													BgL_forwardz00_3943 =
																														BgL_forwardz00_26619;
																													BgL_lastzd2matchzd2_3942
																														=
																														BgL_lastzd2matchzd2_26618;
																													BgL_iportz00_3941 =
																														BgL_iportz00_26617;
																													goto
																														BgL_zc3z04anonymousza32753ze3z87_3945;
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test8782z00_26622;
																													if (((long)
																															(BgL_curz00_8288)
																															== 39L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8782z00_26622
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															if (
																																((long)
																																	(BgL_curz00_8288)
																																	== 44L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8782z00_26622
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test8782z00_26622
																																		=
																																		((long)
																																		(BgL_curz00_8288)
																																		== 96L);
																														}}
																													if (BgL_test8782z00_26622)
																														{
																															long
																																BgL_bufposz00_26635;
																															long
																																BgL_forwardz00_26633;
																															long
																																BgL_lastzd2matchzd2_26632;
																															obj_t
																																BgL_iportz00_26631;
																															BgL_iportz00_26631
																																=
																																BgL_iportz00_8278;
																															BgL_lastzd2matchzd2_26632
																																=
																																BgL_newzd2matchzd2_8283;
																															BgL_forwardz00_26633
																																=
																																(1L +
																																BgL_forwardz00_8280);
																															BgL_bufposz00_26635
																																=
																																BgL_bufposz00_8281;
																															BgL_bufposz00_6106
																																=
																																BgL_bufposz00_26635;
																															BgL_forwardz00_6105
																																=
																																BgL_forwardz00_26633;
																															BgL_lastzd2matchzd2_6104
																																=
																																BgL_lastzd2matchzd2_26632;
																															BgL_iportz00_6103
																																=
																																BgL_iportz00_26631;
																															goto
																																BgL_zc3z04anonymousza33993ze3z87_6107;
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test8785z00_26636;
																															if (((long)
																																	(BgL_curz00_8288)
																																	< 33L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8785z00_26636
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test8787z00_26640;
																																	if (((long)
																																			(BgL_curz00_8288)
																																			== 35L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8787z00_26640
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8787z00_26640
																																				=
																																				((long)
																																				(BgL_curz00_8288)
																																				== 34L);
																																		}
																																	if (BgL_test8787z00_26640)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8785z00_26636
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8789z00_26646;
																																			if ((
																																					(long)
																																					(BgL_curz00_8288)
																																					==
																																					41L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8789z00_26646
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_8288) == 40L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8789z00_26646
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8789z00_26646
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_8288)
																																								==
																																								39L);
																																				}}
																																			if (BgL_test8789z00_26646)
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8785z00_26636
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_8288) == 44L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8785z00_26636
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_8288) == 46L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8785z00_26636
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8794z00_26661;
																																									if (((long) (BgL_curz00_8288) == 59L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8794z00_26661
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8794z00_26661
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8288)
																																												==
																																												58L);
																																										}
																																									if (BgL_test8794z00_26661)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8785z00_26636
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_8288) == 91L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8785z00_26636
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_8288) == 93L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8785z00_26636
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_8288) == 96L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8785z00_26636
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_8288) == 110L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8785z00_26636
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8800z00_26679;
																																																			if (((long) (BgL_curz00_8288) == 125L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8800z00_26679
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_8288) == 124L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8800z00_26679
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8800z00_26679
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_8288)
																																																								==
																																																								123L);
																																																				}}
																																																			if (BgL_test8800z00_26679)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8785z00_26636
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8785z00_26636
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_8288)
																																																						==
																																																						127L);
																																}}}}}}}}}}}
																															if (BgL_test8785z00_26636)
																																{	/* Read/reader.scm 441 */
																																	BgL_matchz00_9716
																																		=
																																		BgL_newzd2matchzd2_8283;
																																}
																															else
																																{
																																	long
																																		BgL_bufposz00_26694;
																																	long
																																		BgL_forwardz00_26692;
																																	long
																																		BgL_lastzd2matchzd2_26691;
																																	obj_t
																																		BgL_iportz00_26690;
																																	BgL_iportz00_26690
																																		=
																																		BgL_iportz00_8278;
																																	BgL_lastzd2matchzd2_26691
																																		=
																																		BgL_newzd2matchzd2_8283;
																																	BgL_forwardz00_26692
																																		=
																																		(1L +
																																		BgL_forwardz00_8280);
																																	BgL_bufposz00_26694
																																		=
																																		BgL_bufposz00_8281;
																																	BgL_bufposz00_4964
																																		=
																																		BgL_bufposz00_26694;
																																	BgL_forwardz00_4963
																																		=
																																		BgL_forwardz00_26692;
																																	BgL_lastzd2matchzd2_4962
																																		=
																																		BgL_lastzd2matchzd2_26691;
																																	BgL_iportz00_4961
																																		=
																																		BgL_iportz00_26690;
																																	goto
																																		BgL_zc3z04anonymousza33413ze3z87_4965;
																																}
																														}
																												}
																										}
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 441 */
																			if (((long) (BgL_curz00_9410) == 58L))
																				{
																					long BgL_bufposz00_26703;
																					long BgL_forwardz00_26701;
																					long BgL_lastzd2matchzd2_26700;
																					obj_t BgL_iportz00_26699;

																					BgL_iportz00_26699 =
																						BgL_iportz00_9400;
																					BgL_lastzd2matchzd2_26700 =
																						BgL_newzd2matchzd2_9405;
																					BgL_forwardz00_26701 =
																						(1L + BgL_forwardz00_9402);
																					BgL_bufposz00_26703 =
																						BgL_bufposz00_9403;
																					BgL_bufposz00_6395 =
																						BgL_bufposz00_26703;
																					BgL_forwardz00_6394 =
																						BgL_forwardz00_26701;
																					BgL_lastzd2matchzd2_6393 =
																						BgL_lastzd2matchzd2_26700;
																					BgL_iportz00_6392 =
																						BgL_iportz00_26699;
																					goto
																						BgL_zc3z04anonymousza34142ze3z87_6396;
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					bool_t BgL_test8804z00_26704;

																					if (((long) (BgL_curz00_9410) >= 48L))
																						{	/* Read/reader.scm 441 */
																							BgL_test8804z00_26704 =
																								(
																								(long) (BgL_curz00_9410) < 58L);
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_test8804z00_26704 =
																								((bool_t) 0);
																						}
																					if (BgL_test8804z00_26704)
																						{
																							long BgL_bufposz00_26714;
																							long BgL_forwardz00_26712;
																							long BgL_lastzd2matchzd2_26711;
																							obj_t BgL_iportz00_26710;

																							BgL_iportz00_26710 =
																								BgL_iportz00_9400;
																							BgL_lastzd2matchzd2_26711 =
																								BgL_newzd2matchzd2_9405;
																							BgL_forwardz00_26712 =
																								(1L + BgL_forwardz00_9402);
																							BgL_bufposz00_26714 =
																								BgL_bufposz00_9403;
																							BgL_bufposz00_4009 =
																								BgL_bufposz00_26714;
																							BgL_forwardz00_4008 =
																								BgL_forwardz00_26712;
																							BgL_lastzd2matchzd2_4007 =
																								BgL_lastzd2matchzd2_26711;
																							BgL_iportz00_4006 =
																								BgL_iportz00_26710;
																							goto
																								BgL_zc3z04anonymousza32796ze3z87_4010;
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							if (
																								((long) (BgL_curz00_9410) ==
																									46L))
																								{
																									long BgL_bufposz00_26722;
																									long BgL_forwardz00_26720;
																									long
																										BgL_lastzd2matchzd2_26719;
																									obj_t BgL_iportz00_26718;

																									BgL_iportz00_26718 =
																										BgL_iportz00_9400;
																									BgL_lastzd2matchzd2_26719 =
																										BgL_newzd2matchzd2_9405;
																									BgL_forwardz00_26720 =
																										(1L + BgL_forwardz00_9402);
																									BgL_bufposz00_26722 =
																										BgL_bufposz00_9403;
																									BgL_bufposz00_6974 =
																										BgL_bufposz00_26722;
																									BgL_forwardz00_6973 =
																										BgL_forwardz00_26720;
																									BgL_lastzd2matchzd2_6972 =
																										BgL_lastzd2matchzd2_26719;
																									BgL_iportz00_6971 =
																										BgL_iportz00_26718;
																									goto
																										BgL_zc3z04anonymousza34446ze3z87_6975;
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									bool_t BgL_test8807z00_26723;

																									if (
																										((long) (BgL_curz00_9410) ==
																											39L))
																										{	/* Read/reader.scm 441 */
																											BgL_test8807z00_26723 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_9410) ==
																													44L))
																												{	/* Read/reader.scm 441 */
																													BgL_test8807z00_26723
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_test8807z00_26723
																														=
																														((long)
																														(BgL_curz00_9410) ==
																														96L);
																										}}
																									if (BgL_test8807z00_26723)
																										{
																											long BgL_bufposz00_26736;
																											long BgL_forwardz00_26734;
																											long
																												BgL_lastzd2matchzd2_26733;
																											obj_t BgL_iportz00_26732;

																											BgL_iportz00_26732 =
																												BgL_iportz00_9400;
																											BgL_lastzd2matchzd2_26733
																												=
																												BgL_newzd2matchzd2_9405;
																											BgL_forwardz00_26734 =
																												(1L +
																												BgL_forwardz00_9402);
																											BgL_bufposz00_26736 =
																												BgL_bufposz00_9403;
																											BgL_bufposz00_6106 =
																												BgL_bufposz00_26736;
																											BgL_forwardz00_6105 =
																												BgL_forwardz00_26734;
																											BgL_lastzd2matchzd2_6104 =
																												BgL_lastzd2matchzd2_26733;
																											BgL_iportz00_6103 =
																												BgL_iportz00_26732;
																											goto
																												BgL_zc3z04anonymousza33993ze3z87_6107;
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											bool_t
																												BgL_test8810z00_26737;
																											if (((long)
																													(BgL_curz00_9410) <
																													33L))
																												{	/* Read/reader.scm 441 */
																													BgL_test8810z00_26737
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test8812z00_26741;
																													if (((long)
																															(BgL_curz00_9410)
																															== 35L))
																														{	/* Read/reader.scm 441 */
																															BgL_test8812z00_26741
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_test8812z00_26741
																																=
																																((long)
																																(BgL_curz00_9410)
																																== 34L);
																														}
																													if (BgL_test8812z00_26741)
																														{	/* Read/reader.scm 441 */
																															BgL_test8810z00_26737
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test8814z00_26747;
																															if (((long)
																																	(BgL_curz00_9410)
																																	== 41L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8814z00_26747
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_9410)
																																			== 40L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8814z00_26747
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8814z00_26747
																																				=
																																				((long)
																																				(BgL_curz00_9410)
																																				== 39L);
																																}}
																															if (BgL_test8814z00_26747)
																																{	/* Read/reader.scm 441 */
																																	BgL_test8810z00_26737
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_9410)
																																			== 44L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8810z00_26737
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_9410)
																																					==
																																					46L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8810z00_26737
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8819z00_26762;
																																					if ((
																																							(long)
																																							(BgL_curz00_9410)
																																							>=
																																							48L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8819z00_26762
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9410)
																																								<
																																								60L);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8819z00_26762
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test8819z00_26762)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8810z00_26737
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_9410) == 91L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8810z00_26737
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_9410) == 93L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8810z00_26737
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_9410) == 96L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8810z00_26737
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_9410) == 105L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8810z00_26737
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_9410) == 110L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8810z00_26737
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test8826z00_26783;
																																																	if (((long) (BgL_curz00_9410) == 125L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8826z00_26783
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_9410) == 124L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8826z00_26783
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8826z00_26783
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9410)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test8826z00_26783)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8810z00_26737
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8810z00_26737
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9410)
																																																				==
																																																				127L);
																												}}}}}}}}}}}}
																											if (BgL_test8810z00_26737)
																												{	/* Read/reader.scm 441 */
																													BgL_matchz00_9716 =
																														BgL_newzd2matchzd2_9405;
																												}
																											else
																												{
																													long
																														BgL_bufposz00_26798;
																													long
																														BgL_forwardz00_26796;
																													long
																														BgL_lastzd2matchzd2_26795;
																													obj_t
																														BgL_iportz00_26794;
																													BgL_iportz00_26794 =
																														BgL_iportz00_9400;
																													BgL_lastzd2matchzd2_26795
																														=
																														BgL_newzd2matchzd2_9405;
																													BgL_forwardz00_26796 =
																														(1L +
																														BgL_forwardz00_9402);
																													BgL_bufposz00_26798 =
																														BgL_bufposz00_9403;
																													BgL_bufposz00_4964 =
																														BgL_bufposz00_26798;
																													BgL_forwardz00_4963 =
																														BgL_forwardz00_26796;
																													BgL_lastzd2matchzd2_4962
																														=
																														BgL_lastzd2matchzd2_26795;
																													BgL_iportz00_4961 =
																														BgL_iportz00_26794;
																													goto
																														BgL_zc3z04anonymousza33413ze3z87_4965;
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 93L:
										case 41L:

											{	/* Read/reader.scm 441 */
												long BgL_arg5284z00_8627;

												BgL_arg5284z00_8627 = (1L + BgL_forwardz00_8607);
												{	/* Read/reader.scm 441 */
													long BgL_newzd2matchzd2_16016;

													{	/* Read/reader.scm 441 */
														obj_t BgL_tmpz00_26801;

														BgL_tmpz00_26801 = ((obj_t) BgL_iportz00_8605);
														RGC_STOP_MATCH(BgL_tmpz00_26801,
															BgL_arg5284z00_8627);
													}
													BgL_newzd2matchzd2_16016 = 29L;
													BgL_matchz00_9716 = BgL_newzd2matchzd2_16016;
											}} break;
										case 91L:
										case 40L:

											{	/* Read/reader.scm 441 */
												long BgL_arg5285z00_8628;

												BgL_arg5285z00_8628 = (1L + BgL_forwardz00_8607);
												{	/* Read/reader.scm 441 */
													long BgL_newzd2matchzd2_16020;

													{	/* Read/reader.scm 441 */
														obj_t BgL_tmpz00_26805;

														BgL_tmpz00_26805 = ((obj_t) BgL_iportz00_8605);
														RGC_STOP_MATCH(BgL_tmpz00_26805,
															BgL_arg5285z00_8628);
													}
													BgL_newzd2matchzd2_16020 = 28L;
													BgL_matchz00_9716 = BgL_newzd2matchzd2_16020;
											}} break;
										case 39L:

											{	/* Read/reader.scm 441 */
												long BgL_arg5286z00_8629;

												BgL_arg5286z00_8629 = (1L + BgL_forwardz00_8607);
												{	/* Read/reader.scm 441 */
													long BgL_newzd2matchzd2_16024;

													{	/* Read/reader.scm 441 */
														obj_t BgL_tmpz00_26809;

														BgL_tmpz00_26809 = ((obj_t) BgL_iportz00_8605);
														RGC_STOP_MATCH(BgL_tmpz00_26809,
															BgL_arg5286z00_8629);
													}
													BgL_newzd2matchzd2_16024 = 24L;
													BgL_matchz00_9716 = BgL_newzd2matchzd2_16024;
											}} break;
										case 35L:

											BgL_iportz00_4476 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_4477 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_4478 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_4479 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza33094ze3z87_4480:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_4481;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_26812;

													BgL_tmpz00_26812 = ((obj_t) BgL_iportz00_4476);
													RGC_STOP_MATCH(BgL_tmpz00_26812, BgL_forwardz00_4478);
												}
												BgL_newzd2matchzd2_4481 = 37L;
												if ((BgL_forwardz00_4478 == BgL_bufposz00_4479))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_4476)))
															{	/* Read/reader.scm 441 */
																long BgL_arg3097z00_4484;
																long BgL_arg3098z00_4485;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_26820;

																	BgL_tmpz00_26820 =
																		((obj_t) BgL_iportz00_4476);
																	BgL_arg3097z00_4484 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_26820);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_26823;

																	BgL_tmpz00_26823 =
																		((obj_t) BgL_iportz00_4476);
																	BgL_arg3098z00_4485 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_26823);
																}
																{
																	long BgL_bufposz00_26827;
																	long BgL_forwardz00_26826;

																	BgL_forwardz00_26826 = BgL_arg3097z00_4484;
																	BgL_bufposz00_26827 = BgL_arg3098z00_4485;
																	BgL_bufposz00_4479 = BgL_bufposz00_26827;
																	BgL_forwardz00_4478 = BgL_forwardz00_26826;
																	goto BgL_zc3z04anonymousza33094ze3z87_4480;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_4481;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_4486;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_26828;

															BgL_tmpz00_26828 = ((obj_t) BgL_iportz00_4476);
															BgL_curz00_4486 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_26828,
																BgL_forwardz00_4478);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_4486) == 124L))
																{	/* Read/reader.scm 441 */
																	long BgL_arg3100z00_4488;

																	BgL_arg3100z00_4488 =
																		(1L + BgL_forwardz00_4478);
																	{	/* Read/reader.scm 441 */
																		long BgL_newzd2matchzd2_13419;

																		{	/* Read/reader.scm 441 */
																			obj_t BgL_tmpz00_26835;

																			BgL_tmpz00_26835 =
																				((obj_t) BgL_iportz00_4476);
																			RGC_STOP_MATCH(BgL_tmpz00_26835,
																				BgL_arg3100z00_4488);
																		}
																		BgL_newzd2matchzd2_13419 = 3L;
																		BgL_matchz00_9716 =
																			BgL_newzd2matchzd2_13419;
																}}
															else
																{	/* Read/reader.scm 441 */
																	if (((long) (BgL_curz00_4486) == 123L))
																		{	/* Read/reader.scm 441 */
																			long BgL_arg3102z00_4490;

																			BgL_arg3102z00_4490 =
																				(1L + BgL_forwardz00_4478);
																			{	/* Read/reader.scm 441 */
																				long BgL_newzd2matchzd2_13424;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_26842;

																					BgL_tmpz00_26842 =
																						((obj_t) BgL_iportz00_4476);
																					RGC_STOP_MATCH(BgL_tmpz00_26842,
																						BgL_arg3102z00_4490);
																				}
																				BgL_newzd2matchzd2_13424 = 33L;
																				BgL_matchz00_9716 =
																					BgL_newzd2matchzd2_13424;
																		}}
																	else
																		{	/* Read/reader.scm 441 */
																			if (((long) (BgL_curz00_4486) == 92L))
																				{	/* Read/reader.scm 441 */
																					BgL_iportz00_4742 = BgL_iportz00_4476;
																					BgL_lastzd2matchzd2_4743 =
																						BgL_newzd2matchzd2_4481;
																					BgL_forwardz00_4744 =
																						(1L + BgL_forwardz00_4478);
																					BgL_bufposz00_4745 =
																						BgL_bufposz00_4479;
																				BgL_zc3z04anonymousza33275ze3z87_4746:
																					if (
																						(BgL_forwardz00_4744 ==
																							BgL_bufposz00_4745))
																						{	/* Read/reader.scm 441 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_4742)))
																								{	/* Read/reader.scm 441 */
																									long BgL_arg3278z00_4749;
																									long BgL_arg3279z00_4750;

																									{	/* Read/reader.scm 441 */
																										obj_t BgL_tmpz00_26853;

																										BgL_tmpz00_26853 =
																											((obj_t)
																											BgL_iportz00_4742);
																										BgL_arg3278z00_4749 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_26853);
																									}
																									{	/* Read/reader.scm 441 */
																										obj_t BgL_tmpz00_26856;

																										BgL_tmpz00_26856 =
																											((obj_t)
																											BgL_iportz00_4742);
																										BgL_arg3279z00_4750 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_26856);
																									}
																									{
																										long BgL_bufposz00_26860;
																										long BgL_forwardz00_26859;

																										BgL_forwardz00_26859 =
																											BgL_arg3278z00_4749;
																										BgL_bufposz00_26860 =
																											BgL_arg3279z00_4750;
																										BgL_bufposz00_4745 =
																											BgL_bufposz00_26860;
																										BgL_forwardz00_4744 =
																											BgL_forwardz00_26859;
																										goto
																											BgL_zc3z04anonymousza33275ze3z87_4746;
																									}
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									BgL_matchz00_9716 =
																										BgL_lastzd2matchzd2_4743;
																								}
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							int BgL_curz00_4751;

																							{	/* Read/reader.scm 441 */
																								obj_t BgL_tmpz00_26861;

																								BgL_tmpz00_26861 =
																									((obj_t) BgL_iportz00_4742);
																								BgL_curz00_4751 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_26861,
																									BgL_forwardz00_4744);
																							}
																							{	/* Read/reader.scm 441 */

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

																										BgL_iportz00_8866 =
																											BgL_iportz00_4742;
																										BgL_lastzd2matchzd2_8867 =
																											BgL_lastzd2matchzd2_4743;
																										BgL_forwardz00_8868 =
																											(1L +
																											BgL_forwardz00_4744);
																										BgL_bufposz00_8869 =
																											BgL_bufposz00_4745;
																									BgL_zc3z04anonymousza35407ze3z87_8870:
																										{	/* Read/reader.scm 441 */
																											long
																												BgL_newzd2matchzd2_8871;
																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_26864;

																												BgL_tmpz00_26864 =
																													((obj_t)
																													BgL_iportz00_8866);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_26864,
																													BgL_forwardz00_8868);
																											}
																											BgL_newzd2matchzd2_8871 =
																												7L;
																											if ((BgL_forwardz00_8868
																													==
																													BgL_bufposz00_8869))
																												{	/* Read/reader.scm 441 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_8866)))
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_arg5410z00_8874;
																															long
																																BgL_arg5411z00_8875;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_26872;
																																BgL_tmpz00_26872
																																	=
																																	((obj_t)
																																	BgL_iportz00_8866);
																																BgL_arg5410z00_8874
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_26872);
																															}
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_26875;
																																BgL_tmpz00_26875
																																	=
																																	((obj_t)
																																	BgL_iportz00_8866);
																																BgL_arg5411z00_8875
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_26875);
																															}
																															{
																																long
																																	BgL_bufposz00_26879;
																																long
																																	BgL_forwardz00_26878;
																																BgL_forwardz00_26878
																																	=
																																	BgL_arg5410z00_8874;
																																BgL_bufposz00_26879
																																	=
																																	BgL_arg5411z00_8875;
																																BgL_bufposz00_8869
																																	=
																																	BgL_bufposz00_26879;
																																BgL_forwardz00_8868
																																	=
																																	BgL_forwardz00_26878;
																																goto
																																	BgL_zc3z04anonymousza35407ze3z87_8870;
																															}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_8871;
																														}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													int BgL_curz00_8876;

																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_26880;
																														BgL_tmpz00_26880 =
																															((obj_t)
																															BgL_iportz00_8866);
																														BgL_curz00_8876 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_26880,
																															BgL_forwardz00_8868);
																													}
																													{	/* Read/reader.scm 441 */

																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test8838z00_26883;
																															{	/* Read/reader.scm 441 */
																																bool_t
																																	BgL_test8839z00_26884;
																																if (((long)
																																		(BgL_curz00_8876)
																																		>= 48L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test8839z00_26884
																																			=
																																			((long)
																																			(BgL_curz00_8876)
																																			< 58L);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		BgL_test8839z00_26884
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test8839z00_26884)
																																	{	/* Read/reader.scm 441 */
																																		BgL_test8838z00_26883
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test8841z00_26890;
																																		if (((long)
																																				(BgL_curz00_8876)
																																				>= 65L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8841z00_26890
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_8876)
																																					<
																																					71L);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8841z00_26890
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test8841z00_26890)
																																			{	/* Read/reader.scm 441 */
																																				BgL_test8838z00_26883
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				if (
																																					((long) (BgL_curz00_8876) >= 97L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8838z00_26883
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_8876)
																																							<
																																							103L);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_test8838z00_26883
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																	}
																															}
																															if (BgL_test8838z00_26883)
																																{	/* Read/reader.scm 441 */
																																	BgL_iportz00_4406
																																		=
																																		BgL_iportz00_8866;
																																	BgL_lastzd2matchzd2_4407
																																		=
																																		BgL_newzd2matchzd2_8871;
																																	BgL_forwardz00_4408
																																		=
																																		(1L +
																																		BgL_forwardz00_8868);
																																	BgL_bufposz00_4409
																																		=
																																		BgL_bufposz00_8869;
																																BgL_zc3z04anonymousza33049ze3z87_4410:
																																	{	/* Read/reader.scm 441 */
																																		long
																																			BgL_newzd2matchzd2_4411;
																																		{	/* Read/reader.scm 441 */
																																			obj_t
																																				BgL_tmpz00_26901;
																																			BgL_tmpz00_26901
																																				=
																																				((obj_t)
																																				BgL_iportz00_4406);
																																			RGC_STOP_MATCH
																																				(BgL_tmpz00_26901,
																																				BgL_forwardz00_4408);
																																		}
																																		BgL_newzd2matchzd2_4411
																																			= 10L;
																																		if (
																																			(BgL_forwardz00_4408
																																				==
																																				BgL_bufposz00_4409))
																																			{	/* Read/reader.scm 441 */
																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_4406)))
																																					{	/* Read/reader.scm 441 */
																																						long
																																							BgL_arg3055z00_4414;
																																						long
																																							BgL_arg3056z00_4415;
																																						{	/* Read/reader.scm 441 */
																																							obj_t
																																								BgL_tmpz00_26909;
																																							BgL_tmpz00_26909
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_4406);
																																							BgL_arg3055z00_4414
																																								=
																																								RGC_BUFFER_FORWARD
																																								(BgL_tmpz00_26909);
																																						}
																																						{	/* Read/reader.scm 441 */
																																							obj_t
																																								BgL_tmpz00_26912;
																																							BgL_tmpz00_26912
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_4406);
																																							BgL_arg3056z00_4415
																																								=
																																								RGC_BUFFER_BUFPOS
																																								(BgL_tmpz00_26912);
																																						}
																																						{
																																							long
																																								BgL_bufposz00_26916;
																																							long
																																								BgL_forwardz00_26915;
																																							BgL_forwardz00_26915
																																								=
																																								BgL_arg3055z00_4414;
																																							BgL_bufposz00_26916
																																								=
																																								BgL_arg3056z00_4415;
																																							BgL_bufposz00_4409
																																								=
																																								BgL_bufposz00_26916;
																																							BgL_forwardz00_4408
																																								=
																																								BgL_forwardz00_26915;
																																							goto
																																								BgL_zc3z04anonymousza33049ze3z87_4410;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_matchz00_9716
																																							=
																																							BgL_newzd2matchzd2_4411;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				int
																																					BgL_curz00_4416;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_26917;
																																					BgL_tmpz00_26917
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_4406);
																																					BgL_curz00_4416
																																						=
																																						RGC_BUFFER_GET_CHAR
																																						(BgL_tmpz00_26917,
																																						BgL_forwardz00_4408);
																																				}
																																				{	/* Read/reader.scm 441 */

																																					{	/* Read/reader.scm 441 */
																																						bool_t
																																							BgL_test8846z00_26920;
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8847z00_26921;
																																							if (((long) (BgL_curz00_4416) >= 48L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8847z00_26921
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_4416)
																																										<
																																										58L);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8847z00_26921
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test8847z00_26921)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8846z00_26920
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8849z00_26927;
																																									if (((long) (BgL_curz00_4416) >= 65L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8849z00_26927
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_4416)
																																												<
																																												71L);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8849z00_26927
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test8849z00_26927)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8846z00_26920
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_4416) >= 97L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8846z00_26920
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_4416)
																																														<
																																														103L);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8846z00_26920
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																										}
																																								}
																																						}
																																						if (BgL_test8846z00_26920)
																																							{
																																								long
																																									BgL_forwardz00_26939;
																																								long
																																									BgL_lastzd2matchzd2_26938;
																																								BgL_lastzd2matchzd2_26938
																																									=
																																									BgL_newzd2matchzd2_4411;
																																								BgL_forwardz00_26939
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_4408);
																																								BgL_forwardz00_4408
																																									=
																																									BgL_forwardz00_26939;
																																								BgL_lastzd2matchzd2_4407
																																									=
																																									BgL_lastzd2matchzd2_26938;
																																								goto
																																									BgL_zc3z04anonymousza33049ze3z87_4410;
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_4416) == 40L))
																																									{	/* Read/reader.scm 441 */
																																										long
																																											BgL_arg3074z00_4427;
																																										BgL_arg3074z00_4427
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4408);
																																										{	/* Read/reader.scm 441 */
																																											long
																																												BgL_newzd2matchzd2_13386;
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_26945;
																																												BgL_tmpz00_26945
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4406);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_26945,
																																													BgL_arg3074z00_4427);
																																											}
																																											BgL_newzd2matchzd2_13386
																																												=
																																												31L;
																																											BgL_matchz00_9716
																																												=
																																												BgL_newzd2matchzd2_13386;
																																									}}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										bool_t
																																											BgL_test8853z00_26948;
																																										if (((long) (BgL_curz00_4416) < 33L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test8853z00_26948
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test8855z00_26952;
																																												if (((long) (BgL_curz00_4416) == 35L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8855z00_26952
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8855z00_26952
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_4416)
																																															==
																																															34L);
																																													}
																																												if (BgL_test8855z00_26952)
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8853z00_26948
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test8857z00_26958;
																																														if (((long) (BgL_curz00_4416) == 41L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8857z00_26958
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8857z00_26958
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_4416)
																																																	==
																																																	40L);
																																															}
																																														if (BgL_test8857z00_26958)
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8853z00_26948
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test8859z00_26964;
																																																if (((long) (BgL_curz00_4416) >= 48L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8859z00_26964
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_4416)
																																																			<
																																																			58L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8859z00_26964
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test8859z00_26964)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8853z00_26948
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_4416) == 59L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8853z00_26948
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test8862z00_26973;
																																																				if (((long) (BgL_curz00_4416) >= 65L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8862z00_26973
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_4416)
																																																							<
																																																							71L);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8862z00_26973
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test8862z00_26973)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8853z00_26948
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						if (((long) (BgL_curz00_4416) == 91L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8853z00_26948
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_4416) == 93L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8853z00_26948
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test8866z00_26985;
																																																										if (((long) (BgL_curz00_4416) >= 97L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8866z00_26985
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_4416)
																																																													<
																																																													103L);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8866z00_26985
																																																													=
																																																													(
																																																													(bool_t)
																																																													0);
																																																											}
																																																										if (BgL_test8866z00_26985)
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8853z00_26948
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												bool_t
																																																													BgL_test8868z00_26991;
																																																												if (((long) (BgL_curz00_4416) == 125L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8868z00_26991
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_4416) == 124L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8868z00_26991
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8868z00_26991
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4416)
																																																																	==
																																																																	123L);
																																																													}}
																																																												if (BgL_test8868z00_26991)
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8853z00_26948
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8853z00_26948
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_4416)
																																																															==
																																																															127L);
																																											}}}}}}}}}}
																																										if (BgL_test8853z00_26948)
																																											{	/* Read/reader.scm 441 */
																																												BgL_matchz00_9716
																																													=
																																													BgL_newzd2matchzd2_4411;
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_iportz00_4877
																																													=
																																													BgL_iportz00_4406;
																																												BgL_lastzd2matchzd2_4878
																																													=
																																													BgL_newzd2matchzd2_4411;
																																												BgL_forwardz00_4879
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4408);
																																												BgL_bufposz00_4880
																																													=
																																													BgL_bufposz00_4409;
																																											BgL_zc3z04anonymousza33362ze3z87_4881:
																																												if ((BgL_forwardz00_4879 == BgL_bufposz00_4880))
																																													{	/* Read/reader.scm 441 */
																																														if (rgc_fill_buffer(((obj_t) BgL_iportz00_4877)))
																																															{	/* Read/reader.scm 441 */
																																																long
																																																	BgL_arg3365z00_4884;
																																																long
																																																	BgL_arg3366z00_4885;
																																																{	/* Read/reader.scm 441 */
																																																	obj_t
																																																		BgL_tmpz00_27007;
																																																	BgL_tmpz00_27007
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_4877);
																																																	BgL_arg3365z00_4884
																																																		=
																																																		RGC_BUFFER_FORWARD
																																																		(BgL_tmpz00_27007);
																																																}
																																																{	/* Read/reader.scm 441 */
																																																	obj_t
																																																		BgL_tmpz00_27010;
																																																	BgL_tmpz00_27010
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_4877);
																																																	BgL_arg3366z00_4885
																																																		=
																																																		RGC_BUFFER_BUFPOS
																																																		(BgL_tmpz00_27010);
																																																}
																																																{
																																																	long
																																																		BgL_bufposz00_27014;
																																																	long
																																																		BgL_forwardz00_27013;
																																																	BgL_forwardz00_27013
																																																		=
																																																		BgL_arg3365z00_4884;
																																																	BgL_bufposz00_27014
																																																		=
																																																		BgL_arg3366z00_4885;
																																																	BgL_bufposz00_4880
																																																		=
																																																		BgL_bufposz00_27014;
																																																	BgL_forwardz00_4879
																																																		=
																																																		BgL_forwardz00_27013;
																																																	goto
																																																		BgL_zc3z04anonymousza33362ze3z87_4881;
																																																}
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_matchz00_9716
																																																	=
																																																	BgL_lastzd2matchzd2_4878;
																																															}
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														int
																																															BgL_curz00_4886;
																																														{	/* Read/reader.scm 441 */
																																															obj_t
																																																BgL_tmpz00_27015;
																																															BgL_tmpz00_27015
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_4877);
																																															BgL_curz00_4886
																																																=
																																																RGC_BUFFER_GET_CHAR
																																																(BgL_tmpz00_27015,
																																																BgL_forwardz00_4879);
																																														}
																																														{	/* Read/reader.scm 441 */

																																															if (((long) (BgL_curz00_4886) == 40L))
																																																{	/* Read/reader.scm 441 */
																																																	long
																																																		BgL_arg3368z00_4888;
																																																	BgL_arg3368z00_4888
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_4879);
																																																	{	/* Read/reader.scm 441 */
																																																		long
																																																			BgL_newzd2matchzd2_13696;
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_27022;
																																																			BgL_tmpz00_27022
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_4877);
																																																			RGC_STOP_MATCH
																																																				(BgL_tmpz00_27022,
																																																				BgL_arg3368z00_4888);
																																																		}
																																																		BgL_newzd2matchzd2_13696
																																																			=
																																																			31L;
																																																		BgL_matchz00_9716
																																																			=
																																																			BgL_newzd2matchzd2_13696;
																																																}}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test8874z00_27025;
																																																	if (((long) (BgL_curz00_4886) < 33L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8874z00_27025
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8876z00_27029;
																																																			if (((long) (BgL_curz00_4886) == 35L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8876z00_27029
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8876z00_27029
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_4886)
																																																						==
																																																						34L);
																																																				}
																																																			if (BgL_test8876z00_27029)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8874z00_27025
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8878z00_27035;
																																																					if (((long) (BgL_curz00_4886) == 41L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8878z00_27035
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8878z00_27035
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_4886)
																																																								==
																																																								40L);
																																																						}
																																																					if (BgL_test8878z00_27035)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8874z00_27025
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_4886) == 59L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8874z00_27025
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_4886) == 91L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test8874z00_27025
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											if (((long) (BgL_curz00_4886) == 93L))
																																																												{	/* Read/reader.scm 441 */
																																																													BgL_test8874z00_27025
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 441 */
																																																													bool_t
																																																														BgL_test8883z00_27050;
																																																													if (((long) (BgL_curz00_4886) == 125L))
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8883z00_27050
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															if (((long) (BgL_curz00_4886) == 124L))
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8883z00_27050
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 441 */
																																																																	BgL_test8883z00_27050
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_4886)
																																																																		==
																																																																		123L);
																																																														}}
																																																													if (BgL_test8883z00_27050)
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8874z00_27025
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 441 */
																																																															BgL_test8874z00_27025
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_4886)
																																																																==
																																																																127L);
																																																		}}}}}}}
																																																	if (BgL_test8874z00_27025)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_matchz00_9716
																																																				=
																																																				BgL_lastzd2matchzd2_4878;
																																																		}
																																																	else
																																																		{
																																																			long
																																																				BgL_forwardz00_27061;
																																																			BgL_forwardz00_27061
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_4879);
																																																			BgL_forwardz00_4879
																																																				=
																																																				BgL_forwardz00_27061;
																																																			goto
																																																				BgL_zc3z04anonymousza33362ze3z87_4881;
																																																		}
																																																}
																																														}
																																													}
																																											}
																																									}
																																							}
																																					}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_8876)
																																			== 40L))
																																		{	/* Read/reader.scm 441 */
																																			long
																																				BgL_arg5419z00_8887;
																																			BgL_arg5419z00_8887
																																				=
																																				(1L +
																																				BgL_forwardz00_8868);
																																			{	/* Read/reader.scm 441 */
																																				long
																																					BgL_newzd2matchzd2_16189;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_27069;
																																					BgL_tmpz00_27069
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_8866);
																																					RGC_STOP_MATCH
																																						(BgL_tmpz00_27069,
																																						BgL_arg5419z00_8887);
																																				}
																																				BgL_newzd2matchzd2_16189
																																					= 31L;
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_16189;
																																		}}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8887z00_27072;
																																			if ((
																																					(long)
																																					(BgL_curz00_8876)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8887z00_27072
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8889z00_27076;
																																					if ((
																																							(long)
																																							(BgL_curz00_8876)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8889z00_27076
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8889z00_27076
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_8876)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8889z00_27076)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8887z00_27072
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8891z00_27082;
																																							if (((long) (BgL_curz00_8876) == 41L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8891z00_27082
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8891z00_27082
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_8876)
																																										==
																																										40L);
																																								}
																																							if (BgL_test8891z00_27082)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8887z00_27072
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8893z00_27088;
																																									if (((long) (BgL_curz00_8876) >= 48L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8893z00_27088
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8876)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8893z00_27088
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test8893z00_27088)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8887z00_27072
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_8876) == 59L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8887z00_27072
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8896z00_27097;
																																													if (((long) (BgL_curz00_8876) >= 65L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8896z00_27097
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_8876)
																																																<
																																																71L);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8896z00_27097
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8896z00_27097)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8887z00_27072
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_8876) == 91L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8887z00_27072
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_8876) == 93L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8887z00_27072
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8900z00_27109;
																																																			if (((long) (BgL_curz00_8876) >= 97L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8900z00_27109
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_8876)
																																																						<
																																																						103L);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8900z00_27109
																																																						=
																																																						(
																																																						(bool_t)
																																																						0);
																																																				}
																																																			if (BgL_test8900z00_27109)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8887z00_27072
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test8902z00_27115;
																																																					if (((long) (BgL_curz00_8876) == 125L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8902z00_27115
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_8876) == 124L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8902z00_27115
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8902z00_27115
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_8876)
																																																										==
																																																										123L);
																																																						}}
																																																					if (BgL_test8902z00_27115)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8887z00_27072
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8887z00_27072
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_8876)
																																																								==
																																																								127L);
																																				}}}}}}}}}}
																																			if (BgL_test8887z00_27072)
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_8871;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_27130;
																																					long
																																						BgL_forwardz00_27128;
																																					long
																																						BgL_lastzd2matchzd2_27127;
																																					obj_t
																																						BgL_iportz00_27126;
																																					BgL_iportz00_27126
																																						=
																																						BgL_iportz00_8866;
																																					BgL_lastzd2matchzd2_27127
																																						=
																																						BgL_newzd2matchzd2_8871;
																																					BgL_forwardz00_27128
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_8868);
																																					BgL_bufposz00_27130
																																						=
																																						BgL_bufposz00_8869;
																																					BgL_bufposz00_4880
																																						=
																																						BgL_bufposz00_27130;
																																					BgL_forwardz00_4879
																																						=
																																						BgL_forwardz00_27128;
																																					BgL_lastzd2matchzd2_4878
																																						=
																																						BgL_lastzd2matchzd2_27127;
																																					BgL_iportz00_4877
																																						=
																																						BgL_iportz00_27126;
																																					goto
																																						BgL_zc3z04anonymousza33362ze3z87_4881;
																																				}
																																		}
																																}
																														}
																													}
																												}
																										}
																										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_7804 =
																											BgL_iportz00_4742;
																										BgL_lastzd2matchzd2_7805 =
																											BgL_lastzd2matchzd2_4743;
																										BgL_forwardz00_7806 =
																											(1L +
																											BgL_forwardz00_4744);
																										BgL_bufposz00_7807 =
																											BgL_bufposz00_4745;
																									BgL_zc3z04anonymousza34869ze3z87_7808:
																										{	/* Read/reader.scm 441 */
																											long
																												BgL_newzd2matchzd2_7809;
																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_27132;

																												BgL_tmpz00_27132 =
																													((obj_t)
																													BgL_iportz00_7804);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_27132,
																													BgL_forwardz00_7806);
																											}
																											BgL_newzd2matchzd2_7809 =
																												7L;
																											if ((BgL_forwardz00_7806
																													==
																													BgL_bufposz00_7807))
																												{	/* Read/reader.scm 441 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_7804)))
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_arg4872z00_7812;
																															long
																																BgL_arg4873z00_7813;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_27140;
																																BgL_tmpz00_27140
																																	=
																																	((obj_t)
																																	BgL_iportz00_7804);
																																BgL_arg4872z00_7812
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_27140);
																															}
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_27143;
																																BgL_tmpz00_27143
																																	=
																																	((obj_t)
																																	BgL_iportz00_7804);
																																BgL_arg4873z00_7813
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_27143);
																															}
																															{
																																long
																																	BgL_bufposz00_27147;
																																long
																																	BgL_forwardz00_27146;
																																BgL_forwardz00_27146
																																	=
																																	BgL_arg4872z00_7812;
																																BgL_bufposz00_27147
																																	=
																																	BgL_arg4873z00_7813;
																																BgL_bufposz00_7807
																																	=
																																	BgL_bufposz00_27147;
																																BgL_forwardz00_7806
																																	=
																																	BgL_forwardz00_27146;
																																goto
																																	BgL_zc3z04anonymousza34869ze3z87_7808;
																															}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_7809;
																														}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													int BgL_curz00_7814;

																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_27148;
																														BgL_tmpz00_27148 =
																															((obj_t)
																															BgL_iportz00_7804);
																														BgL_curz00_7814 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_27148,
																															BgL_forwardz00_7806);
																													}
																													{	/* Read/reader.scm 441 */

																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test8907z00_27151;
																															if (((long)
																																	(BgL_curz00_7814)
																																	< 65L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8907z00_27151
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test8909z00_27155;
																																	if (((long)
																																			(BgL_curz00_7814)
																																			>= 91L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8909z00_27155
																																				=
																																				((long)
																																				(BgL_curz00_7814)
																																				< 97L);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8909z00_27155
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test8909z00_27155)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test8907z00_27151
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_7814)
																																					>=
																																					123L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8907z00_27151
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_7814)
																																						<
																																						128L);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8907z00_27151
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																		}
																																}
																															if (BgL_test8907z00_27151)
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_7814)
																																			== 40L))
																																		{	/* Read/reader.scm 441 */
																																			long
																																				BgL_arg4879z00_7822;
																																			BgL_arg4879z00_7822
																																				=
																																				(1L +
																																				BgL_forwardz00_7806);
																																			{	/* Read/reader.scm 441 */
																																				long
																																					BgL_newzd2matchzd2_15495;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_27170;
																																					BgL_tmpz00_27170
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7804);
																																					RGC_STOP_MATCH
																																						(BgL_tmpz00_27170,
																																						BgL_arg4879z00_7822);
																																				}
																																				BgL_newzd2matchzd2_15495
																																					= 31L;
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_15495;
																																		}}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test8913z00_27173;
																																			if ((
																																					(long)
																																					(BgL_curz00_7814)
																																					==
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test8913z00_27173
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8915z00_27177;
																																					if ((
																																							(long)
																																							(BgL_curz00_7814)
																																							>=
																																							36L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8915z00_27177
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_7814)
																																								<
																																								40L);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8915z00_27177
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test8915z00_27177)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8913z00_27173
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8917z00_27183;
																																							if (((long) (BgL_curz00_7814) >= 42L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8917z00_27183
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_7814)
																																										<
																																										59L);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8917z00_27183
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test8917z00_27183)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8913z00_27173
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8919z00_27189;
																																									if (((long) (BgL_curz00_7814) >= 60L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8919z00_27189
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_7814)
																																												<
																																												65L);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8919z00_27189
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test8919z00_27189)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8913z00_27173
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_7814) == 92L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8913z00_27173
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8922z00_27198;
																																													if (((long) (BgL_curz00_7814) == 96L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8922z00_27198
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_7814) == 95L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8922z00_27198
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8922z00_27198
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_7814)
																																																		==
																																																		94L);
																																														}}
																																													if (BgL_test8922z00_27198)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8913z00_27173
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8913z00_27173
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_7814)
																																																==
																																																126L);
																																				}}}}}}
																																			if (BgL_test8913z00_27173)
																																				{
																																					long
																																						BgL_bufposz00_27213;
																																					long
																																						BgL_forwardz00_27211;
																																					long
																																						BgL_lastzd2matchzd2_27210;
																																					obj_t
																																						BgL_iportz00_27209;
																																					BgL_iportz00_27209
																																						=
																																						BgL_iportz00_7804;
																																					BgL_lastzd2matchzd2_27210
																																						=
																																						BgL_newzd2matchzd2_7809;
																																					BgL_forwardz00_27211
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_7806);
																																					BgL_bufposz00_27213
																																						=
																																						BgL_bufposz00_7807;
																																					BgL_bufposz00_4880
																																						=
																																						BgL_bufposz00_27213;
																																					BgL_forwardz00_4879
																																						=
																																						BgL_forwardz00_27211;
																																					BgL_lastzd2matchzd2_4878
																																						=
																																						BgL_lastzd2matchzd2_27210;
																																					BgL_iportz00_4877
																																						=
																																						BgL_iportz00_27209;
																																					goto
																																						BgL_zc3z04anonymousza33362ze3z87_4881;
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_7809;
																																				}
																																		}
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_iportz00_5500
																																		=
																																		BgL_iportz00_7804;
																																	BgL_lastzd2matchzd2_5501
																																		=
																																		BgL_newzd2matchzd2_7809;
																																	BgL_forwardz00_5502
																																		=
																																		(1L +
																																		BgL_forwardz00_7806);
																																	BgL_bufposz00_5503
																																		=
																																		BgL_bufposz00_7807;
																																BgL_zc3z04anonymousza33694ze3z87_5504:
																																	if (
																																		(BgL_forwardz00_5502
																																			==
																																			BgL_bufposz00_5503))
																																		{	/* Read/reader.scm 441 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_5500)))
																																				{	/* Read/reader.scm 441 */
																																					long
																																						BgL_arg3698z00_5507;
																																					long
																																						BgL_arg3700z00_5508;
																																					{	/* Read/reader.scm 441 */
																																						obj_t
																																							BgL_tmpz00_27219;
																																						BgL_tmpz00_27219
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_5500);
																																						BgL_arg3698z00_5507
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_27219);
																																					}
																																					{	/* Read/reader.scm 441 */
																																						obj_t
																																							BgL_tmpz00_27222;
																																						BgL_tmpz00_27222
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_5500);
																																						BgL_arg3700z00_5508
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_27222);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_27226;
																																						long
																																							BgL_forwardz00_27225;
																																						BgL_forwardz00_27225
																																							=
																																							BgL_arg3698z00_5507;
																																						BgL_bufposz00_27226
																																							=
																																							BgL_arg3700z00_5508;
																																						BgL_bufposz00_5503
																																							=
																																							BgL_bufposz00_27226;
																																						BgL_forwardz00_5502
																																							=
																																							BgL_forwardz00_27225;
																																						goto
																																							BgL_zc3z04anonymousza33694ze3z87_5504;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_lastzd2matchzd2_5501;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			int
																																				BgL_curz00_5509;
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_27227;
																																				BgL_tmpz00_27227
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_5500);
																																				BgL_curz00_5509
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_27227,
																																					BgL_forwardz00_5502);
																																			}
																																			{	/* Read/reader.scm 441 */

																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8927z00_27230;
																																					if ((
																																							(long)
																																							(BgL_curz00_5509)
																																							<
																																							65L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8927z00_27230
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test8929z00_27234;
																																							if (((long) (BgL_curz00_5509) >= 91L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8929z00_27234
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5509)
																																										<
																																										97L);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8929z00_27234
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test8929z00_27234)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test8927z00_27230
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_5509) >= 123L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8927z00_27230
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5509)
																																												<
																																												128L);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8927z00_27230
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																								}
																																						}
																																					if (BgL_test8927z00_27230)
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_5509) == 40L))
																																								{	/* Read/reader.scm 441 */
																																									long
																																										BgL_arg3706z00_5517;
																																									BgL_arg3706z00_5517
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_5502);
																																									{	/* Read/reader.scm 441 */
																																										long
																																											BgL_newzd2matchzd2_14095;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_27249;
																																											BgL_tmpz00_27249
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_5500);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_27249,
																																												BgL_arg3706z00_5517);
																																										}
																																										BgL_newzd2matchzd2_14095
																																											=
																																											31L;
																																										BgL_matchz00_9716
																																											=
																																											BgL_newzd2matchzd2_14095;
																																								}}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8933z00_27252;
																																									if (((long) (BgL_curz00_5509) == 33L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8933z00_27252
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test8935z00_27256;
																																											if (((long) (BgL_curz00_5509) >= 36L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8935z00_27256
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5509)
																																														<
																																														40L);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8935z00_27256
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test8935z00_27256)
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8933z00_27252
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8937z00_27262;
																																													if (((long) (BgL_curz00_5509) >= 42L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8937z00_27262
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_5509)
																																																<
																																																59L);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8937z00_27262
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8937z00_27262)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8933z00_27252
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test8939z00_27268;
																																															if (((long) (BgL_curz00_5509) >= 60L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8939z00_27268
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5509)
																																																		<
																																																		65L);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8939z00_27268
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test8939z00_27268)
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8933z00_27252
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_5509) == 92L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8933z00_27252
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			bool_t
																																																				BgL_test8942z00_27277;
																																																			if (((long) (BgL_curz00_5509) == 96L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8942z00_27277
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_5509) == 95L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8942z00_27277
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8942z00_27277
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_5509)
																																																								==
																																																								94L);
																																																				}}
																																																			if (BgL_test8942z00_27277)
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8933z00_27252
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8933z00_27252
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_5509)
																																																						==
																																																						126L);
																																										}}}}}}
																																									if (BgL_test8933z00_27252)
																																										{
																																											long
																																												BgL_bufposz00_27292;
																																											long
																																												BgL_forwardz00_27290;
																																											long
																																												BgL_lastzd2matchzd2_27289;
																																											obj_t
																																												BgL_iportz00_27288;
																																											BgL_iportz00_27288
																																												=
																																												BgL_iportz00_5500;
																																											BgL_lastzd2matchzd2_27289
																																												=
																																												BgL_lastzd2matchzd2_5501;
																																											BgL_forwardz00_27290
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_5502);
																																											BgL_bufposz00_27292
																																												=
																																												BgL_bufposz00_5503;
																																											BgL_bufposz00_4880
																																												=
																																												BgL_bufposz00_27292;
																																											BgL_forwardz00_4879
																																												=
																																												BgL_forwardz00_27290;
																																											BgL_lastzd2matchzd2_4878
																																												=
																																												BgL_lastzd2matchzd2_27289;
																																											BgL_iportz00_4877
																																												=
																																												BgL_iportz00_27288;
																																											goto
																																												BgL_zc3z04anonymousza33362ze3z87_4881;
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_matchz00_9716
																																												=
																																												BgL_lastzd2matchzd2_5501;
																																										}
																																								}
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_iportz00_7857
																																								=
																																								BgL_iportz00_5500;
																																							BgL_lastzd2matchzd2_7858
																																								=
																																								BgL_lastzd2matchzd2_5501;
																																							BgL_forwardz00_7859
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_5502);
																																							BgL_bufposz00_7860
																																								=
																																								BgL_bufposz00_5503;
																																						BgL_zc3z04anonymousza34894ze3z87_7861:
																																							{	/* Read/reader.scm 441 */
																																								long
																																									BgL_newzd2matchzd2_7862;
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_27293;
																																									BgL_tmpz00_27293
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_7857);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_27293,
																																										BgL_forwardz00_7859);
																																								}
																																								BgL_newzd2matchzd2_7862
																																									=
																																									8L;
																																								if ((BgL_forwardz00_7859 == BgL_bufposz00_7860))
																																									{	/* Read/reader.scm 441 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_7857)))
																																											{	/* Read/reader.scm 441 */
																																												long
																																													BgL_arg4897z00_7865;
																																												long
																																													BgL_arg4898z00_7866;
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_27301;
																																													BgL_tmpz00_27301
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7857);
																																													BgL_arg4897z00_7865
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_27301);
																																												}
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_27304;
																																													BgL_tmpz00_27304
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7857);
																																													BgL_arg4898z00_7866
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_27304);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_27308;
																																													long
																																														BgL_forwardz00_27307;
																																													BgL_forwardz00_27307
																																														=
																																														BgL_arg4897z00_7865;
																																													BgL_bufposz00_27308
																																														=
																																														BgL_arg4898z00_7866;
																																													BgL_bufposz00_7860
																																														=
																																														BgL_bufposz00_27308;
																																													BgL_forwardz00_7859
																																														=
																																														BgL_forwardz00_27307;
																																													goto
																																														BgL_zc3z04anonymousza34894ze3z87_7861;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_matchz00_9716
																																													=
																																													BgL_newzd2matchzd2_7862;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										int
																																											BgL_curz00_7867;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_27309;
																																											BgL_tmpz00_27309
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_7857);
																																											BgL_curz00_7867
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_27309,
																																												BgL_forwardz00_7859);
																																										}
																																										{	/* Read/reader.scm 441 */

																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test8947z00_27312;
																																												if (((long) (BgL_curz00_7867) < 65L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8947z00_27312
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test8949z00_27316;
																																														if (((long) (BgL_curz00_7867) >= 91L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8949z00_27316
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_7867)
																																																	<
																																																	97L);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8949z00_27316
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test8949z00_27316)
																																															{	/* Read/reader.scm 441 */
																																																BgL_test8947z00_27312
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_7867) >= 123L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8947z00_27312
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_7867)
																																																			<
																																																			128L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8947z00_27312
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																															}
																																													}
																																												if (BgL_test8947z00_27312)
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_7867) == 40L))
																																															{	/* Read/reader.scm 441 */
																																																long
																																																	BgL_arg4904z00_7875;
																																																BgL_arg4904z00_7875
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_7859);
																																																{	/* Read/reader.scm 441 */
																																																	long
																																																		BgL_newzd2matchzd2_15528;
																																																	{	/* Read/reader.scm 441 */
																																																		obj_t
																																																			BgL_tmpz00_27331;
																																																		BgL_tmpz00_27331
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_7857);
																																																		RGC_STOP_MATCH
																																																			(BgL_tmpz00_27331,
																																																			BgL_arg4904z00_7875);
																																																	}
																																																	BgL_newzd2matchzd2_15528
																																																		=
																																																		31L;
																																																	BgL_matchz00_9716
																																																		=
																																																		BgL_newzd2matchzd2_15528;
																																															}}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test8953z00_27334;
																																																if (((long) (BgL_curz00_7867) == 33L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8953z00_27334
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test8955z00_27338;
																																																		if (((long) (BgL_curz00_7867) >= 36L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8955z00_27338
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_7867)
																																																					<
																																																					40L);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8955z00_27338
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test8955z00_27338)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8953z00_27334
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test8957z00_27344;
																																																				if (((long) (BgL_curz00_7867) >= 42L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8957z00_27344
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_7867)
																																																							<
																																																							59L);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8957z00_27344
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test8957z00_27344)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8953z00_27334
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test8959z00_27350;
																																																						if (((long) (BgL_curz00_7867) >= 60L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8959z00_27350
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7867)
																																																									<
																																																									65L);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8959z00_27350
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test8959z00_27350)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8953z00_27334
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_7867) == 92L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8953z00_27334
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										bool_t
																																																											BgL_test8962z00_27359;
																																																										if (((long) (BgL_curz00_7867) == 96L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8962z00_27359
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_7867) == 95L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8962z00_27359
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8962z00_27359
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_7867)
																																																															==
																																																															94L);
																																																											}}
																																																										if (BgL_test8962z00_27359)
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8953z00_27334
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8953z00_27334
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_7867)
																																																													==
																																																													126L);
																																																	}}}}}}
																																																if (BgL_test8953z00_27334)
																																																	{
																																																		long
																																																			BgL_bufposz00_27374;
																																																		long
																																																			BgL_forwardz00_27372;
																																																		long
																																																			BgL_lastzd2matchzd2_27371;
																																																		obj_t
																																																			BgL_iportz00_27370;
																																																		BgL_iportz00_27370
																																																			=
																																																			BgL_iportz00_7857;
																																																		BgL_lastzd2matchzd2_27371
																																																			=
																																																			BgL_newzd2matchzd2_7862;
																																																		BgL_forwardz00_27372
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_7859);
																																																		BgL_bufposz00_27374
																																																			=
																																																			BgL_bufposz00_7860;
																																																		BgL_bufposz00_4880
																																																			=
																																																			BgL_bufposz00_27374;
																																																		BgL_forwardz00_4879
																																																			=
																																																			BgL_forwardz00_27372;
																																																		BgL_lastzd2matchzd2_4878
																																																			=
																																																			BgL_lastzd2matchzd2_27371;
																																																		BgL_iportz00_4877
																																																			=
																																																			BgL_iportz00_27370;
																																																		goto
																																																			BgL_zc3z04anonymousza33362ze3z87_4881;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_matchz00_9716
																																																			=
																																																			BgL_newzd2matchzd2_7862;
																																																	}
																																															}
																																													}
																																												else
																																													{
																																														long
																																															BgL_forwardz00_27376;
																																														long
																																															BgL_lastzd2matchzd2_27375;
																																														BgL_lastzd2matchzd2_27375
																																															=
																																															BgL_newzd2matchzd2_7862;
																																														BgL_forwardz00_27376
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_7859);
																																														BgL_forwardz00_7859
																																															=
																																															BgL_forwardz00_27376;
																																														BgL_lastzd2matchzd2_7858
																																															=
																																															BgL_lastzd2matchzd2_27375;
																																														goto
																																															BgL_zc3z04anonymousza34894ze3z87_7861;
																																													}
																																											}
																																										}
																																									}
																																							}
																																						}
																																				}
																																			}
																																		}
																																}
																														}
																													}
																												}
																										}
																										break;
																									case 57L:
																									case 56L:
																									case 55L:
																									case 54L:
																									case 53L:
																									case 52L:
																									case 51L:
																									case 50L:
																									case 49L:
																									case 48L:

																										BgL_iportz00_5051 =
																											BgL_iportz00_4742;
																										BgL_lastzd2matchzd2_5052 =
																											BgL_lastzd2matchzd2_4743;
																										BgL_forwardz00_5053 =
																											(1L +
																											BgL_forwardz00_4744);
																										BgL_bufposz00_5054 =
																											BgL_bufposz00_4745;
																									BgL_zc3z04anonymousza33457ze3z87_5055:
																										{	/* Read/reader.scm 441 */
																											long
																												BgL_newzd2matchzd2_5056;
																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_27381;

																												BgL_tmpz00_27381 =
																													((obj_t)
																													BgL_iportz00_5051);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_27381,
																													BgL_forwardz00_5053);
																											}
																											BgL_newzd2matchzd2_5056 =
																												7L;
																											if ((BgL_forwardz00_5053
																													==
																													BgL_bufposz00_5054))
																												{	/* Read/reader.scm 441 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_5051)))
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_arg3461z00_5059;
																															long
																																BgL_arg3462z00_5060;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_27389;
																																BgL_tmpz00_27389
																																	=
																																	((obj_t)
																																	BgL_iportz00_5051);
																																BgL_arg3461z00_5059
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_27389);
																															}
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_27392;
																																BgL_tmpz00_27392
																																	=
																																	((obj_t)
																																	BgL_iportz00_5051);
																																BgL_arg3462z00_5060
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_27392);
																															}
																															{
																																long
																																	BgL_bufposz00_27396;
																																long
																																	BgL_forwardz00_27395;
																																BgL_forwardz00_27395
																																	=
																																	BgL_arg3461z00_5059;
																																BgL_bufposz00_27396
																																	=
																																	BgL_arg3462z00_5060;
																																BgL_bufposz00_5054
																																	=
																																	BgL_bufposz00_27396;
																																BgL_forwardz00_5053
																																	=
																																	BgL_forwardz00_27395;
																																goto
																																	BgL_zc3z04anonymousza33457ze3z87_5055;
																															}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_5056;
																														}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													int BgL_curz00_5061;

																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_27397;
																														BgL_tmpz00_27397 =
																															((obj_t)
																															BgL_iportz00_5051);
																														BgL_curz00_5061 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_27397,
																															BgL_forwardz00_5053);
																													}
																													{	/* Read/reader.scm 441 */

																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test8967z00_27400;
																															if (((long)
																																	(BgL_curz00_5061)
																																	>= 48L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test8967z00_27400
																																		=
																																		((long)
																																		(BgL_curz00_5061)
																																		< 58L);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test8967z00_27400
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test8967z00_27400)
																																{	/* Read/reader.scm 441 */
																																	BgL_iportz00_5693
																																		=
																																		BgL_iportz00_5051;
																																	BgL_lastzd2matchzd2_5694
																																		=
																																		BgL_newzd2matchzd2_5056;
																																	BgL_forwardz00_5695
																																		=
																																		(1L +
																																		BgL_forwardz00_5053);
																																	BgL_bufposz00_5696
																																		=
																																		BgL_bufposz00_5054;
																																BgL_zc3z04anonymousza33794ze3z87_5697:
																																	if (
																																		(BgL_forwardz00_5695
																																			==
																																			BgL_bufposz00_5696))
																																		{	/* Read/reader.scm 441 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_5693)))
																																				{	/* Read/reader.scm 441 */
																																					long
																																						BgL_arg3797z00_5700;
																																					long
																																						BgL_arg3798z00_5701;
																																					{	/* Read/reader.scm 441 */
																																						obj_t
																																							BgL_tmpz00_27411;
																																						BgL_tmpz00_27411
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_5693);
																																						BgL_arg3797z00_5700
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_27411);
																																					}
																																					{	/* Read/reader.scm 441 */
																																						obj_t
																																							BgL_tmpz00_27414;
																																						BgL_tmpz00_27414
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_5693);
																																						BgL_arg3798z00_5701
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_27414);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_27418;
																																						long
																																							BgL_forwardz00_27417;
																																						BgL_forwardz00_27417
																																							=
																																							BgL_arg3797z00_5700;
																																						BgL_bufposz00_27418
																																							=
																																							BgL_arg3798z00_5701;
																																						BgL_bufposz00_5696
																																							=
																																							BgL_bufposz00_27418;
																																						BgL_forwardz00_5695
																																							=
																																							BgL_forwardz00_27417;
																																						goto
																																							BgL_zc3z04anonymousza33794ze3z87_5697;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_lastzd2matchzd2_5694;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			int
																																				BgL_curz00_5702;
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_27419;
																																				BgL_tmpz00_27419
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_5693);
																																				BgL_curz00_5702
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_27419,
																																					BgL_forwardz00_5695);
																																			}
																																			{	/* Read/reader.scm 441 */

																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test8971z00_27422;
																																					if ((
																																							(long)
																																							(BgL_curz00_5702)
																																							>=
																																							48L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8971z00_27422
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5702)
																																								<
																																								58L);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test8971z00_27422
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test8971z00_27422)
																																						{	/* Read/reader.scm 441 */
																																							BgL_iportz00_5742
																																								=
																																								BgL_iportz00_5693;
																																							BgL_lastzd2matchzd2_5743
																																								=
																																								BgL_lastzd2matchzd2_5694;
																																							BgL_forwardz00_5744
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_5695);
																																							BgL_bufposz00_5745
																																								=
																																								BgL_bufposz00_5696;
																																						BgL_zc3z04anonymousza33819ze3z87_5746:
																																							{	/* Read/reader.scm 441 */
																																								long
																																									BgL_newzd2matchzd2_5747;
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_27428;
																																									BgL_tmpz00_27428
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_5742);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_27428,
																																										BgL_forwardz00_5744);
																																								}
																																								BgL_newzd2matchzd2_5747
																																									=
																																									9L;
																																								if ((BgL_forwardz00_5744 == BgL_bufposz00_5745))
																																									{	/* Read/reader.scm 441 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_5742)))
																																											{	/* Read/reader.scm 441 */
																																												long
																																													BgL_arg3822z00_5750;
																																												long
																																													BgL_arg3823z00_5751;
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_27436;
																																													BgL_tmpz00_27436
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_5742);
																																													BgL_arg3822z00_5750
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_27436);
																																												}
																																												{	/* Read/reader.scm 441 */
																																													obj_t
																																														BgL_tmpz00_27439;
																																													BgL_tmpz00_27439
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_5742);
																																													BgL_arg3823z00_5751
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_27439);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_27443;
																																													long
																																														BgL_forwardz00_27442;
																																													BgL_forwardz00_27442
																																														=
																																														BgL_arg3822z00_5750;
																																													BgL_bufposz00_27443
																																														=
																																														BgL_arg3823z00_5751;
																																													BgL_bufposz00_5745
																																														=
																																														BgL_bufposz00_27443;
																																													BgL_forwardz00_5744
																																														=
																																														BgL_forwardz00_27442;
																																													goto
																																														BgL_zc3z04anonymousza33819ze3z87_5746;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_matchz00_9716
																																													=
																																													BgL_newzd2matchzd2_5747;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										int
																																											BgL_curz00_5752;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_27444;
																																											BgL_tmpz00_27444
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_5742);
																																											BgL_curz00_5752
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_27444,
																																												BgL_forwardz00_5744);
																																										}
																																										{	/* Read/reader.scm 441 */

																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test8975z00_27447;
																																												if (((long) (BgL_curz00_5752) >= 48L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8975z00_27447
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_5752)
																																															<
																																															58L);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test8975z00_27447
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test8975z00_27447)
																																													{
																																														long
																																															BgL_forwardz00_27454;
																																														long
																																															BgL_lastzd2matchzd2_27453;
																																														BgL_lastzd2matchzd2_27453
																																															=
																																															BgL_newzd2matchzd2_5747;
																																														BgL_forwardz00_27454
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_5744);
																																														BgL_forwardz00_5744
																																															=
																																															BgL_forwardz00_27454;
																																														BgL_lastzd2matchzd2_5743
																																															=
																																															BgL_lastzd2matchzd2_27453;
																																														goto
																																															BgL_zc3z04anonymousza33819ze3z87_5746;
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_5752) == 40L))
																																															{	/* Read/reader.scm 441 */
																																																long
																																																	BgL_arg3828z00_5757;
																																																BgL_arg3828z00_5757
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_5744);
																																																{	/* Read/reader.scm 441 */
																																																	long
																																																		BgL_newzd2matchzd2_14238;
																																																	{	/* Read/reader.scm 441 */
																																																		obj_t
																																																			BgL_tmpz00_27460;
																																																		BgL_tmpz00_27460
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_5742);
																																																		RGC_STOP_MATCH
																																																			(BgL_tmpz00_27460,
																																																			BgL_arg3828z00_5757);
																																																	}
																																																	BgL_newzd2matchzd2_14238
																																																		=
																																																		31L;
																																																	BgL_matchz00_9716
																																																		=
																																																		BgL_newzd2matchzd2_14238;
																																															}}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test8978z00_27463;
																																																if (((long) (BgL_curz00_5752) < 33L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test8978z00_27463
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test8980z00_27467;
																																																		if (((long) (BgL_curz00_5752) == 35L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8980z00_27467
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8980z00_27467
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_5752)
																																																					==
																																																					34L);
																																																			}
																																																		if (BgL_test8980z00_27467)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test8978z00_27463
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test8982z00_27473;
																																																				if (((long) (BgL_curz00_5752) == 41L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8982z00_27473
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8982z00_27473
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_5752)
																																																							==
																																																							40L);
																																																					}
																																																				if (BgL_test8982z00_27473)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test8978z00_27463
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test8984z00_27479;
																																																						if (((long) (BgL_curz00_5752) >= 48L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8984z00_27479
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_5752)
																																																									<
																																																									58L);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8984z00_27479
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test8984z00_27479)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test8978z00_27463
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_5752) == 59L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test8978z00_27463
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_5752) == 91L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test8978z00_27463
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_5752) == 93L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test8978z00_27463
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														bool_t
																																																															BgL_test8989z00_27494;
																																																														if (((long) (BgL_curz00_5752) == 125L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8989z00_27494
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																if (((long) (BgL_curz00_5752) == 124L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test8989z00_27494
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test8989z00_27494
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_5752)
																																																																			==
																																																																			123L);
																																																															}}
																																																														if (BgL_test8989z00_27494)
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8978z00_27463
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test8978z00_27463
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_5752)
																																																																	==
																																																																	127L);
																																																	}}}}}}}}
																																																if (BgL_test8978z00_27463)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_matchz00_9716
																																																			=
																																																			BgL_newzd2matchzd2_5747;
																																																	}
																																																else
																																																	{
																																																		long
																																																			BgL_bufposz00_27509;
																																																		long
																																																			BgL_forwardz00_27507;
																																																		long
																																																			BgL_lastzd2matchzd2_27506;
																																																		obj_t
																																																			BgL_iportz00_27505;
																																																		BgL_iportz00_27505
																																																			=
																																																			BgL_iportz00_5742;
																																																		BgL_lastzd2matchzd2_27506
																																																			=
																																																			BgL_newzd2matchzd2_5747;
																																																		BgL_forwardz00_27507
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_5744);
																																																		BgL_bufposz00_27509
																																																			=
																																																			BgL_bufposz00_5745;
																																																		BgL_bufposz00_4880
																																																			=
																																																			BgL_bufposz00_27509;
																																																		BgL_forwardz00_4879
																																																			=
																																																			BgL_forwardz00_27507;
																																																		BgL_lastzd2matchzd2_4878
																																																			=
																																																			BgL_lastzd2matchzd2_27506;
																																																		BgL_iportz00_4877
																																																			=
																																																			BgL_iportz00_27505;
																																																		goto
																																																			BgL_zc3z04anonymousza33362ze3z87_4881;
																																																	}
																																															}
																																													}
																																											}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_5702) == 40L))
																																								{	/* Read/reader.scm 441 */
																																									long
																																										BgL_arg3803z00_5707;
																																									BgL_arg3803z00_5707
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_5695);
																																									{	/* Read/reader.scm 441 */
																																										long
																																											BgL_newzd2matchzd2_14206;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_27515;
																																											BgL_tmpz00_27515
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_5693);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_27515,
																																												BgL_arg3803z00_5707);
																																										}
																																										BgL_newzd2matchzd2_14206
																																											=
																																											31L;
																																										BgL_matchz00_9716
																																											=
																																											BgL_newzd2matchzd2_14206;
																																								}}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test8993z00_27518;
																																									if (((long) (BgL_curz00_5702) < 33L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test8993z00_27518
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test8995z00_27522;
																																											if (((long) (BgL_curz00_5702) == 35L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8995z00_27522
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8995z00_27522
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5702)
																																														==
																																														34L);
																																												}
																																											if (BgL_test8995z00_27522)
																																												{	/* Read/reader.scm 441 */
																																													BgL_test8993z00_27518
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test8997z00_27528;
																																													if (((long) (BgL_curz00_5702) == 41L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8997z00_27528
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8997z00_27528
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_5702)
																																																==
																																																40L);
																																														}
																																													if (BgL_test8997z00_27528)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test8993z00_27518
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test8999z00_27534;
																																															if (((long) (BgL_curz00_5702) >= 48L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8999z00_27534
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5702)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8999z00_27534
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test8999z00_27534)
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test8993z00_27518
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_5702) == 59L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test8993z00_27518
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_5702) == 91L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test8993z00_27518
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					if (((long) (BgL_curz00_5702) == 93L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test8993z00_27518
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test9004z00_27549;
																																																							if (((long) (BgL_curz00_5702) == 125L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test9004z00_27549
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_5702) == 124L))
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test9004z00_27549
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_test9004z00_27549
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5702)
																																																												==
																																																												123L);
																																																								}}
																																																							if (BgL_test9004z00_27549)
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8993z00_27518
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test8993z00_27518
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_5702)
																																																										==
																																																										127L);
																																										}}}}}}}}
																																									if (BgL_test8993z00_27518)
																																										{	/* Read/reader.scm 441 */
																																											BgL_matchz00_9716
																																												=
																																												BgL_lastzd2matchzd2_5694;
																																										}
																																									else
																																										{
																																											long
																																												BgL_bufposz00_27564;
																																											long
																																												BgL_forwardz00_27562;
																																											long
																																												BgL_lastzd2matchzd2_27561;
																																											obj_t
																																												BgL_iportz00_27560;
																																											BgL_iportz00_27560
																																												=
																																												BgL_iportz00_5693;
																																											BgL_lastzd2matchzd2_27561
																																												=
																																												BgL_lastzd2matchzd2_5694;
																																											BgL_forwardz00_27562
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_5695);
																																											BgL_bufposz00_27564
																																												=
																																												BgL_bufposz00_5696;
																																											BgL_bufposz00_4880
																																												=
																																												BgL_bufposz00_27564;
																																											BgL_forwardz00_4879
																																												=
																																												BgL_forwardz00_27562;
																																											BgL_lastzd2matchzd2_4878
																																												=
																																												BgL_lastzd2matchzd2_27561;
																																											BgL_iportz00_4877
																																												=
																																												BgL_iportz00_27560;
																																											goto
																																												BgL_zc3z04anonymousza33362ze3z87_4881;
																																										}
																																								}
																																						}
																																				}
																																			}
																																		}
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_5061)
																																			== 40L))
																																		{	/* Read/reader.scm 441 */
																																			long
																																				BgL_arg3468z00_5066;
																																			BgL_arg3468z00_5066
																																				=
																																				(1L +
																																				BgL_forwardz00_5053);
																																			{	/* Read/reader.scm 441 */
																																				long
																																					BgL_newzd2matchzd2_13808;
																																				{	/* Read/reader.scm 441 */
																																					obj_t
																																						BgL_tmpz00_27570;
																																					BgL_tmpz00_27570
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_5051);
																																					RGC_STOP_MATCH
																																						(BgL_tmpz00_27570,
																																						BgL_arg3468z00_5066);
																																				}
																																				BgL_newzd2matchzd2_13808
																																					= 31L;
																																				BgL_matchz00_9716
																																					=
																																					BgL_newzd2matchzd2_13808;
																																		}}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test9008z00_27573;
																																			if ((
																																					(long)
																																					(BgL_curz00_5061)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9008z00_27573
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test9010z00_27577;
																																					if ((
																																							(long)
																																							(BgL_curz00_5061)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9010z00_27577
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9010z00_27577
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5061)
																																								==
																																								34L);
																																						}
																																					if (BgL_test9010z00_27577)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9008z00_27573
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test9012z00_27583;
																																							if (((long) (BgL_curz00_5061) == 41L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9012z00_27583
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9012z00_27583
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5061)
																																										==
																																										40L);
																																								}
																																							if (BgL_test9012z00_27583)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9008z00_27573
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test9014z00_27589;
																																									if (((long) (BgL_curz00_5061) >= 48L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9014z00_27589
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5061)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9014z00_27589
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test9014z00_27589)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9008z00_27573
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_5061) == 59L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test9008z00_27573
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_5061) == 91L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test9008z00_27573
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_5061) == 93L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test9008z00_27573
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test9019z00_27604;
																																																	if (((long) (BgL_curz00_5061) == 125L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test9019z00_27604
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_5061) == 124L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test9019z00_27604
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test9019z00_27604
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_5061)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test9019z00_27604)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test9008z00_27573
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test9008z00_27573
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_5061)
																																																				==
																																																				127L);
																																				}}}}}}}}
																																			if (BgL_test9008z00_27573)
																																				{	/* Read/reader.scm 441 */
																																					BgL_matchz00_9716
																																						=
																																						BgL_newzd2matchzd2_5056;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_27619;
																																					long
																																						BgL_forwardz00_27617;
																																					long
																																						BgL_lastzd2matchzd2_27616;
																																					obj_t
																																						BgL_iportz00_27615;
																																					BgL_iportz00_27615
																																						=
																																						BgL_iportz00_5051;
																																					BgL_lastzd2matchzd2_27616
																																						=
																																						BgL_newzd2matchzd2_5056;
																																					BgL_forwardz00_27617
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5053);
																																					BgL_bufposz00_27619
																																						=
																																						BgL_bufposz00_5054;
																																					BgL_bufposz00_4880
																																						=
																																						BgL_bufposz00_27619;
																																					BgL_forwardz00_4879
																																						=
																																						BgL_forwardz00_27617;
																																					BgL_lastzd2matchzd2_4878
																																						=
																																						BgL_lastzd2matchzd2_27616;
																																					BgL_iportz00_4877
																																						=
																																						BgL_iportz00_27615;
																																					goto
																																						BgL_zc3z04anonymousza33362ze3z87_4881;
																																				}
																																		}
																																}
																														}
																													}
																												}
																										}
																										break;
																									case 40L:

																										{	/* Read/reader.scm 441 */
																											long BgL_arg3283z00_4757;

																											BgL_arg3283z00_4757 =
																												(1L +
																												BgL_forwardz00_4744);
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_newzd2matchzd2_13612;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_27622;
																													BgL_tmpz00_27622 =
																														((obj_t)
																														BgL_iportz00_4742);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_27622,
																														BgL_arg3283z00_4757);
																												}
																												BgL_newzd2matchzd2_13612
																													= 7L;
																												BgL_matchz00_9716 =
																													BgL_newzd2matchzd2_13612;
																										}} 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_8642 =
																											BgL_iportz00_4742;
																										BgL_lastzd2matchzd2_8643 =
																											BgL_lastzd2matchzd2_4743;
																										BgL_forwardz00_8644 =
																											(1L +
																											BgL_forwardz00_4744);
																										BgL_bufposz00_8645 =
																											BgL_bufposz00_4745;
																									BgL_zc3z04anonymousza35294ze3z87_8646:
																										{	/* Read/reader.scm 441 */
																											long
																												BgL_newzd2matchzd2_8647;
																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_27625;

																												BgL_tmpz00_27625 =
																													((obj_t)
																													BgL_iportz00_8642);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_27625,
																													BgL_forwardz00_8644);
																											}
																											BgL_newzd2matchzd2_8647 =
																												7L;
																											if ((BgL_forwardz00_8644
																													==
																													BgL_bufposz00_8645))
																												{	/* Read/reader.scm 441 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_8642)))
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_arg5297z00_8650;
																															long
																																BgL_arg5298z00_8651;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_27633;
																																BgL_tmpz00_27633
																																	=
																																	((obj_t)
																																	BgL_iportz00_8642);
																																BgL_arg5297z00_8650
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_27633);
																															}
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_27636;
																																BgL_tmpz00_27636
																																	=
																																	((obj_t)
																																	BgL_iportz00_8642);
																																BgL_arg5298z00_8651
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_27636);
																															}
																															{
																																long
																																	BgL_bufposz00_27640;
																																long
																																	BgL_forwardz00_27639;
																																BgL_forwardz00_27639
																																	=
																																	BgL_arg5297z00_8650;
																																BgL_bufposz00_27640
																																	=
																																	BgL_arg5298z00_8651;
																																BgL_bufposz00_8645
																																	=
																																	BgL_bufposz00_27640;
																																BgL_forwardz00_8644
																																	=
																																	BgL_forwardz00_27639;
																																goto
																																	BgL_zc3z04anonymousza35294ze3z87_8646;
																															}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_8647;
																														}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													int BgL_curz00_8652;

																													{	/* Read/reader.scm 441 */
																														obj_t
																															BgL_tmpz00_27641;
																														BgL_tmpz00_27641 =
																															((obj_t)
																															BgL_iportz00_8642);
																														BgL_curz00_8652 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_27641,
																															BgL_forwardz00_8644);
																													}
																													{	/* Read/reader.scm 441 */

																														if (
																															((long)
																																(BgL_curz00_8652)
																																== 40L))
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_arg5300z00_8654;
																																BgL_arg5300z00_8654
																																	=
																																	(1L +
																																	BgL_forwardz00_8644);
																																{	/* Read/reader.scm 441 */
																																	long
																																		BgL_newzd2matchzd2_16050;
																																	{	/* Read/reader.scm 441 */
																																		obj_t
																																			BgL_tmpz00_27648;
																																		BgL_tmpz00_27648
																																			=
																																			((obj_t)
																																			BgL_iportz00_8642);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_27648,
																																			BgL_arg5300z00_8654);
																																	}
																																	BgL_newzd2matchzd2_16050
																																		= 31L;
																																	BgL_matchz00_9716
																																		=
																																		BgL_newzd2matchzd2_16050;
																															}}
																														else
																															{	/* Read/reader.scm 441 */
																																bool_t
																																	BgL_test9025z00_27651;
																																if (((long)
																																		(BgL_curz00_8652)
																																		< 33L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_test9025z00_27651
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test9027z00_27655;
																																		if (((long)
																																				(BgL_curz00_8652)
																																				== 35L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test9027z00_27655
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_test9027z00_27655
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_8652)
																																					==
																																					34L);
																																			}
																																		if (BgL_test9027z00_27655)
																																			{	/* Read/reader.scm 441 */
																																				BgL_test9025z00_27651
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				bool_t
																																					BgL_test9029z00_27661;
																																				if ((
																																						(long)
																																						(BgL_curz00_8652)
																																						==
																																						41L))
																																					{	/* Read/reader.scm 441 */
																																						BgL_test9029z00_27661
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_test9029z00_27661
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_8652)
																																							==
																																							40L);
																																					}
																																				if (BgL_test9029z00_27661)
																																					{	/* Read/reader.scm 441 */
																																						BgL_test9025z00_27651
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						if (
																																							((long) (BgL_curz00_8652) == 59L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_test9025z00_27651
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_8652) == 91L))
																																									{	/* Read/reader.scm 441 */
																																										BgL_test9025z00_27651
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										if (((long) (BgL_curz00_8652) == 93L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test9025z00_27651
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test9034z00_27676;
																																												if (((long) (BgL_curz00_8652) == 125L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test9034z00_27676
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														if (((long) (BgL_curz00_8652) == 124L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test9034z00_27676
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test9034z00_27676
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_8652)
																																																	==
																																																	123L);
																																													}}
																																												if (BgL_test9034z00_27676)
																																													{	/* Read/reader.scm 441 */
																																														BgL_test9025z00_27651
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test9025z00_27651
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_8652)
																																															==
																																															127L);
																																	}}}}}}}
																																if (BgL_test9025z00_27651)
																																	{	/* Read/reader.scm 441 */
																																		BgL_matchz00_9716
																																			=
																																			BgL_newzd2matchzd2_8647;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_27691;
																																		long
																																			BgL_forwardz00_27689;
																																		long
																																			BgL_lastzd2matchzd2_27688;
																																		obj_t
																																			BgL_iportz00_27687;
																																		BgL_iportz00_27687
																																			=
																																			BgL_iportz00_8642;
																																		BgL_lastzd2matchzd2_27688
																																			=
																																			BgL_newzd2matchzd2_8647;
																																		BgL_forwardz00_27689
																																			=
																																			(1L +
																																			BgL_forwardz00_8644);
																																		BgL_bufposz00_27691
																																			=
																																			BgL_bufposz00_8645;
																																		BgL_bufposz00_4880
																																			=
																																			BgL_bufposz00_27691;
																																		BgL_forwardz00_4879
																																			=
																																			BgL_forwardz00_27689;
																																		BgL_lastzd2matchzd2_4878
																																			=
																																			BgL_lastzd2matchzd2_27688;
																																		BgL_iportz00_4877
																																			=
																																			BgL_iportz00_27687;
																																		goto
																																			BgL_zc3z04anonymousza33362ze3z87_4881;
																																	}
																															}
																													}
																												}
																										}
																										break;
																									case 125L:
																									case 124L:
																									case 123L:
																									case 93L:
																									case 91L:
																									case 59L:
																									case 41L:
																									case 35L:
																									case 34L:
																									case 32L:

																										{	/* Read/reader.scm 441 */
																											long BgL_arg3287z00_4759;

																											BgL_arg3287z00_4759 =
																												(1L +
																												BgL_forwardz00_4744);
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_newzd2matchzd2_13617;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_27694;
																													BgL_tmpz00_27694 =
																														((obj_t)
																														BgL_iportz00_4742);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_27694,
																														BgL_arg3287z00_4759);
																												}
																												BgL_newzd2matchzd2_13617
																													= 7L;
																												BgL_matchz00_9716 =
																													BgL_newzd2matchzd2_13617;
																										}} break;
																									default:
																										BgL_matchz00_9716 =
																											BgL_lastzd2matchzd2_4743;
																									}
																							}
																						}
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					bool_t BgL_test9037z00_27700;

																					if (((long) (BgL_curz00_4486) == 84L))
																						{	/* Read/reader.scm 441 */
																							BgL_test9037z00_27700 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_test9037z00_27700 =
																								(
																								(long) (BgL_curz00_4486) ==
																								116L);
																						}
																					if (BgL_test9037z00_27700)
																						{	/* Read/reader.scm 441 */
																							BgL_iportz00_8384 =
																								BgL_iportz00_4476;
																							BgL_lastzd2matchzd2_8385 =
																								BgL_newzd2matchzd2_4481;
																							BgL_forwardz00_8386 =
																								(1L + BgL_forwardz00_4478);
																							BgL_bufposz00_8387 =
																								BgL_bufposz00_4479;
																						BgL_zc3z04anonymousza35164ze3z87_8388:
																							{	/* Read/reader.scm 441 */
																								long BgL_newzd2matchzd2_8389;

																								{	/* Read/reader.scm 441 */
																									obj_t BgL_tmpz00_27706;

																									BgL_tmpz00_27706 =
																										((obj_t) BgL_iportz00_8384);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_27706,
																										BgL_forwardz00_8386);
																								}
																								BgL_newzd2matchzd2_8389 = 18L;
																								if (
																									(BgL_forwardz00_8386 ==
																										BgL_bufposz00_8387))
																									{	/* Read/reader.scm 441 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_8384)))
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_arg5167z00_8392;
																												long
																													BgL_arg5168z00_8393;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_27714;
																													BgL_tmpz00_27714 =
																														((obj_t)
																														BgL_iportz00_8384);
																													BgL_arg5167z00_8392 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_27714);
																												}
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_27717;
																													BgL_tmpz00_27717 =
																														((obj_t)
																														BgL_iportz00_8384);
																													BgL_arg5168z00_8393 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_27717);
																												}
																												{
																													long
																														BgL_bufposz00_27721;
																													long
																														BgL_forwardz00_27720;
																													BgL_forwardz00_27720 =
																														BgL_arg5167z00_8392;
																													BgL_bufposz00_27721 =
																														BgL_arg5168z00_8393;
																													BgL_bufposz00_8387 =
																														BgL_bufposz00_27721;
																													BgL_forwardz00_8386 =
																														BgL_forwardz00_27720;
																													goto
																														BgL_zc3z04anonymousza35164ze3z87_8388;
																												}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												BgL_matchz00_9716 =
																													BgL_newzd2matchzd2_8389;
																											}
																									}
																								else
																									{	/* Read/reader.scm 441 */
																										int BgL_curz00_8394;

																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_27722;

																											BgL_tmpz00_27722 =
																												((obj_t)
																												BgL_iportz00_8384);
																											BgL_curz00_8394 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_27722,
																												BgL_forwardz00_8386);
																										}
																										{	/* Read/reader.scm 441 */

																											if (
																												((long)
																													(BgL_curz00_8394) ==
																													40L))
																												{	/* Read/reader.scm 441 */
																													long
																														BgL_arg5170z00_8396;
																													BgL_arg5170z00_8396 =
																														(1L +
																														BgL_forwardz00_8386);
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_newzd2matchzd2_15864;
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_27729;
																															BgL_tmpz00_27729 =
																																((obj_t)
																																BgL_iportz00_8384);
																															RGC_STOP_MATCH
																																(BgL_tmpz00_27729,
																																BgL_arg5170z00_8396);
																														}
																														BgL_newzd2matchzd2_15864
																															= 31L;
																														BgL_matchz00_9716 =
																															BgL_newzd2matchzd2_15864;
																												}}
																											else
																												{	/* Read/reader.scm 441 */
																													bool_t
																														BgL_test9042z00_27732;
																													if (((long)
																															(BgL_curz00_8394)
																															< 33L))
																														{	/* Read/reader.scm 441 */
																															BgL_test9042z00_27732
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test9044z00_27736;
																															if (((long)
																																	(BgL_curz00_8394)
																																	== 35L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test9044z00_27736
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test9044z00_27736
																																		=
																																		((long)
																																		(BgL_curz00_8394)
																																		== 34L);
																																}
																															if (BgL_test9044z00_27736)
																																{	/* Read/reader.scm 441 */
																																	BgL_test9042z00_27732
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test9046z00_27742;
																																	if (((long)
																																			(BgL_curz00_8394)
																																			== 41L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9046z00_27742
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9046z00_27742
																																				=
																																				((long)
																																				(BgL_curz00_8394)
																																				== 40L);
																																		}
																																	if (BgL_test9046z00_27742)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9042z00_27732
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_8394)
																																					==
																																					59L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9042z00_27732
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_8394) == 91L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9042z00_27732
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_8394) == 93L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9042z00_27732
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test9051z00_27757;
																																									if (((long) (BgL_curz00_8394) == 125L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9051z00_27757
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_8394) == 124L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test9051z00_27757
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test9051z00_27757
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_8394)
																																														==
																																														123L);
																																										}}
																																									if (BgL_test9051z00_27757)
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9042z00_27732
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9042z00_27732
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8394)
																																												==
																																												127L);
																														}}}}}}}
																													if (BgL_test9042z00_27732)
																														{	/* Read/reader.scm 441 */
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_8389;
																														}
																													else
																														{
																															long
																																BgL_bufposz00_27772;
																															long
																																BgL_forwardz00_27770;
																															long
																																BgL_lastzd2matchzd2_27769;
																															obj_t
																																BgL_iportz00_27768;
																															BgL_iportz00_27768
																																=
																																BgL_iportz00_8384;
																															BgL_lastzd2matchzd2_27769
																																=
																																BgL_newzd2matchzd2_8389;
																															BgL_forwardz00_27770
																																=
																																(1L +
																																BgL_forwardz00_8386);
																															BgL_bufposz00_27772
																																=
																																BgL_bufposz00_8387;
																															BgL_bufposz00_4880
																																=
																																BgL_bufposz00_27772;
																															BgL_forwardz00_4879
																																=
																																BgL_forwardz00_27770;
																															BgL_lastzd2matchzd2_4878
																																=
																																BgL_lastzd2matchzd2_27769;
																															BgL_iportz00_4877
																																=
																																BgL_iportz00_27768;
																															goto
																																BgL_zc3z04anonymousza33362ze3z87_4881;
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							bool_t BgL_test9054z00_27774;

																							if (
																								((long) (BgL_curz00_4486) ==
																									70L))
																								{	/* Read/reader.scm 441 */
																									BgL_test9054z00_27774 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									BgL_test9054z00_27774 =
																										(
																										(long) (BgL_curz00_4486) ==
																										102L);
																								}
																							if (BgL_test9054z00_27774)
																								{	/* Read/reader.scm 441 */
																									BgL_iportz00_8343 =
																										BgL_iportz00_4476;
																									BgL_lastzd2matchzd2_8344 =
																										BgL_newzd2matchzd2_4481;
																									BgL_forwardz00_8345 =
																										(1L + BgL_forwardz00_4478);
																									BgL_bufposz00_8346 =
																										BgL_bufposz00_4479;
																								BgL_zc3z04anonymousza35144ze3z87_8347:
																									{	/* Read/reader.scm 441 */
																										long
																											BgL_newzd2matchzd2_8348;
																										{	/* Read/reader.scm 441 */
																											obj_t BgL_tmpz00_27780;

																											BgL_tmpz00_27780 =
																												((obj_t)
																												BgL_iportz00_8343);
																											RGC_STOP_MATCH
																												(BgL_tmpz00_27780,
																												BgL_forwardz00_8345);
																										}
																										BgL_newzd2matchzd2_8348 =
																											19L;
																										if ((BgL_forwardz00_8345 ==
																												BgL_bufposz00_8346))
																											{	/* Read/reader.scm 441 */
																												if (rgc_fill_buffer(
																														((obj_t)
																															BgL_iportz00_8343)))
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_arg5147z00_8351;
																														long
																															BgL_arg5148z00_8352;
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_27788;
																															BgL_tmpz00_27788 =
																																((obj_t)
																																BgL_iportz00_8343);
																															BgL_arg5147z00_8351
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_tmpz00_27788);
																														}
																														{	/* Read/reader.scm 441 */
																															obj_t
																																BgL_tmpz00_27791;
																															BgL_tmpz00_27791 =
																																((obj_t)
																																BgL_iportz00_8343);
																															BgL_arg5148z00_8352
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_tmpz00_27791);
																														}
																														{
																															long
																																BgL_bufposz00_27795;
																															long
																																BgL_forwardz00_27794;
																															BgL_forwardz00_27794
																																=
																																BgL_arg5147z00_8351;
																															BgL_bufposz00_27795
																																=
																																BgL_arg5148z00_8352;
																															BgL_bufposz00_8346
																																=
																																BgL_bufposz00_27795;
																															BgL_forwardz00_8345
																																=
																																BgL_forwardz00_27794;
																															goto
																																BgL_zc3z04anonymousza35144ze3z87_8347;
																														}
																													}
																												else
																													{	/* Read/reader.scm 441 */
																														BgL_matchz00_9716 =
																															BgL_newzd2matchzd2_8348;
																													}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												int BgL_curz00_8353;

																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_27796;
																													BgL_tmpz00_27796 =
																														((obj_t)
																														BgL_iportz00_8343);
																													BgL_curz00_8353 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_tmpz00_27796,
																														BgL_forwardz00_8345);
																												}
																												{	/* Read/reader.scm 441 */

																													if (
																														((long)
																															(BgL_curz00_8353)
																															== 40L))
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_arg5150z00_8355;
																															BgL_arg5150z00_8355
																																=
																																(1L +
																																BgL_forwardz00_8345);
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_newzd2matchzd2_15837;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_27803;
																																	BgL_tmpz00_27803
																																		=
																																		((obj_t)
																																		BgL_iportz00_8343);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_27803,
																																		BgL_arg5150z00_8355);
																																}
																																BgL_newzd2matchzd2_15837
																																	= 31L;
																																BgL_matchz00_9716
																																	=
																																	BgL_newzd2matchzd2_15837;
																														}}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test9059z00_27806;
																															if (((long)
																																	(BgL_curz00_8353)
																																	< 33L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test9059z00_27806
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test9061z00_27810;
																																	if (((long)
																																			(BgL_curz00_8353)
																																			== 35L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9061z00_27810
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9061z00_27810
																																				=
																																				((long)
																																				(BgL_curz00_8353)
																																				== 34L);
																																		}
																																	if (BgL_test9061z00_27810)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9059z00_27806
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			bool_t
																																				BgL_test9063z00_27816;
																																			if ((
																																					(long)
																																					(BgL_curz00_8353)
																																					==
																																					41L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9063z00_27816
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9063z00_27816
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_8353)
																																						==
																																						40L);
																																				}
																																			if (BgL_test9063z00_27816)
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9059z00_27806
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_8353) == 59L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9059z00_27806
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_8353) == 91L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9059z00_27806
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_8353) == 93L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9059z00_27806
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											bool_t
																																												BgL_test9068z00_27831;
																																											if (((long) (BgL_curz00_8353) == 125L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test9068z00_27831
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													if (((long) (BgL_curz00_8353) == 124L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test9068z00_27831
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_test9068z00_27831
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_8353)
																																																==
																																																123L);
																																												}}
																																											if (BgL_test9068z00_27831)
																																												{	/* Read/reader.scm 441 */
																																													BgL_test9059z00_27806
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_test9059z00_27806
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_8353)
																																														==
																																														127L);
																																}}}}}}}
																															if (BgL_test9059z00_27806)
																																{	/* Read/reader.scm 441 */
																																	BgL_matchz00_9716
																																		=
																																		BgL_newzd2matchzd2_8348;
																																}
																															else
																																{
																																	long
																																		BgL_bufposz00_27846;
																																	long
																																		BgL_forwardz00_27844;
																																	long
																																		BgL_lastzd2matchzd2_27843;
																																	obj_t
																																		BgL_iportz00_27842;
																																	BgL_iportz00_27842
																																		=
																																		BgL_iportz00_8343;
																																	BgL_lastzd2matchzd2_27843
																																		=
																																		BgL_newzd2matchzd2_8348;
																																	BgL_forwardz00_27844
																																		=
																																		(1L +
																																		BgL_forwardz00_8345);
																																	BgL_bufposz00_27846
																																		=
																																		BgL_bufposz00_8346;
																																	BgL_bufposz00_4880
																																		=
																																		BgL_bufposz00_27846;
																																	BgL_forwardz00_4879
																																		=
																																		BgL_forwardz00_27844;
																																	BgL_lastzd2matchzd2_4878
																																		=
																																		BgL_lastzd2matchzd2_27843;
																																	BgL_iportz00_4877
																																		=
																																		BgL_iportz00_27842;
																																	goto
																																		BgL_zc3z04anonymousza33362ze3z87_4881;
																																}
																														}
																												}
																											}
																									}
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									if (
																										((long) (BgL_curz00_4486) ==
																											59L))
																										{	/* Read/reader.scm 441 */
																											long BgL_arg3126z00_4500;

																											BgL_arg3126z00_4500 =
																												(1L +
																												BgL_forwardz00_4478);
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_newzd2matchzd2_13437;
																												{	/* Read/reader.scm 441 */
																													obj_t
																														BgL_tmpz00_27852;
																													BgL_tmpz00_27852 =
																														((obj_t)
																														BgL_iportz00_4476);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_27852,
																														BgL_arg3126z00_4500);
																												}
																												BgL_newzd2matchzd2_13437
																													= 4L;
																												BgL_matchz00_9716 =
																													BgL_newzd2matchzd2_13437;
																										}}
																									else
																										{	/* Read/reader.scm 441 */
																											bool_t
																												BgL_test9072z00_27855;
																											if (((long)
																													(BgL_curz00_4486) >=
																													48L))
																												{	/* Read/reader.scm 441 */
																													BgL_test9072z00_27855
																														=
																														((long)
																														(BgL_curz00_4486) <
																														58L);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_test9072z00_27855
																														= ((bool_t) 0);
																												}
																											if (BgL_test9072z00_27855)
																												{	/* Read/reader.scm 441 */
																													BgL_iportz00_8936 =
																														BgL_iportz00_4476;
																													BgL_lastzd2matchzd2_8937
																														=
																														BgL_newzd2matchzd2_4481;
																													BgL_forwardz00_8938 =
																														(1L +
																														BgL_forwardz00_4478);
																													BgL_bufposz00_8939 =
																														BgL_bufposz00_4479;
																												BgL_zc3z04anonymousza35439ze3z87_8940:
																													if (
																														(BgL_forwardz00_8938
																															==
																															BgL_bufposz00_8939))
																														{	/* Read/reader.scm 441 */
																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_8936)))
																																{	/* Read/reader.scm 441 */
																																	long
																																		BgL_arg5442z00_8943;
																																	long
																																		BgL_arg5443z00_8944;
																																	{	/* Read/reader.scm 441 */
																																		obj_t
																																			BgL_tmpz00_27866;
																																		BgL_tmpz00_27866
																																			=
																																			((obj_t)
																																			BgL_iportz00_8936);
																																		BgL_arg5442z00_8943
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_tmpz00_27866);
																																	}
																																	{	/* Read/reader.scm 441 */
																																		obj_t
																																			BgL_tmpz00_27869;
																																		BgL_tmpz00_27869
																																			=
																																			((obj_t)
																																			BgL_iportz00_8936);
																																		BgL_arg5443z00_8944
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_tmpz00_27869);
																																	}
																																	{
																																		long
																																			BgL_bufposz00_27873;
																																		long
																																			BgL_forwardz00_27872;
																																		BgL_forwardz00_27872
																																			=
																																			BgL_arg5442z00_8943;
																																		BgL_bufposz00_27873
																																			=
																																			BgL_arg5443z00_8944;
																																		BgL_bufposz00_8939
																																			=
																																			BgL_bufposz00_27873;
																																		BgL_forwardz00_8938
																																			=
																																			BgL_forwardz00_27872;
																																		goto
																																			BgL_zc3z04anonymousza35439ze3z87_8940;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_matchz00_9716
																																		=
																																		BgL_lastzd2matchzd2_8937;
																																}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															int
																																BgL_curz00_8945;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_27874;
																																BgL_tmpz00_27874
																																	=
																																	((obj_t)
																																	BgL_iportz00_8936);
																																BgL_curz00_8945
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_tmpz00_27874,
																																	BgL_forwardz00_8938);
																															}
																															{	/* Read/reader.scm 441 */

																																if (
																																	((long)
																																		(BgL_curz00_8945)
																																		== 61L))
																																	{	/* Read/reader.scm 441 */
																																		long
																																			BgL_arg5445z00_8947;
																																		BgL_arg5445z00_8947
																																			=
																																			(1L +
																																			BgL_forwardz00_8938);
																																		{	/* Read/reader.scm 441 */
																																			long
																																				BgL_newzd2matchzd2_16220;
																																			{	/* Read/reader.scm 441 */
																																				obj_t
																																					BgL_tmpz00_27881;
																																				BgL_tmpz00_27881
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_8936);
																																				RGC_STOP_MATCH
																																					(BgL_tmpz00_27881,
																																					BgL_arg5445z00_8947);
																																			}
																																			BgL_newzd2matchzd2_16220
																																				= 35L;
																																			BgL_matchz00_9716
																																				=
																																				BgL_newzd2matchzd2_16220;
																																	}}
																																else
																																	{	/* Read/reader.scm 441 */
																																		bool_t
																																			BgL_test9077z00_27884;
																																		if (((long)
																																				(BgL_curz00_8945)
																																				>= 48L))
																																			{	/* Read/reader.scm 441 */
																																				BgL_test9077z00_27884
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_8945)
																																					<
																																					58L);
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				BgL_test9077z00_27884
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test9077z00_27884)
																																			{	/* Read/reader.scm 441 */
																																				BgL_iportz00_8954
																																					=
																																					BgL_iportz00_8936;
																																				BgL_lastzd2matchzd2_8955
																																					=
																																					BgL_lastzd2matchzd2_8937;
																																				BgL_forwardz00_8956
																																					=
																																					(1L +
																																					BgL_forwardz00_8938);
																																				BgL_bufposz00_8957
																																					=
																																					BgL_bufposz00_8939;
																																			BgL_zc3z04anonymousza35451ze3z87_8958:
																																				if (
																																					(BgL_forwardz00_8956
																																						==
																																						BgL_bufposz00_8957))
																																					{	/* Read/reader.scm 441 */
																																						if (rgc_fill_buffer(((obj_t) BgL_iportz00_8954)))
																																							{	/* Read/reader.scm 441 */
																																								long
																																									BgL_arg5454z00_8961;
																																								long
																																									BgL_arg5455z00_8962;
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_27895;
																																									BgL_tmpz00_27895
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_8954);
																																									BgL_arg5454z00_8961
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_tmpz00_27895);
																																								}
																																								{	/* Read/reader.scm 441 */
																																									obj_t
																																										BgL_tmpz00_27898;
																																									BgL_tmpz00_27898
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_8954);
																																									BgL_arg5455z00_8962
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_tmpz00_27898);
																																								}
																																								{
																																									long
																																										BgL_bufposz00_27902;
																																									long
																																										BgL_forwardz00_27901;
																																									BgL_forwardz00_27901
																																										=
																																										BgL_arg5454z00_8961;
																																									BgL_bufposz00_27902
																																										=
																																										BgL_arg5455z00_8962;
																																									BgL_bufposz00_8957
																																										=
																																										BgL_bufposz00_27902;
																																									BgL_forwardz00_8956
																																										=
																																										BgL_forwardz00_27901;
																																									goto
																																										BgL_zc3z04anonymousza35451ze3z87_8958;
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								BgL_matchz00_9716
																																									=
																																									BgL_lastzd2matchzd2_8955;
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						int
																																							BgL_curz00_8963;
																																						{	/* Read/reader.scm 441 */
																																							obj_t
																																								BgL_tmpz00_27903;
																																							BgL_tmpz00_27903
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_8954);
																																							BgL_curz00_8963
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_tmpz00_27903,
																																								BgL_forwardz00_8956);
																																						}
																																						{	/* Read/reader.scm 441 */

																																							if (((long) (BgL_curz00_8963) == 61L))
																																								{	/* Read/reader.scm 441 */
																																									long
																																										BgL_arg5457z00_8965;
																																									BgL_arg5457z00_8965
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_8956);
																																									{	/* Read/reader.scm 441 */
																																										long
																																											BgL_newzd2matchzd2_16240;
																																										{	/* Read/reader.scm 441 */
																																											obj_t
																																												BgL_tmpz00_27910;
																																											BgL_tmpz00_27910
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_8954);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_27910,
																																												BgL_arg5457z00_8965);
																																										}
																																										BgL_newzd2matchzd2_16240
																																											=
																																											35L;
																																										BgL_matchz00_9716
																																											=
																																											BgL_newzd2matchzd2_16240;
																																								}}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									bool_t
																																										BgL_test9082z00_27913;
																																									if (((long) (BgL_curz00_8963) >= 48L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9082z00_27913
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8963)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9082z00_27913
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test9082z00_27913)
																																										{	/* Read/reader.scm 441 */
																																											BgL_iportz00_4704
																																												=
																																												BgL_iportz00_8954;
																																											BgL_lastzd2matchzd2_4705
																																												=
																																												BgL_lastzd2matchzd2_8955;
																																											BgL_forwardz00_4706
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_8956);
																																											BgL_bufposz00_4707
																																												=
																																												BgL_bufposz00_8957;
																																										BgL_zc3z04anonymousza33239ze3z87_4708:
																																											if ((BgL_forwardz00_4706 == BgL_bufposz00_4707))
																																												{	/* Read/reader.scm 441 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_4704)))
																																														{	/* Read/reader.scm 441 */
																																															long
																																																BgL_arg3242z00_4711;
																																															long
																																																BgL_arg3244z00_4712;
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_27924;
																																																BgL_tmpz00_27924
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4704);
																																																BgL_arg3242z00_4711
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_27924);
																																															}
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_27927;
																																																BgL_tmpz00_27927
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4704);
																																																BgL_arg3244z00_4712
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_27927);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_27931;
																																																long
																																																	BgL_forwardz00_27930;
																																																BgL_forwardz00_27930
																																																	=
																																																	BgL_arg3242z00_4711;
																																																BgL_bufposz00_27931
																																																	=
																																																	BgL_arg3244z00_4712;
																																																BgL_bufposz00_4707
																																																	=
																																																	BgL_bufposz00_27931;
																																																BgL_forwardz00_4706
																																																	=
																																																	BgL_forwardz00_27930;
																																																goto
																																																	BgL_zc3z04anonymousza33239ze3z87_4708;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															BgL_matchz00_9716
																																																=
																																																BgL_lastzd2matchzd2_4705;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													int
																																														BgL_curz00_4713;
																																													{	/* Read/reader.scm 441 */
																																														obj_t
																																															BgL_tmpz00_27932;
																																														BgL_tmpz00_27932
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_4704);
																																														BgL_curz00_4713
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_27932,
																																															BgL_forwardz00_4706);
																																													}
																																													{	/* Read/reader.scm 441 */

																																														if (((long) (BgL_curz00_4713) == 61L))
																																															{	/* Read/reader.scm 441 */
																																																long
																																																	BgL_arg3247z00_4715;
																																																BgL_arg3247z00_4715
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_4706);
																																																{	/* Read/reader.scm 441 */
																																																	long
																																																		BgL_newzd2matchzd2_13565;
																																																	{	/* Read/reader.scm 441 */
																																																		obj_t
																																																			BgL_tmpz00_27939;
																																																		BgL_tmpz00_27939
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_4704);
																																																		RGC_STOP_MATCH
																																																			(BgL_tmpz00_27939,
																																																			BgL_arg3247z00_4715);
																																																	}
																																																	BgL_newzd2matchzd2_13565
																																																		=
																																																		35L;
																																																	BgL_matchz00_9716
																																																		=
																																																		BgL_newzd2matchzd2_13565;
																																															}}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																bool_t
																																																	BgL_test9087z00_27942;
																																																if (((long) (BgL_curz00_4713) >= 48L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test9087z00_27942
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_4713)
																																																			<
																																																			58L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test9087z00_27942
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test9087z00_27942)
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_iportz00_4724
																																																			=
																																																			BgL_iportz00_4704;
																																																		BgL_lastzd2matchzd2_4725
																																																			=
																																																			BgL_lastzd2matchzd2_4705;
																																																		BgL_forwardz00_4726
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_4706);
																																																		BgL_bufposz00_4727
																																																			=
																																																			BgL_bufposz00_4707;
																																																	BgL_zc3z04anonymousza33261ze3z87_4728:
																																																		if ((BgL_forwardz00_4726 == BgL_bufposz00_4727))
																																																			{	/* Read/reader.scm 441 */
																																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_4724)))
																																																					{	/* Read/reader.scm 441 */
																																																						long
																																																							BgL_arg3264z00_4731;
																																																						long
																																																							BgL_arg3265z00_4732;
																																																						{	/* Read/reader.scm 441 */
																																																							obj_t
																																																								BgL_tmpz00_27953;
																																																							BgL_tmpz00_27953
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_4724);
																																																							BgL_arg3264z00_4731
																																																								=
																																																								RGC_BUFFER_FORWARD
																																																								(BgL_tmpz00_27953);
																																																						}
																																																						{	/* Read/reader.scm 441 */
																																																							obj_t
																																																								BgL_tmpz00_27956;
																																																							BgL_tmpz00_27956
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_4724);
																																																							BgL_arg3265z00_4732
																																																								=
																																																								RGC_BUFFER_BUFPOS
																																																								(BgL_tmpz00_27956);
																																																						}
																																																						{
																																																							long
																																																								BgL_bufposz00_27960;
																																																							long
																																																								BgL_forwardz00_27959;
																																																							BgL_forwardz00_27959
																																																								=
																																																								BgL_arg3264z00_4731;
																																																							BgL_bufposz00_27960
																																																								=
																																																								BgL_arg3265z00_4732;
																																																							BgL_bufposz00_4727
																																																								=
																																																								BgL_bufposz00_27960;
																																																							BgL_forwardz00_4726
																																																								=
																																																								BgL_forwardz00_27959;
																																																							goto
																																																								BgL_zc3z04anonymousza33261ze3z87_4728;
																																																						}
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_matchz00_9716
																																																							=
																																																							BgL_lastzd2matchzd2_4725;
																																																					}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				int
																																																					BgL_curz00_4733;
																																																				{	/* Read/reader.scm 441 */
																																																					obj_t
																																																						BgL_tmpz00_27961;
																																																					BgL_tmpz00_27961
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_4724);
																																																					BgL_curz00_4733
																																																						=
																																																						RGC_BUFFER_GET_CHAR
																																																						(BgL_tmpz00_27961,
																																																						BgL_forwardz00_4726);
																																																				}
																																																				{	/* Read/reader.scm 441 */

																																																					if (((long) (BgL_curz00_4733) == 61L))
																																																						{	/* Read/reader.scm 441 */
																																																							long
																																																								BgL_arg3269z00_4735;
																																																							BgL_arg3269z00_4735
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_4726);
																																																							{	/* Read/reader.scm 441 */
																																																								long
																																																									BgL_newzd2matchzd2_13590;
																																																								{	/* Read/reader.scm 441 */
																																																									obj_t
																																																										BgL_tmpz00_27968;
																																																									BgL_tmpz00_27968
																																																										=
																																																										(
																																																										(obj_t)
																																																										BgL_iportz00_4724);
																																																									RGC_STOP_MATCH
																																																										(BgL_tmpz00_27968,
																																																										BgL_arg3269z00_4735);
																																																								}
																																																								BgL_newzd2matchzd2_13590
																																																									=
																																																									35L;
																																																								BgL_matchz00_9716
																																																									=
																																																									BgL_newzd2matchzd2_13590;
																																																						}}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							bool_t
																																																								BgL_test9092z00_27971;
																																																							if (((long) (BgL_curz00_4733) >= 48L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test9092z00_27971
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_4733)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test9092z00_27971
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test9092z00_27971)
																																																								{
																																																									long
																																																										BgL_forwardz00_27977;
																																																									BgL_forwardz00_27977
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_4726);
																																																									BgL_forwardz00_4726
																																																										=
																																																										BgL_forwardz00_27977;
																																																									goto
																																																										BgL_zc3z04anonymousza33261ze3z87_4728;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									if (((long) (BgL_curz00_4733) == 35L))
																																																										{	/* Read/reader.scm 441 */
																																																											long
																																																												BgL_arg3274z00_4740;
																																																											BgL_arg3274z00_4740
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_4726);
																																																											{	/* Read/reader.scm 441 */
																																																												long
																																																													BgL_newzd2matchzd2_13598;
																																																												{	/* Read/reader.scm 441 */
																																																													obj_t
																																																														BgL_tmpz00_27983;
																																																													BgL_tmpz00_27983
																																																														=
																																																														(
																																																														(obj_t)
																																																														BgL_iportz00_4724);
																																																													RGC_STOP_MATCH
																																																														(BgL_tmpz00_27983,
																																																														BgL_arg3274z00_4740);
																																																												}
																																																												BgL_newzd2matchzd2_13598
																																																													=
																																																													36L;
																																																												BgL_matchz00_9716
																																																													=
																																																													BgL_newzd2matchzd2_13598;
																																																										}}
																																																									else
																																																										{	/* Read/reader.scm 441 */
																																																											BgL_matchz00_9716
																																																												=
																																																												BgL_lastzd2matchzd2_4725;
																																																										}
																																																								}
																																																						}
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_4713) == 40L))
																																																			{	/* Read/reader.scm 441 */
																																																				long
																																																					BgL_arg3258z00_4720;
																																																				BgL_arg3258z00_4720
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_4706);
																																																				{	/* Read/reader.scm 441 */
																																																					long
																																																						BgL_newzd2matchzd2_13573;
																																																					{	/* Read/reader.scm 441 */
																																																						obj_t
																																																							BgL_tmpz00_27991;
																																																						BgL_tmpz00_27991
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_4704);
																																																						RGC_STOP_MATCH
																																																							(BgL_tmpz00_27991,
																																																							BgL_arg3258z00_4720);
																																																					}
																																																					BgL_newzd2matchzd2_13573
																																																						=
																																																						32L;
																																																					BgL_matchz00_9716
																																																						=
																																																						BgL_newzd2matchzd2_13573;
																																																			}}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_4713) == 35L))
																																																					{	/* Read/reader.scm 441 */
																																																						long
																																																							BgL_arg3260z00_4722;
																																																						BgL_arg3260z00_4722
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_4706);
																																																						{	/* Read/reader.scm 441 */
																																																							long
																																																								BgL_newzd2matchzd2_13578;
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_27998;
																																																								BgL_tmpz00_27998
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_4704);
																																																								RGC_STOP_MATCH
																																																									(BgL_tmpz00_27998,
																																																									BgL_arg3260z00_4722);
																																																							}
																																																							BgL_newzd2matchzd2_13578
																																																								=
																																																								36L;
																																																							BgL_matchz00_9716
																																																								=
																																																								BgL_newzd2matchzd2_13578;
																																																					}}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_matchz00_9716
																																																							=
																																																							BgL_lastzd2matchzd2_4705;
																																																					}
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_8963) == 35L))
																																												{	/* Read/reader.scm 441 */
																																													long
																																														BgL_arg5462z00_8970;
																																													BgL_arg5462z00_8970
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_8956);
																																													{	/* Read/reader.scm 441 */
																																														long
																																															BgL_newzd2matchzd2_16248;
																																														{	/* Read/reader.scm 441 */
																																															obj_t
																																																BgL_tmpz00_28006;
																																															BgL_tmpz00_28006
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_8954);
																																															RGC_STOP_MATCH
																																																(BgL_tmpz00_28006,
																																																BgL_arg5462z00_8970);
																																														}
																																														BgL_newzd2matchzd2_16248
																																															=
																																															36L;
																																														BgL_matchz00_9716
																																															=
																																															BgL_newzd2matchzd2_16248;
																																												}}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_matchz00_9716
																																														=
																																														BgL_lastzd2matchzd2_8955;
																																												}
																																										}
																																								}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 441 */
																																				if (
																																					((long) (BgL_curz00_8945) == 35L))
																																					{	/* Read/reader.scm 441 */
																																						long
																																							BgL_arg5450z00_8952;
																																						BgL_arg5450z00_8952
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_8938);
																																						{	/* Read/reader.scm 441 */
																																							long
																																								BgL_newzd2matchzd2_16228;
																																							{	/* Read/reader.scm 441 */
																																								obj_t
																																									BgL_tmpz00_28014;
																																								BgL_tmpz00_28014
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_8936);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_28014,
																																									BgL_arg5450z00_8952);
																																							}
																																							BgL_newzd2matchzd2_16228
																																								=
																																								36L;
																																							BgL_matchz00_9716
																																								=
																																								BgL_newzd2matchzd2_16228;
																																					}}
																																				else
																																					{	/* Read/reader.scm 441 */
																																						BgL_matchz00_9716
																																							=
																																							BgL_lastzd2matchzd2_8937;
																																					}
																																			}
																																	}
																															}
																														}
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													if (
																														((long)
																															(BgL_curz00_4486)
																															== 40L))
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_arg3132z00_4505;
																															BgL_arg3132z00_4505
																																=
																																(1L +
																																BgL_forwardz00_4478);
																															{	/* Read/reader.scm 441 */
																																long
																																	BgL_newzd2matchzd2_13445;
																																{	/* Read/reader.scm 441 */
																																	obj_t
																																		BgL_tmpz00_28022;
																																	BgL_tmpz00_28022
																																		=
																																		((obj_t)
																																		BgL_iportz00_4476);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_28022,
																																		BgL_arg3132z00_4505);
																																}
																																BgL_newzd2matchzd2_13445
																																	= 30L;
																																BgL_matchz00_9716
																																	=
																																	BgL_newzd2matchzd2_13445;
																														}}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test9100z00_28025;
																															if (((long)
																																	(BgL_curz00_4486)
																																	< 36L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test9100z00_28025
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	bool_t
																																		BgL_test9102z00_28029;
																																	if (((long)
																																			(BgL_curz00_4486)
																																			== 41L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9102z00_28029
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_4486)
																																					==
																																					40L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9102z00_28029
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9102z00_28029
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_4486)
																																						==
																																						39L);
																																		}}
																																	if (BgL_test9102z00_28029)
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9100z00_28025
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_4486)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9100z00_28025
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					bool_t
																																						BgL_test9106z00_28041;
																																					if ((
																																							(long)
																																							(BgL_curz00_4486)
																																							>=
																																							48L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9106z00_28041
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_4486)
																																								<
																																								58L);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9106z00_28041
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9106z00_28041)
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9100z00_28025
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							if (((long) (BgL_curz00_4486) == 59L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9100z00_28025
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_4486) == 70L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9100z00_28025
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											if (((long) (BgL_curz00_4486) == 84L))
																																												{	/* Read/reader.scm 441 */
																																													BgL_test9100z00_28025
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test9111z00_28056;
																																													if (((long) (BgL_curz00_4486) == 93L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test9111z00_28056
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_4486) == 92L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test9111z00_28056
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test9111z00_28056
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_4486)
																																																		==
																																																		91L);
																																														}}
																																													if (BgL_test9111z00_28056)
																																														{	/* Read/reader.scm 441 */
																																															BgL_test9100z00_28025
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															if (((long) (BgL_curz00_4486) == 96L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test9100z00_28025
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	if (((long) (BgL_curz00_4486) == 102L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test9100z00_28025
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			if (((long) (BgL_curz00_4486) == 116L))
																																																				{	/* Read/reader.scm 441 */
																																																					BgL_test9100z00_28025
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 441 */
																																																					bool_t
																																																						BgL_test9117z00_28074;
																																																					if (((long) (BgL_curz00_4486) == 125L))
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test9117z00_28074
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							if (((long) (BgL_curz00_4486) == 124L))
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test9117z00_28074
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_test9117z00_28074
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_4486)
																																																										==
																																																										123L);
																																																						}}
																																																					if (BgL_test9117z00_28074)
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test9100z00_28025
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_test9100z00_28025
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_4486)
																																																								==
																																																								127L);
																																}}}}}}}}}}}}
																															if (BgL_test9100z00_28025)
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_4486)
																																			== 33L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_iportz00_4917
																																				=
																																				BgL_iportz00_4476;
																																			BgL_lastzd2matchzd2_4918
																																				=
																																				BgL_newzd2matchzd2_4481;
																																			BgL_forwardz00_4919
																																				=
																																				(1L +
																																				BgL_forwardz00_4478);
																																			BgL_bufposz00_4920
																																				=
																																				BgL_bufposz00_4479;
																																		BgL_zc3z04anonymousza33382ze3z87_4921:
																																			if (
																																				(BgL_forwardz00_4919
																																					==
																																					BgL_bufposz00_4920))
																																				{	/* Read/reader.scm 441 */
																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_4917)))
																																						{	/* Read/reader.scm 441 */
																																							long
																																								BgL_arg3391z00_4924;
																																							long
																																								BgL_arg3392z00_4925;
																																							{	/* Read/reader.scm 441 */
																																								obj_t
																																									BgL_tmpz00_28093;
																																								BgL_tmpz00_28093
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_4917);
																																								BgL_arg3391z00_4924
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_tmpz00_28093);
																																							}
																																							{	/* Read/reader.scm 441 */
																																								obj_t
																																									BgL_tmpz00_28096;
																																								BgL_tmpz00_28096
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_4917);
																																								BgL_arg3392z00_4925
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_tmpz00_28096);
																																							}
																																							{
																																								long
																																									BgL_bufposz00_28100;
																																								long
																																									BgL_forwardz00_28099;
																																								BgL_forwardz00_28099
																																									=
																																									BgL_arg3391z00_4924;
																																								BgL_bufposz00_28100
																																									=
																																									BgL_arg3392z00_4925;
																																								BgL_bufposz00_4920
																																									=
																																									BgL_bufposz00_28100;
																																								BgL_forwardz00_4919
																																									=
																																									BgL_forwardz00_28099;
																																								goto
																																									BgL_zc3z04anonymousza33382ze3z87_4921;
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							BgL_matchz00_9716
																																								=
																																								BgL_lastzd2matchzd2_4918;
																																						}
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					int
																																						BgL_curz00_4926;
																																					{	/* Read/reader.scm 441 */
																																						obj_t
																																							BgL_tmpz00_28101;
																																						BgL_tmpz00_28101
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_4917);
																																						BgL_curz00_4926
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_tmpz00_28101,
																																							BgL_forwardz00_4919);
																																					}
																																					{	/* Read/reader.scm 441 */

																																						if (
																																							((long) (BgL_curz00_4926) == 124L))
																																							{	/* Read/reader.scm 441 */
																																								BgL_iportz00_5022
																																									=
																																									BgL_iportz00_4917;
																																								BgL_lastzd2matchzd2_5023
																																									=
																																									BgL_lastzd2matchzd2_4918;
																																								BgL_forwardz00_5024
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_4919);
																																								BgL_bufposz00_5025
																																									=
																																									BgL_bufposz00_4920;
																																							BgL_zc3z04anonymousza33444ze3z87_5026:
																																								{	/* Read/reader.scm 441 */
																																									long
																																										BgL_newzd2matchzd2_5027;
																																									{	/* Read/reader.scm 441 */
																																										obj_t
																																											BgL_tmpz00_28107;
																																										BgL_tmpz00_28107
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_5022);
																																										RGC_STOP_MATCH
																																											(BgL_tmpz00_28107,
																																											BgL_forwardz00_5024);
																																									}
																																									BgL_newzd2matchzd2_5027
																																										=
																																										6L;
																																									if ((BgL_forwardz00_5024 == BgL_bufposz00_5025))
																																										{	/* Read/reader.scm 441 */
																																											if (rgc_fill_buffer(((obj_t) BgL_iportz00_5022)))
																																												{	/* Read/reader.scm 441 */
																																													long
																																														BgL_arg3448z00_5030;
																																													long
																																														BgL_arg3449z00_5031;
																																													{	/* Read/reader.scm 441 */
																																														obj_t
																																															BgL_tmpz00_28115;
																																														BgL_tmpz00_28115
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_5022);
																																														BgL_arg3448z00_5030
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_tmpz00_28115);
																																													}
																																													{	/* Read/reader.scm 441 */
																																														obj_t
																																															BgL_tmpz00_28118;
																																														BgL_tmpz00_28118
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_5022);
																																														BgL_arg3449z00_5031
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_tmpz00_28118);
																																													}
																																													{
																																														long
																																															BgL_bufposz00_28122;
																																														long
																																															BgL_forwardz00_28121;
																																														BgL_forwardz00_28121
																																															=
																																															BgL_arg3448z00_5030;
																																														BgL_bufposz00_28122
																																															=
																																															BgL_arg3449z00_5031;
																																														BgL_bufposz00_5025
																																															=
																																															BgL_bufposz00_28122;
																																														BgL_forwardz00_5024
																																															=
																																															BgL_forwardz00_28121;
																																														goto
																																															BgL_zc3z04anonymousza33444ze3z87_5026;
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 441 */
																																													BgL_matchz00_9716
																																														=
																																														BgL_newzd2matchzd2_5027;
																																												}
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											int
																																												BgL_curz00_5032;
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_28123;
																																												BgL_tmpz00_28123
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_5022);
																																												BgL_curz00_5032
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_tmpz00_28123,
																																													BgL_forwardz00_5024);
																																											}
																																											{	/* Read/reader.scm 441 */

																																												{	/* Read/reader.scm 441 */
																																													bool_t
																																														BgL_test9126z00_28126;
																																													if (((long) (BgL_curz00_5032) < 33L))
																																														{	/* Read/reader.scm 441 */
																																															BgL_test9126z00_28126
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															bool_t
																																																BgL_test9128z00_28130;
																																															if (((long) (BgL_curz00_5032) == 35L))
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test9128z00_28130
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test9128z00_28130
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5032)
																																																		==
																																																		34L);
																																																}
																																															if (BgL_test9128z00_28130)
																																																{	/* Read/reader.scm 441 */
																																																	BgL_test9126z00_28126
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	bool_t
																																																		BgL_test9130z00_28136;
																																																	if (((long) (BgL_curz00_5032) == 41L))
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test9130z00_28136
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test9130z00_28136
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_5032)
																																																				==
																																																				40L);
																																																		}
																																																	if (BgL_test9130z00_28136)
																																																		{	/* Read/reader.scm 441 */
																																																			BgL_test9126z00_28126
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 441 */
																																																			switch
																																																				(
																																																				(long)
																																																				(BgL_curz00_5032))
																																																				{
																																																				case 59L:

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

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

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

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

																																																					BgL_test9126z00_28126 = ((bool_t) 1);
																																																					break;
																																																				default:
																																																					BgL_test9126z00_28126 = ((long) (BgL_curz00_5032) == 127L);
																																														}}}}
																																													if (BgL_test9126z00_28126)
																																														{	/* Read/reader.scm 441 */
																																															BgL_matchz00_9716
																																																=
																																																BgL_newzd2matchzd2_5027;
																																														}
																																													else
																																														{
																																															long
																																																BgL_forwardz00_28147;
																																															long
																																																BgL_lastzd2matchzd2_28146;
																																															BgL_lastzd2matchzd2_28146
																																																=
																																																BgL_newzd2matchzd2_5027;
																																															BgL_forwardz00_28147
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_5024);
																																															BgL_forwardz00_5024
																																																=
																																																BgL_forwardz00_28147;
																																															BgL_lastzd2matchzd2_5023
																																																=
																																																BgL_lastzd2matchzd2_28146;
																																															goto
																																																BgL_zc3z04anonymousza33444ze3z87_5026;
																																														}
																																												}
																																											}
																																										}
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 441 */
																																								if (((long) (BgL_curz00_4926) == 40L))
																																									{	/* Read/reader.scm 441 */
																																										long
																																											BgL_arg3397z00_4930;
																																										BgL_arg3397z00_4930
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4919);
																																										{	/* Read/reader.scm 441 */
																																											long
																																												BgL_newzd2matchzd2_13723;
																																											{	/* Read/reader.scm 441 */
																																												obj_t
																																													BgL_tmpz00_28154;
																																												BgL_tmpz00_28154
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4917);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_28154,
																																													BgL_arg3397z00_4930);
																																											}
																																											BgL_newzd2matchzd2_13723
																																												=
																																												31L;
																																											BgL_matchz00_9716
																																												=
																																												BgL_newzd2matchzd2_13723;
																																									}}
																																								else
																																									{	/* Read/reader.scm 441 */
																																										bool_t
																																											BgL_test9133z00_28157;
																																										if (((long) (BgL_curz00_4926) < 33L))
																																											{	/* Read/reader.scm 441 */
																																												BgL_test9133z00_28157
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												bool_t
																																													BgL_test9135z00_28161;
																																												if (((long) (BgL_curz00_4926) == 35L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_test9135z00_28161
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_test9135z00_28161
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_4926)
																																															==
																																															34L);
																																													}
																																												if (BgL_test9135z00_28161)
																																													{	/* Read/reader.scm 441 */
																																														BgL_test9133z00_28157
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														bool_t
																																															BgL_test9137z00_28167;
																																														if (((long) (BgL_curz00_4926) == 41L))
																																															{	/* Read/reader.scm 441 */
																																																BgL_test9137z00_28167
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																BgL_test9137z00_28167
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_4926)
																																																	==
																																																	40L);
																																															}
																																														if (BgL_test9137z00_28167)
																																															{	/* Read/reader.scm 441 */
																																																BgL_test9133z00_28157
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																if (((long) (BgL_curz00_4926) == 59L))
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_test9133z00_28157
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_4926) == 91L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test9133z00_28157
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				if (((long) (BgL_curz00_4926) == 93L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test9133z00_28157
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test9142z00_28182;
																																																						if (((long) (BgL_curz00_4926) == 125L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9142z00_28182
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								if (((long) (BgL_curz00_4926) == 124L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test9142z00_28182
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test9142z00_28182
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_4926)
																																																											==
																																																											123L);
																																																							}}
																																																						if (BgL_test9142z00_28182)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9133z00_28157
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9133z00_28157
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_4926)
																																																									==
																																																									127L);
																																											}}}}}}}
																																										if (BgL_test9133z00_28157)
																																											{	/* Read/reader.scm 441 */
																																												if (((long) (BgL_curz00_4926) == 32L))
																																													{	/* Read/reader.scm 441 */
																																														BgL_iportz00_6943
																																															=
																																															BgL_iportz00_4917;
																																														BgL_lastzd2matchzd2_6944
																																															=
																																															BgL_lastzd2matchzd2_4918;
																																														BgL_forwardz00_6945
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_4919);
																																														BgL_bufposz00_6946
																																															=
																																															BgL_bufposz00_4920;
																																													BgL_zc3z04anonymousza34434ze3z87_6947:
																																														if ((BgL_forwardz00_6945 == BgL_bufposz00_6946))
																																															{	/* Read/reader.scm 441 */
																																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_6943)))
																																																	{	/* Read/reader.scm 441 */
																																																		long
																																																			BgL_arg4437z00_6950;
																																																		long
																																																			BgL_arg4438z00_6951;
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_28201;
																																																			BgL_tmpz00_28201
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6943);
																																																			BgL_arg4437z00_6950
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_tmpz00_28201);
																																																		}
																																																		{	/* Read/reader.scm 441 */
																																																			obj_t
																																																				BgL_tmpz00_28204;
																																																			BgL_tmpz00_28204
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6943);
																																																			BgL_arg4438z00_6951
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_tmpz00_28204);
																																																		}
																																																		{
																																																			long
																																																				BgL_bufposz00_28208;
																																																			long
																																																				BgL_forwardz00_28207;
																																																			BgL_forwardz00_28207
																																																				=
																																																				BgL_arg4437z00_6950;
																																																			BgL_bufposz00_28208
																																																				=
																																																				BgL_arg4438z00_6951;
																																																			BgL_bufposz00_6946
																																																				=
																																																				BgL_bufposz00_28208;
																																																			BgL_forwardz00_6945
																																																				=
																																																				BgL_forwardz00_28207;
																																																			goto
																																																				BgL_zc3z04anonymousza34434ze3z87_6947;
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		BgL_matchz00_9716
																																																			=
																																																			BgL_lastzd2matchzd2_6944;
																																																	}
																																															}
																																														else
																																															{	/* Read/reader.scm 441 */
																																																int
																																																	BgL_curz00_6952;
																																																{	/* Read/reader.scm 441 */
																																																	obj_t
																																																		BgL_tmpz00_28209;
																																																	BgL_tmpz00_28209
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_6943);
																																																	BgL_curz00_6952
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_tmpz00_28209,
																																																		BgL_forwardz00_6945);
																																																}
																																																{	/* Read/reader.scm 441 */

																																																	{	/* Read/reader.scm 441 */
																																																		bool_t
																																																			BgL_test9148z00_28212;
																																																		if (((long) (BgL_curz00_6952) < 33L))
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_test9148z00_28212
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test9150z00_28216;
																																																				if (((long) (BgL_curz00_6952) == 35L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test9150z00_28216
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test9150z00_28216
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_6952)
																																																							==
																																																							34L);
																																																					}
																																																				if (BgL_test9150z00_28216)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test9148z00_28212
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test9152z00_28222;
																																																						if (((long) (BgL_curz00_6952) == 41L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9152z00_28222
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9152z00_28222
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_6952)
																																																									==
																																																									40L);
																																																							}
																																																						if (BgL_test9152z00_28222)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9148z00_28212
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								switch
																																																									(
																																																									(long)
																																																									(BgL_curz00_6952))
																																																									{
																																																									case 59L:

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

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

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

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

																																																										BgL_test9148z00_28212 = ((bool_t) 1);
																																																										break;
																																																									default:
																																																										BgL_test9148z00_28212 = ((long) (BgL_curz00_6952) == 127L);
																																																			}}}}
																																																		if (BgL_test9148z00_28212)
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_matchz00_9716
																																																					=
																																																					BgL_lastzd2matchzd2_6944;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				BgL_iportz00_9203
																																																					=
																																																					BgL_iportz00_6943;
																																																				BgL_lastzd2matchzd2_9204
																																																					=
																																																					BgL_lastzd2matchzd2_6944;
																																																				BgL_forwardz00_9205
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_6945);
																																																				BgL_bufposz00_9206
																																																					=
																																																					BgL_bufposz00_6946;
																																																			BgL_zc3z04anonymousza35580ze3z87_9207:
																																																				{	/* Read/reader.scm 441 */
																																																					long
																																																						BgL_newzd2matchzd2_9208;
																																																					if (rgc_buffer_bol_p(((obj_t) BgL_iportz00_9203)))
																																																						{	/* Read/reader.scm 441 */
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_28235;
																																																								BgL_tmpz00_28235
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_9203);
																																																								RGC_STOP_MATCH
																																																									(BgL_tmpz00_28235,
																																																									BgL_forwardz00_9205);
																																																							}
																																																							BgL_newzd2matchzd2_9208
																																																								=
																																																								5L;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							BgL_newzd2matchzd2_9208
																																																								=
																																																								BgL_lastzd2matchzd2_9204;
																																																						}
																																																					if ((BgL_forwardz00_9205 == BgL_bufposz00_9206))
																																																						{	/* Read/reader.scm 441 */
																																																							if (rgc_fill_buffer(((obj_t) BgL_iportz00_9203)))
																																																								{	/* Read/reader.scm 441 */
																																																									long
																																																										BgL_arg5583z00_9211;
																																																									long
																																																										BgL_arg5584z00_9212;
																																																									{	/* Read/reader.scm 441 */
																																																										obj_t
																																																											BgL_tmpz00_28243;
																																																										BgL_tmpz00_28243
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_9203);
																																																										BgL_arg5583z00_9211
																																																											=
																																																											RGC_BUFFER_FORWARD
																																																											(BgL_tmpz00_28243);
																																																									}
																																																									{	/* Read/reader.scm 441 */
																																																										obj_t
																																																											BgL_tmpz00_28246;
																																																										BgL_tmpz00_28246
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_9203);
																																																										BgL_arg5584z00_9212
																																																											=
																																																											RGC_BUFFER_BUFPOS
																																																											(BgL_tmpz00_28246);
																																																									}
																																																									{
																																																										long
																																																											BgL_bufposz00_28250;
																																																										long
																																																											BgL_forwardz00_28249;
																																																										BgL_forwardz00_28249
																																																											=
																																																											BgL_arg5583z00_9211;
																																																										BgL_bufposz00_28250
																																																											=
																																																											BgL_arg5584z00_9212;
																																																										BgL_bufposz00_9206
																																																											=
																																																											BgL_bufposz00_28250;
																																																										BgL_forwardz00_9205
																																																											=
																																																											BgL_forwardz00_28249;
																																																										goto
																																																											BgL_zc3z04anonymousza35580ze3z87_9207;
																																																									}
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 441 */
																																																									BgL_matchz00_9716
																																																										=
																																																										BgL_newzd2matchzd2_9208;
																																																								}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 441 */
																																																							int
																																																								BgL_curz00_9213;
																																																							{	/* Read/reader.scm 441 */
																																																								obj_t
																																																									BgL_tmpz00_28251;
																																																								BgL_tmpz00_28251
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_9203);
																																																								BgL_curz00_9213
																																																									=
																																																									RGC_BUFFER_GET_CHAR
																																																									(BgL_tmpz00_28251,
																																																									BgL_forwardz00_9205);
																																																							}
																																																							{	/* Read/reader.scm 441 */

																																																								if (((long) (BgL_curz00_9213) == 10L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_matchz00_9716
																																																											=
																																																											BgL_newzd2matchzd2_9208;
																																																									}
																																																								else
																																																									{
																																																										long
																																																											BgL_forwardz00_28258;
																																																										long
																																																											BgL_lastzd2matchzd2_28257;
																																																										BgL_lastzd2matchzd2_28257
																																																											=
																																																											BgL_newzd2matchzd2_9208;
																																																										BgL_forwardz00_28258
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_9205);
																																																										BgL_forwardz00_9205
																																																											=
																																																											BgL_forwardz00_28258;
																																																										BgL_lastzd2matchzd2_9204
																																																											=
																																																											BgL_lastzd2matchzd2_28257;
																																																										goto
																																																											BgL_zc3z04anonymousza35580ze3z87_9207;
																																																									}
																																																							}
																																																						}
																																																				}
																																																			}
																																																	}
																																																}
																																															}
																																													}
																																												else
																																													{	/* Read/reader.scm 441 */
																																														BgL_matchz00_9716
																																															=
																																															BgL_lastzd2matchzd2_4918;
																																													}
																																											}
																																										else
																																											{	/* Read/reader.scm 441 */
																																												BgL_iportz00_6219
																																													=
																																													BgL_iportz00_4917;
																																												BgL_lastzd2matchzd2_6220
																																													=
																																													BgL_lastzd2matchzd2_4918;
																																												BgL_forwardz00_6221
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4919);
																																												BgL_bufposz00_6222
																																													=
																																													BgL_bufposz00_4920;
																																											BgL_zc3z04anonymousza34053ze3z87_6223:
																																												{	/* Read/reader.scm 441 */
																																													long
																																														BgL_newzd2matchzd2_6224;
																																													{	/* Read/reader.scm 441 */
																																														obj_t
																																															BgL_tmpz00_28262;
																																														BgL_tmpz00_28262
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_6219);
																																														RGC_STOP_MATCH
																																															(BgL_tmpz00_28262,
																																															BgL_forwardz00_6221);
																																													}
																																													BgL_newzd2matchzd2_6224
																																														=
																																														6L;
																																													if ((BgL_forwardz00_6221 == BgL_bufposz00_6222))
																																														{	/* Read/reader.scm 441 */
																																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_6219)))
																																																{	/* Read/reader.scm 441 */
																																																	long
																																																		BgL_arg4056z00_6227;
																																																	long
																																																		BgL_arg4057z00_6228;
																																																	{	/* Read/reader.scm 441 */
																																																		obj_t
																																																			BgL_tmpz00_28270;
																																																		BgL_tmpz00_28270
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_6219);
																																																		BgL_arg4056z00_6227
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_tmpz00_28270);
																																																	}
																																																	{	/* Read/reader.scm 441 */
																																																		obj_t
																																																			BgL_tmpz00_28273;
																																																		BgL_tmpz00_28273
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_6219);
																																																		BgL_arg4057z00_6228
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_tmpz00_28273);
																																																	}
																																																	{
																																																		long
																																																			BgL_bufposz00_28277;
																																																		long
																																																			BgL_forwardz00_28276;
																																																		BgL_forwardz00_28276
																																																			=
																																																			BgL_arg4056z00_6227;
																																																		BgL_bufposz00_28277
																																																			=
																																																			BgL_arg4057z00_6228;
																																																		BgL_bufposz00_6222
																																																			=
																																																			BgL_bufposz00_28277;
																																																		BgL_forwardz00_6221
																																																			=
																																																			BgL_forwardz00_28276;
																																																		goto
																																																			BgL_zc3z04anonymousza34053ze3z87_6223;
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 441 */
																																																	BgL_matchz00_9716
																																																		=
																																																		BgL_newzd2matchzd2_6224;
																																																}
																																														}
																																													else
																																														{	/* Read/reader.scm 441 */
																																															int
																																																BgL_curz00_6229;
																																															{	/* Read/reader.scm 441 */
																																																obj_t
																																																	BgL_tmpz00_28278;
																																																BgL_tmpz00_28278
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_6219);
																																																BgL_curz00_6229
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_tmpz00_28278,
																																																	BgL_forwardz00_6221);
																																															}
																																															{	/* Read/reader.scm 441 */

																																																if (((long) (BgL_curz00_6229) == 124L))
																																																	{
																																																		long
																																																			BgL_bufposz00_28288;
																																																		long
																																																			BgL_forwardz00_28286;
																																																		long
																																																			BgL_lastzd2matchzd2_28285;
																																																		obj_t
																																																			BgL_iportz00_28284;
																																																		BgL_iportz00_28284
																																																			=
																																																			BgL_iportz00_6219;
																																																		BgL_lastzd2matchzd2_28285
																																																			=
																																																			BgL_newzd2matchzd2_6224;
																																																		BgL_forwardz00_28286
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_6221);
																																																		BgL_bufposz00_28288
																																																			=
																																																			BgL_bufposz00_6222;
																																																		BgL_bufposz00_5025
																																																			=
																																																			BgL_bufposz00_28288;
																																																		BgL_forwardz00_5024
																																																			=
																																																			BgL_forwardz00_28286;
																																																		BgL_lastzd2matchzd2_5023
																																																			=
																																																			BgL_lastzd2matchzd2_28285;
																																																		BgL_iportz00_5022
																																																			=
																																																			BgL_iportz00_28284;
																																																		goto
																																																			BgL_zc3z04anonymousza33444ze3z87_5026;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 441 */
																																																		if (((long) (BgL_curz00_6229) == 40L))
																																																			{	/* Read/reader.scm 441 */
																																																				long
																																																					BgL_arg4061z00_6233;
																																																				BgL_arg4061z00_6233
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_6221);
																																																				{	/* Read/reader.scm 441 */
																																																					long
																																																						BgL_newzd2matchzd2_14514;
																																																					{	/* Read/reader.scm 441 */
																																																						obj_t
																																																							BgL_tmpz00_28293;
																																																						BgL_tmpz00_28293
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_6219);
																																																						RGC_STOP_MATCH
																																																							(BgL_tmpz00_28293,
																																																							BgL_arg4061z00_6233);
																																																					}
																																																					BgL_newzd2matchzd2_14514
																																																						=
																																																						31L;
																																																					BgL_matchz00_9716
																																																						=
																																																						BgL_newzd2matchzd2_14514;
																																																			}}
																																																		else
																																																			{	/* Read/reader.scm 441 */
																																																				bool_t
																																																					BgL_test9162z00_28296;
																																																				if (((long) (BgL_curz00_6229) < 33L))
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_test9162z00_28296
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 441 */
																																																						bool_t
																																																							BgL_test9164z00_28300;
																																																						if (((long) (BgL_curz00_6229) == 35L))
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9164z00_28300
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9164z00_28300
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_6229)
																																																									==
																																																									34L);
																																																							}
																																																						if (BgL_test9164z00_28300)
																																																							{	/* Read/reader.scm 441 */
																																																								BgL_test9162z00_28296
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 441 */
																																																								bool_t
																																																									BgL_test9166z00_28306;
																																																								if (((long) (BgL_curz00_6229) == 41L))
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test9166z00_28306
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test9166z00_28306
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_6229)
																																																											==
																																																											40L);
																																																									}
																																																								if (BgL_test9166z00_28306)
																																																									{	/* Read/reader.scm 441 */
																																																										BgL_test9162z00_28296
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 441 */
																																																										if (((long) (BgL_curz00_6229) == 59L))
																																																											{	/* Read/reader.scm 441 */
																																																												BgL_test9162z00_28296
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 441 */
																																																												if (((long) (BgL_curz00_6229) == 91L))
																																																													{	/* Read/reader.scm 441 */
																																																														BgL_test9162z00_28296
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 441 */
																																																														if (((long) (BgL_curz00_6229) == 93L))
																																																															{	/* Read/reader.scm 441 */
																																																																BgL_test9162z00_28296
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 441 */
																																																																bool_t
																																																																	BgL_test9171z00_28321;
																																																																if (((long) (BgL_curz00_6229) == 125L))
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test9171z00_28321
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		if (((long) (BgL_curz00_6229) == 124L))
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test9171z00_28321
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 441 */
																																																																				BgL_test9171z00_28321
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_6229)
																																																																					==
																																																																					123L);
																																																																	}}
																																																																if (BgL_test9171z00_28321)
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test9162z00_28296
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 441 */
																																																																		BgL_test9162z00_28296
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_6229)
																																																																			==
																																																																			127L);
																																																					}}}}}}}
																																																				if (BgL_test9162z00_28296)
																																																					{	/* Read/reader.scm 441 */
																																																						BgL_matchz00_9716
																																																							=
																																																							BgL_newzd2matchzd2_6224;
																																																					}
																																																				else
																																																					{
																																																						long
																																																							BgL_forwardz00_28333;
																																																						long
																																																							BgL_lastzd2matchzd2_28332;
																																																						BgL_lastzd2matchzd2_28332
																																																							=
																																																							BgL_newzd2matchzd2_6224;
																																																						BgL_forwardz00_28333
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_6221);
																																																						BgL_forwardz00_6221
																																																							=
																																																							BgL_forwardz00_28333;
																																																						BgL_lastzd2matchzd2_6220
																																																							=
																																																							BgL_lastzd2matchzd2_28332;
																																																						goto
																																																							BgL_zc3z04anonymousza34053ze3z87_6223;
																																																					}
																																																			}
																																																	}
																																															}
																																														}
																																												}
																																											}
																																									}
																																							}
																																					}
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			BgL_matchz00_9716
																																				=
																																				BgL_newzd2matchzd2_4481;
																																		}
																																}
																															else
																																{
																																	long
																																		BgL_bufposz00_28341;
																																	long
																																		BgL_forwardz00_28339;
																																	long
																																		BgL_lastzd2matchzd2_28338;
																																	obj_t
																																		BgL_iportz00_28337;
																																	BgL_iportz00_28337
																																		=
																																		BgL_iportz00_4476;
																																	BgL_lastzd2matchzd2_28338
																																		=
																																		BgL_newzd2matchzd2_4481;
																																	BgL_forwardz00_28339
																																		=
																																		(1L +
																																		BgL_forwardz00_4478);
																																	BgL_bufposz00_28341
																																		=
																																		BgL_bufposz00_4479;
																																	BgL_bufposz00_4880
																																		=
																																		BgL_bufposz00_28341;
																																	BgL_forwardz00_4879
																																		=
																																		BgL_forwardz00_28339;
																																	BgL_lastzd2matchzd2_4878
																																		=
																																		BgL_lastzd2matchzd2_28338;
																																	BgL_iportz00_4877
																																		=
																																		BgL_iportz00_28337;
																																	goto
																																		BgL_zc3z04anonymousza33362ze3z87_4881;
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 34L:

											BgL_iportz00_3916 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_3917 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_3918 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_3919 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza32740ze3z87_3920:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_3921;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_28343;

													BgL_tmpz00_28343 = ((obj_t) BgL_iportz00_3916);
													RGC_STOP_MATCH(BgL_tmpz00_28343, BgL_forwardz00_3918);
												}
												BgL_newzd2matchzd2_3921 = 38L;
												if ((BgL_forwardz00_3918 == BgL_bufposz00_3919))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_3916)))
															{	/* Read/reader.scm 441 */
																long BgL_arg2743z00_3924;
																long BgL_arg2744z00_3925;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_28351;

																	BgL_tmpz00_28351 =
																		((obj_t) BgL_iportz00_3916);
																	BgL_arg2743z00_3924 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_28351);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_28354;

																	BgL_tmpz00_28354 =
																		((obj_t) BgL_iportz00_3916);
																	BgL_arg2744z00_3925 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_28354);
																}
																{
																	long BgL_bufposz00_28358;
																	long BgL_forwardz00_28357;

																	BgL_forwardz00_28357 = BgL_arg2743z00_3924;
																	BgL_bufposz00_28358 = BgL_arg2744z00_3925;
																	BgL_bufposz00_3919 = BgL_bufposz00_28358;
																	BgL_forwardz00_3918 = BgL_forwardz00_28357;
																	goto BgL_zc3z04anonymousza32740ze3z87_3920;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_3921;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_3926;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_28359;

															BgL_tmpz00_28359 = ((obj_t) BgL_iportz00_3916);
															BgL_curz00_3926 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_28359,
																BgL_forwardz00_3918);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_3926) == 92L))
																{	/* Read/reader.scm 441 */
																	long BgL_arg2746z00_3928;

																	BgL_arg2746z00_3928 =
																		(1L + BgL_forwardz00_3918);
																	{
																		long BgL_forwardz00_13047;
																		long BgL_bufposz00_13048;

																		BgL_forwardz00_13047 = BgL_arg2746z00_3928;
																		BgL_bufposz00_13048 = BgL_bufposz00_3919;
																	BgL_statezd2125zd21315z00_13046:
																		if (
																			(BgL_forwardz00_13047 ==
																				BgL_bufposz00_13048))
																			{	/* Read/reader.scm 441 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_3916)))
																					{	/* Read/reader.scm 441 */
																						long BgL_arg4259z00_13051;
																						long BgL_arg4260z00_13052;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_28371;

																							BgL_tmpz00_28371 =
																								((obj_t) BgL_iportz00_3916);
																							BgL_arg4259z00_13051 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_28371);
																						}
																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_28374;

																							BgL_tmpz00_28374 =
																								((obj_t) BgL_iportz00_3916);
																							BgL_arg4260z00_13052 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_28374);
																						}
																						{
																							long BgL_bufposz00_28378;
																							long BgL_forwardz00_28377;

																							BgL_forwardz00_28377 =
																								BgL_arg4259z00_13051;
																							BgL_bufposz00_28378 =
																								BgL_arg4260z00_13052;
																							BgL_bufposz00_13048 =
																								BgL_bufposz00_28378;
																							BgL_forwardz00_13047 =
																								BgL_forwardz00_28377;
																							goto
																								BgL_statezd2125zd21315z00_13046;
																						}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						BgL_matchz00_9716 =
																							BgL_newzd2matchzd2_3921;
																					}
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				int BgL_curz00_13053;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_28379;

																					BgL_tmpz00_28379 =
																						((obj_t) BgL_iportz00_3916);
																					BgL_curz00_13053 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_28379,
																						BgL_forwardz00_13047);
																				}
																				{	/* Read/reader.scm 441 */

																					if (
																						((long) (BgL_curz00_13053) == 10L))
																						{	/* Read/reader.scm 441 */
																							BgL_matchz00_9716 =
																								BgL_newzd2matchzd2_3921;
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_iportz00_4388 =
																								BgL_iportz00_3916;
																							BgL_lastzd2matchzd2_4389 =
																								BgL_newzd2matchzd2_3921;
																							BgL_forwardz00_4390 =
																								(1L + BgL_forwardz00_13047);
																							BgL_bufposz00_4391 =
																								BgL_bufposz00_13048;
																						BgL_zc3z04anonymousza33037ze3z87_4392:
																							if (
																								(BgL_forwardz00_4390 ==
																									BgL_bufposz00_4391))
																								{	/* Read/reader.scm 441 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_4388)))
																										{	/* Read/reader.scm 441 */
																											long BgL_arg3040z00_4395;
																											long BgL_arg3041z00_4396;

																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_28390;

																												BgL_tmpz00_28390 =
																													((obj_t)
																													BgL_iportz00_4388);
																												BgL_arg3040z00_4395 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_28390);
																											}
																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_28393;

																												BgL_tmpz00_28393 =
																													((obj_t)
																													BgL_iportz00_4388);
																												BgL_arg3041z00_4396 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_28393);
																											}
																											{
																												long
																													BgL_bufposz00_28397;
																												long
																													BgL_forwardz00_28396;
																												BgL_forwardz00_28396 =
																													BgL_arg3040z00_4395;
																												BgL_bufposz00_28397 =
																													BgL_arg3041z00_4396;
																												BgL_bufposz00_4391 =
																													BgL_bufposz00_28397;
																												BgL_forwardz00_4390 =
																													BgL_forwardz00_28396;
																												goto
																													BgL_zc3z04anonymousza33037ze3z87_4392;
																											}
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											BgL_matchz00_9716 =
																												BgL_lastzd2matchzd2_4389;
																										}
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									int BgL_curz00_4397;

																									{	/* Read/reader.scm 441 */
																										obj_t BgL_tmpz00_28398;

																										BgL_tmpz00_28398 =
																											((obj_t)
																											BgL_iportz00_4388);
																										BgL_curz00_4397 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_28398,
																											BgL_forwardz00_4390);
																									}
																									{	/* Read/reader.scm 441 */

																										if (
																											((long) (BgL_curz00_4397)
																												== 92L))
																											{	/* Read/reader.scm 441 */
																												long
																													BgL_arg3043z00_4399;
																												BgL_arg3043z00_4399 =
																													(1L +
																													BgL_forwardz00_4390);
																												{
																													long
																														BgL_forwardz00_13342;
																													long
																														BgL_bufposz00_13343;
																													BgL_forwardz00_13342 =
																														BgL_arg3043z00_4399;
																													BgL_bufposz00_13343 =
																														BgL_bufposz00_4391;
																												BgL_statezd2125zd21315z00_13341:
																													if (
																														(BgL_forwardz00_13342
																															==
																															BgL_bufposz00_13343))
																														{	/* Read/reader.scm 441 */
																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_4388)))
																																{	/* Read/reader.scm 441 */
																																	long
																																		BgL_arg4259z00_13346;
																																	long
																																		BgL_arg4260z00_13347;
																																	{	/* Read/reader.scm 441 */
																																		obj_t
																																			BgL_tmpz00_28410;
																																		BgL_tmpz00_28410
																																			=
																																			((obj_t)
																																			BgL_iportz00_4388);
																																		BgL_arg4259z00_13346
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_tmpz00_28410);
																																	}
																																	{	/* Read/reader.scm 441 */
																																		obj_t
																																			BgL_tmpz00_28413;
																																		BgL_tmpz00_28413
																																			=
																																			((obj_t)
																																			BgL_iportz00_4388);
																																		BgL_arg4260z00_13347
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_tmpz00_28413);
																																	}
																																	{
																																		long
																																			BgL_bufposz00_28417;
																																		long
																																			BgL_forwardz00_28416;
																																		BgL_forwardz00_28416
																																			=
																																			BgL_arg4259z00_13346;
																																		BgL_bufposz00_28417
																																			=
																																			BgL_arg4260z00_13347;
																																		BgL_bufposz00_13343
																																			=
																																			BgL_bufposz00_28417;
																																		BgL_forwardz00_13342
																																			=
																																			BgL_forwardz00_28416;
																																		goto
																																			BgL_statezd2125zd21315z00_13341;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_matchz00_9716
																																		=
																																		BgL_lastzd2matchzd2_4389;
																																}
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															int
																																BgL_curz00_13348;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_28418;
																																BgL_tmpz00_28418
																																	=
																																	((obj_t)
																																	BgL_iportz00_4388);
																																BgL_curz00_13348
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_tmpz00_28418,
																																	BgL_forwardz00_13342);
																															}
																															{	/* Read/reader.scm 441 */

																																if (
																																	((long)
																																		(BgL_curz00_13348)
																																		== 10L))
																																	{	/* Read/reader.scm 441 */
																																		BgL_matchz00_9716
																																			=
																																			BgL_lastzd2matchzd2_4389;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_28426;
																																		long
																																			BgL_forwardz00_28424;
																																		BgL_forwardz00_28424
																																			=
																																			(1L +
																																			BgL_forwardz00_13342);
																																		BgL_bufposz00_28426
																																			=
																																			BgL_bufposz00_13343;
																																		BgL_bufposz00_4391
																																			=
																																			BgL_bufposz00_28426;
																																		BgL_forwardz00_4390
																																			=
																																			BgL_forwardz00_28424;
																																		goto
																																			BgL_zc3z04anonymousza33037ze3z87_4392;
																																	}
																															}
																														}
																												}
																											}
																										else
																											{	/* Read/reader.scm 441 */
																												if (
																													((long)
																														(BgL_curz00_4397) ==
																														34L))
																													{	/* Read/reader.scm 441 */
																														long
																															BgL_arg3045z00_4401;
																														BgL_arg3045z00_4401
																															=
																															(1L +
																															BgL_forwardz00_4390);
																														{	/* Read/reader.scm 441 */
																															long
																																BgL_newzd2matchzd2_13362;
																															{	/* Read/reader.scm 441 */
																																obj_t
																																	BgL_tmpz00_28431;
																																BgL_tmpz00_28431
																																	=
																																	((obj_t)
																																	BgL_iportz00_4388);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_28431,
																																	BgL_arg3045z00_4401);
																															}
																															BgL_newzd2matchzd2_13362
																																= 11L;
																															BgL_matchz00_9716
																																=
																																BgL_newzd2matchzd2_13362;
																													}}
																												else
																													{	/* Read/reader.scm 441 */
																														bool_t
																															BgL_test9187z00_28434;
																														if (((long)
																																(BgL_curz00_4397)
																																== 34L))
																															{	/* Read/reader.scm 441 */
																																BgL_test9187z00_28434
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 441 */
																																BgL_test9187z00_28434
																																	=
																																	((long)
																																	(BgL_curz00_4397)
																																	== 92L);
																															}
																														if (BgL_test9187z00_28434)
																															{	/* Read/reader.scm 441 */
																																BgL_matchz00_9716
																																	=
																																	BgL_lastzd2matchzd2_4389;
																															}
																														else
																															{
																																long
																																	BgL_forwardz00_28440;
																																BgL_forwardz00_28440
																																	=
																																	(1L +
																																	BgL_forwardz00_4390);
																																BgL_forwardz00_4390
																																	=
																																	BgL_forwardz00_28440;
																																goto
																																	BgL_zc3z04anonymousza33037ze3z87_4392;
																															}
																													}
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 441 */
																	if (((long) (BgL_curz00_3926) == 34L))
																		{	/* Read/reader.scm 441 */
																			long BgL_arg2748z00_3930;

																			BgL_arg2748z00_3930 =
																				(1L + BgL_forwardz00_3918);
																			{	/* Read/reader.scm 441 */
																				long BgL_newzd2matchzd2_13067;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_28447;

																					BgL_tmpz00_28447 =
																						((obj_t) BgL_iportz00_3916);
																					RGC_STOP_MATCH(BgL_tmpz00_28447,
																						BgL_arg2748z00_3930);
																				}
																				BgL_newzd2matchzd2_13067 = 11L;
																				BgL_matchz00_9716 =
																					BgL_newzd2matchzd2_13067;
																		}}
																	else
																		{	/* Read/reader.scm 441 */
																			bool_t BgL_test9190z00_28450;

																			if (((long) (BgL_curz00_3926) == 34L))
																				{	/* Read/reader.scm 441 */
																					BgL_test9190z00_28450 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					BgL_test9190z00_28450 =
																						((long) (BgL_curz00_3926) == 92L);
																				}
																			if (BgL_test9190z00_28450)
																				{	/* Read/reader.scm 441 */
																					BgL_matchz00_9716 =
																						BgL_newzd2matchzd2_3921;
																				}
																			else
																				{
																					long BgL_bufposz00_28460;
																					long BgL_forwardz00_28458;
																					long BgL_lastzd2matchzd2_28457;
																					obj_t BgL_iportz00_28456;

																					BgL_iportz00_28456 =
																						BgL_iportz00_3916;
																					BgL_lastzd2matchzd2_28457 =
																						BgL_newzd2matchzd2_3921;
																					BgL_forwardz00_28458 =
																						(1L + BgL_forwardz00_3918);
																					BgL_bufposz00_28460 =
																						BgL_bufposz00_3919;
																					BgL_bufposz00_4391 =
																						BgL_bufposz00_28460;
																					BgL_forwardz00_4390 =
																						BgL_forwardz00_28458;
																					BgL_lastzd2matchzd2_4389 =
																						BgL_lastzd2matchzd2_28457;
																					BgL_iportz00_4388 =
																						BgL_iportz00_28456;
																					goto
																						BgL_zc3z04anonymousza33037ze3z87_4392;
																				}
																		}
																}
														}
													}
											}
											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_7673 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_7674 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_7675 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_7676 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza34801ze3z87_7677:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_7678;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_28462;

													BgL_tmpz00_28462 = ((obj_t) BgL_iportz00_7673);
													RGC_STOP_MATCH(BgL_tmpz00_28462, BgL_forwardz00_7675);
												}
												BgL_newzd2matchzd2_7678 = 22L;
												if ((BgL_forwardz00_7675 == BgL_bufposz00_7676))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_7673)))
															{	/* Read/reader.scm 441 */
																long BgL_arg4804z00_7681;
																long BgL_arg4805z00_7682;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_28470;

																	BgL_tmpz00_28470 =
																		((obj_t) BgL_iportz00_7673);
																	BgL_arg4804z00_7681 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_28470);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_28473;

																	BgL_tmpz00_28473 =
																		((obj_t) BgL_iportz00_7673);
																	BgL_arg4805z00_7682 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_28473);
																}
																{
																	long BgL_bufposz00_28477;
																	long BgL_forwardz00_28476;

																	BgL_forwardz00_28476 = BgL_arg4804z00_7681;
																	BgL_bufposz00_28477 = BgL_arg4805z00_7682;
																	BgL_bufposz00_7676 = BgL_bufposz00_28477;
																	BgL_forwardz00_7675 = BgL_forwardz00_28476;
																	goto BgL_zc3z04anonymousza34801ze3z87_7677;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_7678;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_7683;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_28478;

															BgL_tmpz00_28478 = ((obj_t) BgL_iportz00_7673);
															BgL_curz00_7683 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_28478,
																BgL_forwardz00_7675);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_7683) == 58L))
																{
																	long BgL_bufposz00_28488;
																	long BgL_forwardz00_28486;
																	long BgL_lastzd2matchzd2_28485;
																	obj_t BgL_iportz00_28484;

																	BgL_iportz00_28484 = BgL_iportz00_7673;
																	BgL_lastzd2matchzd2_28485 =
																		BgL_newzd2matchzd2_7678;
																	BgL_forwardz00_28486 =
																		(1L + BgL_forwardz00_7675);
																	BgL_bufposz00_28488 = BgL_bufposz00_7676;
																	BgL_bufposz00_6395 = BgL_bufposz00_28488;
																	BgL_forwardz00_6394 = BgL_forwardz00_28486;
																	BgL_lastzd2matchzd2_6393 =
																		BgL_lastzd2matchzd2_28485;
																	BgL_iportz00_6392 = BgL_iportz00_28484;
																	goto BgL_zc3z04anonymousza34142ze3z87_6396;
																}
															else
																{	/* Read/reader.scm 441 */
																	if (((long) (BgL_curz00_7683) == 46L))
																		{
																			long BgL_bufposz00_28496;
																			long BgL_forwardz00_28494;
																			long BgL_lastzd2matchzd2_28493;
																			obj_t BgL_iportz00_28492;

																			BgL_iportz00_28492 = BgL_iportz00_7673;
																			BgL_lastzd2matchzd2_28493 =
																				BgL_newzd2matchzd2_7678;
																			BgL_forwardz00_28494 =
																				(1L + BgL_forwardz00_7675);
																			BgL_bufposz00_28496 = BgL_bufposz00_7676;
																			BgL_bufposz00_3944 = BgL_bufposz00_28496;
																			BgL_forwardz00_3943 =
																				BgL_forwardz00_28494;
																			BgL_lastzd2matchzd2_3942 =
																				BgL_lastzd2matchzd2_28493;
																			BgL_iportz00_3941 = BgL_iportz00_28492;
																			goto
																				BgL_zc3z04anonymousza32753ze3z87_3945;
																		}
																	else
																		{	/* Read/reader.scm 441 */
																			bool_t BgL_test9196z00_28497;

																			if (((long) (BgL_curz00_7683) == 39L))
																				{	/* Read/reader.scm 441 */
																					BgL_test9196z00_28497 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					if (((long) (BgL_curz00_7683) == 44L))
																						{	/* Read/reader.scm 441 */
																							BgL_test9196z00_28497 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_test9196z00_28497 =
																								(
																								(long) (BgL_curz00_7683) ==
																								96L);
																				}}
																			if (BgL_test9196z00_28497)
																				{
																					long BgL_bufposz00_28510;
																					long BgL_forwardz00_28508;
																					long BgL_lastzd2matchzd2_28507;
																					obj_t BgL_iportz00_28506;

																					BgL_iportz00_28506 =
																						BgL_iportz00_7673;
																					BgL_lastzd2matchzd2_28507 =
																						BgL_newzd2matchzd2_7678;
																					BgL_forwardz00_28508 =
																						(1L + BgL_forwardz00_7675);
																					BgL_bufposz00_28510 =
																						BgL_bufposz00_7676;
																					BgL_bufposz00_6106 =
																						BgL_bufposz00_28510;
																					BgL_forwardz00_6105 =
																						BgL_forwardz00_28508;
																					BgL_lastzd2matchzd2_6104 =
																						BgL_lastzd2matchzd2_28507;
																					BgL_iportz00_6103 =
																						BgL_iportz00_28506;
																					goto
																						BgL_zc3z04anonymousza33993ze3z87_6107;
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					bool_t BgL_test9199z00_28511;

																					if (((long) (BgL_curz00_7683) < 33L))
																						{	/* Read/reader.scm 441 */
																							BgL_test9199z00_28511 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							bool_t BgL_test9201z00_28515;

																							if (
																								((long) (BgL_curz00_7683) ==
																									35L))
																								{	/* Read/reader.scm 441 */
																									BgL_test9201z00_28515 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									BgL_test9201z00_28515 =
																										(
																										(long) (BgL_curz00_7683) ==
																										34L);
																								}
																							if (BgL_test9201z00_28515)
																								{	/* Read/reader.scm 441 */
																									BgL_test9199z00_28511 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									bool_t BgL_test9203z00_28521;

																									if (
																										((long) (BgL_curz00_7683) ==
																											41L))
																										{	/* Read/reader.scm 441 */
																											BgL_test9203z00_28521 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_7683) ==
																													40L))
																												{	/* Read/reader.scm 441 */
																													BgL_test9203z00_28521
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_test9203z00_28521
																														=
																														((long)
																														(BgL_curz00_7683) ==
																														39L);
																										}}
																									if (BgL_test9203z00_28521)
																										{	/* Read/reader.scm 441 */
																											BgL_test9199z00_28511 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_7683) ==
																													44L))
																												{	/* Read/reader.scm 441 */
																													BgL_test9199z00_28511
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													if (
																														((long)
																															(BgL_curz00_7683)
																															== 46L))
																														{	/* Read/reader.scm 441 */
																															BgL_test9199z00_28511
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 441 */
																															bool_t
																																BgL_test9208z00_28536;
																															if (((long)
																																	(BgL_curz00_7683)
																																	== 59L))
																																{	/* Read/reader.scm 441 */
																																	BgL_test9208z00_28536
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	BgL_test9208z00_28536
																																		=
																																		((long)
																																		(BgL_curz00_7683)
																																		== 58L);
																																}
																															if (BgL_test9208z00_28536)
																																{	/* Read/reader.scm 441 */
																																	BgL_test9199z00_28511
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 441 */
																																	if (
																																		((long)
																																			(BgL_curz00_7683)
																																			== 91L))
																																		{	/* Read/reader.scm 441 */
																																			BgL_test9199z00_28511
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 441 */
																																			if (
																																				((long)
																																					(BgL_curz00_7683)
																																					==
																																					93L))
																																				{	/* Read/reader.scm 441 */
																																					BgL_test9199z00_28511
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 441 */
																																					if (
																																						((long) (BgL_curz00_7683) == 96L))
																																						{	/* Read/reader.scm 441 */
																																							BgL_test9199z00_28511
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 441 */
																																							bool_t
																																								BgL_test9213z00_28551;
																																							if (((long) (BgL_curz00_7683) == 125L))
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9213z00_28551
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									if (((long) (BgL_curz00_7683) == 124L))
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9213z00_28551
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 441 */
																																											BgL_test9213z00_28551
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_7683)
																																												==
																																												123L);
																																								}}
																																							if (BgL_test9213z00_28551)
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9199z00_28511
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 441 */
																																									BgL_test9199z00_28511
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_7683)
																																										==
																																										127L);
																						}}}}}}}}}}
																					if (BgL_test9199z00_28511)
																						{	/* Read/reader.scm 441 */
																							BgL_matchz00_9716 =
																								BgL_newzd2matchzd2_7678;
																						}
																					else
																						{
																							long BgL_bufposz00_28566;
																							long BgL_forwardz00_28564;
																							long BgL_lastzd2matchzd2_28563;
																							obj_t BgL_iportz00_28562;

																							BgL_iportz00_28562 =
																								BgL_iportz00_7673;
																							BgL_lastzd2matchzd2_28563 =
																								BgL_newzd2matchzd2_7678;
																							BgL_forwardz00_28564 =
																								(1L + BgL_forwardz00_7675);
																							BgL_bufposz00_28566 =
																								BgL_bufposz00_7676;
																							BgL_bufposz00_4964 =
																								BgL_bufposz00_28566;
																							BgL_forwardz00_4963 =
																								BgL_forwardz00_28564;
																							BgL_lastzd2matchzd2_4962 =
																								BgL_lastzd2matchzd2_28563;
																							BgL_iportz00_4961 =
																								BgL_iportz00_28562;
																							goto
																								BgL_zc3z04anonymousza33413ze3z87_4965;
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 10L:

											BgL_iportz00_8265 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_8266 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_8267 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_8268 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza35103ze3z87_8269:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_8270;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_28568;

													BgL_tmpz00_28568 = ((obj_t) BgL_iportz00_8265);
													RGC_STOP_MATCH(BgL_tmpz00_28568, BgL_forwardz00_8267);
												}
												BgL_newzd2matchzd2_8270 = 0L;
												if ((BgL_forwardz00_8267 == BgL_bufposz00_8268))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_8265)))
															{	/* Read/reader.scm 441 */
																long BgL_arg5106z00_8273;
																long BgL_arg5107z00_8274;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_28576;

																	BgL_tmpz00_28576 =
																		((obj_t) BgL_iportz00_8265);
																	BgL_arg5106z00_8273 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_28576);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_28579;

																	BgL_tmpz00_28579 =
																		((obj_t) BgL_iportz00_8265);
																	BgL_arg5107z00_8274 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_28579);
																}
																{
																	long BgL_bufposz00_28583;
																	long BgL_forwardz00_28582;

																	BgL_forwardz00_28582 = BgL_arg5106z00_8273;
																	BgL_bufposz00_28583 = BgL_arg5107z00_8274;
																	BgL_bufposz00_8268 = BgL_bufposz00_28583;
																	BgL_forwardz00_8267 = BgL_forwardz00_28582;
																	goto BgL_zc3z04anonymousza35103ze3z87_8269;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_8270;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_8275;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_28584;

															BgL_tmpz00_28584 = ((obj_t) BgL_iportz00_8265);
															BgL_curz00_8275 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_28584,
																BgL_forwardz00_8267);
														}
														{	/* Read/reader.scm 441 */

															if (((long) (BgL_curz00_8275) == 10L))
																{	/* Read/reader.scm 441 */
																	BgL_iportz00_8978 = BgL_iportz00_8265;
																	BgL_lastzd2matchzd2_8979 =
																		BgL_newzd2matchzd2_8270;
																	BgL_forwardz00_8980 =
																		(1L + BgL_forwardz00_8267);
																	BgL_bufposz00_8981 = BgL_bufposz00_8268;
																BgL_zc3z04anonymousza35464ze3z87_8982:
																	{	/* Read/reader.scm 441 */
																		long BgL_newzd2matchzd2_8983;

																		{	/* Read/reader.scm 441 */
																			obj_t BgL_tmpz00_28590;

																			BgL_tmpz00_28590 =
																				((obj_t) BgL_iportz00_8978);
																			RGC_STOP_MATCH(BgL_tmpz00_28590,
																				BgL_forwardz00_8980);
																		}
																		BgL_newzd2matchzd2_8983 = 0L;
																		if (
																			(BgL_forwardz00_8980 ==
																				BgL_bufposz00_8981))
																			{	/* Read/reader.scm 441 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_8978)))
																					{	/* Read/reader.scm 441 */
																						long BgL_arg5467z00_8986;
																						long BgL_arg5468z00_8987;

																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_28598;

																							BgL_tmpz00_28598 =
																								((obj_t) BgL_iportz00_8978);
																							BgL_arg5467z00_8986 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_28598);
																						}
																						{	/* Read/reader.scm 441 */
																							obj_t BgL_tmpz00_28601;

																							BgL_tmpz00_28601 =
																								((obj_t) BgL_iportz00_8978);
																							BgL_arg5468z00_8987 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_28601);
																						}
																						{
																							long BgL_bufposz00_28605;
																							long BgL_forwardz00_28604;

																							BgL_forwardz00_28604 =
																								BgL_arg5467z00_8986;
																							BgL_bufposz00_28605 =
																								BgL_arg5468z00_8987;
																							BgL_bufposz00_8981 =
																								BgL_bufposz00_28605;
																							BgL_forwardz00_8980 =
																								BgL_forwardz00_28604;
																							goto
																								BgL_zc3z04anonymousza35464ze3z87_8982;
																						}
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						BgL_matchz00_9716 =
																							BgL_newzd2matchzd2_8983;
																					}
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				int BgL_curz00_8988;

																				{	/* Read/reader.scm 441 */
																					obj_t BgL_tmpz00_28606;

																					BgL_tmpz00_28606 =
																						((obj_t) BgL_iportz00_8978);
																					BgL_curz00_8988 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_28606,
																						BgL_forwardz00_8980);
																				}
																				{	/* Read/reader.scm 441 */

																					if (((long) (BgL_curz00_8988) == 10L))
																						{
																							long BgL_forwardz00_28613;
																							long BgL_lastzd2matchzd2_28612;

																							BgL_lastzd2matchzd2_28612 =
																								BgL_newzd2matchzd2_8983;
																							BgL_forwardz00_28613 =
																								(1L + BgL_forwardz00_8980);
																							BgL_forwardz00_8980 =
																								BgL_forwardz00_28613;
																							BgL_lastzd2matchzd2_8979 =
																								BgL_lastzd2matchzd2_28612;
																							goto
																								BgL_zc3z04anonymousza35464ze3z87_8982;
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_matchz00_9716 =
																								BgL_newzd2matchzd2_8983;
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 441 */
																	BgL_matchz00_9716 = BgL_newzd2matchzd2_8270;
																}
														}
													}
											}
											break;
										case 32L:
										case 13L:
										case 12L:
										case 11L:
										case 9L:

											BgL_iportz00_8242 = BgL_iportz00_8605;
											BgL_lastzd2matchzd2_8243 = BgL_lastzd2matchzd2_8606;
											BgL_forwardz00_8244 = (1L + BgL_forwardz00_8607);
											BgL_bufposz00_8245 = BgL_bufposz00_8608;
										BgL_zc3z04anonymousza35092ze3z87_8246:
											{	/* Read/reader.scm 441 */
												long BgL_newzd2matchzd2_8247;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_28617;

													BgL_tmpz00_28617 = ((obj_t) BgL_iportz00_8242);
													RGC_STOP_MATCH(BgL_tmpz00_28617, BgL_forwardz00_8244);
												}
												BgL_newzd2matchzd2_8247 = 1L;
												if ((BgL_forwardz00_8244 == BgL_bufposz00_8245))
													{	/* Read/reader.scm 441 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_8242)))
															{	/* Read/reader.scm 441 */
																long BgL_arg5095z00_8250;
																long BgL_arg5096z00_8251;

																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_28625;

																	BgL_tmpz00_28625 =
																		((obj_t) BgL_iportz00_8242);
																	BgL_arg5095z00_8250 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_28625);
																}
																{	/* Read/reader.scm 441 */
																	obj_t BgL_tmpz00_28628;

																	BgL_tmpz00_28628 =
																		((obj_t) BgL_iportz00_8242);
																	BgL_arg5096z00_8251 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_28628);
																}
																{
																	long BgL_bufposz00_28632;
																	long BgL_forwardz00_28631;

																	BgL_forwardz00_28631 = BgL_arg5095z00_8250;
																	BgL_bufposz00_28632 = BgL_arg5096z00_8251;
																	BgL_bufposz00_8245 = BgL_bufposz00_28632;
																	BgL_forwardz00_8244 = BgL_forwardz00_28631;
																	goto BgL_zc3z04anonymousza35092ze3z87_8246;
																}
															}
														else
															{	/* Read/reader.scm 441 */
																BgL_matchz00_9716 = BgL_newzd2matchzd2_8247;
															}
													}
												else
													{	/* Read/reader.scm 441 */
														int BgL_curz00_8252;

														{	/* Read/reader.scm 441 */
															obj_t BgL_tmpz00_28633;

															BgL_tmpz00_28633 = ((obj_t) BgL_iportz00_8242);
															BgL_curz00_8252 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_28633,
																BgL_forwardz00_8244);
														}
														{	/* Read/reader.scm 441 */

															{	/* Read/reader.scm 441 */
																bool_t BgL_test9224z00_28636;

																if (((long) (BgL_curz00_8252) == 9L))
																	{	/* Read/reader.scm 441 */
																		BgL_test9224z00_28636 = ((bool_t) 1);
																	}
																else
																	{	/* Read/reader.scm 441 */
																		bool_t BgL_test9226z00_28640;

																		if (((long) (BgL_curz00_8252) == 13L))
																			{	/* Read/reader.scm 441 */
																				BgL_test9226z00_28640 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				if (((long) (BgL_curz00_8252) == 12L))
																					{	/* Read/reader.scm 441 */
																						BgL_test9226z00_28640 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Read/reader.scm 441 */
																						BgL_test9226z00_28640 =
																							((long) (BgL_curz00_8252) == 11L);
																			}}
																		if (BgL_test9226z00_28640)
																			{	/* Read/reader.scm 441 */
																				BgL_test9224z00_28636 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 441 */
																				BgL_test9224z00_28636 =
																					((long) (BgL_curz00_8252) == 32L);
																	}}
																if (BgL_test9224z00_28636)
																	{	/* Read/reader.scm 441 */
																		BgL_iportz00_8991 = BgL_iportz00_8242;
																		BgL_lastzd2matchzd2_8992 =
																			BgL_newzd2matchzd2_8247;
																		BgL_forwardz00_8993 =
																			(1L + BgL_forwardz00_8244);
																		BgL_bufposz00_8994 = BgL_bufposz00_8245;
																	BgL_zc3z04anonymousza35471ze3z87_8995:
																		{	/* Read/reader.scm 441 */
																			long BgL_newzd2matchzd2_8996;

																			{	/* Read/reader.scm 441 */
																				obj_t BgL_tmpz00_28651;

																				BgL_tmpz00_28651 =
																					((obj_t) BgL_iportz00_8991);
																				RGC_STOP_MATCH(BgL_tmpz00_28651,
																					BgL_forwardz00_8993);
																			}
																			BgL_newzd2matchzd2_8996 = 1L;
																			if (
																				(BgL_forwardz00_8993 ==
																					BgL_bufposz00_8994))
																				{	/* Read/reader.scm 441 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_8991)))
																						{	/* Read/reader.scm 441 */
																							long BgL_arg5474z00_8999;
																							long BgL_arg5475z00_9000;

																							{	/* Read/reader.scm 441 */
																								obj_t BgL_tmpz00_28659;

																								BgL_tmpz00_28659 =
																									((obj_t) BgL_iportz00_8991);
																								BgL_arg5474z00_8999 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_28659);
																							}
																							{	/* Read/reader.scm 441 */
																								obj_t BgL_tmpz00_28662;

																								BgL_tmpz00_28662 =
																									((obj_t) BgL_iportz00_8991);
																								BgL_arg5475z00_9000 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_28662);
																							}
																							{
																								long BgL_bufposz00_28666;
																								long BgL_forwardz00_28665;

																								BgL_forwardz00_28665 =
																									BgL_arg5474z00_8999;
																								BgL_bufposz00_28666 =
																									BgL_arg5475z00_9000;
																								BgL_bufposz00_8994 =
																									BgL_bufposz00_28666;
																								BgL_forwardz00_8993 =
																									BgL_forwardz00_28665;
																								goto
																									BgL_zc3z04anonymousza35471ze3z87_8995;
																							}
																						}
																					else
																						{	/* Read/reader.scm 441 */
																							BgL_matchz00_9716 =
																								BgL_newzd2matchzd2_8996;
																						}
																				}
																			else
																				{	/* Read/reader.scm 441 */
																					int BgL_curz00_9001;

																					{	/* Read/reader.scm 441 */
																						obj_t BgL_tmpz00_28667;

																						BgL_tmpz00_28667 =
																							((obj_t) BgL_iportz00_8991);
																						BgL_curz00_9001 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_28667,
																							BgL_forwardz00_8993);
																					}
																					{	/* Read/reader.scm 441 */

																						{	/* Read/reader.scm 441 */
																							bool_t BgL_test9231z00_28670;

																							if (
																								((long) (BgL_curz00_9001) ==
																									9L))
																								{	/* Read/reader.scm 441 */
																									BgL_test9231z00_28670 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									bool_t BgL_test9233z00_28674;

																									if (
																										((long) (BgL_curz00_9001) ==
																											13L))
																										{	/* Read/reader.scm 441 */
																											BgL_test9233z00_28674 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											if (
																												((long)
																													(BgL_curz00_9001) ==
																													12L))
																												{	/* Read/reader.scm 441 */
																													BgL_test9233z00_28674
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 441 */
																													BgL_test9233z00_28674
																														=
																														((long)
																														(BgL_curz00_9001) ==
																														11L);
																										}}
																									if (BgL_test9233z00_28674)
																										{	/* Read/reader.scm 441 */
																											BgL_test9231z00_28670 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 441 */
																											BgL_test9231z00_28670 =
																												(
																												(long) (BgL_curz00_9001)
																												== 32L);
																								}}
																							if (BgL_test9231z00_28670)
																								{
																									long BgL_forwardz00_28686;
																									long
																										BgL_lastzd2matchzd2_28685;
																									BgL_lastzd2matchzd2_28685 =
																										BgL_newzd2matchzd2_8996;
																									BgL_forwardz00_28686 =
																										(1L + BgL_forwardz00_8993);
																									BgL_forwardz00_8993 =
																										BgL_forwardz00_28686;
																									BgL_lastzd2matchzd2_8992 =
																										BgL_lastzd2matchzd2_28685;
																									goto
																										BgL_zc3z04anonymousza35471ze3z87_8995;
																								}
																							else
																								{	/* Read/reader.scm 441 */
																									BgL_matchz00_9716 =
																										BgL_newzd2matchzd2_8996;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 441 */
																		BgL_matchz00_9716 = BgL_newzd2matchzd2_8247;
																	}
															}
														}
													}
											}
											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 441 */
												long BgL_arg5292z00_8635;

												BgL_arg5292z00_8635 = (1L + BgL_forwardz00_8607);
												{	/* Read/reader.scm 441 */
													long BgL_newzd2matchzd2_16033;

													{	/* Read/reader.scm 441 */
														obj_t BgL_tmpz00_28691;

														BgL_tmpz00_28691 = ((obj_t) BgL_iportz00_8605);
														RGC_STOP_MATCH(BgL_tmpz00_28691,
															BgL_arg5292z00_8635);
													}
													BgL_newzd2matchzd2_16033 = 38L;
													BgL_matchz00_9716 = BgL_newzd2matchzd2_16033;
											}} break;
										default:
											BgL_matchz00_9716 = BgL_lastzd2matchzd2_8606;
										}
								}
							}
					}
					{	/* Read/reader.scm 441 */
						obj_t BgL_tmpz00_28696;

						BgL_tmpz00_28696 = ((obj_t) BgL_iportz00_18176);
						RGC_SET_FILEPOS(BgL_tmpz00_28696);
					}
					switch (BgL_matchz00_9716)
						{
						case 38L:

							{	/* Read/reader.scm 783 */
								obj_t BgL_charz00_9719;

								{	/* Read/reader.scm 441 */
									bool_t BgL_test9236z00_28699;

									{	/* Read/reader.scm 441 */
										long BgL_arg5863z00_9706;

										{	/* Read/reader.scm 441 */
											obj_t BgL_tmpz00_28700;

											BgL_tmpz00_28700 = ((obj_t) BgL_iportz00_18176);
											BgL_arg5863z00_9706 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28700);
										}
										BgL_test9236z00_28699 = (BgL_arg5863z00_9706 == 0L);
									}
									if (BgL_test9236z00_28699)
										{	/* Read/reader.scm 441 */
											BgL_charz00_9719 = BEOF;
										}
									else
										{	/* Read/reader.scm 441 */
											unsigned char BgL_tmpz00_28704;

											{	/* Read/reader.scm 441 */
												obj_t BgL_tmpz00_28705;

												BgL_tmpz00_28705 = ((obj_t) BgL_iportz00_18176);
												BgL_tmpz00_28704 =
													RGC_BUFFER_CHARACTER(BgL_tmpz00_28705);
											}
											BgL_charz00_9719 = BCHAR(BgL_tmpz00_28704);
								}}
								if (EOF_OBJECTP(BgL_charz00_9719))
									{	/* Read/reader.scm 785 */
										if (((long) CINT(CELL_REF(BgL_parzd2openzd2_18179)) > 0L))
											{	/* Read/reader.scm 788 */
												obj_t BgL_arg5872z00_9722;

												{	/* Read/reader.scm 788 */
													obj_t BgL_pairz00_16675;

													BgL_pairz00_16675 =
														CELL_REF(BgL_parzd2poseszd2_18177);
													BgL_arg5872z00_9722 = CAR(BgL_pairz00_16675);
												}
												return
													BGl_readzd2errorzf2locz20zz__readerz00
													(BgL_arg5872z00_9722, BGl_string6863z00zz__readerz00,
													BGl_string6864z00zz__readerz00,
													((obj_t) BgL_iportz00_18176));
											}
										else
											{	/* Read/reader.scm 787 */
												if (
													((long) CINT(CELL_REF(BgL_brazd2openzd2_18178)) > 0L))
													{	/* Read/reader.scm 793 */
														obj_t BgL_arg5875z00_9725;

														{	/* Read/reader.scm 793 */
															obj_t BgL_pairz00_16678;

															BgL_pairz00_16678 =
																CELL_REF(BgL_parzd2poseszd2_18177);
															BgL_arg5875z00_9725 = CAR(BgL_pairz00_16678);
														}
														return
															BGl_readzd2errorzf2locz20zz__readerz00
															(BgL_arg5875z00_9725,
															BGl_string6863z00zz__readerz00,
															BGl_string6865z00zz__readerz00,
															((obj_t) BgL_iportz00_18176));
													}
												else
													{	/* Read/reader.scm 792 */
														reset_eof(((obj_t) BgL_iportz00_18176));
														return BgL_charz00_9719;
													}
											}
									}
								else
									{	/* Read/reader.scm 800 */
										obj_t BgL_g1339z00_9728;

										{	/* Read/reader.scm 911 */
											obj_t BgL_cz00_16682;

											BgL_cz00_16682 =
												BGl_assqz00zz__r4_pairs_and_lists_6_3z00
												(BgL_charz00_9719,
												BGl_za2readerzd2extensionsza2zd2zz__readerz00);
											if (PAIRP(BgL_cz00_16682))
												{	/* Read/reader.scm 912 */
													BgL_g1339z00_9728 = CDR(BgL_cz00_16682);
												}
											else
												{	/* Read/reader.scm 912 */
													BgL_g1339z00_9728 = BFALSE;
												}
										}
										if (CBOOL(BgL_g1339z00_9728))
											{	/* Read/reader.scm 800 */
												return
													(VA_PROCEDUREP(BgL_g1339z00_9728) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_g1339z00_9728))
													(BgL_g1339z00_9728, ((obj_t) BgL_iportz00_18176),
														BEOA) : ((obj_t(*)(obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_g1339z00_9728))
													(BgL_g1339z00_9728, ((obj_t) BgL_iportz00_18176)));
											}
										else
											{	/* Read/reader.scm 805 */
												obj_t BgL_arg5879z00_9732;

												BgL_arg5879z00_9732 =
													BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00
													(CCHAR(BgL_charz00_9719));
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6866z00zz__readerz00, BgL_arg5879z00_9732,
													((obj_t) BgL_iportz00_18176));
											}
									}
							}
							break;
						case 37L:

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

							{	/* Read/reader.scm 767 */
								long BgL_noz00_9735;

								{	/* Read/reader.scm 767 */
									obj_t BgL_arg5884z00_9739;

									{	/* Read/reader.scm 767 */
										long BgL_arg5885z00_9740;

										{	/* Read/reader.scm 767 */
											long BgL_arg5886z00_9741;

											{	/* Read/reader.scm 441 */
												obj_t BgL_tmpz00_28745;

												BgL_tmpz00_28745 = ((obj_t) BgL_iportz00_18176);
												BgL_arg5886z00_9741 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28745);
											}
											BgL_arg5885z00_9740 = (BgL_arg5886z00_9741 - 1L);
										}
										BgL_arg5884z00_9739 =
											BGl_thezd2substringze71z35zz__readerz00
											(BgL_iportz00_18176, (int) (1L),
											(int) (BgL_arg5885z00_9740));
									}
									{	/* Read/reader.scm 767 */
										char *BgL_tmpz00_28752;

										BgL_tmpz00_28752 = BSTRING_TO_STRING(BgL_arg5884z00_9739);
										BgL_noz00_9735 = BGL_STRTOL(BgL_tmpz00_28752, 0L, 10L);
								}}
								{	/* Read/reader.scm 767 */

									if (CBOOL(CELL_REF(BgL_resolvez00_18181)))
										{	/* Read/reader.scm 772 */
											obj_t BgL_valz00_9736;

											{	/* Read/reader.scm 772 */
												obj_t BgL_vectorz00_16690;

												BgL_vectorz00_16690 = CELL_REF(BgL_cyclesz00_18180);
												BgL_valz00_9736 =
													VECTOR_REF(BgL_vectorz00_16690, BgL_noz00_9735);
											}
											if (CBOOL(BgL_valz00_9736))
												{	/* Read/reader.scm 773 */
													return BgL_valz00_9736;
												}
											else
												{	/* Read/reader.scm 773 */
													return
														BGl_readzd2errorzd2zz__readerz00
														(BGl_string6867z00zz__readerz00,
														BINT(BgL_noz00_9735), ((obj_t) BgL_iportz00_18176));
												}
										}
									else
										{	/* Read/reader.scm 770 */
											obj_t BgL_zc3z04anonymousza35883ze3z87_18069;

											BgL_zc3z04anonymousza35883ze3z87_18069 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza35883ze3ze5zz__readerz00,
												(int) (0L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza35883ze3z87_18069,
												(int) (0L), BINT(BgL_noz00_9735));
											return BgL_zc3z04anonymousza35883ze3z87_18069;
										}
								}
							}
							break;
						case 35L:

							{	/* Read/reader.scm 741 */
								long BgL_noz00_9742;

								{	/* Read/reader.scm 741 */
									obj_t BgL_arg5903z00_9770;

									{	/* Read/reader.scm 741 */
										long BgL_arg5904z00_9771;

										{	/* Read/reader.scm 741 */
											long BgL_arg5905z00_9772;

											{	/* Read/reader.scm 441 */
												obj_t BgL_tmpz00_28769;

												BgL_tmpz00_28769 = ((obj_t) BgL_iportz00_18176);
												BgL_arg5905z00_9772 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28769);
											}
											BgL_arg5904z00_9771 = (BgL_arg5905z00_9772 - 1L);
										}
										BgL_arg5903z00_9770 =
											BGl_thezd2substringze71z35zz__readerz00
											(BgL_iportz00_18176, (int) (1L),
											(int) (BgL_arg5904z00_9771));
									}
									{	/* Read/reader.scm 741 */
										char *BgL_tmpz00_28776;

										BgL_tmpz00_28776 = BSTRING_TO_STRING(BgL_arg5903z00_9770);
										BgL_noz00_9742 = BGL_STRTOL(BgL_tmpz00_28776, 0L, 10L);
								}}
								{	/* Read/reader.scm 741 */
									long BgL_posz00_9743;

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

										BgL_tmpz00_28779 = ((obj_t) BgL_iportz00_18176);
										BgL_posz00_9743 = INPUT_PORT_FILEPOS(BgL_tmpz00_28779);
									}
									{	/* Read/reader.scm 742 */
										obj_t BgL_rsvpz00_9744;

										BgL_rsvpz00_9744 = CELL_REF(BgL_resolvez00_18181);
										{	/* Read/reader.scm 743 */

											{	/* Read/reader.scm 744 */
												obj_t BgL_auxz00_18097;

												BgL_auxz00_18097 = BFALSE;
												CELL_SET(BgL_resolvez00_18181, BgL_auxz00_18097);
											}
											{	/* Read/reader.scm 745 */
												obj_t BgL_thezd2objectzd2_9745;

												BgL_thezd2objectzd2_9745 =
													BGl_ignoreze70ze7zz__readerz00(BgL_envz00_18184,
													BgL_pospz00_18183, BgL_brazd2poseszd2_18182,
													BgL_resolvez00_18181, BgL_cyclesz00_18180,
													BgL_parzd2openzd2_18179, BgL_brazd2openzd2_18178,
													BgL_parzd2poseszd2_18177, BgL_iportz00_18176);
												if (EOF_OBJECTP(BgL_thezd2objectzd2_9745))
													{	/* Read/reader.scm 747 */
														BGl_readzd2errorzf2locz20zz__readerz00(BINT
															(BgL_posz00_9743), BGl_string6868z00zz__readerz00,
															BINT(BgL_noz00_9742),
															((obj_t) BgL_iportz00_18176));
													}
												else
													{	/* Read/reader.scm 749 */
														bool_t BgL_test9245z00_28789;

														{	/* Read/reader.scm 749 */
															long BgL_arg5894z00_9761;

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

																BgL_vectorz00_16698 =
																	CELL_REF(BgL_cyclesz00_18180);
																BgL_arg5894z00_9761 =
																	VECTOR_LENGTH(BgL_vectorz00_16698);
															}
															BgL_test9245z00_28789 =
																(BgL_noz00_9742 >= BgL_arg5894z00_9761);
														}
														if (BgL_test9245z00_28789)
															{	/* Read/reader.scm 751 */
																long BgL_oldzd2lengthzd2_9750;

																{	/* Read/reader.scm 751 */
																	obj_t BgL_vectorz00_16701;

																	BgL_vectorz00_16701 =
																		CELL_REF(BgL_cyclesz00_18180);
																	BgL_oldzd2lengthzd2_9750 =
																		VECTOR_LENGTH(BgL_vectorz00_16701);
																}
																{	/* Read/reader.scm 751 */
																	long BgL_newzd2lengthzd2_9751;

																	{	/* Read/reader.scm 752 */
																		long BgL_az00_9758;
																		long BgL_bz00_9759;

																		BgL_az00_9758 = (BgL_noz00_9742 + 1L);
																		BgL_bz00_9759 =
																			(BgL_oldzd2lengthzd2_9750 * 2L);
																		if ((BgL_az00_9758 > BgL_bz00_9759))
																			{	/* Read/reader.scm 752 */
																				BgL_newzd2lengthzd2_9751 =
																					BgL_az00_9758;
																			}
																		else
																			{	/* Read/reader.scm 752 */
																				BgL_newzd2lengthzd2_9751 =
																					BgL_bz00_9759;
																			}
																	}
																	{	/* Read/reader.scm 752 */
																		obj_t BgL_newzd2cycleszd2_9752;

																		BgL_newzd2cycleszd2_9752 =
																			make_vector(BgL_newzd2lengthzd2_9751,
																			BFALSE);
																		{	/* Read/reader.scm 753 */

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

																				BgL_sourcez00_9755 =
																					CELL_REF(BgL_cyclesz00_18180);
																				{	/* Ieee/vector.scm 112 */

																					BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
																						(BgL_newzd2cycleszd2_9752, 0L,
																						BgL_sourcez00_9755, BINT(0L),
																						BINT(VECTOR_LENGTH(((obj_t)
																									BgL_sourcez00_9755))));
																				}
																			}
																			{	/* Read/reader.scm 755 */
																				obj_t BgL_auxz00_18098;

																				BgL_auxz00_18098 =
																					BgL_newzd2cycleszd2_9752;
																				CELL_SET(BgL_cyclesz00_18180,
																					BgL_auxz00_18098);
																			}
																		}
																	}
																}
															}
														else
															{	/* Read/reader.scm 749 */
																BFALSE;
															}
													}
												{	/* Read/reader.scm 756 */
													bool_t BgL_test9247z00_28803;

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

														BgL_vectorz00_16707 = CELL_REF(BgL_cyclesz00_18180);
														BgL_test9247z00_28803 =
															CBOOL(VECTOR_REF(BgL_vectorz00_16707,
																BgL_noz00_9742));
													}
													if (BgL_test9247z00_28803)
														{	/* Read/reader.scm 758 */
															obj_t BgL_arg5896z00_9763;

															{	/* Read/reader.scm 758 */
																obj_t BgL_arg5898z00_9765;

																{	/* Read/reader.scm 758 */
																	obj_t BgL_vectorz00_16709;

																	BgL_vectorz00_16709 =
																		CELL_REF(BgL_cyclesz00_18180);
																	BgL_arg5898z00_9765 =
																		VECTOR_REF(BgL_vectorz00_16709,
																		BgL_noz00_9742);
																}
																{	/* Read/reader.scm 758 */
																	obj_t BgL_list5899z00_9766;

																	{	/* Read/reader.scm 758 */
																		obj_t BgL_arg5900z00_9767;

																		BgL_arg5900z00_9767 =
																			MAKE_YOUNG_PAIR(BgL_arg5898z00_9765,
																			BNIL);
																		BgL_list5899z00_9766 =
																			MAKE_YOUNG_PAIR(BINT(BgL_noz00_9742),
																			BgL_arg5900z00_9767);
																	}
																	BgL_arg5896z00_9763 = BgL_list5899z00_9766;
																}
															}
															BGl_readzd2errorzd2zz__readerz00
																(BGl_string6869z00zz__readerz00,
																BgL_arg5896z00_9763,
																((obj_t) BgL_iportz00_18176));
														}
													else
														{	/* Read/reader.scm 756 */
															BFALSE;
														}
												}
												{	/* Read/reader.scm 759 */
													obj_t BgL_vectorz00_16713;

													BgL_vectorz00_16713 = CELL_REF(BgL_cyclesz00_18180);
													VECTOR_SET(BgL_vectorz00_16713, BgL_noz00_9742,
														BgL_thezd2objectzd2_9745);
												}
												CELL_SET(BgL_resolvez00_18181, BgL_rsvpz00_9744);
												if (CBOOL(BgL_rsvpz00_9744))
													{	/* Read/reader.scm 762 */
														obj_t BgL_cyclesz00_18239;

														BgL_cyclesz00_18239 = CELL_REF(BgL_cyclesz00_18180);
														return
															BGl_loopze70ze7zz__readerz00(
															((obj_t) BgL_iportz00_18176), BgL_cyclesz00_18239,
															BgL_thezd2objectzd2_9745);
													}
												else
													{	/* Read/reader.scm 761 */
														return BgL_thezd2objectzd2_9745;
													}
											}
										}
									}
								}
							}
							break;
						case 34L:

							{	/* Read/reader.scm 725 */
								obj_t BgL_auxz00_18100;

								BgL_auxz00_18100 =
									SUBFX(CELL_REF(BgL_brazd2openzd2_18178), BINT(1L));
								CELL_SET(BgL_brazd2openzd2_18178, BgL_auxz00_18100);
							}
							if (((long) CINT(CELL_REF(BgL_brazd2openzd2_18178)) < 0L))
								{	/* Read/reader.scm 726 */
									{	/* Read/reader.scm 728 */
										obj_t BgL_arg5907z00_9774;
										long BgL_arg5908z00_9775;
										obj_t BgL_arg5909z00_9776;

										{	/* Read/reader.scm 728 */
											obj_t BgL_tmpz00_28822;

											BgL_tmpz00_28822 = ((obj_t) BgL_iportz00_18176);
											BgL_arg5907z00_9774 = INPUT_PORT_NAME(BgL_tmpz00_28822);
										}
										{	/* Read/reader.scm 729 */
											long BgL_res6721z00_16722;

											{	/* Read/reader.scm 729 */
												long BgL_tmpz00_28825;

												{	/* Read/reader.scm 729 */
													obj_t BgL_tmpz00_28826;

													BgL_tmpz00_28826 = ((obj_t) BgL_iportz00_18176);
													BgL_tmpz00_28825 =
														INPUT_PORT_TOKENPOS(BgL_tmpz00_28826);
												}
												BgL_res6721z00_16722 = (long) (BgL_tmpz00_28825);
											}
											BgL_arg5908z00_9775 = BgL_res6721z00_16722;
										}
										{	/* Read/reader.scm 441 */
											long BgL_arg5789z00_16723;

											{	/* Read/reader.scm 441 */
												obj_t BgL_tmpz00_28830;

												BgL_tmpz00_28830 = ((obj_t) BgL_iportz00_18176);
												BgL_arg5789z00_16723 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28830);
											}
											BgL_arg5909z00_9776 =
												rgc_buffer_substring(
												((obj_t) BgL_iportz00_18176), 0L, BgL_arg5789z00_16723);
										}
										{	/* Read/reader.scm 728 */
											obj_t BgL_list5910z00_9777;

											{	/* Read/reader.scm 728 */
												obj_t BgL_arg5911z00_9778;

												{	/* Read/reader.scm 728 */
													obj_t BgL_arg5912z00_9779;

													BgL_arg5912z00_9779 =
														MAKE_YOUNG_PAIR(BgL_arg5909z00_9776, BNIL);
													BgL_arg5911z00_9778 =
														MAKE_YOUNG_PAIR(BGl_string6870z00zz__readerz00,
														BgL_arg5912z00_9779);
												}
												BgL_list5910z00_9777 =
													MAKE_YOUNG_PAIR(BGl_symbol6871z00zz__readerz00,
													BgL_arg5911z00_9778);
											}
											BGl_warningzf2locationzf2zz__errorz00(BgL_arg5907z00_9774,
												BINT(BgL_arg5908z00_9775), BgL_list5910z00_9777);
									}}
									{	/* Read/reader.scm 733 */
										obj_t BgL_auxz00_18101;

										BgL_auxz00_18101 = BINT(0L);
										CELL_SET(BgL_brazd2openzd2_18178, BgL_auxz00_18101);
									}
									{

										goto BGl_ignoreze70ze7zz__readerz00;
									}
								}
							else
								{	/* Read/reader.scm 726 */
									{	/* Read/reader.scm 736 */
										obj_t BgL_auxz00_18102;

										{	/* Read/reader.scm 736 */
											obj_t BgL_pairz00_16727;

											BgL_pairz00_16727 = CELL_REF(BgL_brazd2poseszd2_18182);
											BgL_auxz00_18102 = CDR(BgL_pairz00_16727);
										}
										CELL_SET(BgL_brazd2poseszd2_18182, BgL_auxz00_18102);
									}
									return BGl_za2endzd2ofzd2listza2z00zz__readerz00;
								}
							break;
						case 33L:

							{	/* Read/reader.scm 712 */
								obj_t BgL_auxz00_18103;

								BgL_auxz00_18103 =
									ADDFX(BINT(1L), CELL_REF(BgL_brazd2openzd2_18178));
								CELL_SET(BgL_brazd2openzd2_18178, BgL_auxz00_18103);
							}
							{	/* Read/reader.scm 713 */
								obj_t BgL_auxz00_18104;

								{	/* Read/reader.scm 713 */
									long BgL_arg5915z00_9782;

									{	/* Read/reader.scm 713 */
										long BgL_arg5916z00_9783;

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

											BgL_tmpz00_28844 = ((obj_t) BgL_iportz00_18176);
											BgL_arg5916z00_9783 =
												INPUT_PORT_FILEPOS(BgL_tmpz00_28844);
										}
										BgL_arg5915z00_9782 = (BgL_arg5916z00_9783 - 1L);
									}
									BgL_auxz00_18104 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg5915z00_9782),
										CELL_REF(BgL_brazd2poseszd2_18182));
								}
								CELL_SET(BgL_brazd2poseszd2_18182, BgL_auxz00_18104);
							}
							{	/* Read/reader.scm 715 */
								obj_t BgL_lz00_9785;

								{	/* Read/reader.scm 715 */
									obj_t BgL_arg5925z00_9800;

									{	/* Read/reader.scm 277 */
										obj_t BgL_namez00_16733;

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

											BgL_tmpz00_28850 = ((obj_t) BgL_iportz00_18176);
											BgL_namez00_16733 = INPUT_PORT_NAME(BgL_tmpz00_28850);
										}
										{	/* Read/reader.scm 277 */
											long BgL_poz00_16734;

											{	/* Read/reader.scm 278 */
												long BgL_arg6159z00_16735;

												{	/* Read/reader.scm 278 */
													obj_t BgL_tmpz00_28853;

													BgL_tmpz00_28853 = ((obj_t) BgL_iportz00_18176);
													BgL_arg6159z00_16735 =
														INPUT_PORT_FILEPOS(BgL_tmpz00_28853);
												}
												BgL_poz00_16734 = (BgL_arg6159z00_16735 - 1L);
											}
											{	/* Read/reader.scm 278 */
												obj_t BgL_itemz00_16736;

												BgL_itemz00_16736 =
													BGl_ignoreze70ze7zz__readerz00(BgL_envz00_18184,
													BgL_pospz00_18183, BgL_brazd2poseszd2_18182,
													BgL_resolvez00_18181, BgL_cyclesz00_18180,
													BgL_parzd2openzd2_18179, BgL_brazd2openzd2_18178,
													BgL_parzd2poseszd2_18177, BgL_iportz00_18176);
												{	/* Read/reader.scm 279 */

													if (
														(BgL_itemz00_16736 ==
															BGl_za2endzd2ofzd2listza2z00zz__readerz00))
														{	/* Read/reader.scm 280 */
															BgL_arg5925z00_9800 = BNIL;
														}
													else
														{	/* Read/reader.scm 282 */
															obj_t BgL_g1046z00_16737;

															if (CBOOL(BgL_pospz00_18183))
																{	/* Read/reader.scm 132 */
																	obj_t BgL_arg6075z00_16746;

																	BgL_arg6075z00_16746 =
																		BGl_makezd2sourcezd2locationz00zz__readerz00
																		(BgL_namez00_16733, BINT(BgL_poz00_16734));
																	{	/* Read/reader.scm 132 */
																		obj_t BgL_res6724z00_16747;

																		BgL_res6724z00_16747 =
																			MAKE_YOUNG_EPAIR(BgL_itemz00_16736, BNIL,
																			BgL_arg6075z00_16746);
																		BgL_g1046z00_16737 = BgL_res6724z00_16747;
																	}
																}
															else
																{	/* Read/reader.scm 282 */
																	BgL_g1046z00_16737 =
																		MAKE_YOUNG_PAIR(BgL_itemz00_16736, BNIL);
																}
															{
																obj_t BgL_accz00_16739;

																BgL_accz00_16739 = BgL_g1046z00_16737;
															BgL_loopz00_16738:
																{	/* Read/reader.scm 285 */
																	obj_t BgL_itemz00_16740;

																	BgL_itemz00_16740 =
																		BGl_ignoreze70ze7zz__readerz00
																		(BgL_envz00_18184, BgL_pospz00_18183,
																		BgL_brazd2poseszd2_18182,
																		BgL_resolvez00_18181, BgL_cyclesz00_18180,
																		BgL_parzd2openzd2_18179,
																		BgL_brazd2openzd2_18178,
																		BgL_parzd2poseszd2_18177,
																		BgL_iportz00_18176);
																	if ((BgL_itemz00_16740 ==
																			BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																		{	/* Read/reader.scm 286 */
																			BgL_arg5925z00_9800 = BgL_accz00_16739;
																		}
																	else
																		{	/* Read/reader.scm 288 */
																			obj_t BgL_arg6158z00_16741;

																			if (CBOOL(BgL_pospz00_18183))
																				{	/* Read/reader.scm 289 */
																					long BgL_poz00_16742;

																					{	/* Read/reader.scm 289 */
																						long BgL_res6725z00_16749;

																						{	/* Read/reader.scm 289 */
																							long BgL_tmpz00_28871;

																							{	/* Read/reader.scm 289 */
																								obj_t BgL_tmpz00_28872;

																								BgL_tmpz00_28872 =
																									((obj_t) BgL_iportz00_18176);
																								BgL_tmpz00_28871 =
																									INPUT_PORT_TOKENPOS
																									(BgL_tmpz00_28872);
																							}
																							BgL_res6725z00_16749 =
																								(long) (BgL_tmpz00_28871);
																						}
																						BgL_poz00_16742 =
																							BgL_res6725z00_16749;
																					}
																					{	/* Read/reader.scm 132 */
																						obj_t BgL_arg6075z00_16750;

																						BgL_arg6075z00_16750 =
																							BGl_makezd2sourcezd2locationz00zz__readerz00
																							(BgL_namez00_16733,
																							BINT(BgL_poz00_16742));
																						{	/* Read/reader.scm 132 */
																							obj_t BgL_res6726z00_16751;

																							BgL_res6726z00_16751 =
																								MAKE_YOUNG_EPAIR
																								(BgL_itemz00_16740,
																								BgL_accz00_16739,
																								BgL_arg6075z00_16750);
																							BgL_arg6158z00_16741 =
																								BgL_res6726z00_16751;
																				}}}
																			else
																				{	/* Read/reader.scm 288 */
																					BgL_arg6158z00_16741 =
																						MAKE_YOUNG_PAIR(BgL_itemz00_16740,
																						BgL_accz00_16739);
																				}
																			{
																				obj_t BgL_accz00_28880;

																				BgL_accz00_28880 = BgL_arg6158z00_16741;
																				BgL_accz00_16739 = BgL_accz00_28880;
																				goto BgL_loopz00_16738;
																			}
																		}
																}
															}
														}
												}
											}
										}
									}
									BgL_lz00_9785 = bgl_reverse_bang(BgL_arg5925z00_9800);
								}
								{	/* Read/reader.scm 715 */
									long BgL_lenz00_9786;

									BgL_lenz00_9786 = bgl_list_length(BgL_lz00_9785);
									{	/* Read/reader.scm 716 */
										obj_t BgL_rz00_9787;

										{	/* Read/reader.scm 717 */
											obj_t BgL_arg5923z00_9798;
											long BgL_arg5924z00_9799;

											BgL_arg5923z00_9798 = CAR(((obj_t) BgL_lz00_9785));
											BgL_arg5924z00_9799 = (BgL_lenz00_9786 - 1L);
											{	/* Read/reader.scm 717 */
												int BgL_lenz00_16755;

												BgL_lenz00_16755 = (int) (BgL_arg5924z00_9799);
												BgL_rz00_9787 =
													make_struct(
													((obj_t) BgL_arg5923z00_9798), BgL_lenz00_16755,
													BUNSPEC);
										}}
										{	/* Read/reader.scm 717 */

											{	/* Read/reader.scm 718 */
												obj_t BgL_g1341z00_9788;

												BgL_g1341z00_9788 = CDR(((obj_t) BgL_lz00_9785));
												{
													long BgL_iz00_16776;
													obj_t BgL_lz00_16777;

													BgL_iz00_16776 = 0L;
													BgL_lz00_16777 = BgL_g1341z00_9788;
												BgL_loopz00_16775:
													if (PAIRP(BgL_lz00_16777))
														{	/* Read/reader.scm 720 */
															{	/* Read/reader.scm 721 */
																obj_t BgL_auxz00_28895;
																int BgL_tmpz00_28893;

																BgL_auxz00_28895 = CAR(BgL_lz00_16777);
																BgL_tmpz00_28893 = (int) (BgL_iz00_16776);
																STRUCT_SET(BgL_rz00_9787, BgL_tmpz00_28893,
																	BgL_auxz00_28895);
															}
															{
																obj_t BgL_lz00_28900;
																long BgL_iz00_28898;

																BgL_iz00_28898 = (BgL_iz00_16776 + 1L);
																BgL_lz00_28900 = CDR(BgL_lz00_16777);
																BgL_lz00_16777 = BgL_lz00_28900;
																BgL_iz00_16776 = BgL_iz00_28898;
																goto BgL_loopz00_16775;
															}
														}
													else
														{	/* Read/reader.scm 720 */
															((bool_t) 0);
														}
												}
											}
											return BgL_rz00_9787;
										}
									}
								}
							}
							break;
						case 32L:

							{	/* Read/reader.scm 699 */
								obj_t BgL_openzd2keyzd2_9802;
								long BgL_tagz00_9803;

								BgL_openzd2keyzd2_9802 = CELL_REF(BgL_parzd2openzd2_18179);
								{	/* Read/reader.scm 700 */
									obj_t BgL_arg5934z00_9811;

									BgL_arg5934z00_9811 =
										BGl_thezd2substringze71z35zz__readerz00(BgL_iportz00_18176,
										(int) (1L), (int) (4L));
									{	/* Read/reader.scm 700 */
										char *BgL_tmpz00_28905;

										BgL_tmpz00_28905 = BSTRING_TO_STRING(BgL_arg5934z00_9811);
										BgL_tagz00_9803 = BGL_STRTOL(BgL_tmpz00_28905, 0L, 10L);
								}}
								{	/* Read/reader.scm 701 */
									obj_t BgL_auxz00_18105;

									BgL_auxz00_18105 =
										ADDFX(BINT(1L), CELL_REF(BgL_parzd2openzd2_18179));
									CELL_SET(BgL_parzd2openzd2_18179, BgL_auxz00_18105);
								}
								{	/* Read/reader.scm 702 */
									obj_t BgL_auxz00_18106;

									{	/* Read/reader.scm 702 */
										long BgL_arg5927z00_9804;

										{	/* Read/reader.scm 702 */
											long BgL_arg5928z00_9805;

											{	/* Read/reader.scm 702 */
												obj_t BgL_tmpz00_28910;

												BgL_tmpz00_28910 = ((obj_t) BgL_iportz00_18176);
												BgL_arg5928z00_9805 =
													INPUT_PORT_FILEPOS(BgL_tmpz00_28910);
											}
											BgL_arg5927z00_9804 = (BgL_arg5928z00_9805 - 1L);
										}
										BgL_auxz00_18106 =
											MAKE_YOUNG_PAIR(BINT(BgL_arg5927z00_9804),
											CELL_REF(BgL_parzd2poseszd2_18177));
									}
									CELL_SET(BgL_parzd2poseszd2_18177, BgL_auxz00_18106);
								}
								{	/* Read/reader.scm 706 */
									obj_t BgL_arg5930z00_9807;

									{	/* Read/reader.scm 706 */
										obj_t BgL_arg5931z00_9808;

										{	/* Read/reader.scm 706 */
											obj_t BgL_arg5932z00_9809;

											{	/* Read/reader.scm 277 */
												obj_t BgL_namez00_16796;

												{	/* Read/reader.scm 277 */
													obj_t BgL_tmpz00_28916;

													BgL_tmpz00_28916 = ((obj_t) BgL_iportz00_18176);
													BgL_namez00_16796 = INPUT_PORT_NAME(BgL_tmpz00_28916);
												}
												{	/* Read/reader.scm 277 */
													long BgL_poz00_16797;

													{	/* Read/reader.scm 278 */
														long BgL_arg6159z00_16798;

														{	/* Read/reader.scm 278 */
															obj_t BgL_tmpz00_28919;

															BgL_tmpz00_28919 = ((obj_t) BgL_iportz00_18176);
															BgL_arg6159z00_16798 =
																INPUT_PORT_FILEPOS(BgL_tmpz00_28919);
														}
														BgL_poz00_16797 = (BgL_arg6159z00_16798 - 1L);
													}
													{	/* Read/reader.scm 278 */
														obj_t BgL_itemz00_16799;

														BgL_itemz00_16799 =
															BGl_ignoreze70ze7zz__readerz00(BgL_envz00_18184,
															BgL_pospz00_18183, BgL_brazd2poseszd2_18182,
															BgL_resolvez00_18181, BgL_cyclesz00_18180,
															BgL_parzd2openzd2_18179, BgL_brazd2openzd2_18178,
															BgL_parzd2poseszd2_18177, BgL_iportz00_18176);
														{	/* Read/reader.scm 279 */

															if (
																(BgL_itemz00_16799 ==
																	BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																{	/* Read/reader.scm 280 */
																	BgL_arg5932z00_9809 = BNIL;
																}
															else
																{	/* Read/reader.scm 282 */
																	obj_t BgL_g1046z00_16800;

																	if (CBOOL(BgL_pospz00_18183))
																		{	/* Read/reader.scm 132 */
																			obj_t BgL_arg6075z00_16809;

																			BgL_arg6075z00_16809 =
																				BGl_makezd2sourcezd2locationz00zz__readerz00
																				(BgL_namez00_16796,
																				BINT(BgL_poz00_16797));
																			{	/* Read/reader.scm 132 */
																				obj_t BgL_res6729z00_16810;

																				BgL_res6729z00_16810 =
																					MAKE_YOUNG_EPAIR(BgL_itemz00_16799,
																					BNIL, BgL_arg6075z00_16809);
																				BgL_g1046z00_16800 =
																					BgL_res6729z00_16810;
																			}
																		}
																	else
																		{	/* Read/reader.scm 282 */
																			BgL_g1046z00_16800 =
																				MAKE_YOUNG_PAIR(BgL_itemz00_16799,
																				BNIL);
																		}
																	{
																		obj_t BgL_accz00_16802;

																		BgL_accz00_16802 = BgL_g1046z00_16800;
																	BgL_loopz00_16801:
																		{	/* Read/reader.scm 285 */
																			obj_t BgL_itemz00_16803;

																			BgL_itemz00_16803 =
																				BGl_ignoreze70ze7zz__readerz00
																				(BgL_envz00_18184, BgL_pospz00_18183,
																				BgL_brazd2poseszd2_18182,
																				BgL_resolvez00_18181,
																				BgL_cyclesz00_18180,
																				BgL_parzd2openzd2_18179,
																				BgL_brazd2openzd2_18178,
																				BgL_parzd2poseszd2_18177,
																				BgL_iportz00_18176);
																			if ((BgL_itemz00_16803 ==
																					BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																				{	/* Read/reader.scm 286 */
																					BgL_arg5932z00_9809 =
																						BgL_accz00_16802;
																				}
																			else
																				{	/* Read/reader.scm 288 */
																					obj_t BgL_arg6158z00_16804;

																					if (CBOOL(BgL_pospz00_18183))
																						{	/* Read/reader.scm 289 */
																							long BgL_poz00_16805;

																							{	/* Read/reader.scm 289 */
																								long BgL_res6730z00_16812;

																								{	/* Read/reader.scm 289 */
																									long BgL_tmpz00_28937;

																									{	/* Read/reader.scm 289 */
																										obj_t BgL_tmpz00_28938;

																										BgL_tmpz00_28938 =
																											((obj_t)
																											BgL_iportz00_18176);
																										BgL_tmpz00_28937 =
																											INPUT_PORT_TOKENPOS
																											(BgL_tmpz00_28938);
																									}
																									BgL_res6730z00_16812 =
																										(long) (BgL_tmpz00_28937);
																								}
																								BgL_poz00_16805 =
																									BgL_res6730z00_16812;
																							}
																							{	/* Read/reader.scm 132 */
																								obj_t BgL_arg6075z00_16813;

																								BgL_arg6075z00_16813 =
																									BGl_makezd2sourcezd2locationz00zz__readerz00
																									(BgL_namez00_16796,
																									BINT(BgL_poz00_16805));
																								{	/* Read/reader.scm 132 */
																									obj_t BgL_res6731z00_16814;

																									BgL_res6731z00_16814 =
																										MAKE_YOUNG_EPAIR
																										(BgL_itemz00_16803,
																										BgL_accz00_16802,
																										BgL_arg6075z00_16813);
																									BgL_arg6158z00_16804 =
																										BgL_res6731z00_16814;
																						}}}
																					else
																						{	/* Read/reader.scm 288 */
																							BgL_arg6158z00_16804 =
																								MAKE_YOUNG_PAIR
																								(BgL_itemz00_16803,
																								BgL_accz00_16802);
																						}
																					{
																						obj_t BgL_accz00_28946;

																						BgL_accz00_28946 =
																							BgL_arg6158z00_16804;
																						BgL_accz00_16802 = BgL_accz00_28946;
																						goto BgL_loopz00_16801;
																					}
																				}
																		}
																	}
																}
														}
													}
												}
											}
											BgL_arg5931z00_9808 =
												MAKE_YOUNG_PAIR(BINT(BgL_tagz00_9803),
												BgL_arg5932z00_9809);
										}
										BgL_arg5930z00_9807 = bgl_reverse_bang(BgL_arg5931z00_9808);
									}
									return
										BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
										(BgL_arg5930z00_9807);
								}
							}
							break;
						case 31L:

							{	/* Read/reader.scm 648 */
								obj_t BgL_auxz00_18107;

								BgL_auxz00_18107 =
									ADDFX(BINT(1L), CELL_REF(BgL_parzd2openzd2_18179));
								CELL_SET(BgL_parzd2openzd2_18179, BgL_auxz00_18107);
							}
							{	/* Read/reader.scm 649 */
								obj_t BgL_auxz00_18108;

								{	/* Read/reader.scm 649 */
									long BgL_arg5935z00_9812;

									{	/* Read/reader.scm 649 */
										long BgL_arg5936z00_9813;

										{	/* Read/reader.scm 649 */
											obj_t BgL_tmpz00_28953;

											BgL_tmpz00_28953 = ((obj_t) BgL_iportz00_18176);
											BgL_arg5936z00_9813 =
												INPUT_PORT_FILEPOS(BgL_tmpz00_28953);
										}
										BgL_arg5935z00_9812 = (BgL_arg5936z00_9813 - 1L);
									}
									BgL_auxz00_18108 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg5935z00_9812),
										CELL_REF(BgL_parzd2poseszd2_18177));
								}
								CELL_SET(BgL_parzd2poseszd2_18177, BgL_auxz00_18108);
							}
							{	/* Read/reader.scm 651 */
								obj_t BgL_sz00_9815;

								BgL_sz00_9815 =
									BGl_thezd2substringze71z35zz__readerz00(BgL_iportz00_18176,
									(int) (1L), (int) (-1L));
								{	/* Read/reader.scm 653 */
									bool_t BgL_test9259z00_28962;

									{	/* Read/reader.scm 653 */
										long BgL_l1z00_16821;

										BgL_l1z00_16821 = STRING_LENGTH(BgL_sz00_9815);
										if ((BgL_l1z00_16821 == 2L))
											{	/* Read/reader.scm 653 */
												int BgL_arg6463z00_16824;

												{	/* Read/reader.scm 653 */
													char *BgL_auxz00_28968;
													char *BgL_tmpz00_28966;

													BgL_auxz00_28968 =
														BSTRING_TO_STRING(BGl_string6873z00zz__readerz00);
													BgL_tmpz00_28966 = BSTRING_TO_STRING(BgL_sz00_9815);
													BgL_arg6463z00_16824 =
														memcmp(BgL_tmpz00_28966, BgL_auxz00_28968,
														BgL_l1z00_16821);
												}
												BgL_test9259z00_28962 =
													((long) (BgL_arg6463z00_16824) == 0L);
											}
										else
											{	/* Read/reader.scm 653 */
												BgL_test9259z00_28962 = ((bool_t) 0);
											}
									}
									if (BgL_test9259z00_28962)
										{	/* Read/reader.scm 655 */
											obj_t BgL_arg5939z00_9817;

											{	/* Read/reader.scm 655 */
												obj_t BgL_arg5940z00_9818;

												{	/* Read/reader.scm 277 */
													obj_t BgL_namez00_16831;

													{	/* Read/reader.scm 277 */
														obj_t BgL_tmpz00_28973;

														BgL_tmpz00_28973 = ((obj_t) BgL_iportz00_18176);
														BgL_namez00_16831 =
															INPUT_PORT_NAME(BgL_tmpz00_28973);
													}
													{	/* Read/reader.scm 277 */
														long BgL_poz00_16832;

														{	/* Read/reader.scm 278 */
															long BgL_arg6159z00_16833;

															{	/* Read/reader.scm 278 */
																obj_t BgL_tmpz00_28976;

																BgL_tmpz00_28976 = ((obj_t) BgL_iportz00_18176);
																BgL_arg6159z00_16833 =
																	INPUT_PORT_FILEPOS(BgL_tmpz00_28976);
															}
															BgL_poz00_16832 = (BgL_arg6159z00_16833 - 1L);
														}
														{	/* Read/reader.scm 278 */
															obj_t BgL_itemz00_16834;

															BgL_itemz00_16834 =
																BGl_ignoreze70ze7zz__readerz00(BgL_envz00_18184,
																BgL_pospz00_18183, BgL_brazd2poseszd2_18182,
																BgL_resolvez00_18181, BgL_cyclesz00_18180,
																BgL_parzd2openzd2_18179,
																BgL_brazd2openzd2_18178,
																BgL_parzd2poseszd2_18177, BgL_iportz00_18176);
															{	/* Read/reader.scm 279 */

																if (
																	(BgL_itemz00_16834 ==
																		BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																	{	/* Read/reader.scm 280 */
																		BgL_arg5940z00_9818 = BNIL;
																	}
																else
																	{	/* Read/reader.scm 282 */
																		obj_t BgL_g1046z00_16835;

																		if (CBOOL(BgL_pospz00_18183))
																			{	/* Read/reader.scm 132 */
																				obj_t BgL_arg6075z00_16844;

																				BgL_arg6075z00_16844 =
																					BGl_makezd2sourcezd2locationz00zz__readerz00
																					(BgL_namez00_16831,
																					BINT(BgL_poz00_16832));
																				{	/* Read/reader.scm 132 */
																					obj_t BgL_res6734z00_16845;

																					BgL_res6734z00_16845 =
																						MAKE_YOUNG_EPAIR(BgL_itemz00_16834,
																						BNIL, BgL_arg6075z00_16844);
																					BgL_g1046z00_16835 =
																						BgL_res6734z00_16845;
																				}
																			}
																		else
																			{	/* Read/reader.scm 282 */
																				BgL_g1046z00_16835 =
																					MAKE_YOUNG_PAIR(BgL_itemz00_16834,
																					BNIL);
																			}
																		{
																			obj_t BgL_accz00_16837;

																			BgL_accz00_16837 = BgL_g1046z00_16835;
																		BgL_loopz00_16836:
																			{	/* Read/reader.scm 285 */
																				obj_t BgL_itemz00_16838;

																				BgL_itemz00_16838 =
																					BGl_ignoreze70ze7zz__readerz00
																					(BgL_envz00_18184, BgL_pospz00_18183,
																					BgL_brazd2poseszd2_18182,
																					BgL_resolvez00_18181,
																					BgL_cyclesz00_18180,
																					BgL_parzd2openzd2_18179,
																					BgL_brazd2openzd2_18178,
																					BgL_parzd2poseszd2_18177,
																					BgL_iportz00_18176);
																				if ((BgL_itemz00_16838 ==
																						BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																					{	/* Read/reader.scm 286 */
																						BgL_arg5940z00_9818 =
																							BgL_accz00_16837;
																					}
																				else
																					{	/* Read/reader.scm 288 */
																						obj_t BgL_arg6158z00_16839;

																						if (CBOOL(BgL_pospz00_18183))
																							{	/* Read/reader.scm 289 */
																								long BgL_poz00_16840;

																								{	/* Read/reader.scm 289 */
																									long BgL_res6735z00_16847;

																									{	/* Read/reader.scm 289 */
																										long BgL_tmpz00_28994;

																										{	/* Read/reader.scm 289 */
																											obj_t BgL_tmpz00_28995;

																											BgL_tmpz00_28995 =
																												((obj_t)
																												BgL_iportz00_18176);
																											BgL_tmpz00_28994 =
																												INPUT_PORT_TOKENPOS
																												(BgL_tmpz00_28995);
																										}
																										BgL_res6735z00_16847 =
																											(long) (BgL_tmpz00_28994);
																									}
																									BgL_poz00_16840 =
																										BgL_res6735z00_16847;
																								}
																								{	/* Read/reader.scm 132 */
																									obj_t BgL_arg6075z00_16848;

																									BgL_arg6075z00_16848 =
																										BGl_makezd2sourcezd2locationz00zz__readerz00
																										(BgL_namez00_16831,
																										BINT(BgL_poz00_16840));
																									{	/* Read/reader.scm 132 */
																										obj_t BgL_res6736z00_16849;

																										BgL_res6736z00_16849 =
																											MAKE_YOUNG_EPAIR
																											(BgL_itemz00_16838,
																											BgL_accz00_16837,
																											BgL_arg6075z00_16848);
																										BgL_arg6158z00_16839 =
																											BgL_res6736z00_16849;
																							}}}
																						else
																							{	/* Read/reader.scm 288 */
																								BgL_arg6158z00_16839 =
																									MAKE_YOUNG_PAIR
																									(BgL_itemz00_16838,
																									BgL_accz00_16837);
																							}
																						{
																							obj_t BgL_accz00_29003;

																							BgL_accz00_29003 =
																								BgL_arg6158z00_16839;
																							BgL_accz00_16837 =
																								BgL_accz00_29003;
																							goto BgL_loopz00_16836;
																						}
																					}
																			}
																		}
																	}
															}
														}
													}
												}
												BgL_arg5939z00_9817 =
													bgl_reverse_bang(BgL_arg5940z00_9818);
											}
											return
												BGl_listzd2ze3s8vectorz31zz__srfi4z00
												(BgL_arg5939z00_9817);
										}
									else
										{	/* Read/reader.scm 656 */
											bool_t BgL_test9265z00_29006;

											{	/* Read/reader.scm 656 */
												long BgL_l1z00_16852;

												BgL_l1z00_16852 = STRING_LENGTH(BgL_sz00_9815);
												if ((BgL_l1z00_16852 == 2L))
													{	/* Read/reader.scm 656 */
														int BgL_arg6463z00_16855;

														{	/* Read/reader.scm 656 */
															char *BgL_auxz00_29012;
															char *BgL_tmpz00_29010;

															BgL_auxz00_29012 =
																BSTRING_TO_STRING
																(BGl_string6874z00zz__readerz00);
															BgL_tmpz00_29010 =
																BSTRING_TO_STRING(BgL_sz00_9815);
															BgL_arg6463z00_16855 =
																memcmp(BgL_tmpz00_29010, BgL_auxz00_29012,
																BgL_l1z00_16852);
														}
														BgL_test9265z00_29006 =
															((long) (BgL_arg6463z00_16855) == 0L);
													}
												else
													{	/* Read/reader.scm 656 */
														BgL_test9265z00_29006 = ((bool_t) 0);
													}
											}
											if (BgL_test9265z00_29006)
												{	/* Read/reader.scm 658 */
													obj_t BgL_arg5943z00_9821;

													{	/* Read/reader.scm 658 */
														obj_t BgL_arg5944z00_9822;

														{	/* Read/reader.scm 277 */
															obj_t BgL_namez00_16862;

															{	/* Read/reader.scm 277 */
																obj_t BgL_tmpz00_29017;

																BgL_tmpz00_29017 = ((obj_t) BgL_iportz00_18176);
																BgL_namez00_16862 =
																	INPUT_PORT_NAME(BgL_tmpz00_29017);
															}
															{	/* Read/reader.scm 277 */
																long BgL_poz00_16863;

																{	/* Read/reader.scm 278 */
																	long BgL_arg6159z00_16864;

																	{	/* Read/reader.scm 278 */
																		obj_t BgL_tmpz00_29020;

																		BgL_tmpz00_29020 =
																			((obj_t) BgL_iportz00_18176);
																		BgL_arg6159z00_16864 =
																			INPUT_PORT_FILEPOS(BgL_tmpz00_29020);
																	}
																	BgL_poz00_16863 = (BgL_arg6159z00_16864 - 1L);
																}
																{	/* Read/reader.scm 278 */
																	obj_t BgL_itemz00_16865;

																	BgL_itemz00_16865 =
																		BGl_ignoreze70ze7zz__readerz00
																		(BgL_envz00_18184, BgL_pospz00_18183,
																		BgL_brazd2poseszd2_18182,
																		BgL_resolvez00_18181, BgL_cyclesz00_18180,
																		BgL_parzd2openzd2_18179,
																		BgL_brazd2openzd2_18178,
																		BgL_parzd2poseszd2_18177,
																		BgL_iportz00_18176);
																	{	/* Read/reader.scm 279 */

																		if (
																			(BgL_itemz00_16865 ==
																				BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																			{	/* Read/reader.scm 280 */
																				BgL_arg5944z00_9822 = BNIL;
																			}
																		else
																			{	/* Read/reader.scm 282 */
																				obj_t BgL_g1046z00_16866;

																				if (CBOOL(BgL_pospz00_18183))
																					{	/* Read/reader.scm 132 */
																						obj_t BgL_arg6075z00_16875;

																						BgL_arg6075z00_16875 =
																							BGl_makezd2sourcezd2locationz00zz__readerz00
																							(BgL_namez00_16862,
																							BINT(BgL_poz00_16863));
																						{	/* Read/reader.scm 132 */
																							obj_t BgL_res6738z00_16876;

																							BgL_res6738z00_16876 =
																								MAKE_YOUNG_EPAIR
																								(BgL_itemz00_16865, BNIL,
																								BgL_arg6075z00_16875);
																							BgL_g1046z00_16866 =
																								BgL_res6738z00_16876;
																						}
																					}
																				else
																					{	/* Read/reader.scm 282 */
																						BgL_g1046z00_16866 =
																							MAKE_YOUNG_PAIR(BgL_itemz00_16865,
																							BNIL);
																					}
																				{
																					obj_t BgL_accz00_16868;

																					BgL_accz00_16868 = BgL_g1046z00_16866;
																				BgL_loopz00_16867:
																					{	/* Read/reader.scm 285 */
																						obj_t BgL_itemz00_16869;

																						BgL_itemz00_16869 =
																							BGl_ignoreze70ze7zz__readerz00
																							(BgL_envz00_18184,
																							BgL_pospz00_18183,
																							BgL_brazd2poseszd2_18182,
																							BgL_resolvez00_18181,
																							BgL_cyclesz00_18180,
																							BgL_parzd2openzd2_18179,
																							BgL_brazd2openzd2_18178,
																							BgL_parzd2poseszd2_18177,
																							BgL_iportz00_18176);
																						if ((BgL_itemz00_16869 ==
																								BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																							{	/* Read/reader.scm 286 */
																								BgL_arg5944z00_9822 =
																									BgL_accz00_16868;
																							}
																						else
																							{	/* Read/reader.scm 288 */
																								obj_t BgL_arg6158z00_16870;

																								if (CBOOL(BgL_pospz00_18183))
																									{	/* Read/reader.scm 289 */
																										long BgL_poz00_16871;

																										{	/* Read/reader.scm 289 */
																											long BgL_res6739z00_16878;

																											{	/* Read/reader.scm 289 */
																												long BgL_tmpz00_29038;

																												{	/* Read/reader.scm 289 */
																													obj_t
																														BgL_tmpz00_29039;
																													BgL_tmpz00_29039 =
																														((obj_t)
																														BgL_iportz00_18176);
																													BgL_tmpz00_29038 =
																														INPUT_PORT_TOKENPOS
																														(BgL_tmpz00_29039);
																												}
																												BgL_res6739z00_16878 =
																													(long)
																													(BgL_tmpz00_29038);
																											}
																											BgL_poz00_16871 =
																												BgL_res6739z00_16878;
																										}
																										{	/* Read/reader.scm 132 */
																											obj_t
																												BgL_arg6075z00_16879;
																											BgL_arg6075z00_16879 =
																												BGl_makezd2sourcezd2locationz00zz__readerz00
																												(BgL_namez00_16862,
																												BINT(BgL_poz00_16871));
																											{	/* Read/reader.scm 132 */
																												obj_t
																													BgL_res6740z00_16880;
																												BgL_res6740z00_16880 =
																													MAKE_YOUNG_EPAIR
																													(BgL_itemz00_16869,
																													BgL_accz00_16868,
																													BgL_arg6075z00_16879);
																												BgL_arg6158z00_16870 =
																													BgL_res6740z00_16880;
																									}}}
																								else
																									{	/* Read/reader.scm 288 */
																										BgL_arg6158z00_16870 =
																											MAKE_YOUNG_PAIR
																											(BgL_itemz00_16869,
																											BgL_accz00_16868);
																									}
																								{
																									obj_t BgL_accz00_29047;

																									BgL_accz00_29047 =
																										BgL_arg6158z00_16870;
																									BgL_accz00_16868 =
																										BgL_accz00_29047;
																									goto BgL_loopz00_16867;
																								}
																							}
																					}
																				}
																			}
																	}
																}
															}
														}
														BgL_arg5943z00_9821 =
															bgl_reverse_bang(BgL_arg5944z00_9822);
													}
													return
														BGl_listzd2ze3u8vectorz31zz__srfi4z00
														(BgL_arg5943z00_9821);
												}
											else
												{	/* Read/reader.scm 659 */
													bool_t BgL_test9271z00_29050;

													{	/* Read/reader.scm 659 */
														long BgL_l1z00_16883;

														BgL_l1z00_16883 = STRING_LENGTH(BgL_sz00_9815);
														if ((BgL_l1z00_16883 == 3L))
															{	/* Read/reader.scm 659 */
																int BgL_arg6463z00_16886;

																{	/* Read/reader.scm 659 */
																	char *BgL_auxz00_29056;
																	char *BgL_tmpz00_29054;

																	BgL_auxz00_29056 =
																		BSTRING_TO_STRING
																		(BGl_string6875z00zz__readerz00);
																	BgL_tmpz00_29054 =
																		BSTRING_TO_STRING(BgL_sz00_9815);
																	BgL_arg6463z00_16886 =
																		memcmp(BgL_tmpz00_29054, BgL_auxz00_29056,
																		BgL_l1z00_16883);
																}
																BgL_test9271z00_29050 =
																	((long) (BgL_arg6463z00_16886) == 0L);
															}
														else
															{	/* Read/reader.scm 659 */
																BgL_test9271z00_29050 = ((bool_t) 0);
															}
													}
													if (BgL_test9271z00_29050)
														{	/* Read/reader.scm 661 */
															obj_t BgL_arg5947z00_9825;

															{	/* Read/reader.scm 661 */
																obj_t BgL_arg5948z00_9826;

																{	/* Read/reader.scm 277 */
																	obj_t BgL_namez00_16893;

																	{	/* Read/reader.scm 277 */
																		obj_t BgL_tmpz00_29061;

																		BgL_tmpz00_29061 =
																			((obj_t) BgL_iportz00_18176);
																		BgL_namez00_16893 =
																			INPUT_PORT_NAME(BgL_tmpz00_29061);
																	}
																	{	/* Read/reader.scm 277 */
																		long BgL_poz00_16894;

																		{	/* Read/reader.scm 278 */
																			long BgL_arg6159z00_16895;

																			{	/* Read/reader.scm 278 */
																				obj_t BgL_tmpz00_29064;

																				BgL_tmpz00_29064 =
																					((obj_t) BgL_iportz00_18176);
																				BgL_arg6159z00_16895 =
																					INPUT_PORT_FILEPOS(BgL_tmpz00_29064);
																			}
																			BgL_poz00_16894 =
																				(BgL_arg6159z00_16895 - 1L);
																		}
																		{	/* Read/reader.scm 278 */
																			obj_t BgL_itemz00_16896;

																			BgL_itemz00_16896 =
																				BGl_ignoreze70ze7zz__readerz00
																				(BgL_envz00_18184, BgL_pospz00_18183,
																				BgL_brazd2poseszd2_18182,
																				BgL_resolvez00_18181,
																				BgL_cyclesz00_18180,
																				BgL_parzd2openzd2_18179,
																				BgL_brazd2openzd2_18178,
																				BgL_parzd2poseszd2_18177,
																				BgL_iportz00_18176);
																			{	/* Read/reader.scm 279 */

																				if (
																					(BgL_itemz00_16896 ==
																						BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																					{	/* Read/reader.scm 280 */
																						BgL_arg5948z00_9826 = BNIL;
																					}
																				else
																					{	/* Read/reader.scm 282 */
																						obj_t BgL_g1046z00_16897;

																						if (CBOOL(BgL_pospz00_18183))
																							{	/* Read/reader.scm 132 */
																								obj_t BgL_arg6075z00_16906;

																								BgL_arg6075z00_16906 =
																									BGl_makezd2sourcezd2locationz00zz__readerz00
																									(BgL_namez00_16893,
																									BINT(BgL_poz00_16894));
																								{	/* Read/reader.scm 132 */
																									obj_t BgL_res6742z00_16907;

																									BgL_res6742z00_16907 =
																										MAKE_YOUNG_EPAIR
																										(BgL_itemz00_16896, BNIL,
																										BgL_arg6075z00_16906);
																									BgL_g1046z00_16897 =
																										BgL_res6742z00_16907;
																								}
																							}
																						else
																							{	/* Read/reader.scm 282 */
																								BgL_g1046z00_16897 =
																									MAKE_YOUNG_PAIR
																									(BgL_itemz00_16896, BNIL);
																							}
																						{
																							obj_t BgL_accz00_16899;

																							BgL_accz00_16899 =
																								BgL_g1046z00_16897;
																						BgL_loopz00_16898:
																							{	/* Read/reader.scm 285 */
																								obj_t BgL_itemz00_16900;

																								BgL_itemz00_16900 =
																									BGl_ignoreze70ze7zz__readerz00
																									(BgL_envz00_18184,
																									BgL_pospz00_18183,
																									BgL_brazd2poseszd2_18182,
																									BgL_resolvez00_18181,
																									BgL_cyclesz00_18180,
																									BgL_parzd2openzd2_18179,
																									BgL_brazd2openzd2_18178,
																									BgL_parzd2poseszd2_18177,
																									BgL_iportz00_18176);
																								if ((BgL_itemz00_16900 ==
																										BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																									{	/* Read/reader.scm 286 */
																										BgL_arg5948z00_9826 =
																											BgL_accz00_16899;
																									}
																								else
																									{	/* Read/reader.scm 288 */
																										obj_t BgL_arg6158z00_16901;

																										if (CBOOL
																											(BgL_pospz00_18183))
																											{	/* Read/reader.scm 289 */
																												long BgL_poz00_16902;

																												{	/* Read/reader.scm 289 */
																													long
																														BgL_res6743z00_16909;
																													{	/* Read/reader.scm 289 */
																														long
																															BgL_tmpz00_29082;
																														{	/* Read/reader.scm 289 */
																															obj_t
																																BgL_tmpz00_29083;
																															BgL_tmpz00_29083 =
																																((obj_t)
																																BgL_iportz00_18176);
																															BgL_tmpz00_29082 =
																																INPUT_PORT_TOKENPOS
																																(BgL_tmpz00_29083);
																														}
																														BgL_res6743z00_16909
																															=
																															(long)
																															(BgL_tmpz00_29082);
																													}
																													BgL_poz00_16902 =
																														BgL_res6743z00_16909;
																												}
																												{	/* Read/reader.scm 132 */
																													obj_t
																														BgL_arg6075z00_16910;
																													BgL_arg6075z00_16910 =
																														BGl_makezd2sourcezd2locationz00zz__readerz00
																														(BgL_namez00_16893,
																														BINT
																														(BgL_poz00_16902));
																													{	/* Read/reader.scm 132 */
																														obj_t
																															BgL_res6744z00_16911;
																														BgL_res6744z00_16911
																															=
																															MAKE_YOUNG_EPAIR
																															(BgL_itemz00_16900,
																															BgL_accz00_16899,
																															BgL_arg6075z00_16910);
																														BgL_arg6158z00_16901
																															=
																															BgL_res6744z00_16911;
																											}}}
																										else
																											{	/* Read/reader.scm 288 */
																												BgL_arg6158z00_16901 =
																													MAKE_YOUNG_PAIR
																													(BgL_itemz00_16900,
																													BgL_accz00_16899);
																											}
																										{
																											obj_t BgL_accz00_29091;

																											BgL_accz00_29091 =
																												BgL_arg6158z00_16901;
																											BgL_accz00_16899 =
																												BgL_accz00_29091;
																											goto BgL_loopz00_16898;
																										}
																									}
																							}
																						}
																					}
																			}
																		}
																	}
																}
																BgL_arg5947z00_9825 =
																	bgl_reverse_bang(BgL_arg5948z00_9826);
															}
															return
																BGl_listzd2ze3s16vectorz31zz__srfi4z00
																(BgL_arg5947z00_9825);
														}
													else
														{	/* Read/reader.scm 662 */
															bool_t BgL_test9277z00_29094;

															{	/* Read/reader.scm 662 */
																long BgL_l1z00_16914;

																BgL_l1z00_16914 = STRING_LENGTH(BgL_sz00_9815);
																if ((BgL_l1z00_16914 == 3L))
																	{	/* Read/reader.scm 662 */
																		int BgL_arg6463z00_16917;

																		{	/* Read/reader.scm 662 */
																			char *BgL_auxz00_29100;
																			char *BgL_tmpz00_29098;

																			BgL_auxz00_29100 =
																				BSTRING_TO_STRING
																				(BGl_string6876z00zz__readerz00);
																			BgL_tmpz00_29098 =
																				BSTRING_TO_STRING(BgL_sz00_9815);
																			BgL_arg6463z00_16917 =
																				memcmp(BgL_tmpz00_29098,
																				BgL_auxz00_29100, BgL_l1z00_16914);
																		}
																		BgL_test9277z00_29094 =
																			((long) (BgL_arg6463z00_16917) == 0L);
																	}
																else
																	{	/* Read/reader.scm 662 */
																		BgL_test9277z00_29094 = ((bool_t) 0);
																	}
															}
															if (BgL_test9277z00_29094)
																{	/* Read/reader.scm 664 */
																	obj_t BgL_arg5951z00_9829;

																	{	/* Read/reader.scm 664 */
																		obj_t BgL_arg5952z00_9830;

																		{	/* Read/reader.scm 277 */
																			obj_t BgL_namez00_16924;

																			{	/* Read/reader.scm 277 */
																				obj_t BgL_tmpz00_29105;

																				BgL_tmpz00_29105 =
																					((obj_t) BgL_iportz00_18176);
																				BgL_namez00_16924 =
																					INPUT_PORT_NAME(BgL_tmpz00_29105);
																			}
																			{	/* Read/reader.scm 277 */
																				long BgL_poz00_16925;

																				{	/* Read/reader.scm 278 */
																					long BgL_arg6159z00_16926;

																					{	/* Read/reader.scm 278 */
																						obj_t BgL_tmpz00_29108;

																						BgL_tmpz00_29108 =
																							((obj_t) BgL_iportz00_18176);
																						BgL_arg6159z00_16926 =
																							INPUT_PORT_FILEPOS
																							(BgL_tmpz00_29108);
																					}
																					BgL_poz00_16925 =
																						(BgL_arg6159z00_16926 - 1L);
																				}
																				{	/* Read/reader.scm 278 */
																					obj_t BgL_itemz00_16927;

																					BgL_itemz00_16927 =
																						BGl_ignoreze70ze7zz__readerz00
																						(BgL_envz00_18184,
																						BgL_pospz00_18183,
																						BgL_brazd2poseszd2_18182,
																						BgL_resolvez00_18181,
																						BgL_cyclesz00_18180,
																						BgL_parzd2openzd2_18179,
																						BgL_brazd2openzd2_18178,
																						BgL_parzd2poseszd2_18177,
																						BgL_iportz00_18176);
																					{	/* Read/reader.scm 279 */

																						if (
																							(BgL_itemz00_16927 ==
																								BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																							{	/* Read/reader.scm 280 */
																								BgL_arg5952z00_9830 = BNIL;
																							}
																						else
																							{	/* Read/reader.scm 282 */
																								obj_t BgL_g1046z00_16928;

																								if (CBOOL(BgL_pospz00_18183))
																									{	/* Read/reader.scm 132 */
																										obj_t BgL_arg6075z00_16937;

																										BgL_arg6075z00_16937 =
																											BGl_makezd2sourcezd2locationz00zz__readerz00
																											(BgL_namez00_16924,
																											BINT(BgL_poz00_16925));
																										{	/* Read/reader.scm 132 */
																											obj_t
																												BgL_res6746z00_16938;
																											BgL_res6746z00_16938 =
																												MAKE_YOUNG_EPAIR
																												(BgL_itemz00_16927,
																												BNIL,
																												BgL_arg6075z00_16937);
																											BgL_g1046z00_16928 =
																												BgL_res6746z00_16938;
																										}
																									}
																								else
																									{	/* Read/reader.scm 282 */
																										BgL_g1046z00_16928 =
																											MAKE_YOUNG_PAIR
																											(BgL_itemz00_16927, BNIL);
																									}
																								{
																									obj_t BgL_accz00_16930;

																									BgL_accz00_16930 =
																										BgL_g1046z00_16928;
																								BgL_loopz00_16929:
																									{	/* Read/reader.scm 285 */
																										obj_t BgL_itemz00_16931;

																										BgL_itemz00_16931 =
																											BGl_ignoreze70ze7zz__readerz00
																											(BgL_envz00_18184,
																											BgL_pospz00_18183,
																											BgL_brazd2poseszd2_18182,
																											BgL_resolvez00_18181,
																											BgL_cyclesz00_18180,
																											BgL_parzd2openzd2_18179,
																											BgL_brazd2openzd2_18178,
																											BgL_parzd2poseszd2_18177,
																											BgL_iportz00_18176);
																										if ((BgL_itemz00_16931 ==
																												BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																											{	/* Read/reader.scm 286 */
																												BgL_arg5952z00_9830 =
																													BgL_accz00_16930;
																											}
																										else
																											{	/* Read/reader.scm 288 */
																												obj_t
																													BgL_arg6158z00_16932;
																												if (CBOOL
																													(BgL_pospz00_18183))
																													{	/* Read/reader.scm 289 */
																														long
																															BgL_poz00_16933;
																														{	/* Read/reader.scm 289 */
																															long
																																BgL_res6747z00_16940;
																															{	/* Read/reader.scm 289 */
																																long
																																	BgL_tmpz00_29126;
																																{	/* Read/reader.scm 289 */
																																	obj_t
																																		BgL_tmpz00_29127;
																																	BgL_tmpz00_29127
																																		=
																																		((obj_t)
																																		BgL_iportz00_18176);
																																	BgL_tmpz00_29126
																																		=
																																		INPUT_PORT_TOKENPOS
																																		(BgL_tmpz00_29127);
																																}
																																BgL_res6747z00_16940
																																	=
																																	(long)
																																	(BgL_tmpz00_29126);
																															}
																															BgL_poz00_16933 =
																																BgL_res6747z00_16940;
																														}
																														{	/* Read/reader.scm 132 */
																															obj_t
																																BgL_arg6075z00_16941;
																															BgL_arg6075z00_16941
																																=
																																BGl_makezd2sourcezd2locationz00zz__readerz00
																																(BgL_namez00_16924,
																																BINT
																																(BgL_poz00_16933));
																															{	/* Read/reader.scm 132 */
																																obj_t
																																	BgL_res6748z00_16942;
																																BgL_res6748z00_16942
																																	=
																																	MAKE_YOUNG_EPAIR
																																	(BgL_itemz00_16931,
																																	BgL_accz00_16930,
																																	BgL_arg6075z00_16941);
																																BgL_arg6158z00_16932
																																	=
																																	BgL_res6748z00_16942;
																													}}}
																												else
																													{	/* Read/reader.scm 288 */
																														BgL_arg6158z00_16932
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_itemz00_16931,
																															BgL_accz00_16930);
																													}
																												{
																													obj_t
																														BgL_accz00_29135;
																													BgL_accz00_29135 =
																														BgL_arg6158z00_16932;
																													BgL_accz00_16930 =
																														BgL_accz00_29135;
																													goto
																														BgL_loopz00_16929;
																												}
																											}
																									}
																								}
																							}
																					}
																				}
																			}
																		}
																		BgL_arg5951z00_9829 =
																			bgl_reverse_bang(BgL_arg5952z00_9830);
																	}
																	return
																		BGl_listzd2ze3u16vectorz31zz__srfi4z00
																		(BgL_arg5951z00_9829);
																}
															else
																{	/* Read/reader.scm 665 */
																	bool_t BgL_test9283z00_29138;

																	{	/* Read/reader.scm 665 */
																		long BgL_l1z00_16945;

																		BgL_l1z00_16945 =
																			STRING_LENGTH(BgL_sz00_9815);
																		if ((BgL_l1z00_16945 == 3L))
																			{	/* Read/reader.scm 665 */
																				int BgL_arg6463z00_16948;

																				{	/* Read/reader.scm 665 */
																					char *BgL_auxz00_29144;
																					char *BgL_tmpz00_29142;

																					BgL_auxz00_29144 =
																						BSTRING_TO_STRING
																						(BGl_string6877z00zz__readerz00);
																					BgL_tmpz00_29142 =
																						BSTRING_TO_STRING(BgL_sz00_9815);
																					BgL_arg6463z00_16948 =
																						memcmp(BgL_tmpz00_29142,
																						BgL_auxz00_29144, BgL_l1z00_16945);
																				}
																				BgL_test9283z00_29138 =
																					((long) (BgL_arg6463z00_16948) == 0L);
																			}
																		else
																			{	/* Read/reader.scm 665 */
																				BgL_test9283z00_29138 = ((bool_t) 0);
																			}
																	}
																	if (BgL_test9283z00_29138)
																		{	/* Read/reader.scm 667 */
																			obj_t BgL_arg5955z00_9833;

																			{	/* Read/reader.scm 667 */
																				obj_t BgL_arg5956z00_9834;

																				{	/* Read/reader.scm 277 */
																					obj_t BgL_namez00_16955;

																					{	/* Read/reader.scm 277 */
																						obj_t BgL_tmpz00_29149;

																						BgL_tmpz00_29149 =
																							((obj_t) BgL_iportz00_18176);
																						BgL_namez00_16955 =
																							INPUT_PORT_NAME(BgL_tmpz00_29149);
																					}
																					{	/* Read/reader.scm 277 */
																						long BgL_poz00_16956;

																						{	/* Read/reader.scm 278 */
																							long BgL_arg6159z00_16957;

																							{	/* Read/reader.scm 278 */
																								obj_t BgL_tmpz00_29152;

																								BgL_tmpz00_29152 =
																									((obj_t) BgL_iportz00_18176);
																								BgL_arg6159z00_16957 =
																									INPUT_PORT_FILEPOS
																									(BgL_tmpz00_29152);
																							}
																							BgL_poz00_16956 =
																								(BgL_arg6159z00_16957 - 1L);
																						}
																						{	/* Read/reader.scm 278 */
																							obj_t BgL_itemz00_16958;

																							BgL_itemz00_16958 =
																								BGl_ignoreze70ze7zz__readerz00
																								(BgL_envz00_18184,
																								BgL_pospz00_18183,
																								BgL_brazd2poseszd2_18182,
																								BgL_resolvez00_18181,
																								BgL_cyclesz00_18180,
																								BgL_parzd2openzd2_18179,
																								BgL_brazd2openzd2_18178,
																								BgL_parzd2poseszd2_18177,
																								BgL_iportz00_18176);
																							{	/* Read/reader.scm 279 */

																								if (
																									(BgL_itemz00_16958 ==
																										BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																									{	/* Read/reader.scm 280 */
																										BgL_arg5956z00_9834 = BNIL;
																									}
																								else
																									{	/* Read/reader.scm 282 */
																										obj_t BgL_g1046z00_16959;

																										if (CBOOL
																											(BgL_pospz00_18183))
																											{	/* Read/reader.scm 132 */
																												obj_t
																													BgL_arg6075z00_16968;
																												BgL_arg6075z00_16968 =
																													BGl_makezd2sourcezd2locationz00zz__readerz00
																													(BgL_namez00_16955,
																													BINT
																													(BgL_poz00_16956));
																												{	/* Read/reader.scm 132 */
																													obj_t
																														BgL_res6750z00_16969;
																													BgL_res6750z00_16969 =
																														MAKE_YOUNG_EPAIR
																														(BgL_itemz00_16958,
																														BNIL,
																														BgL_arg6075z00_16968);
																													BgL_g1046z00_16959 =
																														BgL_res6750z00_16969;
																												}
																											}
																										else
																											{	/* Read/reader.scm 282 */
																												BgL_g1046z00_16959 =
																													MAKE_YOUNG_PAIR
																													(BgL_itemz00_16958,
																													BNIL);
																											}
																										{
																											obj_t BgL_accz00_16961;

																											BgL_accz00_16961 =
																												BgL_g1046z00_16959;
																										BgL_loopz00_16960:
																											{	/* Read/reader.scm 285 */
																												obj_t BgL_itemz00_16962;

																												BgL_itemz00_16962 =
																													BGl_ignoreze70ze7zz__readerz00
																													(BgL_envz00_18184,
																													BgL_pospz00_18183,
																													BgL_brazd2poseszd2_18182,
																													BgL_resolvez00_18181,
																													BgL_cyclesz00_18180,
																													BgL_parzd2openzd2_18179,
																													BgL_brazd2openzd2_18178,
																													BgL_parzd2poseszd2_18177,
																													BgL_iportz00_18176);
																												if ((BgL_itemz00_16962
																														==
																														BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																													{	/* Read/reader.scm 286 */
																														BgL_arg5956z00_9834
																															=
																															BgL_accz00_16961;
																													}
																												else
																													{	/* Read/reader.scm 288 */
																														obj_t
																															BgL_arg6158z00_16963;
																														if (CBOOL
																															(BgL_pospz00_18183))
																															{	/* Read/reader.scm 289 */
																																long
																																	BgL_poz00_16964;
																																{	/* Read/reader.scm 289 */
																																	long
																																		BgL_res6751z00_16971;
																																	{	/* Read/reader.scm 289 */
																																		long
																																			BgL_tmpz00_29170;
																																		{	/* Read/reader.scm 289 */
																																			obj_t
																																				BgL_tmpz00_29171;
																																			BgL_tmpz00_29171
																																				=
																																				((obj_t)
																																				BgL_iportz00_18176);
																																			BgL_tmpz00_29170
																																				=
																																				INPUT_PORT_TOKENPOS
																																				(BgL_tmpz00_29171);
																																		}
																																		BgL_res6751z00_16971
																																			=
																																			(long)
																																			(BgL_tmpz00_29170);
																																	}
																																	BgL_poz00_16964
																																		=
																																		BgL_res6751z00_16971;
																																}
																																{	/* Read/reader.scm 132 */
																																	obj_t
																																		BgL_arg6075z00_16972;
																																	BgL_arg6075z00_16972
																																		=
																																		BGl_makezd2sourcezd2locationz00zz__readerz00
																																		(BgL_namez00_16955,
																																		BINT
																																		(BgL_poz00_16964));
																																	{	/* Read/reader.scm 132 */
																																		obj_t
																																			BgL_res6752z00_16973;
																																		BgL_res6752z00_16973
																																			=
																																			MAKE_YOUNG_EPAIR
																																			(BgL_itemz00_16962,
																																			BgL_accz00_16961,
																																			BgL_arg6075z00_16972);
																																		BgL_arg6158z00_16963
																																			=
																																			BgL_res6752z00_16973;
																															}}}
																														else
																															{	/* Read/reader.scm 288 */
																																BgL_arg6158z00_16963
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_itemz00_16962,
																																	BgL_accz00_16961);
																															}
																														{
																															obj_t
																																BgL_accz00_29179;
																															BgL_accz00_29179 =
																																BgL_arg6158z00_16963;
																															BgL_accz00_16961 =
																																BgL_accz00_29179;
																															goto
																																BgL_loopz00_16960;
																														}
																													}
																											}
																										}
																									}
																							}
																						}
																					}
																				}
																				BgL_arg5955z00_9833 =
																					bgl_reverse_bang(BgL_arg5956z00_9834);
																			}
																			return
																				BGl_listzd2ze3s32vectorz31zz__srfi4z00
																				(BgL_arg5955z00_9833);
																		}
																	else
																		{	/* Read/reader.scm 668 */
																			bool_t BgL_test9289z00_29182;

																			{	/* Read/reader.scm 668 */
																				long BgL_l1z00_16976;

																				BgL_l1z00_16976 =
																					STRING_LENGTH(BgL_sz00_9815);
																				if ((BgL_l1z00_16976 == 3L))
																					{	/* Read/reader.scm 668 */
																						int BgL_arg6463z00_16979;

																						{	/* Read/reader.scm 668 */
																							char *BgL_auxz00_29188;
																							char *BgL_tmpz00_29186;

																							BgL_auxz00_29188 =
																								BSTRING_TO_STRING
																								(BGl_string6878z00zz__readerz00);
																							BgL_tmpz00_29186 =
																								BSTRING_TO_STRING
																								(BgL_sz00_9815);
																							BgL_arg6463z00_16979 =
																								memcmp(BgL_tmpz00_29186,
																								BgL_auxz00_29188,
																								BgL_l1z00_16976);
																						}
																						BgL_test9289z00_29182 =
																							(
																							(long) (BgL_arg6463z00_16979) ==
																							0L);
																					}
																				else
																					{	/* Read/reader.scm 668 */
																						BgL_test9289z00_29182 =
																							((bool_t) 0);
																					}
																			}
																			if (BgL_test9289z00_29182)
																				{	/* Read/reader.scm 670 */
																					obj_t BgL_arg5959z00_9837;

																					{	/* Read/reader.scm 670 */
																						obj_t BgL_arg5960z00_9838;

																						{	/* Read/reader.scm 277 */
																							obj_t BgL_namez00_16986;

																							{	/* Read/reader.scm 277 */
																								obj_t BgL_tmpz00_29193;

																								BgL_tmpz00_29193 =
																									((obj_t) BgL_iportz00_18176);
																								BgL_namez00_16986 =
																									INPUT_PORT_NAME
																									(BgL_tmpz00_29193);
																							}
																							{	/* Read/reader.scm 277 */
																								long BgL_poz00_16987;

																								{	/* Read/reader.scm 278 */
																									long BgL_arg6159z00_16988;

																									{	/* Read/reader.scm 278 */
																										obj_t BgL_tmpz00_29196;

																										BgL_tmpz00_29196 =
																											((obj_t)
																											BgL_iportz00_18176);
																										BgL_arg6159z00_16988 =
																											INPUT_PORT_FILEPOS
																											(BgL_tmpz00_29196);
																									}
																									BgL_poz00_16987 =
																										(BgL_arg6159z00_16988 - 1L);
																								}
																								{	/* Read/reader.scm 278 */
																									obj_t BgL_itemz00_16989;

																									BgL_itemz00_16989 =
																										BGl_ignoreze70ze7zz__readerz00
																										(BgL_envz00_18184,
																										BgL_pospz00_18183,
																										BgL_brazd2poseszd2_18182,
																										BgL_resolvez00_18181,
																										BgL_cyclesz00_18180,
																										BgL_parzd2openzd2_18179,
																										BgL_brazd2openzd2_18178,
																										BgL_parzd2poseszd2_18177,
																										BgL_iportz00_18176);
																									{	/* Read/reader.scm 279 */

																										if (
																											(BgL_itemz00_16989 ==
																												BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																											{	/* Read/reader.scm 280 */
																												BgL_arg5960z00_9838 =
																													BNIL;
																											}
																										else
																											{	/* Read/reader.scm 282 */
																												obj_t
																													BgL_g1046z00_16990;
																												if (CBOOL
																													(BgL_pospz00_18183))
																													{	/* Read/reader.scm 132 */
																														obj_t
																															BgL_arg6075z00_16999;
																														BgL_arg6075z00_16999
																															=
																															BGl_makezd2sourcezd2locationz00zz__readerz00
																															(BgL_namez00_16986,
																															BINT
																															(BgL_poz00_16987));
																														{	/* Read/reader.scm 132 */
																															obj_t
																																BgL_res6754z00_17000;
																															BgL_res6754z00_17000
																																=
																																MAKE_YOUNG_EPAIR
																																(BgL_itemz00_16989,
																																BNIL,
																																BgL_arg6075z00_16999);
																															BgL_g1046z00_16990
																																=
																																BgL_res6754z00_17000;
																														}
																													}
																												else
																													{	/* Read/reader.scm 282 */
																														BgL_g1046z00_16990 =
																															MAKE_YOUNG_PAIR
																															(BgL_itemz00_16989,
																															BNIL);
																													}
																												{
																													obj_t
																														BgL_accz00_16992;
																													BgL_accz00_16992 =
																														BgL_g1046z00_16990;
																												BgL_loopz00_16991:
																													{	/* Read/reader.scm 285 */
																														obj_t
																															BgL_itemz00_16993;
																														BgL_itemz00_16993 =
																															BGl_ignoreze70ze7zz__readerz00
																															(BgL_envz00_18184,
																															BgL_pospz00_18183,
																															BgL_brazd2poseszd2_18182,
																															BgL_resolvez00_18181,
																															BgL_cyclesz00_18180,
																															BgL_parzd2openzd2_18179,
																															BgL_brazd2openzd2_18178,
																															BgL_parzd2poseszd2_18177,
																															BgL_iportz00_18176);
																														if (
																															(BgL_itemz00_16993
																																==
																																BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																															{	/* Read/reader.scm 286 */
																																BgL_arg5960z00_9838
																																	=
																																	BgL_accz00_16992;
																															}
																														else
																															{	/* Read/reader.scm 288 */
																																obj_t
																																	BgL_arg6158z00_16994;
																																if (CBOOL
																																	(BgL_pospz00_18183))
																																	{	/* Read/reader.scm 289 */
																																		long
																																			BgL_poz00_16995;
																																		{	/* Read/reader.scm 289 */
																																			long
																																				BgL_res6755z00_17002;
																																			{	/* Read/reader.scm 289 */
																																				long
																																					BgL_tmpz00_29214;
																																				{	/* Read/reader.scm 289 */
																																					obj_t
																																						BgL_tmpz00_29215;
																																					BgL_tmpz00_29215
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_18176);
																																					BgL_tmpz00_29214
																																						=
																																						INPUT_PORT_TOKENPOS
																																						(BgL_tmpz00_29215);
																																				}
																																				BgL_res6755z00_17002
																																					=
																																					(long)
																																					(BgL_tmpz00_29214);
																																			}
																																			BgL_poz00_16995
																																				=
																																				BgL_res6755z00_17002;
																																		}
																																		{	/* Read/reader.scm 132 */
																																			obj_t
																																				BgL_arg6075z00_17003;
																																			BgL_arg6075z00_17003
																																				=
																																				BGl_makezd2sourcezd2locationz00zz__readerz00
																																				(BgL_namez00_16986,
																																				BINT
																																				(BgL_poz00_16995));
																																			{	/* Read/reader.scm 132 */
																																				obj_t
																																					BgL_res6756z00_17004;
																																				BgL_res6756z00_17004
																																					=
																																					MAKE_YOUNG_EPAIR
																																					(BgL_itemz00_16993,
																																					BgL_accz00_16992,
																																					BgL_arg6075z00_17003);
																																				BgL_arg6158z00_16994
																																					=
																																					BgL_res6756z00_17004;
																																	}}}
																																else
																																	{	/* Read/reader.scm 288 */
																																		BgL_arg6158z00_16994
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_itemz00_16993,
																																			BgL_accz00_16992);
																																	}
																																{
																																	obj_t
																																		BgL_accz00_29223;
																																	BgL_accz00_29223
																																		=
																																		BgL_arg6158z00_16994;
																																	BgL_accz00_16992
																																		=
																																		BgL_accz00_29223;
																																	goto
																																		BgL_loopz00_16991;
																																}
																															}
																													}
																												}
																											}
																									}
																								}
																							}
																						}
																						BgL_arg5959z00_9837 =
																							bgl_reverse_bang
																							(BgL_arg5960z00_9838);
																					}
																					return
																						BGl_listzd2ze3u32vectorz31zz__srfi4z00
																						(BgL_arg5959z00_9837);
																				}
																			else
																				{	/* Read/reader.scm 671 */
																					bool_t BgL_test9295z00_29226;

																					{	/* Read/reader.scm 671 */
																						long BgL_l1z00_17007;

																						BgL_l1z00_17007 =
																							STRING_LENGTH(BgL_sz00_9815);
																						if ((BgL_l1z00_17007 == 3L))
																							{	/* Read/reader.scm 671 */
																								int BgL_arg6463z00_17010;

																								{	/* Read/reader.scm 671 */
																									char *BgL_auxz00_29232;
																									char *BgL_tmpz00_29230;

																									BgL_auxz00_29232 =
																										BSTRING_TO_STRING
																										(BGl_string6879z00zz__readerz00);
																									BgL_tmpz00_29230 =
																										BSTRING_TO_STRING
																										(BgL_sz00_9815);
																									BgL_arg6463z00_17010 =
																										memcmp(BgL_tmpz00_29230,
																										BgL_auxz00_29232,
																										BgL_l1z00_17007);
																								}
																								BgL_test9295z00_29226 =
																									(
																									(long) (BgL_arg6463z00_17010)
																									== 0L);
																							}
																						else
																							{	/* Read/reader.scm 671 */
																								BgL_test9295z00_29226 =
																									((bool_t) 0);
																							}
																					}
																					if (BgL_test9295z00_29226)
																						{	/* Read/reader.scm 673 */
																							obj_t BgL_arg5963z00_9841;

																							{	/* Read/reader.scm 673 */
																								obj_t BgL_arg5964z00_9842;

																								{	/* Read/reader.scm 277 */
																									obj_t BgL_namez00_17017;

																									{	/* Read/reader.scm 277 */
																										obj_t BgL_tmpz00_29237;

																										BgL_tmpz00_29237 =
																											((obj_t)
																											BgL_iportz00_18176);
																										BgL_namez00_17017 =
																											INPUT_PORT_NAME
																											(BgL_tmpz00_29237);
																									}
																									{	/* Read/reader.scm 277 */
																										long BgL_poz00_17018;

																										{	/* Read/reader.scm 278 */
																											long BgL_arg6159z00_17019;

																											{	/* Read/reader.scm 278 */
																												obj_t BgL_tmpz00_29240;

																												BgL_tmpz00_29240 =
																													((obj_t)
																													BgL_iportz00_18176);
																												BgL_arg6159z00_17019 =
																													INPUT_PORT_FILEPOS
																													(BgL_tmpz00_29240);
																											}
																											BgL_poz00_17018 =
																												(BgL_arg6159z00_17019 -
																												1L);
																										}
																										{	/* Read/reader.scm 278 */
																											obj_t BgL_itemz00_17020;

																											BgL_itemz00_17020 =
																												BGl_ignoreze70ze7zz__readerz00
																												(BgL_envz00_18184,
																												BgL_pospz00_18183,
																												BgL_brazd2poseszd2_18182,
																												BgL_resolvez00_18181,
																												BgL_cyclesz00_18180,
																												BgL_parzd2openzd2_18179,
																												BgL_brazd2openzd2_18178,
																												BgL_parzd2poseszd2_18177,
																												BgL_iportz00_18176);
																											{	/* Read/reader.scm 279 */

																												if (
																													(BgL_itemz00_17020 ==
																														BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																													{	/* Read/reader.scm 280 */
																														BgL_arg5964z00_9842
																															= BNIL;
																													}
																												else
																													{	/* Read/reader.scm 282 */
																														obj_t
																															BgL_g1046z00_17021;
																														if (CBOOL
																															(BgL_pospz00_18183))
																															{	/* Read/reader.scm 132 */
																																obj_t
																																	BgL_arg6075z00_17030;
																																BgL_arg6075z00_17030
																																	=
																																	BGl_makezd2sourcezd2locationz00zz__readerz00
																																	(BgL_namez00_17017,
																																	BINT
																																	(BgL_poz00_17018));
																																{	/* Read/reader.scm 132 */
																																	obj_t
																																		BgL_res6758z00_17031;
																																	BgL_res6758z00_17031
																																		=
																																		MAKE_YOUNG_EPAIR
																																		(BgL_itemz00_17020,
																																		BNIL,
																																		BgL_arg6075z00_17030);
																																	BgL_g1046z00_17021
																																		=
																																		BgL_res6758z00_17031;
																																}
																															}
																														else
																															{	/* Read/reader.scm 282 */
																																BgL_g1046z00_17021
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_itemz00_17020,
																																	BNIL);
																															}
																														{
																															obj_t
																																BgL_accz00_17023;
																															BgL_accz00_17023 =
																																BgL_g1046z00_17021;
																														BgL_loopz00_17022:
																															{	/* Read/reader.scm 285 */
																																obj_t
																																	BgL_itemz00_17024;
																																BgL_itemz00_17024
																																	=
																																	BGl_ignoreze70ze7zz__readerz00
																																	(BgL_envz00_18184,
																																	BgL_pospz00_18183,
																																	BgL_brazd2poseszd2_18182,
																																	BgL_resolvez00_18181,
																																	BgL_cyclesz00_18180,
																																	BgL_parzd2openzd2_18179,
																																	BgL_brazd2openzd2_18178,
																																	BgL_parzd2poseszd2_18177,
																																	BgL_iportz00_18176);
																																if (
																																	(BgL_itemz00_17024
																																		==
																																		BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																																	{	/* Read/reader.scm 286 */
																																		BgL_arg5964z00_9842
																																			=
																																			BgL_accz00_17023;
																																	}
																																else
																																	{	/* Read/reader.scm 288 */
																																		obj_t
																																			BgL_arg6158z00_17025;
																																		if (CBOOL
																																			(BgL_pospz00_18183))
																																			{	/* Read/reader.scm 289 */
																																				long
																																					BgL_poz00_17026;
																																				{	/* Read/reader.scm 289 */
																																					long
																																						BgL_res6759z00_17033;
																																					{	/* Read/reader.scm 289 */
																																						long
																																							BgL_tmpz00_29258;
																																						{	/* Read/reader.scm 289 */
																																							obj_t
																																								BgL_tmpz00_29259;
																																							BgL_tmpz00_29259
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_18176);
																																							BgL_tmpz00_29258
																																								=
																																								INPUT_PORT_TOKENPOS
																																								(BgL_tmpz00_29259);
																																						}
																																						BgL_res6759z00_17033
																																							=
																																							(long)
																																							(BgL_tmpz00_29258);
																																					}
																																					BgL_poz00_17026
																																						=
																																						BgL_res6759z00_17033;
																																				}
																																				{	/* Read/reader.scm 132 */
																																					obj_t
																																						BgL_arg6075z00_17034;
																																					BgL_arg6075z00_17034
																																						=
																																						BGl_makezd2sourcezd2locationz00zz__readerz00
																																						(BgL_namez00_17017,
																																						BINT
																																						(BgL_poz00_17026));
																																					{	/* Read/reader.scm 132 */
																																						obj_t
																																							BgL_res6760z00_17035;
																																						BgL_res6760z00_17035
																																							=
																																							MAKE_YOUNG_EPAIR
																																							(BgL_itemz00_17024,
																																							BgL_accz00_17023,
																																							BgL_arg6075z00_17034);
																																						BgL_arg6158z00_17025
																																							=
																																							BgL_res6760z00_17035;
																																			}}}
																																		else
																																			{	/* Read/reader.scm 288 */
																																				BgL_arg6158z00_17025
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_itemz00_17024,
																																					BgL_accz00_17023);
																																			}
																																		{
																																			obj_t
																																				BgL_accz00_29267;
																																			BgL_accz00_29267
																																				=
																																				BgL_arg6158z00_17025;
																																			BgL_accz00_17023
																																				=
																																				BgL_accz00_29267;
																																			goto
																																				BgL_loopz00_17022;
																																		}
																																	}
																															}
																														}
																													}
																											}
																										}
																									}
																								}
																								BgL_arg5963z00_9841 =
																									bgl_reverse_bang
																									(BgL_arg5964z00_9842);
																							}
																							return
																								BGl_listzd2ze3s64vectorz31zz__srfi4z00
																								(BgL_arg5963z00_9841);
																						}
																					else
																						{	/* Read/reader.scm 674 */
																							bool_t BgL_test9301z00_29270;

																							{	/* Read/reader.scm 674 */
																								long BgL_l1z00_17038;

																								BgL_l1z00_17038 =
																									STRING_LENGTH(BgL_sz00_9815);
																								if ((BgL_l1z00_17038 == 3L))
																									{	/* Read/reader.scm 674 */
																										int BgL_arg6463z00_17041;

																										{	/* Read/reader.scm 674 */
																											char *BgL_auxz00_29276;
																											char *BgL_tmpz00_29274;

																											BgL_auxz00_29276 =
																												BSTRING_TO_STRING
																												(BGl_string6880z00zz__readerz00);
																											BgL_tmpz00_29274 =
																												BSTRING_TO_STRING
																												(BgL_sz00_9815);
																											BgL_arg6463z00_17041 =
																												memcmp(BgL_tmpz00_29274,
																												BgL_auxz00_29276,
																												BgL_l1z00_17038);
																										}
																										BgL_test9301z00_29270 =
																											(
																											(long)
																											(BgL_arg6463z00_17041) ==
																											0L);
																									}
																								else
																									{	/* Read/reader.scm 674 */
																										BgL_test9301z00_29270 =
																											((bool_t) 0);
																									}
																							}
																							if (BgL_test9301z00_29270)
																								{	/* Read/reader.scm 676 */
																									obj_t BgL_arg5967z00_9845;

																									{	/* Read/reader.scm 676 */
																										obj_t BgL_arg5968z00_9846;

																										{	/* Read/reader.scm 277 */
																											obj_t BgL_namez00_17048;

																											{	/* Read/reader.scm 277 */
																												obj_t BgL_tmpz00_29281;

																												BgL_tmpz00_29281 =
																													((obj_t)
																													BgL_iportz00_18176);
																												BgL_namez00_17048 =
																													INPUT_PORT_NAME
																													(BgL_tmpz00_29281);
																											}
																											{	/* Read/reader.scm 277 */
																												long BgL_poz00_17049;

																												{	/* Read/reader.scm 278 */
																													long
																														BgL_arg6159z00_17050;
																													{	/* Read/reader.scm 278 */
																														obj_t
																															BgL_tmpz00_29284;
																														BgL_tmpz00_29284 =
																															((obj_t)
																															BgL_iportz00_18176);
																														BgL_arg6159z00_17050
																															=
																															INPUT_PORT_FILEPOS
																															(BgL_tmpz00_29284);
																													}
																													BgL_poz00_17049 =
																														(BgL_arg6159z00_17050
																														- 1L);
																												}
																												{	/* Read/reader.scm 278 */
																													obj_t
																														BgL_itemz00_17051;
																													BgL_itemz00_17051 =
																														BGl_ignoreze70ze7zz__readerz00
																														(BgL_envz00_18184,
																														BgL_pospz00_18183,
																														BgL_brazd2poseszd2_18182,
																														BgL_resolvez00_18181,
																														BgL_cyclesz00_18180,
																														BgL_parzd2openzd2_18179,
																														BgL_brazd2openzd2_18178,
																														BgL_parzd2poseszd2_18177,
																														BgL_iportz00_18176);
																													{	/* Read/reader.scm 279 */

																														if (
																															(BgL_itemz00_17051
																																==
																																BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																															{	/* Read/reader.scm 280 */
																																BgL_arg5968z00_9846
																																	= BNIL;
																															}
																														else
																															{	/* Read/reader.scm 282 */
																																obj_t
																																	BgL_g1046z00_17052;
																																if (CBOOL
																																	(BgL_pospz00_18183))
																																	{	/* Read/reader.scm 132 */
																																		obj_t
																																			BgL_arg6075z00_17061;
																																		BgL_arg6075z00_17061
																																			=
																																			BGl_makezd2sourcezd2locationz00zz__readerz00
																																			(BgL_namez00_17048,
																																			BINT
																																			(BgL_poz00_17049));
																																		{	/* Read/reader.scm 132 */
																																			obj_t
																																				BgL_res6762z00_17062;
																																			BgL_res6762z00_17062
																																				=
																																				MAKE_YOUNG_EPAIR
																																				(BgL_itemz00_17051,
																																				BNIL,
																																				BgL_arg6075z00_17061);
																																			BgL_g1046z00_17052
																																				=
																																				BgL_res6762z00_17062;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 282 */
																																		BgL_g1046z00_17052
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_itemz00_17051,
																																			BNIL);
																																	}
																																{
																																	obj_t
																																		BgL_accz00_17054;
																																	BgL_accz00_17054
																																		=
																																		BgL_g1046z00_17052;
																																BgL_loopz00_17053:
																																	{	/* Read/reader.scm 285 */
																																		obj_t
																																			BgL_itemz00_17055;
																																		BgL_itemz00_17055
																																			=
																																			BGl_ignoreze70ze7zz__readerz00
																																			(BgL_envz00_18184,
																																			BgL_pospz00_18183,
																																			BgL_brazd2poseszd2_18182,
																																			BgL_resolvez00_18181,
																																			BgL_cyclesz00_18180,
																																			BgL_parzd2openzd2_18179,
																																			BgL_brazd2openzd2_18178,
																																			BgL_parzd2poseszd2_18177,
																																			BgL_iportz00_18176);
																																		if (
																																			(BgL_itemz00_17055
																																				==
																																				BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																																			{	/* Read/reader.scm 286 */
																																				BgL_arg5968z00_9846
																																					=
																																					BgL_accz00_17054;
																																			}
																																		else
																																			{	/* Read/reader.scm 288 */
																																				obj_t
																																					BgL_arg6158z00_17056;
																																				if (CBOOL(BgL_pospz00_18183))
																																					{	/* Read/reader.scm 289 */
																																						long
																																							BgL_poz00_17057;
																																						{	/* Read/reader.scm 289 */
																																							long
																																								BgL_res6763z00_17064;
																																							{	/* Read/reader.scm 289 */
																																								long
																																									BgL_tmpz00_29302;
																																								{	/* Read/reader.scm 289 */
																																									obj_t
																																										BgL_tmpz00_29303;
																																									BgL_tmpz00_29303
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_18176);
																																									BgL_tmpz00_29302
																																										=
																																										INPUT_PORT_TOKENPOS
																																										(BgL_tmpz00_29303);
																																								}
																																								BgL_res6763z00_17064
																																									=
																																									(long)
																																									(BgL_tmpz00_29302);
																																							}
																																							BgL_poz00_17057
																																								=
																																								BgL_res6763z00_17064;
																																						}
																																						{	/* Read/reader.scm 132 */
																																							obj_t
																																								BgL_arg6075z00_17065;
																																							BgL_arg6075z00_17065
																																								=
																																								BGl_makezd2sourcezd2locationz00zz__readerz00
																																								(BgL_namez00_17048,
																																								BINT
																																								(BgL_poz00_17057));
																																							{	/* Read/reader.scm 132 */
																																								obj_t
																																									BgL_res6764z00_17066;
																																								BgL_res6764z00_17066
																																									=
																																									MAKE_YOUNG_EPAIR
																																									(BgL_itemz00_17055,
																																									BgL_accz00_17054,
																																									BgL_arg6075z00_17065);
																																								BgL_arg6158z00_17056
																																									=
																																									BgL_res6764z00_17066;
																																					}}}
																																				else
																																					{	/* Read/reader.scm 288 */
																																						BgL_arg6158z00_17056
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_itemz00_17055,
																																							BgL_accz00_17054);
																																					}
																																				{
																																					obj_t
																																						BgL_accz00_29311;
																																					BgL_accz00_29311
																																						=
																																						BgL_arg6158z00_17056;
																																					BgL_accz00_17054
																																						=
																																						BgL_accz00_29311;
																																					goto
																																						BgL_loopz00_17053;
																																				}
																																			}
																																	}
																																}
																															}
																													}
																												}
																											}
																										}
																										BgL_arg5967z00_9845 =
																											bgl_reverse_bang
																											(BgL_arg5968z00_9846);
																									}
																									return
																										BGl_listzd2ze3u64vectorz31zz__srfi4z00
																										(BgL_arg5967z00_9845);
																								}
																							else
																								{	/* Read/reader.scm 677 */
																									bool_t BgL_test9307z00_29314;

																									{	/* Read/reader.scm 677 */
																										long BgL_l1z00_17069;

																										BgL_l1z00_17069 =
																											STRING_LENGTH
																											(BgL_sz00_9815);
																										if ((BgL_l1z00_17069 == 3L))
																											{	/* Read/reader.scm 677 */
																												int
																													BgL_arg6463z00_17072;
																												{	/* Read/reader.scm 677 */
																													char
																														*BgL_auxz00_29320;
																													char
																														*BgL_tmpz00_29318;
																													BgL_auxz00_29320 =
																														BSTRING_TO_STRING
																														(BGl_string6881z00zz__readerz00);
																													BgL_tmpz00_29318 =
																														BSTRING_TO_STRING
																														(BgL_sz00_9815);
																													BgL_arg6463z00_17072 =
																														memcmp
																														(BgL_tmpz00_29318,
																														BgL_auxz00_29320,
																														BgL_l1z00_17069);
																												}
																												BgL_test9307z00_29314 =
																													(
																													(long)
																													(BgL_arg6463z00_17072)
																													== 0L);
																											}
																										else
																											{	/* Read/reader.scm 677 */
																												BgL_test9307z00_29314 =
																													((bool_t) 0);
																											}
																									}
																									if (BgL_test9307z00_29314)
																										{	/* Read/reader.scm 679 */
																											obj_t BgL_arg5971z00_9849;

																											{	/* Read/reader.scm 679 */
																												obj_t
																													BgL_arg5972z00_9850;
																												{	/* Read/reader.scm 277 */
																													obj_t
																														BgL_namez00_17079;
																													{	/* Read/reader.scm 277 */
																														obj_t
																															BgL_tmpz00_29325;
																														BgL_tmpz00_29325 =
																															((obj_t)
																															BgL_iportz00_18176);
																														BgL_namez00_17079 =
																															INPUT_PORT_NAME
																															(BgL_tmpz00_29325);
																													}
																													{	/* Read/reader.scm 277 */
																														long
																															BgL_poz00_17080;
																														{	/* Read/reader.scm 278 */
																															long
																																BgL_arg6159z00_17081;
																															{	/* Read/reader.scm 278 */
																																obj_t
																																	BgL_tmpz00_29328;
																																BgL_tmpz00_29328
																																	=
																																	((obj_t)
																																	BgL_iportz00_18176);
																																BgL_arg6159z00_17081
																																	=
																																	INPUT_PORT_FILEPOS
																																	(BgL_tmpz00_29328);
																															}
																															BgL_poz00_17080 =
																																(BgL_arg6159z00_17081
																																- 1L);
																														}
																														{	/* Read/reader.scm 278 */
																															obj_t
																																BgL_itemz00_17082;
																															BgL_itemz00_17082
																																=
																																BGl_ignoreze70ze7zz__readerz00
																																(BgL_envz00_18184,
																																BgL_pospz00_18183,
																																BgL_brazd2poseszd2_18182,
																																BgL_resolvez00_18181,
																																BgL_cyclesz00_18180,
																																BgL_parzd2openzd2_18179,
																																BgL_brazd2openzd2_18178,
																																BgL_parzd2poseszd2_18177,
																																BgL_iportz00_18176);
																															{	/* Read/reader.scm 279 */

																																if (
																																	(BgL_itemz00_17082
																																		==
																																		BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																																	{	/* Read/reader.scm 280 */
																																		BgL_arg5972z00_9850
																																			= BNIL;
																																	}
																																else
																																	{	/* Read/reader.scm 282 */
																																		obj_t
																																			BgL_g1046z00_17083;
																																		if (CBOOL
																																			(BgL_pospz00_18183))
																																			{	/* Read/reader.scm 132 */
																																				obj_t
																																					BgL_arg6075z00_17092;
																																				BgL_arg6075z00_17092
																																					=
																																					BGl_makezd2sourcezd2locationz00zz__readerz00
																																					(BgL_namez00_17079,
																																					BINT
																																					(BgL_poz00_17080));
																																				{	/* Read/reader.scm 132 */
																																					obj_t
																																						BgL_res6766z00_17093;
																																					BgL_res6766z00_17093
																																						=
																																						MAKE_YOUNG_EPAIR
																																						(BgL_itemz00_17082,
																																						BNIL,
																																						BgL_arg6075z00_17092);
																																					BgL_g1046z00_17083
																																						=
																																						BgL_res6766z00_17093;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 282 */
																																				BgL_g1046z00_17083
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_itemz00_17082,
																																					BNIL);
																																			}
																																		{
																																			obj_t
																																				BgL_accz00_17085;
																																			BgL_accz00_17085
																																				=
																																				BgL_g1046z00_17083;
																																		BgL_loopz00_17084:
																																			{	/* Read/reader.scm 285 */
																																				obj_t
																																					BgL_itemz00_17086;
																																				BgL_itemz00_17086
																																					=
																																					BGl_ignoreze70ze7zz__readerz00
																																					(BgL_envz00_18184,
																																					BgL_pospz00_18183,
																																					BgL_brazd2poseszd2_18182,
																																					BgL_resolvez00_18181,
																																					BgL_cyclesz00_18180,
																																					BgL_parzd2openzd2_18179,
																																					BgL_brazd2openzd2_18178,
																																					BgL_parzd2poseszd2_18177,
																																					BgL_iportz00_18176);
																																				if (
																																					(BgL_itemz00_17086
																																						==
																																						BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																																					{	/* Read/reader.scm 286 */
																																						BgL_arg5972z00_9850
																																							=
																																							BgL_accz00_17085;
																																					}
																																				else
																																					{	/* Read/reader.scm 288 */
																																						obj_t
																																							BgL_arg6158z00_17087;
																																						if (CBOOL(BgL_pospz00_18183))
																																							{	/* Read/reader.scm 289 */
																																								long
																																									BgL_poz00_17088;
																																								{	/* Read/reader.scm 289 */
																																									long
																																										BgL_res6767z00_17095;
																																									{	/* Read/reader.scm 289 */
																																										long
																																											BgL_tmpz00_29346;
																																										{	/* Read/reader.scm 289 */
																																											obj_t
																																												BgL_tmpz00_29347;
																																											BgL_tmpz00_29347
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_18176);
																																											BgL_tmpz00_29346
																																												=
																																												INPUT_PORT_TOKENPOS
																																												(BgL_tmpz00_29347);
																																										}
																																										BgL_res6767z00_17095
																																											=
																																											(long)
																																											(BgL_tmpz00_29346);
																																									}
																																									BgL_poz00_17088
																																										=
																																										BgL_res6767z00_17095;
																																								}
																																								{	/* Read/reader.scm 132 */
																																									obj_t
																																										BgL_arg6075z00_17096;
																																									BgL_arg6075z00_17096
																																										=
																																										BGl_makezd2sourcezd2locationz00zz__readerz00
																																										(BgL_namez00_17079,
																																										BINT
																																										(BgL_poz00_17088));
																																									{	/* Read/reader.scm 132 */
																																										obj_t
																																											BgL_res6768z00_17097;
																																										BgL_res6768z00_17097
																																											=
																																											MAKE_YOUNG_EPAIR
																																											(BgL_itemz00_17086,
																																											BgL_accz00_17085,
																																											BgL_arg6075z00_17096);
																																										BgL_arg6158z00_17087
																																											=
																																											BgL_res6768z00_17097;
																																							}}}
																																						else
																																							{	/* Read/reader.scm 288 */
																																								BgL_arg6158z00_17087
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_itemz00_17086,
																																									BgL_accz00_17085);
																																							}
																																						{
																																							obj_t
																																								BgL_accz00_29355;
																																							BgL_accz00_29355
																																								=
																																								BgL_arg6158z00_17087;
																																							BgL_accz00_17085
																																								=
																																								BgL_accz00_29355;
																																							goto
																																								BgL_loopz00_17084;
																																						}
																																					}
																																			}
																																		}
																																	}
																															}
																														}
																													}
																												}
																												BgL_arg5971z00_9849 =
																													bgl_reverse_bang
																													(BgL_arg5972z00_9850);
																											}
																											return
																												BGl_listzd2ze3f32vectorz31zz__srfi4z00
																												(BgL_arg5971z00_9849);
																										}
																									else
																										{	/* Read/reader.scm 680 */
																											bool_t
																												BgL_test9313z00_29358;
																											{	/* Read/reader.scm 680 */
																												long BgL_l1z00_17100;

																												BgL_l1z00_17100 =
																													STRING_LENGTH
																													(BgL_sz00_9815);
																												if ((BgL_l1z00_17100 ==
																														3L))
																													{	/* Read/reader.scm 680 */
																														int
																															BgL_arg6463z00_17103;
																														{	/* Read/reader.scm 680 */
																															char
																																*BgL_auxz00_29364;
																															char
																																*BgL_tmpz00_29362;
																															BgL_auxz00_29364 =
																																BSTRING_TO_STRING
																																(BGl_string6882z00zz__readerz00);
																															BgL_tmpz00_29362 =
																																BSTRING_TO_STRING
																																(BgL_sz00_9815);
																															BgL_arg6463z00_17103
																																=
																																memcmp
																																(BgL_tmpz00_29362,
																																BgL_auxz00_29364,
																																BgL_l1z00_17100);
																														}
																														BgL_test9313z00_29358
																															=
																															((long)
																															(BgL_arg6463z00_17103)
																															== 0L);
																													}
																												else
																													{	/* Read/reader.scm 680 */
																														BgL_test9313z00_29358
																															= ((bool_t) 0);
																													}
																											}
																											if (BgL_test9313z00_29358)
																												{	/* Read/reader.scm 682 */
																													obj_t
																														BgL_arg5975z00_9853;
																													{	/* Read/reader.scm 682 */
																														obj_t
																															BgL_arg5976z00_9854;
																														{	/* Read/reader.scm 277 */
																															obj_t
																																BgL_namez00_17110;
																															{	/* Read/reader.scm 277 */
																																obj_t
																																	BgL_tmpz00_29369;
																																BgL_tmpz00_29369
																																	=
																																	((obj_t)
																																	BgL_iportz00_18176);
																																BgL_namez00_17110
																																	=
																																	INPUT_PORT_NAME
																																	(BgL_tmpz00_29369);
																															}
																															{	/* Read/reader.scm 277 */
																																long
																																	BgL_poz00_17111;
																																{	/* Read/reader.scm 278 */
																																	long
																																		BgL_arg6159z00_17112;
																																	{	/* Read/reader.scm 278 */
																																		obj_t
																																			BgL_tmpz00_29372;
																																		BgL_tmpz00_29372
																																			=
																																			((obj_t)
																																			BgL_iportz00_18176);
																																		BgL_arg6159z00_17112
																																			=
																																			INPUT_PORT_FILEPOS
																																			(BgL_tmpz00_29372);
																																	}
																																	BgL_poz00_17111
																																		=
																																		(BgL_arg6159z00_17112
																																		- 1L);
																																}
																																{	/* Read/reader.scm 278 */
																																	obj_t
																																		BgL_itemz00_17113;
																																	BgL_itemz00_17113
																																		=
																																		BGl_ignoreze70ze7zz__readerz00
																																		(BgL_envz00_18184,
																																		BgL_pospz00_18183,
																																		BgL_brazd2poseszd2_18182,
																																		BgL_resolvez00_18181,
																																		BgL_cyclesz00_18180,
																																		BgL_parzd2openzd2_18179,
																																		BgL_brazd2openzd2_18178,
																																		BgL_parzd2poseszd2_18177,
																																		BgL_iportz00_18176);
																																	{	/* Read/reader.scm 279 */

																																		if (
																																			(BgL_itemz00_17113
																																				==
																																				BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																																			{	/* Read/reader.scm 280 */
																																				BgL_arg5976z00_9854
																																					=
																																					BNIL;
																																			}
																																		else
																																			{	/* Read/reader.scm 282 */
																																				obj_t
																																					BgL_g1046z00_17114;
																																				if (CBOOL(BgL_pospz00_18183))
																																					{	/* Read/reader.scm 132 */
																																						obj_t
																																							BgL_arg6075z00_17123;
																																						BgL_arg6075z00_17123
																																							=
																																							BGl_makezd2sourcezd2locationz00zz__readerz00
																																							(BgL_namez00_17110,
																																							BINT
																																							(BgL_poz00_17111));
																																						{	/* Read/reader.scm 132 */
																																							obj_t
																																								BgL_res6770z00_17124;
																																							BgL_res6770z00_17124
																																								=
																																								MAKE_YOUNG_EPAIR
																																								(BgL_itemz00_17113,
																																								BNIL,
																																								BgL_arg6075z00_17123);
																																							BgL_g1046z00_17114
																																								=
																																								BgL_res6770z00_17124;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 282 */
																																						BgL_g1046z00_17114
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_itemz00_17113,
																																							BNIL);
																																					}
																																				{
																																					obj_t
																																						BgL_accz00_17116;
																																					BgL_accz00_17116
																																						=
																																						BgL_g1046z00_17114;
																																				BgL_loopz00_17115:
																																					{	/* Read/reader.scm 285 */
																																						obj_t
																																							BgL_itemz00_17117;
																																						BgL_itemz00_17117
																																							=
																																							BGl_ignoreze70ze7zz__readerz00
																																							(BgL_envz00_18184,
																																							BgL_pospz00_18183,
																																							BgL_brazd2poseszd2_18182,
																																							BgL_resolvez00_18181,
																																							BgL_cyclesz00_18180,
																																							BgL_parzd2openzd2_18179,
																																							BgL_brazd2openzd2_18178,
																																							BgL_parzd2poseszd2_18177,
																																							BgL_iportz00_18176);
																																						if (
																																							(BgL_itemz00_17117
																																								==
																																								BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																																							{	/* Read/reader.scm 286 */
																																								BgL_arg5976z00_9854
																																									=
																																									BgL_accz00_17116;
																																							}
																																						else
																																							{	/* Read/reader.scm 288 */
																																								obj_t
																																									BgL_arg6158z00_17118;
																																								if (CBOOL(BgL_pospz00_18183))
																																									{	/* Read/reader.scm 289 */
																																										long
																																											BgL_poz00_17119;
																																										{	/* Read/reader.scm 289 */
																																											long
																																												BgL_res6771z00_17126;
																																											{	/* Read/reader.scm 289 */
																																												long
																																													BgL_tmpz00_29390;
																																												{	/* Read/reader.scm 289 */
																																													obj_t
																																														BgL_tmpz00_29391;
																																													BgL_tmpz00_29391
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_18176);
																																													BgL_tmpz00_29390
																																														=
																																														INPUT_PORT_TOKENPOS
																																														(BgL_tmpz00_29391);
																																												}
																																												BgL_res6771z00_17126
																																													=
																																													(long)
																																													(BgL_tmpz00_29390);
																																											}
																																											BgL_poz00_17119
																																												=
																																												BgL_res6771z00_17126;
																																										}
																																										{	/* Read/reader.scm 132 */
																																											obj_t
																																												BgL_arg6075z00_17127;
																																											BgL_arg6075z00_17127
																																												=
																																												BGl_makezd2sourcezd2locationz00zz__readerz00
																																												(BgL_namez00_17110,
																																												BINT
																																												(BgL_poz00_17119));
																																											{	/* Read/reader.scm 132 */
																																												obj_t
																																													BgL_res6772z00_17128;
																																												BgL_res6772z00_17128
																																													=
																																													MAKE_YOUNG_EPAIR
																																													(BgL_itemz00_17117,
																																													BgL_accz00_17116,
																																													BgL_arg6075z00_17127);
																																												BgL_arg6158z00_17118
																																													=
																																													BgL_res6772z00_17128;
																																									}}}
																																								else
																																									{	/* Read/reader.scm 288 */
																																										BgL_arg6158z00_17118
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_itemz00_17117,
																																											BgL_accz00_17116);
																																									}
																																								{
																																									obj_t
																																										BgL_accz00_29399;
																																									BgL_accz00_29399
																																										=
																																										BgL_arg6158z00_17118;
																																									BgL_accz00_17116
																																										=
																																										BgL_accz00_29399;
																																									goto
																																										BgL_loopz00_17115;
																																								}
																																							}
																																					}
																																				}
																																			}
																																	}
																																}
																															}
																														}
																														BgL_arg5975z00_9853
																															=
																															bgl_reverse_bang
																															(BgL_arg5976z00_9854);
																													}
																													return
																														BGl_listzd2ze3f64vectorz31zz__srfi4z00
																														(BgL_arg5975z00_9853);
																												}
																											else
																												{	/* Read/reader.scm 684 */
																													obj_t BgL_idz00_9856;

																													{	/* Read/reader.scm 685 */
																														obj_t
																															BgL_arg5980z00_9860;
																														{	/* Read/reader.scm 685 */
																															obj_t
																																BgL_casezd2valuezd2_9861;
																															BgL_casezd2valuezd2_9861
																																=
																																BGl_bigloozd2casezd2sensitivez00zz__paramz00
																																();
																															if (
																																(BgL_casezd2valuezd2_9861
																																	==
																																	BGl_symbol6883z00zz__readerz00))
																																{	/* Read/reader.scm 685 */
																																	BgL_arg5980z00_9860
																																		=
																																		BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00
																																		(BgL_sz00_9815);
																																}
																															else
																																{	/* Read/reader.scm 685 */
																																	if (
																																		(BgL_casezd2valuezd2_9861
																																			==
																																			BGl_symbol6885z00zz__readerz00))
																																		{	/* Read/reader.scm 685 */
																																			BgL_arg5980z00_9860
																																				=
																																				BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00
																																				(BgL_sz00_9815);
																																		}
																																	else
																																		{	/* Read/reader.scm 685 */
																																			if (
																																				(BgL_casezd2valuezd2_9861
																																					==
																																					BGl_symbol6887z00zz__readerz00))
																																				{	/* Read/reader.scm 685 */
																																					BgL_arg5980z00_9860
																																						=
																																						BgL_sz00_9815;
																																				}
																																			else
																																				{	/* Read/reader.scm 685 */
																																					BgL_arg5980z00_9860
																																						=
																																						BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00
																																						(BgL_sz00_9815);
																																				}
																																		}
																																}
																														}
																														BgL_idz00_9856 =
																															bstring_to_symbol
																															(BgL_arg5980z00_9860);
																													}
																													{	/* Read/reader.scm 684 */
																														obj_t BgL_lz00_9857;

																														{	/* Read/reader.scm 694 */
																															obj_t
																																BgL_arg5978z00_9858;
																															{	/* Read/reader.scm 277 */
																																obj_t
																																	BgL_namez00_17134;
																																{	/* Read/reader.scm 277 */
																																	obj_t
																																		BgL_tmpz00_29413;
																																	BgL_tmpz00_29413
																																		=
																																		((obj_t)
																																		BgL_iportz00_18176);
																																	BgL_namez00_17134
																																		=
																																		INPUT_PORT_NAME
																																		(BgL_tmpz00_29413);
																																}
																																{	/* Read/reader.scm 277 */
																																	long
																																		BgL_poz00_17135;
																																	{	/* Read/reader.scm 278 */
																																		long
																																			BgL_arg6159z00_17136;
																																		{	/* Read/reader.scm 278 */
																																			obj_t
																																				BgL_tmpz00_29416;
																																			BgL_tmpz00_29416
																																				=
																																				((obj_t)
																																				BgL_iportz00_18176);
																																			BgL_arg6159z00_17136
																																				=
																																				INPUT_PORT_FILEPOS
																																				(BgL_tmpz00_29416);
																																		}
																																		BgL_poz00_17135
																																			=
																																			(BgL_arg6159z00_17136
																																			- 1L);
																																	}
																																	{	/* Read/reader.scm 278 */
																																		obj_t
																																			BgL_itemz00_17137;
																																		BgL_itemz00_17137
																																			=
																																			BGl_ignoreze70ze7zz__readerz00
																																			(BgL_envz00_18184,
																																			BgL_pospz00_18183,
																																			BgL_brazd2poseszd2_18182,
																																			BgL_resolvez00_18181,
																																			BgL_cyclesz00_18180,
																																			BgL_parzd2openzd2_18179,
																																			BgL_brazd2openzd2_18178,
																																			BgL_parzd2poseszd2_18177,
																																			BgL_iportz00_18176);
																																		{	/* Read/reader.scm 279 */

																																			if (
																																				(BgL_itemz00_17137
																																					==
																																					BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																																				{	/* Read/reader.scm 280 */
																																					BgL_arg5978z00_9858
																																						=
																																						BNIL;
																																				}
																																			else
																																				{	/* Read/reader.scm 282 */
																																					obj_t
																																						BgL_g1046z00_17138;
																																					if (CBOOL(BgL_pospz00_18183))
																																						{	/* Read/reader.scm 132 */
																																							obj_t
																																								BgL_arg6075z00_17147;
																																							BgL_arg6075z00_17147
																																								=
																																								BGl_makezd2sourcezd2locationz00zz__readerz00
																																								(BgL_namez00_17134,
																																								BINT
																																								(BgL_poz00_17135));
																																							{	/* Read/reader.scm 132 */
																																								obj_t
																																									BgL_res6774z00_17148;
																																								BgL_res6774z00_17148
																																									=
																																									MAKE_YOUNG_EPAIR
																																									(BgL_itemz00_17137,
																																									BNIL,
																																									BgL_arg6075z00_17147);
																																								BgL_g1046z00_17138
																																									=
																																									BgL_res6774z00_17148;
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 282 */
																																							BgL_g1046z00_17138
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_itemz00_17137,
																																								BNIL);
																																						}
																																					{
																																						obj_t
																																							BgL_accz00_17140;
																																						BgL_accz00_17140
																																							=
																																							BgL_g1046z00_17138;
																																					BgL_loopz00_17139:
																																						{	/* Read/reader.scm 285 */
																																							obj_t
																																								BgL_itemz00_17141;
																																							BgL_itemz00_17141
																																								=
																																								BGl_ignoreze70ze7zz__readerz00
																																								(BgL_envz00_18184,
																																								BgL_pospz00_18183,
																																								BgL_brazd2poseszd2_18182,
																																								BgL_resolvez00_18181,
																																								BgL_cyclesz00_18180,
																																								BgL_parzd2openzd2_18179,
																																								BgL_brazd2openzd2_18178,
																																								BgL_parzd2poseszd2_18177,
																																								BgL_iportz00_18176);
																																							if ((BgL_itemz00_17141 == BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																																								{	/* Read/reader.scm 286 */
																																									BgL_arg5978z00_9858
																																										=
																																										BgL_accz00_17140;
																																								}
																																							else
																																								{	/* Read/reader.scm 288 */
																																									obj_t
																																										BgL_arg6158z00_17142;
																																									if (CBOOL(BgL_pospz00_18183))
																																										{	/* Read/reader.scm 289 */
																																											long
																																												BgL_poz00_17143;
																																											{	/* Read/reader.scm 289 */
																																												long
																																													BgL_res6775z00_17150;
																																												{	/* Read/reader.scm 289 */
																																													long
																																														BgL_tmpz00_29434;
																																													{	/* Read/reader.scm 289 */
																																														obj_t
																																															BgL_tmpz00_29435;
																																														BgL_tmpz00_29435
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_18176);
																																														BgL_tmpz00_29434
																																															=
																																															INPUT_PORT_TOKENPOS
																																															(BgL_tmpz00_29435);
																																													}
																																													BgL_res6775z00_17150
																																														=
																																														(long)
																																														(BgL_tmpz00_29434);
																																												}
																																												BgL_poz00_17143
																																													=
																																													BgL_res6775z00_17150;
																																											}
																																											{	/* Read/reader.scm 132 */
																																												obj_t
																																													BgL_arg6075z00_17151;
																																												BgL_arg6075z00_17151
																																													=
																																													BGl_makezd2sourcezd2locationz00zz__readerz00
																																													(BgL_namez00_17134,
																																													BINT
																																													(BgL_poz00_17143));
																																												{	/* Read/reader.scm 132 */
																																													obj_t
																																														BgL_res6776z00_17152;
																																													BgL_res6776z00_17152
																																														=
																																														MAKE_YOUNG_EPAIR
																																														(BgL_itemz00_17141,
																																														BgL_accz00_17140,
																																														BgL_arg6075z00_17151);
																																													BgL_arg6158z00_17142
																																														=
																																														BgL_res6776z00_17152;
																																										}}}
																																									else
																																										{	/* Read/reader.scm 288 */
																																											BgL_arg6158z00_17142
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_itemz00_17141,
																																												BgL_accz00_17140);
																																										}
																																									{
																																										obj_t
																																											BgL_accz00_29443;
																																										BgL_accz00_29443
																																											=
																																											BgL_arg6158z00_17142;
																																										BgL_accz00_17140
																																											=
																																											BgL_accz00_29443;
																																										goto
																																											BgL_loopz00_17139;
																																									}
																																								}
																																						}
																																					}
																																				}
																																		}
																																	}
																																}
																															}
																															BgL_lz00_9857 =
																																bgl_reverse_bang
																																(BgL_arg5978z00_9858);
																														}
																														{	/* Read/reader.scm 694 */

																															return
																																BGl_listzd2ze3tvectorz31zz__tvectorz00
																																(BgL_idz00_9856,
																																BgL_lz00_9857);
																														}
																													}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
							}
							break;
						case 30L:

							{	/* Read/reader.scm 639 */
								obj_t BgL_auxz00_18109;

								BgL_auxz00_18109 =
									ADDFX(BINT(1L), CELL_REF(BgL_parzd2openzd2_18179));
								CELL_SET(BgL_parzd2openzd2_18179, BgL_auxz00_18109);
							}
							{	/* Read/reader.scm 640 */
								obj_t BgL_auxz00_18110;

								{	/* Read/reader.scm 640 */
									long BgL_arg5984z00_9865;

									{	/* Read/reader.scm 640 */
										long BgL_arg5985z00_9866;

										{	/* Read/reader.scm 640 */
											obj_t BgL_tmpz00_29448;

											BgL_tmpz00_29448 = ((obj_t) BgL_iportz00_18176);
											BgL_arg5985z00_9866 =
												INPUT_PORT_FILEPOS(BgL_tmpz00_29448);
										}
										BgL_arg5984z00_9865 = (BgL_arg5985z00_9866 - 1L);
									}
									BgL_auxz00_18110 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg5984z00_9865),
										CELL_REF(BgL_parzd2poseszd2_18177));
								}
								CELL_SET(BgL_parzd2poseszd2_18177, BgL_auxz00_18110);
							}
							{	/* Read/reader.scm 643 */
								obj_t BgL_arg5987z00_9868;

								{	/* Read/reader.scm 643 */
									obj_t BgL_arg5988z00_9869;

									{	/* Read/reader.scm 277 */
										obj_t BgL_namez00_17158;

										{	/* Read/reader.scm 277 */
											obj_t BgL_tmpz00_29454;

											BgL_tmpz00_29454 = ((obj_t) BgL_iportz00_18176);
											BgL_namez00_17158 = INPUT_PORT_NAME(BgL_tmpz00_29454);
										}
										{	/* Read/reader.scm 277 */
											long BgL_poz00_17159;

											{	/* Read/reader.scm 278 */
												long BgL_arg6159z00_17160;

												{	/* Read/reader.scm 278 */
													obj_t BgL_tmpz00_29457;

													BgL_tmpz00_29457 = ((obj_t) BgL_iportz00_18176);
													BgL_arg6159z00_17160 =
														INPUT_PORT_FILEPOS(BgL_tmpz00_29457);
												}
												BgL_poz00_17159 = (BgL_arg6159z00_17160 - 1L);
											}
											{	/* Read/reader.scm 278 */
												obj_t BgL_itemz00_17161;

												BgL_itemz00_17161 =
													BGl_ignoreze70ze7zz__readerz00(BgL_envz00_18184,
													BgL_pospz00_18183, BgL_brazd2poseszd2_18182,
													BgL_resolvez00_18181, BgL_cyclesz00_18180,
													BgL_parzd2openzd2_18179, BgL_brazd2openzd2_18178,
													BgL_parzd2poseszd2_18177, BgL_iportz00_18176);
												{	/* Read/reader.scm 279 */

													if (
														(BgL_itemz00_17161 ==
															BGl_za2endzd2ofzd2listza2z00zz__readerz00))
														{	/* Read/reader.scm 280 */
															BgL_arg5988z00_9869 = BNIL;
														}
													else
														{	/* Read/reader.scm 282 */
															obj_t BgL_g1046z00_17162;

															if (CBOOL(BgL_pospz00_18183))
																{	/* Read/reader.scm 132 */
																	obj_t BgL_arg6075z00_17171;

																	BgL_arg6075z00_17171 =
																		BGl_makezd2sourcezd2locationz00zz__readerz00
																		(BgL_namez00_17158, BINT(BgL_poz00_17159));
																	{	/* Read/reader.scm 132 */
																		obj_t BgL_res6779z00_17172;

																		BgL_res6779z00_17172 =
																			MAKE_YOUNG_EPAIR(BgL_itemz00_17161, BNIL,
																			BgL_arg6075z00_17171);
																		BgL_g1046z00_17162 = BgL_res6779z00_17172;
																	}
																}
															else
																{	/* Read/reader.scm 282 */
																	BgL_g1046z00_17162 =
																		MAKE_YOUNG_PAIR(BgL_itemz00_17161, BNIL);
																}
															{
																obj_t BgL_accz00_17164;

																BgL_accz00_17164 = BgL_g1046z00_17162;
															BgL_loopz00_17163:
																{	/* Read/reader.scm 285 */
																	obj_t BgL_itemz00_17165;

																	BgL_itemz00_17165 =
																		BGl_ignoreze70ze7zz__readerz00
																		(BgL_envz00_18184, BgL_pospz00_18183,
																		BgL_brazd2poseszd2_18182,
																		BgL_resolvez00_18181, BgL_cyclesz00_18180,
																		BgL_parzd2openzd2_18179,
																		BgL_brazd2openzd2_18178,
																		BgL_parzd2poseszd2_18177,
																		BgL_iportz00_18176);
																	if ((BgL_itemz00_17165 ==
																			BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																		{	/* Read/reader.scm 286 */
																			BgL_arg5988z00_9869 = BgL_accz00_17164;
																		}
																	else
																		{	/* Read/reader.scm 288 */
																			obj_t BgL_arg6158z00_17166;

																			if (CBOOL(BgL_pospz00_18183))
																				{	/* Read/reader.scm 289 */
																					long BgL_poz00_17167;

																					{	/* Read/reader.scm 289 */
																						long BgL_res6780z00_17174;

																						{	/* Read/reader.scm 289 */
																							long BgL_tmpz00_29475;

																							{	/* Read/reader.scm 289 */
																								obj_t BgL_tmpz00_29476;

																								BgL_tmpz00_29476 =
																									((obj_t) BgL_iportz00_18176);
																								BgL_tmpz00_29475 =
																									INPUT_PORT_TOKENPOS
																									(BgL_tmpz00_29476);
																							}
																							BgL_res6780z00_17174 =
																								(long) (BgL_tmpz00_29475);
																						}
																						BgL_poz00_17167 =
																							BgL_res6780z00_17174;
																					}
																					{	/* Read/reader.scm 132 */
																						obj_t BgL_arg6075z00_17175;

																						BgL_arg6075z00_17175 =
																							BGl_makezd2sourcezd2locationz00zz__readerz00
																							(BgL_namez00_17158,
																							BINT(BgL_poz00_17167));
																						{	/* Read/reader.scm 132 */
																							obj_t BgL_res6781z00_17176;

																							BgL_res6781z00_17176 =
																								MAKE_YOUNG_EPAIR
																								(BgL_itemz00_17165,
																								BgL_accz00_17164,
																								BgL_arg6075z00_17175);
																							BgL_arg6158z00_17166 =
																								BgL_res6781z00_17176;
																				}}}
																			else
																				{	/* Read/reader.scm 288 */
																					BgL_arg6158z00_17166 =
																						MAKE_YOUNG_PAIR(BgL_itemz00_17165,
																						BgL_accz00_17164);
																				}
																			{
																				obj_t BgL_accz00_29484;

																				BgL_accz00_29484 = BgL_arg6158z00_17166;
																				BgL_accz00_17164 = BgL_accz00_29484;
																				goto BgL_loopz00_17163;
																			}
																		}
																}
															}
														}
												}
											}
										}
									}
									BgL_arg5987z00_9868 = bgl_reverse_bang(BgL_arg5988z00_9869);
								}
								return
									BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
									(BgL_arg5987z00_9868);
							}
							break;
						case 29L:

							{	/* Read/reader.scm 621 */
								obj_t BgL_auxz00_18111;

								BgL_auxz00_18111 =
									SUBFX(CELL_REF(BgL_parzd2openzd2_18179), BINT(1L));
								CELL_SET(BgL_parzd2openzd2_18179, BgL_auxz00_18111);
							}
							if (((long) CINT(CELL_REF(BgL_parzd2openzd2_18179)) < 0L))
								{	/* Read/reader.scm 622 */
									{	/* Read/reader.scm 624 */
										obj_t BgL_arg5991z00_9872;
										long BgL_arg5992z00_9873;
										obj_t BgL_arg5993z00_9874;

										{	/* Read/reader.scm 624 */
											obj_t BgL_tmpz00_29492;

											BgL_tmpz00_29492 = ((obj_t) BgL_iportz00_18176);
											BgL_arg5991z00_9872 = INPUT_PORT_NAME(BgL_tmpz00_29492);
										}
										{	/* Read/reader.scm 625 */
											long BgL_res6784z00_17183;

											{	/* Read/reader.scm 625 */
												long BgL_tmpz00_29495;

												{	/* Read/reader.scm 625 */
													obj_t BgL_tmpz00_29496;

													BgL_tmpz00_29496 = ((obj_t) BgL_iportz00_18176);
													BgL_tmpz00_29495 =
														INPUT_PORT_TOKENPOS(BgL_tmpz00_29496);
												}
												BgL_res6784z00_17183 = (long) (BgL_tmpz00_29495);
											}
											BgL_arg5992z00_9873 = BgL_res6784z00_17183;
										}
										{	/* Read/reader.scm 441 */
											long BgL_arg5789z00_17184;

											{	/* Read/reader.scm 441 */
												obj_t BgL_tmpz00_29500;

												BgL_tmpz00_29500 = ((obj_t) BgL_iportz00_18176);
												BgL_arg5789z00_17184 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29500);
											}
											BgL_arg5993z00_9874 =
												rgc_buffer_substring(
												((obj_t) BgL_iportz00_18176), 0L, BgL_arg5789z00_17184);
										}
										{	/* Read/reader.scm 624 */
											obj_t BgL_list5994z00_9875;

											{	/* Read/reader.scm 624 */
												obj_t BgL_arg5995z00_9876;

												{	/* Read/reader.scm 624 */
													obj_t BgL_arg5996z00_9877;

													{	/* Read/reader.scm 624 */
														obj_t BgL_arg5997z00_9878;

														BgL_arg5997z00_9878 =
															MAKE_YOUNG_PAIR(BGl_string6889z00zz__readerz00,
															BNIL);
														BgL_arg5996z00_9877 =
															MAKE_YOUNG_PAIR(BgL_arg5993z00_9874,
															BgL_arg5997z00_9878);
													}
													BgL_arg5995z00_9876 =
														MAKE_YOUNG_PAIR(BGl_string6890z00zz__readerz00,
														BgL_arg5996z00_9877);
												}
												BgL_list5994z00_9875 =
													MAKE_YOUNG_PAIR(BGl_symbol6871z00zz__readerz00,
													BgL_arg5995z00_9876);
											}
											BGl_warningzf2locationzf2zz__errorz00(BgL_arg5991z00_9872,
												BINT(BgL_arg5992z00_9873), BgL_list5994z00_9875);
									}}
									{	/* Read/reader.scm 630 */
										obj_t BgL_auxz00_18112;

										BgL_auxz00_18112 = BINT(0L);
										CELL_SET(BgL_parzd2openzd2_18179, BgL_auxz00_18112);
									}
									{

										goto BGl_ignoreze70ze7zz__readerz00;
									}
								}
							else
								{	/* Read/reader.scm 622 */
									{	/* Read/reader.scm 633 */
										obj_t BgL_auxz00_18113;

										{	/* Read/reader.scm 633 */
											obj_t BgL_pairz00_17188;

											BgL_pairz00_17188 = CELL_REF(BgL_parzd2poseszd2_18177);
											BgL_auxz00_18113 = CDR(BgL_pairz00_17188);
										}
										CELL_SET(BgL_parzd2poseszd2_18177, BgL_auxz00_18113);
									}
									return BGl_za2endzd2ofzd2listza2z00zz__readerz00;
								}
							break;
						case 28L:

							{	/* Read/reader.scm 614 */
								obj_t BgL_auxz00_18114;

								BgL_auxz00_18114 =
									ADDFX(BINT(1L), CELL_REF(BgL_parzd2openzd2_18179));
								CELL_SET(BgL_parzd2openzd2_18179, BgL_auxz00_18114);
							}
							{	/* Read/reader.scm 615 */
								obj_t BgL_auxz00_18115;

								{	/* Read/reader.scm 615 */
									long BgL_arg6000z00_9881;

									{	/* Read/reader.scm 615 */
										long BgL_arg6001z00_9882;

										{	/* Read/reader.scm 615 */
											obj_t BgL_tmpz00_29515;

											BgL_tmpz00_29515 = ((obj_t) BgL_iportz00_18176);
											BgL_arg6001z00_9882 =
												INPUT_PORT_FILEPOS(BgL_tmpz00_29515);
										}
										BgL_arg6000z00_9881 = (BgL_arg6001z00_9882 - 1L);
									}
									BgL_auxz00_18115 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg6000z00_9881),
										CELL_REF(BgL_parzd2poseszd2_18177));
								}
								CELL_SET(BgL_parzd2poseszd2_18177, BgL_auxz00_18115);
							}
							{	/* Read/reader.scm 618 */
								obj_t BgL_arg6003z00_9884;

								{	/* Read/reader.scm 277 */
									obj_t BgL_namez00_17194;

									{	/* Read/reader.scm 277 */
										obj_t BgL_tmpz00_29521;

										BgL_tmpz00_29521 = ((obj_t) BgL_iportz00_18176);
										BgL_namez00_17194 = INPUT_PORT_NAME(BgL_tmpz00_29521);
									}
									{	/* Read/reader.scm 277 */
										long BgL_poz00_17195;

										{	/* Read/reader.scm 278 */
											long BgL_arg6159z00_17196;

											{	/* Read/reader.scm 278 */
												obj_t BgL_tmpz00_29524;

												BgL_tmpz00_29524 = ((obj_t) BgL_iportz00_18176);
												BgL_arg6159z00_17196 =
													INPUT_PORT_FILEPOS(BgL_tmpz00_29524);
											}
											BgL_poz00_17195 = (BgL_arg6159z00_17196 - 1L);
										}
										{	/* Read/reader.scm 278 */
											obj_t BgL_itemz00_17197;

											BgL_itemz00_17197 =
												BGl_ignoreze70ze7zz__readerz00(BgL_envz00_18184,
												BgL_pospz00_18183, BgL_brazd2poseszd2_18182,
												BgL_resolvez00_18181, BgL_cyclesz00_18180,
												BgL_parzd2openzd2_18179, BgL_brazd2openzd2_18178,
												BgL_parzd2poseszd2_18177, BgL_iportz00_18176);
											{	/* Read/reader.scm 279 */

												if (
													(BgL_itemz00_17197 ==
														BGl_za2endzd2ofzd2listza2z00zz__readerz00))
													{	/* Read/reader.scm 280 */
														BgL_arg6003z00_9884 = BNIL;
													}
												else
													{	/* Read/reader.scm 282 */
														obj_t BgL_g1046z00_17198;

														if (CBOOL(BgL_pospz00_18183))
															{	/* Read/reader.scm 132 */
																obj_t BgL_arg6075z00_17207;

																BgL_arg6075z00_17207 =
																	BGl_makezd2sourcezd2locationz00zz__readerz00
																	(BgL_namez00_17194, BINT(BgL_poz00_17195));
																{	/* Read/reader.scm 132 */
																	obj_t BgL_res6787z00_17208;

																	BgL_res6787z00_17208 =
																		MAKE_YOUNG_EPAIR(BgL_itemz00_17197, BNIL,
																		BgL_arg6075z00_17207);
																	BgL_g1046z00_17198 = BgL_res6787z00_17208;
																}
															}
														else
															{	/* Read/reader.scm 282 */
																BgL_g1046z00_17198 =
																	MAKE_YOUNG_PAIR(BgL_itemz00_17197, BNIL);
															}
														{
															obj_t BgL_accz00_17200;

															BgL_accz00_17200 = BgL_g1046z00_17198;
														BgL_loopz00_17199:
															{	/* Read/reader.scm 285 */
																obj_t BgL_itemz00_17201;

																BgL_itemz00_17201 =
																	BGl_ignoreze70ze7zz__readerz00
																	(BgL_envz00_18184, BgL_pospz00_18183,
																	BgL_brazd2poseszd2_18182,
																	BgL_resolvez00_18181, BgL_cyclesz00_18180,
																	BgL_parzd2openzd2_18179,
																	BgL_brazd2openzd2_18178,
																	BgL_parzd2poseszd2_18177, BgL_iportz00_18176);
																if ((BgL_itemz00_17201 ==
																		BGl_za2endzd2ofzd2listza2z00zz__readerz00))
																	{	/* Read/reader.scm 286 */
																		BgL_arg6003z00_9884 = BgL_accz00_17200;
																	}
																else
																	{	/* Read/reader.scm 288 */
																		obj_t BgL_arg6158z00_17202;

																		if (CBOOL(BgL_pospz00_18183))
																			{	/* Read/reader.scm 289 */
																				long BgL_poz00_17203;

																				{	/* Read/reader.scm 289 */
																					long BgL_res6788z00_17210;

																					{	/* Read/reader.scm 289 */
																						long BgL_tmpz00_29542;

																						{	/* Read/reader.scm 289 */
																							obj_t BgL_tmpz00_29543;

																							BgL_tmpz00_29543 =
																								((obj_t) BgL_iportz00_18176);
																							BgL_tmpz00_29542 =
																								INPUT_PORT_TOKENPOS
																								(BgL_tmpz00_29543);
																						}
																						BgL_res6788z00_17210 =
																							(long) (BgL_tmpz00_29542);
																					}
																					BgL_poz00_17203 =
																						BgL_res6788z00_17210;
																				}
																				{	/* Read/reader.scm 132 */
																					obj_t BgL_arg6075z00_17211;

																					BgL_arg6075z00_17211 =
																						BGl_makezd2sourcezd2locationz00zz__readerz00
																						(BgL_namez00_17194,
																						BINT(BgL_poz00_17203));
																					{	/* Read/reader.scm 132 */
																						obj_t BgL_res6789z00_17212;

																						BgL_res6789z00_17212 =
																							MAKE_YOUNG_EPAIR
																							(BgL_itemz00_17201,
																							BgL_accz00_17200,
																							BgL_arg6075z00_17211);
																						BgL_arg6158z00_17202 =
																							BgL_res6789z00_17212;
																			}}}
																		else
																			{	/* Read/reader.scm 288 */
																				BgL_arg6158z00_17202 =
																					MAKE_YOUNG_PAIR(BgL_itemz00_17201,
																					BgL_accz00_17200);
																			}
																		{
																			obj_t BgL_accz00_29551;

																			BgL_accz00_29551 = BgL_arg6158z00_17202;
																			BgL_accz00_17200 = BgL_accz00_29551;
																			goto BgL_loopz00_17199;
																		}
																	}
															}
														}
													}
											}
										}
									}
								}
								return
									BGl_makezd2listz12zc0zz__readerz00(BgL_arg6003z00_9884,
									((obj_t) BgL_iportz00_18176));
							}
							break;
						case 27L:

							return
								BGl_readzd2quotezd2zz__readerz00(BGl_symbol6891z00zz__readerz00,
								((obj_t) BgL_iportz00_18176), BgL_envz00_18184,
								BgL_pospz00_18183);
							break;
						case 26L:

							return
								BGl_readzd2quotezd2zz__readerz00(BGl_symbol6893z00zz__readerz00,
								((obj_t) BgL_iportz00_18176), BgL_envz00_18184,
								BgL_pospz00_18183);
							break;
						case 25L:

							return
								BGl_readzd2quotezd2zz__readerz00(BGl_symbol6895z00zz__readerz00,
								((obj_t) BgL_iportz00_18176), BgL_envz00_18184,
								BgL_pospz00_18183);
							break;
						case 24L:

							return
								BGl_readzd2quotezd2zz__readerz00(BGl_symbol6897z00zz__readerz00,
								((obj_t) BgL_iportz00_18176), BgL_envz00_18184,
								BgL_pospz00_18183);
							break;
						case 23L:

							{	/* Read/reader.scm 597 */
								bool_t BgL_test9335z00_29562;

								{	/* Read/reader.scm 597 */
									long BgL_arg6015z00_9896;

									{	/* Read/reader.scm 441 */
										obj_t BgL_tmpz00_29563;

										BgL_tmpz00_29563 = ((obj_t) BgL_iportz00_18176);
										BgL_arg6015z00_9896 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29563);
									}
									BgL_test9335z00_29562 = (BgL_arg6015z00_9896 == 2L);
								}
								if (BgL_test9335z00_29562)
									{	/* Read/reader.scm 597 */
										return bstring_to_symbol(BGl_string6899z00zz__readerz00);
									}
								else
									{	/* Read/reader.scm 599 */
										obj_t BgL_arg6012z00_9893;

										{	/* Read/reader.scm 599 */
											long BgL_arg6013z00_9894;

											{	/* Read/reader.scm 599 */
												long BgL_arg6014z00_9895;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_29568;

													BgL_tmpz00_29568 = ((obj_t) BgL_iportz00_18176);
													BgL_arg6014z00_9895 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29568);
												}
												BgL_arg6013z00_9894 = (BgL_arg6014z00_9895 - 1L);
											}
											BgL_arg6012z00_9893 =
												BGl_thezd2escapezd2substringze71ze7zz__readerz00
												(BgL_iportz00_18176, (int) (1L),
												(int) (BgL_arg6013z00_9894), ((bool_t) 0));
										}
										return bstring_to_symbol(BgL_arg6012z00_9893);
									}
							}
							break;
						case 22L:

							return rgc_buffer_symbol(((obj_t) BgL_iportz00_18176));
							break;
						case 21L:

							if (
								(BGl_za2identifierzd2syntaxza2zd2zz__readerz00 ==
									BGl_symbol6900z00zz__readerz00))
								{	/* Read/reader.scm 589 */
									obj_t BgL_arg6016z00_9897;
									obj_t BgL_arg6017z00_9898;
									long BgL_arg6018z00_9899;

									{	/* Read/reader.scm 589 */
										obj_t BgL_l01402z00_9900;

										{	/* Read/reader.scm 589 */
											obj_t BgL_arg6024z00_9909;

											{	/* Read/reader.scm 441 */
												long BgL_arg5789z00_17225;

												{	/* Read/reader.scm 441 */
													obj_t BgL_tmpz00_29580;

													BgL_tmpz00_29580 = ((obj_t) BgL_iportz00_18176);
													BgL_arg5789z00_17225 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29580);
												}
												BgL_arg6024z00_9909 =
													rgc_buffer_substring(
													((obj_t) BgL_iportz00_18176), 0L,
													BgL_arg5789z00_17225);
											}
											{	/* Read/reader.scm 589 */
												obj_t BgL_list6025z00_9910;

												BgL_list6025z00_9910 =
													MAKE_YOUNG_PAIR(BGl_string6902z00zz__readerz00, BNIL);
												BgL_l01402z00_9900 =
													BGl_stringzd2splitzd2zz__r4_strings_6_7z00
													(BgL_arg6024z00_9909, BgL_list6025z00_9910);
										}}
										{
											obj_t BgL_l1401z00_9902;

											BgL_l1401z00_9902 = BgL_l01402z00_9900;
										BgL_zc3z04anonymousza36019ze3z87_9903:
											if (NULLP(BgL_l1401z00_9902))
												{	/* Read/reader.scm 589 */
													BgL_arg6016z00_9897 = BgL_l01402z00_9900;
												}
											else
												{	/* Read/reader.scm 589 */
													{	/* Read/reader.scm 589 */
														obj_t BgL_arg6021z00_9905;

														{	/* Read/reader.scm 589 */
															obj_t BgL_arg6022z00_9906;

															BgL_arg6022z00_9906 =
																CAR(((obj_t) BgL_l1401z00_9902));
															BgL_arg6021z00_9905 =
																bstring_to_symbol(
																((obj_t) BgL_arg6022z00_9906));
														}
														{	/* Read/reader.scm 589 */
															obj_t BgL_tmpz00_29593;

															BgL_tmpz00_29593 = ((obj_t) BgL_l1401z00_9902);
															SET_CAR(BgL_tmpz00_29593, BgL_arg6021z00_9905);
														}
													}
													{	/* Read/reader.scm 589 */
														obj_t BgL_arg6023z00_9907;

														BgL_arg6023z00_9907 =
															CDR(((obj_t) BgL_l1401z00_9902));
														{
															obj_t BgL_l1401z00_29598;

															BgL_l1401z00_29598 = BgL_arg6023z00_9907;
															BgL_l1401z00_9902 = BgL_l1401z00_29598;
															goto BgL_zc3z04anonymousza36019ze3z87_9903;
														}
													}
												}
										}
									}
									{	/* Read/reader.scm 590 */
										obj_t BgL_tmpz00_29599;

										BgL_tmpz00_29599 = ((obj_t) BgL_iportz00_18176);
										BgL_arg6017z00_9898 = INPUT_PORT_NAME(BgL_tmpz00_29599);
									}
									{	/* Read/reader.scm 591 */
										obj_t BgL_tmpz00_29602;

										BgL_tmpz00_29602 = ((obj_t) BgL_iportz00_18176);
										BgL_arg6018z00_9899 = INPUT_PORT_FILEPOS(BgL_tmpz00_29602);
									}
									{	/* Read/reader.scm 588 */
										obj_t BgL_az00_17237;

										BgL_az00_17237 = BGl_symbol6903z00zz__readerz00;
										{	/* Read/reader.scm 132 */
											obj_t BgL_arg6075z00_17238;

											{	/* Read/reader.scm 117 */
												obj_t BgL_list6062z00_17239;

												{	/* Read/reader.scm 117 */
													obj_t BgL_arg6063z00_17240;

													{	/* Read/reader.scm 117 */
														obj_t BgL_arg6064z00_17241;

														BgL_arg6064z00_17241 =
															MAKE_YOUNG_PAIR(BINT(BgL_arg6018z00_9899), BNIL);
														BgL_arg6063z00_17240 =
															MAKE_YOUNG_PAIR(BgL_arg6017z00_9898,
															BgL_arg6064z00_17241);
													}
													BgL_list6062z00_17239 =
														MAKE_YOUNG_PAIR(BGl_symbol6905z00zz__readerz00,
														BgL_arg6063z00_17240);
												}
												BgL_arg6075z00_17238 = BgL_list6062z00_17239;
											}
											{	/* Read/reader.scm 132 */
												obj_t BgL_res6798z00_17243;

												BgL_res6798z00_17243 =
													MAKE_YOUNG_EPAIR(BgL_az00_17237, BgL_arg6016z00_9897,
													BgL_arg6075z00_17238);
												return BgL_res6798z00_17243;
											}
										}
									}
								}
							else
								{	/* Read/reader.scm 587 */
									return rgc_buffer_symbol(((obj_t) BgL_iportz00_18176));
								}
							break;
						case 20L:

							return rgc_buffer_keyword(((obj_t) BgL_iportz00_18176));
							break;
						case 19L:

							return BFALSE;
							break;
						case 18L:

							return BTRUE;
							break;
						case 17L:

							if (((long) CINT(CELL_REF(BgL_parzd2openzd2_18179)) <= 0L))
								{	/* Read/reader.scm 568 */
									return
										BGl_readzd2errorzd2zz__readerz00
										(BGl_string6907z00zz__readerz00,
										BCHAR(((unsigned char) '.')), ((obj_t) BgL_iportz00_18176));
								}
							else
								{	/* Read/reader.scm 568 */
									return BGl_za2dottedzd2markza2zd2zz__readerz00;
								}
							break;
						case 16L:

							return DOUBLE_TO_REAL(NEG(BGL_INFINITY));
							break;
						case 15L:

							return DOUBLE_TO_REAL(BGL_INFINITY);
							break;
						case 14L:

							return DOUBLE_TO_REAL(BGL_NAN);
							break;
						case 13L:

							return
								DOUBLE_TO_REAL(rgc_buffer_flonum(((obj_t) BgL_iportz00_18176)));
							break;
						case 12L:

							return rgc_buffer_integer(((obj_t) BgL_iportz00_18176));
							break;
						case 11L:

							{	/* Read/reader.scm 547 */
								long BgL_arg6030z00_9915;
								bool_t BgL_arg6031z00_9916;

								{	/* Read/reader.scm 547 */
									long BgL_arg6032z00_9917;

									{	/* Read/reader.scm 441 */
										obj_t BgL_tmpz00_29629;

										BgL_tmpz00_29629 = ((obj_t) BgL_iportz00_18176);
										BgL_arg6032z00_9917 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29629);
									}
									BgL_arg6030z00_9915 = (BgL_arg6032z00_9917 - 1L);
								}
								BgL_arg6031z00_9916 =
									BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00();
								return
									BGl_thezd2escapezd2substringze71ze7zz__readerz00
									(BgL_iportz00_18176, (int) (1L), (int) (BgL_arg6030z00_9915),
									BgL_arg6031z00_9916);
							} break;
						case 10L:

							{	/* Read/reader.scm 538 */
								long BgL_nz00_9918;

								{	/* Read/reader.scm 538 */
									obj_t BgL_arg6034z00_9920;

									BgL_arg6034z00_9920 =
										BGl_thezd2substringze71z35zz__readerz00(BgL_iportz00_18176,
										(int) (3L), (int) (0L));
									{	/* Read/reader.scm 538 */
										char *BgL_tmpz00_29640;

										BgL_tmpz00_29640 = BSTRING_TO_STRING(BgL_arg6034z00_9920);
										BgL_nz00_9918 = BGL_STRTOL(BgL_tmpz00_29640, 0L, 16L);
								}}
								if ((BgL_nz00_9918 <= 256L))
									{	/* Read/reader.scm 539 */
										return BCHAR((BgL_nz00_9918));
									}
								else
									{	/* Read/reader.scm 539 */
										return
											BUCS2(BGl_integerzd2ze3ucs2z31zz__ucs2z00(
												(int) (BgL_nz00_9918)));
							}} break;
						case 9L:

							{	/* Read/reader.scm 535 */
								long BgL_arg6035z00_9921;

								{	/* Read/reader.scm 535 */
									obj_t BgL_arg6036z00_9922;

									{	/* Read/reader.scm 535 */
										long BgL_arg6037z00_9923;

										{	/* Read/reader.scm 441 */
											obj_t BgL_tmpz00_29650;

											BgL_tmpz00_29650 = ((obj_t) BgL_iportz00_18176);
											BgL_arg6037z00_9923 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29650);
										}
										BgL_arg6036z00_9922 =
											BGl_thezd2substringze71z35zz__readerz00
											(BgL_iportz00_18176, (int) (2L),
											(int) (BgL_arg6037z00_9923));
									}
									{	/* Read/reader.scm 535 */
										char *BgL_tmpz00_29656;

										BgL_tmpz00_29656 = BSTRING_TO_STRING(BgL_arg6036z00_9922);
										BgL_arg6035z00_9921 = BGL_STRTOL(BgL_tmpz00_29656, 0L, 8L);
								}}
								return BCHAR((BgL_arg6035z00_9921));
							}
							break;
						case 8L:

							{	/* Read/reader.scm 510 */
								obj_t BgL_charzd2namezd2_9924;

								{	/* Read/reader.scm 512 */
									obj_t BgL_arg6049z00_9937;

									{	/* Read/reader.scm 512 */
										obj_t BgL_arg6050z00_9938;

										{	/* Read/reader.scm 512 */
											long BgL_arg6051z00_9939;

											{	/* Read/reader.scm 441 */
												obj_t BgL_tmpz00_29661;

												BgL_tmpz00_29661 = ((obj_t) BgL_iportz00_18176);
												BgL_arg6051z00_9939 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29661);
											}
											BgL_arg6050z00_9938 =
												BGl_thezd2substringze71z35zz__readerz00
												(BgL_iportz00_18176, (int) (2L),
												(int) (BgL_arg6051z00_9939));
										}
										BgL_arg6049z00_9937 =
											BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00
											(BgL_arg6050z00_9938);
									}
									BgL_charzd2namezd2_9924 =
										bstring_to_symbol(BgL_arg6049z00_9937);
								}
								if ((BgL_charzd2namezd2_9924 == BGl_symbol6908z00zz__readerz00))
									{	/* Read/reader.scm 514 */
										return BCHAR(((unsigned char) 10));
									}
								else
									{	/* Read/reader.scm 514 */
										if (
											(BgL_charzd2namezd2_9924 ==
												BGl_symbol6910z00zz__readerz00))
											{	/* Read/reader.scm 514 */
												return BCHAR(((unsigned char) 9));
											}
										else
											{	/* Read/reader.scm 514 */
												if (
													(BgL_charzd2namezd2_9924 ==
														BGl_symbol6912z00zz__readerz00))
													{	/* Read/reader.scm 514 */
														return BCHAR(((unsigned char) ' '));
													}
												else
													{	/* Read/reader.scm 514 */
														if (
															(BgL_charzd2namezd2_9924 ==
																BGl_symbol6914z00zz__readerz00))
															{	/* Read/reader.scm 514 */
																return BCHAR(((unsigned char) 13));
															}
														else
															{	/* Read/reader.scm 514 */
																if (
																	(BgL_charzd2namezd2_9924 ==
																		BGl_symbol6916z00zz__readerz00))
																	{	/* Read/reader.scm 514 */
																		return BCHAR(((unsigned char) '\000'));
																	}
																else
																	{	/* Read/reader.scm 514 */
																		if (
																			(BgL_charzd2namezd2_9924 ==
																				BGl_symbol6918z00zz__readerz00))
																			{	/* Read/reader.scm 514 */
																				return BCHAR(((unsigned char) 7));
																			}
																		else
																			{	/* Read/reader.scm 514 */
																				if (
																					(BgL_charzd2namezd2_9924 ==
																						BGl_symbol6920z00zz__readerz00))
																					{	/* Read/reader.scm 514 */
																						return BCHAR(((unsigned char) 8));
																					}
																				else
																					{	/* Read/reader.scm 514 */
																						if (
																							(BgL_charzd2namezd2_9924 ==
																								BGl_symbol6922z00zz__readerz00))
																							{	/* Read/reader.scm 514 */
																								return
																									BCHAR(((unsigned char) ''));
																							}
																						else
																							{	/* Read/reader.scm 514 */
																								if (
																									(BgL_charzd2namezd2_9924 ==
																										BGl_symbol6924z00zz__readerz00))
																									{	/* Read/reader.scm 514 */
																										return
																											BCHAR(((unsigned char)
																												27));
																									}
																								else
																									{	/* Read/reader.scm 533 */
																										obj_t BgL_arg6047z00_9935;

																										{	/* Read/reader.scm 441 */
																											long BgL_arg5789z00_17268;

																											{	/* Read/reader.scm 441 */
																												obj_t BgL_tmpz00_29696;

																												BgL_tmpz00_29696 =
																													((obj_t)
																													BgL_iportz00_18176);
																												BgL_arg5789z00_17268 =
																													RGC_BUFFER_MATCH_LENGTH
																													(BgL_tmpz00_29696);
																											}
																											BgL_arg6047z00_9935 =
																												rgc_buffer_substring(
																												((obj_t)
																													BgL_iportz00_18176),
																												0L,
																												BgL_arg5789z00_17268);
																										}
																										return
																											BGl_readzd2errorzd2zz__readerz00
																											(BGl_string6926z00zz__readerz00,
																											BgL_arg6047z00_9935,
																											((obj_t)
																												BgL_iportz00_18176));
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
							}
							break;
						case 7L:

							{	/* Read/reader.scm 508 */
								obj_t BgL_arg6052z00_9940;

								{	/* Read/reader.scm 441 */
									long BgL_arg5789z00_17273;

									{	/* Read/reader.scm 441 */
										obj_t BgL_tmpz00_29703;

										BgL_tmpz00_29703 = ((obj_t) BgL_iportz00_18176);
										BgL_arg5789z00_17273 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29703);
									}
									BgL_arg6052z00_9940 =
										rgc_buffer_substring(
										((obj_t) BgL_iportz00_18176), 0L, BgL_arg5789z00_17273);
								}
								return BCHAR(STRING_REF(BgL_arg6052z00_9940, 2L));
							}
							break;
						case 6L:

							{	/* Read/reader.scm 494 */
								obj_t BgL_strz00_9941;

								{	/* Read/reader.scm 441 */
									long BgL_arg5789z00_17278;

									{	/* Read/reader.scm 441 */
										obj_t BgL_tmpz00_29710;

										BgL_tmpz00_29710 = ((obj_t) BgL_iportz00_18176);
										BgL_arg5789z00_17278 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29710);
									}
									BgL_strz00_9941 =
										rgc_buffer_substring(
										((obj_t) BgL_iportz00_18176), 0L, BgL_arg5789z00_17278);
								}
								{	/* Read/reader.scm 494 */

									{	/* Read/reader.scm 496 */
										bool_t BgL_test9349z00_29715;

										{	/* Read/reader.scm 496 */
											long BgL_l1z00_17284;

											BgL_l1z00_17284 = STRING_LENGTH(BgL_strz00_9941);
											if ((BgL_l1z00_17284 == 10L))
												{	/* Read/reader.scm 496 */
													int BgL_arg6463z00_17287;

													{	/* Read/reader.scm 496 */
														char *BgL_auxz00_29721;
														char *BgL_tmpz00_29719;

														BgL_auxz00_29721 =
															BSTRING_TO_STRING(BGl_string6927z00zz__readerz00);
														BgL_tmpz00_29719 =
															BSTRING_TO_STRING(BgL_strz00_9941);
														BgL_arg6463z00_17287 =
															memcmp(BgL_tmpz00_29719, BgL_auxz00_29721,
															BgL_l1z00_17284);
													}
													BgL_test9349z00_29715 =
														((long) (BgL_arg6463z00_17287) == 0L);
												}
											else
												{	/* Read/reader.scm 496 */
													BgL_test9349z00_29715 = ((bool_t) 0);
												}
										}
										if (BgL_test9349z00_29715)
											{	/* Read/reader.scm 496 */
												return BOPTIONAL;
											}
										else
											{	/* Read/reader.scm 498 */
												bool_t BgL_test9351z00_29726;

												{	/* Read/reader.scm 498 */
													long BgL_l1z00_17295;

													BgL_l1z00_17295 = STRING_LENGTH(BgL_strz00_9941);
													if ((BgL_l1z00_17295 == 6L))
														{	/* Read/reader.scm 498 */
															int BgL_arg6463z00_17298;

															{	/* Read/reader.scm 498 */
																char *BgL_auxz00_29732;
																char *BgL_tmpz00_29730;

																BgL_auxz00_29732 =
																	BSTRING_TO_STRING
																	(BGl_string6928z00zz__readerz00);
																BgL_tmpz00_29730 =
																	BSTRING_TO_STRING(BgL_strz00_9941);
																BgL_arg6463z00_17298 =
																	memcmp(BgL_tmpz00_29730, BgL_auxz00_29732,
																	BgL_l1z00_17295);
															}
															BgL_test9351z00_29726 =
																((long) (BgL_arg6463z00_17298) == 0L);
														}
													else
														{	/* Read/reader.scm 498 */
															BgL_test9351z00_29726 = ((bool_t) 0);
														}
												}
												if (BgL_test9351z00_29726)
													{	/* Read/reader.scm 498 */
														return BREST;
													}
												else
													{	/* Read/reader.scm 500 */
														bool_t BgL_test9353z00_29737;

														{	/* Read/reader.scm 500 */
															long BgL_l1z00_17306;

															BgL_l1z00_17306 = STRING_LENGTH(BgL_strz00_9941);
															if ((BgL_l1z00_17306 == 5L))
																{	/* Read/reader.scm 500 */
																	int BgL_arg6463z00_17309;

																	{	/* Read/reader.scm 500 */
																		char *BgL_auxz00_29743;
																		char *BgL_tmpz00_29741;

																		BgL_auxz00_29743 =
																			BSTRING_TO_STRING
																			(BGl_string6929z00zz__readerz00);
																		BgL_tmpz00_29741 =
																			BSTRING_TO_STRING(BgL_strz00_9941);
																		BgL_arg6463z00_17309 =
																			memcmp(BgL_tmpz00_29741, BgL_auxz00_29743,
																			BgL_l1z00_17306);
																	}
																	BgL_test9353z00_29737 =
																		((long) (BgL_arg6463z00_17309) == 0L);
																}
															else
																{	/* Read/reader.scm 500 */
																	BgL_test9353z00_29737 = ((bool_t) 0);
																}
														}
														if (BgL_test9353z00_29737)
															{	/* Read/reader.scm 500 */
																return BKEY;
															}
														else
															{	/* Read/reader.scm 500 */
																BGl_za2bigloozd2interpreterza2zd2zz__readerz00 =
																	BTRUE;
																{

																	goto BGl_ignoreze70ze7zz__readerz00;
																}
															}
													}
											}
									}
								}
							}
							break;
						case 5L:

							{

								goto BGl_ignoreze70ze7zz__readerz00;
							}
							break;
						case 4L:

							BGl_ignoreze70ze7zz__readerz00(BgL_envz00_18184,
								BgL_pospz00_18183, BgL_brazd2poseszd2_18182,
								BgL_resolvez00_18181, BgL_cyclesz00_18180,
								BgL_parzd2openzd2_18179, BgL_brazd2openzd2_18178,
								BgL_parzd2poseszd2_18177, BgL_iportz00_18176);
							{

								goto BGl_ignoreze70ze7zz__readerz00;
							}
							break;
						case 3L:

							BGl_readzd2multizd2linezd2commentzd2zz__readerz00(
								((obj_t) BgL_iportz00_18176));
							{

								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_string6930z00zz__readerz00,
								BGl_string6931z00zz__readerz00, BINT(BgL_matchz00_9716));
						}
				}
			}
		}

	}



/* &<@anonymous:5883> */
	obj_t BGl_z62zc3z04anonymousza35883ze3ze5zz__readerz00(obj_t BgL_envz00_18116)
	{
		{	/* Read/reader.scm 770 */
			return BINT((long) CINT(PROCEDURE_REF(BgL_envz00_18116, (int) (0L))));
		}

	}



/* &<@anonymous:1517> */
	obj_t BGl_z62zc3z04anonymousza31517ze3ze5zz__readerz00(obj_t BgL_envz00_18118,
		obj_t BgL_iportz00_18119)
	{
		{	/* Read/reader.scm 332 */
			{
				obj_t BgL_iportz00_18994;
				long BgL_lastzd2matchzd2_18995;
				long BgL_forwardz00_18996;
				long BgL_bufposz00_18997;
				obj_t BgL_iportz00_18978;
				long BgL_lastzd2matchzd2_18979;
				long BgL_forwardz00_18980;
				long BgL_bufposz00_18981;
				obj_t BgL_iportz00_18970;
				long BgL_lastzd2matchzd2_18971;
				long BgL_forwardz00_18972;
				long BgL_bufposz00_18973;
				obj_t BgL_iportz00_18963;
				long BgL_lastzd2matchzd2_18964;
				long BgL_forwardz00_18965;
				long BgL_bufposz00_18966;
				obj_t BgL_iportz00_18956;
				long BgL_lastzd2matchzd2_18957;
				long BgL_forwardz00_18958;
				long BgL_bufposz00_18959;
				obj_t BgL_iportz00_18948;
				long BgL_lastzd2matchzd2_18949;
				long BgL_forwardz00_18950;
				long BgL_bufposz00_18951;
				obj_t BgL_iportz00_18941;
				long BgL_lastzd2matchzd2_18942;
				long BgL_forwardz00_18943;
				long BgL_bufposz00_18944;
				obj_t BgL_iportz00_18934;
				long BgL_lastzd2matchzd2_18935;
				long BgL_forwardz00_18936;
				long BgL_bufposz00_18937;
				obj_t BgL_iportz00_18924;
				long BgL_lastzd2matchzd2_18925;
				long BgL_forwardz00_18926;
				long BgL_bufposz00_18927;
				obj_t BgL_iportz00_18916;
				long BgL_lastzd2matchzd2_18917;
				long BgL_forwardz00_18918;
				long BgL_bufposz00_18919;
				obj_t BgL_iportz00_18909;
				long BgL_lastzd2matchzd2_18910;
				long BgL_forwardz00_18911;
				long BgL_bufposz00_18912;
				obj_t BgL_iportz00_18901;
				long BgL_lastzd2matchzd2_18902;
				long BgL_forwardz00_18903;
				long BgL_bufposz00_18904;
				obj_t BgL_iportz00_18893;
				long BgL_lastzd2matchzd2_18894;
				long BgL_forwardz00_18895;
				long BgL_bufposz00_18896;
				obj_t BgL_iportz00_18885;
				long BgL_lastzd2matchzd2_18886;
				long BgL_forwardz00_18887;
				long BgL_bufposz00_18888;
				obj_t BgL_iportz00_18876;
				long BgL_lastzd2matchzd2_18877;
				long BgL_forwardz00_18878;
				long BgL_bufposz00_18879;
				obj_t BgL_iportz00_18865;
				long BgL_lastzd2matchzd2_18866;
				long BgL_forwardz00_18867;
				long BgL_bufposz00_18868;
				obj_t BgL_iportz00_18858;
				long BgL_lastzd2matchzd2_18859;
				long BgL_forwardz00_18860;
				long BgL_bufposz00_18861;
				obj_t BgL_iportz00_18851;
				long BgL_lastzd2matchzd2_18852;
				long BgL_forwardz00_18853;
				long BgL_bufposz00_18854;
				obj_t BgL_iportz00_18842;
				long BgL_lastzd2matchzd2_18843;
				long BgL_forwardz00_18844;
				long BgL_bufposz00_18845;
				obj_t BgL_iportz00_18835;
				long BgL_lastzd2matchzd2_18836;
				long BgL_forwardz00_18837;
				long BgL_bufposz00_18838;
				obj_t BgL_iportz00_18826;
				long BgL_lastzd2matchzd2_18827;
				long BgL_forwardz00_18828;
				long BgL_bufposz00_18829;
				obj_t BgL_iportz00_18817;
				long BgL_lastzd2matchzd2_18818;
				long BgL_forwardz00_18819;
				long BgL_bufposz00_18820;
				obj_t BgL_iportz00_18809;
				long BgL_lastzd2matchzd2_18810;
				long BgL_forwardz00_18811;
				long BgL_bufposz00_18812;
				obj_t BgL_iportz00_18800;
				long BgL_lastzd2matchzd2_18801;
				long BgL_forwardz00_18802;
				long BgL_bufposz00_18803;
				obj_t BgL_iportz00_18793;
				long BgL_lastzd2matchzd2_18794;
				long BgL_forwardz00_18795;
				long BgL_bufposz00_18796;
				obj_t BgL_iportz00_18784;
				long BgL_lastzd2matchzd2_18785;
				long BgL_forwardz00_18786;
				long BgL_bufposz00_18787;
				obj_t BgL_iportz00_18777;
				long BgL_lastzd2matchzd2_18778;
				long BgL_forwardz00_18779;
				long BgL_bufposz00_18780;
				obj_t BgL_iportz00_18769;
				long BgL_lastzd2matchzd2_18770;
				long BgL_forwardz00_18771;
				long BgL_bufposz00_18772;
				obj_t BgL_iportz00_18762;
				long BgL_lastzd2matchzd2_18763;
				long BgL_forwardz00_18764;
				long BgL_bufposz00_18765;
				obj_t BgL_iportz00_18755;
				long BgL_lastzd2matchzd2_18756;
				long BgL_forwardz00_18757;
				long BgL_bufposz00_18758;
				obj_t BgL_iportz00_18747;
				long BgL_lastzd2matchzd2_18748;
				long BgL_forwardz00_18749;
				long BgL_bufposz00_18750;
				obj_t BgL_iportz00_18739;
				long BgL_lastzd2matchzd2_18740;
				long BgL_forwardz00_18741;
				long BgL_bufposz00_18742;
				obj_t BgL_iportz00_18731;
				long BgL_lastzd2matchzd2_18732;
				long BgL_forwardz00_18733;
				long BgL_bufposz00_18734;
				obj_t BgL_iportz00_18724;
				long BgL_lastzd2matchzd2_18725;
				long BgL_forwardz00_18726;
				long BgL_bufposz00_18727;
				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_18702;
				long BgL_lastzd2matchzd2_18703;
				long BgL_forwardz00_18704;
				long BgL_bufposz00_18705;
				obj_t BgL_iportz00_18694;
				long BgL_lastzd2matchzd2_18695;
				long BgL_forwardz00_18696;
				long BgL_bufposz00_18697;
				obj_t BgL_iportz00_18687;
				long BgL_lastzd2matchzd2_18688;
				long BgL_forwardz00_18689;
				long BgL_bufposz00_18690;
				obj_t BgL_iportz00_18679;
				long BgL_lastzd2matchzd2_18680;
				long BgL_forwardz00_18681;
				long BgL_bufposz00_18682;
				obj_t BgL_iportz00_18670;
				long BgL_lastzd2matchzd2_18671;
				long BgL_forwardz00_18672;
				long BgL_bufposz00_18673;
				obj_t BgL_iportz00_18663;
				long BgL_lastzd2matchzd2_18664;
				long BgL_forwardz00_18665;
				long BgL_bufposz00_18666;
				obj_t BgL_iportz00_18655;
				long BgL_lastzd2matchzd2_18656;
				long BgL_forwardz00_18657;
				long BgL_bufposz00_18658;
				obj_t BgL_iportz00_18648;
				long BgL_lastzd2matchzd2_18649;
				long BgL_forwardz00_18650;
				long BgL_bufposz00_18651;
				obj_t BgL_iportz00_18641;
				long BgL_lastzd2matchzd2_18642;
				long BgL_forwardz00_18643;
				long BgL_bufposz00_18644;
				obj_t BgL_iportz00_18633;
				long BgL_lastzd2matchzd2_18634;
				long BgL_forwardz00_18635;
				long BgL_bufposz00_18636;
				obj_t BgL_iportz00_18625;
				long BgL_lastzd2matchzd2_18626;
				long BgL_forwardz00_18627;
				long BgL_bufposz00_18628;
				obj_t BgL_iportz00_18589;
				long BgL_lastzd2matchzd2_18590;
				long BgL_forwardz00_18591;
				long BgL_bufposz00_18592;
				obj_t BgL_iportz00_18581;
				long BgL_lastzd2matchzd2_18582;
				long BgL_forwardz00_18583;
				long BgL_bufposz00_18584;
				obj_t BgL_iportz00_18574;
				long BgL_lastzd2matchzd2_18575;
				long BgL_forwardz00_18576;
				long BgL_bufposz00_18577;
				obj_t BgL_iportz00_18567;
				long BgL_lastzd2matchzd2_18568;
				long BgL_forwardz00_18569;
				long BgL_bufposz00_18570;
				obj_t BgL_iportz00_18560;
				long BgL_lastzd2matchzd2_18561;
				long BgL_forwardz00_18562;
				long BgL_bufposz00_18563;
				obj_t BgL_iportz00_18552;
				long BgL_lastzd2matchzd2_18553;
				long BgL_forwardz00_18554;
				long BgL_bufposz00_18555;
				obj_t BgL_iportz00_18536;
				long BgL_lastzd2matchzd2_18537;
				long BgL_forwardz00_18538;
				long BgL_bufposz00_18539;
				obj_t BgL_iportz00_18529;
				long BgL_lastzd2matchzd2_18530;
				long BgL_forwardz00_18531;
				long BgL_bufposz00_18532;
				obj_t BgL_iportz00_18519;
				long BgL_lastzd2matchzd2_18520;
				long BgL_forwardz00_18521;
				long BgL_bufposz00_18522;
				obj_t BgL_iportz00_18512;
				long BgL_lastzd2matchzd2_18513;
				long BgL_forwardz00_18514;
				long BgL_bufposz00_18515;
				obj_t BgL_iportz00_18505;
				long BgL_lastzd2matchzd2_18506;
				long BgL_forwardz00_18507;
				long BgL_bufposz00_18508;
				obj_t BgL_iportz00_18496;
				long BgL_lastzd2matchzd2_18497;
				long BgL_forwardz00_18498;
				long BgL_bufposz00_18499;
				obj_t BgL_iportz00_18488;
				long BgL_lastzd2matchzd2_18489;
				long BgL_forwardz00_18490;
				long BgL_bufposz00_18491;
				obj_t BgL_iportz00_18481;
				long BgL_lastzd2matchzd2_18482;
				long BgL_forwardz00_18483;
				long BgL_bufposz00_18484;
				obj_t BgL_iportz00_18473;
				long BgL_lastzd2matchzd2_18474;
				long BgL_forwardz00_18475;
				long BgL_bufposz00_18476;
				obj_t BgL_iportz00_18465;
				long BgL_lastzd2matchzd2_18466;
				long BgL_forwardz00_18467;
				long BgL_bufposz00_18468;
				obj_t BgL_iportz00_18458;
				long BgL_lastzd2matchzd2_18459;
				long BgL_forwardz00_18460;
				long BgL_bufposz00_18461;
				obj_t BgL_iportz00_18451;
				long BgL_lastzd2matchzd2_18452;
				long BgL_forwardz00_18453;
				long BgL_bufposz00_18454;
				obj_t BgL_iportz00_18444;
				long BgL_lastzd2matchzd2_18445;
				long BgL_forwardz00_18446;
				long BgL_bufposz00_18447;
				obj_t BgL_iportz00_18436;
				long BgL_lastzd2matchzd2_18437;
				long BgL_forwardz00_18438;
				long BgL_bufposz00_18439;
				obj_t BgL_iportz00_18429;
				long BgL_lastzd2matchzd2_18430;
				long BgL_forwardz00_18431;
				long BgL_bufposz00_18432;
				obj_t BgL_iportz00_18413;
				long BgL_lastzd2matchzd2_18414;
				long BgL_forwardz00_18415;
				long BgL_bufposz00_18416;
				obj_t BgL_iportz00_18405;
				long BgL_lastzd2matchzd2_18406;
				long BgL_forwardz00_18407;
				long BgL_bufposz00_18408;
				obj_t BgL_iportz00_18398;
				long BgL_lastzd2matchzd2_18399;
				long BgL_forwardz00_18400;
				long BgL_bufposz00_18401;
				obj_t BgL_iportz00_18391;
				long BgL_lastzd2matchzd2_18392;
				long BgL_forwardz00_18393;
				long BgL_bufposz00_18394;
				obj_t BgL_iportz00_18380;
				long BgL_lastzd2matchzd2_18381;
				long BgL_forwardz00_18382;
				long BgL_bufposz00_18383;
				obj_t BgL_iportz00_18363;
				long BgL_lastzd2matchzd2_18364;
				long BgL_forwardz00_18365;
				long BgL_bufposz00_18366;
				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_18340;
				long BgL_lastzd2matchzd2_18341;
				long BgL_forwardz00_18342;
				long BgL_bufposz00_18343;
				obj_t BgL_iportz00_18330;
				long BgL_lastzd2matchzd2_18331;
				long BgL_forwardz00_18332;
				long BgL_bufposz00_18333;
				obj_t BgL_iportz00_18322;
				long BgL_lastzd2matchzd2_18323;
				long BgL_forwardz00_18324;
				long BgL_bufposz00_18325;

				RGC_START_MATCH(BgL_iportz00_18119);
				{	/* Read/reader.scm 332 */
					long BgL_matchz00_19003;

					{	/* Read/reader.scm 332 */
						long BgL_arg2707z00_19004;
						long BgL_arg2708z00_19005;

						BgL_arg2707z00_19004 = RGC_BUFFER_FORWARD(BgL_iportz00_18119);
						BgL_arg2708z00_19005 = RGC_BUFFER_BUFPOS(BgL_iportz00_18119);
						BgL_iportz00_18380 = BgL_iportz00_18119;
						BgL_lastzd2matchzd2_18381 = 25L;
						BgL_forwardz00_18382 = BgL_arg2707z00_19004;
						BgL_bufposz00_18383 = BgL_arg2708z00_19005;
					BgL_statezd20zd21059z00_18247:
						if ((BgL_forwardz00_18382 == BgL_bufposz00_18383))
							{	/* Read/reader.scm 332 */
								if (rgc_fill_buffer(BgL_iportz00_18380))
									{	/* Read/reader.scm 332 */
										long BgL_arg1604z00_18384;
										long BgL_arg1605z00_18385;

										BgL_arg1604z00_18384 =
											RGC_BUFFER_FORWARD(BgL_iportz00_18380);
										BgL_arg1605z00_18385 =
											RGC_BUFFER_BUFPOS(BgL_iportz00_18380);
										{
											long BgL_bufposz00_29768;
											long BgL_forwardz00_29767;

											BgL_forwardz00_29767 = BgL_arg1604z00_18384;
											BgL_bufposz00_29768 = BgL_arg1605z00_18385;
											BgL_bufposz00_18383 = BgL_bufposz00_29768;
											BgL_forwardz00_18382 = BgL_forwardz00_29767;
											goto BgL_statezd20zd21059z00_18247;
										}
									}
								else
									{	/* Read/reader.scm 332 */
										BgL_matchz00_19003 = BgL_lastzd2matchzd2_18381;
									}
							}
						else
							{	/* Read/reader.scm 332 */
								int BgL_curz00_18386;

								BgL_curz00_18386 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_18380, BgL_forwardz00_18382);
								{	/* Read/reader.scm 332 */

									switch ((long) (BgL_curz00_18386))
										{
										case 122L:

											BgL_iportz00_18747 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18748 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18749 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18750 = BgL_bufposz00_18383;
										BgL_statezd214zd21073z00_18289:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18751;

												RGC_STOP_MATCH(BgL_iportz00_18747,
													BgL_forwardz00_18749);
												BgL_newzd2matchzd2_18751 = 25L;
												if ((BgL_forwardz00_18749 == BgL_bufposz00_18750))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18747))
															{	/* Read/reader.scm 332 */
																long BgL_arg2127z00_18752;
																long BgL_arg2128z00_18753;

																BgL_arg2127z00_18752 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18747);
																BgL_arg2128z00_18753 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18747);
																{
																	long BgL_bufposz00_29778;
																	long BgL_forwardz00_29777;

																	BgL_forwardz00_29777 = BgL_arg2127z00_18752;
																	BgL_bufposz00_29778 = BgL_arg2128z00_18753;
																	BgL_bufposz00_18750 = BgL_bufposz00_29778;
																	BgL_forwardz00_18749 = BgL_forwardz00_29777;
																	goto BgL_statezd214zd21073z00_18289;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18751;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18754;

														BgL_curz00_18754 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18747,
															BgL_forwardz00_18749);
														{	/* Read/reader.scm 332 */

															if (((long) (BgL_curz00_18754) == 120L))
																{	/* Read/reader.scm 332 */
																	BgL_iportz00_18963 = BgL_iportz00_18747;
																	BgL_lastzd2matchzd2_18964 =
																		BgL_newzd2matchzd2_18751;
																	BgL_forwardz00_18965 =
																		(1L + BgL_forwardz00_18749);
																	BgL_bufposz00_18966 = BgL_bufposz00_18750;
																BgL_statezd217zd21076z00_18316:
																	if (
																		(BgL_forwardz00_18965 ==
																			BgL_bufposz00_18966))
																		{	/* Read/reader.scm 332 */
																			if (rgc_fill_buffer(BgL_iportz00_18963))
																				{	/* Read/reader.scm 332 */
																					long BgL_arg2469z00_18967;
																					long BgL_arg2471z00_18968;

																					BgL_arg2469z00_18967 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_18963);
																					BgL_arg2471z00_18968 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_18963);
																					{
																						long BgL_bufposz00_29790;
																						long BgL_forwardz00_29789;

																						BgL_forwardz00_29789 =
																							BgL_arg2469z00_18967;
																						BgL_bufposz00_29790 =
																							BgL_arg2471z00_18968;
																						BgL_bufposz00_18966 =
																							BgL_bufposz00_29790;
																						BgL_forwardz00_18965 =
																							BgL_forwardz00_29789;
																						goto BgL_statezd217zd21076z00_18316;
																					}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_matchz00_19003 =
																						BgL_lastzd2matchzd2_18964;
																				}
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			int BgL_curz00_18969;

																			BgL_curz00_18969 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_18963,
																				BgL_forwardz00_18965);
																			{	/* Read/reader.scm 332 */

																				{	/* Read/reader.scm 332 */
																					bool_t BgL_test9362z00_29792;

																					{	/* Read/reader.scm 332 */
																						bool_t BgL_test9363z00_29793;

																						if (
																							((long) (BgL_curz00_18969) >=
																								48L))
																							{	/* Read/reader.scm 332 */
																								BgL_test9363z00_29793 =
																									(
																									(long) (BgL_curz00_18969) <
																									58L);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_test9363z00_29793 =
																									((bool_t) 0);
																							}
																						if (BgL_test9363z00_29793)
																							{	/* Read/reader.scm 332 */
																								BgL_test9362z00_29792 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9365z00_29799;

																								if (
																									((long) (BgL_curz00_18969) >=
																										65L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9365z00_29799 =
																											(
																											(long) (BgL_curz00_18969)
																											< 71L);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9365z00_29799 =
																											((bool_t) 0);
																									}
																								if (BgL_test9365z00_29799)
																									{	/* Read/reader.scm 332 */
																										BgL_test9362z00_29792 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										if (
																											((long) (BgL_curz00_18969)
																												>= 97L))
																											{	/* Read/reader.scm 332 */
																												BgL_test9362z00_29792 =
																													(
																													(long)
																													(BgL_curz00_18969) <
																													103L);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_test9362z00_29792 =
																													((bool_t) 0);
																											}
																									}
																							}
																					}
																					if (BgL_test9362z00_29792)
																						{	/* Read/reader.scm 332 */
																							BgL_iportz00_18405 =
																								BgL_iportz00_18963;
																							BgL_lastzd2matchzd2_18406 =
																								BgL_lastzd2matchzd2_18964;
																							BgL_forwardz00_18407 =
																								(1L + BgL_forwardz00_18965);
																							BgL_bufposz00_18408 =
																								BgL_bufposz00_18966;
																						BgL_statezd219zd21078z00_18250:
																							{	/* Read/reader.scm 332 */
																								long BgL_newzd2matchzd2_18409;

																								RGC_STOP_MATCH
																									(BgL_iportz00_18405,
																									BgL_forwardz00_18407);
																								BgL_newzd2matchzd2_18409 = 13L;
																								if (
																									(BgL_forwardz00_18407 ==
																										BgL_bufposz00_18408))
																									{	/* Read/reader.scm 332 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18405))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg1655z00_18410;
																												long
																													BgL_arg1656z00_18411;
																												BgL_arg1655z00_18410 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18405);
																												BgL_arg1656z00_18411 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18405);
																												{
																													long
																														BgL_bufposz00_29818;
																													long
																														BgL_forwardz00_29817;
																													BgL_forwardz00_29817 =
																														BgL_arg1655z00_18410;
																													BgL_bufposz00_29818 =
																														BgL_arg1656z00_18411;
																													BgL_bufposz00_18408 =
																														BgL_bufposz00_29818;
																													BgL_forwardz00_18407 =
																														BgL_forwardz00_29817;
																													goto
																														BgL_statezd219zd21078z00_18250;
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_newzd2matchzd2_18409;
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										int BgL_curz00_18412;

																										BgL_curz00_18412 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18405,
																											BgL_forwardz00_18407);
																										{	/* Read/reader.scm 332 */

																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9370z00_29820;
																												{	/* Read/reader.scm 332 */
																													bool_t
																														BgL_test9371z00_29821;
																													if (((long)
																															(BgL_curz00_18412)
																															>= 48L))
																														{	/* Read/reader.scm 332 */
																															BgL_test9371z00_29821
																																=
																																((long)
																																(BgL_curz00_18412)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_test9371z00_29821
																																= ((bool_t) 0);
																														}
																													if (BgL_test9371z00_29821)
																														{	/* Read/reader.scm 332 */
																															BgL_test9370z00_29820
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															bool_t
																																BgL_test9373z00_29827;
																															if (((long)
																																	(BgL_curz00_18412)
																																	>= 65L))
																																{	/* Read/reader.scm 332 */
																																	BgL_test9373z00_29827
																																		=
																																		((long)
																																		(BgL_curz00_18412)
																																		< 71L);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_test9373z00_29827
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9373z00_29827)
																																{	/* Read/reader.scm 332 */
																																	BgL_test9370z00_29820
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	if (
																																		((long)
																																			(BgL_curz00_18412)
																																			>= 97L))
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9370z00_29820
																																				=
																																				((long)
																																				(BgL_curz00_18412)
																																				< 103L);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9370z00_29820
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test9370z00_29820)
																													{
																														long
																															BgL_forwardz00_29839;
																														long
																															BgL_lastzd2matchzd2_29838;
																														BgL_lastzd2matchzd2_29838
																															=
																															BgL_newzd2matchzd2_18409;
																														BgL_forwardz00_29839
																															=
																															(1L +
																															BgL_forwardz00_18407);
																														BgL_forwardz00_18407
																															=
																															BgL_forwardz00_29839;
																														BgL_lastzd2matchzd2_18406
																															=
																															BgL_lastzd2matchzd2_29838;
																														goto
																															BgL_statezd219zd21078z00_18250;
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_matchz00_19003 =
																															BgL_newzd2matchzd2_18409;
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_lastzd2matchzd2_18964;
																						}
																				}
																			}
																		}
																}
															else
																{	/* Read/reader.scm 332 */
																	bool_t BgL_test9376z00_29843;

																	if (((long) (BgL_curz00_18754) >= 48L))
																		{	/* Read/reader.scm 332 */
																			BgL_test9376z00_29843 =
																				((long) (BgL_curz00_18754) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			BgL_test9376z00_29843 = ((bool_t) 0);
																		}
																	if (BgL_test9376z00_29843)
																		{	/* Read/reader.scm 332 */
																			BgL_iportz00_18552 = BgL_iportz00_18747;
																			BgL_lastzd2matchzd2_18553 =
																				BgL_newzd2matchzd2_18751;
																			BgL_forwardz00_18554 =
																				(1L + BgL_forwardz00_18749);
																			BgL_bufposz00_18555 = BgL_bufposz00_18750;
																		BgL_statezd216zd21075z00_18267:
																			{	/* Read/reader.scm 332 */
																				long BgL_newzd2matchzd2_18556;

																				RGC_STOP_MATCH(BgL_iportz00_18552,
																					BgL_forwardz00_18554);
																				BgL_newzd2matchzd2_18556 = 12L;
																				if (
																					(BgL_forwardz00_18554 ==
																						BgL_bufposz00_18555))
																					{	/* Read/reader.scm 332 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18552))
																							{	/* Read/reader.scm 332 */
																								long BgL_arg1884z00_18557;
																								long BgL_arg1885z00_18558;

																								BgL_arg1884z00_18557 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18552);
																								BgL_arg1885z00_18558 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18552);
																								{
																									long BgL_bufposz00_29857;
																									long BgL_forwardz00_29856;

																									BgL_forwardz00_29856 =
																										BgL_arg1884z00_18557;
																									BgL_bufposz00_29857 =
																										BgL_arg1885z00_18558;
																									BgL_bufposz00_18555 =
																										BgL_bufposz00_29857;
																									BgL_forwardz00_18554 =
																										BgL_forwardz00_29856;
																									goto
																										BgL_statezd216zd21075z00_18267;
																								}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_newzd2matchzd2_18556;
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						int BgL_curz00_18559;

																						BgL_curz00_18559 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18552,
																							BgL_forwardz00_18554);
																						{	/* Read/reader.scm 332 */

																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9380z00_29859;

																								if (
																									((long) (BgL_curz00_18559) >=
																										48L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9380z00_29859 =
																											(
																											(long) (BgL_curz00_18559)
																											< 58L);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9380z00_29859 =
																											((bool_t) 0);
																									}
																								if (BgL_test9380z00_29859)
																									{
																										long BgL_forwardz00_29866;
																										long
																											BgL_lastzd2matchzd2_29865;
																										BgL_lastzd2matchzd2_29865 =
																											BgL_newzd2matchzd2_18556;
																										BgL_forwardz00_29866 =
																											(1L +
																											BgL_forwardz00_18554);
																										BgL_forwardz00_18554 =
																											BgL_forwardz00_29866;
																										BgL_lastzd2matchzd2_18553 =
																											BgL_lastzd2matchzd2_29865;
																										goto
																											BgL_statezd216zd21075z00_18267;
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_newzd2matchzd2_18556;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			bool_t BgL_test9382z00_29869;

																			if (((long) (BgL_curz00_18754) == 43L))
																				{	/* Read/reader.scm 332 */
																					BgL_test9382z00_29869 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_test9382z00_29869 =
																						((long) (BgL_curz00_18754) == 45L);
																				}
																			if (BgL_test9382z00_29869)
																				{	/* Read/reader.scm 332 */
																					BgL_iportz00_18762 =
																						BgL_iportz00_18747;
																					BgL_lastzd2matchzd2_18763 =
																						BgL_newzd2matchzd2_18751;
																					BgL_forwardz00_18764 =
																						(1L + BgL_forwardz00_18749);
																					BgL_bufposz00_18765 =
																						BgL_bufposz00_18750;
																				BgL_statezd215zd21074z00_18291:
																					if (
																						(BgL_forwardz00_18764 ==
																							BgL_bufposz00_18765))
																						{	/* Read/reader.scm 332 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_18762))
																								{	/* Read/reader.scm 332 */
																									long BgL_arg2152z00_18766;
																									long BgL_arg2153z00_18767;

																									BgL_arg2152z00_18766 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_18762);
																									BgL_arg2153z00_18767 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_18762);
																									{
																										long BgL_bufposz00_29882;
																										long BgL_forwardz00_29881;

																										BgL_forwardz00_29881 =
																											BgL_arg2152z00_18766;
																										BgL_bufposz00_29882 =
																											BgL_arg2153z00_18767;
																										BgL_bufposz00_18765 =
																											BgL_bufposz00_29882;
																										BgL_forwardz00_18764 =
																											BgL_forwardz00_29881;
																										goto
																											BgL_statezd215zd21074z00_18291;
																									}
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_matchz00_19003 =
																										BgL_lastzd2matchzd2_18763;
																								}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							int BgL_curz00_18768;

																							BgL_curz00_18768 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_18762,
																								BgL_forwardz00_18764);
																							{	/* Read/reader.scm 332 */

																								{	/* Read/reader.scm 332 */
																									bool_t BgL_test9386z00_29884;

																									if (
																										((long) (BgL_curz00_18768)
																											>= 48L))
																										{	/* Read/reader.scm 332 */
																											BgL_test9386z00_29884 =
																												(
																												(long)
																												(BgL_curz00_18768) <
																												58L);
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_test9386z00_29884 =
																												((bool_t) 0);
																										}
																									if (BgL_test9386z00_29884)
																										{
																											long BgL_bufposz00_29894;
																											long BgL_forwardz00_29892;
																											long
																												BgL_lastzd2matchzd2_29891;
																											obj_t BgL_iportz00_29890;

																											BgL_iportz00_29890 =
																												BgL_iportz00_18762;
																											BgL_lastzd2matchzd2_29891
																												=
																												BgL_lastzd2matchzd2_18763;
																											BgL_forwardz00_29892 =
																												(1L +
																												BgL_forwardz00_18764);
																											BgL_bufposz00_29894 =
																												BgL_bufposz00_18765;
																											BgL_bufposz00_18555 =
																												BgL_bufposz00_29894;
																											BgL_forwardz00_18554 =
																												BgL_forwardz00_29892;
																											BgL_lastzd2matchzd2_18553
																												=
																												BgL_lastzd2matchzd2_29891;
																											BgL_iportz00_18552 =
																												BgL_iportz00_29890;
																											goto
																												BgL_statezd216zd21075z00_18267;
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_matchz00_19003 =
																												BgL_lastzd2matchzd2_18763;
																										}
																								}
																							}
																						}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_matchz00_19003 =
																						BgL_newzd2matchzd2_18751;
																				}
																		}
																}
														}
													}
											}
											break;
										case 120L:

											BgL_iportz00_18994 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18995 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18996 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18997 = BgL_bufposz00_18383;
										BgL_statezd213zd21072z00_18319:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18998;

												RGC_STOP_MATCH(BgL_iportz00_18994,
													BgL_forwardz00_18996);
												BgL_newzd2matchzd2_18998 = 25L;
												if ((BgL_forwardz00_18996 == BgL_bufposz00_18997))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18994))
															{	/* Read/reader.scm 332 */
																long BgL_arg2505z00_18999;
																long BgL_arg2506z00_19000;

																BgL_arg2505z00_18999 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18994);
																BgL_arg2506z00_19000 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18994);
																{
																	long BgL_bufposz00_29905;
																	long BgL_forwardz00_29904;

																	BgL_forwardz00_29904 = BgL_arg2505z00_18999;
																	BgL_bufposz00_29905 = BgL_arg2506z00_19000;
																	BgL_bufposz00_18997 = BgL_bufposz00_29905;
																	BgL_forwardz00_18996 = BgL_forwardz00_29904;
																	goto BgL_statezd213zd21072z00_18319;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18998;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_19001;

														BgL_curz00_19001 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18994,
															BgL_forwardz00_18996);
														{	/* Read/reader.scm 332 */

															{	/* Read/reader.scm 332 */
																bool_t BgL_test9390z00_29907;

																{	/* Read/reader.scm 332 */
																	bool_t BgL_test9391z00_29908;

																	if (((long) (BgL_curz00_19001) >= 48L))
																		{	/* Read/reader.scm 332 */
																			BgL_test9391z00_29908 =
																				((long) (BgL_curz00_19001) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			BgL_test9391z00_29908 = ((bool_t) 0);
																		}
																	if (BgL_test9391z00_29908)
																		{	/* Read/reader.scm 332 */
																			BgL_test9390z00_29907 = ((bool_t) 1);
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			bool_t BgL_test9393z00_29914;

																			if (((long) (BgL_curz00_19001) >= 65L))
																				{	/* Read/reader.scm 332 */
																					BgL_test9393z00_29914 =
																						((long) (BgL_curz00_19001) < 71L);
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_test9393z00_29914 = ((bool_t) 0);
																				}
																			if (BgL_test9393z00_29914)
																				{	/* Read/reader.scm 332 */
																					BgL_test9390z00_29907 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					if (
																						((long) (BgL_curz00_19001) >= 97L))
																						{	/* Read/reader.scm 332 */
																							BgL_test9390z00_29907 =
																								(
																								(long) (BgL_curz00_19001) <
																								103L);
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_test9390z00_29907 =
																								((bool_t) 0);
																						}
																				}
																		}
																}
																if (BgL_test9390z00_29907)
																	{	/* Read/reader.scm 332 */
																		BgL_iportz00_18581 = BgL_iportz00_18994;
																		BgL_lastzd2matchzd2_18582 =
																			BgL_newzd2matchzd2_18998;
																		BgL_forwardz00_18583 =
																			(1L + BgL_forwardz00_18996);
																		BgL_bufposz00_18584 = BgL_bufposz00_18997;
																	BgL_statezd221zd21080z00_18271:
																		{	/* Read/reader.scm 332 */
																			long BgL_newzd2matchzd2_18585;

																			RGC_STOP_MATCH(BgL_iportz00_18581,
																				BgL_forwardz00_18583);
																			BgL_newzd2matchzd2_18585 = 11L;
																			if (
																				(BgL_forwardz00_18583 ==
																					BgL_bufposz00_18584))
																				{	/* Read/reader.scm 332 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18581))
																						{	/* Read/reader.scm 332 */
																							long BgL_arg1928z00_18586;
																							long BgL_arg1929z00_18587;

																							BgL_arg1928z00_18586 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18581);
																							BgL_arg1929z00_18587 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18581);
																							{
																								long BgL_bufposz00_29933;
																								long BgL_forwardz00_29932;

																								BgL_forwardz00_29932 =
																									BgL_arg1928z00_18586;
																								BgL_bufposz00_29933 =
																									BgL_arg1929z00_18587;
																								BgL_bufposz00_18584 =
																									BgL_bufposz00_29933;
																								BgL_forwardz00_18583 =
																									BgL_forwardz00_29932;
																								goto
																									BgL_statezd221zd21080z00_18271;
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_newzd2matchzd2_18585;
																						}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					int BgL_curz00_18588;

																					BgL_curz00_18588 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18581,
																						BgL_forwardz00_18583);
																					{	/* Read/reader.scm 332 */

																						{	/* Read/reader.scm 332 */
																							bool_t BgL_test9398z00_29935;

																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9399z00_29936;

																								if (
																									((long) (BgL_curz00_18588) >=
																										48L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9399z00_29936 =
																											(
																											(long) (BgL_curz00_18588)
																											< 58L);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9399z00_29936 =
																											((bool_t) 0);
																									}
																								if (BgL_test9399z00_29936)
																									{	/* Read/reader.scm 332 */
																										BgL_test9398z00_29935 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										bool_t
																											BgL_test9401z00_29942;
																										if (((long)
																												(BgL_curz00_18588) >=
																												65L))
																											{	/* Read/reader.scm 332 */
																												BgL_test9401z00_29942 =
																													(
																													(long)
																													(BgL_curz00_18588) <
																													71L);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_test9401z00_29942 =
																													((bool_t) 0);
																											}
																										if (BgL_test9401z00_29942)
																											{	/* Read/reader.scm 332 */
																												BgL_test9398z00_29935 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												if (
																													((long)
																														(BgL_curz00_18588)
																														>= 97L))
																													{	/* Read/reader.scm 332 */
																														BgL_test9398z00_29935
																															=
																															((long)
																															(BgL_curz00_18588)
																															< 103L);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_test9398z00_29935
																															= ((bool_t) 0);
																													}
																											}
																									}
																							}
																							if (BgL_test9398z00_29935)
																								{
																									long BgL_forwardz00_29954;
																									long
																										BgL_lastzd2matchzd2_29953;
																									BgL_lastzd2matchzd2_29953 =
																										BgL_newzd2matchzd2_18585;
																									BgL_forwardz00_29954 =
																										(1L + BgL_forwardz00_18583);
																									BgL_forwardz00_18583 =
																										BgL_forwardz00_29954;
																									BgL_lastzd2matchzd2_18582 =
																										BgL_lastzd2matchzd2_29953;
																									goto
																										BgL_statezd221zd21080z00_18271;
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_matchz00_19003 =
																										BgL_newzd2matchzd2_18585;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 332 */
																		bool_t BgL_test9404z00_29957;

																		if (((long) (BgL_curz00_19001) == 43L))
																			{	/* Read/reader.scm 332 */
																				BgL_test9404z00_29957 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_test9404z00_29957 =
																					((long) (BgL_curz00_19001) == 45L);
																			}
																		if (BgL_test9404z00_29957)
																			{	/* Read/reader.scm 332 */
																				BgL_iportz00_18505 = BgL_iportz00_18994;
																				BgL_lastzd2matchzd2_18506 =
																					BgL_newzd2matchzd2_18998;
																				BgL_forwardz00_18507 =
																					(1L + BgL_forwardz00_18996);
																				BgL_bufposz00_18508 =
																					BgL_bufposz00_18997;
																			BgL_statezd220zd21079z00_18262:
																				if (
																					(BgL_forwardz00_18507 ==
																						BgL_bufposz00_18508))
																					{	/* Read/reader.scm 332 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18505))
																							{	/* Read/reader.scm 332 */
																								long BgL_arg1833z00_18509;
																								long BgL_arg1834z00_18510;

																								BgL_arg1833z00_18509 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18505);
																								BgL_arg1834z00_18510 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18505);
																								{
																									long BgL_bufposz00_29970;
																									long BgL_forwardz00_29969;

																									BgL_forwardz00_29969 =
																										BgL_arg1833z00_18509;
																									BgL_bufposz00_29970 =
																										BgL_arg1834z00_18510;
																									BgL_bufposz00_18508 =
																										BgL_bufposz00_29970;
																									BgL_forwardz00_18507 =
																										BgL_forwardz00_29969;
																									goto
																										BgL_statezd220zd21079z00_18262;
																								}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_lastzd2matchzd2_18506;
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						int BgL_curz00_18511;

																						BgL_curz00_18511 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18505,
																							BgL_forwardz00_18507);
																						{	/* Read/reader.scm 332 */

																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9408z00_29972;

																								{	/* Read/reader.scm 332 */
																									bool_t BgL_test9409z00_29973;

																									if (
																										((long) (BgL_curz00_18511)
																											>= 48L))
																										{	/* Read/reader.scm 332 */
																											BgL_test9409z00_29973 =
																												(
																												(long)
																												(BgL_curz00_18511) <
																												58L);
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_test9409z00_29973 =
																												((bool_t) 0);
																										}
																									if (BgL_test9409z00_29973)
																										{	/* Read/reader.scm 332 */
																											BgL_test9408z00_29972 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											bool_t
																												BgL_test9411z00_29979;
																											if (((long)
																													(BgL_curz00_18511) >=
																													65L))
																												{	/* Read/reader.scm 332 */
																													BgL_test9411z00_29979
																														=
																														((long)
																														(BgL_curz00_18511) <
																														71L);
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_test9411z00_29979
																														= ((bool_t) 0);
																												}
																											if (BgL_test9411z00_29979)
																												{	/* Read/reader.scm 332 */
																													BgL_test9408z00_29972
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													if (
																														((long)
																															(BgL_curz00_18511)
																															>= 97L))
																														{	/* Read/reader.scm 332 */
																															BgL_test9408z00_29972
																																=
																																((long)
																																(BgL_curz00_18511)
																																< 103L);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_test9408z00_29972
																																= ((bool_t) 0);
																														}
																												}
																										}
																								}
																								if (BgL_test9408z00_29972)
																									{
																										long BgL_bufposz00_29994;
																										long BgL_forwardz00_29992;
																										long
																											BgL_lastzd2matchzd2_29991;
																										obj_t BgL_iportz00_29990;

																										BgL_iportz00_29990 =
																											BgL_iportz00_18505;
																										BgL_lastzd2matchzd2_29991 =
																											BgL_lastzd2matchzd2_18506;
																										BgL_forwardz00_29992 =
																											(1L +
																											BgL_forwardz00_18507);
																										BgL_bufposz00_29994 =
																											BgL_bufposz00_18508;
																										BgL_bufposz00_18584 =
																											BgL_bufposz00_29994;
																										BgL_forwardz00_18583 =
																											BgL_forwardz00_29992;
																										BgL_lastzd2matchzd2_18582 =
																											BgL_lastzd2matchzd2_29991;
																										BgL_iportz00_18581 =
																											BgL_iportz00_29990;
																										goto
																											BgL_statezd221zd21080z00_18271;
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_lastzd2matchzd2_18506;
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_matchz00_19003 =
																					BgL_newzd2matchzd2_18998;
																			}
																	}
															}
														}
													}
											}
											break;
										case 117L:

											BgL_iportz00_18496 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18497 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18498 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18499 = BgL_bufposz00_18383;
										BgL_statezd212zd21071z00_18261:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18500;

												RGC_STOP_MATCH(BgL_iportz00_18496,
													BgL_forwardz00_18498);
												BgL_newzd2matchzd2_18500 = 25L;
												if ((BgL_forwardz00_18498 == BgL_bufposz00_18499))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18496))
															{	/* Read/reader.scm 332 */
																long BgL_arg1797z00_18501;
																long BgL_arg1798z00_18502;

																BgL_arg1797z00_18501 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18496);
																BgL_arg1798z00_18502 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18496);
																{
																	long BgL_bufposz00_30005;
																	long BgL_forwardz00_30004;

																	BgL_forwardz00_30004 = BgL_arg1797z00_18501;
																	BgL_bufposz00_30005 = BgL_arg1798z00_18502;
																	BgL_bufposz00_18499 = BgL_bufposz00_30005;
																	BgL_forwardz00_18498 = BgL_forwardz00_30004;
																	goto BgL_statezd212zd21071z00_18261;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18500;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18503;

														BgL_curz00_18503 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18496,
															BgL_forwardz00_18498);
														{	/* Read/reader.scm 332 */

															{	/* Read/reader.scm 332 */
																bool_t BgL_test9416z00_30007;

																if (((long) (BgL_curz00_18503) >= 98L))
																	{	/* Read/reader.scm 332 */
																		BgL_test9416z00_30007 =
																			((long) (BgL_curz00_18503) < 103L);
																	}
																else
																	{	/* Read/reader.scm 332 */
																		BgL_test9416z00_30007 = ((bool_t) 0);
																	}
																if (BgL_test9416z00_30007)
																	{	/* Read/reader.scm 332 */
																		BgL_iportz00_18340 = BgL_iportz00_18496;
																		BgL_lastzd2matchzd2_18341 =
																			BgL_newzd2matchzd2_18500;
																		BgL_forwardz00_18342 =
																			(1L + BgL_forwardz00_18498);
																		BgL_bufposz00_18343 = BgL_bufposz00_18499;
																	BgL_statezd229zd21088z00_18243:
																		{	/* Read/reader.scm 332 */
																			long BgL_newzd2matchzd2_18344;

																			RGC_STOP_MATCH(BgL_iportz00_18340,
																				BgL_forwardz00_18342);
																			BgL_newzd2matchzd2_18344 = 14L;
																			if (
																				(BgL_forwardz00_18342 ==
																					BgL_bufposz00_18343))
																				{	/* Read/reader.scm 332 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18340))
																						{	/* Read/reader.scm 332 */
																							long BgL_arg1548z00_18345;
																							long BgL_arg1550z00_18346;

																							BgL_arg1548z00_18345 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18340);
																							BgL_arg1550z00_18346 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18340);
																							{
																								long BgL_bufposz00_30021;
																								long BgL_forwardz00_30020;

																								BgL_forwardz00_30020 =
																									BgL_arg1548z00_18345;
																								BgL_bufposz00_30021 =
																									BgL_arg1550z00_18346;
																								BgL_bufposz00_18343 =
																									BgL_bufposz00_30021;
																								BgL_forwardz00_18342 =
																									BgL_forwardz00_30020;
																								goto
																									BgL_statezd229zd21088z00_18243;
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_newzd2matchzd2_18344;
																						}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					int BgL_curz00_18347;

																					BgL_curz00_18347 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18340,
																						BgL_forwardz00_18342);
																					{	/* Read/reader.scm 332 */

																						{	/* Read/reader.scm 332 */
																							bool_t BgL_test9420z00_30023;

																							if (
																								((long) (BgL_curz00_18347) >=
																									98L))
																								{	/* Read/reader.scm 332 */
																									BgL_test9420z00_30023 =
																										(
																										(long) (BgL_curz00_18347) <
																										103L);
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_test9420z00_30023 =
																										((bool_t) 0);
																								}
																							if (BgL_test9420z00_30023)
																								{	/* Read/reader.scm 332 */
																									BgL_iportz00_18800 =
																										BgL_iportz00_18340;
																									BgL_lastzd2matchzd2_18801 =
																										BgL_newzd2matchzd2_18344;
																									BgL_forwardz00_18802 =
																										(1L + BgL_forwardz00_18342);
																									BgL_bufposz00_18803 =
																										BgL_bufposz00_18343;
																								BgL_statezd231zd21090z00_18296:
																									{	/* Read/reader.scm 332 */
																										long
																											BgL_newzd2matchzd2_18804;
																										RGC_STOP_MATCH
																											(BgL_iportz00_18800,
																											BgL_forwardz00_18802);
																										BgL_newzd2matchzd2_18804 =
																											14L;
																										if ((BgL_forwardz00_18802 ==
																												BgL_bufposz00_18803))
																											{	/* Read/reader.scm 332 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_18800))
																													{	/* Read/reader.scm 332 */
																														long
																															BgL_arg2202z00_18805;
																														long
																															BgL_arg2203z00_18806;
																														BgL_arg2202z00_18805
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_18800);
																														BgL_arg2203z00_18806
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_18800);
																														{
																															long
																																BgL_bufposz00_30037;
																															long
																																BgL_forwardz00_30036;
																															BgL_forwardz00_30036
																																=
																																BgL_arg2202z00_18805;
																															BgL_bufposz00_30037
																																=
																																BgL_arg2203z00_18806;
																															BgL_bufposz00_18803
																																=
																																BgL_bufposz00_30037;
																															BgL_forwardz00_18802
																																=
																																BgL_forwardz00_30036;
																															goto
																																BgL_statezd231zd21090z00_18296;
																														}
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_matchz00_19003 =
																															BgL_newzd2matchzd2_18804;
																													}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												int BgL_curz00_18807;

																												BgL_curz00_18807 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_18800,
																													BgL_forwardz00_18802);
																												{	/* Read/reader.scm 332 */

																													{	/* Read/reader.scm 332 */
																														bool_t
																															BgL_test9424z00_30039;
																														if (((long)
																																(BgL_curz00_18807)
																																>= 98L))
																															{	/* Read/reader.scm 332 */
																																BgL_test9424z00_30039
																																	=
																																	((long)
																																	(BgL_curz00_18807)
																																	< 103L);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_test9424z00_30039
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test9424z00_30039)
																															{	/* Read/reader.scm 332 */
																																BgL_iportz00_18865
																																	=
																																	BgL_iportz00_18800;
																																BgL_lastzd2matchzd2_18866
																																	=
																																	BgL_newzd2matchzd2_18804;
																																BgL_forwardz00_18867
																																	=
																																	(1L +
																																	BgL_forwardz00_18802);
																																BgL_bufposz00_18868
																																	=
																																	BgL_bufposz00_18803;
																															BgL_statezd233zd21092z00_18304:
																																{	/* Read/reader.scm 332 */
																																	long
																																		BgL_newzd2matchzd2_18869;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_18865,
																																		BgL_forwardz00_18867);
																																	BgL_newzd2matchzd2_18869
																																		= 14L;
																																	if (
																																		(BgL_forwardz00_18867
																																			==
																																			BgL_bufposz00_18868))
																																		{	/* Read/reader.scm 332 */
																																			if (rgc_fill_buffer(BgL_iportz00_18865))
																																				{	/* Read/reader.scm 332 */
																																					long
																																						BgL_arg2320z00_18870;
																																					long
																																						BgL_arg2322z00_18871;
																																					BgL_arg2320z00_18870
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_18865);
																																					BgL_arg2322z00_18871
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_18865);
																																					{
																																						long
																																							BgL_bufposz00_30053;
																																						long
																																							BgL_forwardz00_30052;
																																						BgL_forwardz00_30052
																																							=
																																							BgL_arg2320z00_18870;
																																						BgL_bufposz00_30053
																																							=
																																							BgL_arg2322z00_18871;
																																						BgL_bufposz00_18868
																																							=
																																							BgL_bufposz00_30053;
																																						BgL_forwardz00_18867
																																							=
																																							BgL_forwardz00_30052;
																																						goto
																																							BgL_statezd233zd21092z00_18304;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_matchz00_19003
																																						=
																																						BgL_newzd2matchzd2_18869;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			int
																																				BgL_curz00_18872;
																																			BgL_curz00_18872
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_18865,
																																				BgL_forwardz00_18867);
																																			{	/* Read/reader.scm 332 */

																																				{	/* Read/reader.scm 332 */
																																					bool_t
																																						BgL_test9428z00_30055;
																																					if ((
																																							(long)
																																							(BgL_curz00_18872)
																																							>=
																																							98L))
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9428z00_30055
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18872)
																																								<
																																								103L);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9428z00_30055
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9428z00_30055)
																																						{	/* Read/reader.scm 332 */
																																							BgL_iportz00_18876
																																								=
																																								BgL_iportz00_18865;
																																							BgL_lastzd2matchzd2_18877
																																								=
																																								BgL_newzd2matchzd2_18869;
																																							BgL_forwardz00_18878
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_18867);
																																							BgL_bufposz00_18879
																																								=
																																								BgL_bufposz00_18868;
																																						BgL_statezd235zd21094z00_18305:
																																							{	/* Read/reader.scm 332 */
																																								long
																																									BgL_newzd2matchzd2_18880;
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_18876,
																																									BgL_forwardz00_18878);
																																								BgL_newzd2matchzd2_18880
																																									=
																																									1L;
																																								if ((BgL_forwardz00_18878 == BgL_bufposz00_18879))
																																									{	/* Read/reader.scm 332 */
																																										if (rgc_fill_buffer(BgL_iportz00_18876))
																																											{	/* Read/reader.scm 332 */
																																												long
																																													BgL_arg2344z00_18881;
																																												long
																																													BgL_arg2345z00_18882;
																																												BgL_arg2344z00_18881
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_iportz00_18876);
																																												BgL_arg2345z00_18882
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_iportz00_18876);
																																												{
																																													long
																																														BgL_bufposz00_30069;
																																													long
																																														BgL_forwardz00_30068;
																																													BgL_forwardz00_30068
																																														=
																																														BgL_arg2344z00_18881;
																																													BgL_bufposz00_30069
																																														=
																																														BgL_arg2345z00_18882;
																																													BgL_bufposz00_18879
																																														=
																																														BgL_bufposz00_30069;
																																													BgL_forwardz00_18878
																																														=
																																														BgL_forwardz00_30068;
																																													goto
																																														BgL_statezd235zd21094z00_18305;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 332 */
																																												BgL_matchz00_19003
																																													=
																																													BgL_newzd2matchzd2_18880;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										int
																																											BgL_curz00_18883;
																																										BgL_curz00_18883
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_iportz00_18876,
																																											BgL_forwardz00_18878);
																																										{	/* Read/reader.scm 332 */

																																											{	/* Read/reader.scm 332 */
																																												bool_t
																																													BgL_test9432z00_30071;
																																												if (((long) (BgL_curz00_18883) == 45L))
																																													{	/* Read/reader.scm 332 */
																																														BgL_test9432z00_30071
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 332 */
																																														bool_t
																																															BgL_test9434z00_30075;
																																														if (((long) (BgL_curz00_18883) >= 98L))
																																															{	/* Read/reader.scm 332 */
																																																BgL_test9434z00_30075
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_18883)
																																																	<
																																																	103L);
																																															}
																																														else
																																															{	/* Read/reader.scm 332 */
																																																BgL_test9434z00_30075
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test9434z00_30075)
																																															{	/* Read/reader.scm 332 */
																																																BgL_test9432z00_30071
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 332 */
																																																bool_t
																																																	BgL_test9436z00_30081;
																																																if (((long) (BgL_curz00_18883) == 106L))
																																																	{	/* Read/reader.scm 332 */
																																																		BgL_test9436z00_30081
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 332 */
																																																		BgL_test9436z00_30081
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_18883)
																																																			==
																																																			105L);
																																																	}
																																																if (BgL_test9436z00_30081)
																																																	{	/* Read/reader.scm 332 */
																																																		BgL_test9432z00_30071
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 332 */
																																																		bool_t
																																																			BgL_test9438z00_30087;
																																																		if (((long) (BgL_curz00_18883) == 112L))
																																																			{	/* Read/reader.scm 332 */
																																																				BgL_test9438z00_30087
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 332 */
																																																				if (((long) (BgL_curz00_18883) == 111L))
																																																					{	/* Read/reader.scm 332 */
																																																						BgL_test9438z00_30087
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 332 */
																																																						BgL_test9438z00_30087
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_18883)
																																																							==
																																																							110L);
																																																			}}
																																																		if (BgL_test9438z00_30087)
																																																			{	/* Read/reader.scm 332 */
																																																				BgL_test9432z00_30071
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 332 */
																																																				bool_t
																																																					BgL__ortest_1180z00_18884;
																																																				BgL__ortest_1180z00_18884
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_18883)
																																																					==
																																																					116L);
																																																				if (BgL__ortest_1180z00_18884)
																																																					{	/* Read/reader.scm 332 */
																																																						BgL_test9432z00_30071
																																																							=
																																																							BgL__ortest_1180z00_18884;
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 332 */
																																																						BgL_test9432z00_30071
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_18883)
																																																							==
																																																							115L);
																																													}}}}}
																																												if (BgL_test9432z00_30071)
																																													{	/* Read/reader.scm 332 */
																																														BgL_iportz00_18670
																																															=
																																															BgL_iportz00_18876;
																																														BgL_lastzd2matchzd2_18671
																																															=
																																															BgL_newzd2matchzd2_18880;
																																														BgL_forwardz00_18672
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_18878);
																																														BgL_bufposz00_18673
																																															=
																																															BgL_bufposz00_18879;
																																													BgL_statezd223zd21082z00_18279:
																																														{	/* Read/reader.scm 332 */
																																															long
																																																BgL_newzd2matchzd2_18674;
																																															RGC_STOP_MATCH
																																																(BgL_iportz00_18670,
																																																BgL_forwardz00_18672);
																																															BgL_newzd2matchzd2_18674
																																																=
																																																14L;
																																															if ((BgL_forwardz00_18672 == BgL_bufposz00_18673))
																																																{	/* Read/reader.scm 332 */
																																																	if (rgc_fill_buffer(BgL_iportz00_18670))
																																																		{	/* Read/reader.scm 332 */
																																																			long
																																																				BgL_arg2016z00_18675;
																																																			long
																																																				BgL_arg2018z00_18676;
																																																			BgL_arg2016z00_18675
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_iportz00_18670);
																																																			BgL_arg2018z00_18676
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_iportz00_18670);
																																																			{
																																																				long
																																																					BgL_bufposz00_30109;
																																																				long
																																																					BgL_forwardz00_30108;
																																																				BgL_forwardz00_30108
																																																					=
																																																					BgL_arg2016z00_18675;
																																																				BgL_bufposz00_30109
																																																					=
																																																					BgL_arg2018z00_18676;
																																																				BgL_bufposz00_18673
																																																					=
																																																					BgL_bufposz00_30109;
																																																				BgL_forwardz00_18672
																																																					=
																																																					BgL_forwardz00_30108;
																																																				goto
																																																					BgL_statezd223zd21082z00_18279;
																																																			}
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 332 */
																																																			BgL_matchz00_19003
																																																				=
																																																				BgL_newzd2matchzd2_18674;
																																																		}
																																																}
																																															else
																																																{	/* Read/reader.scm 332 */
																																																	int
																																																		BgL_curz00_18677;
																																																	BgL_curz00_18677
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_iportz00_18670,
																																																		BgL_forwardz00_18672);
																																																	{	/* Read/reader.scm 332 */

																																																		{	/* Read/reader.scm 332 */
																																																			bool_t
																																																				BgL_test9444z00_30111;
																																																			if (((long) (BgL_curz00_18677) == 45L))
																																																				{	/* Read/reader.scm 332 */
																																																					BgL_test9444z00_30111
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 332 */
																																																					bool_t
																																																						BgL_test9446z00_30115;
																																																					if (((long) (BgL_curz00_18677) >= 98L))
																																																						{	/* Read/reader.scm 332 */
																																																							BgL_test9446z00_30115
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_18677)
																																																								<
																																																								103L);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 332 */
																																																							BgL_test9446z00_30115
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test9446z00_30115)
																																																						{	/* Read/reader.scm 332 */
																																																							BgL_test9444z00_30111
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 332 */
																																																							bool_t
																																																								BgL_test9448z00_30121;
																																																							if (((long) (BgL_curz00_18677) == 106L))
																																																								{	/* Read/reader.scm 332 */
																																																									BgL_test9448z00_30121
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 332 */
																																																									BgL_test9448z00_30121
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_18677)
																																																										==
																																																										105L);
																																																								}
																																																							if (BgL_test9448z00_30121)
																																																								{	/* Read/reader.scm 332 */
																																																									BgL_test9444z00_30111
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 332 */
																																																									bool_t
																																																										BgL_test9450z00_30127;
																																																									if (((long) (BgL_curz00_18677) == 112L))
																																																										{	/* Read/reader.scm 332 */
																																																											BgL_test9450z00_30127
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 332 */
																																																											if (((long) (BgL_curz00_18677) == 111L))
																																																												{	/* Read/reader.scm 332 */
																																																													BgL_test9450z00_30127
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 332 */
																																																													BgL_test9450z00_30127
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_18677)
																																																														==
																																																														110L);
																																																										}}
																																																									if (BgL_test9450z00_30127)
																																																										{	/* Read/reader.scm 332 */
																																																											BgL_test9444z00_30111
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 332 */
																																																											bool_t
																																																												BgL__ortest_1169z00_18678;
																																																											BgL__ortest_1169z00_18678
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_18677)
																																																												==
																																																												116L);
																																																											if (BgL__ortest_1169z00_18678)
																																																												{	/* Read/reader.scm 332 */
																																																													BgL_test9444z00_30111
																																																														=
																																																														BgL__ortest_1169z00_18678;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 332 */
																																																													BgL_test9444z00_30111
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_18677)
																																																														==
																																																														115L);
																																																				}}}}}
																																																			if (BgL_test9444z00_30111)
																																																				{
																																																					long
																																																						BgL_forwardz00_30142;
																																																					long
																																																						BgL_lastzd2matchzd2_30141;
																																																					BgL_lastzd2matchzd2_30141
																																																						=
																																																						BgL_newzd2matchzd2_18674;
																																																					BgL_forwardz00_30142
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_18672);
																																																					BgL_forwardz00_18672
																																																						=
																																																						BgL_forwardz00_30142;
																																																					BgL_lastzd2matchzd2_18671
																																																						=
																																																						BgL_lastzd2matchzd2_30141;
																																																					goto
																																																						BgL_statezd223zd21082z00_18279;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 332 */
																																																					BgL_matchz00_19003
																																																						=
																																																						BgL_newzd2matchzd2_18674;
																																																				}
																																																		}
																																																	}
																																																}
																																														}
																																													}
																																												else
																																													{	/* Read/reader.scm 332 */
																																														BgL_matchz00_19003
																																															=
																																															BgL_newzd2matchzd2_18880;
																																													}
																																											}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							bool_t
																																								BgL_test9454z00_30146;
																																							{	/* Read/reader.scm 332 */
																																								bool_t
																																									BgL_test9455z00_30147;
																																								if (((long) (BgL_curz00_18872) >= 48L))
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9455z00_30147
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18872)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9455z00_30147
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test9455z00_30147)
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9454z00_30146
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										bool_t
																																											BgL_test9457z00_30153;
																																										if (((long) (BgL_curz00_18872) >= 65L))
																																											{	/* Read/reader.scm 332 */
																																												BgL_test9457z00_30153
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_18872)
																																													<
																																													71L);
																																											}
																																										else
																																											{	/* Read/reader.scm 332 */
																																												BgL_test9457z00_30153
																																													=
																																													(
																																													(bool_t)
																																													0);
																																											}
																																										if (BgL_test9457z00_30153)
																																											{	/* Read/reader.scm 332 */
																																												BgL_test9454z00_30146
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 332 */
																																												BgL_test9454z00_30146
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_18872)
																																													==
																																													97L);
																																							}}}
																																							if (BgL_test9454z00_30146)
																																								{	/* Read/reader.scm 332 */
																																									long
																																										BgL_arg2331z00_18873;
																																									BgL_arg2331z00_18873
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_18867);
																																									{	/* Read/reader.scm 332 */
																																										long
																																											BgL_newzd2matchzd2_18874;
																																										RGC_STOP_MATCH
																																											(BgL_iportz00_18865,
																																											BgL_arg2331z00_18873);
																																										BgL_newzd2matchzd2_18874
																																											=
																																											1L;
																																										BgL_matchz00_19003
																																											=
																																											BgL_newzd2matchzd2_18874;
																																								}}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									bool_t
																																										BgL_test9459z00_30163;
																																									if (((long) (BgL_curz00_18872) == 45L))
																																										{	/* Read/reader.scm 332 */
																																											BgL_test9459z00_30163
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 332 */
																																											bool_t
																																												BgL_test9461z00_30167;
																																											if (((long) (BgL_curz00_18872) == 106L))
																																												{	/* Read/reader.scm 332 */
																																													BgL_test9461z00_30167
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													BgL_test9461z00_30167
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_18872)
																																														==
																																														105L);
																																												}
																																											if (BgL_test9461z00_30167)
																																												{	/* Read/reader.scm 332 */
																																													BgL_test9459z00_30163
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													bool_t
																																														BgL_test9463z00_30173;
																																													if (((long) (BgL_curz00_18872) == 112L))
																																														{	/* Read/reader.scm 332 */
																																															BgL_test9463z00_30173
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															if (((long) (BgL_curz00_18872) == 111L))
																																																{	/* Read/reader.scm 332 */
																																																	BgL_test9463z00_30173
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 332 */
																																																	BgL_test9463z00_30173
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_18872)
																																																		==
																																																		110L);
																																														}}
																																													if (BgL_test9463z00_30173)
																																														{	/* Read/reader.scm 332 */
																																															BgL_test9459z00_30163
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															bool_t
																																																BgL__ortest_1179z00_18875;
																																															BgL__ortest_1179z00_18875
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_18872)
																																																==
																																																116L);
																																															if (BgL__ortest_1179z00_18875)
																																																{	/* Read/reader.scm 332 */
																																																	BgL_test9459z00_30163
																																																		=
																																																		BgL__ortest_1179z00_18875;
																																																}
																																															else
																																																{	/* Read/reader.scm 332 */
																																																	BgL_test9459z00_30163
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_18872)
																																																		==
																																																		115L);
																																										}}}}
																																									if (BgL_test9459z00_30163)
																																										{
																																											long
																																												BgL_bufposz00_30191;
																																											long
																																												BgL_forwardz00_30189;
																																											long
																																												BgL_lastzd2matchzd2_30188;
																																											obj_t
																																												BgL_iportz00_30187;
																																											BgL_iportz00_30187
																																												=
																																												BgL_iportz00_18865;
																																											BgL_lastzd2matchzd2_30188
																																												=
																																												BgL_newzd2matchzd2_18869;
																																											BgL_forwardz00_30189
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_18867);
																																											BgL_bufposz00_30191
																																												=
																																												BgL_bufposz00_18868;
																																											BgL_bufposz00_18673
																																												=
																																												BgL_bufposz00_30191;
																																											BgL_forwardz00_18672
																																												=
																																												BgL_forwardz00_30189;
																																											BgL_lastzd2matchzd2_18671
																																												=
																																												BgL_lastzd2matchzd2_30188;
																																											BgL_iportz00_18670
																																												=
																																												BgL_iportz00_30187;
																																											goto
																																												BgL_statezd223zd21082z00_18279;
																																										}
																																									else
																																										{	/* Read/reader.scm 332 */
																																											BgL_matchz00_19003
																																												=
																																												BgL_newzd2matchzd2_18869;
																																										}
																																								}
																																						}
																																				}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9467z00_30193;
																																{	/* Read/reader.scm 332 */
																																	bool_t
																																		BgL_test9468z00_30194;
																																	if (((long)
																																			(BgL_curz00_18807)
																																			>= 48L))
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9468z00_30194
																																				=
																																				((long)
																																				(BgL_curz00_18807)
																																				< 58L);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9468z00_30194
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test9468z00_30194)
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9467z00_30193
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			bool_t
																																				BgL_test9470z00_30200;
																																			if ((
																																					(long)
																																					(BgL_curz00_18807)
																																					>=
																																					65L))
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9470z00_30200
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18807)
																																						<
																																						71L);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9470z00_30200
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9470z00_30200)
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9467z00_30193
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9467z00_30193
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18807)
																																						==
																																						97L);
																																}}}
																																if (BgL_test9467z00_30193)
																																	{	/* Read/reader.scm 332 */
																																		BgL_iportz00_18826
																																			=
																																			BgL_iportz00_18800;
																																		BgL_lastzd2matchzd2_18827
																																			=
																																			BgL_newzd2matchzd2_18804;
																																		BgL_forwardz00_18828
																																			=
																																			(1L +
																																			BgL_forwardz00_18802);
																																		BgL_bufposz00_18829
																																			=
																																			BgL_bufposz00_18803;
																																	BgL_statezd232zd21091z00_18299:
																																		if (
																																			(BgL_forwardz00_18828
																																				==
																																				BgL_bufposz00_18829))
																																			{	/* Read/reader.scm 332 */
																																				if (rgc_fill_buffer(BgL_iportz00_18826))
																																					{	/* Read/reader.scm 332 */
																																						long
																																							BgL_arg2255z00_18830;
																																						long
																																							BgL_arg2256z00_18831;
																																						BgL_arg2255z00_18830
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_18826);
																																						BgL_arg2256z00_18831
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_18826);
																																						{
																																							long
																																								BgL_bufposz00_30215;
																																							long
																																								BgL_forwardz00_30214;
																																							BgL_forwardz00_30214
																																								=
																																								BgL_arg2255z00_18830;
																																							BgL_bufposz00_30215
																																								=
																																								BgL_arg2256z00_18831;
																																							BgL_bufposz00_18829
																																								=
																																								BgL_bufposz00_30215;
																																							BgL_forwardz00_18828
																																								=
																																								BgL_forwardz00_30214;
																																							goto
																																								BgL_statezd232zd21091z00_18299;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_matchz00_19003
																																							=
																																							BgL_lastzd2matchzd2_18827;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				int
																																					BgL_curz00_18832;
																																				BgL_curz00_18832
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_18826,
																																					BgL_forwardz00_18828);
																																				{	/* Read/reader.scm 332 */

																																					{	/* Read/reader.scm 332 */
																																						bool_t
																																							BgL_test9474z00_30217;
																																						{	/* Read/reader.scm 332 */
																																							bool_t
																																								BgL_test9475z00_30218;
																																							if (((long) (BgL_curz00_18832) >= 48L))
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9475z00_30218
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18832)
																																										<
																																										58L);
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9475z00_30218
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test9475z00_30218)
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9474z00_30217
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									bool_t
																																										BgL_test9477z00_30224;
																																									if (((long) (BgL_curz00_18832) >= 65L))
																																										{	/* Read/reader.scm 332 */
																																											BgL_test9477z00_30224
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_18832)
																																												<
																																												71L);
																																										}
																																									else
																																										{	/* Read/reader.scm 332 */
																																											BgL_test9477z00_30224
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test9477z00_30224)
																																										{	/* Read/reader.scm 332 */
																																											BgL_test9474z00_30217
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 332 */
																																											if (((long) (BgL_curz00_18832) >= 97L))
																																												{	/* Read/reader.scm 332 */
																																													BgL_test9474z00_30217
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_18832)
																																														<
																																														103L);
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													BgL_test9474z00_30217
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																										}
																																								}
																																						}
																																						if (BgL_test9474z00_30217)
																																							{	/* Read/reader.scm 332 */
																																								long
																																									BgL_arg2262z00_18833;
																																								BgL_arg2262z00_18833
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_18828);
																																								{	/* Read/reader.scm 332 */
																																									long
																																										BgL_newzd2matchzd2_18834;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_18826,
																																										BgL_arg2262z00_18833);
																																									BgL_newzd2matchzd2_18834
																																										=
																																										1L;
																																									BgL_matchz00_19003
																																										=
																																										BgL_newzd2matchzd2_18834;
																																							}}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_matchz00_19003
																																									=
																																									BgL_lastzd2matchzd2_18827;
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL_test9480z00_30238;
																																		if (((long)
																																				(BgL_curz00_18807)
																																				== 45L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9480z00_30238
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				bool_t
																																					BgL_test9482z00_30242;
																																				if ((
																																						(long)
																																						(BgL_curz00_18807)
																																						==
																																						106L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9482z00_30242
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9482z00_30242
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18807)
																																							==
																																							105L);
																																					}
																																				if (BgL_test9482z00_30242)
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9480z00_30238
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						bool_t
																																							BgL_test9484z00_30248;
																																						if (
																																							((long) (BgL_curz00_18807) == 112L))
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9484z00_30248
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								if (((long) (BgL_curz00_18807) == 111L))
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9484z00_30248
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9484z00_30248
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18807)
																																											==
																																											110L);
																																							}}
																																						if (BgL_test9484z00_30248)
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9480z00_30238
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								bool_t
																																									BgL__ortest_1174z00_18808;
																																								BgL__ortest_1174z00_18808
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18807)
																																									==
																																									116L);
																																								if (BgL__ortest_1174z00_18808)
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9480z00_30238
																																											=
																																											BgL__ortest_1174z00_18808;
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9480z00_30238
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18807)
																																											==
																																											115L);
																																			}}}}
																																		if (BgL_test9480z00_30238)
																																			{
																																				long
																																					BgL_bufposz00_30266;
																																				long
																																					BgL_forwardz00_30264;
																																				long
																																					BgL_lastzd2matchzd2_30263;
																																				obj_t
																																					BgL_iportz00_30262;
																																				BgL_iportz00_30262
																																					=
																																					BgL_iportz00_18800;
																																				BgL_lastzd2matchzd2_30263
																																					=
																																					BgL_newzd2matchzd2_18804;
																																				BgL_forwardz00_30264
																																					=
																																					(1L +
																																					BgL_forwardz00_18802);
																																				BgL_bufposz00_30266
																																					=
																																					BgL_bufposz00_18803;
																																				BgL_bufposz00_18673
																																					=
																																					BgL_bufposz00_30266;
																																				BgL_forwardz00_18672
																																					=
																																					BgL_forwardz00_30264;
																																				BgL_lastzd2matchzd2_18671
																																					=
																																					BgL_lastzd2matchzd2_30263;
																																				BgL_iportz00_18670
																																					=
																																					BgL_iportz00_30262;
																																				goto
																																					BgL_statezd223zd21082z00_18279;
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_matchz00_19003
																																					=
																																					BgL_newzd2matchzd2_18804;
																																			}
																																	}
																															}
																													}
																												}
																											}
																									}
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									bool_t BgL_test9488z00_30268;

																									{	/* Read/reader.scm 332 */
																										bool_t
																											BgL_test9489z00_30269;
																										if (((long)
																												(BgL_curz00_18347) >=
																												48L))
																											{	/* Read/reader.scm 332 */
																												BgL_test9489z00_30269 =
																													(
																													(long)
																													(BgL_curz00_18347) <
																													58L);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_test9489z00_30269 =
																													((bool_t) 0);
																											}
																										if (BgL_test9489z00_30269)
																											{	/* Read/reader.scm 332 */
																												BgL_test9488z00_30268 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9491z00_30275;
																												if (((long)
																														(BgL_curz00_18347)
																														>= 65L))
																													{	/* Read/reader.scm 332 */
																														BgL_test9491z00_30275
																															=
																															((long)
																															(BgL_curz00_18347)
																															< 71L);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_test9491z00_30275
																															= ((bool_t) 0);
																													}
																												if (BgL_test9491z00_30275)
																													{	/* Read/reader.scm 332 */
																														BgL_test9488z00_30268
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_test9488z00_30268
																															=
																															((long)
																															(BgL_curz00_18347)
																															== 97L);
																									}}}
																									if (BgL_test9488z00_30268)
																										{	/* Read/reader.scm 332 */
																											BgL_iportz00_18451 =
																												BgL_iportz00_18340;
																											BgL_lastzd2matchzd2_18452
																												=
																												BgL_newzd2matchzd2_18344;
																											BgL_forwardz00_18453 =
																												(1L +
																												BgL_forwardz00_18342);
																											BgL_bufposz00_18454 =
																												BgL_bufposz00_18343;
																										BgL_statezd230zd21089z00_18255:
																											if (
																												(BgL_forwardz00_18453 ==
																													BgL_bufposz00_18454))
																												{	/* Read/reader.scm 332 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_18451))
																														{	/* Read/reader.scm 332 */
																															long
																																BgL_arg1725z00_18455;
																															long
																																BgL_arg1726z00_18456;
																															BgL_arg1725z00_18455
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_18451);
																															BgL_arg1726z00_18456
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_18451);
																															{
																																long
																																	BgL_bufposz00_30290;
																																long
																																	BgL_forwardz00_30289;
																																BgL_forwardz00_30289
																																	=
																																	BgL_arg1725z00_18455;
																																BgL_bufposz00_30290
																																	=
																																	BgL_arg1726z00_18456;
																																BgL_bufposz00_18454
																																	=
																																	BgL_bufposz00_30290;
																																BgL_forwardz00_18453
																																	=
																																	BgL_forwardz00_30289;
																																goto
																																	BgL_statezd230zd21089z00_18255;
																															}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_matchz00_19003
																																=
																																BgL_lastzd2matchzd2_18452;
																														}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													int BgL_curz00_18457;

																													BgL_curz00_18457 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_18451,
																														BgL_forwardz00_18453);
																													{	/* Read/reader.scm 332 */

																														{	/* Read/reader.scm 332 */
																															bool_t
																																BgL_test9495z00_30292;
																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9496z00_30293;
																																if (((long)
																																		(BgL_curz00_18457)
																																		>= 48L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9496z00_30293
																																			=
																																			((long)
																																			(BgL_curz00_18457)
																																			< 58L);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9496z00_30293
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9496z00_30293)
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9495z00_30292
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL_test9498z00_30299;
																																		if (((long)
																																				(BgL_curz00_18457)
																																				>= 65L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9498z00_30299
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18457)
																																					<
																																					71L);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9498z00_30299
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test9498z00_30299)
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9495z00_30292
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				if (
																																					((long) (BgL_curz00_18457) >= 97L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9495z00_30292
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18457)
																																							<
																																							103L);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9495z00_30292
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																	}
																															}
																															if (BgL_test9495z00_30292)
																																{
																																	long
																																		BgL_bufposz00_30314;
																																	long
																																		BgL_forwardz00_30312;
																																	long
																																		BgL_lastzd2matchzd2_30311;
																																	obj_t
																																		BgL_iportz00_30310;
																																	BgL_iportz00_30310
																																		=
																																		BgL_iportz00_18451;
																																	BgL_lastzd2matchzd2_30311
																																		=
																																		BgL_lastzd2matchzd2_18452;
																																	BgL_forwardz00_30312
																																		=
																																		(1L +
																																		BgL_forwardz00_18453);
																																	BgL_bufposz00_30314
																																		=
																																		BgL_bufposz00_18454;
																																	BgL_bufposz00_18829
																																		=
																																		BgL_bufposz00_30314;
																																	BgL_forwardz00_18828
																																		=
																																		BgL_forwardz00_30312;
																																	BgL_lastzd2matchzd2_18827
																																		=
																																		BgL_lastzd2matchzd2_30311;
																																	BgL_iportz00_18826
																																		=
																																		BgL_iportz00_30310;
																																	goto
																																		BgL_statezd232zd21091z00_18299;
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_matchz00_19003
																																		=
																																		BgL_lastzd2matchzd2_18452;
																																}
																														}
																													}
																												}
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											bool_t
																												BgL_test9501z00_30316;
																											if (((long)
																													(BgL_curz00_18347) ==
																													45L))
																												{	/* Read/reader.scm 332 */
																													BgL_test9501z00_30316
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													bool_t
																														BgL_test9503z00_30320;
																													if (((long)
																															(BgL_curz00_18347)
																															== 106L))
																														{	/* Read/reader.scm 332 */
																															BgL_test9503z00_30320
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_test9503z00_30320
																																=
																																((long)
																																(BgL_curz00_18347)
																																== 105L);
																														}
																													if (BgL_test9503z00_30320)
																														{	/* Read/reader.scm 332 */
																															BgL_test9501z00_30316
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															bool_t
																																BgL_test9505z00_30326;
																															if (((long)
																																	(BgL_curz00_18347)
																																	== 112L))
																																{	/* Read/reader.scm 332 */
																																	BgL_test9505z00_30326
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	if (
																																		((long)
																																			(BgL_curz00_18347)
																																			== 111L))
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9505z00_30326
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9505z00_30326
																																				=
																																				((long)
																																				(BgL_curz00_18347)
																																				==
																																				110L);
																																}}
																															if (BgL_test9505z00_30326)
																																{	/* Read/reader.scm 332 */
																																	BgL_test9501z00_30316
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	bool_t
																																		BgL__ortest_1153z00_18348;
																																	BgL__ortest_1153z00_18348
																																		=
																																		((long)
																																		(BgL_curz00_18347)
																																		== 116L);
																																	if (BgL__ortest_1153z00_18348)
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9501z00_30316
																																				=
																																				BgL__ortest_1153z00_18348;
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9501z00_30316
																																				=
																																				((long)
																																				(BgL_curz00_18347)
																																				==
																																				115L);
																												}}}}
																											if (BgL_test9501z00_30316)
																												{
																													long
																														BgL_bufposz00_30344;
																													long
																														BgL_forwardz00_30342;
																													long
																														BgL_lastzd2matchzd2_30341;
																													obj_t
																														BgL_iportz00_30340;
																													BgL_iportz00_30340 =
																														BgL_iportz00_18340;
																													BgL_lastzd2matchzd2_30341
																														=
																														BgL_newzd2matchzd2_18344;
																													BgL_forwardz00_30342 =
																														(1L +
																														BgL_forwardz00_18342);
																													BgL_bufposz00_30344 =
																														BgL_bufposz00_18343;
																													BgL_bufposz00_18673 =
																														BgL_bufposz00_30344;
																													BgL_forwardz00_18672 =
																														BgL_forwardz00_30342;
																													BgL_lastzd2matchzd2_18671
																														=
																														BgL_lastzd2matchzd2_30341;
																													BgL_iportz00_18670 =
																														BgL_iportz00_30340;
																													goto
																														BgL_statezd223zd21082z00_18279;
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_matchz00_19003 =
																														BgL_newzd2matchzd2_18344;
																												}
																										}
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 332 */
																		if (((long) (BgL_curz00_18503) == 56L))
																			{	/* Read/reader.scm 332 */
																				BgL_iportz00_18793 = BgL_iportz00_18496;
																				BgL_lastzd2matchzd2_18794 =
																					BgL_newzd2matchzd2_18500;
																				BgL_forwardz00_18795 =
																					(1L + BgL_forwardz00_18498);
																				BgL_bufposz00_18796 =
																					BgL_bufposz00_18499;
																			BgL_statezd228zd21087z00_18295:
																				if (
																					(BgL_forwardz00_18795 ==
																						BgL_bufposz00_18796))
																					{	/* Read/reader.scm 332 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18793))
																							{	/* Read/reader.scm 332 */
																								long BgL_arg2189z00_18797;
																								long BgL_arg2190z00_18798;

																								BgL_arg2189z00_18797 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18793);
																								BgL_arg2190z00_18798 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18793);
																								{
																									long BgL_bufposz00_30356;
																									long BgL_forwardz00_30355;

																									BgL_forwardz00_30355 =
																										BgL_arg2189z00_18797;
																									BgL_bufposz00_30356 =
																										BgL_arg2190z00_18798;
																									BgL_bufposz00_18796 =
																										BgL_bufposz00_30356;
																									BgL_forwardz00_18795 =
																										BgL_forwardz00_30355;
																									goto
																										BgL_statezd228zd21087z00_18295;
																								}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_lastzd2matchzd2_18794;
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						int BgL_curz00_18799;

																						BgL_curz00_18799 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18793,
																							BgL_forwardz00_18795);
																						{	/* Read/reader.scm 332 */

																							if (
																								((long) (BgL_curz00_18799) ==
																									58L))
																								{	/* Read/reader.scm 332 */
																									BgL_iportz00_18429 =
																										BgL_iportz00_18793;
																									BgL_lastzd2matchzd2_18430 =
																										BgL_lastzd2matchzd2_18794;
																									BgL_forwardz00_18431 =
																										(1L + BgL_forwardz00_18795);
																									BgL_bufposz00_18432 =
																										BgL_bufposz00_18796;
																								BgL_statezd236zd21095z00_18252:
																									if (
																										(BgL_forwardz00_18431 ==
																											BgL_bufposz00_18432))
																										{	/* Read/reader.scm 332 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_18429))
																												{	/* Read/reader.scm 332 */
																													long
																														BgL_arg1684z00_18433;
																													long
																														BgL_arg1685z00_18434;
																													BgL_arg1684z00_18433 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_18429);
																													BgL_arg1685z00_18434 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_18429);
																													{
																														long
																															BgL_bufposz00_30368;
																														long
																															BgL_forwardz00_30367;
																														BgL_forwardz00_30367
																															=
																															BgL_arg1684z00_18433;
																														BgL_bufposz00_30368
																															=
																															BgL_arg1685z00_18434;
																														BgL_bufposz00_18432
																															=
																															BgL_bufposz00_30368;
																														BgL_forwardz00_18431
																															=
																															BgL_forwardz00_30367;
																														goto
																															BgL_statezd236zd21095z00_18252;
																													}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_matchz00_19003 =
																														BgL_lastzd2matchzd2_18430;
																												}
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											int BgL_curz00_18435;

																											BgL_curz00_18435 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_18429,
																												BgL_forwardz00_18431);
																											{	/* Read/reader.scm 332 */

																												{	/* Read/reader.scm 332 */
																													bool_t
																														BgL_test9515z00_30370;
																													if (((long)
																															(BgL_curz00_18435)
																															>= 48L))
																														{	/* Read/reader.scm 332 */
																															BgL_test9515z00_30370
																																=
																																((long)
																																(BgL_curz00_18435)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_test9515z00_30370
																																= ((bool_t) 0);
																														}
																													if (BgL_test9515z00_30370)
																														{	/* Read/reader.scm 332 */
																															BgL_iportz00_18901
																																=
																																BgL_iportz00_18429;
																															BgL_lastzd2matchzd2_18902
																																=
																																BgL_lastzd2matchzd2_18430;
																															BgL_forwardz00_18903
																																=
																																(1L +
																																BgL_forwardz00_18431);
																															BgL_bufposz00_18904
																																=
																																BgL_bufposz00_18432;
																														BgL_statezd237zd21096z00_18308:
																															{	/* Read/reader.scm 332 */
																																long
																																	BgL_newzd2matchzd2_18905;
																																RGC_STOP_MATCH
																																	(BgL_iportz00_18901,
																																	BgL_forwardz00_18903);
																																BgL_newzd2matchzd2_18905
																																	= 16L;
																																if (
																																	(BgL_forwardz00_18903
																																		==
																																		BgL_bufposz00_18904))
																																	{	/* Read/reader.scm 332 */
																																		if (rgc_fill_buffer(BgL_iportz00_18901))
																																			{	/* Read/reader.scm 332 */
																																				long
																																					BgL_arg2381z00_18906;
																																				long
																																					BgL_arg2382z00_18907;
																																				BgL_arg2381z00_18906
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_18901);
																																				BgL_arg2382z00_18907
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_18901);
																																				{
																																					long
																																						BgL_bufposz00_30384;
																																					long
																																						BgL_forwardz00_30383;
																																					BgL_forwardz00_30383
																																						=
																																						BgL_arg2381z00_18906;
																																					BgL_bufposz00_30384
																																						=
																																						BgL_arg2382z00_18907;
																																					BgL_bufposz00_18904
																																						=
																																						BgL_bufposz00_30384;
																																					BgL_forwardz00_18903
																																						=
																																						BgL_forwardz00_30383;
																																					goto
																																						BgL_statezd237zd21096z00_18308;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_matchz00_19003
																																					=
																																					BgL_newzd2matchzd2_18905;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		int
																																			BgL_curz00_18908;
																																		BgL_curz00_18908
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_18901,
																																			BgL_forwardz00_18903);
																																		{	/* Read/reader.scm 332 */

																																			{	/* Read/reader.scm 332 */
																																				bool_t
																																					BgL_test9519z00_30386;
																																				if ((
																																						(long)
																																						(BgL_curz00_18908)
																																						>=
																																						48L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9519z00_30386
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18908)
																																							<
																																							58L);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9519z00_30386
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test9519z00_30386)
																																					{
																																						long
																																							BgL_forwardz00_30393;
																																						long
																																							BgL_lastzd2matchzd2_30392;
																																						BgL_lastzd2matchzd2_30392
																																							=
																																							BgL_newzd2matchzd2_18905;
																																						BgL_forwardz00_30393
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_18903);
																																						BgL_forwardz00_18903
																																							=
																																							BgL_forwardz00_30393;
																																						BgL_lastzd2matchzd2_18902
																																							=
																																							BgL_lastzd2matchzd2_30392;
																																						goto
																																							BgL_statezd237zd21096z00_18308;
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_matchz00_19003
																																							=
																																							BgL_newzd2matchzd2_18905;
																																					}
																																			}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_matchz00_19003
																																=
																																BgL_lastzd2matchzd2_18430;
																														}
																												}
																											}
																										}
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									bool_t BgL_test9521z00_30397;

																									{	/* Read/reader.scm 332 */
																										bool_t
																											BgL_test9522z00_30398;
																										if (((long)
																												(BgL_curz00_18799) >=
																												48L))
																											{	/* Read/reader.scm 332 */
																												BgL_test9522z00_30398 =
																													(
																													(long)
																													(BgL_curz00_18799) <
																													58L);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_test9522z00_30398 =
																													((bool_t) 0);
																											}
																										if (BgL_test9522z00_30398)
																											{	/* Read/reader.scm 332 */
																												BgL_test9521z00_30397 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9524z00_30404;
																												if (((long)
																														(BgL_curz00_18799)
																														>= 65L))
																													{	/* Read/reader.scm 332 */
																														BgL_test9524z00_30404
																															=
																															((long)
																															(BgL_curz00_18799)
																															< 71L);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_test9524z00_30404
																															= ((bool_t) 0);
																													}
																												if (BgL_test9524z00_30404)
																													{	/* Read/reader.scm 332 */
																														BgL_test9521z00_30397
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														if (
																															((long)
																																(BgL_curz00_18799)
																																>= 97L))
																															{	/* Read/reader.scm 332 */
																																BgL_test9521z00_30397
																																	=
																																	((long)
																																	(BgL_curz00_18799)
																																	< 103L);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_test9521z00_30397
																																	=
																																	((bool_t) 0);
																															}
																													}
																											}
																									}
																									if (BgL_test9521z00_30397)
																										{
																											long BgL_bufposz00_30419;
																											long BgL_forwardz00_30417;
																											long
																												BgL_lastzd2matchzd2_30416;
																											obj_t BgL_iportz00_30415;

																											BgL_iportz00_30415 =
																												BgL_iportz00_18793;
																											BgL_lastzd2matchzd2_30416
																												=
																												BgL_lastzd2matchzd2_18794;
																											BgL_forwardz00_30417 =
																												(1L +
																												BgL_forwardz00_18795);
																											BgL_bufposz00_30419 =
																												BgL_bufposz00_18796;
																											BgL_bufposz00_18454 =
																												BgL_bufposz00_30419;
																											BgL_forwardz00_18453 =
																												BgL_forwardz00_30417;
																											BgL_lastzd2matchzd2_18452
																												=
																												BgL_lastzd2matchzd2_30416;
																											BgL_iportz00_18451 =
																												BgL_iportz00_30415;
																											goto
																												BgL_statezd230zd21089z00_18255;
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_matchz00_19003 =
																												BgL_lastzd2matchzd2_18794;
																										}
																								}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				if (((long) (BgL_curz00_18503) == 54L))
																					{	/* Read/reader.scm 332 */
																						BgL_iportz00_18687 =
																							BgL_iportz00_18496;
																						BgL_lastzd2matchzd2_18688 =
																							BgL_newzd2matchzd2_18500;
																						BgL_forwardz00_18689 =
																							(1L + BgL_forwardz00_18498);
																						BgL_bufposz00_18690 =
																							BgL_bufposz00_18499;
																					BgL_statezd227zd21086z00_18281:
																						if (
																							(BgL_forwardz00_18689 ==
																								BgL_bufposz00_18690))
																							{	/* Read/reader.scm 332 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_18687))
																									{	/* Read/reader.scm 332 */
																										long BgL_arg2040z00_18691;
																										long BgL_arg2041z00_18692;

																										BgL_arg2040z00_18691 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_18687);
																										BgL_arg2041z00_18692 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_18687);
																										{
																											long BgL_bufposz00_30431;
																											long BgL_forwardz00_30430;

																											BgL_forwardz00_30430 =
																												BgL_arg2040z00_18691;
																											BgL_bufposz00_30431 =
																												BgL_arg2041z00_18692;
																											BgL_bufposz00_18690 =
																												BgL_bufposz00_30431;
																											BgL_forwardz00_18689 =
																												BgL_forwardz00_30430;
																											goto
																												BgL_statezd227zd21086z00_18281;
																										}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_lastzd2matchzd2_18688;
																									}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								int BgL_curz00_18693;

																								BgL_curz00_18693 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_18687,
																									BgL_forwardz00_18689);
																								{	/* Read/reader.scm 332 */

																									if (
																										((long) (BgL_curz00_18693)
																											== 52L))
																										{	/* Read/reader.scm 332 */
																											BgL_iportz00_18444 =
																												BgL_iportz00_18687;
																											BgL_lastzd2matchzd2_18445
																												=
																												BgL_lastzd2matchzd2_18688;
																											BgL_forwardz00_18446 =
																												(1L +
																												BgL_forwardz00_18689);
																											BgL_bufposz00_18447 =
																												BgL_bufposz00_18690;
																										BgL_statezd238zd21097z00_18254:
																											if (
																												(BgL_forwardz00_18446 ==
																													BgL_bufposz00_18447))
																												{	/* Read/reader.scm 332 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_18444))
																														{	/* Read/reader.scm 332 */
																															long
																																BgL_arg1712z00_18448;
																															long
																																BgL_arg1713z00_18449;
																															BgL_arg1712z00_18448
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_18444);
																															BgL_arg1713z00_18449
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_18444);
																															{
																																long
																																	BgL_bufposz00_30443;
																																long
																																	BgL_forwardz00_30442;
																																BgL_forwardz00_30442
																																	=
																																	BgL_arg1712z00_18448;
																																BgL_bufposz00_30443
																																	=
																																	BgL_arg1713z00_18449;
																																BgL_bufposz00_18447
																																	=
																																	BgL_bufposz00_30443;
																																BgL_forwardz00_18446
																																	=
																																	BgL_forwardz00_30442;
																																goto
																																	BgL_statezd238zd21097z00_18254;
																															}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_matchz00_19003
																																=
																																BgL_lastzd2matchzd2_18445;
																														}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													int BgL_curz00_18450;

																													BgL_curz00_18450 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_18444,
																														BgL_forwardz00_18446);
																													{	/* Read/reader.scm 332 */

																														if (
																															((long)
																																(BgL_curz00_18450)
																																== 58L))
																															{	/* Read/reader.scm 332 */
																																BgL_iportz00_18851
																																	=
																																	BgL_iportz00_18444;
																																BgL_lastzd2matchzd2_18852
																																	=
																																	BgL_lastzd2matchzd2_18445;
																																BgL_forwardz00_18853
																																	=
																																	(1L +
																																	BgL_forwardz00_18446);
																																BgL_bufposz00_18854
																																	=
																																	BgL_bufposz00_18447;
																															BgL_statezd239zd21098z00_18302:
																																if (
																																	(BgL_forwardz00_18853
																																		==
																																		BgL_bufposz00_18854))
																																	{	/* Read/reader.scm 332 */
																																		if (rgc_fill_buffer(BgL_iportz00_18851))
																																			{	/* Read/reader.scm 332 */
																																				long
																																					BgL_arg2293z00_18855;
																																				long
																																					BgL_arg2294z00_18856;
																																				BgL_arg2293z00_18855
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_18851);
																																				BgL_arg2294z00_18856
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_18851);
																																				{
																																					long
																																						BgL_bufposz00_30455;
																																					long
																																						BgL_forwardz00_30454;
																																					BgL_forwardz00_30454
																																						=
																																						BgL_arg2293z00_18855;
																																					BgL_bufposz00_30455
																																						=
																																						BgL_arg2294z00_18856;
																																					BgL_bufposz00_18854
																																						=
																																						BgL_bufposz00_30455;
																																					BgL_forwardz00_18853
																																						=
																																						BgL_forwardz00_30454;
																																					goto
																																						BgL_statezd239zd21098z00_18302;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_matchz00_19003
																																					=
																																					BgL_lastzd2matchzd2_18852;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		int
																																			BgL_curz00_18857;
																																		BgL_curz00_18857
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_18851,
																																			BgL_forwardz00_18853);
																																		{	/* Read/reader.scm 332 */

																																			{	/* Read/reader.scm 332 */
																																				bool_t
																																					BgL_test9536z00_30457;
																																				if ((
																																						(long)
																																						(BgL_curz00_18857)
																																						>=
																																						48L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9536z00_30457
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18857)
																																							<
																																							58L);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9536z00_30457
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test9536z00_30457)
																																					{	/* Read/reader.scm 332 */
																																						BgL_iportz00_18739
																																							=
																																							BgL_iportz00_18851;
																																						BgL_lastzd2matchzd2_18740
																																							=
																																							BgL_lastzd2matchzd2_18852;
																																						BgL_forwardz00_18741
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_18853);
																																						BgL_bufposz00_18742
																																							=
																																							BgL_bufposz00_18854;
																																					BgL_statezd240zd21099z00_18288:
																																						{	/* Read/reader.scm 332 */
																																							long
																																								BgL_newzd2matchzd2_18743;
																																							RGC_STOP_MATCH
																																								(BgL_iportz00_18739,
																																								BgL_forwardz00_18741);
																																							BgL_newzd2matchzd2_18743
																																								=
																																								22L;
																																							if ((BgL_forwardz00_18741 == BgL_bufposz00_18742))
																																								{	/* Read/reader.scm 332 */
																																									if (rgc_fill_buffer(BgL_iportz00_18739))
																																										{	/* Read/reader.scm 332 */
																																											long
																																												BgL_arg2117z00_18744;
																																											long
																																												BgL_arg2118z00_18745;
																																											BgL_arg2117z00_18744
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_iportz00_18739);
																																											BgL_arg2118z00_18745
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_iportz00_18739);
																																											{
																																												long
																																													BgL_bufposz00_30471;
																																												long
																																													BgL_forwardz00_30470;
																																												BgL_forwardz00_30470
																																													=
																																													BgL_arg2117z00_18744;
																																												BgL_bufposz00_30471
																																													=
																																													BgL_arg2118z00_18745;
																																												BgL_bufposz00_18742
																																													=
																																													BgL_bufposz00_30471;
																																												BgL_forwardz00_18741
																																													=
																																													BgL_forwardz00_30470;
																																												goto
																																													BgL_statezd240zd21099z00_18288;
																																											}
																																										}
																																									else
																																										{	/* Read/reader.scm 332 */
																																											BgL_matchz00_19003
																																												=
																																												BgL_newzd2matchzd2_18743;
																																										}
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									int
																																										BgL_curz00_18746;
																																									BgL_curz00_18746
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_iportz00_18739,
																																										BgL_forwardz00_18741);
																																									{	/* Read/reader.scm 332 */

																																										{	/* Read/reader.scm 332 */
																																											bool_t
																																												BgL_test9540z00_30473;
																																											if (((long) (BgL_curz00_18746) >= 48L))
																																												{	/* Read/reader.scm 332 */
																																													BgL_test9540z00_30473
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_18746)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													BgL_test9540z00_30473
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test9540z00_30473)
																																												{
																																													long
																																														BgL_forwardz00_30480;
																																													long
																																														BgL_lastzd2matchzd2_30479;
																																													BgL_lastzd2matchzd2_30479
																																														=
																																														BgL_newzd2matchzd2_18743;
																																													BgL_forwardz00_30480
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_18741);
																																													BgL_forwardz00_18741
																																														=
																																														BgL_forwardz00_30480;
																																													BgL_lastzd2matchzd2_18740
																																														=
																																														BgL_lastzd2matchzd2_30479;
																																													goto
																																														BgL_statezd240zd21099z00_18288;
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													BgL_matchz00_19003
																																														=
																																														BgL_newzd2matchzd2_18743;
																																												}
																																										}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_matchz00_19003
																																							=
																																							BgL_lastzd2matchzd2_18852;
																																					}
																																			}
																																		}
																																	}
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9542z00_30484;
																																{	/* Read/reader.scm 332 */
																																	bool_t
																																		BgL_test9543z00_30485;
																																	if (((long)
																																			(BgL_curz00_18450)
																																			>= 48L))
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9543z00_30485
																																				=
																																				((long)
																																				(BgL_curz00_18450)
																																				< 58L);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9543z00_30485
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test9543z00_30485)
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9542z00_30484
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			bool_t
																																				BgL_test9545z00_30491;
																																			if ((
																																					(long)
																																					(BgL_curz00_18450)
																																					>=
																																					65L))
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9545z00_30491
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18450)
																																						<
																																						71L);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9545z00_30491
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9545z00_30491)
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9542z00_30484
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					if (
																																						((long) (BgL_curz00_18450) >= 97L))
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9542z00_30484
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18450)
																																								<
																																								103L);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9542z00_30484
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																				}
																																		}
																																}
																																if (BgL_test9542z00_30484)
																																	{
																																		long
																																			BgL_bufposz00_30506;
																																		long
																																			BgL_forwardz00_30504;
																																		long
																																			BgL_lastzd2matchzd2_30503;
																																		obj_t
																																			BgL_iportz00_30502;
																																		BgL_iportz00_30502
																																			=
																																			BgL_iportz00_18444;
																																		BgL_lastzd2matchzd2_30503
																																			=
																																			BgL_lastzd2matchzd2_18445;
																																		BgL_forwardz00_30504
																																			=
																																			(1L +
																																			BgL_forwardz00_18446);
																																		BgL_bufposz00_30506
																																			=
																																			BgL_bufposz00_18447;
																																		BgL_bufposz00_18829
																																			=
																																			BgL_bufposz00_30506;
																																		BgL_forwardz00_18828
																																			=
																																			BgL_forwardz00_30504;
																																		BgL_lastzd2matchzd2_18827
																																			=
																																			BgL_lastzd2matchzd2_30503;
																																		BgL_iportz00_18826
																																			=
																																			BgL_iportz00_30502;
																																		goto
																																			BgL_statezd232zd21091z00_18299;
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_matchz00_19003
																																			=
																																			BgL_lastzd2matchzd2_18445;
																																	}
																															}
																													}
																												}
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											bool_t
																												BgL_test9548z00_30508;
																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9549z00_30509;
																												if (((long)
																														(BgL_curz00_18693)
																														>= 48L))
																													{	/* Read/reader.scm 332 */
																														BgL_test9549z00_30509
																															=
																															((long)
																															(BgL_curz00_18693)
																															< 52L);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_test9549z00_30509
																															= ((bool_t) 0);
																													}
																												if (BgL_test9549z00_30509)
																													{	/* Read/reader.scm 332 */
																														BgL_test9548z00_30508
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														bool_t
																															BgL_test9551z00_30515;
																														if (((long)
																																(BgL_curz00_18693)
																																>= 53L))
																															{	/* Read/reader.scm 332 */
																																BgL_test9551z00_30515
																																	=
																																	((long)
																																	(BgL_curz00_18693)
																																	< 58L);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_test9551z00_30515
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test9551z00_30515)
																															{	/* Read/reader.scm 332 */
																																BgL_test9548z00_30508
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9553z00_30521;
																																if (((long)
																																		(BgL_curz00_18693)
																																		>= 65L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9553z00_30521
																																			=
																																			((long)
																																			(BgL_curz00_18693)
																																			< 71L);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9553z00_30521
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9553z00_30521)
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9548z00_30508
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		if (
																																			((long)
																																				(BgL_curz00_18693)
																																				>= 97L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9548z00_30508
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18693)
																																					<
																																					103L);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9548z00_30508
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																	}
																															}
																													}
																											}
																											if (BgL_test9548z00_30508)
																												{
																													long
																														BgL_bufposz00_30536;
																													long
																														BgL_forwardz00_30534;
																													long
																														BgL_lastzd2matchzd2_30533;
																													obj_t
																														BgL_iportz00_30532;
																													BgL_iportz00_30532 =
																														BgL_iportz00_18687;
																													BgL_lastzd2matchzd2_30533
																														=
																														BgL_lastzd2matchzd2_18688;
																													BgL_forwardz00_30534 =
																														(1L +
																														BgL_forwardz00_18689);
																													BgL_bufposz00_30536 =
																														BgL_bufposz00_18690;
																													BgL_bufposz00_18454 =
																														BgL_bufposz00_30536;
																													BgL_forwardz00_18453 =
																														BgL_forwardz00_30534;
																													BgL_lastzd2matchzd2_18452
																														=
																														BgL_lastzd2matchzd2_30533;
																													BgL_iportz00_18451 =
																														BgL_iportz00_30532;
																													goto
																														BgL_statezd230zd21089z00_18255;
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_matchz00_19003 =
																														BgL_lastzd2matchzd2_18688;
																												}
																										}
																								}
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						if (
																							((long) (BgL_curz00_18503) ==
																								51L))
																							{	/* Read/reader.scm 332 */
																								BgL_iportz00_18560 =
																									BgL_iportz00_18496;
																								BgL_lastzd2matchzd2_18561 =
																									BgL_newzd2matchzd2_18500;
																								BgL_forwardz00_18562 =
																									(1L + BgL_forwardz00_18498);
																								BgL_bufposz00_18563 =
																									BgL_bufposz00_18499;
																							BgL_statezd226zd21085z00_18268:
																								if (
																									(BgL_forwardz00_18562 ==
																										BgL_bufposz00_18563))
																									{	/* Read/reader.scm 332 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18560))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg1892z00_18564;
																												long
																													BgL_arg1893z00_18565;
																												BgL_arg1892z00_18564 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18560);
																												BgL_arg1893z00_18565 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18560);
																												{
																													long
																														BgL_bufposz00_30548;
																													long
																														BgL_forwardz00_30547;
																													BgL_forwardz00_30547 =
																														BgL_arg1892z00_18564;
																													BgL_bufposz00_30548 =
																														BgL_arg1893z00_18565;
																													BgL_bufposz00_18563 =
																														BgL_bufposz00_30548;
																													BgL_forwardz00_18562 =
																														BgL_forwardz00_30547;
																													goto
																														BgL_statezd226zd21085z00_18268;
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_lastzd2matchzd2_18561;
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										int BgL_curz00_18566;

																										BgL_curz00_18566 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18560,
																											BgL_forwardz00_18562);
																										{	/* Read/reader.scm 332 */

																											if (
																												((long)
																													(BgL_curz00_18566) ==
																													50L))
																												{	/* Read/reader.scm 332 */
																													BgL_iportz00_18909 =
																														BgL_iportz00_18560;
																													BgL_lastzd2matchzd2_18910
																														=
																														BgL_lastzd2matchzd2_18561;
																													BgL_forwardz00_18911 =
																														(1L +
																														BgL_forwardz00_18562);
																													BgL_bufposz00_18912 =
																														BgL_bufposz00_18563;
																												BgL_statezd241zd21100z00_18309:
																													if (
																														(BgL_forwardz00_18911
																															==
																															BgL_bufposz00_18912))
																														{	/* Read/reader.scm 332 */
																															if (rgc_fill_buffer(BgL_iportz00_18909))
																																{	/* Read/reader.scm 332 */
																																	long
																																		BgL_arg2389z00_18913;
																																	long
																																		BgL_arg2391z00_18914;
																																	BgL_arg2389z00_18913
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_18909);
																																	BgL_arg2391z00_18914
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_18909);
																																	{
																																		long
																																			BgL_bufposz00_30560;
																																		long
																																			BgL_forwardz00_30559;
																																		BgL_forwardz00_30559
																																			=
																																			BgL_arg2389z00_18913;
																																		BgL_bufposz00_30560
																																			=
																																			BgL_arg2391z00_18914;
																																		BgL_bufposz00_18912
																																			=
																																			BgL_bufposz00_30560;
																																		BgL_forwardz00_18911
																																			=
																																			BgL_forwardz00_30559;
																																		goto
																																			BgL_statezd241zd21100z00_18309;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_matchz00_19003
																																		=
																																		BgL_lastzd2matchzd2_18910;
																																}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															int
																																BgL_curz00_18915;
																															BgL_curz00_18915 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_18909,
																																BgL_forwardz00_18911);
																															{	/* Read/reader.scm 332 */

																																if (
																																	((long)
																																		(BgL_curz00_18915)
																																		== 58L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_iportz00_18356
																																			=
																																			BgL_iportz00_18909;
																																		BgL_lastzd2matchzd2_18357
																																			=
																																			BgL_lastzd2matchzd2_18910;
																																		BgL_forwardz00_18358
																																			=
																																			(1L +
																																			BgL_forwardz00_18911);
																																		BgL_bufposz00_18359
																																			=
																																			BgL_bufposz00_18912;
																																	BgL_statezd242zd21101z00_18245:
																																		if (
																																			(BgL_forwardz00_18358
																																				==
																																				BgL_bufposz00_18359))
																																			{	/* Read/reader.scm 332 */
																																				if (rgc_fill_buffer(BgL_iportz00_18356))
																																					{	/* Read/reader.scm 332 */
																																						long
																																							BgL_arg1583z00_18360;
																																						long
																																							BgL_arg1584z00_18361;
																																						BgL_arg1583z00_18360
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_18356);
																																						BgL_arg1584z00_18361
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_18356);
																																						{
																																							long
																																								BgL_bufposz00_30572;
																																							long
																																								BgL_forwardz00_30571;
																																							BgL_forwardz00_30571
																																								=
																																								BgL_arg1583z00_18360;
																																							BgL_bufposz00_30572
																																								=
																																								BgL_arg1584z00_18361;
																																							BgL_bufposz00_18359
																																								=
																																								BgL_bufposz00_30572;
																																							BgL_forwardz00_18358
																																								=
																																								BgL_forwardz00_30571;
																																							goto
																																								BgL_statezd242zd21101z00_18245;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_matchz00_19003
																																							=
																																							BgL_lastzd2matchzd2_18357;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				int
																																					BgL_curz00_18362;
																																				BgL_curz00_18362
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_18356,
																																					BgL_forwardz00_18358);
																																				{	/* Read/reader.scm 332 */

																																					{	/* Read/reader.scm 332 */
																																						bool_t
																																							BgL_test9565z00_30574;
																																						if (
																																							((long) (BgL_curz00_18362) >= 48L))
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9565z00_30574
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18362)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9565z00_30574
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test9565z00_30574)
																																							{	/* Read/reader.scm 332 */
																																								BgL_iportz00_18679
																																									=
																																									BgL_iportz00_18356;
																																								BgL_lastzd2matchzd2_18680
																																									=
																																									BgL_lastzd2matchzd2_18357;
																																								BgL_forwardz00_18681
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_18358);
																																								BgL_bufposz00_18682
																																									=
																																									BgL_bufposz00_18359;
																																							BgL_statezd243zd21102z00_18280:
																																								{	/* Read/reader.scm 332 */
																																									long
																																										BgL_newzd2matchzd2_18683;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_18679,
																																										BgL_forwardz00_18681);
																																									BgL_newzd2matchzd2_18683
																																										=
																																										20L;
																																									if ((BgL_forwardz00_18681 == BgL_bufposz00_18682))
																																										{	/* Read/reader.scm 332 */
																																											if (rgc_fill_buffer(BgL_iportz00_18679))
																																												{	/* Read/reader.scm 332 */
																																													long
																																														BgL_arg2032z00_18684;
																																													long
																																														BgL_arg2033z00_18685;
																																													BgL_arg2032z00_18684
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_iportz00_18679);
																																													BgL_arg2033z00_18685
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_iportz00_18679);
																																													{
																																														long
																																															BgL_bufposz00_30588;
																																														long
																																															BgL_forwardz00_30587;
																																														BgL_forwardz00_30587
																																															=
																																															BgL_arg2032z00_18684;
																																														BgL_bufposz00_30588
																																															=
																																															BgL_arg2033z00_18685;
																																														BgL_bufposz00_18682
																																															=
																																															BgL_bufposz00_30588;
																																														BgL_forwardz00_18681
																																															=
																																															BgL_forwardz00_30587;
																																														goto
																																															BgL_statezd243zd21102z00_18280;
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													BgL_matchz00_19003
																																														=
																																														BgL_newzd2matchzd2_18683;
																																												}
																																										}
																																									else
																																										{	/* Read/reader.scm 332 */
																																											int
																																												BgL_curz00_18686;
																																											BgL_curz00_18686
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_iportz00_18679,
																																												BgL_forwardz00_18681);
																																											{	/* Read/reader.scm 332 */

																																												{	/* Read/reader.scm 332 */
																																													bool_t
																																														BgL_test9569z00_30590;
																																													if (((long) (BgL_curz00_18686) >= 48L))
																																														{	/* Read/reader.scm 332 */
																																															BgL_test9569z00_30590
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_18686)
																																																<
																																																58L);
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															BgL_test9569z00_30590
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test9569z00_30590)
																																														{
																																															long
																																																BgL_forwardz00_30597;
																																															long
																																																BgL_lastzd2matchzd2_30596;
																																															BgL_lastzd2matchzd2_30596
																																																=
																																																BgL_newzd2matchzd2_18683;
																																															BgL_forwardz00_30597
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_18681);
																																															BgL_forwardz00_18681
																																																=
																																																BgL_forwardz00_30597;
																																															BgL_lastzd2matchzd2_18680
																																																=
																																																BgL_lastzd2matchzd2_30596;
																																															goto
																																																BgL_statezd243zd21102z00_18280;
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															BgL_matchz00_19003
																																																=
																																																BgL_newzd2matchzd2_18683;
																																														}
																																												}
																																											}
																																										}
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_matchz00_19003
																																									=
																																									BgL_lastzd2matchzd2_18357;
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL_test9571z00_30601;
																																		{	/* Read/reader.scm 332 */
																																			bool_t
																																				BgL_test9572z00_30602;
																																			if ((
																																					(long)
																																					(BgL_curz00_18915)
																																					>=
																																					48L))
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9572z00_30602
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18915)
																																						<
																																						58L);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9572z00_30602
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9572z00_30602)
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9571z00_30601
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					bool_t
																																						BgL_test9574z00_30608;
																																					if ((
																																							(long)
																																							(BgL_curz00_18915)
																																							>=
																																							65L))
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9574z00_30608
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18915)
																																								<
																																								71L);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9574z00_30608
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9574z00_30608)
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9571z00_30601
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							if (((long) (BgL_curz00_18915) >= 97L))
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9571z00_30601
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18915)
																																										<
																																										103L);
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9571z00_30601
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																				}
																																		}
																																		if (BgL_test9571z00_30601)
																																			{
																																				long
																																					BgL_bufposz00_30623;
																																				long
																																					BgL_forwardz00_30621;
																																				long
																																					BgL_lastzd2matchzd2_30620;
																																				obj_t
																																					BgL_iportz00_30619;
																																				BgL_iportz00_30619
																																					=
																																					BgL_iportz00_18909;
																																				BgL_lastzd2matchzd2_30620
																																					=
																																					BgL_lastzd2matchzd2_18910;
																																				BgL_forwardz00_30621
																																					=
																																					(1L +
																																					BgL_forwardz00_18911);
																																				BgL_bufposz00_30623
																																					=
																																					BgL_bufposz00_18912;
																																				BgL_bufposz00_18829
																																					=
																																					BgL_bufposz00_30623;
																																				BgL_forwardz00_18828
																																					=
																																					BgL_forwardz00_30621;
																																				BgL_lastzd2matchzd2_18827
																																					=
																																					BgL_lastzd2matchzd2_30620;
																																				BgL_iportz00_18826
																																					=
																																					BgL_iportz00_30619;
																																				goto
																																					BgL_statezd232zd21091z00_18299;
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_matchz00_19003
																																					=
																																					BgL_lastzd2matchzd2_18910;
																																			}
																																	}
																															}
																														}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													bool_t
																														BgL_test9577z00_30625;
																													{	/* Read/reader.scm 332 */
																														bool_t
																															BgL_test9578z00_30626;
																														if (((long)
																																(BgL_curz00_18566)
																																== 49L))
																															{	/* Read/reader.scm 332 */
																																BgL_test9578z00_30626
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_test9578z00_30626
																																	=
																																	((long)
																																	(BgL_curz00_18566)
																																	== 48L);
																															}
																														if (BgL_test9578z00_30626)
																															{	/* Read/reader.scm 332 */
																																BgL_test9577z00_30625
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9580z00_30632;
																																if (((long)
																																		(BgL_curz00_18566)
																																		>= 51L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9580z00_30632
																																			=
																																			((long)
																																			(BgL_curz00_18566)
																																			< 58L);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9580z00_30632
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9580z00_30632)
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9577z00_30625
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL_test9582z00_30638;
																																		if (((long)
																																				(BgL_curz00_18566)
																																				>= 65L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9582z00_30638
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18566)
																																					<
																																					71L);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9582z00_30638
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test9582z00_30638)
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9577z00_30625
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				if (
																																					((long) (BgL_curz00_18566) >= 97L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9577z00_30625
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18566)
																																							<
																																							103L);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9577z00_30625
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																	}
																															}
																													}
																													if (BgL_test9577z00_30625)
																														{
																															long
																																BgL_bufposz00_30653;
																															long
																																BgL_forwardz00_30651;
																															long
																																BgL_lastzd2matchzd2_30650;
																															obj_t
																																BgL_iportz00_30649;
																															BgL_iportz00_30649
																																=
																																BgL_iportz00_18560;
																															BgL_lastzd2matchzd2_30650
																																=
																																BgL_lastzd2matchzd2_18561;
																															BgL_forwardz00_30651
																																=
																																(1L +
																																BgL_forwardz00_18562);
																															BgL_bufposz00_30653
																																=
																																BgL_bufposz00_18563;
																															BgL_bufposz00_18454
																																=
																																BgL_bufposz00_30653;
																															BgL_forwardz00_18453
																																=
																																BgL_forwardz00_30651;
																															BgL_lastzd2matchzd2_18452
																																=
																																BgL_lastzd2matchzd2_30650;
																															BgL_iportz00_18451
																																=
																																BgL_iportz00_30649;
																															goto
																																BgL_statezd230zd21089z00_18255;
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_matchz00_19003
																																=
																																BgL_lastzd2matchzd2_18561;
																														}
																												}
																										}
																									}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								if (
																									((long) (BgL_curz00_18503) ==
																										49L))
																									{	/* Read/reader.scm 332 */
																										BgL_iportz00_18391 =
																											BgL_iportz00_18496;
																										BgL_lastzd2matchzd2_18392 =
																											BgL_newzd2matchzd2_18500;
																										BgL_forwardz00_18393 =
																											(1L +
																											BgL_forwardz00_18498);
																										BgL_bufposz00_18394 =
																											BgL_bufposz00_18499;
																									BgL_statezd225zd21084z00_18248:
																										if (
																											(BgL_forwardz00_18393 ==
																												BgL_bufposz00_18394))
																											{	/* Read/reader.scm 332 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_18391))
																													{	/* Read/reader.scm 332 */
																														long
																															BgL_arg1625z00_18395;
																														long
																															BgL_arg1626z00_18396;
																														BgL_arg1625z00_18395
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_18391);
																														BgL_arg1626z00_18396
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_18391);
																														{
																															long
																																BgL_bufposz00_30665;
																															long
																																BgL_forwardz00_30664;
																															BgL_forwardz00_30664
																																=
																																BgL_arg1625z00_18395;
																															BgL_bufposz00_30665
																																=
																																BgL_arg1626z00_18396;
																															BgL_bufposz00_18394
																																=
																																BgL_bufposz00_30665;
																															BgL_forwardz00_18393
																																=
																																BgL_forwardz00_30664;
																															goto
																																BgL_statezd225zd21084z00_18248;
																														}
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_matchz00_19003 =
																															BgL_lastzd2matchzd2_18392;
																													}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												int BgL_curz00_18397;

																												BgL_curz00_18397 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_18391,
																													BgL_forwardz00_18393);
																												{	/* Read/reader.scm 332 */

																													if (
																														((long)
																															(BgL_curz00_18397)
																															== 54L))
																														{	/* Read/reader.scm 332 */
																															BgL_iportz00_18777
																																=
																																BgL_iportz00_18391;
																															BgL_lastzd2matchzd2_18778
																																=
																																BgL_lastzd2matchzd2_18392;
																															BgL_forwardz00_18779
																																=
																																(1L +
																																BgL_forwardz00_18393);
																															BgL_bufposz00_18780
																																=
																																BgL_bufposz00_18394;
																														BgL_statezd244zd21103z00_18293:
																															if (
																																(BgL_forwardz00_18779
																																	==
																																	BgL_bufposz00_18780))
																																{	/* Read/reader.scm 332 */
																																	if (rgc_fill_buffer(BgL_iportz00_18777))
																																		{	/* Read/reader.scm 332 */
																																			long
																																				BgL_arg2168z00_18781;
																																			long
																																				BgL_arg2169z00_18782;
																																			BgL_arg2168z00_18781
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_18777);
																																			BgL_arg2169z00_18782
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_18777);
																																			{
																																				long
																																					BgL_bufposz00_30677;
																																				long
																																					BgL_forwardz00_30676;
																																				BgL_forwardz00_30676
																																					=
																																					BgL_arg2168z00_18781;
																																				BgL_bufposz00_30677
																																					=
																																					BgL_arg2169z00_18782;
																																				BgL_bufposz00_18780
																																					=
																																					BgL_bufposz00_30677;
																																				BgL_forwardz00_18779
																																					=
																																					BgL_forwardz00_30676;
																																				goto
																																					BgL_statezd244zd21103z00_18293;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_matchz00_19003
																																				=
																																				BgL_lastzd2matchzd2_18778;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	int
																																		BgL_curz00_18783;
																																	BgL_curz00_18783
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_18777,
																																		BgL_forwardz00_18779);
																																	{	/* Read/reader.scm 332 */

																																		if (
																																			((long)
																																				(BgL_curz00_18783)
																																				== 58L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_iportz00_18641
																																					=
																																					BgL_iportz00_18777;
																																				BgL_lastzd2matchzd2_18642
																																					=
																																					BgL_lastzd2matchzd2_18778;
																																				BgL_forwardz00_18643
																																					=
																																					(1L +
																																					BgL_forwardz00_18779);
																																				BgL_bufposz00_18644
																																					=
																																					BgL_bufposz00_18780;
																																			BgL_statezd245zd21104z00_18275:
																																				if (
																																					(BgL_forwardz00_18643
																																						==
																																						BgL_bufposz00_18644))
																																					{	/* Read/reader.scm 332 */
																																						if (rgc_fill_buffer(BgL_iportz00_18641))
																																							{	/* Read/reader.scm 332 */
																																								long
																																									BgL_arg1980z00_18645;
																																								long
																																									BgL_arg1981z00_18646;
																																								BgL_arg1980z00_18645
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_18641);
																																								BgL_arg1981z00_18646
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_18641);
																																								{
																																									long
																																										BgL_bufposz00_30689;
																																									long
																																										BgL_forwardz00_30688;
																																									BgL_forwardz00_30688
																																										=
																																										BgL_arg1980z00_18645;
																																									BgL_bufposz00_30689
																																										=
																																										BgL_arg1981z00_18646;
																																									BgL_bufposz00_18644
																																										=
																																										BgL_bufposz00_30689;
																																									BgL_forwardz00_18643
																																										=
																																										BgL_forwardz00_30688;
																																									goto
																																										BgL_statezd245zd21104z00_18275;
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_matchz00_19003
																																									=
																																									BgL_lastzd2matchzd2_18642;
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						int
																																							BgL_curz00_18647;
																																						BgL_curz00_18647
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_18641,
																																							BgL_forwardz00_18643);
																																						{	/* Read/reader.scm 332 */

																																							{	/* Read/reader.scm 332 */
																																								bool_t
																																									BgL_test9594z00_30691;
																																								if (((long) (BgL_curz00_18647) >= 48L))
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9594z00_30691
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18647)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9594z00_30691
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test9594z00_30691)
																																									{	/* Read/reader.scm 332 */
																																										BgL_iportz00_18694
																																											=
																																											BgL_iportz00_18641;
																																										BgL_lastzd2matchzd2_18695
																																											=
																																											BgL_lastzd2matchzd2_18642;
																																										BgL_forwardz00_18696
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_18643);
																																										BgL_bufposz00_18697
																																											=
																																											BgL_bufposz00_18644;
																																									BgL_statezd246zd21105z00_18282:
																																										{	/* Read/reader.scm 332 */
																																											long
																																												BgL_newzd2matchzd2_18698;
																																											RGC_STOP_MATCH
																																												(BgL_iportz00_18694,
																																												BgL_forwardz00_18696);
																																											BgL_newzd2matchzd2_18698
																																												=
																																												18L;
																																											if ((BgL_forwardz00_18696 == BgL_bufposz00_18697))
																																												{	/* Read/reader.scm 332 */
																																													if (rgc_fill_buffer(BgL_iportz00_18694))
																																														{	/* Read/reader.scm 332 */
																																															long
																																																BgL_arg2055z00_18699;
																																															long
																																																BgL_arg2056z00_18700;
																																															BgL_arg2055z00_18699
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_18694);
																																															BgL_arg2056z00_18700
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_18694);
																																															{
																																																long
																																																	BgL_bufposz00_30705;
																																																long
																																																	BgL_forwardz00_30704;
																																																BgL_forwardz00_30704
																																																	=
																																																	BgL_arg2055z00_18699;
																																																BgL_bufposz00_30705
																																																	=
																																																	BgL_arg2056z00_18700;
																																																BgL_bufposz00_18697
																																																	=
																																																	BgL_bufposz00_30705;
																																																BgL_forwardz00_18696
																																																	=
																																																	BgL_forwardz00_30704;
																																																goto
																																																	BgL_statezd246zd21105z00_18282;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															BgL_matchz00_19003
																																																=
																																																BgL_newzd2matchzd2_18698;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													int
																																														BgL_curz00_18701;
																																													BgL_curz00_18701
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_18694,
																																														BgL_forwardz00_18696);
																																													{	/* Read/reader.scm 332 */

																																														{	/* Read/reader.scm 332 */
																																															bool_t
																																																BgL_test9598z00_30707;
																																															if (((long) (BgL_curz00_18701) >= 48L))
																																																{	/* Read/reader.scm 332 */
																																																	BgL_test9598z00_30707
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_18701)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Read/reader.scm 332 */
																																																	BgL_test9598z00_30707
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test9598z00_30707)
																																																{
																																																	long
																																																		BgL_forwardz00_30714;
																																																	long
																																																		BgL_lastzd2matchzd2_30713;
																																																	BgL_lastzd2matchzd2_30713
																																																		=
																																																		BgL_newzd2matchzd2_18698;
																																																	BgL_forwardz00_30714
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_18696);
																																																	BgL_forwardz00_18696
																																																		=
																																																		BgL_forwardz00_30714;
																																																	BgL_lastzd2matchzd2_18695
																																																		=
																																																		BgL_lastzd2matchzd2_30713;
																																																	goto
																																																		BgL_statezd246zd21105z00_18282;
																																																}
																																															else
																																																{	/* Read/reader.scm 332 */
																																																	BgL_matchz00_19003
																																																		=
																																																		BgL_newzd2matchzd2_18698;
																																																}
																																														}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_matchz00_19003
																																											=
																																											BgL_lastzd2matchzd2_18642;
																																									}
																																							}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				bool_t
																																					BgL_test9600z00_30718;
																																				{	/* Read/reader.scm 332 */
																																					bool_t
																																						BgL_test9601z00_30719;
																																					if ((
																																							(long)
																																							(BgL_curz00_18783)
																																							>=
																																							48L))
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9601z00_30719
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18783)
																																								<
																																								58L);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9601z00_30719
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9601z00_30719)
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9600z00_30718
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							bool_t
																																								BgL_test9603z00_30725;
																																							if (((long) (BgL_curz00_18783) >= 65L))
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9603z00_30725
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18783)
																																										<
																																										71L);
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9603z00_30725
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test9603z00_30725)
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9600z00_30718
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									if (((long) (BgL_curz00_18783) >= 97L))
																																										{	/* Read/reader.scm 332 */
																																											BgL_test9600z00_30718
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_18783)
																																												<
																																												103L);
																																										}
																																									else
																																										{	/* Read/reader.scm 332 */
																																											BgL_test9600z00_30718
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																								}
																																						}
																																				}
																																				if (BgL_test9600z00_30718)
																																					{
																																						long
																																							BgL_bufposz00_30740;
																																						long
																																							BgL_forwardz00_30738;
																																						long
																																							BgL_lastzd2matchzd2_30737;
																																						obj_t
																																							BgL_iportz00_30736;
																																						BgL_iportz00_30736
																																							=
																																							BgL_iportz00_18777;
																																						BgL_lastzd2matchzd2_30737
																																							=
																																							BgL_lastzd2matchzd2_18778;
																																						BgL_forwardz00_30738
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_18779);
																																						BgL_bufposz00_30740
																																							=
																																							BgL_bufposz00_18780;
																																						BgL_bufposz00_18829
																																							=
																																							BgL_bufposz00_30740;
																																						BgL_forwardz00_18828
																																							=
																																							BgL_forwardz00_30738;
																																						BgL_lastzd2matchzd2_18827
																																							=
																																							BgL_lastzd2matchzd2_30737;
																																						BgL_iportz00_18826
																																							=
																																							BgL_iportz00_30736;
																																						goto
																																							BgL_statezd232zd21091z00_18299;
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_matchz00_19003
																																							=
																																							BgL_lastzd2matchzd2_18778;
																																					}
																																			}
																																	}
																																}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															bool_t
																																BgL_test9606z00_30742;
																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9607z00_30743;
																																if (((long)
																																		(BgL_curz00_18397)
																																		>= 48L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9607z00_30743
																																			=
																																			((long)
																																			(BgL_curz00_18397)
																																			< 54L);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9607z00_30743
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9607z00_30743)
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9606z00_30742
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL_test9609z00_30749;
																																		if (((long)
																																				(BgL_curz00_18397)
																																				== 57L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9609z00_30749
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				if (
																																					((long) (BgL_curz00_18397) == 56L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9609z00_30749
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9609z00_30749
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18397)
																																							==
																																							55L);
																																			}}
																																		if (BgL_test9609z00_30749)
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9606z00_30742
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				bool_t
																																					BgL_test9612z00_30758;
																																				if ((
																																						(long)
																																						(BgL_curz00_18397)
																																						>=
																																						65L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9612z00_30758
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18397)
																																							<
																																							71L);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9612z00_30758
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test9612z00_30758)
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9606z00_30742
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						if (
																																							((long) (BgL_curz00_18397) >= 97L))
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9606z00_30742
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18397)
																																									<
																																									103L);
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9606z00_30742
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																					}
																																			}
																																	}
																															}
																															if (BgL_test9606z00_30742)
																																{
																																	long
																																		BgL_bufposz00_30773;
																																	long
																																		BgL_forwardz00_30771;
																																	long
																																		BgL_lastzd2matchzd2_30770;
																																	obj_t
																																		BgL_iportz00_30769;
																																	BgL_iportz00_30769
																																		=
																																		BgL_iportz00_18391;
																																	BgL_lastzd2matchzd2_30770
																																		=
																																		BgL_lastzd2matchzd2_18392;
																																	BgL_forwardz00_30771
																																		=
																																		(1L +
																																		BgL_forwardz00_18393);
																																	BgL_bufposz00_30773
																																		=
																																		BgL_bufposz00_18394;
																																	BgL_bufposz00_18454
																																		=
																																		BgL_bufposz00_30773;
																																	BgL_forwardz00_18453
																																		=
																																		BgL_forwardz00_30771;
																																	BgL_lastzd2matchzd2_18452
																																		=
																																		BgL_lastzd2matchzd2_30770;
																																	BgL_iportz00_18451
																																		=
																																		BgL_iportz00_30769;
																																	goto
																																		BgL_statezd230zd21089z00_18255;
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_matchz00_19003
																																		=
																																		BgL_lastzd2matchzd2_18392;
																																}
																														}
																												}
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										bool_t
																											BgL_test9615z00_30775;
																										if (((long)
																												(BgL_curz00_18503) ==
																												48L))
																											{	/* Read/reader.scm 332 */
																												BgL_test9615z00_30775 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												if (
																													((long)
																														(BgL_curz00_18503)
																														== 50L))
																													{	/* Read/reader.scm 332 */
																														BgL_test9615z00_30775
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														bool_t
																															BgL_test9618z00_30782;
																														if (((long)
																																(BgL_curz00_18503)
																																== 53L))
																															{	/* Read/reader.scm 332 */
																																BgL_test9618z00_30782
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_test9618z00_30782
																																	=
																																	((long)
																																	(BgL_curz00_18503)
																																	== 52L);
																															}
																														if (BgL_test9618z00_30782)
																															{	/* Read/reader.scm 332 */
																																BgL_test9615z00_30775
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																if (
																																	((long)
																																		(BgL_curz00_18503)
																																		== 55L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9615z00_30775
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		if (
																																			((long)
																																				(BgL_curz00_18503)
																																				== 57L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9615z00_30775
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				bool_t
																																					BgL_test9622z00_30794;
																																				if ((
																																						(long)
																																						(BgL_curz00_18503)
																																						>=
																																						65L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9622z00_30794
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18503)
																																							<
																																							71L);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9622z00_30794
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test9622z00_30794)
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9615z00_30775
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9615z00_30775
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18503)
																																							==
																																							97L);
																											}}}}}}
																										if (BgL_test9615z00_30775)
																											{	/* Read/reader.scm 332 */
																												BgL_iportz00_18663 =
																													BgL_iportz00_18496;
																												BgL_lastzd2matchzd2_18664
																													=
																													BgL_newzd2matchzd2_18500;
																												BgL_forwardz00_18665 =
																													(1L +
																													BgL_forwardz00_18498);
																												BgL_bufposz00_18666 =
																													BgL_bufposz00_18499;
																											BgL_statezd224zd21083z00_18278:
																												if (
																													(BgL_forwardz00_18665
																														==
																														BgL_bufposz00_18666))
																													{	/* Read/reader.scm 332 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_18663))
																															{	/* Read/reader.scm 332 */
																																long
																																	BgL_arg2004z00_18667;
																																long
																																	BgL_arg2006z00_18668;
																																BgL_arg2004z00_18667
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_18663);
																																BgL_arg2006z00_18668
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_18663);
																																{
																																	long
																																		BgL_bufposz00_30809;
																																	long
																																		BgL_forwardz00_30808;
																																	BgL_forwardz00_30808
																																		=
																																		BgL_arg2004z00_18667;
																																	BgL_bufposz00_30809
																																		=
																																		BgL_arg2006z00_18668;
																																	BgL_bufposz00_18666
																																		=
																																		BgL_bufposz00_30809;
																																	BgL_forwardz00_18665
																																		=
																																		BgL_forwardz00_30808;
																																	goto
																																		BgL_statezd224zd21083z00_18278;
																																}
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_matchz00_19003
																																	=
																																	BgL_lastzd2matchzd2_18664;
																															}
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														int
																															BgL_curz00_18669;
																														BgL_curz00_18669 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_18663,
																															BgL_forwardz00_18665);
																														{	/* Read/reader.scm 332 */

																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9626z00_30811;
																																{	/* Read/reader.scm 332 */
																																	bool_t
																																		BgL_test9627z00_30812;
																																	if (((long)
																																			(BgL_curz00_18669)
																																			>= 48L))
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9627z00_30812
																																				=
																																				((long)
																																				(BgL_curz00_18669)
																																				< 58L);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9627z00_30812
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test9627z00_30812)
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9626z00_30811
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			bool_t
																																				BgL_test9629z00_30818;
																																			if ((
																																					(long)
																																					(BgL_curz00_18669)
																																					>=
																																					65L))
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9629z00_30818
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18669)
																																						<
																																						71L);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9629z00_30818
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9629z00_30818)
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9626z00_30811
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					if (
																																						((long) (BgL_curz00_18669) >= 97L))
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9626z00_30811
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18669)
																																								<
																																								103L);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9626z00_30811
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																				}
																																		}
																																}
																																if (BgL_test9626z00_30811)
																																	{
																																		long
																																			BgL_bufposz00_30833;
																																		long
																																			BgL_forwardz00_30831;
																																		long
																																			BgL_lastzd2matchzd2_30830;
																																		obj_t
																																			BgL_iportz00_30829;
																																		BgL_iportz00_30829
																																			=
																																			BgL_iportz00_18663;
																																		BgL_lastzd2matchzd2_30830
																																			=
																																			BgL_lastzd2matchzd2_18664;
																																		BgL_forwardz00_30831
																																			=
																																			(1L +
																																			BgL_forwardz00_18665);
																																		BgL_bufposz00_30833
																																			=
																																			BgL_bufposz00_18666;
																																		BgL_bufposz00_18454
																																			=
																																			BgL_bufposz00_30833;
																																		BgL_forwardz00_18453
																																			=
																																			BgL_forwardz00_30831;
																																		BgL_lastzd2matchzd2_18452
																																			=
																																			BgL_lastzd2matchzd2_30830;
																																		BgL_iportz00_18451
																																			=
																																			BgL_iportz00_30829;
																																		goto
																																			BgL_statezd230zd21089z00_18255;
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_matchz00_19003
																																			=
																																			BgL_lastzd2matchzd2_18664;
																																	}
																															}
																														}
																													}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9632z00_30835;
																												if (((long)
																														(BgL_curz00_18503)
																														== 45L))
																													{	/* Read/reader.scm 332 */
																														BgL_test9632z00_30835
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														bool_t
																															BgL_test9634z00_30839;
																														if (((long)
																																(BgL_curz00_18503)
																																== 106L))
																															{	/* Read/reader.scm 332 */
																																BgL_test9634z00_30839
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_test9634z00_30839
																																	=
																																	((long)
																																	(BgL_curz00_18503)
																																	== 105L);
																															}
																														if (BgL_test9634z00_30839)
																															{	/* Read/reader.scm 332 */
																																BgL_test9632z00_30835
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9636z00_30845;
																																if (((long)
																																		(BgL_curz00_18503)
																																		== 112L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9636z00_30845
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		if (
																																			((long)
																																				(BgL_curz00_18503)
																																				==
																																				111L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9636z00_30845
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9636z00_30845
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18503)
																																					==
																																					110L);
																																	}}
																																if (BgL_test9636z00_30845)
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9632z00_30835
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL__ortest_1163z00_18504;
																																		BgL__ortest_1163z00_18504
																																			=
																																			((long)
																																			(BgL_curz00_18503)
																																			== 116L);
																																		if (BgL__ortest_1163z00_18504)
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9632z00_30835
																																					=
																																					BgL__ortest_1163z00_18504;
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9632z00_30835
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18503)
																																					==
																																					115L);
																													}}}}
																												if (BgL_test9632z00_30835)
																													{
																														long
																															BgL_bufposz00_30863;
																														long
																															BgL_forwardz00_30861;
																														long
																															BgL_lastzd2matchzd2_30860;
																														obj_t
																															BgL_iportz00_30859;
																														BgL_iportz00_30859 =
																															BgL_iportz00_18496;
																														BgL_lastzd2matchzd2_30860
																															=
																															BgL_newzd2matchzd2_18500;
																														BgL_forwardz00_30861
																															=
																															(1L +
																															BgL_forwardz00_18498);
																														BgL_bufposz00_30863
																															=
																															BgL_bufposz00_18499;
																														BgL_bufposz00_18673
																															=
																															BgL_bufposz00_30863;
																														BgL_forwardz00_18672
																															=
																															BgL_forwardz00_30861;
																														BgL_lastzd2matchzd2_18671
																															=
																															BgL_lastzd2matchzd2_30860;
																														BgL_iportz00_18670 =
																															BgL_iportz00_30859;
																														goto
																															BgL_statezd223zd21082z00_18279;
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														if (
																															((long)
																																(BgL_curz00_18503)
																																== 34L))
																															{	/* Read/reader.scm 332 */
																																BgL_iportz00_18413
																																	=
																																	BgL_iportz00_18496;
																																BgL_lastzd2matchzd2_18414
																																	=
																																	BgL_newzd2matchzd2_18500;
																																BgL_forwardz00_18415
																																	=
																																	(1L +
																																	BgL_forwardz00_18498);
																																BgL_bufposz00_18416
																																	=
																																	BgL_bufposz00_18499;
																															BgL_statezd222zd21081z00_18251:
																																if (
																																	(BgL_forwardz00_18415
																																		==
																																		BgL_bufposz00_18416))
																																	{	/* Read/reader.scm 332 */
																																		if (rgc_fill_buffer(BgL_iportz00_18413))
																																			{	/* Read/reader.scm 332 */
																																				long
																																					BgL_arg1668z00_18417;
																																				long
																																					BgL_arg1669z00_18418;
																																				BgL_arg1668z00_18417
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_18413);
																																				BgL_arg1669z00_18418
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_18413);
																																				{
																																					long
																																						BgL_bufposz00_30874;
																																					long
																																						BgL_forwardz00_30873;
																																					BgL_forwardz00_30873
																																						=
																																						BgL_arg1668z00_18417;
																																					BgL_bufposz00_30874
																																						=
																																						BgL_arg1669z00_18418;
																																					BgL_bufposz00_18416
																																						=
																																						BgL_bufposz00_30874;
																																					BgL_forwardz00_18415
																																						=
																																						BgL_forwardz00_30873;
																																					goto
																																						BgL_statezd222zd21081z00_18251;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_matchz00_19003
																																					=
																																					BgL_lastzd2matchzd2_18414;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		int
																																			BgL_curz00_18419;
																																		BgL_curz00_18419
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_18413,
																																			BgL_forwardz00_18415);
																																		{	/* Read/reader.scm 332 */

																																			if (
																																				((long)
																																					(BgL_curz00_18419)
																																					==
																																					92L))
																																				{	/* Read/reader.scm 332 */
																																					long
																																						BgL_arg1671z00_18420;
																																					BgL_arg1671z00_18420
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_18415);
																																					{
																																						long
																																							BgL_forwardz00_18422;
																																						long
																																							BgL_bufposz00_18423;
																																						BgL_forwardz00_18422
																																							=
																																							BgL_arg1671z00_18420;
																																						BgL_bufposz00_18423
																																							=
																																							BgL_bufposz00_18416;
																																					BgL_statezd248zd21107z00_18421:
																																						if (
																																							(BgL_forwardz00_18422
																																								==
																																								BgL_bufposz00_18423))
																																							{	/* Read/reader.scm 332 */
																																								if (rgc_fill_buffer(BgL_iportz00_18413))
																																									{	/* Read/reader.scm 332 */
																																										long
																																											BgL_arg1777z00_18424;
																																										long
																																											BgL_arg1778z00_18425;
																																										BgL_arg1777z00_18424
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_18413);
																																										BgL_arg1778z00_18425
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_18413);
																																										{
																																											long
																																												BgL_bufposz00_30887;
																																											long
																																												BgL_forwardz00_30886;
																																											BgL_forwardz00_30886
																																												=
																																												BgL_arg1777z00_18424;
																																											BgL_bufposz00_30887
																																												=
																																												BgL_arg1778z00_18425;
																																											BgL_bufposz00_18423
																																												=
																																												BgL_bufposz00_30887;
																																											BgL_forwardz00_18422
																																												=
																																												BgL_forwardz00_30886;
																																											goto
																																												BgL_statezd248zd21107z00_18421;
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_matchz00_19003
																																											=
																																											BgL_lastzd2matchzd2_18414;
																																									}
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								int
																																									BgL_curz00_18426;
																																								BgL_curz00_18426
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_18413,
																																									BgL_forwardz00_18422);
																																								{	/* Read/reader.scm 332 */

																																									if (((long) (BgL_curz00_18426) == 10L))
																																										{	/* Read/reader.scm 332 */
																																											BgL_matchz00_19003
																																												=
																																												BgL_lastzd2matchzd2_18414;
																																										}
																																									else
																																										{
																																											long
																																												BgL_bufposz00_30894;
																																											long
																																												BgL_forwardz00_30892;
																																											BgL_forwardz00_30892
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_18422);
																																											BgL_bufposz00_30894
																																												=
																																												BgL_bufposz00_18423;
																																											BgL_bufposz00_18416
																																												=
																																												BgL_bufposz00_30894;
																																											BgL_forwardz00_18415
																																												=
																																												BgL_forwardz00_30892;
																																											goto
																																												BgL_statezd222zd21081z00_18251;
																																										}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					if (
																																						((long) (BgL_curz00_18419) == 34L))
																																						{	/* Read/reader.scm 332 */
																																							long
																																								BgL_arg1673z00_18427;
																																							BgL_arg1673z00_18427
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_18415);
																																							{	/* Read/reader.scm 332 */
																																								long
																																									BgL_newzd2matchzd2_18428;
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_18413,
																																									BgL_arg1673z00_18427);
																																								BgL_newzd2matchzd2_18428
																																									=
																																									3L;
																																								BgL_matchz00_19003
																																									=
																																									BgL_newzd2matchzd2_18428;
																																						}}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							bool_t
																																								BgL_test9648z00_30900;
																																							if (((long) (BgL_curz00_18419) == 34L))
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9648z00_30900
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9648z00_30900
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18419)
																																										==
																																										92L);
																																								}
																																							if (BgL_test9648z00_30900)
																																								{	/* Read/reader.scm 332 */
																																									BgL_matchz00_19003
																																										=
																																										BgL_lastzd2matchzd2_18414;
																																								}
																																							else
																																								{
																																									long
																																										BgL_forwardz00_30906;
																																									BgL_forwardz00_30906
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_18415);
																																									BgL_forwardz00_18415
																																										=
																																										BgL_forwardz00_30906;
																																									goto
																																										BgL_statezd222zd21081z00_18251;
																																								}
																																						}
																																				}
																																		}
																																	}
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_matchz00_19003
																																	=
																																	BgL_newzd2matchzd2_18500;
																															}
																													}
																											}
																									}
																							}
																					}
																			}
																	}
															}
														}
													}
											}
											break;
										case 115L:

											BgL_iportz00_18589 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18590 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18591 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18592 = BgL_bufposz00_18383;
										BgL_statezd211zd21070z00_18272:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18593;

												RGC_STOP_MATCH(BgL_iportz00_18589,
													BgL_forwardz00_18591);
												BgL_newzd2matchzd2_18593 = 25L;
												if ((BgL_forwardz00_18591 == BgL_bufposz00_18592))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18589))
															{	/* Read/reader.scm 332 */
																long BgL_arg1939z00_18594;
																long BgL_arg1940z00_18595;

																BgL_arg1939z00_18594 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18589);
																BgL_arg1940z00_18595 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18589);
																{
																	long BgL_bufposz00_30918;
																	long BgL_forwardz00_30917;

																	BgL_forwardz00_30917 = BgL_arg1939z00_18594;
																	BgL_bufposz00_30918 = BgL_arg1940z00_18595;
																	BgL_bufposz00_18592 = BgL_bufposz00_30918;
																	BgL_forwardz00_18591 = BgL_forwardz00_30917;
																	goto BgL_statezd211zd21070z00_18272;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18593;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18596;

														BgL_curz00_18596 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18589,
															BgL_forwardz00_18591);
														{	/* Read/reader.scm 332 */

															if (((long) (BgL_curz00_18596) == 56L))
																{	/* Read/reader.scm 332 */
																	long BgL_arg1942z00_18597;

																	BgL_arg1942z00_18597 =
																		(1L + BgL_forwardz00_18591);
																	{
																		long BgL_forwardz00_18599;
																		long BgL_bufposz00_18600;

																		BgL_forwardz00_18599 = BgL_arg1942z00_18597;
																		BgL_bufposz00_18600 = BgL_bufposz00_18592;
																	BgL_statezd252zd21111z00_18598:
																		if (
																			(BgL_forwardz00_18599 ==
																				BgL_bufposz00_18600))
																			{	/* Read/reader.scm 332 */
																				if (rgc_fill_buffer(BgL_iportz00_18589))
																					{	/* Read/reader.scm 332 */
																						long BgL_arg1693z00_18601;
																						long BgL_arg1695z00_18602;

																						BgL_arg1693z00_18601 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_18589);
																						BgL_arg1695z00_18602 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_18589);
																						{
																							long BgL_bufposz00_30931;
																							long BgL_forwardz00_30930;

																							BgL_forwardz00_30930 =
																								BgL_arg1693z00_18601;
																							BgL_bufposz00_30931 =
																								BgL_arg1695z00_18602;
																							BgL_bufposz00_18600 =
																								BgL_bufposz00_30931;
																							BgL_forwardz00_18599 =
																								BgL_forwardz00_30930;
																							goto
																								BgL_statezd252zd21111z00_18598;
																						}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						BgL_matchz00_19003 =
																							BgL_newzd2matchzd2_18593;
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				int BgL_curz00_18603;

																				BgL_curz00_18603 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_18589,
																					BgL_forwardz00_18599);
																				{	/* Read/reader.scm 332 */

																					if (
																						((long) (BgL_curz00_18603) == 58L))
																						{	/* Read/reader.scm 332 */
																							BgL_iportz00_18567 =
																								BgL_iportz00_18589;
																							BgL_lastzd2matchzd2_18568 =
																								BgL_newzd2matchzd2_18593;
																							BgL_forwardz00_18569 =
																								(1L + BgL_forwardz00_18599);
																							BgL_bufposz00_18570 =
																								BgL_bufposz00_18600;
																						BgL_statezd253zd21112z00_18269:
																							if (
																								(BgL_forwardz00_18569 ==
																									BgL_bufposz00_18570))
																								{	/* Read/reader.scm 332 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_18567))
																										{	/* Read/reader.scm 332 */
																											long BgL_arg1909z00_18571;
																											long BgL_arg1911z00_18572;

																											BgL_arg1909z00_18571 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_18567);
																											BgL_arg1911z00_18572 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_18567);
																											{
																												long
																													BgL_bufposz00_30943;
																												long
																													BgL_forwardz00_30942;
																												BgL_forwardz00_30942 =
																													BgL_arg1909z00_18571;
																												BgL_bufposz00_30943 =
																													BgL_arg1911z00_18572;
																												BgL_bufposz00_18570 =
																													BgL_bufposz00_30943;
																												BgL_forwardz00_18569 =
																													BgL_forwardz00_30942;
																												goto
																													BgL_statezd253zd21112z00_18269;
																											}
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_matchz00_19003 =
																												BgL_lastzd2matchzd2_18568;
																										}
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									int BgL_curz00_18573;

																									BgL_curz00_18573 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_18567,
																										BgL_forwardz00_18569);
																									{	/* Read/reader.scm 332 */

																										{	/* Read/reader.scm 332 */
																											bool_t
																												BgL_test9658z00_30945;
																											if (((long)
																													(BgL_curz00_18573) >=
																													48L))
																												{	/* Read/reader.scm 332 */
																													BgL_test9658z00_30945
																														=
																														((long)
																														(BgL_curz00_18573) <
																														58L);
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_test9658z00_30945
																														= ((bool_t) 0);
																												}
																											if (BgL_test9658z00_30945)
																												{	/* Read/reader.scm 332 */
																													BgL_iportz00_18769 =
																														BgL_iportz00_18567;
																													BgL_lastzd2matchzd2_18770
																														=
																														BgL_lastzd2matchzd2_18568;
																													BgL_forwardz00_18771 =
																														(1L +
																														BgL_forwardz00_18569);
																													BgL_bufposz00_18772 =
																														BgL_bufposz00_18570;
																												BgL_statezd255zd21114z00_18292:
																													{	/* Read/reader.scm 332 */
																														long
																															BgL_newzd2matchzd2_18773;
																														RGC_STOP_MATCH
																															(BgL_iportz00_18769,
																															BgL_forwardz00_18771);
																														BgL_newzd2matchzd2_18773
																															= 15L;
																														if (
																															(BgL_forwardz00_18771
																																==
																																BgL_bufposz00_18772))
																															{	/* Read/reader.scm 332 */
																																if (rgc_fill_buffer(BgL_iportz00_18769))
																																	{	/* Read/reader.scm 332 */
																																		long
																																			BgL_arg2160z00_18774;
																																		long
																																			BgL_arg2161z00_18775;
																																		BgL_arg2160z00_18774
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_18769);
																																		BgL_arg2161z00_18775
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_18769);
																																		{
																																			long
																																				BgL_bufposz00_30959;
																																			long
																																				BgL_forwardz00_30958;
																																			BgL_forwardz00_30958
																																				=
																																				BgL_arg2160z00_18774;
																																			BgL_bufposz00_30959
																																				=
																																				BgL_arg2161z00_18775;
																																			BgL_bufposz00_18772
																																				=
																																				BgL_bufposz00_30959;
																																			BgL_forwardz00_18771
																																				=
																																				BgL_forwardz00_30958;
																																			goto
																																				BgL_statezd255zd21114z00_18292;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_matchz00_19003
																																			=
																																			BgL_newzd2matchzd2_18773;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																int
																																	BgL_curz00_18776;
																																BgL_curz00_18776
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_18769,
																																	BgL_forwardz00_18771);
																																{	/* Read/reader.scm 332 */

																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL_test9662z00_30961;
																																		if (((long)
																																				(BgL_curz00_18776)
																																				>= 48L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9662z00_30961
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18776)
																																					<
																																					58L);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9662z00_30961
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test9662z00_30961)
																																			{
																																				long
																																					BgL_forwardz00_30968;
																																				long
																																					BgL_lastzd2matchzd2_30967;
																																				BgL_lastzd2matchzd2_30967
																																					=
																																					BgL_newzd2matchzd2_18773;
																																				BgL_forwardz00_30968
																																					=
																																					(1L +
																																					BgL_forwardz00_18771);
																																				BgL_forwardz00_18771
																																					=
																																					BgL_forwardz00_30968;
																																				BgL_lastzd2matchzd2_18770
																																					=
																																					BgL_lastzd2matchzd2_30967;
																																				goto
																																					BgL_statezd255zd21114z00_18292;
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_matchz00_19003
																																					=
																																					BgL_newzd2matchzd2_18773;
																																			}
																																	}
																																}
																															}
																													}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													if (
																														((long)
																															(BgL_curz00_18573)
																															== 45L))
																														{	/* Read/reader.scm 332 */
																															BgL_iportz00_18574
																																=
																																BgL_iportz00_18567;
																															BgL_lastzd2matchzd2_18575
																																=
																																BgL_lastzd2matchzd2_18568;
																															BgL_forwardz00_18576
																																=
																																(1L +
																																BgL_forwardz00_18569);
																															BgL_bufposz00_18577
																																=
																																BgL_bufposz00_18570;
																														BgL_statezd254zd21113z00_18270:
																															if (
																																(BgL_forwardz00_18576
																																	==
																																	BgL_bufposz00_18577))
																																{	/* Read/reader.scm 332 */
																																	if (rgc_fill_buffer(BgL_iportz00_18574))
																																		{	/* Read/reader.scm 332 */
																																			long
																																				BgL_arg1920z00_18578;
																																			long
																																				BgL_arg1921z00_18579;
																																			BgL_arg1920z00_18578
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_18574);
																																			BgL_arg1921z00_18579
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_18574);
																																			{
																																				long
																																					BgL_bufposz00_30981;
																																				long
																																					BgL_forwardz00_30980;
																																				BgL_forwardz00_30980
																																					=
																																					BgL_arg1920z00_18578;
																																				BgL_bufposz00_30981
																																					=
																																					BgL_arg1921z00_18579;
																																				BgL_bufposz00_18577
																																					=
																																					BgL_bufposz00_30981;
																																				BgL_forwardz00_18576
																																					=
																																					BgL_forwardz00_30980;
																																				goto
																																					BgL_statezd254zd21113z00_18270;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_matchz00_19003
																																				=
																																				BgL_lastzd2matchzd2_18575;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	int
																																		BgL_curz00_18580;
																																	BgL_curz00_18580
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_18574,
																																		BgL_forwardz00_18576);
																																	{	/* Read/reader.scm 332 */

																																		{	/* Read/reader.scm 332 */
																																			bool_t
																																				BgL_test9667z00_30983;
																																			if ((
																																					(long)
																																					(BgL_curz00_18580)
																																					>=
																																					48L))
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9667z00_30983
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18580)
																																						<
																																						58L);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9667z00_30983
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9667z00_30983)
																																				{
																																					long
																																						BgL_bufposz00_30993;
																																					long
																																						BgL_forwardz00_30991;
																																					long
																																						BgL_lastzd2matchzd2_30990;
																																					obj_t
																																						BgL_iportz00_30989;
																																					BgL_iportz00_30989
																																						=
																																						BgL_iportz00_18574;
																																					BgL_lastzd2matchzd2_30990
																																						=
																																						BgL_lastzd2matchzd2_18575;
																																					BgL_forwardz00_30991
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_18576);
																																					BgL_bufposz00_30993
																																						=
																																						BgL_bufposz00_18577;
																																					BgL_bufposz00_18772
																																						=
																																						BgL_bufposz00_30993;
																																					BgL_forwardz00_18771
																																						=
																																						BgL_forwardz00_30991;
																																					BgL_lastzd2matchzd2_18770
																																						=
																																						BgL_lastzd2matchzd2_30990;
																																					BgL_iportz00_18769
																																						=
																																						BgL_iportz00_30989;
																																					goto
																																						BgL_statezd255zd21114z00_18292;
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_matchz00_19003
																																						=
																																						BgL_lastzd2matchzd2_18575;
																																				}
																																		}
																																	}
																																}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_matchz00_19003
																																=
																																BgL_lastzd2matchzd2_18568;
																														}
																												}
																										}
																									}
																								}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_newzd2matchzd2_18593;
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 332 */
																	if (((long) (BgL_curz00_18596) == 54L))
																		{	/* Read/reader.scm 332 */
																			long BgL_arg1944z00_18604;

																			BgL_arg1944z00_18604 =
																				(1L + BgL_forwardz00_18591);
																			{
																				long BgL_forwardz00_18606;
																				long BgL_bufposz00_18607;

																				BgL_forwardz00_18606 =
																					BgL_arg1944z00_18604;
																				BgL_bufposz00_18607 =
																					BgL_bufposz00_18592;
																			BgL_statezd251zd21110z00_18605:
																				if (
																					(BgL_forwardz00_18606 ==
																						BgL_bufposz00_18607))
																					{	/* Read/reader.scm 332 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18589))
																							{	/* Read/reader.scm 332 */
																								long BgL_arg2414z00_18608;
																								long BgL_arg2415z00_18609;

																								BgL_arg2414z00_18608 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18589);
																								BgL_arg2415z00_18609 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18589);
																								{
																									long BgL_bufposz00_31007;
																									long BgL_forwardz00_31006;

																									BgL_forwardz00_31006 =
																										BgL_arg2414z00_18608;
																									BgL_bufposz00_31007 =
																										BgL_arg2415z00_18609;
																									BgL_bufposz00_18607 =
																										BgL_bufposz00_31007;
																									BgL_forwardz00_18606 =
																										BgL_forwardz00_31006;
																									goto
																										BgL_statezd251zd21110z00_18605;
																								}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_newzd2matchzd2_18593;
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						int BgL_curz00_18610;

																						BgL_curz00_18610 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18589,
																							BgL_forwardz00_18606);
																						{	/* Read/reader.scm 332 */

																							if (
																								((long) (BgL_curz00_18610) ==
																									52L))
																								{	/* Read/reader.scm 332 */
																									BgL_iportz00_18924 =
																										BgL_iportz00_18589;
																									BgL_lastzd2matchzd2_18925 =
																										BgL_newzd2matchzd2_18593;
																									BgL_forwardz00_18926 =
																										(1L + BgL_forwardz00_18606);
																									BgL_bufposz00_18927 =
																										BgL_bufposz00_18607;
																								BgL_statezd256zd21115z00_18311:
																									if (
																										(BgL_forwardz00_18926 ==
																											BgL_bufposz00_18927))
																										{	/* Read/reader.scm 332 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_18924))
																												{	/* Read/reader.scm 332 */
																													long
																														BgL_arg2421z00_18928;
																													long
																														BgL_arg2422z00_18929;
																													BgL_arg2421z00_18928 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_18924);
																													BgL_arg2422z00_18929 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_18924);
																													if (
																														(BgL_arg2421z00_18928
																															==
																															BgL_arg2422z00_18929))
																														{	/* Read/reader.scm 332 */
																															if (rgc_fill_buffer(BgL_iportz00_18924))
																																{	/* Read/reader.scm 332 */
																																	long
																																		BgL_arg2421z00_18930;
																																	long
																																		BgL_arg2422z00_18931;
																																	BgL_arg2421z00_18930
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_18924);
																																	BgL_arg2422z00_18931
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_18924);
																																	{
																																		long
																																			BgL_bufposz00_31025;
																																		long
																																			BgL_forwardz00_31024;
																																		BgL_forwardz00_31024
																																			=
																																			BgL_arg2421z00_18930;
																																		BgL_bufposz00_31025
																																			=
																																			BgL_arg2422z00_18931;
																																		BgL_bufposz00_18927
																																			=
																																			BgL_bufposz00_31025;
																																		BgL_forwardz00_18926
																																			=
																																			BgL_forwardz00_31024;
																																		goto
																																			BgL_statezd256zd21115z00_18311;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_matchz00_19003
																																		=
																																		BgL_lastzd2matchzd2_18925;
																																}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															int
																																BgL_curz00_18932;
																															BgL_curz00_18932 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_18924,
																																BgL_arg2421z00_18928);
																															{	/* Read/reader.scm 332 */

																																if (
																																	((long)
																																		(BgL_curz00_18932)
																																		== 58L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_iportz00_18934
																																			=
																																			BgL_iportz00_18924;
																																		BgL_lastzd2matchzd2_18935
																																			=
																																			BgL_lastzd2matchzd2_18925;
																																		BgL_forwardz00_18936
																																			=
																																			(1L +
																																			BgL_arg2421z00_18928);
																																		BgL_bufposz00_18937
																																			=
																																			BgL_arg2422z00_18929;
																																	BgL_statezd257zd21116z00_18312:
																																		if (
																																			(BgL_forwardz00_18936
																																				==
																																				BgL_bufposz00_18937))
																																			{	/* Read/reader.scm 332 */
																																				if (rgc_fill_buffer(BgL_iportz00_18934))
																																					{	/* Read/reader.scm 332 */
																																						long
																																							BgL_arg2429z00_18938;
																																						long
																																							BgL_arg2430z00_18939;
																																						BgL_arg2429z00_18938
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_18934);
																																						BgL_arg2430z00_18939
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_18934);
																																						{
																																							long
																																								BgL_bufposz00_31037;
																																							long
																																								BgL_forwardz00_31036;
																																							BgL_forwardz00_31036
																																								=
																																								BgL_arg2429z00_18938;
																																							BgL_bufposz00_31037
																																								=
																																								BgL_arg2430z00_18939;
																																							BgL_bufposz00_18937
																																								=
																																								BgL_bufposz00_31037;
																																							BgL_forwardz00_18936
																																								=
																																								BgL_forwardz00_31036;
																																							goto
																																								BgL_statezd257zd21116z00_18312;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_matchz00_19003
																																							=
																																							BgL_lastzd2matchzd2_18935;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				int
																																					BgL_curz00_18940;
																																				BgL_curz00_18940
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_18934,
																																					BgL_forwardz00_18936);
																																				{	/* Read/reader.scm 332 */

																																					{	/* Read/reader.scm 332 */
																																						bool_t
																																							BgL_test9680z00_31039;
																																						if (
																																							((long) (BgL_curz00_18940) >= 48L))
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9680z00_31039
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18940)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9680z00_31039
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test9680z00_31039)
																																							{	/* Read/reader.scm 332 */
																																								BgL_iportz00_18948
																																									=
																																									BgL_iportz00_18934;
																																								BgL_lastzd2matchzd2_18949
																																									=
																																									BgL_lastzd2matchzd2_18935;
																																								BgL_forwardz00_18950
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_18936);
																																								BgL_bufposz00_18951
																																									=
																																									BgL_bufposz00_18937;
																																							BgL_statezd259zd21118z00_18314:
																																								{	/* Read/reader.scm 332 */
																																									long
																																										BgL_newzd2matchzd2_18952;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_18948,
																																										BgL_forwardz00_18950);
																																									BgL_newzd2matchzd2_18952
																																										=
																																										21L;
																																									if ((BgL_forwardz00_18950 == BgL_bufposz00_18951))
																																										{	/* Read/reader.scm 332 */
																																											if (rgc_fill_buffer(BgL_iportz00_18948))
																																												{	/* Read/reader.scm 332 */
																																													long
																																														BgL_arg2451z00_18953;
																																													long
																																														BgL_arg2453z00_18954;
																																													BgL_arg2451z00_18953
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_iportz00_18948);
																																													BgL_arg2453z00_18954
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_iportz00_18948);
																																													{
																																														long
																																															BgL_bufposz00_31053;
																																														long
																																															BgL_forwardz00_31052;
																																														BgL_forwardz00_31052
																																															=
																																															BgL_arg2451z00_18953;
																																														BgL_bufposz00_31053
																																															=
																																															BgL_arg2453z00_18954;
																																														BgL_bufposz00_18951
																																															=
																																															BgL_bufposz00_31053;
																																														BgL_forwardz00_18950
																																															=
																																															BgL_forwardz00_31052;
																																														goto
																																															BgL_statezd259zd21118z00_18314;
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													BgL_matchz00_19003
																																														=
																																														BgL_newzd2matchzd2_18952;
																																												}
																																										}
																																									else
																																										{	/* Read/reader.scm 332 */
																																											int
																																												BgL_curz00_18955;
																																											BgL_curz00_18955
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_iportz00_18948,
																																												BgL_forwardz00_18950);
																																											{	/* Read/reader.scm 332 */

																																												{	/* Read/reader.scm 332 */
																																													bool_t
																																														BgL_test9684z00_31055;
																																													if (((long) (BgL_curz00_18955) >= 48L))
																																														{	/* Read/reader.scm 332 */
																																															BgL_test9684z00_31055
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_18955)
																																																<
																																																58L);
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															BgL_test9684z00_31055
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test9684z00_31055)
																																														{
																																															long
																																																BgL_forwardz00_31062;
																																															long
																																																BgL_lastzd2matchzd2_31061;
																																															BgL_lastzd2matchzd2_31061
																																																=
																																																BgL_newzd2matchzd2_18952;
																																															BgL_forwardz00_31062
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_18950);
																																															BgL_forwardz00_18950
																																																=
																																																BgL_forwardz00_31062;
																																															BgL_lastzd2matchzd2_18949
																																																=
																																																BgL_lastzd2matchzd2_31061;
																																															goto
																																																BgL_statezd259zd21118z00_18314;
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															BgL_matchz00_19003
																																																=
																																																BgL_newzd2matchzd2_18952;
																																														}
																																												}
																																											}
																																										}
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								if (((long) (BgL_curz00_18940) == 45L))
																																									{	/* Read/reader.scm 332 */
																																										BgL_iportz00_18941
																																											=
																																											BgL_iportz00_18934;
																																										BgL_lastzd2matchzd2_18942
																																											=
																																											BgL_lastzd2matchzd2_18935;
																																										BgL_forwardz00_18943
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_18936);
																																										BgL_bufposz00_18944
																																											=
																																											BgL_bufposz00_18937;
																																									BgL_statezd258zd21117z00_18313:
																																										if ((BgL_forwardz00_18943 == BgL_bufposz00_18944))
																																											{	/* Read/reader.scm 332 */
																																												if (rgc_fill_buffer(BgL_iportz00_18941))
																																													{	/* Read/reader.scm 332 */
																																														long
																																															BgL_arg2440z00_18945;
																																														long
																																															BgL_arg2443z00_18946;
																																														BgL_arg2440z00_18945
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_iportz00_18941);
																																														BgL_arg2443z00_18946
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_iportz00_18941);
																																														{
																																															long
																																																BgL_bufposz00_31075;
																																															long
																																																BgL_forwardz00_31074;
																																															BgL_forwardz00_31074
																																																=
																																																BgL_arg2440z00_18945;
																																															BgL_bufposz00_31075
																																																=
																																																BgL_arg2443z00_18946;
																																															BgL_bufposz00_18944
																																																=
																																																BgL_bufposz00_31075;
																																															BgL_forwardz00_18943
																																																=
																																																BgL_forwardz00_31074;
																																															goto
																																																BgL_statezd258zd21117z00_18313;
																																														}
																																													}
																																												else
																																													{	/* Read/reader.scm 332 */
																																														BgL_matchz00_19003
																																															=
																																															BgL_lastzd2matchzd2_18942;
																																													}
																																											}
																																										else
																																											{	/* Read/reader.scm 332 */
																																												int
																																													BgL_curz00_18947;
																																												BgL_curz00_18947
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_iportz00_18941,
																																													BgL_forwardz00_18943);
																																												{	/* Read/reader.scm 332 */

																																													{	/* Read/reader.scm 332 */
																																														bool_t
																																															BgL_test9689z00_31077;
																																														if (((long) (BgL_curz00_18947) >= 48L))
																																															{	/* Read/reader.scm 332 */
																																																BgL_test9689z00_31077
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_18947)
																																																	<
																																																	58L);
																																															}
																																														else
																																															{	/* Read/reader.scm 332 */
																																																BgL_test9689z00_31077
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test9689z00_31077)
																																															{
																																																long
																																																	BgL_bufposz00_31087;
																																																long
																																																	BgL_forwardz00_31085;
																																																long
																																																	BgL_lastzd2matchzd2_31084;
																																																obj_t
																																																	BgL_iportz00_31083;
																																																BgL_iportz00_31083
																																																	=
																																																	BgL_iportz00_18941;
																																																BgL_lastzd2matchzd2_31084
																																																	=
																																																	BgL_lastzd2matchzd2_18942;
																																																BgL_forwardz00_31085
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_18943);
																																																BgL_bufposz00_31087
																																																	=
																																																	BgL_bufposz00_18944;
																																																BgL_bufposz00_18951
																																																	=
																																																	BgL_bufposz00_31087;
																																																BgL_forwardz00_18950
																																																	=
																																																	BgL_forwardz00_31085;
																																																BgL_lastzd2matchzd2_18949
																																																	=
																																																	BgL_lastzd2matchzd2_31084;
																																																BgL_iportz00_18948
																																																	=
																																																	BgL_iportz00_31083;
																																																goto
																																																	BgL_statezd259zd21118z00_18314;
																																															}
																																														else
																																															{	/* Read/reader.scm 332 */
																																																BgL_matchz00_19003
																																																	=
																																																	BgL_lastzd2matchzd2_18942;
																																															}
																																													}
																																												}
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_matchz00_19003
																																											=
																																											BgL_lastzd2matchzd2_18935;
																																									}
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_matchz00_19003
																																			=
																																			BgL_lastzd2matchzd2_18925;
																																	}
																															}
																														}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_matchz00_19003 =
																														BgL_lastzd2matchzd2_18925;
																												}
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											int BgL_curz00_18933;

																											BgL_curz00_18933 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_18924,
																												BgL_forwardz00_18926);
																											{	/* Read/reader.scm 332 */

																												if (
																													((long)
																														(BgL_curz00_18933)
																														== 58L))
																													{
																														long
																															BgL_bufposz00_31098;
																														long
																															BgL_forwardz00_31096;
																														long
																															BgL_lastzd2matchzd2_31095;
																														obj_t
																															BgL_iportz00_31094;
																														BgL_iportz00_31094 =
																															BgL_iportz00_18924;
																														BgL_lastzd2matchzd2_31095
																															=
																															BgL_lastzd2matchzd2_18925;
																														BgL_forwardz00_31096
																															=
																															(1L +
																															BgL_forwardz00_18926);
																														BgL_bufposz00_31098
																															=
																															BgL_bufposz00_18927;
																														BgL_bufposz00_18937
																															=
																															BgL_bufposz00_31098;
																														BgL_forwardz00_18936
																															=
																															BgL_forwardz00_31096;
																														BgL_lastzd2matchzd2_18935
																															=
																															BgL_lastzd2matchzd2_31095;
																														BgL_iportz00_18934 =
																															BgL_iportz00_31094;
																														goto
																															BgL_statezd257zd21116z00_18312;
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_matchz00_19003 =
																															BgL_lastzd2matchzd2_18925;
																													}
																											}
																										}
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_matchz00_19003 =
																										BgL_newzd2matchzd2_18593;
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			if (((long) (BgL_curz00_18596) == 51L))
																				{	/* Read/reader.scm 332 */
																					long BgL_arg1946z00_18611;

																					BgL_arg1946z00_18611 =
																						(1L + BgL_forwardz00_18591);
																					{
																						long BgL_forwardz00_18613;
																						long BgL_bufposz00_18614;

																						BgL_forwardz00_18613 =
																							BgL_arg1946z00_18611;
																						BgL_bufposz00_18614 =
																							BgL_bufposz00_18592;
																					BgL_statezd250zd21109z00_18612:
																						if (
																							(BgL_forwardz00_18613 ==
																								BgL_bufposz00_18614))
																							{	/* Read/reader.scm 332 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_18589))
																									{	/* Read/reader.scm 332 */
																										long BgL_arg2301z00_18615;
																										long BgL_arg2302z00_18616;

																										BgL_arg2301z00_18615 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_18589);
																										BgL_arg2302z00_18616 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_18589);
																										{
																											long BgL_bufposz00_31111;
																											long BgL_forwardz00_31110;

																											BgL_forwardz00_31110 =
																												BgL_arg2301z00_18615;
																											BgL_bufposz00_31111 =
																												BgL_arg2302z00_18616;
																											BgL_bufposz00_18614 =
																												BgL_bufposz00_31111;
																											BgL_forwardz00_18613 =
																												BgL_forwardz00_31110;
																											goto
																												BgL_statezd250zd21109z00_18612;
																										}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_newzd2matchzd2_18593;
																									}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								int BgL_curz00_18617;

																								BgL_curz00_18617 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_18589,
																									BgL_forwardz00_18613);
																								{	/* Read/reader.scm 332 */

																									if (
																										((long) (BgL_curz00_18617)
																											== 50L))
																										{	/* Read/reader.scm 332 */
																											BgL_iportz00_18330 =
																												BgL_iportz00_18589;
																											BgL_lastzd2matchzd2_18331
																												=
																												BgL_newzd2matchzd2_18593;
																											BgL_forwardz00_18332 =
																												(1L +
																												BgL_forwardz00_18613);
																											BgL_bufposz00_18333 =
																												BgL_bufposz00_18614;
																										BgL_statezd260zd21119z00_18242:
																											if (
																												(BgL_forwardz00_18332 ==
																													BgL_bufposz00_18333))
																												{	/* Read/reader.scm 332 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_18330))
																														{	/* Read/reader.scm 332 */
																															long
																																BgL_arg1541z00_18334;
																															long
																																BgL_arg1542z00_18335;
																															BgL_arg1541z00_18334
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_18330);
																															BgL_arg1542z00_18335
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_18330);
																															if (
																																(BgL_arg1541z00_18334
																																	==
																																	BgL_arg1542z00_18335))
																																{	/* Read/reader.scm 332 */
																																	if (rgc_fill_buffer(BgL_iportz00_18330))
																																		{	/* Read/reader.scm 332 */
																																			long
																																				BgL_arg1541z00_18336;
																																			long
																																				BgL_arg1542z00_18337;
																																			BgL_arg1541z00_18336
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_18330);
																																			BgL_arg1542z00_18337
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_18330);
																																			{
																																				long
																																					BgL_bufposz00_31129;
																																				long
																																					BgL_forwardz00_31128;
																																				BgL_forwardz00_31128
																																					=
																																					BgL_arg1541z00_18336;
																																				BgL_bufposz00_31129
																																					=
																																					BgL_arg1542z00_18337;
																																				BgL_bufposz00_18333
																																					=
																																					BgL_bufposz00_31129;
																																				BgL_forwardz00_18332
																																					=
																																					BgL_forwardz00_31128;
																																				goto
																																					BgL_statezd260zd21119z00_18242;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_matchz00_19003
																																				=
																																				BgL_lastzd2matchzd2_18331;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	int
																																		BgL_curz00_18338;
																																	BgL_curz00_18338
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_18330,
																																		BgL_arg1541z00_18334);
																																	{	/* Read/reader.scm 332 */

																																		if (
																																			((long)
																																				(BgL_curz00_18338)
																																				== 58L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_iportz00_18702
																																					=
																																					BgL_iportz00_18330;
																																				BgL_lastzd2matchzd2_18703
																																					=
																																					BgL_lastzd2matchzd2_18331;
																																				BgL_forwardz00_18704
																																					=
																																					(1L +
																																					BgL_arg1541z00_18334);
																																				BgL_bufposz00_18705
																																					=
																																					BgL_arg1542z00_18335;
																																			BgL_statezd261zd21120z00_18283:
																																				if (
																																					(BgL_forwardz00_18704
																																						==
																																						BgL_bufposz00_18705))
																																					{	/* Read/reader.scm 332 */
																																						if (rgc_fill_buffer(BgL_iportz00_18702))
																																							{	/* Read/reader.scm 332 */
																																								long
																																									BgL_arg2073z00_18706;
																																								long
																																									BgL_arg2074z00_18707;
																																								BgL_arg2073z00_18706
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_18702);
																																								BgL_arg2074z00_18707
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_18702);
																																								{
																																									long
																																										BgL_bufposz00_31141;
																																									long
																																										BgL_forwardz00_31140;
																																									BgL_forwardz00_31140
																																										=
																																										BgL_arg2073z00_18706;
																																									BgL_bufposz00_31141
																																										=
																																										BgL_arg2074z00_18707;
																																									BgL_bufposz00_18705
																																										=
																																										BgL_bufposz00_31141;
																																									BgL_forwardz00_18704
																																										=
																																										BgL_forwardz00_31140;
																																									goto
																																										BgL_statezd261zd21120z00_18283;
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_matchz00_19003
																																									=
																																									BgL_lastzd2matchzd2_18703;
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						int
																																							BgL_curz00_18708;
																																						BgL_curz00_18708
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_18702,
																																							BgL_forwardz00_18704);
																																						{	/* Read/reader.scm 332 */

																																							{	/* Read/reader.scm 332 */
																																								bool_t
																																									BgL_test9703z00_31143;
																																								if (((long) (BgL_curz00_18708) >= 48L))
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9703z00_31143
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18708)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_test9703z00_31143
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test9703z00_31143)
																																									{	/* Read/reader.scm 332 */
																																										BgL_iportz00_18655
																																											=
																																											BgL_iportz00_18702;
																																										BgL_lastzd2matchzd2_18656
																																											=
																																											BgL_lastzd2matchzd2_18703;
																																										BgL_forwardz00_18657
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_18704);
																																										BgL_bufposz00_18658
																																											=
																																											BgL_bufposz00_18705;
																																									BgL_statezd263zd21122z00_18277:
																																										{	/* Read/reader.scm 332 */
																																											long
																																												BgL_newzd2matchzd2_18659;
																																											RGC_STOP_MATCH
																																												(BgL_iportz00_18655,
																																												BgL_forwardz00_18657);
																																											BgL_newzd2matchzd2_18659
																																												=
																																												19L;
																																											if ((BgL_forwardz00_18657 == BgL_bufposz00_18658))
																																												{	/* Read/reader.scm 332 */
																																													if (rgc_fill_buffer(BgL_iportz00_18655))
																																														{	/* Read/reader.scm 332 */
																																															long
																																																BgL_arg1996z00_18660;
																																															long
																																																BgL_arg1997z00_18661;
																																															BgL_arg1996z00_18660
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_18655);
																																															BgL_arg1997z00_18661
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_18655);
																																															{
																																																long
																																																	BgL_bufposz00_31157;
																																																long
																																																	BgL_forwardz00_31156;
																																																BgL_forwardz00_31156
																																																	=
																																																	BgL_arg1996z00_18660;
																																																BgL_bufposz00_31157
																																																	=
																																																	BgL_arg1997z00_18661;
																																																BgL_bufposz00_18658
																																																	=
																																																	BgL_bufposz00_31157;
																																																BgL_forwardz00_18657
																																																	=
																																																	BgL_forwardz00_31156;
																																																goto
																																																	BgL_statezd263zd21122z00_18277;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															BgL_matchz00_19003
																																																=
																																																BgL_newzd2matchzd2_18659;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 332 */
																																													int
																																														BgL_curz00_18662;
																																													BgL_curz00_18662
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_18655,
																																														BgL_forwardz00_18657);
																																													{	/* Read/reader.scm 332 */

																																														{	/* Read/reader.scm 332 */
																																															bool_t
																																																BgL_test9707z00_31159;
																																															if (((long) (BgL_curz00_18662) >= 48L))
																																																{	/* Read/reader.scm 332 */
																																																	BgL_test9707z00_31159
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_18662)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Read/reader.scm 332 */
																																																	BgL_test9707z00_31159
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test9707z00_31159)
																																																{
																																																	long
																																																		BgL_forwardz00_31166;
																																																	long
																																																		BgL_lastzd2matchzd2_31165;
																																																	BgL_lastzd2matchzd2_31165
																																																		=
																																																		BgL_newzd2matchzd2_18659;
																																																	BgL_forwardz00_31166
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_18657);
																																																	BgL_forwardz00_18657
																																																		=
																																																		BgL_forwardz00_31166;
																																																	BgL_lastzd2matchzd2_18656
																																																		=
																																																		BgL_lastzd2matchzd2_31165;
																																																	goto
																																																		BgL_statezd263zd21122z00_18277;
																																																}
																																															else
																																																{	/* Read/reader.scm 332 */
																																																	BgL_matchz00_19003
																																																		=
																																																		BgL_newzd2matchzd2_18659;
																																																}
																																														}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										if (((long) (BgL_curz00_18708) == 45L))
																																											{	/* Read/reader.scm 332 */
																																												BgL_iportz00_18648
																																													=
																																													BgL_iportz00_18702;
																																												BgL_lastzd2matchzd2_18649
																																													=
																																													BgL_lastzd2matchzd2_18703;
																																												BgL_forwardz00_18650
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_18704);
																																												BgL_bufposz00_18651
																																													=
																																													BgL_bufposz00_18705;
																																											BgL_statezd262zd21121z00_18276:
																																												if ((BgL_forwardz00_18650 == BgL_bufposz00_18651))
																																													{	/* Read/reader.scm 332 */
																																														if (rgc_fill_buffer(BgL_iportz00_18648))
																																															{	/* Read/reader.scm 332 */
																																																long
																																																	BgL_arg1988z00_18652;
																																																long
																																																	BgL_arg1989z00_18653;
																																																BgL_arg1988z00_18652
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_iportz00_18648);
																																																BgL_arg1989z00_18653
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_iportz00_18648);
																																																{
																																																	long
																																																		BgL_bufposz00_31179;
																																																	long
																																																		BgL_forwardz00_31178;
																																																	BgL_forwardz00_31178
																																																		=
																																																		BgL_arg1988z00_18652;
																																																	BgL_bufposz00_31179
																																																		=
																																																		BgL_arg1989z00_18653;
																																																	BgL_bufposz00_18651
																																																		=
																																																		BgL_bufposz00_31179;
																																																	BgL_forwardz00_18650
																																																		=
																																																		BgL_forwardz00_31178;
																																																	goto
																																																		BgL_statezd262zd21121z00_18276;
																																																}
																																															}
																																														else
																																															{	/* Read/reader.scm 332 */
																																																BgL_matchz00_19003
																																																	=
																																																	BgL_lastzd2matchzd2_18649;
																																															}
																																													}
																																												else
																																													{	/* Read/reader.scm 332 */
																																														int
																																															BgL_curz00_18654;
																																														BgL_curz00_18654
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_iportz00_18648,
																																															BgL_forwardz00_18650);
																																														{	/* Read/reader.scm 332 */

																																															{	/* Read/reader.scm 332 */
																																																bool_t
																																																	BgL_test9712z00_31181;
																																																if (((long) (BgL_curz00_18654) >= 48L))
																																																	{	/* Read/reader.scm 332 */
																																																		BgL_test9712z00_31181
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_18654)
																																																			<
																																																			58L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 332 */
																																																		BgL_test9712z00_31181
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test9712z00_31181)
																																																	{
																																																		long
																																																			BgL_bufposz00_31191;
																																																		long
																																																			BgL_forwardz00_31189;
																																																		long
																																																			BgL_lastzd2matchzd2_31188;
																																																		obj_t
																																																			BgL_iportz00_31187;
																																																		BgL_iportz00_31187
																																																			=
																																																			BgL_iportz00_18648;
																																																		BgL_lastzd2matchzd2_31188
																																																			=
																																																			BgL_lastzd2matchzd2_18649;
																																																		BgL_forwardz00_31189
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_18650);
																																																		BgL_bufposz00_31191
																																																			=
																																																			BgL_bufposz00_18651;
																																																		BgL_bufposz00_18658
																																																			=
																																																			BgL_bufposz00_31191;
																																																		BgL_forwardz00_18657
																																																			=
																																																			BgL_forwardz00_31189;
																																																		BgL_lastzd2matchzd2_18656
																																																			=
																																																			BgL_lastzd2matchzd2_31188;
																																																		BgL_iportz00_18655
																																																			=
																																																			BgL_iportz00_31187;
																																																		goto
																																																			BgL_statezd263zd21122z00_18277;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 332 */
																																																		BgL_matchz00_19003
																																																			=
																																																			BgL_lastzd2matchzd2_18649;
																																																	}
																																															}
																																														}
																																													}
																																											}
																																										else
																																											{	/* Read/reader.scm 332 */
																																												BgL_matchz00_19003
																																													=
																																													BgL_lastzd2matchzd2_18703;
																																											}
																																									}
																																							}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_matchz00_19003
																																					=
																																					BgL_lastzd2matchzd2_18331;
																																			}
																																	}
																																}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_matchz00_19003
																																=
																																BgL_lastzd2matchzd2_18331;
																														}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													int BgL_curz00_18339;

																													BgL_curz00_18339 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_18330,
																														BgL_forwardz00_18332);
																													{	/* Read/reader.scm 332 */

																														if (
																															((long)
																																(BgL_curz00_18339)
																																== 58L))
																															{
																																long
																																	BgL_bufposz00_31202;
																																long
																																	BgL_forwardz00_31200;
																																long
																																	BgL_lastzd2matchzd2_31199;
																																obj_t
																																	BgL_iportz00_31198;
																																BgL_iportz00_31198
																																	=
																																	BgL_iportz00_18330;
																																BgL_lastzd2matchzd2_31199
																																	=
																																	BgL_lastzd2matchzd2_18331;
																																BgL_forwardz00_31200
																																	=
																																	(1L +
																																	BgL_forwardz00_18332);
																																BgL_bufposz00_31202
																																	=
																																	BgL_bufposz00_18333;
																																BgL_bufposz00_18705
																																	=
																																	BgL_bufposz00_31202;
																																BgL_forwardz00_18704
																																	=
																																	BgL_forwardz00_31200;
																																BgL_lastzd2matchzd2_18703
																																	=
																																	BgL_lastzd2matchzd2_31199;
																																BgL_iportz00_18702
																																	=
																																	BgL_iportz00_31198;
																																goto
																																	BgL_statezd261zd21120z00_18283;
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_matchz00_19003
																																	=
																																	BgL_lastzd2matchzd2_18331;
																															}
																													}
																												}
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_matchz00_19003 =
																												BgL_newzd2matchzd2_18593;
																										}
																								}
																							}
																					}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					if (
																						((long) (BgL_curz00_18596) == 49L))
																						{	/* Read/reader.scm 332 */
																							long BgL_arg1948z00_18618;

																							BgL_arg1948z00_18618 =
																								(1L + BgL_forwardz00_18591);
																							{
																								long BgL_forwardz00_18620;
																								long BgL_bufposz00_18621;

																								BgL_forwardz00_18620 =
																									BgL_arg1948z00_18618;
																								BgL_bufposz00_18621 =
																									BgL_bufposz00_18592;
																							BgL_statezd249zd21108z00_18619:
																								if (
																									(BgL_forwardz00_18620 ==
																										BgL_bufposz00_18621))
																									{	/* Read/reader.scm 332 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18589))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg2063z00_18622;
																												long
																													BgL_arg2066z00_18623;
																												BgL_arg2063z00_18622 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18589);
																												BgL_arg2066z00_18623 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18589);
																												{
																													long
																														BgL_bufposz00_31215;
																													long
																														BgL_forwardz00_31214;
																													BgL_forwardz00_31214 =
																														BgL_arg2063z00_18622;
																													BgL_bufposz00_31215 =
																														BgL_arg2066z00_18623;
																													BgL_bufposz00_18621 =
																														BgL_bufposz00_31215;
																													BgL_forwardz00_18620 =
																														BgL_forwardz00_31214;
																													goto
																														BgL_statezd249zd21108z00_18619;
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_newzd2matchzd2_18593;
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										int BgL_curz00_18624;

																										BgL_curz00_18624 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18589,
																											BgL_forwardz00_18620);
																										{	/* Read/reader.scm 332 */

																											if (
																												((long)
																													(BgL_curz00_18624) ==
																													54L))
																												{	/* Read/reader.scm 332 */
																													BgL_iportz00_18519 =
																														BgL_iportz00_18589;
																													BgL_lastzd2matchzd2_18520
																														=
																														BgL_newzd2matchzd2_18593;
																													BgL_forwardz00_18521 =
																														(1L +
																														BgL_forwardz00_18620);
																													BgL_bufposz00_18522 =
																														BgL_bufposz00_18621;
																												BgL_statezd264zd21123z00_18264:
																													if (
																														(BgL_forwardz00_18521
																															==
																															BgL_bufposz00_18522))
																														{	/* Read/reader.scm 332 */
																															if (rgc_fill_buffer(BgL_iportz00_18519))
																																{	/* Read/reader.scm 332 */
																																	long
																																		BgL_arg1852z00_18523;
																																	long
																																		BgL_arg1853z00_18524;
																																	BgL_arg1852z00_18523
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_18519);
																																	BgL_arg1853z00_18524
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_18519);
																																	if (
																																		(BgL_arg1852z00_18523
																																			==
																																			BgL_arg1853z00_18524))
																																		{	/* Read/reader.scm 332 */
																																			if (rgc_fill_buffer(BgL_iportz00_18519))
																																				{	/* Read/reader.scm 332 */
																																					long
																																						BgL_arg1852z00_18525;
																																					long
																																						BgL_arg1853z00_18526;
																																					BgL_arg1852z00_18525
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_18519);
																																					BgL_arg1853z00_18526
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_18519);
																																					{
																																						long
																																							BgL_bufposz00_31233;
																																						long
																																							BgL_forwardz00_31232;
																																						BgL_forwardz00_31232
																																							=
																																							BgL_arg1852z00_18525;
																																						BgL_bufposz00_31233
																																							=
																																							BgL_arg1853z00_18526;
																																						BgL_bufposz00_18522
																																							=
																																							BgL_bufposz00_31233;
																																						BgL_forwardz00_18521
																																							=
																																							BgL_forwardz00_31232;
																																						goto
																																							BgL_statezd264zd21123z00_18264;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_matchz00_19003
																																						=
																																						BgL_lastzd2matchzd2_18520;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			int
																																				BgL_curz00_18527;
																																			BgL_curz00_18527
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_18519,
																																				BgL_arg1852z00_18523);
																																			{	/* Read/reader.scm 332 */

																																				if (
																																					((long) (BgL_curz00_18527) == 58L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_iportz00_18398
																																							=
																																							BgL_iportz00_18519;
																																						BgL_lastzd2matchzd2_18399
																																							=
																																							BgL_lastzd2matchzd2_18520;
																																						BgL_forwardz00_18400
																																							=
																																							(1L
																																							+
																																							BgL_arg1852z00_18523);
																																						BgL_bufposz00_18401
																																							=
																																							BgL_arg1853z00_18524;
																																					BgL_statezd265zd21124z00_18249:
																																						if (
																																							(BgL_forwardz00_18400
																																								==
																																								BgL_bufposz00_18401))
																																							{	/* Read/reader.scm 332 */
																																								if (rgc_fill_buffer(BgL_iportz00_18398))
																																									{	/* Read/reader.scm 332 */
																																										long
																																											BgL_arg1642z00_18402;
																																										long
																																											BgL_arg1643z00_18403;
																																										BgL_arg1642z00_18402
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_18398);
																																										BgL_arg1643z00_18403
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_18398);
																																										{
																																											long
																																												BgL_bufposz00_31245;
																																											long
																																												BgL_forwardz00_31244;
																																											BgL_forwardz00_31244
																																												=
																																												BgL_arg1642z00_18402;
																																											BgL_bufposz00_31245
																																												=
																																												BgL_arg1643z00_18403;
																																											BgL_bufposz00_18401
																																												=
																																												BgL_bufposz00_31245;
																																											BgL_forwardz00_18400
																																												=
																																												BgL_forwardz00_31244;
																																											goto
																																												BgL_statezd265zd21124z00_18249;
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_matchz00_19003
																																											=
																																											BgL_lastzd2matchzd2_18399;
																																									}
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								int
																																									BgL_curz00_18404;
																																								BgL_curz00_18404
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_18398,
																																									BgL_forwardz00_18400);
																																								{	/* Read/reader.scm 332 */

																																									{	/* Read/reader.scm 332 */
																																										bool_t
																																											BgL_test9726z00_31247;
																																										if (((long) (BgL_curz00_18404) >= 48L))
																																											{	/* Read/reader.scm 332 */
																																												BgL_test9726z00_31247
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_18404)
																																													<
																																													58L);
																																											}
																																										else
																																											{	/* Read/reader.scm 332 */
																																												BgL_test9726z00_31247
																																													=
																																													(
																																													(bool_t)
																																													0);
																																											}
																																										if (BgL_test9726z00_31247)
																																											{	/* Read/reader.scm 332 */
																																												BgL_iportz00_18436
																																													=
																																													BgL_iportz00_18398;
																																												BgL_lastzd2matchzd2_18437
																																													=
																																													BgL_lastzd2matchzd2_18399;
																																												BgL_forwardz00_18438
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_18400);
																																												BgL_bufposz00_18439
																																													=
																																													BgL_bufposz00_18401;
																																											BgL_statezd267zd21126z00_18253:
																																												{	/* Read/reader.scm 332 */
																																													long
																																														BgL_newzd2matchzd2_18440;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_18436,
																																														BgL_forwardz00_18438);
																																													BgL_newzd2matchzd2_18440
																																														=
																																														17L;
																																													if ((BgL_forwardz00_18438 == BgL_bufposz00_18439))
																																														{	/* Read/reader.scm 332 */
																																															if (rgc_fill_buffer(BgL_iportz00_18436))
																																																{	/* Read/reader.scm 332 */
																																																	long
																																																		BgL_arg1703z00_18441;
																																																	long
																																																		BgL_arg1704z00_18442;
																																																	BgL_arg1703z00_18441
																																																		=
																																																		RGC_BUFFER_FORWARD
																																																		(BgL_iportz00_18436);
																																																	BgL_arg1704z00_18442
																																																		=
																																																		RGC_BUFFER_BUFPOS
																																																		(BgL_iportz00_18436);
																																																	{
																																																		long
																																																			BgL_bufposz00_31261;
																																																		long
																																																			BgL_forwardz00_31260;
																																																		BgL_forwardz00_31260
																																																			=
																																																			BgL_arg1703z00_18441;
																																																		BgL_bufposz00_31261
																																																			=
																																																			BgL_arg1704z00_18442;
																																																		BgL_bufposz00_18439
																																																			=
																																																			BgL_bufposz00_31261;
																																																		BgL_forwardz00_18438
																																																			=
																																																			BgL_forwardz00_31260;
																																																		goto
																																																			BgL_statezd267zd21126z00_18253;
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 332 */
																																																	BgL_matchz00_19003
																																																		=
																																																		BgL_newzd2matchzd2_18440;
																																																}
																																														}
																																													else
																																														{	/* Read/reader.scm 332 */
																																															int
																																																BgL_curz00_18443;
																																															BgL_curz00_18443
																																																=
																																																RGC_BUFFER_GET_CHAR
																																																(BgL_iportz00_18436,
																																																BgL_forwardz00_18438);
																																															{	/* Read/reader.scm 332 */

																																																{	/* Read/reader.scm 332 */
																																																	bool_t
																																																		BgL_test9730z00_31263;
																																																	if (((long) (BgL_curz00_18443) >= 48L))
																																																		{	/* Read/reader.scm 332 */
																																																			BgL_test9730z00_31263
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_18443)
																																																				<
																																																				58L);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 332 */
																																																			BgL_test9730z00_31263
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																	if (BgL_test9730z00_31263)
																																																		{
																																																			long
																																																				BgL_forwardz00_31270;
																																																			long
																																																				BgL_lastzd2matchzd2_31269;
																																																			BgL_lastzd2matchzd2_31269
																																																				=
																																																				BgL_newzd2matchzd2_18440;
																																																			BgL_forwardz00_31270
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_18438);
																																																			BgL_forwardz00_18438
																																																				=
																																																				BgL_forwardz00_31270;
																																																			BgL_lastzd2matchzd2_18437
																																																				=
																																																				BgL_lastzd2matchzd2_31269;
																																																			goto
																																																				BgL_statezd267zd21126z00_18253;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 332 */
																																																			BgL_matchz00_19003
																																																				=
																																																				BgL_newzd2matchzd2_18440;
																																																		}
																																																}
																																															}
																																														}
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 332 */
																																												if (((long) (BgL_curz00_18404) == 45L))
																																													{	/* Read/reader.scm 332 */
																																														BgL_iportz00_18956
																																															=
																																															BgL_iportz00_18398;
																																														BgL_lastzd2matchzd2_18957
																																															=
																																															BgL_lastzd2matchzd2_18399;
																																														BgL_forwardz00_18958
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_18400);
																																														BgL_bufposz00_18959
																																															=
																																															BgL_bufposz00_18401;
																																													BgL_statezd266zd21125z00_18315:
																																														if ((BgL_forwardz00_18958 == BgL_bufposz00_18959))
																																															{	/* Read/reader.scm 332 */
																																																if (rgc_fill_buffer(BgL_iportz00_18956))
																																																	{	/* Read/reader.scm 332 */
																																																		long
																																																			BgL_arg2460z00_18960;
																																																		long
																																																			BgL_arg2461z00_18961;
																																																		BgL_arg2460z00_18960
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_iportz00_18956);
																																																		BgL_arg2461z00_18961
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_iportz00_18956);
																																																		{
																																																			long
																																																				BgL_bufposz00_31283;
																																																			long
																																																				BgL_forwardz00_31282;
																																																			BgL_forwardz00_31282
																																																				=
																																																				BgL_arg2460z00_18960;
																																																			BgL_bufposz00_31283
																																																				=
																																																				BgL_arg2461z00_18961;
																																																			BgL_bufposz00_18959
																																																				=
																																																				BgL_bufposz00_31283;
																																																			BgL_forwardz00_18958
																																																				=
																																																				BgL_forwardz00_31282;
																																																			goto
																																																				BgL_statezd266zd21125z00_18315;
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 332 */
																																																		BgL_matchz00_19003
																																																			=
																																																			BgL_lastzd2matchzd2_18957;
																																																	}
																																															}
																																														else
																																															{	/* Read/reader.scm 332 */
																																																int
																																																	BgL_curz00_18962;
																																																BgL_curz00_18962
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_iportz00_18956,
																																																	BgL_forwardz00_18958);
																																																{	/* Read/reader.scm 332 */

																																																	{	/* Read/reader.scm 332 */
																																																		bool_t
																																																			BgL_test9735z00_31285;
																																																		if (((long) (BgL_curz00_18962) >= 48L))
																																																			{	/* Read/reader.scm 332 */
																																																				BgL_test9735z00_31285
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_18962)
																																																					<
																																																					58L);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 332 */
																																																				BgL_test9735z00_31285
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test9735z00_31285)
																																																			{
																																																				long
																																																					BgL_bufposz00_31295;
																																																				long
																																																					BgL_forwardz00_31293;
																																																				long
																																																					BgL_lastzd2matchzd2_31292;
																																																				obj_t
																																																					BgL_iportz00_31291;
																																																				BgL_iportz00_31291
																																																					=
																																																					BgL_iportz00_18956;
																																																				BgL_lastzd2matchzd2_31292
																																																					=
																																																					BgL_lastzd2matchzd2_18957;
																																																				BgL_forwardz00_31293
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_18958);
																																																				BgL_bufposz00_31295
																																																					=
																																																					BgL_bufposz00_18959;
																																																				BgL_bufposz00_18439
																																																					=
																																																					BgL_bufposz00_31295;
																																																				BgL_forwardz00_18438
																																																					=
																																																					BgL_forwardz00_31293;
																																																				BgL_lastzd2matchzd2_18437
																																																					=
																																																					BgL_lastzd2matchzd2_31292;
																																																				BgL_iportz00_18436
																																																					=
																																																					BgL_iportz00_31291;
																																																				goto
																																																					BgL_statezd267zd21126z00_18253;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 332 */
																																																				BgL_matchz00_19003
																																																					=
																																																					BgL_lastzd2matchzd2_18957;
																																																			}
																																																	}
																																																}
																																															}
																																													}
																																												else
																																													{	/* Read/reader.scm 332 */
																																														BgL_matchz00_19003
																																															=
																																															BgL_lastzd2matchzd2_18399;
																																													}
																																											}
																																									}
																																								}
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						BgL_matchz00_19003
																																							=
																																							BgL_lastzd2matchzd2_18520;
																																					}
																																			}
																																		}
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_matchz00_19003
																																		=
																																		BgL_lastzd2matchzd2_18520;
																																}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															int
																																BgL_curz00_18528;
																															BgL_curz00_18528 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_18519,
																																BgL_forwardz00_18521);
																															{	/* Read/reader.scm 332 */

																																if (
																																	((long)
																																		(BgL_curz00_18528)
																																		== 58L))
																																	{
																																		long
																																			BgL_bufposz00_31306;
																																		long
																																			BgL_forwardz00_31304;
																																		long
																																			BgL_lastzd2matchzd2_31303;
																																		obj_t
																																			BgL_iportz00_31302;
																																		BgL_iportz00_31302
																																			=
																																			BgL_iportz00_18519;
																																		BgL_lastzd2matchzd2_31303
																																			=
																																			BgL_lastzd2matchzd2_18520;
																																		BgL_forwardz00_31304
																																			=
																																			(1L +
																																			BgL_forwardz00_18521);
																																		BgL_bufposz00_31306
																																			=
																																			BgL_bufposz00_18522;
																																		BgL_bufposz00_18401
																																			=
																																			BgL_bufposz00_31306;
																																		BgL_forwardz00_18400
																																			=
																																			BgL_forwardz00_31304;
																																		BgL_lastzd2matchzd2_18399
																																			=
																																			BgL_lastzd2matchzd2_31303;
																																		BgL_iportz00_18398
																																			=
																																			BgL_iportz00_31302;
																																		goto
																																			BgL_statezd265zd21124z00_18249;
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_matchz00_19003
																																			=
																																			BgL_lastzd2matchzd2_18520;
																																	}
																															}
																														}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_matchz00_19003 =
																														BgL_newzd2matchzd2_18593;
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_newzd2matchzd2_18593;
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 111L:

											BgL_iportz00_18893 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18894 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18895 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18896 = BgL_bufposz00_18383;
										BgL_statezd210zd21069z00_18307:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18897;

												RGC_STOP_MATCH(BgL_iportz00_18893,
													BgL_forwardz00_18895);
												BgL_newzd2matchzd2_18897 = 25L;
												if ((BgL_forwardz00_18895 == BgL_bufposz00_18896))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18893))
															{	/* Read/reader.scm 332 */
																long BgL_arg2370z00_18898;
																long BgL_arg2371z00_18899;

																BgL_arg2370z00_18898 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18893);
																BgL_arg2371z00_18899 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18893);
																{
																	long BgL_bufposz00_31317;
																	long BgL_forwardz00_31316;

																	BgL_forwardz00_31316 = BgL_arg2370z00_18898;
																	BgL_bufposz00_31317 = BgL_arg2371z00_18899;
																	BgL_bufposz00_18896 = BgL_bufposz00_31317;
																	BgL_forwardz00_18895 = BgL_forwardz00_31316;
																	goto BgL_statezd210zd21069z00_18307;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18897;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18900;

														BgL_curz00_18900 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18893,
															BgL_forwardz00_18895);
														{	/* Read/reader.scm 332 */

															{	/* Read/reader.scm 332 */
																bool_t BgL_test9740z00_31319;

																if (((long) (BgL_curz00_18900) >= 48L))
																	{	/* Read/reader.scm 332 */
																		BgL_test9740z00_31319 =
																			((long) (BgL_curz00_18900) < 56L);
																	}
																else
																	{	/* Read/reader.scm 332 */
																		BgL_test9740z00_31319 = ((bool_t) 0);
																	}
																if (BgL_test9740z00_31319)
																	{	/* Read/reader.scm 332 */
																		BgL_iportz00_18633 = BgL_iportz00_18893;
																		BgL_lastzd2matchzd2_18634 =
																			BgL_newzd2matchzd2_18897;
																		BgL_forwardz00_18635 =
																			(1L + BgL_forwardz00_18895);
																		BgL_bufposz00_18636 = BgL_bufposz00_18896;
																	BgL_statezd269zd21128z00_18274:
																		{	/* Read/reader.scm 332 */
																			long BgL_newzd2matchzd2_18637;

																			RGC_STOP_MATCH(BgL_iportz00_18633,
																				BgL_forwardz00_18635);
																			BgL_newzd2matchzd2_18637 = 5L;
																			if (
																				(BgL_forwardz00_18635 ==
																					BgL_bufposz00_18636))
																				{	/* Read/reader.scm 332 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18633))
																						{	/* Read/reader.scm 332 */
																							long BgL_arg1972z00_18638;
																							long BgL_arg1973z00_18639;

																							BgL_arg1972z00_18638 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18633);
																							BgL_arg1973z00_18639 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18633);
																							{
																								long BgL_bufposz00_31333;
																								long BgL_forwardz00_31332;

																								BgL_forwardz00_31332 =
																									BgL_arg1972z00_18638;
																								BgL_bufposz00_31333 =
																									BgL_arg1973z00_18639;
																								BgL_bufposz00_18636 =
																									BgL_bufposz00_31333;
																								BgL_forwardz00_18635 =
																									BgL_forwardz00_31332;
																								goto
																									BgL_statezd269zd21128z00_18274;
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_newzd2matchzd2_18637;
																						}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					int BgL_curz00_18640;

																					BgL_curz00_18640 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18633,
																						BgL_forwardz00_18635);
																					{	/* Read/reader.scm 332 */

																						{	/* Read/reader.scm 332 */
																							bool_t BgL_test9744z00_31335;

																							if (
																								((long) (BgL_curz00_18640) >=
																									48L))
																								{	/* Read/reader.scm 332 */
																									BgL_test9744z00_31335 =
																										(
																										(long) (BgL_curz00_18640) <
																										56L);
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_test9744z00_31335 =
																										((bool_t) 0);
																								}
																							if (BgL_test9744z00_31335)
																								{
																									long BgL_forwardz00_31342;
																									long
																										BgL_lastzd2matchzd2_31341;
																									BgL_lastzd2matchzd2_31341 =
																										BgL_newzd2matchzd2_18637;
																									BgL_forwardz00_31342 =
																										(1L + BgL_forwardz00_18635);
																									BgL_forwardz00_18635 =
																										BgL_forwardz00_31342;
																									BgL_lastzd2matchzd2_18634 =
																										BgL_lastzd2matchzd2_31341;
																									goto
																										BgL_statezd269zd21128z00_18274;
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_matchz00_19003 =
																										BgL_newzd2matchzd2_18637;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 332 */
																		bool_t BgL_test9746z00_31345;

																		if (((long) (BgL_curz00_18900) == 43L))
																			{	/* Read/reader.scm 332 */
																				BgL_test9746z00_31345 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_test9746z00_31345 =
																					((long) (BgL_curz00_18900) == 45L);
																			}
																		if (BgL_test9746z00_31345)
																			{	/* Read/reader.scm 332 */
																				BgL_iportz00_18709 = BgL_iportz00_18893;
																				BgL_lastzd2matchzd2_18710 =
																					BgL_newzd2matchzd2_18897;
																				BgL_forwardz00_18711 =
																					(1L + BgL_forwardz00_18895);
																				BgL_bufposz00_18712 =
																					BgL_bufposz00_18896;
																			BgL_statezd268zd21127z00_18284:
																				if (
																					(BgL_forwardz00_18711 ==
																						BgL_bufposz00_18712))
																					{	/* Read/reader.scm 332 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18709))
																							{	/* Read/reader.scm 332 */
																								long BgL_arg2083z00_18713;
																								long BgL_arg2085z00_18714;

																								BgL_arg2083z00_18713 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18709);
																								BgL_arg2085z00_18714 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18709);
																								{
																									long BgL_bufposz00_31358;
																									long BgL_forwardz00_31357;

																									BgL_forwardz00_31357 =
																										BgL_arg2083z00_18713;
																									BgL_bufposz00_31358 =
																										BgL_arg2085z00_18714;
																									BgL_bufposz00_18712 =
																										BgL_bufposz00_31358;
																									BgL_forwardz00_18711 =
																										BgL_forwardz00_31357;
																									goto
																										BgL_statezd268zd21127z00_18284;
																								}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_lastzd2matchzd2_18710;
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						int BgL_curz00_18715;

																						BgL_curz00_18715 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18709,
																							BgL_forwardz00_18711);
																						{	/* Read/reader.scm 332 */

																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9750z00_31360;

																								if (
																									((long) (BgL_curz00_18715) >=
																										48L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9750z00_31360 =
																											(
																											(long) (BgL_curz00_18715)
																											< 56L);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9750z00_31360 =
																											((bool_t) 0);
																									}
																								if (BgL_test9750z00_31360)
																									{
																										long BgL_bufposz00_31370;
																										long BgL_forwardz00_31368;
																										long
																											BgL_lastzd2matchzd2_31367;
																										obj_t BgL_iportz00_31366;

																										BgL_iportz00_31366 =
																											BgL_iportz00_18709;
																										BgL_lastzd2matchzd2_31367 =
																											BgL_lastzd2matchzd2_18710;
																										BgL_forwardz00_31368 =
																											(1L +
																											BgL_forwardz00_18711);
																										BgL_bufposz00_31370 =
																											BgL_bufposz00_18712;
																										BgL_bufposz00_18636 =
																											BgL_bufposz00_31370;
																										BgL_forwardz00_18635 =
																											BgL_forwardz00_31368;
																										BgL_lastzd2matchzd2_18634 =
																											BgL_lastzd2matchzd2_31367;
																										BgL_iportz00_18633 =
																											BgL_iportz00_31366;
																										goto
																											BgL_statezd269zd21128z00_18274;
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_lastzd2matchzd2_18710;
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_matchz00_19003 =
																					BgL_newzd2matchzd2_18897;
																			}
																	}
															}
														}
													}
											}
											break;
										case 108L:

											BgL_iportz00_18625 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18626 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18627 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18628 = BgL_bufposz00_18383;
										BgL_statezd29zd21068z00_18273:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18629;

												RGC_STOP_MATCH(BgL_iportz00_18625,
													BgL_forwardz00_18627);
												BgL_newzd2matchzd2_18629 = 25L;
												if ((BgL_forwardz00_18627 == BgL_bufposz00_18628))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18625))
															{	/* Read/reader.scm 332 */
																long BgL_arg1952z00_18630;
																long BgL_arg1953z00_18631;

																BgL_arg1952z00_18630 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18625);
																BgL_arg1953z00_18631 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18625);
																{
																	long BgL_bufposz00_31381;
																	long BgL_forwardz00_31380;

																	BgL_forwardz00_31380 = BgL_arg1952z00_18630;
																	BgL_bufposz00_31381 = BgL_arg1953z00_18631;
																	BgL_bufposz00_18628 = BgL_bufposz00_31381;
																	BgL_forwardz00_18627 = BgL_forwardz00_31380;
																	goto BgL_statezd29zd21068z00_18273;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18629;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18632;

														BgL_curz00_18632 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18625,
															BgL_forwardz00_18627);
														{	/* Read/reader.scm 332 */

															if (((long) (BgL_curz00_18632) == 120L))
																{	/* Read/reader.scm 332 */
																	BgL_iportz00_18755 = BgL_iportz00_18625;
																	BgL_lastzd2matchzd2_18756 =
																		BgL_newzd2matchzd2_18629;
																	BgL_forwardz00_18757 =
																		(1L + BgL_forwardz00_18627);
																	BgL_bufposz00_18758 = BgL_bufposz00_18628;
																BgL_statezd272zd21131z00_18290:
																	if (
																		(BgL_forwardz00_18757 ==
																			BgL_bufposz00_18758))
																		{	/* Read/reader.scm 332 */
																			if (rgc_fill_buffer(BgL_iportz00_18755))
																				{	/* Read/reader.scm 332 */
																					long BgL_arg2141z00_18759;
																					long BgL_arg2142z00_18760;

																					BgL_arg2141z00_18759 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_18755);
																					BgL_arg2142z00_18760 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_18755);
																					{
																						long BgL_bufposz00_31393;
																						long BgL_forwardz00_31392;

																						BgL_forwardz00_31392 =
																							BgL_arg2141z00_18759;
																						BgL_bufposz00_31393 =
																							BgL_arg2142z00_18760;
																						BgL_bufposz00_18758 =
																							BgL_bufposz00_31393;
																						BgL_forwardz00_18757 =
																							BgL_forwardz00_31392;
																						goto BgL_statezd272zd21131z00_18290;
																					}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_matchz00_19003 =
																						BgL_lastzd2matchzd2_18756;
																				}
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			int BgL_curz00_18761;

																			BgL_curz00_18761 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_18755,
																				BgL_forwardz00_18757);
																			{	/* Read/reader.scm 332 */

																				{	/* Read/reader.scm 332 */
																					bool_t BgL_test9757z00_31395;

																					{	/* Read/reader.scm 332 */
																						bool_t BgL_test9758z00_31396;

																						if (
																							((long) (BgL_curz00_18761) >=
																								48L))
																							{	/* Read/reader.scm 332 */
																								BgL_test9758z00_31396 =
																									(
																									(long) (BgL_curz00_18761) <
																									58L);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_test9758z00_31396 =
																									((bool_t) 0);
																							}
																						if (BgL_test9758z00_31396)
																							{	/* Read/reader.scm 332 */
																								BgL_test9757z00_31395 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9760z00_31402;

																								if (
																									((long) (BgL_curz00_18761) >=
																										65L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9760z00_31402 =
																											(
																											(long) (BgL_curz00_18761)
																											< 71L);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9760z00_31402 =
																											((bool_t) 0);
																									}
																								if (BgL_test9760z00_31402)
																									{	/* Read/reader.scm 332 */
																										BgL_test9757z00_31395 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										if (
																											((long) (BgL_curz00_18761)
																												>= 97L))
																											{	/* Read/reader.scm 332 */
																												BgL_test9757z00_31395 =
																													(
																													(long)
																													(BgL_curz00_18761) <
																													103L);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_test9757z00_31395 =
																													((bool_t) 0);
																											}
																									}
																							}
																					}
																					if (BgL_test9757z00_31395)
																						{	/* Read/reader.scm 332 */
																							BgL_iportz00_18916 =
																								BgL_iportz00_18755;
																							BgL_lastzd2matchzd2_18917 =
																								BgL_lastzd2matchzd2_18756;
																							BgL_forwardz00_18918 =
																								(1L + BgL_forwardz00_18757);
																							BgL_bufposz00_18919 =
																								BgL_bufposz00_18758;
																						BgL_statezd273zd21132z00_18310:
																							{	/* Read/reader.scm 332 */
																								long BgL_newzd2matchzd2_18920;

																								RGC_STOP_MATCH
																									(BgL_iportz00_18916,
																									BgL_forwardz00_18918);
																								BgL_newzd2matchzd2_18920 = 10L;
																								if (
																									(BgL_forwardz00_18918 ==
																										BgL_bufposz00_18919))
																									{	/* Read/reader.scm 332 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18916))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg2403z00_18921;
																												long
																													BgL_arg2404z00_18922;
																												BgL_arg2403z00_18921 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18916);
																												BgL_arg2404z00_18922 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18916);
																												{
																													long
																														BgL_bufposz00_31421;
																													long
																														BgL_forwardz00_31420;
																													BgL_forwardz00_31420 =
																														BgL_arg2403z00_18921;
																													BgL_bufposz00_31421 =
																														BgL_arg2404z00_18922;
																													BgL_bufposz00_18919 =
																														BgL_bufposz00_31421;
																													BgL_forwardz00_18918 =
																														BgL_forwardz00_31420;
																													goto
																														BgL_statezd273zd21132z00_18310;
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_newzd2matchzd2_18920;
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										int BgL_curz00_18923;

																										BgL_curz00_18923 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18916,
																											BgL_forwardz00_18918);
																										{	/* Read/reader.scm 332 */

																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9765z00_31423;
																												{	/* Read/reader.scm 332 */
																													bool_t
																														BgL_test9766z00_31424;
																													if (((long)
																															(BgL_curz00_18923)
																															>= 48L))
																														{	/* Read/reader.scm 332 */
																															BgL_test9766z00_31424
																																=
																																((long)
																																(BgL_curz00_18923)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_test9766z00_31424
																																= ((bool_t) 0);
																														}
																													if (BgL_test9766z00_31424)
																														{	/* Read/reader.scm 332 */
																															BgL_test9765z00_31423
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															bool_t
																																BgL_test9768z00_31430;
																															if (((long)
																																	(BgL_curz00_18923)
																																	>= 65L))
																																{	/* Read/reader.scm 332 */
																																	BgL_test9768z00_31430
																																		=
																																		((long)
																																		(BgL_curz00_18923)
																																		< 71L);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_test9768z00_31430
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9768z00_31430)
																																{	/* Read/reader.scm 332 */
																																	BgL_test9765z00_31423
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	if (
																																		((long)
																																			(BgL_curz00_18923)
																																			>= 97L))
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9765z00_31423
																																				=
																																				((long)
																																				(BgL_curz00_18923)
																																				< 103L);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9765z00_31423
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test9765z00_31423)
																													{
																														long
																															BgL_forwardz00_31442;
																														long
																															BgL_lastzd2matchzd2_31441;
																														BgL_lastzd2matchzd2_31441
																															=
																															BgL_newzd2matchzd2_18920;
																														BgL_forwardz00_31442
																															=
																															(1L +
																															BgL_forwardz00_18918);
																														BgL_forwardz00_18918
																															=
																															BgL_forwardz00_31442;
																														BgL_lastzd2matchzd2_18917
																															=
																															BgL_lastzd2matchzd2_31441;
																														goto
																															BgL_statezd273zd21132z00_18310;
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_matchz00_19003 =
																															BgL_newzd2matchzd2_18920;
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_lastzd2matchzd2_18756;
																						}
																				}
																			}
																		}
																}
															else
																{	/* Read/reader.scm 332 */
																	bool_t BgL_test9771z00_31446;

																	if (((long) (BgL_curz00_18632) >= 48L))
																		{	/* Read/reader.scm 332 */
																			BgL_test9771z00_31446 =
																				((long) (BgL_curz00_18632) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			BgL_test9771z00_31446 = ((bool_t) 0);
																		}
																	if (BgL_test9771z00_31446)
																		{	/* Read/reader.scm 332 */
																			BgL_iportz00_18809 = BgL_iportz00_18625;
																			BgL_lastzd2matchzd2_18810 =
																				BgL_newzd2matchzd2_18629;
																			BgL_forwardz00_18811 =
																				(1L + BgL_forwardz00_18627);
																			BgL_bufposz00_18812 = BgL_bufposz00_18628;
																		BgL_statezd271zd21130z00_18297:
																			{	/* Read/reader.scm 332 */
																				long BgL_newzd2matchzd2_18813;

																				RGC_STOP_MATCH(BgL_iportz00_18809,
																					BgL_forwardz00_18811);
																				BgL_newzd2matchzd2_18813 = 9L;
																				if (
																					(BgL_forwardz00_18811 ==
																						BgL_bufposz00_18812))
																					{	/* Read/reader.scm 332 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18809))
																							{	/* Read/reader.scm 332 */
																								long BgL_arg2224z00_18814;
																								long BgL_arg2225z00_18815;

																								BgL_arg2224z00_18814 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18809);
																								BgL_arg2225z00_18815 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18809);
																								{
																									long BgL_bufposz00_31460;
																									long BgL_forwardz00_31459;

																									BgL_forwardz00_31459 =
																										BgL_arg2224z00_18814;
																									BgL_bufposz00_31460 =
																										BgL_arg2225z00_18815;
																									BgL_bufposz00_18812 =
																										BgL_bufposz00_31460;
																									BgL_forwardz00_18811 =
																										BgL_forwardz00_31459;
																									goto
																										BgL_statezd271zd21130z00_18297;
																								}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_newzd2matchzd2_18813;
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						int BgL_curz00_18816;

																						BgL_curz00_18816 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18809,
																							BgL_forwardz00_18811);
																						{	/* Read/reader.scm 332 */

																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9775z00_31462;

																								if (
																									((long) (BgL_curz00_18816) >=
																										48L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9775z00_31462 =
																											(
																											(long) (BgL_curz00_18816)
																											< 58L);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9775z00_31462 =
																											((bool_t) 0);
																									}
																								if (BgL_test9775z00_31462)
																									{
																										long BgL_forwardz00_31469;
																										long
																											BgL_lastzd2matchzd2_31468;
																										BgL_lastzd2matchzd2_31468 =
																											BgL_newzd2matchzd2_18813;
																										BgL_forwardz00_31469 =
																											(1L +
																											BgL_forwardz00_18811);
																										BgL_forwardz00_18811 =
																											BgL_forwardz00_31469;
																										BgL_lastzd2matchzd2_18810 =
																											BgL_lastzd2matchzd2_31468;
																										goto
																											BgL_statezd271zd21130z00_18297;
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_newzd2matchzd2_18813;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			bool_t BgL_test9777z00_31472;

																			if (((long) (BgL_curz00_18632) == 43L))
																				{	/* Read/reader.scm 332 */
																					BgL_test9777z00_31472 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_test9777z00_31472 =
																						((long) (BgL_curz00_18632) == 45L);
																				}
																			if (BgL_test9777z00_31472)
																				{	/* Read/reader.scm 332 */
																					BgL_iportz00_18512 =
																						BgL_iportz00_18625;
																					BgL_lastzd2matchzd2_18513 =
																						BgL_newzd2matchzd2_18629;
																					BgL_forwardz00_18514 =
																						(1L + BgL_forwardz00_18627);
																					BgL_bufposz00_18515 =
																						BgL_bufposz00_18628;
																				BgL_statezd270zd21129z00_18263:
																					if (
																						(BgL_forwardz00_18514 ==
																							BgL_bufposz00_18515))
																						{	/* Read/reader.scm 332 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_18512))
																								{	/* Read/reader.scm 332 */
																									long BgL_arg1844z00_18516;
																									long BgL_arg1845z00_18517;

																									BgL_arg1844z00_18516 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_18512);
																									BgL_arg1845z00_18517 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_18512);
																									{
																										long BgL_bufposz00_31485;
																										long BgL_forwardz00_31484;

																										BgL_forwardz00_31484 =
																											BgL_arg1844z00_18516;
																										BgL_bufposz00_31485 =
																											BgL_arg1845z00_18517;
																										BgL_bufposz00_18515 =
																											BgL_bufposz00_31485;
																										BgL_forwardz00_18514 =
																											BgL_forwardz00_31484;
																										goto
																											BgL_statezd270zd21129z00_18263;
																									}
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_matchz00_19003 =
																										BgL_lastzd2matchzd2_18513;
																								}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							int BgL_curz00_18518;

																							BgL_curz00_18518 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_18512,
																								BgL_forwardz00_18514);
																							{	/* Read/reader.scm 332 */

																								{	/* Read/reader.scm 332 */
																									bool_t BgL_test9781z00_31487;

																									if (
																										((long) (BgL_curz00_18518)
																											>= 48L))
																										{	/* Read/reader.scm 332 */
																											BgL_test9781z00_31487 =
																												(
																												(long)
																												(BgL_curz00_18518) <
																												58L);
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_test9781z00_31487 =
																												((bool_t) 0);
																										}
																									if (BgL_test9781z00_31487)
																										{
																											long BgL_bufposz00_31497;
																											long BgL_forwardz00_31495;
																											long
																												BgL_lastzd2matchzd2_31494;
																											obj_t BgL_iportz00_31493;

																											BgL_iportz00_31493 =
																												BgL_iportz00_18512;
																											BgL_lastzd2matchzd2_31494
																												=
																												BgL_lastzd2matchzd2_18513;
																											BgL_forwardz00_31495 =
																												(1L +
																												BgL_forwardz00_18514);
																											BgL_bufposz00_31497 =
																												BgL_bufposz00_18515;
																											BgL_bufposz00_18812 =
																												BgL_bufposz00_31497;
																											BgL_forwardz00_18811 =
																												BgL_forwardz00_31495;
																											BgL_lastzd2matchzd2_18810
																												=
																												BgL_lastzd2matchzd2_31494;
																											BgL_iportz00_18809 =
																												BgL_iportz00_31493;
																											goto
																												BgL_statezd271zd21130z00_18297;
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_matchz00_19003 =
																												BgL_lastzd2matchzd2_18513;
																										}
																								}
																							}
																						}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_matchz00_19003 =
																						BgL_newzd2matchzd2_18629;
																				}
																		}
																}
														}
													}
											}
											break;
										case 101L:

											BgL_iportz00_18817 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18818 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18819 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18820 = BgL_bufposz00_18383;
										BgL_statezd28zd21067z00_18298:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18821;

												RGC_STOP_MATCH(BgL_iportz00_18817,
													BgL_forwardz00_18819);
												BgL_newzd2matchzd2_18821 = 25L;
												if ((BgL_forwardz00_18819 == BgL_bufposz00_18820))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18817))
															{	/* Read/reader.scm 332 */
																long BgL_arg2232z00_18822;
																long BgL_arg2233z00_18823;

																BgL_arg2232z00_18822 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18817);
																BgL_arg2233z00_18823 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18817);
																{
																	long BgL_bufposz00_31508;
																	long BgL_forwardz00_31507;

																	BgL_forwardz00_31507 = BgL_arg2232z00_18822;
																	BgL_bufposz00_31508 = BgL_arg2233z00_18823;
																	BgL_bufposz00_18820 = BgL_bufposz00_31508;
																	BgL_forwardz00_18819 = BgL_forwardz00_31507;
																	goto BgL_statezd28zd21067z00_18298;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18821;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18824;

														BgL_curz00_18824 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18817,
															BgL_forwardz00_18819);
														{	/* Read/reader.scm 332 */

															if (((long) (BgL_curz00_18824) == 120L))
																{	/* Read/reader.scm 332 */
																	BgL_iportz00_18858 = BgL_iportz00_18817;
																	BgL_lastzd2matchzd2_18859 =
																		BgL_newzd2matchzd2_18821;
																	BgL_forwardz00_18860 =
																		(1L + BgL_forwardz00_18819);
																	BgL_bufposz00_18861 = BgL_bufposz00_18820;
																BgL_statezd277zd21136z00_18303:
																	if (
																		(BgL_forwardz00_18860 ==
																			BgL_bufposz00_18861))
																		{	/* Read/reader.scm 332 */
																			if (rgc_fill_buffer(BgL_iportz00_18858))
																				{	/* Read/reader.scm 332 */
																					long BgL_arg2308z00_18862;
																					long BgL_arg2309z00_18863;

																					BgL_arg2308z00_18862 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_18858);
																					BgL_arg2309z00_18863 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_18858);
																					{
																						long BgL_bufposz00_31520;
																						long BgL_forwardz00_31519;

																						BgL_forwardz00_31519 =
																							BgL_arg2308z00_18862;
																						BgL_bufposz00_31520 =
																							BgL_arg2309z00_18863;
																						BgL_bufposz00_18861 =
																							BgL_bufposz00_31520;
																						BgL_forwardz00_18860 =
																							BgL_forwardz00_31519;
																						goto BgL_statezd277zd21136z00_18303;
																					}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_matchz00_19003 =
																						BgL_lastzd2matchzd2_18859;
																				}
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			int BgL_curz00_18864;

																			BgL_curz00_18864 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_18858,
																				BgL_forwardz00_18860);
																			{	/* Read/reader.scm 332 */

																				{	/* Read/reader.scm 332 */
																					bool_t BgL_test9788z00_31522;

																					{	/* Read/reader.scm 332 */
																						bool_t BgL_test9789z00_31523;

																						if (
																							((long) (BgL_curz00_18864) >=
																								48L))
																							{	/* Read/reader.scm 332 */
																								BgL_test9789z00_31523 =
																									(
																									(long) (BgL_curz00_18864) <
																									58L);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_test9789z00_31523 =
																									((bool_t) 0);
																							}
																						if (BgL_test9789z00_31523)
																							{	/* Read/reader.scm 332 */
																								BgL_test9788z00_31522 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9791z00_31529;

																								if (
																									((long) (BgL_curz00_18864) >=
																										65L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9791z00_31529 =
																											(
																											(long) (BgL_curz00_18864)
																											< 71L);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9791z00_31529 =
																											((bool_t) 0);
																									}
																								if (BgL_test9791z00_31529)
																									{	/* Read/reader.scm 332 */
																										BgL_test9788z00_31522 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										if (
																											((long) (BgL_curz00_18864)
																												>= 97L))
																											{	/* Read/reader.scm 332 */
																												BgL_test9788z00_31522 =
																													(
																													(long)
																													(BgL_curz00_18864) <
																													103L);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_test9788z00_31522 =
																													((bool_t) 0);
																											}
																									}
																							}
																					}
																					if (BgL_test9788z00_31522)
																						{	/* Read/reader.scm 332 */
																							BgL_iportz00_18465 =
																								BgL_iportz00_18858;
																							BgL_lastzd2matchzd2_18466 =
																								BgL_lastzd2matchzd2_18859;
																							BgL_forwardz00_18467 =
																								(1L + BgL_forwardz00_18860);
																							BgL_bufposz00_18468 =
																								BgL_bufposz00_18861;
																						BgL_statezd278zd21137z00_18257:
																							{	/* Read/reader.scm 332 */
																								long BgL_newzd2matchzd2_18469;

																								RGC_STOP_MATCH
																									(BgL_iportz00_18465,
																									BgL_forwardz00_18467);
																								BgL_newzd2matchzd2_18469 = 8L;
																								if (
																									(BgL_forwardz00_18467 ==
																										BgL_bufposz00_18468))
																									{	/* Read/reader.scm 332 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18465))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg1745z00_18470;
																												long
																													BgL_arg1746z00_18471;
																												BgL_arg1745z00_18470 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18465);
																												BgL_arg1746z00_18471 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18465);
																												{
																													long
																														BgL_bufposz00_31548;
																													long
																														BgL_forwardz00_31547;
																													BgL_forwardz00_31547 =
																														BgL_arg1745z00_18470;
																													BgL_bufposz00_31548 =
																														BgL_arg1746z00_18471;
																													BgL_bufposz00_18468 =
																														BgL_bufposz00_31548;
																													BgL_forwardz00_18467 =
																														BgL_forwardz00_31547;
																													goto
																														BgL_statezd278zd21137z00_18257;
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_newzd2matchzd2_18469;
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										int BgL_curz00_18472;

																										BgL_curz00_18472 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18465,
																											BgL_forwardz00_18467);
																										{	/* Read/reader.scm 332 */

																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9796z00_31550;
																												{	/* Read/reader.scm 332 */
																													bool_t
																														BgL_test9797z00_31551;
																													if (((long)
																															(BgL_curz00_18472)
																															>= 48L))
																														{	/* Read/reader.scm 332 */
																															BgL_test9797z00_31551
																																=
																																((long)
																																(BgL_curz00_18472)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_test9797z00_31551
																																= ((bool_t) 0);
																														}
																													if (BgL_test9797z00_31551)
																														{	/* Read/reader.scm 332 */
																															BgL_test9796z00_31550
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															bool_t
																																BgL_test9799z00_31557;
																															if (((long)
																																	(BgL_curz00_18472)
																																	>= 65L))
																																{	/* Read/reader.scm 332 */
																																	BgL_test9799z00_31557
																																		=
																																		((long)
																																		(BgL_curz00_18472)
																																		< 71L);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_test9799z00_31557
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9799z00_31557)
																																{	/* Read/reader.scm 332 */
																																	BgL_test9796z00_31550
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	if (
																																		((long)
																																			(BgL_curz00_18472)
																																			>= 97L))
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9796z00_31550
																																				=
																																				((long)
																																				(BgL_curz00_18472)
																																				< 103L);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9796z00_31550
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test9796z00_31550)
																													{
																														long
																															BgL_forwardz00_31569;
																														long
																															BgL_lastzd2matchzd2_31568;
																														BgL_lastzd2matchzd2_31568
																															=
																															BgL_newzd2matchzd2_18469;
																														BgL_forwardz00_31569
																															=
																															(1L +
																															BgL_forwardz00_18467);
																														BgL_forwardz00_18467
																															=
																															BgL_forwardz00_31569;
																														BgL_lastzd2matchzd2_18466
																															=
																															BgL_lastzd2matchzd2_31568;
																														goto
																															BgL_statezd278zd21137z00_18257;
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_matchz00_19003 =
																															BgL_newzd2matchzd2_18469;
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_lastzd2matchzd2_18859;
																						}
																				}
																			}
																		}
																}
															else
																{	/* Read/reader.scm 332 */
																	bool_t BgL_test9802z00_31573;

																	{	/* Read/reader.scm 332 */
																		bool_t BgL_test9803z00_31574;

																		if (((long) (BgL_curz00_18824) >= 98L))
																			{	/* Read/reader.scm 332 */
																				BgL_test9803z00_31574 =
																					((long) (BgL_curz00_18824) < 103L);
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_test9803z00_31574 = ((bool_t) 0);
																			}
																		if (BgL_test9803z00_31574)
																			{	/* Read/reader.scm 332 */
																				BgL_test9802z00_31573 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				bool_t BgL_test9805z00_31580;

																				if (((long) (BgL_curz00_18824) == 106L))
																					{	/* Read/reader.scm 332 */
																						BgL_test9805z00_31580 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						BgL_test9805z00_31580 =
																							(
																							(long) (BgL_curz00_18824) ==
																							105L);
																					}
																				if (BgL_test9805z00_31580)
																					{	/* Read/reader.scm 332 */
																						BgL_test9802z00_31573 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						bool_t BgL_test9807z00_31586;

																						if (
																							((long) (BgL_curz00_18824) ==
																								112L))
																							{	/* Read/reader.scm 332 */
																								BgL_test9807z00_31586 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								if (
																									((long) (BgL_curz00_18824) ==
																										111L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9807z00_31586 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9807z00_31586 =
																											(
																											(long) (BgL_curz00_18824)
																											== 110L);
																							}}
																						if (BgL_test9807z00_31586)
																							{	/* Read/reader.scm 332 */
																								BgL_test9802z00_31573 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								bool_t
																									BgL__ortest_1175z00_18825;
																								BgL__ortest_1175z00_18825 =
																									((long) (BgL_curz00_18824) ==
																									116L);
																								if (BgL__ortest_1175z00_18825)
																									{	/* Read/reader.scm 332 */
																										BgL_test9802z00_31573 =
																											BgL__ortest_1175z00_18825;
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9802z00_31573 =
																											(
																											(long) (BgL_curz00_18824)
																											== 115L);
																	}}}}}
																	if (BgL_test9802z00_31573)
																		{
																			long BgL_bufposz00_31604;
																			long BgL_forwardz00_31602;
																			long BgL_lastzd2matchzd2_31601;
																			obj_t BgL_iportz00_31600;

																			BgL_iportz00_31600 = BgL_iportz00_18817;
																			BgL_lastzd2matchzd2_31601 =
																				BgL_newzd2matchzd2_18821;
																			BgL_forwardz00_31602 =
																				(1L + BgL_forwardz00_18819);
																			BgL_bufposz00_31604 = BgL_bufposz00_18820;
																			BgL_bufposz00_18673 = BgL_bufposz00_31604;
																			BgL_forwardz00_18672 =
																				BgL_forwardz00_31602;
																			BgL_lastzd2matchzd2_18671 =
																				BgL_lastzd2matchzd2_31601;
																			BgL_iportz00_18670 = BgL_iportz00_31600;
																			goto BgL_statezd223zd21082z00_18279;
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			bool_t BgL_test9811z00_31605;

																			if (((long) (BgL_curz00_18824) >= 48L))
																				{	/* Read/reader.scm 332 */
																					BgL_test9811z00_31605 =
																						((long) (BgL_curz00_18824) < 58L);
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_test9811z00_31605 = ((bool_t) 0);
																				}
																			if (BgL_test9811z00_31605)
																				{	/* Read/reader.scm 332 */
																					BgL_iportz00_18473 =
																						BgL_iportz00_18817;
																					BgL_lastzd2matchzd2_18474 =
																						BgL_newzd2matchzd2_18821;
																					BgL_forwardz00_18475 =
																						(1L + BgL_forwardz00_18819);
																					BgL_bufposz00_18476 =
																						BgL_bufposz00_18820;
																				BgL_statezd276zd21135z00_18258:
																					{	/* Read/reader.scm 332 */
																						long BgL_newzd2matchzd2_18477;

																						RGC_STOP_MATCH(BgL_iportz00_18473,
																							BgL_forwardz00_18475);
																						BgL_newzd2matchzd2_18477 = 7L;
																						if (
																							(BgL_forwardz00_18475 ==
																								BgL_bufposz00_18476))
																							{	/* Read/reader.scm 332 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_18473))
																									{	/* Read/reader.scm 332 */
																										long BgL_arg1756z00_18478;
																										long BgL_arg1757z00_18479;

																										BgL_arg1756z00_18478 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_18473);
																										BgL_arg1757z00_18479 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_18473);
																										{
																											long BgL_bufposz00_31619;
																											long BgL_forwardz00_31618;

																											BgL_forwardz00_31618 =
																												BgL_arg1756z00_18478;
																											BgL_bufposz00_31619 =
																												BgL_arg1757z00_18479;
																											BgL_bufposz00_18476 =
																												BgL_bufposz00_31619;
																											BgL_forwardz00_18475 =
																												BgL_forwardz00_31618;
																											goto
																												BgL_statezd276zd21135z00_18258;
																										}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_newzd2matchzd2_18477;
																									}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								int BgL_curz00_18480;

																								BgL_curz00_18480 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_18473,
																									BgL_forwardz00_18475);
																								{	/* Read/reader.scm 332 */

																									{	/* Read/reader.scm 332 */
																										bool_t
																											BgL_test9815z00_31621;
																										if (((long)
																												(BgL_curz00_18480) >=
																												48L))
																											{	/* Read/reader.scm 332 */
																												BgL_test9815z00_31621 =
																													(
																													(long)
																													(BgL_curz00_18480) <
																													58L);
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_test9815z00_31621 =
																													((bool_t) 0);
																											}
																										if (BgL_test9815z00_31621)
																											{
																												long
																													BgL_forwardz00_31628;
																												long
																													BgL_lastzd2matchzd2_31627;
																												BgL_lastzd2matchzd2_31627
																													=
																													BgL_newzd2matchzd2_18477;
																												BgL_forwardz00_31628 =
																													(1L +
																													BgL_forwardz00_18475);
																												BgL_forwardz00_18475 =
																													BgL_forwardz00_31628;
																												BgL_lastzd2matchzd2_18474
																													=
																													BgL_lastzd2matchzd2_31627;
																												goto
																													BgL_statezd276zd21135z00_18258;
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_newzd2matchzd2_18477;
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					if (
																						((long) (BgL_curz00_18824) == 45L))
																						{	/* Read/reader.scm 332 */
																							BgL_iportz00_18842 =
																								BgL_iportz00_18817;
																							BgL_lastzd2matchzd2_18843 =
																								BgL_newzd2matchzd2_18821;
																							BgL_forwardz00_18844 =
																								(1L + BgL_forwardz00_18819);
																							BgL_bufposz00_18845 =
																								BgL_bufposz00_18820;
																						BgL_statezd275zd21134z00_18301:
																							{	/* Read/reader.scm 332 */
																								long BgL_newzd2matchzd2_18846;

																								RGC_STOP_MATCH
																									(BgL_iportz00_18842,
																									BgL_forwardz00_18844);
																								BgL_newzd2matchzd2_18846 = 14L;
																								if (
																									(BgL_forwardz00_18844 ==
																										BgL_bufposz00_18845))
																									{	/* Read/reader.scm 332 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18842))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg2275z00_18847;
																												long
																													BgL_arg2276z00_18848;
																												BgL_arg2275z00_18847 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18842);
																												BgL_arg2276z00_18848 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18842);
																												{
																													long
																														BgL_bufposz00_31642;
																													long
																														BgL_forwardz00_31641;
																													BgL_forwardz00_31641 =
																														BgL_arg2275z00_18847;
																													BgL_bufposz00_31642 =
																														BgL_arg2276z00_18848;
																													BgL_bufposz00_18845 =
																														BgL_bufposz00_31642;
																													BgL_forwardz00_18844 =
																														BgL_forwardz00_31641;
																													goto
																														BgL_statezd275zd21134z00_18301;
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_newzd2matchzd2_18846;
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										int BgL_curz00_18849;

																										BgL_curz00_18849 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18842,
																											BgL_forwardz00_18844);
																										{	/* Read/reader.scm 332 */

																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9820z00_31644;
																												if (((long)
																														(BgL_curz00_18849)
																														>= 48L))
																													{	/* Read/reader.scm 332 */
																														BgL_test9820z00_31644
																															=
																															((long)
																															(BgL_curz00_18849)
																															< 58L);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_test9820z00_31644
																															= ((bool_t) 0);
																													}
																												if (BgL_test9820z00_31644)
																													{
																														long
																															BgL_bufposz00_31654;
																														long
																															BgL_forwardz00_31652;
																														long
																															BgL_lastzd2matchzd2_31651;
																														obj_t
																															BgL_iportz00_31650;
																														BgL_iportz00_31650 =
																															BgL_iportz00_18842;
																														BgL_lastzd2matchzd2_31651
																															=
																															BgL_newzd2matchzd2_18846;
																														BgL_forwardz00_31652
																															=
																															(1L +
																															BgL_forwardz00_18844);
																														BgL_bufposz00_31654
																															=
																															BgL_bufposz00_18845;
																														BgL_bufposz00_18476
																															=
																															BgL_bufposz00_31654;
																														BgL_forwardz00_18475
																															=
																															BgL_forwardz00_31652;
																														BgL_lastzd2matchzd2_18474
																															=
																															BgL_lastzd2matchzd2_31651;
																														BgL_iportz00_18473 =
																															BgL_iportz00_31650;
																														goto
																															BgL_statezd276zd21135z00_18258;
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														bool_t
																															BgL_test9822z00_31655;
																														if (((long)
																																(BgL_curz00_18849)
																																== 45L))
																															{	/* Read/reader.scm 332 */
																																BgL_test9822z00_31655
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																bool_t
																																	BgL_test9824z00_31659;
																																if (((long)
																																		(BgL_curz00_18849)
																																		>= 98L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9824z00_31659
																																			=
																																			((long)
																																			(BgL_curz00_18849)
																																			< 103L);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9824z00_31659
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9824z00_31659)
																																	{	/* Read/reader.scm 332 */
																																		BgL_test9822z00_31655
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL_test9826z00_31665;
																																		if (((long)
																																				(BgL_curz00_18849)
																																				==
																																				106L))
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9826z00_31665
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9826z00_31665
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18849)
																																					==
																																					105L);
																																			}
																																		if (BgL_test9826z00_31665)
																																			{	/* Read/reader.scm 332 */
																																				BgL_test9822z00_31655
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				bool_t
																																					BgL_test9828z00_31671;
																																				if ((
																																						(long)
																																						(BgL_curz00_18849)
																																						==
																																						112L))
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9828z00_31671
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						if (
																																							((long) (BgL_curz00_18849) == 111L))
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9828z00_31671
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9828z00_31671
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18849)
																																									==
																																									110L);
																																					}}
																																				if (BgL_test9828z00_31671)
																																					{	/* Read/reader.scm 332 */
																																						BgL_test9822z00_31655
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 332 */
																																						bool_t
																																							BgL__ortest_1177z00_18850;
																																						BgL__ortest_1177z00_18850
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18849)
																																							==
																																							116L);
																																						if (BgL__ortest_1177z00_18850)
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9822z00_31655
																																									=
																																									BgL__ortest_1177z00_18850;
																																							}
																																						else
																																							{	/* Read/reader.scm 332 */
																																								BgL_test9822z00_31655
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18849)
																																									==
																																									115L);
																															}}}}}
																														if (BgL_test9822z00_31655)
																															{
																																long
																																	BgL_bufposz00_31689;
																																long
																																	BgL_forwardz00_31687;
																																long
																																	BgL_lastzd2matchzd2_31686;
																																obj_t
																																	BgL_iportz00_31685;
																																BgL_iportz00_31685
																																	=
																																	BgL_iportz00_18842;
																																BgL_lastzd2matchzd2_31686
																																	=
																																	BgL_newzd2matchzd2_18846;
																																BgL_forwardz00_31687
																																	=
																																	(1L +
																																	BgL_forwardz00_18844);
																																BgL_bufposz00_31689
																																	=
																																	BgL_bufposz00_18845;
																																BgL_bufposz00_18673
																																	=
																																	BgL_bufposz00_31689;
																																BgL_forwardz00_18672
																																	=
																																	BgL_forwardz00_31687;
																																BgL_lastzd2matchzd2_18671
																																	=
																																	BgL_lastzd2matchzd2_31686;
																																BgL_iportz00_18670
																																	=
																																	BgL_iportz00_31685;
																																goto
																																	BgL_statezd223zd21082z00_18279;
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_matchz00_19003
																																	=
																																	BgL_newzd2matchzd2_18846;
																															}
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							if (
																								((long) (BgL_curz00_18824) ==
																									43L))
																								{	/* Read/reader.scm 332 */
																									BgL_iportz00_18458 =
																										BgL_iportz00_18817;
																									BgL_lastzd2matchzd2_18459 =
																										BgL_newzd2matchzd2_18821;
																									BgL_forwardz00_18460 =
																										(1L + BgL_forwardz00_18819);
																									BgL_bufposz00_18461 =
																										BgL_bufposz00_18820;
																								BgL_statezd274zd21133z00_18256:
																									if (
																										(BgL_forwardz00_18460 ==
																											BgL_bufposz00_18461))
																										{	/* Read/reader.scm 332 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_18458))
																												{	/* Read/reader.scm 332 */
																													long
																														BgL_arg1736z00_18462;
																													long
																														BgL_arg1738z00_18463;
																													BgL_arg1736z00_18462 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_18458);
																													BgL_arg1738z00_18463 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_18458);
																													{
																														long
																															BgL_bufposz00_31701;
																														long
																															BgL_forwardz00_31700;
																														BgL_forwardz00_31700
																															=
																															BgL_arg1736z00_18462;
																														BgL_bufposz00_31701
																															=
																															BgL_arg1738z00_18463;
																														BgL_bufposz00_18461
																															=
																															BgL_bufposz00_31701;
																														BgL_forwardz00_18460
																															=
																															BgL_forwardz00_31700;
																														goto
																															BgL_statezd274zd21133z00_18256;
																													}
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_matchz00_19003 =
																														BgL_lastzd2matchzd2_18459;
																												}
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											int BgL_curz00_18464;

																											BgL_curz00_18464 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_18458,
																												BgL_forwardz00_18460);
																											{	/* Read/reader.scm 332 */

																												{	/* Read/reader.scm 332 */
																													bool_t
																														BgL_test9835z00_31703;
																													if (((long)
																															(BgL_curz00_18464)
																															>= 48L))
																														{	/* Read/reader.scm 332 */
																															BgL_test9835z00_31703
																																=
																																((long)
																																(BgL_curz00_18464)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_test9835z00_31703
																																= ((bool_t) 0);
																														}
																													if (BgL_test9835z00_31703)
																														{
																															long
																																BgL_bufposz00_31713;
																															long
																																BgL_forwardz00_31711;
																															long
																																BgL_lastzd2matchzd2_31710;
																															obj_t
																																BgL_iportz00_31709;
																															BgL_iportz00_31709
																																=
																																BgL_iportz00_18458;
																															BgL_lastzd2matchzd2_31710
																																=
																																BgL_lastzd2matchzd2_18459;
																															BgL_forwardz00_31711
																																=
																																(1L +
																																BgL_forwardz00_18460);
																															BgL_bufposz00_31713
																																=
																																BgL_bufposz00_18461;
																															BgL_bufposz00_18476
																																=
																																BgL_bufposz00_31713;
																															BgL_forwardz00_18475
																																=
																																BgL_forwardz00_31711;
																															BgL_lastzd2matchzd2_18474
																																=
																																BgL_lastzd2matchzd2_31710;
																															BgL_iportz00_18473
																																=
																																BgL_iportz00_31709;
																															goto
																																BgL_statezd276zd21135z00_18258;
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_matchz00_19003
																																=
																																BgL_lastzd2matchzd2_18459;
																														}
																												}
																											}
																										}
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_matchz00_19003 =
																										BgL_newzd2matchzd2_18821;
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 100L:

											BgL_iportz00_18970 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18971 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18972 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18973 = BgL_bufposz00_18383;
										BgL_statezd27zd21066z00_18317:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18974;

												RGC_STOP_MATCH(BgL_iportz00_18970,
													BgL_forwardz00_18972);
												BgL_newzd2matchzd2_18974 = 25L;
												if ((BgL_forwardz00_18972 == BgL_bufposz00_18973))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18970))
															{	/* Read/reader.scm 332 */
																long BgL_arg2481z00_18975;
																long BgL_arg2482z00_18976;

																BgL_arg2481z00_18975 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18970);
																BgL_arg2482z00_18976 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18970);
																{
																	long BgL_bufposz00_31724;
																	long BgL_forwardz00_31723;

																	BgL_forwardz00_31723 = BgL_arg2481z00_18975;
																	BgL_bufposz00_31724 = BgL_arg2482z00_18976;
																	BgL_bufposz00_18973 = BgL_bufposz00_31724;
																	BgL_forwardz00_18972 = BgL_forwardz00_31723;
																	goto BgL_statezd27zd21066z00_18317;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18974;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18977;

														BgL_curz00_18977 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18970,
															BgL_forwardz00_18972);
														{	/* Read/reader.scm 332 */

															{	/* Read/reader.scm 332 */
																bool_t BgL_test9839z00_31726;

																if (((long) (BgL_curz00_18977) >= 48L))
																	{	/* Read/reader.scm 332 */
																		BgL_test9839z00_31726 =
																			((long) (BgL_curz00_18977) < 58L);
																	}
																else
																	{	/* Read/reader.scm 332 */
																		BgL_test9839z00_31726 = ((bool_t) 0);
																	}
																if (BgL_test9839z00_31726)
																	{	/* Read/reader.scm 332 */
																		BgL_iportz00_18716 = BgL_iportz00_18970;
																		BgL_lastzd2matchzd2_18717 =
																			BgL_newzd2matchzd2_18974;
																		BgL_forwardz00_18718 =
																			(1L + BgL_forwardz00_18972);
																		BgL_bufposz00_18719 = BgL_bufposz00_18973;
																	BgL_statezd280zd21139z00_18285:
																		{	/* Read/reader.scm 332 */
																			long BgL_newzd2matchzd2_18720;

																			RGC_STOP_MATCH(BgL_iportz00_18716,
																				BgL_forwardz00_18718);
																			BgL_newzd2matchzd2_18720 = 6L;
																			if (
																				(BgL_forwardz00_18718 ==
																					BgL_bufposz00_18719))
																				{	/* Read/reader.scm 332 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18716))
																						{	/* Read/reader.scm 332 */
																							long BgL_arg2093z00_18721;
																							long BgL_arg2094z00_18722;

																							BgL_arg2093z00_18721 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18716);
																							BgL_arg2094z00_18722 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18716);
																							{
																								long BgL_bufposz00_31740;
																								long BgL_forwardz00_31739;

																								BgL_forwardz00_31739 =
																									BgL_arg2093z00_18721;
																								BgL_bufposz00_31740 =
																									BgL_arg2094z00_18722;
																								BgL_bufposz00_18719 =
																									BgL_bufposz00_31740;
																								BgL_forwardz00_18718 =
																									BgL_forwardz00_31739;
																								goto
																									BgL_statezd280zd21139z00_18285;
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_newzd2matchzd2_18720;
																						}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					int BgL_curz00_18723;

																					BgL_curz00_18723 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18716,
																						BgL_forwardz00_18718);
																					{	/* Read/reader.scm 332 */

																						{	/* Read/reader.scm 332 */
																							bool_t BgL_test9843z00_31742;

																							if (
																								((long) (BgL_curz00_18723) >=
																									48L))
																								{	/* Read/reader.scm 332 */
																									BgL_test9843z00_31742 =
																										(
																										(long) (BgL_curz00_18723) <
																										58L);
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_test9843z00_31742 =
																										((bool_t) 0);
																								}
																							if (BgL_test9843z00_31742)
																								{
																									long BgL_forwardz00_31749;
																									long
																										BgL_lastzd2matchzd2_31748;
																									BgL_lastzd2matchzd2_31748 =
																										BgL_newzd2matchzd2_18720;
																									BgL_forwardz00_31749 =
																										(1L + BgL_forwardz00_18718);
																									BgL_forwardz00_18718 =
																										BgL_forwardz00_31749;
																									BgL_lastzd2matchzd2_18717 =
																										BgL_lastzd2matchzd2_31748;
																									goto
																										BgL_statezd280zd21139z00_18285;
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_matchz00_19003 =
																										BgL_newzd2matchzd2_18720;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 332 */
																		bool_t BgL_test9845z00_31752;

																		if (((long) (BgL_curz00_18977) == 43L))
																			{	/* Read/reader.scm 332 */
																				BgL_test9845z00_31752 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_test9845z00_31752 =
																					((long) (BgL_curz00_18977) == 45L);
																			}
																		if (BgL_test9845z00_31752)
																			{	/* Read/reader.scm 332 */
																				BgL_iportz00_18349 = BgL_iportz00_18970;
																				BgL_lastzd2matchzd2_18350 =
																					BgL_newzd2matchzd2_18974;
																				BgL_forwardz00_18351 =
																					(1L + BgL_forwardz00_18972);
																				BgL_bufposz00_18352 =
																					BgL_bufposz00_18973;
																			BgL_statezd279zd21138z00_18244:
																				if (
																					(BgL_forwardz00_18351 ==
																						BgL_bufposz00_18352))
																					{	/* Read/reader.scm 332 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18349))
																							{	/* Read/reader.scm 332 */
																								long BgL_arg1575z00_18353;
																								long BgL_arg1576z00_18354;

																								BgL_arg1575z00_18353 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18349);
																								BgL_arg1576z00_18354 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18349);
																								{
																									long BgL_bufposz00_31765;
																									long BgL_forwardz00_31764;

																									BgL_forwardz00_31764 =
																										BgL_arg1575z00_18353;
																									BgL_bufposz00_31765 =
																										BgL_arg1576z00_18354;
																									BgL_bufposz00_18352 =
																										BgL_bufposz00_31765;
																									BgL_forwardz00_18351 =
																										BgL_forwardz00_31764;
																									goto
																										BgL_statezd279zd21138z00_18244;
																								}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_lastzd2matchzd2_18350;
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						int BgL_curz00_18355;

																						BgL_curz00_18355 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18349,
																							BgL_forwardz00_18351);
																						{	/* Read/reader.scm 332 */

																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9849z00_31767;

																								if (
																									((long) (BgL_curz00_18355) >=
																										48L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9849z00_31767 =
																											(
																											(long) (BgL_curz00_18355)
																											< 58L);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9849z00_31767 =
																											((bool_t) 0);
																									}
																								if (BgL_test9849z00_31767)
																									{
																										long BgL_bufposz00_31777;
																										long BgL_forwardz00_31775;
																										long
																											BgL_lastzd2matchzd2_31774;
																										obj_t BgL_iportz00_31773;

																										BgL_iportz00_31773 =
																											BgL_iportz00_18349;
																										BgL_lastzd2matchzd2_31774 =
																											BgL_lastzd2matchzd2_18350;
																										BgL_forwardz00_31775 =
																											(1L +
																											BgL_forwardz00_18351);
																										BgL_bufposz00_31777 =
																											BgL_bufposz00_18352;
																										BgL_bufposz00_18719 =
																											BgL_bufposz00_31777;
																										BgL_forwardz00_18718 =
																											BgL_forwardz00_31775;
																										BgL_lastzd2matchzd2_18717 =
																											BgL_lastzd2matchzd2_31774;
																										BgL_iportz00_18716 =
																											BgL_iportz00_31773;
																										goto
																											BgL_statezd280zd21139z00_18285;
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_lastzd2matchzd2_18350;
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_matchz00_19003 =
																					BgL_newzd2matchzd2_18974;
																			}
																	}
															}
														}
													}
											}
											break;
										case 98L:

											BgL_iportz00_18885 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18886 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18887 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18888 = BgL_bufposz00_18383;
										BgL_statezd26zd21065z00_18306:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18889;

												RGC_STOP_MATCH(BgL_iportz00_18885,
													BgL_forwardz00_18887);
												BgL_newzd2matchzd2_18889 = 25L;
												if ((BgL_forwardz00_18887 == BgL_bufposz00_18888))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18885))
															{	/* Read/reader.scm 332 */
																long BgL_arg2359z00_18890;
																long BgL_arg2360z00_18891;

																BgL_arg2359z00_18890 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18885);
																BgL_arg2360z00_18891 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18885);
																{
																	long BgL_bufposz00_31788;
																	long BgL_forwardz00_31787;

																	BgL_forwardz00_31787 = BgL_arg2359z00_18890;
																	BgL_bufposz00_31788 = BgL_arg2360z00_18891;
																	BgL_bufposz00_18888 = BgL_bufposz00_31788;
																	BgL_forwardz00_18887 = BgL_forwardz00_31787;
																	goto BgL_statezd26zd21065z00_18306;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18889;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18892;

														BgL_curz00_18892 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18885,
															BgL_forwardz00_18887);
														{	/* Read/reader.scm 332 */

															{	/* Read/reader.scm 332 */
																bool_t BgL_test9853z00_31790;

																if (((long) (BgL_curz00_18892) == 49L))
																	{	/* Read/reader.scm 332 */
																		BgL_test9853z00_31790 = ((bool_t) 1);
																	}
																else
																	{	/* Read/reader.scm 332 */
																		BgL_test9853z00_31790 =
																			((long) (BgL_curz00_18892) == 48L);
																	}
																if (BgL_test9853z00_31790)
																	{	/* Read/reader.scm 332 */
																		BgL_iportz00_18731 = BgL_iportz00_18885;
																		BgL_lastzd2matchzd2_18732 =
																			BgL_newzd2matchzd2_18889;
																		BgL_forwardz00_18733 =
																			(1L + BgL_forwardz00_18887);
																		BgL_bufposz00_18734 = BgL_bufposz00_18888;
																	BgL_statezd282zd21141z00_18287:
																		{	/* Read/reader.scm 332 */
																			long BgL_newzd2matchzd2_18735;

																			RGC_STOP_MATCH(BgL_iportz00_18731,
																				BgL_forwardz00_18733);
																			BgL_newzd2matchzd2_18735 = 4L;
																			if (
																				(BgL_forwardz00_18733 ==
																					BgL_bufposz00_18734))
																				{	/* Read/reader.scm 332 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18731))
																						{	/* Read/reader.scm 332 */
																							long BgL_arg2109z00_18736;
																							long BgL_arg2110z00_18737;

																							BgL_arg2109z00_18736 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18731);
																							BgL_arg2110z00_18737 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18731);
																							{
																								long BgL_bufposz00_31804;
																								long BgL_forwardz00_31803;

																								BgL_forwardz00_31803 =
																									BgL_arg2109z00_18736;
																								BgL_bufposz00_31804 =
																									BgL_arg2110z00_18737;
																								BgL_bufposz00_18734 =
																									BgL_bufposz00_31804;
																								BgL_forwardz00_18733 =
																									BgL_forwardz00_31803;
																								goto
																									BgL_statezd282zd21141z00_18287;
																							}
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_newzd2matchzd2_18735;
																						}
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					int BgL_curz00_18738;

																					BgL_curz00_18738 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18731,
																						BgL_forwardz00_18733);
																					{	/* Read/reader.scm 332 */

																						{	/* Read/reader.scm 332 */
																							bool_t BgL_test9857z00_31806;

																							if (
																								((long) (BgL_curz00_18738) ==
																									49L))
																								{	/* Read/reader.scm 332 */
																									BgL_test9857z00_31806 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_test9857z00_31806 =
																										(
																										(long) (BgL_curz00_18738) ==
																										48L);
																								}
																							if (BgL_test9857z00_31806)
																								{
																									long BgL_forwardz00_31813;
																									long
																										BgL_lastzd2matchzd2_31812;
																									BgL_lastzd2matchzd2_31812 =
																										BgL_newzd2matchzd2_18735;
																									BgL_forwardz00_31813 =
																										(1L + BgL_forwardz00_18733);
																									BgL_forwardz00_18733 =
																										BgL_forwardz00_31813;
																									BgL_lastzd2matchzd2_18732 =
																										BgL_lastzd2matchzd2_31812;
																									goto
																										BgL_statezd282zd21141z00_18287;
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_matchz00_19003 =
																										BgL_newzd2matchzd2_18735;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 332 */
																		bool_t BgL_test9859z00_31816;

																		if (((long) (BgL_curz00_18892) == 43L))
																			{	/* Read/reader.scm 332 */
																				BgL_test9859z00_31816 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_test9859z00_31816 =
																					((long) (BgL_curz00_18892) == 45L);
																			}
																		if (BgL_test9859z00_31816)
																			{	/* Read/reader.scm 332 */
																				BgL_iportz00_18724 = BgL_iportz00_18885;
																				BgL_lastzd2matchzd2_18725 =
																					BgL_newzd2matchzd2_18889;
																				BgL_forwardz00_18726 =
																					(1L + BgL_forwardz00_18887);
																				BgL_bufposz00_18727 =
																					BgL_bufposz00_18888;
																			BgL_statezd281zd21140z00_18286:
																				if (
																					(BgL_forwardz00_18726 ==
																						BgL_bufposz00_18727))
																					{	/* Read/reader.scm 332 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18724))
																							{	/* Read/reader.scm 332 */
																								long BgL_arg2101z00_18728;
																								long BgL_arg2102z00_18729;

																								BgL_arg2101z00_18728 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18724);
																								BgL_arg2102z00_18729 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18724);
																								{
																									long BgL_bufposz00_31829;
																									long BgL_forwardz00_31828;

																									BgL_forwardz00_31828 =
																										BgL_arg2101z00_18728;
																									BgL_bufposz00_31829 =
																										BgL_arg2102z00_18729;
																									BgL_bufposz00_18727 =
																										BgL_bufposz00_31829;
																									BgL_forwardz00_18726 =
																										BgL_forwardz00_31828;
																									goto
																										BgL_statezd281zd21140z00_18286;
																								}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_lastzd2matchzd2_18725;
																							}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						int BgL_curz00_18730;

																						BgL_curz00_18730 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18724,
																							BgL_forwardz00_18726);
																						{	/* Read/reader.scm 332 */

																							{	/* Read/reader.scm 332 */
																								bool_t BgL_test9863z00_31831;

																								if (
																									((long) (BgL_curz00_18730) ==
																										49L))
																									{	/* Read/reader.scm 332 */
																										BgL_test9863z00_31831 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_test9863z00_31831 =
																											(
																											(long) (BgL_curz00_18730)
																											== 48L);
																									}
																								if (BgL_test9863z00_31831)
																									{
																										long BgL_bufposz00_31841;
																										long BgL_forwardz00_31839;
																										long
																											BgL_lastzd2matchzd2_31838;
																										obj_t BgL_iportz00_31837;

																										BgL_iportz00_31837 =
																											BgL_iportz00_18724;
																										BgL_lastzd2matchzd2_31838 =
																											BgL_lastzd2matchzd2_18725;
																										BgL_forwardz00_31839 =
																											(1L +
																											BgL_forwardz00_18726);
																										BgL_bufposz00_31841 =
																											BgL_bufposz00_18727;
																										BgL_bufposz00_18734 =
																											BgL_bufposz00_31841;
																										BgL_forwardz00_18733 =
																											BgL_forwardz00_31839;
																										BgL_lastzd2matchzd2_18732 =
																											BgL_lastzd2matchzd2_31838;
																										BgL_iportz00_18731 =
																											BgL_iportz00_31837;
																										goto
																											BgL_statezd282zd21141z00_18287;
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										BgL_matchz00_19003 =
																											BgL_lastzd2matchzd2_18725;
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				BgL_matchz00_19003 =
																					BgL_newzd2matchzd2_18889;
																			}
																	}
															}
														}
													}
											}
											break;
										case 97L:

											BgL_iportz00_18322 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18323 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18324 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18325 = BgL_bufposz00_18383;
										BgL_statezd25zd21064z00_18241:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18326;

												RGC_STOP_MATCH(BgL_iportz00_18322,
													BgL_forwardz00_18324);
												BgL_newzd2matchzd2_18326 = 25L;
												if ((BgL_forwardz00_18324 == BgL_bufposz00_18325))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18322))
															{	/* Read/reader.scm 332 */
																long BgL_arg1531z00_18327;
																long BgL_arg1532z00_18328;

																BgL_arg1531z00_18327 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18322);
																BgL_arg1532z00_18328 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18322);
																{
																	long BgL_bufposz00_31852;
																	long BgL_forwardz00_31851;

																	BgL_forwardz00_31851 = BgL_arg1531z00_18327;
																	BgL_bufposz00_31852 = BgL_arg1532z00_18328;
																	BgL_bufposz00_18325 = BgL_bufposz00_31852;
																	BgL_forwardz00_18324 = BgL_forwardz00_31851;
																	goto BgL_statezd25zd21064z00_18241;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18326;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18329;

														BgL_curz00_18329 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18322,
															BgL_forwardz00_18324);
														{	/* Read/reader.scm 332 */

															{	/* Read/reader.scm 332 */
																bool_t BgL_test9867z00_31854;

																if (((long) (BgL_curz00_18329) >= 48L))
																	{	/* Read/reader.scm 332 */
																		BgL_test9867z00_31854 =
																			((long) (BgL_curz00_18329) < 58L);
																	}
																else
																	{	/* Read/reader.scm 332 */
																		BgL_test9867z00_31854 = ((bool_t) 0);
																	}
																if (BgL_test9867z00_31854)
																	{	/* Read/reader.scm 332 */
																		BgL_iportz00_18835 = BgL_iportz00_18322;
																		BgL_lastzd2matchzd2_18836 =
																			BgL_newzd2matchzd2_18326;
																		BgL_forwardz00_18837 =
																			(1L + BgL_forwardz00_18324);
																		BgL_bufposz00_18838 = BgL_bufposz00_18325;
																	BgL_statezd283zd21142z00_18300:
																		if (
																			(BgL_forwardz00_18837 ==
																				BgL_bufposz00_18838))
																			{	/* Read/reader.scm 332 */
																				if (rgc_fill_buffer(BgL_iportz00_18835))
																					{	/* Read/reader.scm 332 */
																						long BgL_arg2267z00_18839;
																						long BgL_arg2268z00_18840;

																						BgL_arg2267z00_18839 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_18835);
																						BgL_arg2268z00_18840 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_18835);
																						{
																							long BgL_bufposz00_31867;
																							long BgL_forwardz00_31866;

																							BgL_forwardz00_31866 =
																								BgL_arg2267z00_18839;
																							BgL_bufposz00_31867 =
																								BgL_arg2268z00_18840;
																							BgL_bufposz00_18838 =
																								BgL_bufposz00_31867;
																							BgL_forwardz00_18837 =
																								BgL_forwardz00_31866;
																							goto
																								BgL_statezd283zd21142z00_18300;
																						}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						BgL_matchz00_19003 =
																							BgL_lastzd2matchzd2_18836;
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				int BgL_curz00_18841;

																				BgL_curz00_18841 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_18835,
																					BgL_forwardz00_18837);
																				{	/* Read/reader.scm 332 */

																					{	/* Read/reader.scm 332 */
																						bool_t BgL_test9871z00_31869;

																						if (
																							((long) (BgL_curz00_18841) >=
																								48L))
																							{	/* Read/reader.scm 332 */
																								BgL_test9871z00_31869 =
																									(
																									(long) (BgL_curz00_18841) <
																									58L);
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_test9871z00_31869 =
																									((bool_t) 0);
																							}
																						if (BgL_test9871z00_31869)
																							{	/* Read/reader.scm 332 */
																								BgL_iportz00_18784 =
																									BgL_iportz00_18835;
																								BgL_lastzd2matchzd2_18785 =
																									BgL_lastzd2matchzd2_18836;
																								BgL_forwardz00_18786 =
																									(1L + BgL_forwardz00_18837);
																								BgL_bufposz00_18787 =
																									BgL_bufposz00_18838;
																							BgL_statezd284zd21143z00_18294:
																								if (
																									(BgL_forwardz00_18786 ==
																										BgL_bufposz00_18787))
																									{	/* Read/reader.scm 332 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18784))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg2181z00_18788;
																												long
																													BgL_arg2182z00_18789;
																												BgL_arg2181z00_18788 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18784);
																												BgL_arg2182z00_18789 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18784);
																												{
																													long
																														BgL_bufposz00_31882;
																													long
																														BgL_forwardz00_31881;
																													BgL_forwardz00_31881 =
																														BgL_arg2181z00_18788;
																													BgL_bufposz00_31882 =
																														BgL_arg2182z00_18789;
																													BgL_bufposz00_18787 =
																														BgL_bufposz00_31882;
																													BgL_forwardz00_18786 =
																														BgL_forwardz00_31881;
																													goto
																														BgL_statezd284zd21143z00_18294;
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_lastzd2matchzd2_18785;
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										int BgL_curz00_18790;

																										BgL_curz00_18790 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18784,
																											BgL_forwardz00_18786);
																										{	/* Read/reader.scm 332 */

																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9875z00_31884;
																												if (((long)
																														(BgL_curz00_18790)
																														>= 48L))
																													{	/* Read/reader.scm 332 */
																														BgL_test9875z00_31884
																															=
																															((long)
																															(BgL_curz00_18790)
																															< 58L);
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_test9875z00_31884
																															= ((bool_t) 0);
																													}
																												if (BgL_test9875z00_31884)
																													{	/* Read/reader.scm 332 */
																														long
																															BgL_arg2185z00_18791;
																														BgL_arg2185z00_18791
																															=
																															(1L +
																															BgL_forwardz00_18786);
																														{	/* Read/reader.scm 332 */
																															long
																																BgL_newzd2matchzd2_18792;
																															RGC_STOP_MATCH
																																(BgL_iportz00_18784,
																																BgL_arg2185z00_18791);
																															BgL_newzd2matchzd2_18792
																																= 0L;
																															BgL_matchz00_19003
																																=
																																BgL_newzd2matchzd2_18792;
																													}}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_matchz00_19003 =
																															BgL_lastzd2matchzd2_18785;
																													}
																											}
																										}
																									}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_lastzd2matchzd2_18836;
																							}
																					}
																				}
																			}
																	}
																else
																	{	/* Read/reader.scm 332 */
																		BgL_matchz00_19003 =
																			BgL_newzd2matchzd2_18326;
																	}
															}
														}
													}
											}
											break;
										case 60L:

											BgL_iportz00_18488 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18489 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18490 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18491 = BgL_bufposz00_18383;
										BgL_statezd24zd21063z00_18260:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18492;

												RGC_STOP_MATCH(BgL_iportz00_18488,
													BgL_forwardz00_18490);
												BgL_newzd2matchzd2_18492 = 25L;
												if ((BgL_forwardz00_18490 == BgL_bufposz00_18491))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18488))
															{	/* Read/reader.scm 332 */
																long BgL_arg1786z00_18493;
																long BgL_arg1787z00_18494;

																BgL_arg1786z00_18493 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18488);
																BgL_arg1787z00_18494 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18488);
																{
																	long BgL_bufposz00_31903;
																	long BgL_forwardz00_31902;

																	BgL_forwardz00_31902 = BgL_arg1786z00_18493;
																	BgL_bufposz00_31903 = BgL_arg1787z00_18494;
																	BgL_bufposz00_18491 = BgL_bufposz00_31903;
																	BgL_forwardz00_18490 = BgL_forwardz00_31902;
																	goto BgL_statezd24zd21063z00_18260;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18492;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18495;

														BgL_curz00_18495 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18488,
															BgL_forwardz00_18490);
														{	/* Read/reader.scm 332 */

															{	/* Read/reader.scm 332 */
																bool_t BgL_test9879z00_31905;

																{	/* Read/reader.scm 332 */
																	bool_t BgL_test9880z00_31906;

																	if (((long) (BgL_curz00_18495) >= 48L))
																		{	/* Read/reader.scm 332 */
																			BgL_test9880z00_31906 =
																				((long) (BgL_curz00_18495) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			BgL_test9880z00_31906 = ((bool_t) 0);
																		}
																	if (BgL_test9880z00_31906)
																		{	/* Read/reader.scm 332 */
																			BgL_test9879z00_31905 = ((bool_t) 1);
																		}
																	else
																		{	/* Read/reader.scm 332 */
																			bool_t BgL_test9882z00_31912;

																			if (((long) (BgL_curz00_18495) >= 65L))
																				{	/* Read/reader.scm 332 */
																					BgL_test9882z00_31912 =
																						((long) (BgL_curz00_18495) < 71L);
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_test9882z00_31912 = ((bool_t) 0);
																				}
																			if (BgL_test9882z00_31912)
																				{	/* Read/reader.scm 332 */
																					BgL_test9879z00_31905 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					if (
																						((long) (BgL_curz00_18495) >= 97L))
																						{	/* Read/reader.scm 332 */
																							BgL_test9879z00_31905 =
																								(
																								(long) (BgL_curz00_18495) <
																								103L);
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_test9879z00_31905 =
																								((bool_t) 0);
																						}
																				}
																		}
																}
																if (BgL_test9879z00_31905)
																	{	/* Read/reader.scm 332 */
																		BgL_iportz00_18481 = BgL_iportz00_18488;
																		BgL_lastzd2matchzd2_18482 =
																			BgL_newzd2matchzd2_18492;
																		BgL_forwardz00_18483 =
																			(1L + BgL_forwardz00_18490);
																		BgL_bufposz00_18484 = BgL_bufposz00_18491;
																	BgL_statezd286zd21145z00_18259:
																		if (
																			(BgL_forwardz00_18483 ==
																				BgL_bufposz00_18484))
																			{	/* Read/reader.scm 332 */
																				if (rgc_fill_buffer(BgL_iportz00_18481))
																					{	/* Read/reader.scm 332 */
																						long BgL_arg1765z00_18485;
																						long BgL_arg1766z00_18486;

																						BgL_arg1765z00_18485 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_18481);
																						BgL_arg1766z00_18486 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_18481);
																						{
																							long BgL_bufposz00_31930;
																							long BgL_forwardz00_31929;

																							BgL_forwardz00_31929 =
																								BgL_arg1765z00_18485;
																							BgL_bufposz00_31930 =
																								BgL_arg1766z00_18486;
																							BgL_bufposz00_18484 =
																								BgL_bufposz00_31930;
																							BgL_forwardz00_18483 =
																								BgL_forwardz00_31929;
																							goto
																								BgL_statezd286zd21145z00_18259;
																						}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						BgL_matchz00_19003 =
																							BgL_lastzd2matchzd2_18482;
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				int BgL_curz00_18487;

																				BgL_curz00_18487 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_18481,
																					BgL_forwardz00_18483);
																				{	/* Read/reader.scm 332 */

																					{	/* Read/reader.scm 332 */
																						bool_t BgL_test9887z00_31932;

																						{	/* Read/reader.scm 332 */
																							bool_t BgL_test9888z00_31933;

																							if (
																								((long) (BgL_curz00_18487) >=
																									48L))
																								{	/* Read/reader.scm 332 */
																									BgL_test9888z00_31933 =
																										(
																										(long) (BgL_curz00_18487) <
																										58L);
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									BgL_test9888z00_31933 =
																										((bool_t) 0);
																								}
																							if (BgL_test9888z00_31933)
																								{	/* Read/reader.scm 332 */
																									BgL_test9887z00_31932 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									bool_t BgL_test9890z00_31939;

																									if (
																										((long) (BgL_curz00_18487)
																											>= 65L))
																										{	/* Read/reader.scm 332 */
																											BgL_test9890z00_31939 =
																												(
																												(long)
																												(BgL_curz00_18487) <
																												71L);
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_test9890z00_31939 =
																												((bool_t) 0);
																										}
																									if (BgL_test9890z00_31939)
																										{	/* Read/reader.scm 332 */
																											BgL_test9887z00_31932 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											if (
																												((long)
																													(BgL_curz00_18487) >=
																													97L))
																												{	/* Read/reader.scm 332 */
																													BgL_test9887z00_31932
																														=
																														((long)
																														(BgL_curz00_18487) <
																														103L);
																												}
																											else
																												{	/* Read/reader.scm 332 */
																													BgL_test9887z00_31932
																														= ((bool_t) 0);
																												}
																										}
																								}
																						}
																						if (BgL_test9887z00_31932)
																							{	/* Read/reader.scm 332 */
																								BgL_iportz00_18529 =
																									BgL_iportz00_18481;
																								BgL_lastzd2matchzd2_18530 =
																									BgL_lastzd2matchzd2_18482;
																								BgL_forwardz00_18531 =
																									(1L + BgL_forwardz00_18483);
																								BgL_bufposz00_18532 =
																									BgL_bufposz00_18484;
																							BgL_statezd287zd21146z00_18265:
																								if (
																									(BgL_forwardz00_18531 ==
																										BgL_bufposz00_18532))
																									{	/* Read/reader.scm 332 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18529))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg1860z00_18533;
																												long
																													BgL_arg1861z00_18534;
																												BgL_arg1860z00_18533 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18529);
																												BgL_arg1861z00_18534 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18529);
																												{
																													long
																														BgL_bufposz00_31957;
																													long
																														BgL_forwardz00_31956;
																													BgL_forwardz00_31956 =
																														BgL_arg1860z00_18533;
																													BgL_bufposz00_31957 =
																														BgL_arg1861z00_18534;
																													BgL_bufposz00_18532 =
																														BgL_bufposz00_31957;
																													BgL_forwardz00_18531 =
																														BgL_forwardz00_31956;
																													goto
																														BgL_statezd287zd21146z00_18265;
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												BgL_matchz00_19003 =
																													BgL_lastzd2matchzd2_18530;
																											}
																									}
																								else
																									{	/* Read/reader.scm 332 */
																										int BgL_curz00_18535;

																										BgL_curz00_18535 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18529,
																											BgL_forwardz00_18531);
																										{	/* Read/reader.scm 332 */

																											{	/* Read/reader.scm 332 */
																												bool_t
																													BgL_test9895z00_31959;
																												{	/* Read/reader.scm 332 */
																													bool_t
																														BgL_test9896z00_31960;
																													if (((long)
																															(BgL_curz00_18535)
																															>= 48L))
																														{	/* Read/reader.scm 332 */
																															BgL_test9896z00_31960
																																=
																																((long)
																																(BgL_curz00_18535)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															BgL_test9896z00_31960
																																= ((bool_t) 0);
																														}
																													if (BgL_test9896z00_31960)
																														{	/* Read/reader.scm 332 */
																															BgL_test9895z00_31959
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															bool_t
																																BgL_test9898z00_31966;
																															if (((long)
																																	(BgL_curz00_18535)
																																	>= 65L))
																																{	/* Read/reader.scm 332 */
																																	BgL_test9898z00_31966
																																		=
																																		((long)
																																		(BgL_curz00_18535)
																																		< 71L);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_test9898z00_31966
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9898z00_31966)
																																{	/* Read/reader.scm 332 */
																																	BgL_test9895z00_31959
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	if (
																																		((long)
																																			(BgL_curz00_18535)
																																			>= 97L))
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9895z00_31959
																																				=
																																				((long)
																																				(BgL_curz00_18535)
																																				< 103L);
																																		}
																																	else
																																		{	/* Read/reader.scm 332 */
																																			BgL_test9895z00_31959
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test9895z00_31959)
																													{	/* Read/reader.scm 332 */
																														BgL_iportz00_18978 =
																															BgL_iportz00_18529;
																														BgL_lastzd2matchzd2_18979
																															=
																															BgL_lastzd2matchzd2_18530;
																														BgL_forwardz00_18980
																															=
																															(1L +
																															BgL_forwardz00_18531);
																														BgL_bufposz00_18981
																															=
																															BgL_bufposz00_18532;
																													BgL_statezd288zd21147z00_18318:
																														if (
																															(BgL_forwardz00_18980
																																==
																																BgL_bufposz00_18981))
																															{	/* Read/reader.scm 332 */
																																if (rgc_fill_buffer(BgL_iportz00_18978))
																																	{	/* Read/reader.scm 332 */
																																		long
																																			BgL_arg2492z00_18982;
																																		long
																																			BgL_arg2494z00_18983;
																																		BgL_arg2492z00_18982
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_18978);
																																		BgL_arg2494z00_18983
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_18978);
																																		{
																																			long
																																				BgL_bufposz00_31984;
																																			long
																																				BgL_forwardz00_31983;
																																			BgL_forwardz00_31983
																																				=
																																				BgL_arg2492z00_18982;
																																			BgL_bufposz00_31984
																																				=
																																				BgL_arg2494z00_18983;
																																			BgL_bufposz00_18981
																																				=
																																				BgL_bufposz00_31984;
																																			BgL_forwardz00_18980
																																				=
																																				BgL_forwardz00_31983;
																																			goto
																																				BgL_statezd288zd21147z00_18318;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 332 */
																																		BgL_matchz00_19003
																																			=
																																			BgL_lastzd2matchzd2_18979;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																int
																																	BgL_curz00_18984;
																																BgL_curz00_18984
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_18978,
																																	BgL_forwardz00_18980);
																																{	/* Read/reader.scm 332 */

																																	{	/* Read/reader.scm 332 */
																																		bool_t
																																			BgL_test9903z00_31986;
																																		{	/* Read/reader.scm 332 */
																																			bool_t
																																				BgL_test9904z00_31987;
																																			if ((
																																					(long)
																																					(BgL_curz00_18984)
																																					>=
																																					48L))
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9904z00_31987
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18984)
																																						<
																																						58L);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9904z00_31987
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9904z00_31987)
																																				{	/* Read/reader.scm 332 */
																																					BgL_test9903z00_31986
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 332 */
																																					bool_t
																																						BgL_test9906z00_31993;
																																					if ((
																																							(long)
																																							(BgL_curz00_18984)
																																							>=
																																							65L))
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9906z00_31993
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18984)
																																								<
																																								71L);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9906z00_31993
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9906z00_31993)
																																						{	/* Read/reader.scm 332 */
																																							BgL_test9903z00_31986
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							if (((long) (BgL_curz00_18984) >= 97L))
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9903z00_31986
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18984)
																																										<
																																										103L);
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									BgL_test9903z00_31986
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																				}
																																		}
																																		if (BgL_test9903z00_31986)
																																			{	/* Read/reader.scm 332 */
																																				long
																																					BgL_arg2501z00_18985;
																																				BgL_arg2501z00_18985
																																					=
																																					(1L +
																																					BgL_forwardz00_18980);
																																				{
																																					long
																																						BgL_forwardz00_18987;
																																					long
																																						BgL_bufposz00_18988;
																																					BgL_forwardz00_18987
																																						=
																																						BgL_arg2501z00_18985;
																																					BgL_bufposz00_18988
																																						=
																																						BgL_bufposz00_18981;
																																				BgL_statezd289zd21148z00_18986:
																																					if (
																																						(BgL_forwardz00_18987
																																							==
																																							BgL_bufposz00_18988))
																																						{	/* Read/reader.scm 332 */
																																							if (rgc_fill_buffer(BgL_iportz00_18978))
																																								{	/* Read/reader.scm 332 */
																																									long
																																										BgL_arg1521z00_18989;
																																									long
																																										BgL_arg1522z00_18990;
																																									BgL_arg1521z00_18989
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_18978);
																																									BgL_arg1522z00_18990
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_18978);
																																									{
																																										long
																																											BgL_bufposz00_32012;
																																										long
																																											BgL_forwardz00_32011;
																																										BgL_forwardz00_32011
																																											=
																																											BgL_arg1521z00_18989;
																																										BgL_bufposz00_32012
																																											=
																																											BgL_arg1522z00_18990;
																																										BgL_bufposz00_18988
																																											=
																																											BgL_bufposz00_32012;
																																										BgL_forwardz00_18987
																																											=
																																											BgL_forwardz00_32011;
																																										goto
																																											BgL_statezd289zd21148z00_18986;
																																									}
																																								}
																																							else
																																								{	/* Read/reader.scm 332 */
																																									BgL_matchz00_19003
																																										=
																																										BgL_lastzd2matchzd2_18979;
																																								}
																																						}
																																					else
																																						{	/* Read/reader.scm 332 */
																																							int
																																								BgL_curz00_18991;
																																							BgL_curz00_18991
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_18978,
																																								BgL_forwardz00_18987);
																																							{	/* Read/reader.scm 332 */

																																								if (((long) (BgL_curz00_18991) == 62L))
																																									{	/* Read/reader.scm 332 */
																																										long
																																											BgL_arg1524z00_18992;
																																										BgL_arg1524z00_18992
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_18987);
																																										{	/* Read/reader.scm 332 */
																																											long
																																												BgL_newzd2matchzd2_18993;
																																											RGC_STOP_MATCH
																																												(BgL_iportz00_18978,
																																												BgL_arg1524z00_18992);
																																											BgL_newzd2matchzd2_18993
																																												=
																																												23L;
																																											BgL_matchz00_19003
																																												=
																																												BgL_newzd2matchzd2_18993;
																																									}}
																																								else
																																									{	/* Read/reader.scm 332 */
																																										BgL_matchz00_19003
																																											=
																																											BgL_lastzd2matchzd2_18979;
																																									}
																																							}
																																						}
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 332 */
																																				BgL_matchz00_19003
																																					=
																																					BgL_lastzd2matchzd2_18979;
																																			}
																																	}
																																}
																															}
																													}
																												else
																													{	/* Read/reader.scm 332 */
																														BgL_matchz00_19003 =
																															BgL_lastzd2matchzd2_18530;
																													}
																											}
																										}
																									}
																							}
																						else
																							{	/* Read/reader.scm 332 */
																								BgL_matchz00_19003 =
																									BgL_lastzd2matchzd2_18482;
																							}
																					}
																				}
																			}
																	}
																else
																	{	/* Read/reader.scm 332 */
																		BgL_matchz00_19003 =
																			BgL_newzd2matchzd2_18492;
																	}
															}
														}
													}
											}
											break;
										case 44L:

											{	/* Read/reader.scm 332 */
												long BgL_arg1618z00_18387;

												BgL_arg1618z00_18387 = (1L + BgL_forwardz00_18382);
												{	/* Read/reader.scm 332 */
													long BgL_newzd2matchzd2_18388;

													RGC_STOP_MATCH(BgL_iportz00_18380,
														BgL_arg1618z00_18387);
													BgL_newzd2matchzd2_18388 = 24L;
													BgL_matchz00_19003 = BgL_newzd2matchzd2_18388;
											}} break;
										case 34L:

											BgL_iportz00_18363 = BgL_iportz00_18380;
											BgL_lastzd2matchzd2_18364 = BgL_lastzd2matchzd2_18381;
											BgL_forwardz00_18365 = (1L + BgL_forwardz00_18382);
											BgL_bufposz00_18366 = BgL_bufposz00_18383;
										BgL_statezd22zd21061z00_18246:
											{	/* Read/reader.scm 332 */
												long BgL_newzd2matchzd2_18367;

												RGC_STOP_MATCH(BgL_iportz00_18363,
													BgL_forwardz00_18365);
												BgL_newzd2matchzd2_18367 = 25L;
												if ((BgL_forwardz00_18365 == BgL_bufposz00_18366))
													{	/* Read/reader.scm 332 */
														if (rgc_fill_buffer(BgL_iportz00_18363))
															{	/* Read/reader.scm 332 */
																long BgL_arg1591z00_18368;
																long BgL_arg1592z00_18369;

																BgL_arg1591z00_18368 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18363);
																BgL_arg1592z00_18369 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18363);
																{
																	long BgL_bufposz00_32033;
																	long BgL_forwardz00_32032;

																	BgL_forwardz00_32032 = BgL_arg1591z00_18368;
																	BgL_bufposz00_32033 = BgL_arg1592z00_18369;
																	BgL_bufposz00_18366 = BgL_bufposz00_32033;
																	BgL_forwardz00_18365 = BgL_forwardz00_32032;
																	goto BgL_statezd22zd21061z00_18246;
																}
															}
														else
															{	/* Read/reader.scm 332 */
																BgL_matchz00_19003 = BgL_newzd2matchzd2_18367;
															}
													}
												else
													{	/* Read/reader.scm 332 */
														int BgL_curz00_18370;

														BgL_curz00_18370 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18363,
															BgL_forwardz00_18365);
														{	/* Read/reader.scm 332 */

															if (((long) (BgL_curz00_18370) == 92L))
																{	/* Read/reader.scm 332 */
																	long BgL_arg1595z00_18371;

																	BgL_arg1595z00_18371 =
																		(1L + BgL_forwardz00_18365);
																	{
																		long BgL_forwardz00_18373;
																		long BgL_bufposz00_18374;

																		BgL_forwardz00_18373 = BgL_arg1595z00_18371;
																		BgL_bufposz00_18374 = BgL_bufposz00_18366;
																	BgL_statezd293zd21152z00_18372:
																		if (
																			(BgL_forwardz00_18373 ==
																				BgL_bufposz00_18374))
																			{	/* Read/reader.scm 332 */
																				if (rgc_fill_buffer(BgL_iportz00_18363))
																					{	/* Read/reader.scm 332 */
																						long BgL_arg1965z00_18375;
																						long BgL_arg1966z00_18376;

																						BgL_arg1965z00_18375 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_18363);
																						BgL_arg1966z00_18376 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_18363);
																						{
																							long BgL_bufposz00_32046;
																							long BgL_forwardz00_32045;

																							BgL_forwardz00_32045 =
																								BgL_arg1965z00_18375;
																							BgL_bufposz00_32046 =
																								BgL_arg1966z00_18376;
																							BgL_bufposz00_18374 =
																								BgL_bufposz00_32046;
																							BgL_forwardz00_18373 =
																								BgL_forwardz00_32045;
																							goto
																								BgL_statezd293zd21152z00_18372;
																						}
																					}
																				else
																					{	/* Read/reader.scm 332 */
																						BgL_matchz00_19003 =
																							BgL_newzd2matchzd2_18367;
																					}
																			}
																		else
																			{	/* Read/reader.scm 332 */
																				int BgL_curz00_18377;

																				BgL_curz00_18377 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_18363,
																					BgL_forwardz00_18373);
																				{	/* Read/reader.scm 332 */

																					if (
																						((long) (BgL_curz00_18377) == 10L))
																						{	/* Read/reader.scm 332 */
																							BgL_matchz00_19003 =
																								BgL_newzd2matchzd2_18367;
																						}
																					else
																						{	/* Read/reader.scm 332 */
																							BgL_iportz00_18536 =
																								BgL_iportz00_18363;
																							BgL_lastzd2matchzd2_18537 =
																								BgL_newzd2matchzd2_18367;
																							BgL_forwardz00_18538 =
																								(1L + BgL_forwardz00_18373);
																							BgL_bufposz00_18539 =
																								BgL_bufposz00_18374;
																						BgL_statezd291zd21150z00_18266:
																							if (
																								(BgL_forwardz00_18538 ==
																									BgL_bufposz00_18539))
																								{	/* Read/reader.scm 332 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_18536))
																										{	/* Read/reader.scm 332 */
																											long BgL_arg1872z00_18540;
																											long BgL_arg1873z00_18541;

																											BgL_arg1872z00_18540 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_18536);
																											BgL_arg1873z00_18541 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_18536);
																											{
																												long
																													BgL_bufposz00_32058;
																												long
																													BgL_forwardz00_32057;
																												BgL_forwardz00_32057 =
																													BgL_arg1872z00_18540;
																												BgL_bufposz00_32058 =
																													BgL_arg1873z00_18541;
																												BgL_bufposz00_18539 =
																													BgL_bufposz00_32058;
																												BgL_forwardz00_18538 =
																													BgL_forwardz00_32057;
																												goto
																													BgL_statezd291zd21150z00_18266;
																											}
																										}
																									else
																										{	/* Read/reader.scm 332 */
																											BgL_matchz00_19003 =
																												BgL_lastzd2matchzd2_18537;
																										}
																								}
																							else
																								{	/* Read/reader.scm 332 */
																									int BgL_curz00_18542;

																									BgL_curz00_18542 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_18536,
																										BgL_forwardz00_18538);
																									{	/* Read/reader.scm 332 */

																										if (
																											((long) (BgL_curz00_18542)
																												== 92L))
																											{	/* Read/reader.scm 332 */
																												long
																													BgL_arg1875z00_18543;
																												BgL_arg1875z00_18543 =
																													(1L +
																													BgL_forwardz00_18538);
																												{
																													long
																														BgL_forwardz00_18545;
																													long
																														BgL_bufposz00_18546;
																													BgL_forwardz00_18545 =
																														BgL_arg1875z00_18543;
																													BgL_bufposz00_18546 =
																														BgL_bufposz00_18539;
																												BgL_statezd293zd21152z00_18544:
																													if (
																														(BgL_forwardz00_18545
																															==
																															BgL_bufposz00_18546))
																														{	/* Read/reader.scm 332 */
																															if (rgc_fill_buffer(BgL_iportz00_18536))
																																{	/* Read/reader.scm 332 */
																																	long
																																		BgL_arg1965z00_18547;
																																	long
																																		BgL_arg1966z00_18548;
																																	BgL_arg1965z00_18547
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_18536);
																																	BgL_arg1966z00_18548
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_18536);
																																	{
																																		long
																																			BgL_bufposz00_32071;
																																		long
																																			BgL_forwardz00_32070;
																																		BgL_forwardz00_32070
																																			=
																																			BgL_arg1965z00_18547;
																																		BgL_bufposz00_32071
																																			=
																																			BgL_arg1966z00_18548;
																																		BgL_bufposz00_18546
																																			=
																																			BgL_bufposz00_32071;
																																		BgL_forwardz00_18545
																																			=
																																			BgL_forwardz00_32070;
																																		goto
																																			BgL_statezd293zd21152z00_18544;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 332 */
																																	BgL_matchz00_19003
																																		=
																																		BgL_lastzd2matchzd2_18537;
																																}
																														}
																													else
																														{	/* Read/reader.scm 332 */
																															int
																																BgL_curz00_18549;
																															BgL_curz00_18549 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_18536,
																																BgL_forwardz00_18545);
																															{	/* Read/reader.scm 332 */

																																if (
																																	((long)
																																		(BgL_curz00_18549)
																																		== 10L))
																																	{	/* Read/reader.scm 332 */
																																		BgL_matchz00_19003
																																			=
																																			BgL_lastzd2matchzd2_18537;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_32078;
																																		long
																																			BgL_forwardz00_32076;
																																		BgL_forwardz00_32076
																																			=
																																			(1L +
																																			BgL_forwardz00_18545);
																																		BgL_bufposz00_32078
																																			=
																																			BgL_bufposz00_18546;
																																		BgL_bufposz00_18539
																																			=
																																			BgL_bufposz00_32078;
																																		BgL_forwardz00_18538
																																			=
																																			BgL_forwardz00_32076;
																																		goto
																																			BgL_statezd291zd21150z00_18266;
																																	}
																															}
																														}
																												}
																											}
																										else
																											{	/* Read/reader.scm 332 */
																												if (
																													((long)
																														(BgL_curz00_18542)
																														== 34L))
																													{	/* Read/reader.scm 332 */
																														long
																															BgL_arg1877z00_18550;
																														BgL_arg1877z00_18550
																															=
																															(1L +
																															BgL_forwardz00_18538);
																														{	/* Read/reader.scm 332 */
																															long
																																BgL_newzd2matchzd2_18551;
																															RGC_STOP_MATCH
																																(BgL_iportz00_18536,
																																BgL_arg1877z00_18550);
																															BgL_newzd2matchzd2_18551
																																= 2L;
																															BgL_matchz00_19003
																																=
																																BgL_newzd2matchzd2_18551;
																													}}
																												else
																													{	/* Read/reader.scm 332 */
																														bool_t
																															BgL_test9925z00_32084;
																														if (((long)
																																(BgL_curz00_18542)
																																== 34L))
																															{	/* Read/reader.scm 332 */
																																BgL_test9925z00_32084
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 332 */
																																BgL_test9925z00_32084
																																	=
																																	((long)
																																	(BgL_curz00_18542)
																																	== 92L);
																															}
																														if (BgL_test9925z00_32084)
																															{	/* Read/reader.scm 332 */
																																BgL_matchz00_19003
																																	=
																																	BgL_lastzd2matchzd2_18537;
																															}
																														else
																															{
																																long
																																	BgL_forwardz00_32090;
																																BgL_forwardz00_32090
																																	=
																																	(1L +
																																	BgL_forwardz00_18538);
																																BgL_forwardz00_18538
																																	=
																																	BgL_forwardz00_32090;
																																goto
																																	BgL_statezd291zd21150z00_18266;
																															}
																													}
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 332 */
																	if (((long) (BgL_curz00_18370) == 34L))
																		{	/* Read/reader.scm 332 */
																			long BgL_arg1597z00_18378;

																			BgL_arg1597z00_18378 =
																				(1L + BgL_forwardz00_18365);
																			{	/* Read/reader.scm 332 */
																				long BgL_newzd2matchzd2_18379;

																				RGC_STOP_MATCH(BgL_iportz00_18363,
																					BgL_arg1597z00_18378);
																				BgL_newzd2matchzd2_18379 = 2L;
																				BgL_matchz00_19003 =
																					BgL_newzd2matchzd2_18379;
																		}}
																	else
																		{	/* Read/reader.scm 332 */
																			bool_t BgL_test9928z00_32098;

																			if (((long) (BgL_curz00_18370) == 34L))
																				{	/* Read/reader.scm 332 */
																					BgL_test9928z00_32098 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 332 */
																					BgL_test9928z00_32098 =
																						((long) (BgL_curz00_18370) == 92L);
																				}
																			if (BgL_test9928z00_32098)
																				{	/* Read/reader.scm 332 */
																					BgL_matchz00_19003 =
																						BgL_newzd2matchzd2_18367;
																				}
																			else
																				{
																					long BgL_bufposz00_32108;
																					long BgL_forwardz00_32106;
																					long BgL_lastzd2matchzd2_32105;
																					obj_t BgL_iportz00_32104;

																					BgL_iportz00_32104 =
																						BgL_iportz00_18363;
																					BgL_lastzd2matchzd2_32105 =
																						BgL_newzd2matchzd2_18367;
																					BgL_forwardz00_32106 =
																						(1L + BgL_forwardz00_18365);
																					BgL_bufposz00_32108 =
																						BgL_bufposz00_18366;
																					BgL_bufposz00_18539 =
																						BgL_bufposz00_32108;
																					BgL_forwardz00_18538 =
																						BgL_forwardz00_32106;
																					BgL_lastzd2matchzd2_18537 =
																						BgL_lastzd2matchzd2_32105;
																					BgL_iportz00_18536 =
																						BgL_iportz00_32104;
																					goto BgL_statezd291zd21150z00_18266;
																				}
																		}
																}
														}
													}
											}
											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 332 */
												long BgL_arg1620z00_18389;

												BgL_arg1620z00_18389 = (1L + BgL_forwardz00_18382);
												{	/* Read/reader.scm 332 */
													long BgL_newzd2matchzd2_18390;

													RGC_STOP_MATCH(BgL_iportz00_18380,
														BgL_arg1620z00_18389);
													BgL_newzd2matchzd2_18390 = 25L;
													BgL_matchz00_19003 = BgL_newzd2matchzd2_18390;
											}} break;
										default:
											BgL_matchz00_19003 = BgL_lastzd2matchzd2_18381;
										}
								}
							}
					}
					RGC_SET_FILEPOS(BgL_iportz00_18119);
					switch (BgL_matchz00_19003)
						{
						case 25L:

							{	/* Read/reader.scm 432 */
								obj_t BgL_cz00_19006;

								{	/* Read/reader.scm 332 */
									bool_t BgL_test9930z00_32115;

									{	/* Read/reader.scm 332 */
										long BgL_arg2614z00_19002;

										BgL_arg2614z00_19002 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
										BgL_test9930z00_32115 = (BgL_arg2614z00_19002 == 0L);
									}
									if (BgL_test9930z00_32115)
										{	/* Read/reader.scm 332 */
											BgL_cz00_19006 = BEOF;
										}
									else
										{	/* Read/reader.scm 332 */
											BgL_cz00_19006 =
												BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_18119));
										}
								}
								if (CHARP(BgL_cz00_19006))
									{	/* Read/reader.scm 434 */
										obj_t BgL_arg2622z00_19007;

										{	/* Read/reader.scm 434 */
											obj_t BgL_list2624z00_19008;

											{	/* Read/reader.scm 434 */
												obj_t BgL_arg2625z00_19009;

												BgL_arg2625z00_19009 =
													MAKE_YOUNG_PAIR(BgL_cz00_19006, BNIL);
												BgL_list2624z00_19008 =
													MAKE_YOUNG_PAIR(BCHAR(((unsigned char) '#')),
													BgL_arg2625z00_19009);
											}
											BgL_arg2622z00_19007 =
												BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
												(BgL_list2624z00_19008);
										}
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6907z00zz__readerz00, BgL_arg2622z00_19007,
											BgL_iportz00_18119);
									}
								else
									{	/* Read/reader.scm 433 */
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6866z00zz__readerz00, BgL_cz00_19006,
											BgL_iportz00_18119);
									}
							}
							break;
						case 24L:

							{	/* Read/reader.scm 423 */
								obj_t BgL_fz00_19010;

								{	/* Read/reader.scm 423 */

									{	/* Read/reader.scm 423 */

										if (INPUT_PORT_CLOSEP(BgL_iportz00_18119))
											{	/* Read/reader.scm 820 */
												BgL_fz00_19010 =
													BGl_errorz00zz__errorz00
													(BGl_symbol6871z00zz__readerz00,
													BGl_string6932z00zz__readerz00, BgL_iportz00_18119);
											}
										else
											{	/* Read/reader.scm 826 */
												obj_t BgL_fun6323z00_19011;

												BgL_fun6323z00_19011 =
													BGl_za2bigloozd2grammarza2zd2zz__readerz00;
												BgL_fz00_19010 =
													(VA_PROCEDUREP(BgL_fun6323z00_19011)
													? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_fun6323z00_19011))
													(BgL_fun6323z00_19011, BgL_iportz00_18119, BFALSE,
														BGl_vector6933z00zz__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_fun6323z00_19011))
													(BgL_fun6323z00_19011, BgL_iportz00_18119, BFALSE,
														BGl_vector6933z00zz__readerz00, BINT(0L), BINT(0L),
														BNIL, BNIL));
											}
									}
								}
								if (PAIRP(BgL_fz00_19010))
									{	/* Read/reader.scm 425 */
										obj_t BgL_pz00_19012;

										{	/* Read/reader.scm 425 */
											obj_t BgL_arg2631z00_19013;

											BgL_arg2631z00_19013 = CAR(BgL_fz00_19010);
											{	/* Read/reader.scm 879 */
												obj_t BgL_pz00_19014;

												BgL_pz00_19014 =
													BGl_assqz00zz__r4_pairs_and_lists_6_3z00
													(BgL_arg2631z00_19013,
													BGl_za2readerzd2ctorsza2zd2zz__readerz00);
												if (PAIRP(BgL_pz00_19014))
													{	/* Read/reader.scm 880 */
														BgL_pz00_19012 = CDR(BgL_pz00_19014);
													}
												else
													{	/* Read/reader.scm 880 */
														BgL_pz00_19012 = BFALSE;
													}
											}
										}
										if (PROCEDUREP(BgL_pz00_19012))
											{	/* Read/reader.scm 426 */
												return apply(BgL_pz00_19012, CDR(BgL_fz00_19010));
											}
										else
											{	/* Read/reader.scm 426 */
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6934z00zz__readerz00, CAR(BgL_fz00_19010),
													BgL_iportz00_18119);
											}
									}
								else
									{	/* Read/reader.scm 424 */
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6935z00zz__readerz00, BgL_fz00_19010,
											BgL_iportz00_18119);
									}
							}
							break;
						case 23L:

							{	/* Read/reader.scm 419 */
								long BgL_arg2637z00_19015;

								{	/* Read/reader.scm 419 */
									obj_t BgL_arg2638z00_19016;

									BgL_arg2638z00_19016 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (5L));
									{	/* Read/reader.scm 419 */
										char *BgL_tmpz00_32161;

										BgL_tmpz00_32161 = BSTRING_TO_STRING(BgL_arg2638z00_19016);
										BgL_arg2637z00_19015 =
											BGL_STRTOL(BgL_tmpz00_32161, 0L, 16L);
								}}
								return BCNST(BgL_arg2637z00_19015);
							}
							break;
						case 22L:

							{	/* Read/reader.scm 408 */
								obj_t BgL_s2z00_19017;
								obj_t BgL_s1z00_19018;

								BgL_s2z00_19017 =
									BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
									(int) (5L), (int) (0L));
								BgL_s1z00_19018 =
									BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
									(int) (4L), (int) (5L));
								{	/* Read/reader.scm 410 */
									uint64_t BgL_arg2639z00_19019;
									uint64_t BgL_arg2640z00_19020;

									{	/* Read/reader.scm 410 */
										BGL_LONGLONG_T BgL_arg2641z00_19021;

										{	/* Read/reader.scm 408 */

											BgL_arg2641z00_19021 =
												BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00
												(BgL_s2z00_19017, 10L);
										}
										BgL_arg2639z00_19019 = (uint64_t) (BgL_arg2641z00_19021);
									}
									{	/* Read/reader.scm 411 */
										long BgL_g1188z00_19022;
										uint64_t BgL_g1189z00_19023;

										BgL_g1188z00_19022 = STRING_LENGTH(BgL_s2z00_19017);
										{	/* Read/reader.scm 412 */
											long BgL_arg2649z00_19024;

											{	/* Read/reader.scm 412 */
												char *BgL_tmpz00_32174;

												BgL_tmpz00_32174 = BSTRING_TO_STRING(BgL_s1z00_19018);
												BgL_arg2649z00_19024 =
													BGL_STRTOL(BgL_tmpz00_32174, 0L, 10L);
											}
											BgL_g1189z00_19023 = (uint64_t) (BgL_arg2649z00_19024);
										}
										{
											long BgL_powz00_19026;
											uint64_t BgL_n1z00_19027;

											BgL_powz00_19026 = BgL_g1188z00_19022;
											BgL_n1z00_19027 = BgL_g1189z00_19023;
										BgL_loopz00_19025:
											if ((BgL_powz00_19026 == 0L))
												{	/* Read/reader.scm 413 */
													BgL_arg2640z00_19020 = BgL_n1z00_19027;
												}
											else
												{	/* Read/reader.scm 415 */
													long BgL_arg2646z00_19028;
													uint64_t BgL_arg2647z00_19029;

													BgL_arg2646z00_19028 = (BgL_powz00_19026 - 1L);
													{	/* Read/reader.scm 415 */
														uint64_t BgL_arg2648z00_19030;

														BgL_arg2648z00_19030 = (uint64_t) (10L);
														BgL_arg2647z00_19029 =
															(BgL_n1z00_19027 * BgL_arg2648z00_19030);
													}
													{
														uint64_t BgL_n1z00_32184;
														long BgL_powz00_32183;

														BgL_powz00_32183 = BgL_arg2646z00_19028;
														BgL_n1z00_32184 = BgL_arg2647z00_19029;
														BgL_n1z00_19027 = BgL_n1z00_32184;
														BgL_powz00_19026 = BgL_powz00_32183;
														goto BgL_loopz00_19025;
													}
												}
										}
									}
									{	/* Read/reader.scm 410 */
										uint64_t BgL_tmpz00_32185;

										BgL_tmpz00_32185 =
											(BgL_arg2639z00_19019 + BgL_arg2640z00_19020);
										return BGL_UINT64_TO_BUINT64(BgL_tmpz00_32185);
									}
								}
							}
							break;
						case 21L:

							{	/* Read/reader.scm 406 */
								BGL_LONGLONG_T BgL_arg2650z00_19031;

								{	/* Read/reader.scm 406 */
									obj_t BgL_arg2652z00_19032;

									BgL_arg2652z00_19032 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 406 */

										BgL_arg2650z00_19031 =
											BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00
											(BgL_arg2652z00_19032, 10L);
								}}
								{	/* Read/reader.scm 406 */
									long BgL_xz00_19033;

									BgL_xz00_19033 = LLONG_TO_LONG(BgL_arg2650z00_19031);
									{	/* Read/reader.scm 406 */
										int64_t BgL_tmpz00_32193;

										BgL_tmpz00_32193 = (int64_t) (BgL_xz00_19033);
										return BGL_INT64_TO_BINT64(BgL_tmpz00_32193);
									}
								}
							}
							break;
						case 20L:

							{	/* Read/reader.scm 401 */
								long BgL_arg2654z00_19034;

								{	/* Read/reader.scm 401 */
									obj_t BgL_arg2655z00_19035;

									BgL_arg2655z00_19035 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 401 */

										BgL_arg2654z00_19034 =
											BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
											(BgL_arg2655z00_19035, 10L);
								}}
								{	/* Read/reader.scm 401 */
									uint32_t BgL_tmpz00_32200;

									BgL_tmpz00_32200 = (uint32_t) (BgL_arg2654z00_19034);
									return BGL_UINT32_TO_BUINT32(BgL_tmpz00_32200);
								}
							}
							break;
						case 19L:

							{	/* Read/reader.scm 397 */
								long BgL_arg2657z00_19036;

								{	/* Read/reader.scm 397 */
									obj_t BgL_arg2658z00_19037;

									BgL_arg2658z00_19037 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 397 */

										BgL_arg2657z00_19036 =
											BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
											(BgL_arg2658z00_19037, 10L);
								}}
								{	/* Read/reader.scm 397 */
									int32_t BgL_tmpz00_32207;

									BgL_tmpz00_32207 = (int32_t) (BgL_arg2657z00_19036);
									return BGL_INT32_TO_BINT32(BgL_tmpz00_32207);
								}
							}
							break;
						case 18L:

							{	/* Read/reader.scm 394 */
								long BgL_arg2660z00_19038;

								{	/* Read/reader.scm 394 */
									obj_t BgL_arg2663z00_19039;

									BgL_arg2663z00_19039 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 394 */
										char *BgL_tmpz00_32213;

										BgL_tmpz00_32213 = BSTRING_TO_STRING(BgL_arg2663z00_19039);
										BgL_arg2660z00_19038 =
											BGL_STRTOL(BgL_tmpz00_32213, 0L, 10L);
								}}
								{	/* Read/reader.scm 394 */
									uint16_t BgL_tmpz00_32216;

									BgL_tmpz00_32216 = (uint16_t) (BgL_arg2660z00_19038);
									return BGL_UINT16_TO_BUINT16(BgL_tmpz00_32216);
								}
							}
							break;
						case 17L:

							{	/* Read/reader.scm 392 */
								long BgL_arg2664z00_19040;

								{	/* Read/reader.scm 392 */
									obj_t BgL_arg2665z00_19041;

									BgL_arg2665z00_19041 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 392 */
										char *BgL_tmpz00_32222;

										BgL_tmpz00_32222 = BSTRING_TO_STRING(BgL_arg2665z00_19041);
										BgL_arg2664z00_19040 =
											BGL_STRTOL(BgL_tmpz00_32222, 0L, 10L);
								}}
								{	/* Read/reader.scm 392 */
									int16_t BgL_tmpz00_32225;

									BgL_tmpz00_32225 = (int16_t) (BgL_arg2664z00_19040);
									return BGL_INT16_TO_BINT16(BgL_tmpz00_32225);
								}
							}
							break;
						case 16L:

							{	/* Read/reader.scm 389 */
								long BgL_arg2666z00_19042;

								{	/* Read/reader.scm 389 */
									obj_t BgL_arg2667z00_19043;

									BgL_arg2667z00_19043 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (3L), (int) (0L));
									{	/* Read/reader.scm 389 */
										char *BgL_tmpz00_32231;

										BgL_tmpz00_32231 = BSTRING_TO_STRING(BgL_arg2667z00_19043);
										BgL_arg2666z00_19042 =
											BGL_STRTOL(BgL_tmpz00_32231, 0L, 10L);
								}}
								{	/* Read/reader.scm 389 */
									uint8_t BgL_tmpz00_32234;

									BgL_tmpz00_32234 = (uint8_t) (BgL_arg2666z00_19042);
									return BGL_UINT8_TO_BUINT8(BgL_tmpz00_32234);
								}
							}
							break;
						case 15L:

							{	/* Read/reader.scm 387 */
								long BgL_arg2669z00_19044;

								{	/* Read/reader.scm 387 */
									obj_t BgL_arg2670z00_19045;

									BgL_arg2670z00_19045 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (3L), (int) (0L));
									{	/* Read/reader.scm 387 */
										char *BgL_tmpz00_32240;

										BgL_tmpz00_32240 = BSTRING_TO_STRING(BgL_arg2670z00_19045);
										BgL_arg2669z00_19044 =
											BGL_STRTOL(BgL_tmpz00_32240, 0L, 10L);
								}}
								{	/* Read/reader.scm 387 */
									int8_t BgL_tmpz00_32243;

									BgL_tmpz00_32243 = (int8_t) (BgL_arg2669z00_19044);
									return BGL_INT8_TO_BINT8(BgL_tmpz00_32243);
								}
							}
							break;
						case 14L:

							{	/* Read/reader.scm 375 */
								obj_t BgL_symbolz00_19046;

								{	/* Read/reader.scm 375 */
									obj_t BgL_arg2674z00_19047;

									{	/* Read/reader.scm 375 */
										obj_t BgL_arg2675z00_19048;

										{	/* Read/reader.scm 332 */
											long BgL_arg2524z00_19049;

											BgL_arg2524z00_19049 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
											BgL_arg2675z00_19048 =
												rgc_buffer_substring(BgL_iportz00_18119, 0L,
												BgL_arg2524z00_19049);
										}
										BgL_arg2674z00_19047 =
											BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00
											(BgL_arg2675z00_19048);
									}
									BgL_symbolz00_19046 = bstring_to_symbol(BgL_arg2674z00_19047);
								}
								if ((BgL_symbolz00_19046 == BGl_symbol6936z00zz__readerz00))
									{	/* Read/reader.scm 377 */
										return BUNSPEC;
									}
								else
									{	/* Read/reader.scm 377 */
										if ((BgL_symbolz00_19046 == BGl_symbol6938z00zz__readerz00))
											{	/* Read/reader.scm 379 */
												return BEOF;
											}
										else
											{	/* Read/reader.scm 383 */
												obj_t BgL_arg2671z00_19050;

												{	/* Read/reader.scm 383 */
													obj_t BgL_arg2673z00_19051;

													{	/* Read/reader.scm 383 */
														obj_t BgL_arg6469z00_19052;

														BgL_arg6469z00_19052 =
															SYMBOL_TO_STRING(BgL_symbolz00_19046);
														BgL_arg2673z00_19051 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg6469z00_19052);
													}
													BgL_arg2671z00_19050 =
														string_append(BGl_string6940z00zz__readerz00,
														BgL_arg2673z00_19051);
												}
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6941z00zz__readerz00, BgL_arg2671z00_19050,
													BgL_iportz00_18119);
											}
									}
							}
							break;
						case 13L:

							{	/* Read/reader.scm 371 */
								obj_t BgL_arg2676z00_19053;

								{	/* Read/reader.scm 371 */
									long BgL_arg2677z00_19054;

									BgL_arg2677z00_19054 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2676z00_19053 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (2L), (int) (BgL_arg2677z00_19054));
								}
								return
									BGl_stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2676z00_19053, 16L);
							}
							break;
						case 12L:

							{	/* Read/reader.scm 369 */
								obj_t BgL_arg2678z00_19055;

								{	/* Read/reader.scm 369 */
									long BgL_arg2679z00_19056;

									BgL_arg2679z00_19056 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2678z00_19055 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (BgL_arg2679z00_19056));
								}
								return
									BGl_stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2678z00_19055, 10L);
							}
							break;
						case 11L:

							{	/* Read/reader.scm 366 */
								obj_t BgL_arg2680z00_19057;

								{	/* Read/reader.scm 366 */
									long BgL_arg2681z00_19058;

									BgL_arg2681z00_19058 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2680z00_19057 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (BgL_arg2681z00_19058));
								}
								return
									BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2680z00_19057, 16L);
							}
							break;
						case 10L:

							{	/* Read/reader.scm 364 */
								obj_t BgL_arg2682z00_19059;

								{	/* Read/reader.scm 364 */
									long BgL_arg2683z00_19060;

									BgL_arg2683z00_19060 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2682z00_19059 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (2L), (int) (BgL_arg2683z00_19060));
								}
								{	/* Read/reader.scm 364 */
									BGL_LONGLONG_T BgL_tmpz00_32277;

									{	/* Read/reader.scm 364 */
										char *BgL_tmpz00_32278;

										BgL_tmpz00_32278 = BSTRING_TO_STRING(BgL_arg2682z00_19059);
										BgL_tmpz00_32277 = BGL_STRTOULL(BgL_tmpz00_32278, 0L, 16L);
									}
									return make_bllong(BgL_tmpz00_32277);
								}
							}
							break;
						case 9L:

							{	/* Read/reader.scm 362 */
								obj_t BgL_arg2684z00_19061;

								{	/* Read/reader.scm 362 */
									long BgL_arg2685z00_19062;

									BgL_arg2685z00_19062 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2684z00_19061 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (BgL_arg2685z00_19062));
								}
								return
									make_bllong
									(BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2684z00_19061, 10L));
							}
							break;
						case 8L:

							{	/* Read/reader.scm 360 */
								obj_t BgL_arg2686z00_19063;

								{	/* Read/reader.scm 360 */
									long BgL_arg2687z00_19064;

									BgL_arg2687z00_19064 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2686z00_19063 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (2L), (int) (BgL_arg2687z00_19064));
								}
								{	/* Read/reader.scm 360 */
									long BgL_tmpz00_32292;

									{	/* Read/reader.scm 360 */
										char *BgL_tmpz00_32293;

										BgL_tmpz00_32293 = BSTRING_TO_STRING(BgL_arg2686z00_19063);
										BgL_tmpz00_32292 = BGL_STRTOUL(BgL_tmpz00_32293, 0L, 16L);
									}
									return make_belong(BgL_tmpz00_32292);
								}
							}
							break;
						case 7L:

							{	/* Read/reader.scm 358 */
								obj_t BgL_arg2688z00_19065;

								{	/* Read/reader.scm 358 */
									long BgL_arg2689z00_19066;

									BgL_arg2689z00_19066 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2688z00_19065 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (BgL_arg2689z00_19066));
								}
								{	/* Read/reader.scm 358 */
									long BgL_tmpz00_32301;

									BgL_tmpz00_32301 =
										BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
										(BgL_arg2688z00_19065, 10L);
									return make_belong(BgL_tmpz00_32301);
								}
							}
							break;
						case 6L:

							{	/* Read/reader.scm 356 */
								obj_t BgL_arg2691z00_19067;

								{	/* Read/reader.scm 356 */
									long BgL_arg2692z00_19068;

									BgL_arg2692z00_19068 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2691z00_19067 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (BgL_arg2692z00_19068));
								}
								return
									BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2691z00_19067, 10L);
							}
							break;
						case 5L:

							{	/* Read/reader.scm 354 */
								obj_t BgL_arg2693z00_19069;

								{	/* Read/reader.scm 354 */
									long BgL_arg2694z00_19070;

									BgL_arg2694z00_19070 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2693z00_19069 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (BgL_arg2694z00_19070));
								}
								return
									BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2693z00_19069, 8L);
							}
							break;
						case 4L:

							{	/* Read/reader.scm 352 */
								obj_t BgL_arg2695z00_19071;

								{	/* Read/reader.scm 352 */
									long BgL_arg2697z00_19072;

									BgL_arg2697z00_19072 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2695z00_19071 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (BgL_arg2697z00_19072));
								}
								return
									BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2695z00_19071, 2L);
							}
							break;
						case 3L:

							{	/* Read/reader.scm 348 */
								obj_t BgL_strz00_19073;

								{	/* Read/reader.scm 348 */
									long BgL_arg2698z00_19074;

									{	/* Read/reader.scm 348 */
										long BgL_arg2699z00_19075;

										BgL_arg2699z00_19075 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
										BgL_arg2698z00_19074 = (BgL_arg2699z00_19075 - 1L);
									}
									BgL_strz00_19073 =
										BGl_thezd2escapezd2substringze70ze7zz__readerz00
										(BgL_iportz00_18119, (int) (2L),
										(int) (BgL_arg2698z00_19074), ((bool_t) 0));
								}
								return utf8_string_to_ucs2_string(BgL_strz00_19073);
							}
							break;
						case 2L:

							{	/* Read/reader.scm 344 */
								long BgL_arg2701z00_19076;

								{	/* Read/reader.scm 344 */
									long BgL_arg2702z00_19077;

									BgL_arg2702z00_19077 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_arg2701z00_19076 = (BgL_arg2702z00_19077 - 1L);
								}
								return
									BGl_thezd2escapezd2substringze70ze7zz__readerz00
									(BgL_iportz00_18119, (int) (1L), (int) (BgL_arg2701z00_19076),
									((bool_t) 0));
							} break;
						case 1L:

							{	/* Read/reader.scm 340 */
								long BgL_arg2703z00_19078;

								{	/* Read/reader.scm 340 */
									obj_t BgL_arg2704z00_19079;

									BgL_arg2704z00_19079 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_18119,
										(int) (1L), (int) (5L));
									{	/* Read/reader.scm 340 */
										char *BgL_tmpz00_32333;

										BgL_tmpz00_32333 = BSTRING_TO_STRING(BgL_arg2704z00_19079);
										BgL_arg2703z00_19078 =
											BGL_STRTOL(BgL_tmpz00_32333, 0L, 16L);
								}}
								return
									BUCS2(BGl_integerzd2ze3ucs2z31zz__ucs2z00(
										(int) (BgL_arg2703z00_19078)));
							} break;
						case 0L:

							{	/* Read/reader.scm 335 */
								obj_t BgL_stringz00_19080;

								{	/* Read/reader.scm 332 */
									long BgL_arg2524z00_19081;

									BgL_arg2524z00_19081 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18119);
									BgL_stringz00_19080 =
										rgc_buffer_substring(BgL_iportz00_18119, 0L,
										BgL_arg2524z00_19081);
								}
								{	/* Read/reader.scm 336 */
									long BgL_arg2705z00_19082;

									{	/* Read/reader.scm 336 */
										obj_t BgL_arg2706z00_19083;

										BgL_arg2706z00_19083 =
											BGl_thezd2substringze70z35zz__readerz00
											(BgL_iportz00_18119, (int) (1L), (int) (4L));
										{	/* Read/reader.scm 336 */
											char *BgL_tmpz00_32344;

											BgL_tmpz00_32344 =
												BSTRING_TO_STRING(BgL_arg2706z00_19083);
											BgL_arg2705z00_19082 =
												BGL_STRTOL(BgL_tmpz00_32344, 0L, 10L);
									}}
									return BCHAR((BgL_arg2705z00_19082));
								}
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string6930z00zz__readerz00,
								BGl_string6931z00zz__readerz00, BINT(BgL_matchz00_19003));
						}
				}
			}
		}

	}



/* the-escape-substring~0 */
	obj_t BGl_thezd2escapezd2substringze70ze7zz__readerz00(obj_t
		BgL_iportz00_18172, int BgL_minz00_3378, int BgL_maxz00_3379,
		bool_t BgL_strictz00_3380)
	{
		{	/* Read/reader.scm 332 */
			if (((long) (BgL_maxz00_3379) < 0L))
				{	/* Read/reader.scm 332 */
					long BgL_arg2545z00_3383;

					BgL_arg2545z00_3383 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18172);
					{	/* Read/reader.scm 332 */
						long BgL_za72za7_12891;

						BgL_za72za7_12891 = (long) (BgL_maxz00_3379);
						BgL_maxz00_3379 = (int) ((BgL_arg2545z00_3383 + BgL_za72za7_12891));
				}}
			else
				{	/* Read/reader.scm 332 */
					BFALSE;
				}
			{	/* Read/reader.scm 332 */
				bool_t BgL_test9940z00_32359;

				if (((long) (BgL_minz00_3378) >= 0L))
					{	/* Read/reader.scm 332 */
						if (((long) (BgL_maxz00_3379) >= (long) (BgL_minz00_3378)))
							{	/* Read/reader.scm 332 */
								long BgL_arg2557z00_3394;

								BgL_arg2557z00_3394 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18172);
								BgL_test9940z00_32359 =
									((long) (BgL_maxz00_3379) <= BgL_arg2557z00_3394);
							}
						else
							{	/* Read/reader.scm 332 */
								BgL_test9940z00_32359 = ((bool_t) 0);
							}
					}
				else
					{	/* Read/reader.scm 332 */
						BgL_test9940z00_32359 = ((bool_t) 0);
					}
				if (BgL_test9940z00_32359)
					{	/* Read/reader.scm 332 */
						return
							rgc_buffer_escape_substring(BgL_iportz00_18172,
							(long) (BgL_minz00_3378),
							(long) (BgL_maxz00_3379), BgL_strictz00_3380);
					}
				else
					{	/* Read/reader.scm 332 */
						obj_t BgL_arg2551z00_3388;
						obj_t BgL_arg2553z00_3389;

						{	/* Read/reader.scm 332 */
							obj_t BgL_arg2554z00_3390;

							{	/* Read/reader.scm 332 */
								long BgL_arg2524z00_12902;

								BgL_arg2524z00_12902 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18172);
								BgL_arg2554z00_3390 =
									rgc_buffer_substring(BgL_iportz00_18172, 0L,
									BgL_arg2524z00_12902);
							}
							{	/* Read/reader.scm 332 */
								obj_t BgL_list2555z00_3391;

								BgL_list2555z00_3391 =
									MAKE_YOUNG_PAIR(BgL_arg2554z00_3390, BNIL);
								BgL_arg2551z00_3388 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string6860z00zz__readerz00, BgL_list2555z00_3391);
						}}
						BgL_arg2553z00_3389 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_3378), BINT(BgL_maxz00_3379));
						return
							BGl_errorz00zz__errorz00(BGl_string6861z00zz__readerz00,
							BgL_arg2551z00_3388, BgL_arg2553z00_3389);
					}
			}
		}

	}



/* the-substring~0 */
	obj_t BGl_thezd2substringze70z35zz__readerz00(obj_t BgL_iportz00_18173,
		int BgL_minz00_3362, int BgL_maxz00_3363)
	{
		{	/* Read/reader.scm 332 */
			if (((long) (BgL_maxz00_3363) < (long) (BgL_minz00_3362)))
				{	/* Read/reader.scm 332 */
					long BgL_arg2527z00_3366;

					BgL_arg2527z00_3366 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18173);
					{	/* Read/reader.scm 332 */
						long BgL_za72za7_12874;

						BgL_za72za7_12874 = (long) (BgL_maxz00_3363);
						BgL_maxz00_3363 = (int) ((BgL_arg2527z00_3366 + BgL_za72za7_12874));
				}}
			else
				{	/* Read/reader.scm 332 */
					BFALSE;
				}
			{	/* Read/reader.scm 332 */
				bool_t BgL_test9944z00_32389;

				if (((long) (BgL_minz00_3362) >= 0L))
					{	/* Read/reader.scm 332 */
						if (((long) (BgL_maxz00_3363) >= (long) (BgL_minz00_3362)))
							{	/* Read/reader.scm 332 */
								long BgL_arg2540z00_3377;

								BgL_arg2540z00_3377 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18173);
								BgL_test9944z00_32389 =
									((long) (BgL_maxz00_3363) <= BgL_arg2540z00_3377);
							}
						else
							{	/* Read/reader.scm 332 */
								BgL_test9944z00_32389 = ((bool_t) 0);
							}
					}
				else
					{	/* Read/reader.scm 332 */
						BgL_test9944z00_32389 = ((bool_t) 0);
					}
				if (BgL_test9944z00_32389)
					{	/* Read/reader.scm 332 */
						return
							rgc_buffer_substring(BgL_iportz00_18173,
							(long) (BgL_minz00_3362), (long) (BgL_maxz00_3363));
					}
				else
					{	/* Read/reader.scm 332 */
						obj_t BgL_arg2535z00_3371;
						obj_t BgL_arg2537z00_3372;

						{	/* Read/reader.scm 332 */
							obj_t BgL_arg2538z00_3373;

							{	/* Read/reader.scm 332 */
								long BgL_arg2524z00_12884;

								BgL_arg2524z00_12884 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_18173);
								BgL_arg2538z00_3373 =
									rgc_buffer_substring(BgL_iportz00_18173, 0L,
									BgL_arg2524z00_12884);
							}
							{	/* Read/reader.scm 332 */
								obj_t BgL_list2539z00_3374;

								BgL_list2539z00_3374 =
									MAKE_YOUNG_PAIR(BgL_arg2538z00_3373, BNIL);
								BgL_arg2535z00_3371 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string6860z00zz__readerz00, BgL_list2539z00_3374);
						}}
						BgL_arg2537z00_3372 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_3362), BINT(BgL_maxz00_3363));
						return
							BGl_errorz00zz__errorz00(BGl_string6862z00zz__readerz00,
							BgL_arg2535z00_3371, BgL_arg2537z00_3372);
					}
			}
		}

	}



/* bigloo-identifier-syntax */
	BGL_EXPORTED_DEF obj_t BGl_bigloozd2identifierzd2syntaxz00zz__readerz00(void)
	{
		{	/* Read/reader.scm 98 */
			return BGl_za2identifierzd2syntaxza2zd2zz__readerz00;
		}

	}



/* &bigloo-identifier-syntax */
	obj_t BGl_z62bigloozd2identifierzd2syntaxz62zz__readerz00(obj_t
		BgL_envz00_18120)
	{
		{	/* Read/reader.scm 98 */
			return BGl_bigloozd2identifierzd2syntaxz00zz__readerz00();
		}

	}



/* bigloo-identifier-syntax-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_bigloozd2identifierzd2syntaxzd2setz12zc0zz__readerz00(obj_t BgL_vz00_3)
	{
		{	/* Read/reader.scm 99 */
			return (BGl_za2identifierzd2syntaxza2zd2zz__readerz00 =
				BgL_vz00_3, BUNSPEC);
		}

	}



/* &bigloo-identifier-syntax-set! */
	obj_t BGl_z62bigloozd2identifierzd2syntaxzd2setz12za2zz__readerz00(obj_t
		BgL_envz00_18121, obj_t BgL_vz00_18122)
	{
		{	/* Read/reader.scm 99 */
			{	/* Read/reader.scm 99 */
				obj_t BgL_auxz00_32412;

				if (SYMBOLP(BgL_vz00_18122))
					{	/* Read/reader.scm 99 */
						BgL_auxz00_32412 = BgL_vz00_18122;
					}
				else
					{
						obj_t BgL_auxz00_32415;

						BgL_auxz00_32415 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6942z00zz__readerz00,
							BINT(3591L), BGl_string6943z00zz__readerz00,
							BGl_string6944z00zz__readerz00, BgL_vz00_18122);
						FAILURE(BgL_auxz00_32415, BFALSE, BFALSE);
					}
				return
					BGl_bigloozd2identifierzd2syntaxzd2setz12zc0zz__readerz00
					(BgL_auxz00_32412);
			}
		}

	}



/* bigloo-case-sensitivity */
	BGL_EXPORTED_DEF obj_t BGl_bigloozd2casezd2sensitivityz00zz__readerz00(void)
	{
		{	/* Read/reader.scm 104 */
			BGL_TAIL return BGl_bigloozd2casezd2sensitivez00zz__paramz00();
		}

	}



/* &bigloo-case-sensitivity */
	obj_t BGl_z62bigloozd2casezd2sensitivityz62zz__readerz00(obj_t
		BgL_envz00_18123)
	{
		{	/* Read/reader.scm 104 */
			return BGl_bigloozd2casezd2sensitivityz00zz__readerz00();
		}

	}



/* bigloo-case-sensitivity-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(obj_t BgL_valz00_4)
	{
		{	/* Read/reader.scm 110 */
			BGL_TAIL return
				BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(BgL_valz00_4);
		}

	}



/* &bigloo-case-sensitivity-set! */
	obj_t BGl_z62bigloozd2casezd2sensitivityzd2setz12za2zz__readerz00(obj_t
		BgL_envz00_18124, obj_t BgL_valz00_18125)
	{
		{	/* Read/reader.scm 110 */
			{	/* Read/reader.scm 111 */
				obj_t BgL_auxz00_32423;

				if (SYMBOLP(BgL_valz00_18125))
					{	/* Read/reader.scm 111 */
						BgL_auxz00_32423 = BgL_valz00_18125;
					}
				else
					{
						obj_t BgL_auxz00_32426;

						BgL_auxz00_32426 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6942z00zz__readerz00,
							BINT(4175L), BGl_string6945z00zz__readerz00,
							BGl_string6944z00zz__readerz00, BgL_valz00_18125);
						FAILURE(BgL_auxz00_32426, BFALSE, BFALSE);
					}
				return
					BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00
					(BgL_auxz00_32423);
			}
		}

	}



/* make-source-location */
	BGL_EXPORTED_DEF obj_t BGl_makezd2sourcezd2locationz00zz__readerz00(obj_t
		BgL_namez00_5, obj_t BgL_posz00_6)
	{
		{	/* Read/reader.scm 116 */
			{	/* Read/reader.scm 117 */
				obj_t BgL_list6062z00_17316;

				{	/* Read/reader.scm 117 */
					obj_t BgL_arg6063z00_17317;

					{	/* Read/reader.scm 117 */
						obj_t BgL_arg6064z00_17318;

						BgL_arg6064z00_17318 = MAKE_YOUNG_PAIR(BgL_posz00_6, BNIL);
						BgL_arg6063z00_17317 =
							MAKE_YOUNG_PAIR(BgL_namez00_5, BgL_arg6064z00_17318);
					}
					BgL_list6062z00_17316 =
						MAKE_YOUNG_PAIR(BGl_symbol6905z00zz__readerz00,
						BgL_arg6063z00_17317);
				}
				return BgL_list6062z00_17316;
			}
		}

	}



/* &make-source-location */
	obj_t BGl_z62makezd2sourcezd2locationz62zz__readerz00(obj_t BgL_envz00_18126,
		obj_t BgL_namez00_18127, obj_t BgL_posz00_18128)
	{
		{	/* Read/reader.scm 116 */
			return
				BGl_makezd2sourcezd2locationz00zz__readerz00(BgL_namez00_18127,
				BgL_posz00_18128);
		}

	}



/* get-source-location */
	BGL_EXPORTED_DEF obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t
		BgL_objz00_7)
	{
		{	/* Read/reader.scm 122 */
			if (EPAIRP(BgL_objz00_7))
				{	/* Read/reader.scm 124 */
					obj_t BgL_ezd2102zd2_10115;

					BgL_ezd2102zd2_10115 = CER(((obj_t) BgL_objz00_7));
					if (PAIRP(BgL_ezd2102zd2_10115))
						{	/* Read/reader.scm 124 */
							obj_t BgL_cdrzd2104zd2_10117;

							BgL_cdrzd2104zd2_10117 = CDR(BgL_ezd2102zd2_10115);
							if ((CAR(BgL_ezd2102zd2_10115) == BGl_symbol6905z00zz__readerz00))
								{	/* Read/reader.scm 124 */
									if (PAIRP(BgL_cdrzd2104zd2_10117))
										{	/* Read/reader.scm 124 */
											obj_t BgL_cdrzd2106zd2_10121;

											BgL_cdrzd2106zd2_10121 = CDR(BgL_cdrzd2104zd2_10117);
											if (PAIRP(BgL_cdrzd2106zd2_10121))
												{	/* Read/reader.scm 124 */
													if (NULLP(CDR(BgL_cdrzd2106zd2_10121)))
														{	/* Read/reader.scm 124 */
															return BgL_ezd2102zd2_10115;
														}
													else
														{	/* Read/reader.scm 124 */
															return BFALSE;
														}
												}
											else
												{	/* Read/reader.scm 124 */
													return BFALSE;
												}
										}
									else
										{	/* Read/reader.scm 124 */
											return BFALSE;
										}
								}
							else
								{	/* Read/reader.scm 124 */
									return BFALSE;
								}
						}
					else
						{	/* Read/reader.scm 124 */
							return BFALSE;
						}
				}
			else
				{	/* Read/reader.scm 123 */
					return BFALSE;
				}
		}

	}



/* &get-source-location */
	obj_t BGl_z62getzd2sourcezd2locationz62zz__readerz00(obj_t BgL_envz00_18129,
		obj_t BgL_objz00_18130)
	{
		{	/* Read/reader.scm 122 */
			return BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_objz00_18130);
		}

	}



/* reader-reset! */
	BGL_EXPORTED_DEF obj_t BGl_readerzd2resetz12zc0zz__readerz00(void)
	{
		{	/* Read/reader.scm 148 */
			return BFALSE;
		}

	}



/* &reader-reset! */
	obj_t BGl_z62readerzd2resetz12za2zz__readerz00(obj_t BgL_envz00_18131)
	{
		{	/* Read/reader.scm 148 */
			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 154 */
			{	/* Read/reader.scm 155 */
				obj_t BgL_fnamez00_10128;
				obj_t BgL_locz00_10129;

				BgL_fnamez00_10128 = BUNSPEC;
				BgL_locz00_10129 = BUNSPEC;
				if (EPAIRP(BgL_objz00_13))
					{

						{	/* Read/reader.scm 157 */
							obj_t BgL_ezd2111zd2_10135;

							BgL_ezd2111zd2_10135 = CER(((obj_t) BgL_objz00_13));
							if (PAIRP(BgL_ezd2111zd2_10135))
								{	/* Read/reader.scm 157 */
									obj_t BgL_cdrzd2117zd2_10137;

									BgL_cdrzd2117zd2_10137 = CDR(BgL_ezd2111zd2_10135);
									if (
										(CAR(BgL_ezd2111zd2_10135) ==
											BGl_symbol6905z00zz__readerz00))
										{	/* Read/reader.scm 157 */
											if (PAIRP(BgL_cdrzd2117zd2_10137))
												{	/* Read/reader.scm 157 */
													obj_t BgL_cdrzd2121zd2_10141;

													BgL_cdrzd2121zd2_10141 = CDR(BgL_cdrzd2117zd2_10137);
													if (PAIRP(BgL_cdrzd2121zd2_10141))
														{	/* Read/reader.scm 157 */
															if (NULLP(CDR(BgL_cdrzd2121zd2_10141)))
																{	/* Read/reader.scm 157 */
																	obj_t BgL_arg6084z00_10145;
																	obj_t BgL_arg6085z00_10146;

																	BgL_arg6084z00_10145 =
																		CAR(BgL_cdrzd2117zd2_10137);
																	BgL_arg6085z00_10146 =
																		CAR(BgL_cdrzd2121zd2_10141);
																	BgL_fnamez00_10128 = BgL_arg6084z00_10145;
																	BgL_locz00_10129 = BgL_arg6085z00_10146;
																}
															else
																{	/* Read/reader.scm 157 */
																BgL_tagzd2110zd2_10134:
																	BgL_fnamez00_10128 =
																		INPUT_PORT_NAME(BgL_portz00_14);
																	BgL_locz00_10129 =
																		BINT(INPUT_PORT_FILEPOS(BgL_portz00_14));
																}
														}
													else
														{	/* Read/reader.scm 157 */
															goto BgL_tagzd2110zd2_10134;
														}
												}
											else
												{	/* Read/reader.scm 157 */
													goto BgL_tagzd2110zd2_10134;
												}
										}
									else
										{	/* Read/reader.scm 157 */
											goto BgL_tagzd2110zd2_10134;
										}
								}
							else
								{	/* Read/reader.scm 157 */
									goto BgL_tagzd2110zd2_10134;
								}
						}
					}
				else
					{	/* Read/reader.scm 156 */
						BgL_fnamez00_10128 = INPUT_PORT_NAME(BgL_portz00_14);
						BgL_locz00_10129 = BINT(INPUT_PORT_FILEPOS(BgL_portz00_14));
					}
				{	/* Read/reader.scm 167 */
					BgL_z62iozd2readzd2errorz62_bglt BgL_arg6088z00_10149;

					{	/* Read/reader.scm 167 */
						BgL_z62iozd2readzd2errorz62_bglt BgL_new1040z00_10150;

						{	/* Read/reader.scm 171 */
							BgL_z62iozd2readzd2errorz62_bglt BgL_new1039z00_10153;

							BgL_new1039z00_10153 =
								((BgL_z62iozd2readzd2errorz62_bglt)
								BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62iozd2readzd2errorz62_bgl))));
							{	/* Read/reader.scm 171 */
								long BgL_arg6091z00_10154;

								BgL_arg6091z00_10154 =
									BGL_CLASS_NUM(BGl_z62iozd2readzd2errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1039z00_10153),
									BgL_arg6091z00_10154);
							}
							BgL_new1040z00_10150 = BgL_new1039z00_10153;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1040z00_10150)))->
								BgL_fnamez00) = ((obj_t) BgL_fnamez00_10128), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1040z00_10150)))->BgL_locationz00) =
							((obj_t) BgL_locz00_10129), BUNSPEC);
						{
							obj_t BgL_auxz00_32489;

							{	/* Read/reader.scm 172 */
								obj_t BgL_arg6089z00_10151;

								{	/* Read/reader.scm 172 */
									obj_t BgL_arg6090z00_10152;

									{	/* Read/reader.scm 172 */
										obj_t BgL_classz00_17347;

										BgL_classz00_17347 =
											BGl_z62iozd2readzd2errorz62zz__objectz00;
										BgL_arg6090z00_10152 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_17347);
									}
									BgL_arg6089z00_10151 = VECTOR_REF(BgL_arg6090z00_10152, 2L);
								}
								BgL_auxz00_32489 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg6089z00_10151);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1040z00_10150)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_32489), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1040z00_10150)))->
								BgL_procz00) =
							((obj_t) BGl_symbol6871z00zz__readerz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1040z00_10150)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_12), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1040z00_10150)))->BgL_objz00) =
							((obj_t) BgL_objz00_13), BUNSPEC);
						BgL_arg6088z00_10149 = BgL_new1040z00_10150;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg6088z00_10149));
				}
			}
		}

	}



/* 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 177 */
			{	/* Read/reader.scm 178 */
				obj_t BgL_fnamez00_10155;

				if (EPAIRP(BgL_objz00_17))
					{	/* Read/reader.scm 179 */
						obj_t BgL_ezd2129zd2_10167;

						BgL_ezd2129zd2_10167 = CER(((obj_t) BgL_objz00_17));
						if (PAIRP(BgL_ezd2129zd2_10167))
							{	/* Read/reader.scm 179 */
								obj_t BgL_cdrzd2135zd2_10169;

								BgL_cdrzd2135zd2_10169 = CDR(BgL_ezd2129zd2_10167);
								if (
									(CAR(BgL_ezd2129zd2_10167) == BGl_symbol6905z00zz__readerz00))
									{	/* Read/reader.scm 179 */
										if (PAIRP(BgL_cdrzd2135zd2_10169))
											{	/* Read/reader.scm 179 */
												obj_t BgL_cdrzd2139zd2_10173;

												BgL_cdrzd2139zd2_10173 = CDR(BgL_cdrzd2135zd2_10169);
												if (PAIRP(BgL_cdrzd2139zd2_10173))
													{	/* Read/reader.scm 179 */
														if (NULLP(CDR(BgL_cdrzd2139zd2_10173)))
															{	/* Read/reader.scm 179 */
																BgL_fnamez00_10155 =
																	CAR(BgL_cdrzd2135zd2_10169);
															}
														else
															{	/* Read/reader.scm 179 */
																BgL_fnamez00_10155 =
																	INPUT_PORT_NAME(BgL_portz00_18);
															}
													}
												else
													{	/* Read/reader.scm 179 */
														BgL_fnamez00_10155 =
															INPUT_PORT_NAME(BgL_portz00_18);
													}
											}
										else
											{	/* Read/reader.scm 179 */
												BgL_fnamez00_10155 = INPUT_PORT_NAME(BgL_portz00_18);
											}
									}
								else
									{	/* Read/reader.scm 179 */
										BgL_fnamez00_10155 = INPUT_PORT_NAME(BgL_portz00_18);
									}
							}
						else
							{	/* Read/reader.scm 179 */
								BgL_fnamez00_10155 = INPUT_PORT_NAME(BgL_portz00_18);
							}
					}
				else
					{	/* Read/reader.scm 178 */
						BgL_fnamez00_10155 = INPUT_PORT_NAME(BgL_portz00_18);
					}
				{	/* Read/reader.scm 185 */
					BgL_z62iozd2readzd2errorz62_bglt BgL_arg6092z00_10156;

					{	/* Read/reader.scm 185 */
						BgL_z62iozd2readzd2errorz62_bglt BgL_new1042z00_10157;

						{	/* Read/reader.scm 189 */
							BgL_z62iozd2readzd2errorz62_bglt BgL_new1041z00_10160;

							BgL_new1041z00_10160 =
								((BgL_z62iozd2readzd2errorz62_bglt)
								BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62iozd2readzd2errorz62_bgl))));
							{	/* Read/reader.scm 189 */
								long BgL_arg6095z00_10161;

								BgL_arg6095z00_10161 =
									BGL_CLASS_NUM(BGl_z62iozd2readzd2errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1041z00_10160),
									BgL_arg6095z00_10161);
							}
							BgL_new1042z00_10157 = BgL_new1041z00_10160;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1042z00_10157)))->
								BgL_fnamez00) = ((obj_t) BgL_fnamez00_10155), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1042z00_10157)))->BgL_locationz00) =
							((obj_t) BgL_locz00_15), BUNSPEC);
						{
							obj_t BgL_auxz00_32536;

							{	/* Read/reader.scm 190 */
								obj_t BgL_arg6093z00_10158;

								{	/* Read/reader.scm 190 */
									obj_t BgL_arg6094z00_10159;

									{	/* Read/reader.scm 190 */
										obj_t BgL_classz00_17366;

										BgL_classz00_17366 =
											BGl_z62iozd2readzd2errorz62zz__objectz00;
										BgL_arg6094z00_10159 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_17366);
									}
									BgL_arg6093z00_10158 = VECTOR_REF(BgL_arg6094z00_10159, 2L);
								}
								BgL_auxz00_32536 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg6093z00_10158);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1042z00_10157)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_32536), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1042z00_10157)))->
								BgL_procz00) =
							((obj_t) BGl_symbol6871z00zz__readerz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1042z00_10157)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_16), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1042z00_10157)))->BgL_objz00) =
							((obj_t) BgL_objz00_17), BUNSPEC);
						BgL_arg6092z00_10156 = BgL_new1042z00_10157;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg6092z00_10156));
				}
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__readerz00(obj_t BgL_portz00_18171,
		obj_t BgL_cyclesz00_18170, obj_t BgL_objz00_10182)
	{
		{	/* Read/reader.scm 196 */
			if (PROCEDUREP(BgL_objz00_10182))
				{	/* Read/reader.scm 199 */
					obj_t BgL_noz00_10185;

					BgL_noz00_10185 =
						(VA_PROCEDUREP(BgL_objz00_10182) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_objz00_10182)) (BgL_objz00_10182,
							BEOA) : ((obj_t(*)(obj_t))
							PROCEDURE_ENTRY(BgL_objz00_10182)) (BgL_objz00_10182));
					{	/* Read/reader.scm 199 */
						obj_t BgL_val0z00_10186;

						{	/* Read/reader.scm 200 */
							long BgL_kz00_17369;

							BgL_kz00_17369 = (long) CINT(BgL_noz00_10185);
							BgL_val0z00_10186 =
								VECTOR_REF(((obj_t) BgL_cyclesz00_18170), BgL_kz00_17369);
						}
						{	/* Read/reader.scm 200 */
							obj_t BgL_valz00_10187;

							if (CBOOL(BgL_val0z00_10186))
								{	/* Read/reader.scm 201 */
									BgL_valz00_10187 = BgL_val0z00_10186;
								}
							else
								{	/* Read/reader.scm 201 */
									BgL_valz00_10187 =
										BGl_readzd2errorzd2zz__readerz00
										(BGl_string6867z00zz__readerz00, BgL_noz00_10185,
										BgL_portz00_18171);
								}
							{	/* Read/reader.scm 201 */

								if ((BgL_valz00_10187 == BgL_objz00_10182))
									{	/* Read/reader.scm 204 */
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6868z00zz__readerz00, BgL_noz00_10185,
											BgL_portz00_18171);
									}
								else
									{	/* Read/reader.scm 204 */
										return BgL_valz00_10187;
									}
							}
						}
					}
				}
			else
				{	/* Read/reader.scm 198 */
					if (PAIRP(BgL_objz00_10182))
						{	/* Read/reader.scm 207 */
							{	/* Read/reader.scm 208 */
								obj_t BgL_tmpz00_32566;

								BgL_tmpz00_32566 =
									BGl_loopze70ze7zz__readerz00(BgL_portz00_18171,
									BgL_cyclesz00_18170, CAR(BgL_objz00_10182));
								SET_CAR(BgL_objz00_10182, BgL_tmpz00_32566);
							}
							{	/* Read/reader.scm 209 */
								obj_t BgL_tmpz00_32570;

								BgL_tmpz00_32570 =
									BGl_loopze70ze7zz__readerz00(BgL_portz00_18171,
									BgL_cyclesz00_18170, CDR(BgL_objz00_10182));
								SET_CDR(BgL_objz00_10182, BgL_tmpz00_32570);
							}
							return BgL_objz00_10182;
						}
					else
						{	/* Read/reader.scm 207 */
							if (VECTORP(BgL_objz00_10182))
								{
									long BgL_iz00_17383;

									BgL_iz00_17383 = 0L;
								BgL_laapz00_17382:
									if ((BgL_iz00_17383 < VECTOR_LENGTH(BgL_objz00_10182)))
										{	/* Read/reader.scm 214 */
											{	/* Read/reader.scm 216 */
												obj_t BgL_arg6118z00_17387;

												{	/* Read/reader.scm 216 */
													obj_t BgL_arg6119z00_17388;

													BgL_arg6119z00_17388 =
														VECTOR_REF(
														((obj_t) BgL_objz00_10182), BgL_iz00_17383);
													BgL_arg6118z00_17387 =
														BGl_loopze70ze7zz__readerz00(BgL_portz00_18171,
														BgL_cyclesz00_18170, BgL_arg6119z00_17388);
												}
												VECTOR_SET(
													((obj_t) BgL_objz00_10182), BgL_iz00_17383,
													BgL_arg6118z00_17387);
											}
											{
												long BgL_iz00_32584;

												BgL_iz00_32584 = (BgL_iz00_17383 + 1L);
												BgL_iz00_17383 = BgL_iz00_32584;
												goto BgL_laapz00_17382;
											}
										}
									else
										{	/* Read/reader.scm 214 */
											return BgL_objz00_10182;
										}
								}
							else
								{	/* Read/reader.scm 211 */
									if (STRUCTP(BgL_objz00_10182))
										{	/* Read/reader.scm 220 */
											int BgL_lenz00_10204;

											BgL_lenz00_10204 = STRUCT_LENGTH(BgL_objz00_10182);
											{
												long BgL_iz00_17404;

												BgL_iz00_17404 = 0L;
											BgL_laapz00_17403:
												if ((BgL_iz00_17404 < (long) (BgL_lenz00_10204)))
													{	/* Read/reader.scm 222 */
														{	/* Read/reader.scm 224 */
															obj_t BgL_arg6124z00_17408;

															{	/* Read/reader.scm 224 */
																obj_t BgL_arg6125z00_17409;

																BgL_arg6125z00_17409 =
																	STRUCT_REF(
																	((obj_t) BgL_objz00_10182),
																	(int) (BgL_iz00_17404));
																BgL_arg6124z00_17408 =
																	BGl_loopze70ze7zz__readerz00
																	(BgL_portz00_18171, BgL_cyclesz00_18170,
																	BgL_arg6125z00_17409);
															}
															{	/* Read/reader.scm 224 */
																int BgL_kz00_17413;

																BgL_kz00_17413 = (int) (BgL_iz00_17404);
																{	/* Read/reader.scm 224 */
																	obj_t BgL_tmpz00_32597;

																	BgL_tmpz00_32597 = ((obj_t) BgL_objz00_10182);
																	STRUCT_SET(BgL_tmpz00_32597, BgL_kz00_17413,
																		BgL_arg6124z00_17408);
														}}}
														{
															long BgL_iz00_32600;

															BgL_iz00_32600 = (BgL_iz00_17404 + 1L);
															BgL_iz00_17404 = BgL_iz00_32600;
															goto BgL_laapz00_17403;
														}
													}
												else
													{	/* Read/reader.scm 222 */
														return BgL_objz00_10182;
													}
											}
										}
									else
										{	/* Read/reader.scm 219 */
											return BgL_objz00_10182;
										}
								}
						}
				}
		}

	}



/* make-list! */
	obj_t BGl_makezd2listz12zc0zz__readerz00(obj_t BgL_lz00_22,
		obj_t BgL_portz00_23)
	{
		{	/* Read/reader.scm 233 */
			{
				obj_t BgL_lz00_10246;
				obj_t BgL_lz00_10230;

				if (NULLP(BgL_lz00_22))
					{	/* Read/reader.scm 263 */
						return BgL_lz00_22;
					}
				else
					{	/* Read/reader.scm 265 */
						bool_t BgL_test9976z00_32604;

						{	/* Read/reader.scm 265 */
							bool_t BgL_test9977z00_32605;

							{	/* Read/reader.scm 265 */
								obj_t BgL_tmpz00_32606;

								BgL_tmpz00_32606 = CDR(BgL_lz00_22);
								BgL_test9977z00_32605 = PAIRP(BgL_tmpz00_32606);
							}
							if (BgL_test9977z00_32605)
								{	/* Read/reader.scm 265 */
									obj_t BgL_arg6137z00_10228;

									BgL_arg6137z00_10228 = CAR(CDR(BgL_lz00_22));
									BgL_test9976z00_32604 =
										(BgL_arg6137z00_10228 ==
										BGl_za2dottedzd2markza2zd2zz__readerz00);
								}
							else
								{	/* Read/reader.scm 265 */
									BgL_test9976z00_32604 = ((bool_t) 0);
								}
						}
						if (BgL_test9976z00_32604)
							{	/* Read/reader.scm 265 */
								if (NULLP(CDR(CDR(BgL_lz00_22))))
									{	/* Read/reader.scm 266 */
										return CAR(BgL_lz00_22);
									}
								else
									{	/* Read/reader.scm 266 */
										BgL_lz00_10246 = BgL_lz00_22;
										{	/* Read/reader.scm 249 */
											obj_t BgL_g1044z00_10248;
											obj_t BgL_g1045z00_10249;

											BgL_g1044z00_10248 = CDR(CDR(BgL_lz00_10246));
											BgL_g1045z00_10249 = CAR(BgL_lz00_10246);
											{
												obj_t BgL_lz00_10251;
												obj_t BgL_rz00_10252;

												BgL_lz00_10251 = BgL_g1044z00_10248;
												BgL_rz00_10252 = BgL_g1045z00_10249;
											BgL_zc3z04anonymousza36149ze3z87_10253:
												{	/* Read/reader.scm 252 */
													bool_t BgL_test9979z00_32620;

													{	/* Read/reader.scm 252 */
														obj_t BgL_arg6156z00_10261;

														BgL_arg6156z00_10261 =
															CAR(((obj_t) BgL_lz00_10251));
														BgL_test9979z00_32620 =
															(BgL_arg6156z00_10261 ==
															BGl_za2dottedzd2markza2zd2zz__readerz00);
													}
													if (BgL_test9979z00_32620)
														{	/* Read/reader.scm 252 */
															return
																BGl_readzd2errorzd2zz__readerz00
																(BGl_string6946z00zz__readerz00, BgL_rz00_10252,
																BgL_portz00_23);
														}
													else
														{	/* Read/reader.scm 252 */
															if (NULLP(CDR(((obj_t) BgL_lz00_10251))))
																{	/* Read/reader.scm 254 */
																	{	/* Read/reader.scm 255 */
																		obj_t BgL_tmpz00_32629;

																		BgL_tmpz00_32629 = ((obj_t) BgL_lz00_10251);
																		SET_CDR(BgL_tmpz00_32629, BgL_rz00_10252);
																	}
																	return BgL_lz00_10251;
																}
															else
																{	/* Read/reader.scm 258 */
																	obj_t BgL_cdrlz00_10258;

																	BgL_cdrlz00_10258 =
																		CDR(((obj_t) BgL_lz00_10251));
																	{	/* Read/reader.scm 260 */
																		obj_t BgL_arg6154z00_10259;

																		{	/* Read/reader.scm 260 */
																			obj_t BgL_tmpz00_32634;

																			BgL_tmpz00_32634 =
																				((obj_t) BgL_lz00_10251);
																			SET_CDR(BgL_tmpz00_32634, BgL_rz00_10252);
																		}
																		BgL_arg6154z00_10259 = BgL_lz00_10251;
																		{
																			obj_t BgL_rz00_32638;
																			obj_t BgL_lz00_32637;

																			BgL_lz00_32637 = BgL_cdrlz00_10258;
																			BgL_rz00_32638 = BgL_arg6154z00_10259;
																			BgL_rz00_10252 = BgL_rz00_32638;
																			BgL_lz00_10251 = BgL_lz00_32637;
																			goto
																				BgL_zc3z04anonymousza36149ze3z87_10253;
																		}
																	}
																}
														}
												}
											}
										}
									}
							}
						else
							{	/* Read/reader.scm 265 */
								BgL_lz00_10230 = BgL_lz00_22;
								{
									obj_t BgL_lz00_10234;
									obj_t BgL_rz00_10235;

									BgL_lz00_10234 = BgL_lz00_10230;
									BgL_rz00_10235 = BNIL;
								BgL_zc3z04anonymousza36140ze3z87_10236:
									{	/* Read/reader.scm 238 */
										bool_t BgL_test9981z00_32639;

										{	/* Read/reader.scm 238 */
											obj_t BgL_arg6147z00_10244;

											BgL_arg6147z00_10244 = CAR(((obj_t) BgL_lz00_10234));
											BgL_test9981z00_32639 =
												(BgL_arg6147z00_10244 ==
												BGl_za2dottedzd2markza2zd2zz__readerz00);
										}
										if (BgL_test9981z00_32639)
											{	/* Read/reader.scm 238 */
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6946z00zz__readerz00, BgL_rz00_10235,
													BgL_portz00_23);
											}
										else
											{	/* Read/reader.scm 238 */
												if (NULLP(CDR(((obj_t) BgL_lz00_10234))))
													{	/* Read/reader.scm 240 */
														{	/* Read/reader.scm 241 */
															obj_t BgL_tmpz00_32648;

															BgL_tmpz00_32648 = ((obj_t) BgL_lz00_10234);
															SET_CDR(BgL_tmpz00_32648, BgL_rz00_10235);
														}
														return BgL_lz00_10234;
													}
												else
													{	/* Read/reader.scm 244 */
														obj_t BgL_cdrlz00_10241;

														BgL_cdrlz00_10241 = CDR(((obj_t) BgL_lz00_10234));
														{	/* Read/reader.scm 246 */
															obj_t BgL_arg6145z00_10242;

															{	/* Read/reader.scm 246 */
																obj_t BgL_tmpz00_32653;

																BgL_tmpz00_32653 = ((obj_t) BgL_lz00_10234);
																SET_CDR(BgL_tmpz00_32653, BgL_rz00_10235);
															}
															BgL_arg6145z00_10242 = BgL_lz00_10234;
															{
																obj_t BgL_rz00_32657;
																obj_t BgL_lz00_32656;

																BgL_lz00_32656 = BgL_cdrlz00_10241;
																BgL_rz00_32657 = BgL_arg6145z00_10242;
																BgL_rz00_10235 = BgL_rz00_32657;
																BgL_lz00_10234 = BgL_lz00_32656;
																goto BgL_zc3z04anonymousza36140ze3z87_10236;
															}
														}
													}
											}
									}
								}
							}
					}
			}
		}

	}



/* read-quote */
	obj_t BGl_readzd2quotezd2zz__readerz00(obj_t BgL_kwotez00_28,
		obj_t BgL_portz00_29, obj_t BgL_ignorez00_30, obj_t BgL_pospz00_31)
	{
		{	/* Read/reader.scm 296 */
			if (CBOOL(BgL_pospz00_31))
				{	/* Read/reader.scm 298 */
					long BgL_posz00_10277;

					BgL_posz00_10277 = INPUT_PORT_FILEPOS(BgL_portz00_29);
					{	/* Read/reader.scm 298 */
						obj_t BgL_objz00_10278;

						BgL_objz00_10278 = BGl_z62ignorez62zz__readerz00(BgL_ignorez00_30);
						{	/* Read/reader.scm 299 */

							{	/* Read/reader.scm 300 */
								bool_t BgL_test9984z00_32664;

								if (EOF_OBJECTP(BgL_objz00_10278))
									{	/* Read/reader.scm 300 */
										BgL_test9984z00_32664 = ((bool_t) 1);
									}
								else
									{	/* Read/reader.scm 300 */
										BgL_test9984z00_32664 =
											(BgL_objz00_10278 ==
											BGl_za2endzd2ofzd2listza2z00zz__readerz00);
									}
								if (BgL_test9984z00_32664)
									{	/* Read/reader.scm 300 */
										return
											BGl_readzd2errorzf2locz20zz__readerz00(BINT
											(BgL_posz00_10277), BGl_string6947z00zz__readerz00,
											BgL_kwotez00_28, BgL_portz00_29);
									}
								else
									{	/* Read/reader.scm 302 */
										obj_t BgL_arg6162z00_10281;
										obj_t BgL_arg6163z00_10282;

										BgL_arg6162z00_10281 =
											MAKE_YOUNG_PAIR(BgL_objz00_10278, BNIL);
										BgL_arg6163z00_10282 = INPUT_PORT_NAME(BgL_portz00_29);
										{	/* Read/reader.scm 132 */
											obj_t BgL_arg6075z00_17458;

											{	/* Read/reader.scm 117 */
												obj_t BgL_list6062z00_17459;

												{	/* Read/reader.scm 117 */
													obj_t BgL_arg6063z00_17460;

													{	/* Read/reader.scm 117 */
														obj_t BgL_arg6064z00_17461;

														BgL_arg6064z00_17461 =
															MAKE_YOUNG_PAIR(BINT(BgL_posz00_10277), BNIL);
														BgL_arg6063z00_17460 =
															MAKE_YOUNG_PAIR(BgL_arg6163z00_10282,
															BgL_arg6064z00_17461);
													}
													BgL_list6062z00_17459 =
														MAKE_YOUNG_PAIR(BGl_symbol6905z00zz__readerz00,
														BgL_arg6063z00_17460);
												}
												BgL_arg6075z00_17458 = BgL_list6062z00_17459;
											}
											{	/* Read/reader.scm 132 */
												obj_t BgL_res6807z00_17463;

												BgL_res6807z00_17463 =
													MAKE_YOUNG_EPAIR(BgL_kwotez00_28,
													BgL_arg6162z00_10281, BgL_arg6075z00_17458);
												return BgL_res6807z00_17463;
											}
										}
									}
							}
						}
					}
				}
			else
				{	/* Read/reader.scm 303 */
					obj_t BgL_objz00_10284;

					BgL_objz00_10284 = BGl_z62ignorez62zz__readerz00(BgL_ignorez00_30);
					{	/* Read/reader.scm 304 */
						bool_t BgL_test9986z00_32680;

						if (EOF_OBJECTP(BgL_objz00_10284))
							{	/* Read/reader.scm 304 */
								BgL_test9986z00_32680 = ((bool_t) 1);
							}
						else
							{	/* Read/reader.scm 304 */
								BgL_test9986z00_32680 =
									(BgL_objz00_10284 ==
									BGl_za2endzd2ofzd2listza2z00zz__readerz00);
							}
						if (BgL_test9986z00_32680)
							{	/* Read/reader.scm 304 */
								return
									BGl_readzd2errorzd2zz__readerz00
									(BGl_string6947z00zz__readerz00, BgL_kwotez00_28,
									BgL_portz00_29);
							}
						else
							{	/* Read/reader.scm 306 */
								obj_t BgL_arg6166z00_10287;

								BgL_arg6166z00_10287 = MAKE_YOUNG_PAIR(BgL_objz00_10284, BNIL);
								return MAKE_YOUNG_PAIR(BgL_kwotez00_28, BgL_arg6166z00_10287);
							}
					}
				}
		}

	}



/* read-multi-line-comment */
	obj_t BGl_readzd2multizd2linezd2commentzd2zz__readerz00(obj_t BgL_portz00_32)
	{
		{	/* Read/reader.scm 311 */
			{
				obj_t BgL_iportz00_10291;

				BgL_iportz00_10291 = BgL_portz00_32;
				{
					obj_t BgL_iportz00_10396;
					long BgL_lastzd2matchzd2_10397;
					long BgL_forwardz00_10398;
					long BgL_bufposz00_10399;
					obj_t BgL_iportz00_10380;
					long BgL_lastzd2matchzd2_10381;
					long BgL_forwardz00_10382;
					long BgL_bufposz00_10383;
					obj_t BgL_iportz00_10365;
					long BgL_lastzd2matchzd2_10366;
					long BgL_forwardz00_10367;
					long BgL_bufposz00_10368;
					obj_t BgL_iportz00_10351;
					long BgL_lastzd2matchzd2_10352;
					long BgL_forwardz00_10353;
					long BgL_bufposz00_10354;
					obj_t BgL_iportz00_10335;
					long BgL_lastzd2matchzd2_10336;
					long BgL_forwardz00_10337;
					long BgL_bufposz00_10338;

				BgL_zc3z04anonymousza36316ze3z87_10558:
					RGC_START_MATCH(BgL_iportz00_10291);
					{	/* Read/reader.scm 312 */
						long BgL_matchz00_10559;

						{	/* Read/reader.scm 312 */
							long BgL_arg6320z00_10566;
							long BgL_arg6321z00_10567;

							BgL_arg6320z00_10566 = RGC_BUFFER_FORWARD(BgL_iportz00_10291);
							BgL_arg6321z00_10567 = RGC_BUFFER_BUFPOS(BgL_iportz00_10291);
							BgL_iportz00_10365 = BgL_iportz00_10291;
							BgL_lastzd2matchzd2_10366 = 3L;
							BgL_forwardz00_10367 = BgL_arg6320z00_10566;
							BgL_bufposz00_10368 = BgL_arg6321z00_10567;
						BgL_zc3z04anonymousza36187ze3z87_10369:
							if ((BgL_forwardz00_10367 == BgL_bufposz00_10368))
								{	/* Read/reader.scm 312 */
									if (rgc_fill_buffer(BgL_iportz00_10365))
										{	/* Read/reader.scm 312 */
											long BgL_arg6190z00_10372;
											long BgL_arg6191z00_10373;

											BgL_arg6190z00_10372 =
												RGC_BUFFER_FORWARD(BgL_iportz00_10365);
											BgL_arg6191z00_10373 =
												RGC_BUFFER_BUFPOS(BgL_iportz00_10365);
											{
												long BgL_bufposz00_32697;
												long BgL_forwardz00_32696;

												BgL_forwardz00_32696 = BgL_arg6190z00_10372;
												BgL_bufposz00_32697 = BgL_arg6191z00_10373;
												BgL_bufposz00_10368 = BgL_bufposz00_32697;
												BgL_forwardz00_10367 = BgL_forwardz00_32696;
												goto BgL_zc3z04anonymousza36187ze3z87_10369;
											}
										}
									else
										{	/* Read/reader.scm 312 */
											BgL_matchz00_10559 = BgL_lastzd2matchzd2_10366;
										}
								}
							else
								{	/* Read/reader.scm 312 */
									int BgL_curz00_10374;

									BgL_curz00_10374 =
										RGC_BUFFER_GET_CHAR(BgL_iportz00_10365,
										BgL_forwardz00_10367);
									{	/* Read/reader.scm 312 */

										if (((long) (BgL_curz00_10374) == 124L))
											{	/* Read/reader.scm 312 */
												BgL_iportz00_10396 = BgL_iportz00_10365;
												BgL_lastzd2matchzd2_10397 = BgL_lastzd2matchzd2_10366;
												BgL_forwardz00_10398 = (1L + BgL_forwardz00_10367);
												BgL_bufposz00_10399 = BgL_bufposz00_10368;
											BgL_zc3z04anonymousza36207ze3z87_10400:
												{	/* Read/reader.scm 312 */
													long BgL_newzd2matchzd2_10401;

													RGC_STOP_MATCH(BgL_iportz00_10396,
														BgL_forwardz00_10398);
													BgL_newzd2matchzd2_10401 = 3L;
													if ((BgL_forwardz00_10398 == BgL_bufposz00_10399))
														{	/* Read/reader.scm 312 */
															if (rgc_fill_buffer(BgL_iportz00_10396))
																{	/* Read/reader.scm 312 */
																	long BgL_arg6210z00_10404;
																	long BgL_arg6211z00_10405;

																	BgL_arg6210z00_10404 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_10396);
																	BgL_arg6211z00_10405 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_10396);
																	{
																		long BgL_bufposz00_32710;
																		long BgL_forwardz00_32709;

																		BgL_forwardz00_32709 = BgL_arg6210z00_10404;
																		BgL_bufposz00_32710 = BgL_arg6211z00_10405;
																		BgL_bufposz00_10399 = BgL_bufposz00_32710;
																		BgL_forwardz00_10398 = BgL_forwardz00_32709;
																		goto BgL_zc3z04anonymousza36207ze3z87_10400;
																	}
																}
															else
																{	/* Read/reader.scm 312 */
																	BgL_matchz00_10559 = BgL_newzd2matchzd2_10401;
																}
														}
													else
														{	/* Read/reader.scm 312 */
															int BgL_curz00_10406;

															BgL_curz00_10406 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_10396,
																BgL_forwardz00_10398);
															{	/* Read/reader.scm 312 */

																if (((long) (BgL_curz00_10406) == 35L))
																	{	/* Read/reader.scm 312 */
																		long BgL_arg6213z00_10408;

																		BgL_arg6213z00_10408 =
																			(1L + BgL_forwardz00_10398);
																		{	/* Read/reader.scm 312 */
																			long BgL_newzd2matchzd2_17609;

																			RGC_STOP_MATCH(BgL_iportz00_10396,
																				BgL_arg6213z00_10408);
																			BgL_newzd2matchzd2_17609 = 2L;
																			BgL_matchz00_10559 =
																				BgL_newzd2matchzd2_17609;
																	}}
																else
																	{	/* Read/reader.scm 312 */
																		BgL_iportz00_10335 = BgL_iportz00_10396;
																		BgL_lastzd2matchzd2_10336 =
																			BgL_newzd2matchzd2_10401;
																		BgL_forwardz00_10337 =
																			(1L + BgL_forwardz00_10398);
																		BgL_bufposz00_10338 = BgL_bufposz00_10399;
																	BgL_zc3z04anonymousza36169ze3z87_10339:
																		{	/* Read/reader.scm 312 */
																			long BgL_newzd2matchzd2_10340;

																			RGC_STOP_MATCH(BgL_iportz00_10335,
																				BgL_forwardz00_10337);
																			BgL_newzd2matchzd2_10340 = 1L;
																			if (
																				(BgL_forwardz00_10337 ==
																					BgL_bufposz00_10338))
																				{	/* Read/reader.scm 312 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_10335))
																						{	/* Read/reader.scm 312 */
																							long BgL_arg6172z00_10343;
																							long BgL_arg6173z00_10344;

																							BgL_arg6172z00_10343 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_10335);
																							BgL_arg6173z00_10344 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_10335);
																							{
																								long BgL_bufposz00_32725;
																								long BgL_forwardz00_32724;

																								BgL_forwardz00_32724 =
																									BgL_arg6172z00_10343;
																								BgL_bufposz00_32725 =
																									BgL_arg6173z00_10344;
																								BgL_bufposz00_10338 =
																									BgL_bufposz00_32725;
																								BgL_forwardz00_10337 =
																									BgL_forwardz00_32724;
																								goto
																									BgL_zc3z04anonymousza36169ze3z87_10339;
																							}
																						}
																					else
																						{	/* Read/reader.scm 312 */
																							BgL_matchz00_10559 =
																								BgL_newzd2matchzd2_10340;
																						}
																				}
																			else
																				{	/* Read/reader.scm 312 */
																					int BgL_curz00_10345;

																					BgL_curz00_10345 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_10335,
																						BgL_forwardz00_10337);
																					{	/* Read/reader.scm 312 */

																						if (
																							((long) (BgL_curz00_10345) ==
																								124L))
																							{	/* Read/reader.scm 312 */
																								long BgL_arg6175z00_10347;

																								BgL_arg6175z00_10347 =
																									(1L + BgL_forwardz00_10337);
																								{
																									long BgL_forwardz00_17479;
																									long BgL_bufposz00_17480;

																									BgL_forwardz00_17479 =
																										BgL_arg6175z00_10347;
																									BgL_bufposz00_17480 =
																										BgL_bufposz00_10338;
																								BgL_statezd28zd21055z00_17478:
																									if (
																										(BgL_forwardz00_17479 ==
																											BgL_bufposz00_17480))
																										{	/* Read/reader.scm 312 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_10335))
																												{	/* Read/reader.scm 312 */
																													long
																														BgL_arg6218z00_17483;
																													long
																														BgL_arg6219z00_17484;
																													BgL_arg6218z00_17483 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_10335);
																													BgL_arg6219z00_17484 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_10335);
																													{
																														long
																															BgL_bufposz00_32738;
																														long
																															BgL_forwardz00_32737;
																														BgL_forwardz00_32737
																															=
																															BgL_arg6218z00_17483;
																														BgL_bufposz00_32738
																															=
																															BgL_arg6219z00_17484;
																														BgL_bufposz00_17480
																															=
																															BgL_bufposz00_32738;
																														BgL_forwardz00_17479
																															=
																															BgL_forwardz00_32737;
																														goto
																															BgL_statezd28zd21055z00_17478;
																													}
																												}
																											else
																												{	/* Read/reader.scm 312 */
																													BgL_matchz00_10559 =
																														BgL_newzd2matchzd2_10340;
																												}
																										}
																									else
																										{	/* Read/reader.scm 312 */
																											int BgL_curz00_17485;

																											BgL_curz00_17485 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_10335,
																												BgL_forwardz00_17479);
																											{	/* Read/reader.scm 312 */

																												if (
																													((long)
																														(BgL_curz00_17485)
																														== 35L))
																													{	/* Read/reader.scm 312 */
																														BgL_matchz00_10559 =
																															BgL_newzd2matchzd2_10340;
																													}
																												else
																													{
																														long
																															BgL_bufposz00_32746;
																														long
																															BgL_forwardz00_32744;
																														long
																															BgL_lastzd2matchzd2_32743;
																														BgL_lastzd2matchzd2_32743
																															=
																															BgL_newzd2matchzd2_10340;
																														BgL_forwardz00_32744
																															=
																															(1L +
																															BgL_forwardz00_17479);
																														BgL_bufposz00_32746
																															=
																															BgL_bufposz00_17480;
																														BgL_bufposz00_10338
																															=
																															BgL_bufposz00_32746;
																														BgL_forwardz00_10337
																															=
																															BgL_forwardz00_32744;
																														BgL_lastzd2matchzd2_10336
																															=
																															BgL_lastzd2matchzd2_32743;
																														goto
																															BgL_zc3z04anonymousza36169ze3z87_10339;
																													}
																											}
																										}
																								}
																							}
																						else
																							{	/* Read/reader.scm 312 */
																								if (
																									((long) (BgL_curz00_10345) ==
																										35L))
																									{	/* Read/reader.scm 312 */
																										long BgL_arg6177z00_10349;

																										BgL_arg6177z00_10349 =
																											(1L +
																											BgL_forwardz00_10337);
																										{
																											long BgL_forwardz00_17500;
																											long BgL_bufposz00_17501;

																											BgL_forwardz00_17500 =
																												BgL_arg6177z00_10349;
																											BgL_bufposz00_17501 =
																												BgL_bufposz00_10338;
																										BgL_statezd27zd21054z00_17499:
																											if (
																												(BgL_forwardz00_17500 ==
																													BgL_bufposz00_17501))
																												{	/* Read/reader.scm 312 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_10335))
																														{	/* Read/reader.scm 312 */
																															long
																																BgL_arg6225z00_17504;
																															long
																																BgL_arg6226z00_17505;
																															BgL_arg6225z00_17504
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_10335);
																															BgL_arg6226z00_17505
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_10335);
																															{
																																long
																																	BgL_bufposz00_32758;
																																long
																																	BgL_forwardz00_32757;
																																BgL_forwardz00_32757
																																	=
																																	BgL_arg6225z00_17504;
																																BgL_bufposz00_32758
																																	=
																																	BgL_arg6226z00_17505;
																																BgL_bufposz00_17501
																																	=
																																	BgL_bufposz00_32758;
																																BgL_forwardz00_17500
																																	=
																																	BgL_forwardz00_32757;
																																goto
																																	BgL_statezd27zd21054z00_17499;
																															}
																														}
																													else
																														{	/* Read/reader.scm 312 */
																															BgL_matchz00_10559
																																=
																																BgL_newzd2matchzd2_10340;
																														}
																												}
																											else
																												{	/* Read/reader.scm 312 */
																													int BgL_curz00_17506;

																													BgL_curz00_17506 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_10335,
																														BgL_forwardz00_17500);
																													{	/* Read/reader.scm 312 */

																														if (
																															((long)
																																(BgL_curz00_17506)
																																== 124L))
																															{	/* Read/reader.scm 312 */
																																BgL_matchz00_10559
																																	=
																																	BgL_newzd2matchzd2_10340;
																															}
																														else
																															{
																																long
																																	BgL_bufposz00_32766;
																																long
																																	BgL_forwardz00_32764;
																																long
																																	BgL_lastzd2matchzd2_32763;
																																BgL_lastzd2matchzd2_32763
																																	=
																																	BgL_newzd2matchzd2_10340;
																																BgL_forwardz00_32764
																																	=
																																	(1L +
																																	BgL_forwardz00_17500);
																																BgL_bufposz00_32766
																																	=
																																	BgL_bufposz00_17501;
																																BgL_bufposz00_10338
																																	=
																																	BgL_bufposz00_32766;
																																BgL_forwardz00_10337
																																	=
																																	BgL_forwardz00_32764;
																																BgL_lastzd2matchzd2_10336
																																	=
																																	BgL_lastzd2matchzd2_32763;
																																goto
																																	BgL_zc3z04anonymousza36169ze3z87_10339;
																															}
																													}
																												}
																										}
																									}
																								else
																									{
																										long BgL_forwardz00_32768;
																										long
																											BgL_lastzd2matchzd2_32767;
																										BgL_lastzd2matchzd2_32767 =
																											BgL_newzd2matchzd2_10340;
																										BgL_forwardz00_32768 =
																											(1L +
																											BgL_forwardz00_10337);
																										BgL_forwardz00_10337 =
																											BgL_forwardz00_32768;
																										BgL_lastzd2matchzd2_10336 =
																											BgL_lastzd2matchzd2_32767;
																										goto
																											BgL_zc3z04anonymousza36169ze3z87_10339;
																									}
																							}
																					}
																				}
																		}
																	}
															}
														}
												}
											}
										else
											{	/* Read/reader.scm 312 */
												if (((long) (BgL_curz00_10374) == 35L))
													{	/* Read/reader.scm 312 */
														BgL_iportz00_10351 = BgL_iportz00_10365;
														BgL_lastzd2matchzd2_10352 =
															BgL_lastzd2matchzd2_10366;
														BgL_forwardz00_10353 = (1L + BgL_forwardz00_10367);
														BgL_bufposz00_10354 = BgL_bufposz00_10368;
													BgL_zc3z04anonymousza36179ze3z87_10355:
														{	/* Read/reader.scm 312 */
															long BgL_newzd2matchzd2_10356;

															RGC_STOP_MATCH(BgL_iportz00_10351,
																BgL_forwardz00_10353);
															BgL_newzd2matchzd2_10356 = 3L;
															if ((BgL_forwardz00_10353 == BgL_bufposz00_10354))
																{	/* Read/reader.scm 312 */
																	if (rgc_fill_buffer(BgL_iportz00_10351))
																		{	/* Read/reader.scm 312 */
																			long BgL_arg6182z00_10359;
																			long BgL_arg6183z00_10360;

																			BgL_arg6182z00_10359 =
																				RGC_BUFFER_FORWARD(BgL_iportz00_10351);
																			BgL_arg6183z00_10360 =
																				RGC_BUFFER_BUFPOS(BgL_iportz00_10351);
																			{
																				long BgL_bufposz00_32783;
																				long BgL_forwardz00_32782;

																				BgL_forwardz00_32782 =
																					BgL_arg6182z00_10359;
																				BgL_bufposz00_32783 =
																					BgL_arg6183z00_10360;
																				BgL_bufposz00_10354 =
																					BgL_bufposz00_32783;
																				BgL_forwardz00_10353 =
																					BgL_forwardz00_32782;
																				goto
																					BgL_zc3z04anonymousza36179ze3z87_10355;
																			}
																		}
																	else
																		{	/* Read/reader.scm 312 */
																			BgL_matchz00_10559 =
																				BgL_newzd2matchzd2_10356;
																		}
																}
															else
																{	/* Read/reader.scm 312 */
																	int BgL_curz00_10361;

																	BgL_curz00_10361 =
																		RGC_BUFFER_GET_CHAR(BgL_iportz00_10351,
																		BgL_forwardz00_10353);
																	{	/* Read/reader.scm 312 */

																		if (((long) (BgL_curz00_10361) == 124L))
																			{	/* Read/reader.scm 312 */
																				long BgL_arg6185z00_10363;

																				BgL_arg6185z00_10363 =
																					(1L + BgL_forwardz00_10353);
																				{	/* Read/reader.scm 312 */
																					long BgL_newzd2matchzd2_17530;

																					RGC_STOP_MATCH(BgL_iportz00_10351,
																						BgL_arg6185z00_10363);
																					BgL_newzd2matchzd2_17530 = 0L;
																					BgL_matchz00_10559 =
																						BgL_newzd2matchzd2_17530;
																			}}
																		else
																			{
																				long BgL_bufposz00_32794;
																				long BgL_forwardz00_32792;
																				long BgL_lastzd2matchzd2_32791;
																				obj_t BgL_iportz00_32790;

																				BgL_iportz00_32790 = BgL_iportz00_10351;
																				BgL_lastzd2matchzd2_32791 =
																					BgL_newzd2matchzd2_10356;
																				BgL_forwardz00_32792 =
																					(1L + BgL_forwardz00_10353);
																				BgL_bufposz00_32794 =
																					BgL_bufposz00_10354;
																				BgL_bufposz00_10338 =
																					BgL_bufposz00_32794;
																				BgL_forwardz00_10337 =
																					BgL_forwardz00_32792;
																				BgL_lastzd2matchzd2_10336 =
																					BgL_lastzd2matchzd2_32791;
																				BgL_iportz00_10335 = BgL_iportz00_32790;
																				goto
																					BgL_zc3z04anonymousza36169ze3z87_10339;
																			}
																	}
																}
														}
													}
												else
													{	/* Read/reader.scm 312 */
														BgL_iportz00_10380 = BgL_iportz00_10365;
														BgL_lastzd2matchzd2_10381 =
															BgL_lastzd2matchzd2_10366;
														BgL_forwardz00_10382 = (1L + BgL_forwardz00_10367);
														BgL_bufposz00_10383 = BgL_bufposz00_10368;
													BgL_zc3z04anonymousza36197ze3z87_10384:
														{	/* Read/reader.scm 312 */
															long BgL_newzd2matchzd2_10385;

															RGC_STOP_MATCH(BgL_iportz00_10380,
																BgL_forwardz00_10382);
															BgL_newzd2matchzd2_10385 = 1L;
															if ((BgL_forwardz00_10382 == BgL_bufposz00_10383))
																{	/* Read/reader.scm 312 */
																	if (rgc_fill_buffer(BgL_iportz00_10380))
																		{	/* Read/reader.scm 312 */
																			long BgL_arg6200z00_10388;
																			long BgL_arg6201z00_10389;

																			BgL_arg6200z00_10388 =
																				RGC_BUFFER_FORWARD(BgL_iportz00_10380);
																			BgL_arg6201z00_10389 =
																				RGC_BUFFER_BUFPOS(BgL_iportz00_10380);
																			{
																				long BgL_bufposz00_32804;
																				long BgL_forwardz00_32803;

																				BgL_forwardz00_32803 =
																					BgL_arg6200z00_10388;
																				BgL_bufposz00_32804 =
																					BgL_arg6201z00_10389;
																				BgL_bufposz00_10383 =
																					BgL_bufposz00_32804;
																				BgL_forwardz00_10382 =
																					BgL_forwardz00_32803;
																				goto
																					BgL_zc3z04anonymousza36197ze3z87_10384;
																			}
																		}
																	else
																		{	/* Read/reader.scm 312 */
																			BgL_matchz00_10559 =
																				BgL_newzd2matchzd2_10385;
																		}
																}
															else
																{	/* Read/reader.scm 312 */
																	int BgL_curz00_10390;

																	BgL_curz00_10390 =
																		RGC_BUFFER_GET_CHAR(BgL_iportz00_10380,
																		BgL_forwardz00_10382);
																	{	/* Read/reader.scm 312 */

																		if (((long) (BgL_curz00_10390) == 124L))
																			{	/* Read/reader.scm 312 */
																				long BgL_arg6203z00_10392;

																				BgL_arg6203z00_10392 =
																					(1L + BgL_forwardz00_10382);
																				{
																					long BgL_forwardz00_17558;
																					long BgL_bufposz00_17559;

																					BgL_forwardz00_17558 =
																						BgL_arg6203z00_10392;
																					BgL_bufposz00_17559 =
																						BgL_bufposz00_10383;
																				BgL_statezd28zd21055z00_17557:
																					if (
																						(BgL_forwardz00_17558 ==
																							BgL_bufposz00_17559))
																						{	/* Read/reader.scm 312 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_10380))
																								{	/* Read/reader.scm 312 */
																									long BgL_arg6218z00_17562;
																									long BgL_arg6219z00_17563;

																									BgL_arg6218z00_17562 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_10380);
																									BgL_arg6219z00_17563 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_10380);
																									{
																										long BgL_bufposz00_32817;
																										long BgL_forwardz00_32816;

																										BgL_forwardz00_32816 =
																											BgL_arg6218z00_17562;
																										BgL_bufposz00_32817 =
																											BgL_arg6219z00_17563;
																										BgL_bufposz00_17559 =
																											BgL_bufposz00_32817;
																										BgL_forwardz00_17558 =
																											BgL_forwardz00_32816;
																										goto
																											BgL_statezd28zd21055z00_17557;
																									}
																								}
																							else
																								{	/* Read/reader.scm 312 */
																									BgL_matchz00_10559 =
																										BgL_newzd2matchzd2_10385;
																								}
																						}
																					else
																						{	/* Read/reader.scm 312 */
																							int BgL_curz00_17564;

																							BgL_curz00_17564 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_10380,
																								BgL_forwardz00_17558);
																							{	/* Read/reader.scm 312 */

																								if (
																									((long) (BgL_curz00_17564) ==
																										35L))
																									{	/* Read/reader.scm 312 */
																										BgL_matchz00_10559 =
																											BgL_newzd2matchzd2_10385;
																									}
																								else
																									{
																										long BgL_bufposz00_32826;
																										long BgL_forwardz00_32824;
																										long
																											BgL_lastzd2matchzd2_32823;
																										obj_t BgL_iportz00_32822;

																										BgL_iportz00_32822 =
																											BgL_iportz00_10380;
																										BgL_lastzd2matchzd2_32823 =
																											BgL_newzd2matchzd2_10385;
																										BgL_forwardz00_32824 =
																											(1L +
																											BgL_forwardz00_17558);
																										BgL_bufposz00_32826 =
																											BgL_bufposz00_17559;
																										BgL_bufposz00_10338 =
																											BgL_bufposz00_32826;
																										BgL_forwardz00_10337 =
																											BgL_forwardz00_32824;
																										BgL_lastzd2matchzd2_10336 =
																											BgL_lastzd2matchzd2_32823;
																										BgL_iportz00_10335 =
																											BgL_iportz00_32822;
																										goto
																											BgL_zc3z04anonymousza36169ze3z87_10339;
																									}
																							}
																						}
																				}
																			}
																		else
																			{	/* Read/reader.scm 312 */
																				if (((long) (BgL_curz00_10390) == 35L))
																					{	/* Read/reader.scm 312 */
																						long BgL_arg6205z00_10394;

																						BgL_arg6205z00_10394 =
																							(1L + BgL_forwardz00_10382);
																						{
																							long BgL_forwardz00_17579;
																							long BgL_bufposz00_17580;

																							BgL_forwardz00_17579 =
																								BgL_arg6205z00_10394;
																							BgL_bufposz00_17580 =
																								BgL_bufposz00_10383;
																						BgL_statezd27zd21054z00_17578:
																							if (
																								(BgL_forwardz00_17579 ==
																									BgL_bufposz00_17580))
																								{	/* Read/reader.scm 312 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_10380))
																										{	/* Read/reader.scm 312 */
																											long BgL_arg6225z00_17583;
																											long BgL_arg6226z00_17584;

																											BgL_arg6225z00_17583 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_10380);
																											BgL_arg6226z00_17584 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_10380);
																											{
																												long
																													BgL_bufposz00_32838;
																												long
																													BgL_forwardz00_32837;
																												BgL_forwardz00_32837 =
																													BgL_arg6225z00_17583;
																												BgL_bufposz00_32838 =
																													BgL_arg6226z00_17584;
																												BgL_bufposz00_17580 =
																													BgL_bufposz00_32838;
																												BgL_forwardz00_17579 =
																													BgL_forwardz00_32837;
																												goto
																													BgL_statezd27zd21054z00_17578;
																											}
																										}
																									else
																										{	/* Read/reader.scm 312 */
																											BgL_matchz00_10559 =
																												BgL_newzd2matchzd2_10385;
																										}
																								}
																							else
																								{	/* Read/reader.scm 312 */
																									int BgL_curz00_17585;

																									BgL_curz00_17585 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_10380,
																										BgL_forwardz00_17579);
																									{	/* Read/reader.scm 312 */

																										if (
																											((long) (BgL_curz00_17585)
																												== 124L))
																											{	/* Read/reader.scm 312 */
																												BgL_matchz00_10559 =
																													BgL_newzd2matchzd2_10385;
																											}
																										else
																											{
																												long
																													BgL_bufposz00_32847;
																												long
																													BgL_forwardz00_32845;
																												long
																													BgL_lastzd2matchzd2_32844;
																												obj_t
																													BgL_iportz00_32843;
																												BgL_iportz00_32843 =
																													BgL_iportz00_10380;
																												BgL_lastzd2matchzd2_32844
																													=
																													BgL_newzd2matchzd2_10385;
																												BgL_forwardz00_32845 =
																													(1L +
																													BgL_forwardz00_17579);
																												BgL_bufposz00_32847 =
																													BgL_bufposz00_17580;
																												BgL_bufposz00_10338 =
																													BgL_bufposz00_32847;
																												BgL_forwardz00_10337 =
																													BgL_forwardz00_32845;
																												BgL_lastzd2matchzd2_10336
																													=
																													BgL_lastzd2matchzd2_32844;
																												BgL_iportz00_10335 =
																													BgL_iportz00_32843;
																												goto
																													BgL_zc3z04anonymousza36169ze3z87_10339;
																											}
																									}
																								}
																						}
																					}
																				else
																					{
																						long BgL_bufposz00_32852;
																						long BgL_forwardz00_32850;
																						long BgL_lastzd2matchzd2_32849;
																						obj_t BgL_iportz00_32848;

																						BgL_iportz00_32848 =
																							BgL_iportz00_10380;
																						BgL_lastzd2matchzd2_32849 =
																							BgL_newzd2matchzd2_10385;
																						BgL_forwardz00_32850 =
																							(1L + BgL_forwardz00_10382);
																						BgL_bufposz00_32852 =
																							BgL_bufposz00_10383;
																						BgL_bufposz00_10338 =
																							BgL_bufposz00_32852;
																						BgL_forwardz00_10337 =
																							BgL_forwardz00_32850;
																						BgL_lastzd2matchzd2_10336 =
																							BgL_lastzd2matchzd2_32849;
																						BgL_iportz00_10335 =
																							BgL_iportz00_32848;
																						goto
																							BgL_zc3z04anonymousza36169ze3z87_10339;
																					}
																			}
																	}
																}
														}
													}
											}
									}
								}
						}
						RGC_SET_FILEPOS(BgL_iportz00_10291);
						switch (BgL_matchz00_10559)
							{
							case 3L:

								{	/* Read/reader.scm 321 */
									obj_t BgL_cz00_10562;

									{	/* Read/reader.scm 312 */
										bool_t BgL_test10018z00_32855;

										{	/* Read/reader.scm 312 */
											long BgL_arg6310z00_10549;

											BgL_arg6310z00_10549 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10291);
											BgL_test10018z00_32855 = (BgL_arg6310z00_10549 == 0L);
										}
										if (BgL_test10018z00_32855)
											{	/* Read/reader.scm 312 */
												BgL_cz00_10562 = BEOF;
											}
										else
											{	/* Read/reader.scm 312 */
												BgL_cz00_10562 =
													BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10291));
											}
									}
									if (EOF_OBJECTP(BgL_cz00_10562))
										{	/* Read/reader.scm 322 */
											return
												BGl_readzd2errorzd2zz__readerz00
												(BGl_string6948z00zz__readerz00, BgL_cz00_10562,
												BgL_iportz00_10291);
										}
									else
										{	/* Read/reader.scm 322 */
											return BFALSE;
										}
								}
								break;
							case 2L:

								return BUNSPEC;
								break;
							case 1L:

								goto BgL_zc3z04anonymousza36316ze3z87_10558;
								break;
							case 0L:

								BGl_readzd2multizd2linezd2commentzd2zz__readerz00
									(BgL_iportz00_10291);
								goto BgL_zc3z04anonymousza36316ze3z87_10558;
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string6930z00zz__readerz00,
									BGl_string6931z00zz__readerz00, BINT(BgL_matchz00_10559));
							}
					}
				}
			}
		}

	}



/* bigloo-regular-grammar */
	BGL_EXPORTED_DEF obj_t BGl_bigloozd2regularzd2grammarz00zz__readerz00(void)
	{
		{	/* Read/reader.scm 811 */
			return BGl_za2bigloozd2grammarza2zd2zz__readerz00;
		}

	}



/* &bigloo-regular-grammar */
	obj_t BGl_z62bigloozd2regularzd2grammarz62zz__readerz00(obj_t
		BgL_envz00_18132)
	{
		{	/* Read/reader.scm 811 */
			return BGl_bigloozd2regularzd2grammarz00zz__readerz00();
		}

	}



/* _read */
	obj_t BGl__readz00zz__readerz00(obj_t BgL_env1423z00_36,
		obj_t BgL_opt1422z00_35)
	{
		{	/* Read/reader.scm 817 */
			{	/* Read/reader.scm 817 */

				{	/* Read/reader.scm 817 */
					long BgL_aux1425z00_10606;

					{
						obj_t BgL_auxz00_32868;

						if (VECTORP(BgL_opt1422z00_35))
							{	/* Read/reader.scm 817 */
								BgL_auxz00_32868 = BgL_opt1422z00_35;
							}
						else
							{
								obj_t BgL_auxz00_32871;

								BgL_auxz00_32871 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string6942z00zz__readerz00, BINT(27806L),
									BGl_string6949z00zz__readerz00,
									BGl_string6950z00zz__readerz00, BgL_opt1422z00_35);
								FAILURE(BgL_auxz00_32871, BFALSE, BFALSE);
							}
						BgL_aux1425z00_10606 = VECTOR_LENGTH(BgL_auxz00_32868);
					}
					switch (BgL_aux1425z00_10606)
						{
						case 0L:

							{	/* Read/reader.scm 817 */
								obj_t BgL_iportz00_10607;

								{	/* Read/reader.scm 817 */
									obj_t BgL_tmpz00_32876;

									BgL_tmpz00_32876 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_iportz00_10607 =
										BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_32876);
								}
								{	/* Read/reader.scm 817 */

									if (INPUT_PORT_CLOSEP(BgL_iportz00_10607))
										{	/* Read/reader.scm 820 */
											return
												BGl_errorz00zz__errorz00(BGl_symbol6871z00zz__readerz00,
												BGl_string6932z00zz__readerz00, BgL_iportz00_10607);
										}
									else
										{	/* Read/reader.scm 826 */
											obj_t BgL_fun6323z00_17692;

											BgL_fun6323z00_17692 =
												BGl_za2bigloozd2grammarza2zd2zz__readerz00;
											{	/* Read/reader.scm 826 */
												obj_t BgL_tmpfunz00_32893;

												{	/* Read/reader.scm 826 */
													bool_t BgL_test6826z00_18192;

													BgL_test6826z00_18192 =
														PROCEDUREP(BgL_fun6323z00_17692);
													if (BgL_test6826z00_18192)
														{	/* Read/reader.scm 826 */
															BgL_tmpfunz00_32893 = BgL_fun6323z00_17692;
														}
													else
														{
															obj_t BgL_auxz00_32896;

															BgL_auxz00_32896 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string6942z00zz__readerz00, BINT(28352L),
																BGl_string6949z00zz__readerz00,
																BGl_string6951z00zz__readerz00,
																BgL_fun6323z00_17692);
															FAILURE(BgL_auxz00_32896, BFALSE, BFALSE);
														}
												}
												return
													(VA_PROCEDUREP(BgL_tmpfunz00_32893)
													? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_tmpfunz00_32893))
													(BgL_fun6323z00_17692, BgL_iportz00_10607, BFALSE,
														BGl_vector6933z00zz__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_32893))
													(BgL_fun6323z00_17692, BgL_iportz00_10607, BFALSE,
														BGl_vector6933z00zz__readerz00, BINT(0L), BINT(0L),
														BNIL, BNIL));
											}
										}
								}
							}
							break;
						case 1L:

							{	/* Read/reader.scm 817 */
								obj_t BgL_iportz00_10609;

								{
									obj_t BgL_auxz00_32900;

									if (VECTORP(BgL_opt1422z00_35))
										{	/* Read/reader.scm 817 */
											BgL_auxz00_32900 = BgL_opt1422z00_35;
										}
									else
										{
											obj_t BgL_auxz00_32903;

											BgL_auxz00_32903 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string6942z00zz__readerz00, BINT(27806L),
												BGl_string6949z00zz__readerz00,
												BGl_string6950z00zz__readerz00, BgL_opt1422z00_35);
											FAILURE(BgL_auxz00_32903, BFALSE, BFALSE);
										}
									BgL_iportz00_10609 = VECTOR_REF(BgL_auxz00_32900, 0L);
								}
								{	/* Read/reader.scm 817 */

									{	/* Read/reader.scm 817 */
										obj_t BgL_iportz00_17694;

										if (INPUT_PORTP(BgL_iportz00_10609))
											{	/* Read/reader.scm 817 */
												BgL_iportz00_17694 = BgL_iportz00_10609;
											}
										else
											{
												obj_t BgL_auxz00_32910;

												BgL_auxz00_32910 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string6942z00zz__readerz00, BINT(27806L),
													BGl_string6949z00zz__readerz00,
													BGl_string6952z00zz__readerz00, BgL_iportz00_10609);
												FAILURE(BgL_auxz00_32910, BFALSE, BFALSE);
											}
										if (INPUT_PORT_CLOSEP(BgL_iportz00_17694))
											{	/* Read/reader.scm 820 */
												return
													BGl_errorz00zz__errorz00
													(BGl_symbol6871z00zz__readerz00,
													BGl_string6932z00zz__readerz00, BgL_iportz00_17694);
											}
										else
											{	/* Read/reader.scm 826 */
												obj_t BgL_fun6323z00_17696;

												BgL_fun6323z00_17696 =
													BGl_za2bigloozd2grammarza2zd2zz__readerz00;
												{	/* Read/reader.scm 826 */
													obj_t BgL_tmpfunz00_32928;

													{	/* Read/reader.scm 826 */
														bool_t BgL_test6832z00_18198;

														BgL_test6832z00_18198 =
															PROCEDUREP(BgL_fun6323z00_17696);
														if (BgL_test6832z00_18198)
															{	/* Read/reader.scm 826 */
																BgL_tmpfunz00_32928 = BgL_fun6323z00_17696;
															}
														else
															{
																obj_t BgL_auxz00_32931;

																BgL_auxz00_32931 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string6942z00zz__readerz00, BINT(28352L),
																	BGl_string6949z00zz__readerz00,
																	BGl_string6951z00zz__readerz00,
																	BgL_fun6323z00_17696);
																FAILURE(BgL_auxz00_32931, BFALSE, BFALSE);
															}
													}
													return
														(VA_PROCEDUREP(BgL_tmpfunz00_32928)
														? ((obj_t(*)(obj_t,
																	...))
															PROCEDURE_ENTRY(BgL_tmpfunz00_32928))
														(BgL_fun6323z00_17696, BgL_iportz00_17694, BFALSE,
															BGl_vector6933z00zz__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_32928))
														(BgL_fun6323z00_17696, BgL_iportz00_17694, BFALSE,
															BGl_vector6933z00zz__readerz00, BINT(0L),
															BINT(0L), BNIL, BNIL));
												}
											}
									}
								}
							}
							break;
						case 2L:

							{	/* Read/reader.scm 817 */
								obj_t BgL_iportz00_10611;

								{
									obj_t BgL_auxz00_32935;

									if (VECTORP(BgL_opt1422z00_35))
										{	/* Read/reader.scm 817 */
											BgL_auxz00_32935 = BgL_opt1422z00_35;
										}
									else
										{
											obj_t BgL_auxz00_32938;

											BgL_auxz00_32938 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string6942z00zz__readerz00, BINT(27806L),
												BGl_string6949z00zz__readerz00,
												BGl_string6950z00zz__readerz00, BgL_opt1422z00_35);
											FAILURE(BgL_auxz00_32938, BFALSE, BFALSE);
										}
									BgL_iportz00_10611 = VECTOR_REF(BgL_auxz00_32935, 0L);
								}
								{	/* Read/reader.scm 817 */
									obj_t BgL_locationz00_10612;

									{
										obj_t BgL_auxz00_32943;

										if (VECTORP(BgL_opt1422z00_35))
											{	/* Read/reader.scm 817 */
												BgL_auxz00_32943 = BgL_opt1422z00_35;
											}
										else
											{
												obj_t BgL_auxz00_32946;

												BgL_auxz00_32946 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string6942z00zz__readerz00, BINT(27806L),
													BGl_string6949z00zz__readerz00,
													BGl_string6950z00zz__readerz00, BgL_opt1422z00_35);
												FAILURE(BgL_auxz00_32946, BFALSE, BFALSE);
											}
										BgL_locationz00_10612 = VECTOR_REF(BgL_auxz00_32943, 1L);
									}
									{	/* Read/reader.scm 817 */

										{	/* Read/reader.scm 817 */
											obj_t BgL_iportz00_17698;

											if (INPUT_PORTP(BgL_iportz00_10611))
												{	/* Read/reader.scm 817 */
													BgL_iportz00_17698 = BgL_iportz00_10611;
												}
											else
												{
													obj_t BgL_auxz00_32953;

													BgL_auxz00_32953 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string6942z00zz__readerz00, BINT(27806L),
														BGl_string6949z00zz__readerz00,
														BGl_string6952z00zz__readerz00, BgL_iportz00_10611);
													FAILURE(BgL_auxz00_32953, BFALSE, BFALSE);
												}
											if (INPUT_PORT_CLOSEP(BgL_iportz00_17698))
												{	/* Read/reader.scm 820 */
													return
														BGl_errorz00zz__errorz00
														(BGl_symbol6871z00zz__readerz00,
														BGl_string6932z00zz__readerz00, BgL_iportz00_17698);
												}
											else
												{	/* Read/reader.scm 826 */
													obj_t BgL_fun6323z00_17700;

													BgL_fun6323z00_17700 =
														BGl_za2bigloozd2grammarza2zd2zz__readerz00;
													{	/* Read/reader.scm 826 */
														obj_t BgL_tmpfunz00_32971;

														{	/* Read/reader.scm 826 */
															bool_t BgL_test6840z00_18206;

															BgL_test6840z00_18206 =
																PROCEDUREP(BgL_fun6323z00_17700);
															if (BgL_test6840z00_18206)
																{	/* Read/reader.scm 826 */
																	BgL_tmpfunz00_32971 = BgL_fun6323z00_17700;
																}
															else
																{
																	obj_t BgL_auxz00_32974;

																	BgL_auxz00_32974 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string6942z00zz__readerz00,
																		BINT(28352L),
																		BGl_string6949z00zz__readerz00,
																		BGl_string6951z00zz__readerz00,
																		BgL_fun6323z00_17700);
																	FAILURE(BgL_auxz00_32974, BFALSE, BFALSE);
																}
														}
														return
															(VA_PROCEDUREP(BgL_tmpfunz00_32971)
															? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_tmpfunz00_32971))
															(BgL_fun6323z00_17700, BgL_iportz00_17698,
																BgL_locationz00_10612,
																BGl_vector6933z00zz__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_32971))
															(BgL_fun6323z00_17700, BgL_iportz00_17698,
																BgL_locationz00_10612,
																BGl_vector6933z00zz__readerz00, BINT(0L),
																BINT(0L), BNIL, BNIL));
													}
												}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* read */
	BGL_EXPORTED_DEF obj_t BGl_readz00zz__readerz00(obj_t BgL_iportz00_33,
		obj_t BgL_locationz00_34)
	{
		{	/* Read/reader.scm 817 */
			if (INPUT_PORT_CLOSEP(BgL_iportz00_33))
				{	/* Read/reader.scm 820 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol6871z00zz__readerz00,
						BGl_string6932z00zz__readerz00, BgL_iportz00_33);
				}
			else
				{	/* Read/reader.scm 826 */
					obj_t BgL_fun6323z00_17703;

					BgL_fun6323z00_17703 = BGl_za2bigloozd2grammarza2zd2zz__readerz00;
					return
						(VA_PROCEDUREP(BgL_fun6323z00_17703) ? ((obj_t(*)(obj_t,
									...))
							PROCEDURE_ENTRY(BgL_fun6323z00_17703)) (BgL_fun6323z00_17703,
							BgL_iportz00_33, BgL_locationz00_34,
							BGl_vector6933z00zz__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_fun6323z00_17703)) (BgL_fun6323z00_17703,
							BgL_iportz00_33, BgL_locationz00_34,
							BGl_vector6933z00zz__readerz00, BINT(0L), BINT(0L), BNIL, BNIL));
				}
		}

	}



/* read/case */
	BGL_EXPORTED_DEF obj_t BGl_readzf2casezf2zz__readerz00(obj_t BgL_casez00_37,
		obj_t BgL_inputzd2portzd2_38)
	{
		{	/* Read/reader.scm 831 */
			{	/* Read/reader.scm 832 */
				obj_t BgL_oldz00_17705;

				BgL_oldz00_17705 = BGl_bigloozd2casezd2sensitivez00zz__paramz00();
				BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(
					((obj_t) BgL_casez00_37));
				{	/* Read/reader.scm 834 */
					obj_t BgL_exitd1343z00_17706;

					BgL_exitd1343z00_17706 = BGL_EXITD_TOP_AS_OBJ();
					{	/* Read/reader.scm 836 */
						obj_t BgL_zc3z04anonymousza36324ze3z87_18133;

						BgL_zc3z04anonymousza36324ze3z87_18133 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza36324ze3ze5zz__readerz00, (int) (0L),
							(int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza36324ze3z87_18133, (int) (0L),
							BgL_oldz00_17705);
						{	/* Read/reader.scm 834 */
							obj_t BgL_arg6609z00_17711;

							{	/* Read/reader.scm 834 */
								obj_t BgL_arg6610z00_17712;

								BgL_arg6610z00_17712 =
									BGL_EXITD_PROTECT(BgL_exitd1343z00_17706);
								BgL_arg6609z00_17711 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza36324ze3z87_18133,
									BgL_arg6610z00_17712);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17706,
								BgL_arg6609z00_17711);
							BUNSPEC;
						}
						{	/* Read/reader.scm 835 */
							obj_t BgL_tmp1345z00_17708;

							BgL_tmp1345z00_17708 =
								apply(BGl_readzd2envzd2zz__readerz00, BgL_inputzd2portzd2_38);
							{	/* Read/reader.scm 834 */
								bool_t BgL_test10033z00_33008;

								{	/* Read/reader.scm 834 */
									obj_t BgL_arg6608z00_17714;

									BgL_arg6608z00_17714 =
										BGL_EXITD_PROTECT(BgL_exitd1343z00_17706);
									BgL_test10033z00_33008 = PAIRP(BgL_arg6608z00_17714);
								}
								if (BgL_test10033z00_33008)
									{	/* Read/reader.scm 834 */
										obj_t BgL_arg6606z00_17715;

										{	/* Read/reader.scm 834 */
											obj_t BgL_arg6607z00_17716;

											BgL_arg6607z00_17716 =
												BGL_EXITD_PROTECT(BgL_exitd1343z00_17706);
											BgL_arg6606z00_17715 =
												CDR(((obj_t) BgL_arg6607z00_17716));
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17706,
											BgL_arg6606z00_17715);
										BUNSPEC;
									}
								else
									{	/* Read/reader.scm 834 */
										BFALSE;
									}
							}
							BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
								(BgL_oldz00_17705);
							return BgL_tmp1345z00_17708;
						}
					}
				}
			}
		}

	}



/* &read/case */
	obj_t BGl_z62readzf2casez90zz__readerz00(obj_t BgL_envz00_18134,
		obj_t BgL_casez00_18135, obj_t BgL_inputzd2portzd2_18136)
	{
		{	/* Read/reader.scm 831 */
			return
				BGl_readzf2casezf2zz__readerz00(BgL_casez00_18135,
				BgL_inputzd2portzd2_18136);
		}

	}



/* &<@anonymous:6324> */
	obj_t BGl_z62zc3z04anonymousza36324ze3ze5zz__readerz00(obj_t BgL_envz00_18137)
	{
		{	/* Read/reader.scm 834 */
			{	/* Read/reader.scm 836 */
				obj_t BgL_oldz00_18138;

				BgL_oldz00_18138 =
					((obj_t) PROCEDURE_REF(BgL_envz00_18137, (int) (0L)));
				return
					BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
					(BgL_oldz00_18138);
			}
		}

	}



/* read-case-sensitive */
	BGL_EXPORTED_DEF obj_t BGl_readzd2casezd2sensitivez00zz__readerz00(obj_t
		BgL_inputzd2portzd2_39)
	{
		{	/* Read/reader.scm 843 */
			{	/* Read/reader.scm 844 */
				obj_t BgL_runner6327z00_17719;

				{	/* Read/reader.scm 844 */
					obj_t BgL_list6325z00_17720;

					BgL_list6325z00_17720 = MAKE_YOUNG_PAIR(BgL_inputzd2portzd2_39, BNIL);
					BgL_runner6327z00_17719 =
						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
						(BGl_symbol6887z00zz__readerz00, BgL_list6325z00_17720);
				}
				{	/* Read/reader.scm 844 */
					obj_t BgL_aux6326z00_17721;

					BgL_aux6326z00_17721 = CAR(BgL_runner6327z00_17719);
					BgL_runner6327z00_17719 = CDR(BgL_runner6327z00_17719);
					{	/* Read/reader.scm 844 */
						obj_t BgL_inputzd2portzd2_17724;

						BgL_inputzd2portzd2_17724 = BgL_runner6327z00_17719;
						{	/* Read/reader.scm 832 */
							obj_t BgL_oldz00_17725;

							BgL_oldz00_17725 = BGl_bigloozd2casezd2sensitivez00zz__paramz00();
							BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(
								((obj_t) BgL_aux6326z00_17721));
							{	/* Read/reader.scm 834 */
								obj_t BgL_exitd1343z00_17726;

								BgL_exitd1343z00_17726 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Read/reader.scm 836 */
									obj_t BgL_zc3z04anonymousza36324ze3z87_18139;

									BgL_zc3z04anonymousza36324ze3z87_18139 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza36324ze36811ze5zz__readerz00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza36324ze3z87_18139,
										(int) (0L), BgL_oldz00_17725);
									{	/* Read/reader.scm 834 */
										obj_t BgL_arg6609z00_17731;

										{	/* Read/reader.scm 834 */
											obj_t BgL_arg6610z00_17732;

											BgL_arg6610z00_17732 =
												BGL_EXITD_PROTECT(BgL_exitd1343z00_17726);
											BgL_arg6609z00_17731 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza36324ze3z87_18139,
												BgL_arg6610z00_17732);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17726,
											BgL_arg6609z00_17731);
										BUNSPEC;
									}
									{	/* Read/reader.scm 835 */
										obj_t BgL_tmp1345z00_17728;

										BgL_tmp1345z00_17728 =
											apply(BGl_readzd2envzd2zz__readerz00,
											BgL_inputzd2portzd2_17724);
										{	/* Read/reader.scm 834 */
											bool_t BgL_test10034z00_33039;

											{	/* Read/reader.scm 834 */
												obj_t BgL_arg6608z00_17734;

												BgL_arg6608z00_17734 =
													BGL_EXITD_PROTECT(BgL_exitd1343z00_17726);
												BgL_test10034z00_33039 = PAIRP(BgL_arg6608z00_17734);
											}
											if (BgL_test10034z00_33039)
												{	/* Read/reader.scm 834 */
													obj_t BgL_arg6606z00_17735;

													{	/* Read/reader.scm 834 */
														obj_t BgL_arg6607z00_17736;

														BgL_arg6607z00_17736 =
															BGL_EXITD_PROTECT(BgL_exitd1343z00_17726);
														BgL_arg6606z00_17735 =
															CDR(((obj_t) BgL_arg6607z00_17736));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17726,
														BgL_arg6606z00_17735);
													BUNSPEC;
												}
											else
												{	/* Read/reader.scm 834 */
													BFALSE;
												}
										}
										BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
											(BgL_oldz00_17725);
										return BgL_tmp1345z00_17728;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &read-case-sensitive */
	obj_t BGl_z62readzd2casezd2sensitivez62zz__readerz00(obj_t BgL_envz00_18140,
		obj_t BgL_inputzd2portzd2_18141)
	{
		{	/* Read/reader.scm 843 */
			return
				BGl_readzd2casezd2sensitivez00zz__readerz00(BgL_inputzd2portzd2_18141);
		}

	}



/* &<@anonymous:6324>6811 */
	obj_t BGl_z62zc3z04anonymousza36324ze36811ze5zz__readerz00(obj_t
		BgL_envz00_18142)
	{
		{	/* Read/reader.scm 834 */
			{	/* Read/reader.scm 836 */
				obj_t BgL_oldz00_18143;

				BgL_oldz00_18143 =
					((obj_t) PROCEDURE_REF(BgL_envz00_18142, (int) (0L)));
				return
					BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
					(BgL_oldz00_18143);
			}
		}

	}



/* read-case-insensitive */
	BGL_EXPORTED_DEF obj_t BGl_readzd2casezd2insensitivez00zz__readerz00(obj_t
		BgL_inputzd2portzd2_40)
	{
		{	/* Read/reader.scm 851 */
			{	/* Read/reader.scm 852 */
				obj_t BgL_runner6330z00_17739;

				{	/* Read/reader.scm 852 */
					obj_t BgL_list6328z00_17740;

					BgL_list6328z00_17740 = MAKE_YOUNG_PAIR(BgL_inputzd2portzd2_40, BNIL);
					BgL_runner6330z00_17739 =
						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
						(BGl_symbol6885z00zz__readerz00, BgL_list6328z00_17740);
				}
				{	/* Read/reader.scm 852 */
					obj_t BgL_aux6329z00_17741;

					BgL_aux6329z00_17741 = CAR(BgL_runner6330z00_17739);
					BgL_runner6330z00_17739 = CDR(BgL_runner6330z00_17739);
					{	/* Read/reader.scm 852 */
						obj_t BgL_inputzd2portzd2_17744;

						BgL_inputzd2portzd2_17744 = BgL_runner6330z00_17739;
						{	/* Read/reader.scm 832 */
							obj_t BgL_oldz00_17745;

							BgL_oldz00_17745 = BGl_bigloozd2casezd2sensitivez00zz__paramz00();
							BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(
								((obj_t) BgL_aux6329z00_17741));
							{	/* Read/reader.scm 834 */
								obj_t BgL_exitd1343z00_17746;

								BgL_exitd1343z00_17746 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Read/reader.scm 836 */
									obj_t BgL_zc3z04anonymousza36324ze3z87_18144;

									BgL_zc3z04anonymousza36324ze3z87_18144 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza36324ze36812ze5zz__readerz00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza36324ze3z87_18144,
										(int) (0L), BgL_oldz00_17745);
									{	/* Read/reader.scm 834 */
										obj_t BgL_arg6609z00_17751;

										{	/* Read/reader.scm 834 */
											obj_t BgL_arg6610z00_17752;

											BgL_arg6610z00_17752 =
												BGL_EXITD_PROTECT(BgL_exitd1343z00_17746);
											BgL_arg6609z00_17751 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza36324ze3z87_18144,
												BgL_arg6610z00_17752);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17746,
											BgL_arg6609z00_17751);
										BUNSPEC;
									}
									{	/* Read/reader.scm 835 */
										obj_t BgL_tmp1345z00_17748;

										BgL_tmp1345z00_17748 =
											apply(BGl_readzd2envzd2zz__readerz00,
											BgL_inputzd2portzd2_17744);
										{	/* Read/reader.scm 834 */
											bool_t BgL_test10035z00_33070;

											{	/* Read/reader.scm 834 */
												obj_t BgL_arg6608z00_17754;

												BgL_arg6608z00_17754 =
													BGL_EXITD_PROTECT(BgL_exitd1343z00_17746);
												BgL_test10035z00_33070 = PAIRP(BgL_arg6608z00_17754);
											}
											if (BgL_test10035z00_33070)
												{	/* Read/reader.scm 834 */
													obj_t BgL_arg6606z00_17755;

													{	/* Read/reader.scm 834 */
														obj_t BgL_arg6607z00_17756;

														BgL_arg6607z00_17756 =
															BGL_EXITD_PROTECT(BgL_exitd1343z00_17746);
														BgL_arg6606z00_17755 =
															CDR(((obj_t) BgL_arg6607z00_17756));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17746,
														BgL_arg6606z00_17755);
													BUNSPEC;
												}
											else
												{	/* Read/reader.scm 834 */
													BFALSE;
												}
										}
										BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
											(BgL_oldz00_17745);
										return BgL_tmp1345z00_17748;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &read-case-insensitive */
	obj_t BGl_z62readzd2casezd2insensitivez62zz__readerz00(obj_t BgL_envz00_18145,
		obj_t BgL_inputzd2portzd2_18146)
	{
		{	/* Read/reader.scm 851 */
			return
				BGl_readzd2casezd2insensitivez00zz__readerz00
				(BgL_inputzd2portzd2_18146);
		}

	}



/* &<@anonymous:6324>6812 */
	obj_t BGl_z62zc3z04anonymousza36324ze36812ze5zz__readerz00(obj_t
		BgL_envz00_18147)
	{
		{	/* Read/reader.scm 834 */
			{	/* Read/reader.scm 836 */
				obj_t BgL_oldz00_18148;

				BgL_oldz00_18148 =
					((obj_t) PROCEDURE_REF(BgL_envz00_18147, (int) (0L)));
				return
					BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
					(BgL_oldz00_18148);
			}
		}

	}



/* port->list */
	BGL_EXPORTED_DEF obj_t BGl_portzd2ze3listz31zz__readerz00(obj_t
		BgL_readerz00_41, obj_t BgL_ipz00_42)
	{
		{	/* Read/reader.scm 857 */
			{
				obj_t BgL_expz00_17772;

				BgL_expz00_17772 = BNIL;
			BgL_loopz00_17771:
				{	/* Read/reader.scm 859 */
					obj_t BgL_ez00_17776;

					BgL_ez00_17776 =
						(VA_PROCEDUREP(BgL_readerz00_41) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_readerz00_41)) (BgL_readerz00_41,
							BgL_ipz00_42, BEOA) : ((obj_t(*)(obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_readerz00_41)) (BgL_readerz00_41,
							BgL_ipz00_42));
					if (EOF_OBJECTP(BgL_ez00_17776))
						{	/* Read/reader.scm 860 */
							return bgl_reverse_bang(BgL_expz00_17772);
						}
					else
						{	/* Read/reader.scm 862 */
							obj_t BgL_arg6333z00_17778;

							BgL_arg6333z00_17778 =
								MAKE_YOUNG_PAIR(BgL_ez00_17776, BgL_expz00_17772);
							{
								obj_t BgL_expz00_33091;

								BgL_expz00_33091 = BgL_arg6333z00_17778;
								BgL_expz00_17772 = BgL_expz00_33091;
								goto BgL_loopz00_17771;
							}
						}
				}
			}
		}

	}



/* &port->list */
	obj_t BGl_z62portzd2ze3listz53zz__readerz00(obj_t BgL_envz00_18149,
		obj_t BgL_readerz00_18150, obj_t BgL_ipz00_18151)
	{
		{	/* Read/reader.scm 857 */
			{	/* Read/reader.scm 858 */
				obj_t BgL_auxz00_33099;
				obj_t BgL_auxz00_33092;

				if (INPUT_PORTP(BgL_ipz00_18151))
					{	/* Read/reader.scm 858 */
						BgL_auxz00_33099 = BgL_ipz00_18151;
					}
				else
					{
						obj_t BgL_auxz00_33102;

						BgL_auxz00_33102 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6942z00zz__readerz00,
							BINT(30031L), BGl_string6953z00zz__readerz00,
							BGl_string6952z00zz__readerz00, BgL_ipz00_18151);
						FAILURE(BgL_auxz00_33102, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_readerz00_18150))
					{	/* Read/reader.scm 858 */
						BgL_auxz00_33092 = BgL_readerz00_18150;
					}
				else
					{
						obj_t BgL_auxz00_33095;

						BgL_auxz00_33095 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6942z00zz__readerz00,
							BINT(30031L), BGl_string6953z00zz__readerz00,
							BGl_string6951z00zz__readerz00, BgL_readerz00_18150);
						FAILURE(BgL_auxz00_33095, BFALSE, BFALSE);
					}
				return
					BGl_portzd2ze3listz31zz__readerz00(BgL_auxz00_33092,
					BgL_auxz00_33099);
			}
		}

	}



/* _port->sexp-list */
	obj_t BGl__portzd2ze3sexpzd2listze3zz__readerz00(obj_t BgL_env1427z00_46,
		obj_t BgL_opt1426z00_45)
	{
		{	/* Read/reader.scm 867 */
			{	/* Read/reader.scm 867 */
				obj_t BgL_g1428z00_10635;

				BgL_g1428z00_10635 = VECTOR_REF(BgL_opt1426z00_45, 0L);
				switch (VECTOR_LENGTH(BgL_opt1426z00_45))
					{
					case 1L:

						{	/* Read/reader.scm 867 */

							{	/* Read/reader.scm 867 */
								obj_t BgL_ipz00_17779;

								if (INPUT_PORTP(BgL_g1428z00_10635))
									{	/* Read/reader.scm 867 */
										BgL_ipz00_17779 = BgL_g1428z00_10635;
									}
								else
									{
										obj_t BgL_auxz00_33110;

										BgL_auxz00_33110 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string6942z00zz__readerz00, BINT(30381L),
											BGl_string6954z00zz__readerz00,
											BGl_string6952z00zz__readerz00, BgL_g1428z00_10635);
										FAILURE(BgL_auxz00_33110, BFALSE, BFALSE);
									}
								return
									BGl_portzd2ze3listz31zz__readerz00
									(BGl_proc6955z00zz__readerz00, BgL_ipz00_17779);
							}
						}
						break;
					case 2L:

						{	/* Read/reader.scm 867 */
							obj_t BgL_locationz00_10639;

							BgL_locationz00_10639 = VECTOR_REF(BgL_opt1426z00_45, 1L);
							{	/* Read/reader.scm 867 */

								{	/* Read/reader.scm 867 */
									obj_t BgL_ipz00_17782;

									if (INPUT_PORTP(BgL_g1428z00_10635))
										{	/* Read/reader.scm 867 */
											BgL_ipz00_17782 = BgL_g1428z00_10635;
										}
									else
										{
											obj_t BgL_auxz00_33118;

											BgL_auxz00_33118 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string6942z00zz__readerz00, BINT(30381L),
												BGl_string6954z00zz__readerz00,
												BGl_string6952z00zz__readerz00, BgL_g1428z00_10635);
											FAILURE(BgL_auxz00_33118, BFALSE, BFALSE);
										}
									{	/* Read/reader.scm 868 */
										obj_t BgL_zc3z04anonymousza36335ze3z87_18152;

										BgL_zc3z04anonymousza36335ze3z87_18152 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza36335ze3ze5zz__readerz00,
											(int) (1L), (int) (1L));
										PROCEDURE_SET(BgL_zc3z04anonymousza36335ze3z87_18152,
											(int) (0L), BgL_locationz00_10639);
										return
											BGl_portzd2ze3listz31zz__readerz00
											(BgL_zc3z04anonymousza36335ze3z87_18152, BgL_ipz00_17782);
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* &<@anonymous:6335> */
	obj_t BGl_z62zc3z04anonymousza36335ze3ze5zz__readerz00(obj_t BgL_envz00_18154,
		obj_t BgL_ipz00_18156)
	{
		{	/* Read/reader.scm 868 */
			return
				BGl_readz00zz__readerz00(BgL_ipz00_18156,
				PROCEDURE_REF(BgL_envz00_18154, (int) (0L)));
		}

	}



/* &<@anonymous:6335>6813 */
	obj_t BGl_z62zc3z04anonymousza36335ze36813ze5zz__readerz00(obj_t
		BgL_envz00_18157, obj_t BgL_ipz00_18158)
	{
		{	/* Read/reader.scm 868 */
			return BGl_readz00zz__readerz00(BgL_ipz00_18158, BFALSE);
		}

	}



/* port->sexp-list */
	BGL_EXPORTED_DEF obj_t BGl_portzd2ze3sexpzd2listze3zz__readerz00(obj_t
		BgL_ipz00_43, obj_t BgL_locationz00_44)
	{
		{	/* Read/reader.scm 867 */
			{	/* Read/reader.scm 868 */
				obj_t BgL_res6810z00_17801;

				{
					obj_t BgL_expz00_17794;

					BgL_expz00_17794 = BNIL;
				BgL_loopz00_17793:
					{	/* Read/reader.scm 859 */
						obj_t BgL_ez00_17798;

						BgL_ez00_17798 =
							BGl_readz00zz__readerz00(BgL_ipz00_43, BgL_locationz00_44);
						if (EOF_OBJECTP(BgL_ez00_17798))
							{	/* Read/reader.scm 860 */
								BgL_res6810z00_17801 = bgl_reverse_bang(BgL_expz00_17794);
							}
						else
							{	/* Read/reader.scm 862 */
								obj_t BgL_arg6333z00_17800;

								BgL_arg6333z00_17800 =
									MAKE_YOUNG_PAIR(BgL_ez00_17798, BgL_expz00_17794);
								{
									obj_t BgL_expz00_33139;

									BgL_expz00_33139 = BgL_arg6333z00_17800;
									BgL_expz00_17794 = BgL_expz00_33139;
									goto BgL_loopz00_17793;
								}
							}
					}
				}
				return BgL_res6810z00_17801;
			}
		}

	}



/* define-reader-ctor */
	BGL_EXPORTED_DEF obj_t BGl_definezd2readerzd2ctorz00zz__readerz00(obj_t
		BgL_symz00_48, obj_t BgL_procz00_49)
	{
		{	/* Read/reader.scm 886 */
			{	/* Read/reader.scm 887 */
				obj_t BgL_cz00_17805;

				BgL_cz00_17805 =
					BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_symz00_48,
					BGl_za2readerzd2ctorsza2zd2zz__readerz00);
				if (PAIRP(BgL_cz00_17805))
					{	/* Read/reader.scm 889 */
						obj_t BgL_xz00_18215;

						BgL_xz00_18215 = SET_CDR(BgL_cz00_17805, BgL_procz00_49);
						return BUNSPEC;
					}
				else
					{	/* Read/reader.scm 890 */
						obj_t BgL_arg6338z00_17807;

						BgL_arg6338z00_17807 =
							MAKE_YOUNG_PAIR(BgL_symz00_48, BgL_procz00_49);
						return (BGl_za2readerzd2ctorsza2zd2zz__readerz00 =
							MAKE_YOUNG_PAIR(BgL_arg6338z00_17807,
								BGl_za2readerzd2ctorsza2zd2zz__readerz00), BUNSPEC);
					}
			}
		}

	}



/* &define-reader-ctor */
	obj_t BGl_z62definezd2readerzd2ctorz62zz__readerz00(obj_t BgL_envz00_18159,
		obj_t BgL_symz00_18160, obj_t BgL_procz00_18161)
	{
		{	/* Read/reader.scm 886 */
			{	/* Read/reader.scm 887 */
				obj_t BgL_auxz00_33153;
				obj_t BgL_auxz00_33146;

				if (PROCEDUREP(BgL_procz00_18161))
					{	/* Read/reader.scm 887 */
						BgL_auxz00_33153 = BgL_procz00_18161;
					}
				else
					{
						obj_t BgL_auxz00_33156;

						BgL_auxz00_33156 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6942z00zz__readerz00,
							BINT(31322L), BGl_string6956z00zz__readerz00,
							BGl_string6951z00zz__readerz00, BgL_procz00_18161);
						FAILURE(BgL_auxz00_33156, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_symz00_18160))
					{	/* Read/reader.scm 887 */
						BgL_auxz00_33146 = BgL_symz00_18160;
					}
				else
					{
						obj_t BgL_auxz00_33149;

						BgL_auxz00_33149 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6942z00zz__readerz00,
							BINT(31322L), BGl_string6956z00zz__readerz00,
							BGl_string6944z00zz__readerz00, BgL_symz00_18160);
						FAILURE(BgL_auxz00_33149, BFALSE, BFALSE);
					}
				return
					BGl_definezd2readerzd2ctorz00zz__readerz00(BgL_auxz00_33146,
					BgL_auxz00_33153);
			}
		}

	}



/* set-read-syntax! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2readzd2syntaxz12z12zz__readerz00(obj_t
		BgL_charz00_50, obj_t BgL_procz00_51)
	{
		{	/* Read/reader.scm 900 */
			{	/* Read/reader.scm 901 */
				obj_t BgL_cz00_17809;

				BgL_cz00_17809 =
					BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_charz00_50,
					BGl_za2readerzd2extensionsza2zd2zz__readerz00);
				if (PAIRP(BgL_cz00_17809))
					{	/* Read/reader.scm 903 */
						obj_t BgL_xz00_18220;

						BgL_xz00_18220 = SET_CDR(BgL_cz00_17809, BgL_procz00_51);
						return BUNSPEC;
					}
				else
					{	/* Read/reader.scm 905 */
						obj_t BgL_arg6340z00_17811;

						BgL_arg6340z00_17811 =
							MAKE_YOUNG_PAIR(BgL_charz00_50, BgL_procz00_51);
						return (BGl_za2readerzd2extensionsza2zd2zz__readerz00 =
							MAKE_YOUNG_PAIR(BgL_arg6340z00_17811,
								BGl_za2readerzd2extensionsza2zd2zz__readerz00), BUNSPEC);
					}
			}
		}

	}



/* &set-read-syntax! */
	obj_t BGl_z62setzd2readzd2syntaxz12z70zz__readerz00(obj_t BgL_envz00_18162,
		obj_t BgL_charz00_18163, obj_t BgL_procz00_18164)
	{
		{	/* Read/reader.scm 900 */
			{	/* Read/reader.scm 901 */
				obj_t BgL_auxz00_33174;
				obj_t BgL_auxz00_33167;

				if (PROCEDUREP(BgL_procz00_18164))
					{	/* Read/reader.scm 901 */
						BgL_auxz00_33174 = BgL_procz00_18164;
					}
				else
					{
						obj_t BgL_auxz00_33177;

						BgL_auxz00_33177 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6942z00zz__readerz00,
							BINT(31985L), BGl_string6957z00zz__readerz00,
							BGl_string6951z00zz__readerz00, BgL_procz00_18164);
						FAILURE(BgL_auxz00_33177, BFALSE, BFALSE);
					}
				if (CHARP(BgL_charz00_18163))
					{	/* Read/reader.scm 901 */
						BgL_auxz00_33167 = BgL_charz00_18163;
					}
				else
					{
						obj_t BgL_auxz00_33170;

						BgL_auxz00_33170 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6942z00zz__readerz00,
							BINT(31985L), BGl_string6957z00zz__readerz00,
							BGl_string6958z00zz__readerz00, BgL_charz00_18163);
						FAILURE(BgL_auxz00_33170, BFALSE, BFALSE);
					}
				return
					BGl_setzd2readzd2syntaxz12z12zz__readerz00(BgL_auxz00_33167,
					BgL_auxz00_33174);
			}
		}

	}



/* 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_string6959z00zz__readerz00));
			BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string6959z00zz__readerz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string6959z00zz__readerz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string6959z00zz__readerz00));
			return
				BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string6959z00zz__readerz00));
		}

	}

#ifdef __cplusplus
}
#endif
