/*===========================================================================*/
/*   (Pp/pp.scm)                                                             */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Pp/pp.scm -indent -o objs/obj_u/Pp/pp.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___PP_TYPE_DEFINITIONS
#define BGL___PP_TYPE_DEFINITIONS

/* object type definitions */

#endif													// BGL___PP_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl_symbol2003z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2005z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_z62ppzd2defunzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern bool_t BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00(void);
	static obj_t BGl_genericzd2writezd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_2minz00zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_symbol2014z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2016z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2018z00zz__ppz00 = BUNSPEC;
	BGL_EXPORTED_DEF obj_t BGl_za2ppzd2widthza2zd2zz__ppz00 = BUNSPEC;
	static obj_t BGl_z62ppzd2exprzd2defunz62zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2020z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2022z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2024z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2026z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2028z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_outze70ze7zz__ppz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62ppzd2dozb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62ppzd2casezb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62wrz62zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t bgl_display_obj(obj_t, obj_t);
	extern obj_t string_for_read(obj_t);
	static obj_t BGl_symbol2030z00zz__ppz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__ppz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_symbol2032z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2034z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2036z00zz__ppz00 = BUNSPEC;
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_symbol2038z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_z62ppzd2exprzd2listz62zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2040z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2042z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2044z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2046z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol2048z00zz__ppz00 = BUNSPEC;
	extern bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__ppz00(void);
	static obj_t BGl_vectorzd2prefixzd2zz__ppz00(obj_t);
	static obj_t BGl_z62ppzd2exprzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31365ze3ze5zz__ppz00(obj_t);
	static obj_t BGl_symbol2050z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_z62ppzd2definezb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_revzd2stringzd2appendze70ze7zz__ppz00(obj_t, long);
	static obj_t BGl_symbol1964z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_z62ppzd2generalzb0zz__ppz00(long, obj_t, obj_t, obj_t, obj_t,
		long, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__ppz00(void);
	static obj_t BGl_genericzd2initzd2zz__ppz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_z62ppzd2downzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t, long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, long, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__ppz00(void);
	static obj_t BGl_symbol1977z00zz__ppz00 = BUNSPEC;
	extern obj_t BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__ppz00(void);
	static obj_t BGl_z62ppzd2letzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__ppz00(void);
	extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62ppzd2ifzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62ppzd2commentzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DEF obj_t BGl_za2ppzd2caseza2zd2zz__ppz00 = BUNSPEC;
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol1990z00zz__ppz00 = BUNSPEC;
	static obj_t BGl_symbol1999z00zz__ppz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_ppz00zz__ppz00(obj_t, obj_t);
	extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
	static obj_t BGl_reversezd2stringzd2appendz00zz__ppz00(obj_t);
	static obj_t BGl_z62ppzd2andzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31217ze3ze5zz__ppz00(obj_t, obj_t);
	static obj_t BGl_z62ppzd2lambdazb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62ppzd2condzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t c_substring(obj_t, long, long);
	extern obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__ppz00(void);
	static obj_t BGl_z62ppz62zz__ppz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62prz62zz__ppz00(obj_t, obj_t, obj_t, obj_t, long, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, long, obj_t, obj_t, obj_t, obj_t);
	static bool_t BGl_z62readzd2macrozf3z43zz__ppz00(obj_t);
	extern obj_t make_string(long, unsigned char);
	static obj_t BGl_z62indentz62zz__ppz00(obj_t, obj_t, obj_t);
	extern obj_t bgl_bignum_sub(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31431ze3ze5zz__ppz00(obj_t, obj_t);
	extern obj_t BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62ppzd2beginzb0zz__ppz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62readzd2macrozd2prefixz62zz__ppz00(obj_t);
	extern obj_t string_append(obj_t, obj_t);
	extern obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t bgl_long_to_bignum(long);
	extern obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t bgl_close_output_port(obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2001z00zz__ppz00 = BUNSPEC;
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string2041z00zz__ppz00,
		BgL_bgl_string2041za700za7za7_2053za7, "case", 4);
	      BGL_DEFINE_STRING(BGl_string2043z00zz__ppz00,
		BgL_bgl_string2043za700za7za7_2054za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string2045z00zz__ppz00,
		BgL_bgl_string2045za700za7za7_2055za7, "or", 2);
	      BGL_DEFINE_STRING(BGl_string2047z00zz__ppz00,
		BgL_bgl_string2047za700za7za7_2056za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string2049z00zz__ppz00,
		BgL_bgl_string2049za700za7za7_2057za7, "begin", 5);
	      BGL_DEFINE_STRING(BGl_string2051z00zz__ppz00,
		BgL_bgl_string2051za700za7za7_2058za7, "do", 2);
	      BGL_DEFINE_STRING(BGl_string2052z00zz__ppz00,
		BgL_bgl_string2052za700za7za7_2059za7, "__pp", 4);
	      BGL_DEFINE_STRING(BGl_string1965z00zz__ppz00,
		BgL_bgl_string1965za700za7za7_2060za7, "respect", 7);
	      BGL_DEFINE_STRING(BGl_string1966z00zz__ppz00,
		BgL_bgl_string1966za700za7za7_2061za7, "pp", 2);
	      BGL_DEFINE_STRING(BGl_string1967z00zz__ppz00,
		BgL_bgl_string1967za700za7za7_2062za7, "not an output-port", 18);
	      BGL_DEFINE_STRING(BGl_string1968z00zz__ppz00,
		BgL_bgl_string1968za700za7za7_2063za7, "#", 1);
	      BGL_DEFINE_STRING(BGl_string1969z00zz__ppz00,
		BgL_bgl_string1969za700za7za7_2064za7, "#0", 2);
	      BGL_DEFINE_STRING(BGl_string1970z00zz__ppz00,
		BgL_bgl_string1970za700za7za7_2065za7, "#00", 3);
	      BGL_DEFINE_STRING(BGl_string1971z00zz__ppz00,
		BgL_bgl_string1971za700za7za7_2066za7, ")", 1);
	      BGL_DEFINE_STRING(BGl_string1972z00zz__ppz00,
		BgL_bgl_string1972za700za7za7_2067za7, ".", 1);
	      BGL_DEFINE_STRING(BGl_string1973z00zz__ppz00,
		BgL_bgl_string1973za700za7za7_2068za7, "()", 2);
	      BGL_DEFINE_STRING(BGl_string1974z00zz__ppz00,
		BgL_bgl_string1974za700za7za7_2069za7, "(", 1);
	      BGL_DEFINE_STRING(BGl_string1975z00zz__ppz00,
		BgL_bgl_string1975za700za7za7_2070za7, " ", 1);
	      BGL_DEFINE_STRING(BGl_string1976z00zz__ppz00,
		BgL_bgl_string1976za700za7za7_2071za7, " . ", 3);
	      BGL_DEFINE_STRING(BGl_string1978z00zz__ppz00,
		BgL_bgl_string1978za700za7za7_2072za7, "comment", 7);
	      BGL_DEFINE_STRING(BGl_string1979z00zz__ppz00,
		BgL_bgl_string1979za700za7za7_2073za7, "#t", 2);
	      BGL_DEFINE_STRING(BGl_string1980z00zz__ppz00,
		BgL_bgl_string1980za700za7za7_2074za7, "#f", 2);
	      BGL_DEFINE_STRING(BGl_string1981z00zz__ppz00,
		BgL_bgl_string1981za700za7za7_2075za7, "#e", 2);
	      BGL_DEFINE_STRING(BGl_string1982z00zz__ppz00,
		BgL_bgl_string1982za700za7za7_2076za7, "#l", 2);
	      BGL_DEFINE_STRING(BGl_string1983z00zz__ppz00,
		BgL_bgl_string1983za700za7za7_2077za7, "#u8:", 4);
	      BGL_DEFINE_STRING(BGl_string1984z00zz__ppz00,
		BgL_bgl_string1984za700za7za7_2078za7, "#u16:", 5);
	      BGL_DEFINE_STRING(BGl_string1985z00zz__ppz00,
		BgL_bgl_string1985za700za7za7_2079za7, "#u32:", 5);
	      BGL_DEFINE_STRING(BGl_string1986z00zz__ppz00,
		BgL_bgl_string1986za700za7za7_2080za7, "#s8:", 4);
	      BGL_DEFINE_STRING(BGl_string1987z00zz__ppz00,
		BgL_bgl_string1987za700za7za7_2081za7, "#s16:", 5);
	      BGL_DEFINE_STRING(BGl_string1988z00zz__ppz00,
		BgL_bgl_string1988za700za7za7_2082za7, "#s32:", 5);
	      BGL_DEFINE_STRING(BGl_string1989z00zz__ppz00,
		BgL_bgl_string1989za700za7za7_2083za7, "#z", 2);
	      BGL_DEFINE_STRING(BGl_string1991z00zz__ppz00,
		BgL_bgl_string1991za700za7za7_2084za7, "upper", 5);
	      BGL_DEFINE_STRING(BGl_string1992z00zz__ppz00,
		BgL_bgl_string1992za700za7za7_2085za7, "#\"", 2);
	      BGL_DEFINE_STRING(BGl_string1993z00zz__ppz00,
		BgL_bgl_string1993za700za7za7_2086za7, "\"", 1);
	      BGL_DEFINE_STRING(BGl_string1994z00zz__ppz00,
		BgL_bgl_string1994za700za7za7_2087za7, "#[input-port]", 13);
	      BGL_DEFINE_STRING(BGl_string1995z00zz__ppz00,
		BgL_bgl_string1995za700za7za7_2088za7, "#[output-port]", 14);
	      BGL_DEFINE_STRING(BGl_string1996z00zz__ppz00,
		BgL_bgl_string1996za700za7za7_2089za7, "#[eof-object]", 13);
	      BGL_DEFINE_STRING(BGl_string1997z00zz__ppz00,
		BgL_bgl_string1997za700za7za7_2090za7, "#|", 2);
	      BGL_DEFINE_STRING(BGl_string1998z00zz__ppz00,
		BgL_bgl_string1998za700za7za7_2091za7, "|", 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ppzd2envzd2zz__ppz00,
		BgL_bgl_za762ppza762za7za7__ppza702092za7, va_generic_entry,
		BGl_z62ppz62zz__ppz00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2000z00zz__ppz00,
		BgL_bgl_string2000za700za7za7_2093za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string2002z00zz__ppz00,
		BgL_bgl_string2002za700za7za7_2094za7, "quasiquote", 10);
	      BGL_DEFINE_STRING(BGl_string2004z00zz__ppz00,
		BgL_bgl_string2004za700za7za7_2095za7, "unquote", 7);
	      BGL_DEFINE_STRING(BGl_string2006z00zz__ppz00,
		BgL_bgl_string2006za700za7za7_2096za7, "unquote-splicing", 16);
	      BGL_DEFINE_STRING(BGl_string2007z00zz__ppz00,
		BgL_bgl_string2007za700za7za7_2097za7, "'", 1);
	      BGL_DEFINE_STRING(BGl_string2008z00zz__ppz00,
		BgL_bgl_string2008za700za7za7_2098za7, "`", 1);
	      BGL_DEFINE_STRING(BGl_string2009z00zz__ppz00,
		BgL_bgl_string2009za700za7za7_2099za7, ",", 1);
	      BGL_DEFINE_STRING(BGl_string2010z00zz__ppz00,
		BgL_bgl_string2010za700za7za7_2100za7, ",@", 2);
	      BGL_DEFINE_STRING(BGl_string2011z00zz__ppz00,
		BgL_bgl_string2011za700za7za7_2101za7, "        ", 8);
	      BGL_DEFINE_STRING(BGl_string2012z00zz__ppz00,
		BgL_bgl_string2012za700za7za7_2102za7, "\n", 1);
	      BGL_DEFINE_STRING(BGl_string2013z00zz__ppz00,
		BgL_bgl_string2013za700za7za7_2103za7, "({}", 3);
	      BGL_DEFINE_STRING(BGl_string2015z00zz__ppz00,
		BgL_bgl_string2015za700za7za7_2104za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string2017z00zz__ppz00,
		BgL_bgl_string2017za700za7za7_2105za7, "let*", 4);
	      BGL_DEFINE_STRING(BGl_string2019z00zz__ppz00,
		BgL_bgl_string2019za700za7za7_2106za7, "letrec", 6);
	      BGL_DEFINE_STRING(BGl_string2021z00zz__ppz00,
		BgL_bgl_string2021za700za7za7_2107za7, "define", 6);
	      BGL_DEFINE_STRING(BGl_string2023z00zz__ppz00,
		BgL_bgl_string2023za700za7za7_2108za7, "define-inline", 13);
	      BGL_DEFINE_STRING(BGl_string2025z00zz__ppz00,
		BgL_bgl_string2025za700za7za7_2109za7, "define-method", 13);
	      BGL_DEFINE_STRING(BGl_string2027z00zz__ppz00,
		BgL_bgl_string2027za700za7za7_2110za7, "define-generic", 14);
	      BGL_DEFINE_STRING(BGl_string2029z00zz__ppz00,
		BgL_bgl_string2029za700za7za7_2111za7, "module", 6);
	      BGL_DEFINE_STRING(BGl_string2031z00zz__ppz00,
		BgL_bgl_string2031za700za7za7_2112za7, "defun", 5);
	      BGL_DEFINE_STRING(BGl_string2033z00zz__ppz00,
		BgL_bgl_string2033za700za7za7_2113za7, "de", 2);
	      BGL_DEFINE_STRING(BGl_string2035z00zz__ppz00,
		BgL_bgl_string2035za700za7za7_2114za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string2037z00zz__ppz00,
		BgL_bgl_string2037za700za7za7_2115za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string2039z00zz__ppz00,
		BgL_bgl_string2039za700za7za7_2116za7, "cond", 4);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string2039z00zz__ppz00,
			BgL_bgl_string2039za700za7za7_2116za7);
		BGL_BIND_STRING(BGl_string2037z00zz__ppz00,
			BgL_bgl_string2037za700za7za7_2115za7);
		BGL_BIND_STRING(BGl_string2035z00zz__ppz00,
			BgL_bgl_string2035za700za7za7_2114za7);
		BGL_BIND_STRING(BGl_string2033z00zz__ppz00,
			BgL_bgl_string2033za700za7za7_2113za7);
		BGL_BIND_STRING(BGl_string2031z00zz__ppz00,
			BgL_bgl_string2031za700za7za7_2112za7);
		BGL_BIND_STRING(BGl_string2029z00zz__ppz00,
			BgL_bgl_string2029za700za7za7_2111za7);
		BGL_BIND_STRING(BGl_string2027z00zz__ppz00,
			BgL_bgl_string2027za700za7za7_2110za7);
		BGL_BIND_STRING(BGl_string2025z00zz__ppz00,
			BgL_bgl_string2025za700za7za7_2109za7);
		BGL_BIND_STRING(BGl_string2023z00zz__ppz00,
			BgL_bgl_string2023za700za7za7_2108za7);
		BGL_BIND_STRING(BGl_string2021z00zz__ppz00,
			BgL_bgl_string2021za700za7za7_2107za7);
		BGL_BIND_STRING(BGl_string2019z00zz__ppz00,
			BgL_bgl_string2019za700za7za7_2106za7);
		BGL_BIND_STRING(BGl_string2017z00zz__ppz00,
			BgL_bgl_string2017za700za7za7_2105za7);
		BGL_BIND_STRING(BGl_string2015z00zz__ppz00,
			BgL_bgl_string2015za700za7za7_2104za7);
		BGL_BIND_STRING(BGl_string2013z00zz__ppz00,
			BgL_bgl_string2013za700za7za7_2103za7);
		BGL_BIND_STRING(BGl_string2012z00zz__ppz00,
			BgL_bgl_string2012za700za7za7_2102za7);
		BGL_BIND_STRING(BGl_string2011z00zz__ppz00,
			BgL_bgl_string2011za700za7za7_2101za7);
		BGL_BIND_STRING(BGl_string2010z00zz__ppz00,
			BgL_bgl_string2010za700za7za7_2100za7);
		BGL_BIND_STRING(BGl_string2009z00zz__ppz00,
			BgL_bgl_string2009za700za7za7_2099za7);
		BGL_BIND_STRING(BGl_string2008z00zz__ppz00,
			BgL_bgl_string2008za700za7za7_2098za7);
		BGL_BIND_STRING(BGl_string2007z00zz__ppz00,
			BgL_bgl_string2007za700za7za7_2097za7);
		BGL_BIND_STRING(BGl_string2006z00zz__ppz00,
			BgL_bgl_string2006za700za7za7_2096za7);
		BGL_BIND_STRING(BGl_string2004z00zz__ppz00,
			BgL_bgl_string2004za700za7za7_2095za7);
		BGL_BIND_STRING(BGl_string2002z00zz__ppz00,
			BgL_bgl_string2002za700za7za7_2094za7);
		BGL_BIND_STRING(BGl_string2000z00zz__ppz00,
			BgL_bgl_string2000za700za7za7_2093za7);
		BGL_BIND_PROCEDURE(BGl_ppzd2envzd2zz__ppz00,
			BgL_bgl_za762ppza762za7za7__ppza702092za7);
		BGL_BIND_STRING(BGl_string1998z00zz__ppz00,
			BgL_bgl_string1998za700za7za7_2091za7);
		BGL_BIND_STRING(BGl_string1997z00zz__ppz00,
			BgL_bgl_string1997za700za7za7_2090za7);
		BGL_BIND_STRING(BGl_string1996z00zz__ppz00,
			BgL_bgl_string1996za700za7za7_2089za7);
		BGL_BIND_STRING(BGl_string1995z00zz__ppz00,
			BgL_bgl_string1995za700za7za7_2088za7);
		BGL_BIND_STRING(BGl_string1994z00zz__ppz00,
			BgL_bgl_string1994za700za7za7_2087za7);
		BGL_BIND_STRING(BGl_string1993z00zz__ppz00,
			BgL_bgl_string1993za700za7za7_2086za7);
		BGL_BIND_STRING(BGl_string1992z00zz__ppz00,
			BgL_bgl_string1992za700za7za7_2085za7);
		BGL_BIND_STRING(BGl_string1991z00zz__ppz00,
			BgL_bgl_string1991za700za7za7_2084za7);
		BGL_BIND_STRING(BGl_string1989z00zz__ppz00,
			BgL_bgl_string1989za700za7za7_2083za7);
		BGL_BIND_STRING(BGl_string1988z00zz__ppz00,
			BgL_bgl_string1988za700za7za7_2082za7);
		BGL_BIND_STRING(BGl_string1987z00zz__ppz00,
			BgL_bgl_string1987za700za7za7_2081za7);
		BGL_BIND_STRING(BGl_string1986z00zz__ppz00,
			BgL_bgl_string1986za700za7za7_2080za7);
		BGL_BIND_STRING(BGl_string1985z00zz__ppz00,
			BgL_bgl_string1985za700za7za7_2079za7);
		BGL_BIND_STRING(BGl_string1984z00zz__ppz00,
			BgL_bgl_string1984za700za7za7_2078za7);
		BGL_BIND_STRING(BGl_string1983z00zz__ppz00,
			BgL_bgl_string1983za700za7za7_2077za7);
		BGL_BIND_STRING(BGl_string1982z00zz__ppz00,
			BgL_bgl_string1982za700za7za7_2076za7);
		BGL_BIND_STRING(BGl_string1981z00zz__ppz00,
			BgL_bgl_string1981za700za7za7_2075za7);
		BGL_BIND_STRING(BGl_string1980z00zz__ppz00,
			BgL_bgl_string1980za700za7za7_2074za7);
		BGL_BIND_STRING(BGl_string1979z00zz__ppz00,
			BgL_bgl_string1979za700za7za7_2073za7);
		BGL_BIND_STRING(BGl_string1978z00zz__ppz00,
			BgL_bgl_string1978za700za7za7_2072za7);
		BGL_BIND_STRING(BGl_string1976z00zz__ppz00,
			BgL_bgl_string1976za700za7za7_2071za7);
		BGL_BIND_STRING(BGl_string1975z00zz__ppz00,
			BgL_bgl_string1975za700za7za7_2070za7);
		BGL_BIND_STRING(BGl_string1974z00zz__ppz00,
			BgL_bgl_string1974za700za7za7_2069za7);
		BGL_BIND_STRING(BGl_string1973z00zz__ppz00,
			BgL_bgl_string1973za700za7za7_2068za7);
		BGL_BIND_STRING(BGl_string1972z00zz__ppz00,
			BgL_bgl_string1972za700za7za7_2067za7);
		BGL_BIND_STRING(BGl_string1971z00zz__ppz00,
			BgL_bgl_string1971za700za7za7_2066za7);
		BGL_BIND_STRING(BGl_string1970z00zz__ppz00,
			BgL_bgl_string1970za700za7za7_2065za7);
		BGL_BIND_STRING(BGl_string1969z00zz__ppz00,
			BgL_bgl_string1969za700za7za7_2064za7);
		BGL_BIND_STRING(BGl_string1968z00zz__ppz00,
			BgL_bgl_string1968za700za7za7_2063za7);
		BGL_BIND_STRING(BGl_string1967z00zz__ppz00,
			BgL_bgl_string1967za700za7za7_2062za7);
		BGL_BIND_STRING(BGl_string1966z00zz__ppz00,
			BgL_bgl_string1966za700za7za7_2061za7);
		BGL_BIND_STRING(BGl_string1965z00zz__ppz00,
			BgL_bgl_string1965za700za7za7_2060za7);
		BGL_BIND_STRING(BGl_string2052z00zz__ppz00,
			BgL_bgl_string2052za700za7za7_2059za7);
		BGL_BIND_STRING(BGl_string2051z00zz__ppz00,
			BgL_bgl_string2051za700za7za7_2058za7);
		BGL_BIND_STRING(BGl_string2049z00zz__ppz00,
			BgL_bgl_string2049za700za7za7_2057za7);
		BGL_BIND_STRING(BGl_string2047z00zz__ppz00,
			BgL_bgl_string2047za700za7za7_2056za7);
		BGL_BIND_STRING(BGl_string2045z00zz__ppz00,
			BgL_bgl_string2045za700za7za7_2055za7);
		BGL_BIND_STRING(BGl_string2043z00zz__ppz00,
			BgL_bgl_string2043za700za7za7_2054za7);
		BGL_BIND_STRING(BGl_string2041z00zz__ppz00,
			BgL_bgl_string2041za700za7za7_2053za7);
	}

/* 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_symbol2003z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2005z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2014z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2016z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2018z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_za2ppzd2widthza2zd2zz__ppz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2020z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2022z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2024z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2026z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2028z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2030z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2032z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2034z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2036z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2038z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2040z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2042z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2044z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2046z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2048z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2050z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol1964z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol1977z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_za2ppzd2caseza2zd2zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol1990z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol1999z00zz__ppz00));
		ADD_ROOT((void *) (&BGl_symbol2001z00zz__ppz00));
#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__ppz00(long
		BgL_checksumz00_3976, char *BgL_fromz00_3977)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__ppz00))
				{
					BGl_requirezd2initializa7ationz75zz__ppz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__ppz00();
					BGl_cnstzd2initzd2zz__ppz00();
					BGl_importedzd2moduleszd2initz00zz__ppz00();
					return BGl_toplevelzd2initzd2zz__ppz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__ppz00(void)
	{
		{	/* Pp/pp.scm 14 */
			BGl_symbol1964z00zz__ppz00 =
				bstring_to_symbol(BGl_string1965z00zz__ppz00);
			BGl_symbol1977z00zz__ppz00 =
				bstring_to_symbol(BGl_string1978z00zz__ppz00);
			BGl_symbol1990z00zz__ppz00 =
				bstring_to_symbol(BGl_string1991z00zz__ppz00);
			BGl_symbol1999z00zz__ppz00 =
				bstring_to_symbol(BGl_string2000z00zz__ppz00);
			BGl_symbol2001z00zz__ppz00 =
				bstring_to_symbol(BGl_string2002z00zz__ppz00);
			BGl_symbol2003z00zz__ppz00 =
				bstring_to_symbol(BGl_string2004z00zz__ppz00);
			BGl_symbol2005z00zz__ppz00 =
				bstring_to_symbol(BGl_string2006z00zz__ppz00);
			BGl_symbol2014z00zz__ppz00 =
				bstring_to_symbol(BGl_string2015z00zz__ppz00);
			BGl_symbol2016z00zz__ppz00 =
				bstring_to_symbol(BGl_string2017z00zz__ppz00);
			BGl_symbol2018z00zz__ppz00 =
				bstring_to_symbol(BGl_string2019z00zz__ppz00);
			BGl_symbol2020z00zz__ppz00 =
				bstring_to_symbol(BGl_string2021z00zz__ppz00);
			BGl_symbol2022z00zz__ppz00 =
				bstring_to_symbol(BGl_string2023z00zz__ppz00);
			BGl_symbol2024z00zz__ppz00 =
				bstring_to_symbol(BGl_string2025z00zz__ppz00);
			BGl_symbol2026z00zz__ppz00 =
				bstring_to_symbol(BGl_string2027z00zz__ppz00);
			BGl_symbol2028z00zz__ppz00 =
				bstring_to_symbol(BGl_string2029z00zz__ppz00);
			BGl_symbol2030z00zz__ppz00 =
				bstring_to_symbol(BGl_string2031z00zz__ppz00);
			BGl_symbol2032z00zz__ppz00 =
				bstring_to_symbol(BGl_string2033z00zz__ppz00);
			BGl_symbol2034z00zz__ppz00 =
				bstring_to_symbol(BGl_string2035z00zz__ppz00);
			BGl_symbol2036z00zz__ppz00 =
				bstring_to_symbol(BGl_string2037z00zz__ppz00);
			BGl_symbol2038z00zz__ppz00 =
				bstring_to_symbol(BGl_string2039z00zz__ppz00);
			BGl_symbol2040z00zz__ppz00 =
				bstring_to_symbol(BGl_string2041z00zz__ppz00);
			BGl_symbol2042z00zz__ppz00 =
				bstring_to_symbol(BGl_string2043z00zz__ppz00);
			BGl_symbol2044z00zz__ppz00 =
				bstring_to_symbol(BGl_string2045z00zz__ppz00);
			BGl_symbol2046z00zz__ppz00 =
				bstring_to_symbol(BGl_string2047z00zz__ppz00);
			BGl_symbol2048z00zz__ppz00 =
				bstring_to_symbol(BGl_string2049z00zz__ppz00);
			return (BGl_symbol2050z00zz__ppz00 =
				bstring_to_symbol(BGl_string2051z00zz__ppz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__ppz00(void)
	{
		{	/* Pp/pp.scm 14 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__ppz00(void)
	{
		{	/* Pp/pp.scm 14 */
			BGl_za2ppzd2caseza2zd2zz__ppz00 = BGl_symbol1964z00zz__ppz00;
			return (BGl_za2ppzd2widthza2zd2zz__ppz00 = BINT(80L), BUNSPEC);
		}

	}



/* pp */
	BGL_EXPORTED_DEF obj_t BGl_ppz00zz__ppz00(obj_t BgL_expz00_3,
		obj_t BgL_portz00_4)
	{
		{	/* Pp/pp.scm 70 */
			{	/* Pp/pp.scm 71 */
				obj_t BgL_portz00_1205;

				if (NULLP(BgL_portz00_4))
					{	/* Pp/pp.scm 72 */
						obj_t BgL_tmpz00_4016;

						BgL_tmpz00_4016 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_portz00_1205 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4016);
					}
				else
					{	/* Pp/pp.scm 73 */
						obj_t BgL_portz00_1211;

						BgL_portz00_1211 = CAR(((obj_t) BgL_portz00_4));
						if (OUTPUT_PORTP(BgL_portz00_1211))
							{	/* Pp/pp.scm 74 */
								BgL_portz00_1205 = BgL_portz00_1211;
							}
						else
							{	/* Pp/pp.scm 74 */
								BgL_portz00_1205 =
									BGl_errorz00zz__errorz00(BGl_string1966z00zz__ppz00,
									BGl_string1967z00zz__ppz00, BgL_portz00_1211);
							}
					}
				{	/* Pp/pp.scm 77 */
					obj_t BgL_zc3z04anonymousza31217ze3z87_3445;

					{
						int BgL_tmpz00_4024;

						BgL_tmpz00_4024 = (int) (1L);
						BgL_zc3z04anonymousza31217ze3z87_3445 =
							MAKE_L_PROCEDURE(BGl_z62zc3z04anonymousza31217ze3ze5zz__ppz00,
							BgL_tmpz00_4024);
					}
					PROCEDURE_L_SET(BgL_zc3z04anonymousza31217ze3z87_3445,
						(int) (0L), BgL_portz00_1205);
					BGl_genericzd2writezd2zz__ppz00(BgL_expz00_3, BFALSE,
						BGl_za2ppzd2widthza2zd2zz__ppz00,
						BgL_zc3z04anonymousza31217ze3z87_3445);
				}
				return BUNSPEC;
			}
		}

	}



/* &pp */
	obj_t BGl_z62ppz62zz__ppz00(obj_t BgL_envz00_3446, obj_t BgL_expz00_3447,
		obj_t BgL_portz00_3448)
	{
		{	/* Pp/pp.scm 70 */
			return BGl_ppz00zz__ppz00(BgL_expz00_3447, BgL_portz00_3448);
		}

	}



/* &<@anonymous:1217> */
	obj_t BGl_z62zc3z04anonymousza31217ze3ze5zz__ppz00(obj_t BgL_envz00_3449,
		obj_t BgL_sz00_3451)
	{
		{	/* Pp/pp.scm 77 */
			{	/* Pp/pp.scm 77 */
				obj_t BgL_portz00_3450;

				BgL_portz00_3450 = PROCEDURE_L_REF(BgL_envz00_3449, (int) (0L));
				{	/* Pp/pp.scm 77 */
					bool_t BgL_tmpz00_4033;

					bgl_display_obj(BgL_sz00_3451, BgL_portz00_3450);
					BgL_tmpz00_4033 = ((bool_t) 1);
					return BBOOL(BgL_tmpz00_4033);
				}
			}
		}

	}



/* vector-prefix */
	obj_t BGl_vectorzd2prefixzd2zz__ppz00(obj_t BgL_objz00_5)
	{
		{	/* Pp/pp.scm 81 */
			{	/* Pp/pp.scm 82 */
				int BgL_tagz00_1213;

				{	/* Pp/pp.scm 82 */
					obj_t BgL_tmpz00_4036;

					BgL_tmpz00_4036 = ((obj_t) BgL_objz00_5);
					BgL_tagz00_1213 = VECTOR_TAG(BgL_tmpz00_4036);
				}
				if (((long) (BgL_tagz00_1213) == 0L))
					{	/* Pp/pp.scm 83 */
						return BGl_string1968z00zz__ppz00;
					}
				else
					{	/* Pp/pp.scm 83 */
						if (((long) (BgL_tagz00_1213) >= 100L))
							{	/* Pp/pp.scm 86 */
								obj_t BgL_arg1224z00_1216;

								{	/* Ieee/number.scm 172 */

									BgL_arg1224z00_1216 =
										BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BINT
										(BgL_tagz00_1213), BINT(10L));
								}
								return
									string_append(BGl_string1968z00zz__ppz00,
									BgL_arg1224z00_1216);
							}
						else
							{	/* Pp/pp.scm 85 */
								if (((long) (BgL_tagz00_1213) >= 10L))
									{	/* Pp/pp.scm 88 */
										obj_t BgL_arg1226z00_1220;

										{	/* Ieee/number.scm 172 */

											BgL_arg1226z00_1220 =
												BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BINT
												(BgL_tagz00_1213), BINT(10L));
										}
										return
											string_append(BGl_string1969z00zz__ppz00,
											BgL_arg1226z00_1220);
									}
								else
									{	/* Pp/pp.scm 89 */
										obj_t BgL_arg1230z00_1223;

										{	/* Ieee/number.scm 172 */

											BgL_arg1230z00_1223 =
												BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BINT
												(BgL_tagz00_1213), BINT(10L));
										}
										return
											string_append(BGl_string1970z00zz__ppz00,
											BgL_arg1230z00_1223);
									}
							}
					}
			}
		}

	}



/* generic-write */
	obj_t BGl_genericzd2writezd2zz__ppz00(obj_t BgL_objz00_6,
		obj_t BgL_displayzf3zf3_7, obj_t BgL_widthz00_8, obj_t BgL_outputz00_9)
	{
		{	/* Pp/pp.scm 117 */
			{
				obj_t BgL_objz00_1463;
				long BgL_colz00_1464;

				if (CBOOL(BgL_widthz00_8))
					{	/* Pp/pp.scm 468 */
						obj_t BgL_arg1231z00_1232;
						obj_t BgL_arg1232z00_1233;

						BgL_arg1231z00_1232 = make_string(1L, ((unsigned char) 10));
						BgL_objz00_1463 = BgL_objz00_6;
						BgL_colz00_1464 = 0L;
						{	/* Pp/pp.scm 254 */
							obj_t BgL_ppzd2dozd2_3461;
							obj_t BgL_ppzd2beginzd2_3462;
							obj_t BgL_ppzd2andzd2_3464;
							obj_t BgL_ppzd2casezd2_3465;
							obj_t BgL_ppzd2condzd2_3466;
							obj_t BgL_ppzd2ifzd2_3467;
							obj_t BgL_ppzd2commentzd2_3458;
							obj_t BgL_ppzd2lambdazd2_3471;
							obj_t BgL_ppzd2letzd2_3463;
							obj_t BgL_ppzd2defunzd2_3469;
							obj_t BgL_ppzd2definezd2_3470;
							obj_t BgL_ppzd2exprzd2defunz00_3468;
							obj_t BgL_ppzd2exprzd2listz00_3460;
							obj_t BgL_ppzd2exprzd2_3459;

							BgL_ppzd2dozd2_3461 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2dozb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2beginzd2_3462 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2beginzb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2andzd2_3464 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2andzb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2casezd2_3465 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2casezb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2condzd2_3466 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2condzb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2ifzd2_3467 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2ifzb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2commentzd2_3458 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2commentzb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2lambdazd2_3471 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2lambdazb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2letzd2_3463 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2letzb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2defunzd2_3469 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2defunzb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2definezd2_3470 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2definezb0zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2exprzd2defunz00_3468 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2exprzd2defunz62zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2exprzd2listz00_3460 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2exprzd2listz62zz__ppz00,
								(int) (3L), (int) (18L));
							BgL_ppzd2exprzd2_3459 =
								MAKE_FX_PROCEDURE(BGl_z62ppzd2exprzb0zz__ppz00,
								(int) (3L), (int) (18L));
							PROCEDURE_SET(BgL_ppzd2dozd2_3461, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (2L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (3L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (4L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (5L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (6L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (7L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (8L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (9L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (10L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (11L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461, (int) (12L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2dozd2_3461, (int) (13L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (14L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461, (int) (15L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (16L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2dozd2_3461,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462, (int) (2L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (3L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (4L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (5L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (6L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (7L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (8L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (9L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (10L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (11L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (12L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (13L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (14L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (15L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462, (int) (16L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2beginzd2_3462,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464, (int) (2L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (3L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (4L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (5L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (6L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (7L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (8L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (9L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (10L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (11L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (12L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (13L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (14L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464, (int) (15L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2andzd2_3464, (int) (16L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2andzd2_3464,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465, (int) (2L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (3L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (4L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (5L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (6L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (7L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (8L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (9L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (10L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (11L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (12L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (13L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (14L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465, (int) (15L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (16L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2casezd2_3465,
								(int) (17L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466, (int) (2L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (3L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (4L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (5L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (6L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (7L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (8L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (9L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (10L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (11L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (12L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (13L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466, (int) (14L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (15L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (16L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2condzd2_3466,
								(int) (17L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467, (int) (2L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (3L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (4L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (5L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (6L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (7L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (8L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (9L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (10L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (11L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (12L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (13L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (14L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467, (int) (15L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467, (int) (16L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2ifzd2_3467,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (0L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (1L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (2L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (3L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (4L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (5L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (6L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (7L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (8L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (9L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (10L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (11L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458, (int) (12L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (13L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (14L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458, (int) (15L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (16L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2commentzd2_3458,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (2L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (3L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (4L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (5L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (6L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (7L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (8L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (9L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (10L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (11L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (12L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (13L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (14L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471, (int) (15L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (16L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2lambdazd2_3471,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (2L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (3L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (4L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (5L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (6L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (7L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (8L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (9L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (10L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (11L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463, (int) (12L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2letzd2_3463, (int) (13L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (14L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463, (int) (15L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (16L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2letzd2_3463,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (1L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (2L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (3L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (4L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (5L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (6L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (7L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (8L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (9L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (10L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (11L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469, (int) (12L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (13L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (14L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (15L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (16L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2defunzd2_3469,
								(int) (17L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (2L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (3L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (4L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (5L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (6L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (7L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (8L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (9L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (10L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (11L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470, (int) (12L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (13L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (14L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (15L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (16L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2definezd2_3470,
								(int) (17L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (1L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (2L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (3L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (4L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (5L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (6L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (7L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (8L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (9L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (10L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (11L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (12L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (13L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (14L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (15L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (16L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_3468,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (2L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (3L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (4L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (5L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (6L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (7L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (8L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (9L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (10L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (11L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (12L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (13L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (14L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (15L), BINT(5L));
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (16L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2exprzd2listz00_3460,
								(int) (17L), BgL_ppzd2exprzd2_3459);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459, (int) (0L), BINT(2L));
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (1L), BgL_ppzd2exprzd2defunz00_3468);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459, (int) (2L), BgL_widthz00_8);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (3L), BgL_displayzf3zf3_7);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (4L), BgL_ppzd2exprzd2listz00_3460);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (5L), BgL_ppzd2commentzd2_3458);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (6L), BgL_ppzd2dozd2_3461);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (7L), BgL_ppzd2beginzd2_3462);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (8L), BgL_ppzd2letzd2_3463);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (9L), BgL_ppzd2andzd2_3464);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (10L), BgL_ppzd2casezd2_3465);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (11L), BgL_ppzd2condzd2_3466);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (12L), BgL_ppzd2ifzd2_3467);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (13L), BgL_ppzd2defunzd2_3469);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (14L), BgL_ppzd2definezd2_3470);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (15L), BgL_ppzd2lambdazd2_3471);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459,
								(int) (16L), BgL_outputz00_9);
							PROCEDURE_SET(BgL_ppzd2exprzd2_3459, (int) (17L), BINT(5L));
							BgL_arg1232z00_1233 =
								BGl_z62prz62zz__ppz00(BgL_ppzd2exprzd2_3459, BgL_outputz00_9,
								BgL_displayzf3zf3_7, BgL_widthz00_8, 5L,
								BgL_ppzd2lambdazd2_3471, BgL_ppzd2definezd2_3470,
								BgL_ppzd2defunzd2_3469, BgL_ppzd2ifzd2_3467,
								BgL_ppzd2condzd2_3466, BgL_ppzd2casezd2_3465,
								BgL_ppzd2andzd2_3464, BgL_ppzd2letzd2_3463,
								BgL_ppzd2beginzd2_3462, BgL_ppzd2dozd2_3461,
								BgL_ppzd2commentzd2_3458, BgL_ppzd2exprzd2listz00_3460,
								BgL_ppzd2exprzd2defunz00_3468, 2L, BgL_objz00_1463,
								BINT(BgL_colz00_1464), BINT(0L), BgL_ppzd2exprzd2_3459);
						}
						if (CBOOL(BgL_arg1232z00_1233))
							{	/* Pp/pp.scm 138 */
								if (CBOOL(
										((obj_t(*)(obj_t,
													obj_t))
											PROCEDURE_L_ENTRY(BgL_outputz00_9)) (BgL_outputz00_9,
											BgL_arg1231z00_1232)))
									{	/* Pp/pp.scm 138 */
										return
											ADDFX(BgL_arg1232z00_1233,
											BINT(STRING_LENGTH(BgL_arg1231z00_1232)));
									}
								else
									{	/* Pp/pp.scm 138 */
										return BFALSE;
									}
							}
						else
							{	/* Pp/pp.scm 138 */
								return BFALSE;
							}
					}
				else
					{	/* Pp/pp.scm 467 */
						return
							BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_7, BgL_outputz00_9,
							BgL_objz00_6, BINT(0L));
					}
			}
		}

	}



/* &pp-down */
	obj_t BGl_z62ppzd2downzb0zz__ppz00(obj_t BgL_outputz00_3493,
		obj_t BgL_ppzd2exprzd2_3492, obj_t BgL_displayzf3zf3_3491,
		obj_t BgL_widthz00_3490, long BgL_maxzd2callzd2headzd2widthzd2_3489,
		obj_t BgL_ppzd2lambdazd2_3488, obj_t BgL_ppzd2definezd2_3487,
		obj_t BgL_ppzd2defunzd2_3486, obj_t BgL_ppzd2ifzd2_3485,
		obj_t BgL_ppzd2condzd2_3484, obj_t BgL_ppzd2casezd2_3483,
		obj_t BgL_ppzd2andzd2_3482, obj_t BgL_ppzd2letzd2_3481,
		obj_t BgL_ppzd2beginzd2_3480, obj_t BgL_ppzd2dozd2_3479,
		obj_t BgL_ppzd2commentzd2_3478, obj_t BgL_ppzd2exprzd2listz00_3477,
		obj_t BgL_ppzd2exprzd2defunz00_3476, long BgL_indentzd2generalzd2_3475,
		obj_t BgL_lz00_1579, obj_t BgL_col1z00_1580, obj_t BgL_col2z00_1581,
		obj_t BgL_extraz00_1582, obj_t BgL_ppzd2itemzd2_1583)
	{
		{	/* Pp/pp.scm 339 */
			{
				obj_t BgL_lz00_1586;
				obj_t BgL_colz00_1587;

				BgL_lz00_1586 = BgL_lz00_1579;
				BgL_colz00_1587 = BgL_col1z00_1580;
			BgL_zc3z04anonymousza31469ze3z87_1588:
				if (CBOOL(BgL_colz00_1587))
					{	/* Pp/pp.scm 326 */
						if (PAIRP(BgL_lz00_1586))
							{	/* Pp/pp.scm 328 */
								obj_t BgL_restz00_1591;

								BgL_restz00_1591 = CDR(BgL_lz00_1586);
								{	/* Pp/pp.scm 329 */
									long BgL_extraz00_1592;

									if (NULLP(BgL_restz00_1591))
										{	/* Pp/pp.scm 329 */
											BgL_extraz00_1592 = ((long) CINT(BgL_extraz00_1582) + 1L);
										}
									else
										{	/* Pp/pp.scm 329 */
											BgL_extraz00_1592 = 0L;
										}
									{
										obj_t BgL_colz00_4663;
										obj_t BgL_lz00_4662;

										BgL_lz00_4662 = BgL_restz00_1591;
										BgL_colz00_4663 =
											BGl_z62prz62zz__ppz00(BgL_ppzd2exprzd2_3492,
											BgL_outputz00_3493, BgL_displayzf3zf3_3491,
											BgL_widthz00_3490, BgL_maxzd2callzd2headzd2widthzd2_3489,
											BgL_ppzd2lambdazd2_3488, BgL_ppzd2definezd2_3487,
											BgL_ppzd2defunzd2_3486, BgL_ppzd2ifzd2_3485,
											BgL_ppzd2condzd2_3484, BgL_ppzd2casezd2_3483,
											BgL_ppzd2andzd2_3482, BgL_ppzd2letzd2_3481,
											BgL_ppzd2beginzd2_3480, BgL_ppzd2dozd2_3479,
											BgL_ppzd2commentzd2_3478, BgL_ppzd2exprzd2listz00_3477,
											BgL_ppzd2exprzd2defunz00_3476,
											BgL_indentzd2generalzd2_3475, CAR(BgL_lz00_1586),
											BGl_z62indentz62zz__ppz00(BgL_outputz00_3493,
												BgL_col2z00_1581, BgL_colz00_1587),
											BINT(BgL_extraz00_1592), BgL_ppzd2itemzd2_1583);
										BgL_colz00_1587 = BgL_colz00_4663;
										BgL_lz00_1586 = BgL_lz00_4662;
										goto BgL_zc3z04anonymousza31469ze3z87_1588;
									}
								}
							}
						else
							{	/* Pp/pp.scm 327 */
								if (NULLP(BgL_lz00_1586))
									{	/* Pp/pp.scm 332 */
										if (CBOOL(BgL_colz00_1587))
											{	/* Pp/pp.scm 138 */
												obj_t BgL__andtest_1044z00_2867;

												BgL__andtest_1044z00_2867 =
													((obj_t(*)(obj_t,
															obj_t))
													PROCEDURE_L_ENTRY(BgL_outputz00_3493))
													(BgL_outputz00_3493, BGl_string1971z00zz__ppz00);
												if (CBOOL(BgL__andtest_1044z00_2867))
													{	/* Pp/pp.scm 138 */
														return ADDFX(BgL_colz00_1587, BINT(1L));
													}
												else
													{	/* Pp/pp.scm 138 */
														return BFALSE;
													}
											}
										else
											{	/* Pp/pp.scm 138 */
												return BFALSE;
											}
									}
								else
									{	/* Pp/pp.scm 337 */
										obj_t BgL_arg1476z00_1598;

										{	/* Pp/pp.scm 337 */
											obj_t BgL_arg1479z00_1599;
											long BgL_arg1480z00_1600;

											{	/* Pp/pp.scm 337 */
												obj_t BgL_arg1481z00_1601;

												{	/* Pp/pp.scm 337 */
													obj_t BgL_arg1482z00_1602;

													BgL_arg1482z00_1602 =
														BGl_z62indentz62zz__ppz00(BgL_outputz00_3493,
														BgL_col2z00_1581, BgL_colz00_1587);
													if (CBOOL(BgL_arg1482z00_1602))
														{	/* Pp/pp.scm 138 */
															obj_t BgL__andtest_1044z00_2873;

															BgL__andtest_1044z00_2873 =
																((obj_t(*)(obj_t,
																		obj_t))
																PROCEDURE_L_ENTRY(BgL_outputz00_3493))
																(BgL_outputz00_3493,
																BGl_string1972z00zz__ppz00);
															if (CBOOL(BgL__andtest_1044z00_2873))
																{	/* Pp/pp.scm 138 */
																	BgL_arg1481z00_1601 =
																		ADDFX(BgL_arg1482z00_1602, BINT(1L));
																}
															else
																{	/* Pp/pp.scm 138 */
																	BgL_arg1481z00_1601 = BFALSE;
																}
														}
													else
														{	/* Pp/pp.scm 138 */
															BgL_arg1481z00_1601 = BFALSE;
														}
												}
												BgL_arg1479z00_1599 =
													BGl_z62indentz62zz__ppz00(BgL_outputz00_3493,
													BgL_col2z00_1581, BgL_arg1481z00_1601);
											}
											BgL_arg1480z00_1600 =
												((long) CINT(BgL_extraz00_1582) + 1L);
											BgL_arg1476z00_1598 =
												BGl_z62prz62zz__ppz00(BgL_ppzd2exprzd2_3492,
												BgL_outputz00_3493, BgL_displayzf3zf3_3491,
												BgL_widthz00_3490,
												BgL_maxzd2callzd2headzd2widthzd2_3489,
												BgL_ppzd2lambdazd2_3488, BgL_ppzd2definezd2_3487,
												BgL_ppzd2defunzd2_3486, BgL_ppzd2ifzd2_3485,
												BgL_ppzd2condzd2_3484, BgL_ppzd2casezd2_3483,
												BgL_ppzd2andzd2_3482, BgL_ppzd2letzd2_3481,
												BgL_ppzd2beginzd2_3480, BgL_ppzd2dozd2_3479,
												BgL_ppzd2commentzd2_3478, BgL_ppzd2exprzd2listz00_3477,
												BgL_ppzd2exprzd2defunz00_3476,
												BgL_indentzd2generalzd2_3475, BgL_lz00_1586,
												BgL_arg1479z00_1599, BINT(BgL_arg1480z00_1600),
												BgL_ppzd2itemzd2_1583);
										}
										if (CBOOL(BgL_arg1476z00_1598))
											{	/* Pp/pp.scm 138 */
												obj_t BgL__andtest_1044z00_2880;

												BgL__andtest_1044z00_2880 =
													((obj_t(*)(obj_t,
															obj_t))
													PROCEDURE_L_ENTRY(BgL_outputz00_3493))
													(BgL_outputz00_3493, BGl_string1971z00zz__ppz00);
												if (CBOOL(BgL__andtest_1044z00_2880))
													{	/* Pp/pp.scm 138 */
														return ADDFX(BgL_arg1476z00_1598, BINT(1L));
													}
												else
													{	/* Pp/pp.scm 138 */
														return BFALSE;
													}
											}
										else
											{	/* Pp/pp.scm 138 */
												return BFALSE;
											}
									}
							}
					}
				else
					{	/* Pp/pp.scm 326 */
						return BFALSE;
					}
			}
		}

	}



/* &wr */
	obj_t BGl_z62wrz62zz__ppz00(obj_t BgL_displayzf3zf3_3495,
		obj_t BgL_outputz00_3494, obj_t BgL_objz00_1269, obj_t BgL_colz00_1270)
	{
		{	/* Pp/pp.scm 145 */
		BGl_z62wrz62zz__ppz00:
			{
				obj_t BgL_lz00_1439;
				obj_t BgL_colz00_1440;

				{	/* Pp/pp.scm 156 */
					bool_t BgL_test2136z00_4706;

					if (PAIRP(BgL_objz00_1269))
						{	/* Pp/pp.scm 156 */
							obj_t BgL_cdrzd2105zd2_1420;

							BgL_cdrzd2105zd2_1420 = CDR(((obj_t) BgL_objz00_1269));
							if (
								(CAR(((obj_t) BgL_objz00_1269)) == BGl_symbol1977z00zz__ppz00))
								{	/* Pp/pp.scm 156 */
									if (PAIRP(BgL_cdrzd2105zd2_1420))
										{	/* Pp/pp.scm 156 */
											obj_t BgL_cdrzd2107zd2_1423;

											BgL_cdrzd2107zd2_1423 = CDR(BgL_cdrzd2105zd2_1420);
											if (INTEGERP(CAR(BgL_cdrzd2105zd2_1420)))
												{	/* Pp/pp.scm 156 */
													if (PAIRP(BgL_cdrzd2107zd2_1423))
														{	/* Pp/pp.scm 156 */
															bool_t BgL_test2142z00_4723;

															{	/* Pp/pp.scm 156 */
																obj_t BgL_tmpz00_4724;

																BgL_tmpz00_4724 = CAR(BgL_cdrzd2107zd2_1423);
																BgL_test2142z00_4723 = STRINGP(BgL_tmpz00_4724);
															}
															if (BgL_test2142z00_4723)
																{	/* Pp/pp.scm 156 */
																	BgL_test2136z00_4706 =
																		NULLP(CDR(BgL_cdrzd2107zd2_1423));
																}
															else
																{	/* Pp/pp.scm 156 */
																	BgL_test2136z00_4706 = ((bool_t) 0);
																}
														}
													else
														{	/* Pp/pp.scm 156 */
															BgL_test2136z00_4706 = ((bool_t) 0);
														}
												}
											else
												{	/* Pp/pp.scm 156 */
													BgL_test2136z00_4706 = ((bool_t) 0);
												}
										}
									else
										{	/* Pp/pp.scm 156 */
											BgL_test2136z00_4706 = ((bool_t) 0);
										}
								}
							else
								{	/* Pp/pp.scm 156 */
									BgL_test2136z00_4706 = ((bool_t) 0);
								}
						}
					else
						{	/* Pp/pp.scm 156 */
							BgL_test2136z00_4706 = ((bool_t) 0);
						}
					if (BgL_test2136z00_4706)
						{	/* Pp/pp.scm 161 */
							obj_t BgL_addz00_1295;

							{	/* Pp/pp.scm 161 */
								obj_t BgL_b1110z00_1301;

								{	/* Pp/pp.scm 161 */
									long BgL_a1109z00_1303;

									{	/* Pp/pp.scm 161 */
										obj_t BgL_stringz00_2403;

										{	/* Pp/pp.scm 161 */
											obj_t BgL_pairz00_2402;

											{	/* Pp/pp.scm 161 */
												obj_t BgL_pairz00_2401;

												BgL_pairz00_2401 = CDR(((obj_t) BgL_objz00_1269));
												BgL_pairz00_2402 = CDR(BgL_pairz00_2401);
											}
											BgL_stringz00_2403 = CAR(BgL_pairz00_2402);
										}
										BgL_a1109z00_1303 = STRING_LENGTH(BgL_stringz00_2403);
									}
									{	/* Pp/pp.scm 161 */
										obj_t BgL_za71za7_2404;

										BgL_za71za7_2404 = BINT(BgL_a1109z00_1303);
										{	/* Pp/pp.scm 161 */
											obj_t BgL_tmpz00_2406;

											BgL_tmpz00_2406 = BINT(0L);
											{	/* Pp/pp.scm 161 */
												bool_t BgL_test2143z00_4736;

												{	/* Pp/pp.scm 161 */
													obj_t BgL_tmpz00_4737;

													BgL_tmpz00_4737 = BINT(3L);
													BgL_test2143z00_4736 =
														BGL_ADDFX_OV(BgL_za71za7_2404, BgL_tmpz00_4737,
														BgL_tmpz00_2406);
												}
												if (BgL_test2143z00_4736)
													{	/* Pp/pp.scm 161 */
														BgL_b1110z00_1301 =
															bgl_bignum_add(bgl_long_to_bignum(
																(long) CINT(BgL_za71za7_2404)),
															bgl_long_to_bignum(3L));
													}
												else
													{	/* Pp/pp.scm 161 */
														BgL_b1110z00_1301 = BgL_tmpz00_2406;
													}
											}
										}
									}
								}
								{	/* Pp/pp.scm 161 */
									bool_t BgL_test2144z00_4744;

									if (INTEGERP(BGl_za2ppzd2widthza2zd2zz__ppz00))
										{	/* Pp/pp.scm 161 */
											BgL_test2144z00_4744 = INTEGERP(BgL_b1110z00_1301);
										}
									else
										{	/* Pp/pp.scm 161 */
											BgL_test2144z00_4744 = ((bool_t) 0);
										}
									if (BgL_test2144z00_4744)
										{	/* Pp/pp.scm 161 */
											obj_t BgL_za71za7_2414;

											BgL_za71za7_2414 = BGl_za2ppzd2widthza2zd2zz__ppz00;
											{	/* Pp/pp.scm 161 */
												obj_t BgL_tmpz00_2416;

												BgL_tmpz00_2416 = BINT(0L);
												if (BGL_SUBFX_OV(BgL_za71za7_2414, BgL_b1110z00_1301,
														BgL_tmpz00_2416))
													{	/* Pp/pp.scm 161 */
														BgL_addz00_1295 =
															bgl_bignum_sub(bgl_long_to_bignum(
																(long) CINT(BgL_za71za7_2414)),
															bgl_long_to_bignum(
																(long) CINT(BgL_b1110z00_1301)));
													}
												else
													{	/* Pp/pp.scm 161 */
														BgL_addz00_1295 = BgL_tmpz00_2416;
													}
											}
										}
									else
										{	/* Pp/pp.scm 161 */
											BgL_addz00_1295 =
												BGl_2zd2zd2zz__r4_numbers_6_5z00
												(BGl_za2ppzd2widthza2zd2zz__ppz00, BgL_b1110z00_1301);
										}
								}
							}
							if (((long) CINT(BgL_addz00_1295) <= 0L))
								{	/* Pp/pp.scm 163 */
									obj_t BgL_arg1274z00_1297;

									{	/* Pp/pp.scm 163 */
										obj_t BgL_pairz00_2430;

										{	/* Pp/pp.scm 163 */
											obj_t BgL_pairz00_2429;

											BgL_pairz00_2429 = CDR(((obj_t) BgL_objz00_1269));
											BgL_pairz00_2430 = CDR(BgL_pairz00_2429);
										}
										BgL_arg1274z00_1297 = CAR(BgL_pairz00_2430);
									}
									if (CBOOL(BgL_colz00_1270))
										{	/* Pp/pp.scm 138 */
											obj_t BgL__andtest_1044z00_2432;

											BgL__andtest_1044z00_2432 =
												((obj_t(*)(obj_t,
														obj_t))
												PROCEDURE_L_ENTRY(BgL_outputz00_3494))
												(BgL_outputz00_3494, BgL_arg1274z00_1297);
											if (CBOOL(BgL__andtest_1044z00_2432))
												{	/* Pp/pp.scm 138 */
													return
														ADDFX(BgL_colz00_1270,
														BINT(STRING_LENGTH(((obj_t) BgL_arg1274z00_1297))));
												}
											else
												{	/* Pp/pp.scm 138 */
													return BFALSE;
												}
										}
									else
										{	/* Pp/pp.scm 138 */
											return BFALSE;
										}
								}
							else
								{	/* Pp/pp.scm 164 */
									obj_t BgL_arg1276z00_1298;

									{	/* Pp/pp.scm 164 */
										obj_t BgL_arg1278z00_1299;
										obj_t BgL_arg1279z00_1300;

										{	/* Pp/pp.scm 164 */
											obj_t BgL_pairz00_2442;

											{	/* Pp/pp.scm 164 */
												obj_t BgL_pairz00_2441;

												BgL_pairz00_2441 = CDR(((obj_t) BgL_objz00_1269));
												BgL_pairz00_2442 = CDR(BgL_pairz00_2441);
											}
											BgL_arg1278z00_1299 = CAR(BgL_pairz00_2442);
										}
										BgL_arg1279z00_1300 =
											make_string(
											(long) CINT(BgL_addz00_1295), ((unsigned char) ' '));
										BgL_arg1276z00_1298 =
											string_append(BgL_arg1278z00_1299, BgL_arg1279z00_1300);
									}
									if (CBOOL(BgL_colz00_1270))
										{	/* Pp/pp.scm 138 */
											obj_t BgL__andtest_1044z00_2445;

											BgL__andtest_1044z00_2445 =
												((obj_t(*)(obj_t,
														obj_t))
												PROCEDURE_L_ENTRY(BgL_outputz00_3494))
												(BgL_outputz00_3494, BgL_arg1276z00_1298);
											if (CBOOL(BgL__andtest_1044z00_2445))
												{	/* Pp/pp.scm 138 */
													return
														ADDFX(BgL_colz00_1270,
														BINT(STRING_LENGTH(BgL_arg1276z00_1298)));
												}
											else
												{	/* Pp/pp.scm 138 */
													return BFALSE;
												}
										}
									else
										{	/* Pp/pp.scm 138 */
											return BFALSE;
										}
								}
						}
					else
						{	/* Pp/pp.scm 156 */
							if (PAIRP(BgL_objz00_1269))
								{	/* Pp/pp.scm 166 */
									if (BGl_z62readzd2macrozf3z43zz__ppz00(BgL_objz00_1269))
										{
											obj_t BgL_colz00_4801;
											obj_t BgL_objz00_4798;

											BgL_objz00_4798 = CAR(CDR(BgL_objz00_1269));
											BgL_colz00_4801 =
												BGl_outze70ze7zz__ppz00(BgL_outputz00_3494,
												BGl_z62readzd2macrozd2prefixz62zz__ppz00
												(BgL_objz00_1269), BgL_colz00_1270);
											BgL_colz00_1270 = BgL_colz00_4801;
											BgL_objz00_1269 = BgL_objz00_4798;
											goto BGl_z62wrz62zz__ppz00;
										}
									else
										{	/* Pp/pp.scm 143 */
											BgL_lz00_1439 = BgL_objz00_1269;
											BgL_colz00_1440 = BgL_colz00_1270;
										BgL_zc3z04anonymousza31403ze3z87_1441:
											if (NULLP(BgL_lz00_1439))
												{	/* Pp/pp.scm 148 */
													if (CBOOL(BgL_colz00_1440))
														{	/* Pp/pp.scm 138 */
															obj_t BgL__andtest_1044z00_2386;

															BgL__andtest_1044z00_2386 =
																((obj_t(*)(obj_t,
																		obj_t))
																PROCEDURE_L_ENTRY(BgL_outputz00_3494))
																(BgL_outputz00_3494,
																BGl_string1973z00zz__ppz00);
															if (CBOOL(BgL__andtest_1044z00_2386))
																{	/* Pp/pp.scm 138 */
																	return ADDFX(BgL_colz00_1440, BINT(2L));
																}
															else
																{	/* Pp/pp.scm 138 */
																	return BFALSE;
																}
														}
													else
														{	/* Pp/pp.scm 138 */
															return BFALSE;
														}
												}
											else
												{	/* Pp/pp.scm 149 */
													obj_t BgL_g1045z00_1443;
													obj_t BgL_g1046z00_1444;

													BgL_g1045z00_1443 = CDR(BgL_lz00_1439);
													{	/* Pp/pp.scm 149 */
														obj_t BgL_arg1414z00_1459;
														obj_t BgL_arg1415z00_1460;

														BgL_arg1414z00_1459 = CAR(BgL_lz00_1439);
														if (CBOOL(BgL_colz00_1440))
															{	/* Pp/pp.scm 138 */
																obj_t BgL__andtest_1044z00_2354;

																BgL__andtest_1044z00_2354 =
																	((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_L_ENTRY(BgL_outputz00_3494))
																	(BgL_outputz00_3494,
																	BGl_string1974z00zz__ppz00);
																if (CBOOL(BgL__andtest_1044z00_2354))
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1415z00_1460 =
																			ADDFX(BgL_colz00_1440, BINT(1L));
																	}
																else
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1415z00_1460 = BFALSE;
																	}
															}
														else
															{	/* Pp/pp.scm 138 */
																BgL_arg1415z00_1460 = BFALSE;
															}
														BgL_g1046z00_1444 =
															BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3495,
															BgL_outputz00_3494, BgL_arg1414z00_1459,
															BgL_arg1415z00_1460);
													}
													{
														obj_t BgL_lz00_1446;
														obj_t BgL_colz00_1447;

														BgL_lz00_1446 = BgL_g1045z00_1443;
														BgL_colz00_1447 = BgL_g1046z00_1444;
													BgL_zc3z04anonymousza31405ze3z87_1448:
														if (CBOOL(BgL_colz00_1447))
															{	/* Pp/pp.scm 150 */
																if (PAIRP(BgL_lz00_1446))
																	{	/* Pp/pp.scm 151 */
																		obj_t BgL_arg1407z00_1451;
																		obj_t BgL_arg1408z00_1452;

																		BgL_arg1407z00_1451 = CDR(BgL_lz00_1446);
																		{	/* Pp/pp.scm 151 */
																			obj_t BgL_arg1409z00_1453;
																			obj_t BgL_arg1410z00_1454;

																			BgL_arg1409z00_1453 = CAR(BgL_lz00_1446);
																			if (CBOOL(BgL_colz00_1447))
																				{	/* Pp/pp.scm 138 */
																					obj_t BgL__andtest_1044z00_2362;

																					BgL__andtest_1044z00_2362 =
																						((obj_t(*)(obj_t,
																								obj_t))
																						PROCEDURE_L_ENTRY
																						(BgL_outputz00_3494))
																						(BgL_outputz00_3494,
																						BGl_string1975z00zz__ppz00);
																					if (CBOOL(BgL__andtest_1044z00_2362))
																						{	/* Pp/pp.scm 138 */
																							BgL_arg1410z00_1454 =
																								ADDFX(BgL_colz00_1447,
																								BINT(1L));
																						}
																					else
																						{	/* Pp/pp.scm 138 */
																							BgL_arg1410z00_1454 = BFALSE;
																						}
																				}
																			else
																				{	/* Pp/pp.scm 138 */
																					BgL_arg1410z00_1454 = BFALSE;
																				}
																			BgL_arg1408z00_1452 =
																				BGl_z62wrz62zz__ppz00
																				(BgL_displayzf3zf3_3495,
																				BgL_outputz00_3494, BgL_arg1409z00_1453,
																				BgL_arg1410z00_1454);
																		}
																		{
																			obj_t BgL_colz00_4847;
																			obj_t BgL_lz00_4846;

																			BgL_lz00_4846 = BgL_arg1407z00_1451;
																			BgL_colz00_4847 = BgL_arg1408z00_1452;
																			BgL_colz00_1447 = BgL_colz00_4847;
																			BgL_lz00_1446 = BgL_lz00_4846;
																			goto
																				BgL_zc3z04anonymousza31405ze3z87_1448;
																		}
																	}
																else
																	{	/* Pp/pp.scm 151 */
																		if (NULLP(BgL_lz00_1446))
																			{	/* Pp/pp.scm 152 */
																				if (CBOOL(BgL_colz00_1447))
																					{	/* Pp/pp.scm 138 */
																						obj_t BgL__andtest_1044z00_2368;

																						BgL__andtest_1044z00_2368 =
																							((obj_t(*)(obj_t,
																									obj_t))
																							PROCEDURE_L_ENTRY
																							(BgL_outputz00_3494))
																							(BgL_outputz00_3494,
																							BGl_string1971z00zz__ppz00);
																						if (CBOOL
																							(BgL__andtest_1044z00_2368))
																							{	/* Pp/pp.scm 138 */
																								return
																									ADDFX(BgL_colz00_1447,
																									BINT(1L));
																							}
																						else
																							{	/* Pp/pp.scm 138 */
																								return BFALSE;
																							}
																					}
																				else
																					{	/* Pp/pp.scm 138 */
																						return BFALSE;
																					}
																			}
																		else
																			{	/* Pp/pp.scm 153 */
																				obj_t BgL_arg1412z00_1456;

																				{	/* Pp/pp.scm 153 */
																					obj_t BgL_arg1413z00_1457;

																					if (CBOOL(BgL_colz00_1447))
																						{	/* Pp/pp.scm 138 */
																							obj_t BgL__andtest_1044z00_2374;

																							BgL__andtest_1044z00_2374 =
																								((obj_t(*)(obj_t,
																										obj_t))
																								PROCEDURE_L_ENTRY
																								(BgL_outputz00_3494))
																								(BgL_outputz00_3494,
																								BGl_string1976z00zz__ppz00);
																							if (CBOOL
																								(BgL__andtest_1044z00_2374))
																								{	/* Pp/pp.scm 138 */
																									BgL_arg1413z00_1457 =
																										ADDFX(BgL_colz00_1447,
																										BINT(3L));
																								}
																							else
																								{	/* Pp/pp.scm 138 */
																									BgL_arg1413z00_1457 = BFALSE;
																								}
																						}
																					else
																						{	/* Pp/pp.scm 138 */
																							BgL_arg1413z00_1457 = BFALSE;
																						}
																					BgL_arg1412z00_1456 =
																						BGl_z62wrz62zz__ppz00
																						(BgL_displayzf3zf3_3495,
																						BgL_outputz00_3494, BgL_lz00_1446,
																						BgL_arg1413z00_1457);
																				}
																				if (CBOOL(BgL_arg1412z00_1456))
																					{	/* Pp/pp.scm 138 */
																						obj_t BgL__andtest_1044z00_2380;

																						BgL__andtest_1044z00_2380 =
																							((obj_t(*)(obj_t,
																									obj_t))
																							PROCEDURE_L_ENTRY
																							(BgL_outputz00_3494))
																							(BgL_outputz00_3494,
																							BGl_string1971z00zz__ppz00);
																						if (CBOOL
																							(BgL__andtest_1044z00_2380))
																							{	/* Pp/pp.scm 138 */
																								return
																									ADDFX(BgL_arg1412z00_1456,
																									BINT(1L));
																							}
																						else
																							{	/* Pp/pp.scm 138 */
																								return BFALSE;
																							}
																					}
																				else
																					{	/* Pp/pp.scm 138 */
																						return BFALSE;
																					}
																			}
																	}
															}
														else
															{	/* Pp/pp.scm 150 */
																return BFALSE;
															}
													}
												}
										}
								}
							else
								{	/* Pp/pp.scm 166 */
									if (NULLP(BgL_objz00_1269))
										{
											obj_t BgL_colz00_4884;
											obj_t BgL_lz00_4883;

											BgL_lz00_4883 = BgL_objz00_1269;
											BgL_colz00_4884 = BgL_colz00_1270;
											BgL_colz00_1440 = BgL_colz00_4884;
											BgL_lz00_1439 = BgL_lz00_4883;
											goto BgL_zc3z04anonymousza31403ze3z87_1441;
										}
									else
										{	/* Pp/pp.scm 168 */
											if (VECTORP(BgL_objz00_1269))
												{	/* Pp/pp.scm 171 */
													obj_t BgL_arg1285z00_1308;
													obj_t BgL_arg1287z00_1309;

													BgL_arg1285z00_1308 =
														BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00
														(BgL_objz00_1269);
													{	/* Pp/pp.scm 172 */
														obj_t BgL_arg1291z00_1310;

														BgL_arg1291z00_1310 =
															BGl_vectorzd2prefixzd2zz__ppz00(BgL_objz00_1269);
														if (CBOOL(BgL_colz00_1270))
															{	/* Pp/pp.scm 138 */
																obj_t BgL__andtest_1044z00_2459;

																BgL__andtest_1044z00_2459 =
																	((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_L_ENTRY(BgL_outputz00_3494))
																	(BgL_outputz00_3494, BgL_arg1291z00_1310);
																if (CBOOL(BgL__andtest_1044z00_2459))
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1287z00_1309 =
																			ADDFX(BgL_colz00_1270,
																			BINT(STRING_LENGTH(BgL_arg1291z00_1310)));
																	}
																else
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1287z00_1309 = BFALSE;
																	}
															}
														else
															{	/* Pp/pp.scm 138 */
																BgL_arg1287z00_1309 = BFALSE;
															}
													}
													{
														obj_t BgL_colz00_4901;
														obj_t BgL_lz00_4900;

														BgL_lz00_4900 = BgL_arg1285z00_1308;
														BgL_colz00_4901 = BgL_arg1287z00_1309;
														BgL_colz00_1440 = BgL_colz00_4901;
														BgL_lz00_1439 = BgL_lz00_4900;
														goto BgL_zc3z04anonymousza31403ze3z87_1441;
													}
												}
											else
												{	/* Pp/pp.scm 170 */
													if (BOOLEANP(BgL_objz00_1269))
														{	/* Pp/pp.scm 174 */
															obj_t BgL_arg1293z00_1312;

															if (CBOOL(BgL_objz00_1269))
																{	/* Pp/pp.scm 174 */
																	BgL_arg1293z00_1312 =
																		BGl_string1979z00zz__ppz00;
																}
															else
																{	/* Pp/pp.scm 174 */
																	BgL_arg1293z00_1312 =
																		BGl_string1980z00zz__ppz00;
																}
															if (CBOOL(BgL_colz00_1270))
																{	/* Pp/pp.scm 138 */
																	obj_t BgL__andtest_1044z00_2465;

																	BgL__andtest_1044z00_2465 =
																		((obj_t(*)(obj_t,
																				obj_t))
																		PROCEDURE_L_ENTRY(BgL_outputz00_3494))
																		(BgL_outputz00_3494, BgL_arg1293z00_1312);
																	if (CBOOL(BgL__andtest_1044z00_2465))
																		{	/* Pp/pp.scm 138 */
																			return
																				ADDFX(BgL_colz00_1270,
																				BINT(STRING_LENGTH
																					(BgL_arg1293z00_1312)));
																		}
																	else
																		{	/* Pp/pp.scm 138 */
																			return BFALSE;
																		}
																}
															else
																{	/* Pp/pp.scm 138 */
																	return BFALSE;
																}
														}
													else
														{	/* Pp/pp.scm 173 */
															if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
																(BgL_objz00_1269))
																{	/* Pp/pp.scm 175 */
																	if (ELONGP(BgL_objz00_1269))
																		{	/* Pp/pp.scm 178 */
																			obj_t BgL_arg1296z00_1315;

																			{	/* Pp/pp.scm 178 */
																				obj_t BgL_arg1298z00_1316;

																				{	/* Ieee/number.scm 172 */

																					BgL_arg1298z00_1316 =
																						BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																						(BgL_objz00_1269, BINT(10L));
																				}
																				BgL_arg1296z00_1315 =
																					string_append
																					(BGl_string1981z00zz__ppz00,
																					BgL_arg1298z00_1316);
																			}
																			if (CBOOL(BgL_colz00_1270))
																				{	/* Pp/pp.scm 138 */
																					obj_t BgL__andtest_1044z00_2471;

																					BgL__andtest_1044z00_2471 =
																						((obj_t(*)(obj_t,
																								obj_t))
																						PROCEDURE_L_ENTRY
																						(BgL_outputz00_3494))
																						(BgL_outputz00_3494,
																						BgL_arg1296z00_1315);
																					if (CBOOL(BgL__andtest_1044z00_2471))
																						{	/* Pp/pp.scm 138 */
																							return
																								ADDFX(BgL_colz00_1270,
																								BINT(STRING_LENGTH
																									(BgL_arg1296z00_1315)));
																						}
																					else
																						{	/* Pp/pp.scm 138 */
																							return BFALSE;
																						}
																				}
																			else
																				{	/* Pp/pp.scm 138 */
																					return BFALSE;
																				}
																		}
																	else
																		{	/* Pp/pp.scm 177 */
																			if (LLONGP(BgL_objz00_1269))
																				{	/* Pp/pp.scm 180 */
																					obj_t BgL_arg1301z00_1320;

																					{	/* Pp/pp.scm 180 */
																						obj_t BgL_arg1322z00_1321;

																						{	/* Ieee/number.scm 172 */

																							BgL_arg1322z00_1321 =
																								BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																								(BgL_objz00_1269, BINT(10L));
																						}
																						BgL_arg1301z00_1320 =
																							string_append
																							(BGl_string1982z00zz__ppz00,
																							BgL_arg1322z00_1321);
																					}
																					if (CBOOL(BgL_colz00_1270))
																						{	/* Pp/pp.scm 138 */
																							obj_t BgL__andtest_1044z00_2477;

																							BgL__andtest_1044z00_2477 =
																								((obj_t(*)(obj_t,
																										obj_t))
																								PROCEDURE_L_ENTRY
																								(BgL_outputz00_3494))
																								(BgL_outputz00_3494,
																								BgL_arg1301z00_1320);
																							if (CBOOL
																								(BgL__andtest_1044z00_2477))
																								{	/* Pp/pp.scm 138 */
																									return
																										ADDFX(BgL_colz00_1270,
																										BINT(STRING_LENGTH
																											(BgL_arg1301z00_1320)));
																								}
																							else
																								{	/* Pp/pp.scm 138 */
																									return BFALSE;
																								}
																						}
																					else
																						{	/* Pp/pp.scm 138 */
																							return BFALSE;
																						}
																				}
																			else
																				{	/* Pp/pp.scm 179 */
																					if (BGL_UINT8P(BgL_objz00_1269))
																						{	/* Pp/pp.scm 182 */
																							obj_t BgL_arg1329z00_1325;

																							{	/* Pp/pp.scm 182 */
																								obj_t BgL_arg1330z00_1326;

																								{	/* Ieee/number.scm 172 */

																									BgL_arg1330z00_1326 =
																										BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																										(BgL_objz00_1269,
																										BINT(10L));
																								}
																								BgL_arg1329z00_1325 =
																									string_append
																									(BGl_string1983z00zz__ppz00,
																									BgL_arg1330z00_1326);
																							}
																							if (CBOOL(BgL_colz00_1270))
																								{	/* Pp/pp.scm 138 */
																									obj_t
																										BgL__andtest_1044z00_2483;
																									BgL__andtest_1044z00_2483 =
																										((obj_t(*)(obj_t,
																												obj_t))
																										PROCEDURE_L_ENTRY
																										(BgL_outputz00_3494))
																										(BgL_outputz00_3494,
																										BgL_arg1329z00_1325);
																									if (CBOOL
																										(BgL__andtest_1044z00_2483))
																										{	/* Pp/pp.scm 138 */
																											return
																												ADDFX(BgL_colz00_1270,
																												BINT(STRING_LENGTH
																													(BgL_arg1329z00_1325)));
																										}
																									else
																										{	/* Pp/pp.scm 138 */
																											return BFALSE;
																										}
																								}
																							else
																								{	/* Pp/pp.scm 138 */
																									return BFALSE;
																								}
																						}
																					else
																						{	/* Pp/pp.scm 181 */
																							if (BGL_UINT16P(BgL_objz00_1269))
																								{	/* Pp/pp.scm 184 */
																									obj_t BgL_arg1332z00_1330;

																									{	/* Pp/pp.scm 184 */
																										obj_t BgL_arg1333z00_1331;

																										{	/* Ieee/number.scm 172 */

																											BgL_arg1333z00_1331 =
																												BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																												(BgL_objz00_1269,
																												BINT(10L));
																										}
																										BgL_arg1332z00_1330 =
																											string_append
																											(BGl_string1984z00zz__ppz00,
																											BgL_arg1333z00_1331);
																									}
																									if (CBOOL(BgL_colz00_1270))
																										{	/* Pp/pp.scm 138 */
																											obj_t
																												BgL__andtest_1044z00_2489;
																											BgL__andtest_1044z00_2489
																												=
																												((obj_t(*)(obj_t,
																														obj_t))
																												PROCEDURE_L_ENTRY
																												(BgL_outputz00_3494))
																												(BgL_outputz00_3494,
																												BgL_arg1332z00_1330);
																											if (CBOOL
																												(BgL__andtest_1044z00_2489))
																												{	/* Pp/pp.scm 138 */
																													return
																														ADDFX
																														(BgL_colz00_1270,
																														BINT(STRING_LENGTH
																															(BgL_arg1332z00_1330)));
																												}
																											else
																												{	/* Pp/pp.scm 138 */
																													return BFALSE;
																												}
																										}
																									else
																										{	/* Pp/pp.scm 138 */
																											return BFALSE;
																										}
																								}
																							else
																								{	/* Pp/pp.scm 183 */
																									if (BGL_UINT32P
																										(BgL_objz00_1269))
																										{	/* Pp/pp.scm 186 */
																											obj_t BgL_arg1335z00_1335;

																											{	/* Pp/pp.scm 186 */
																												obj_t
																													BgL_arg1336z00_1336;
																												{	/* Ieee/number.scm 172 */

																													BgL_arg1336z00_1336 =
																														BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																														(BgL_objz00_1269,
																														BINT(10L));
																												}
																												BgL_arg1335z00_1335 =
																													string_append
																													(BGl_string1985z00zz__ppz00,
																													BgL_arg1336z00_1336);
																											}
																											if (CBOOL
																												(BgL_colz00_1270))
																												{	/* Pp/pp.scm 138 */
																													obj_t
																														BgL__andtest_1044z00_2495;
																													BgL__andtest_1044z00_2495
																														=
																														((obj_t(*)(obj_t,
																																obj_t))
																														PROCEDURE_L_ENTRY
																														(BgL_outputz00_3494))
																														(BgL_outputz00_3494,
																														BgL_arg1335z00_1335);
																													if (CBOOL
																														(BgL__andtest_1044z00_2495))
																														{	/* Pp/pp.scm 138 */
																															return
																																ADDFX
																																(BgL_colz00_1270,
																																BINT
																																(STRING_LENGTH
																																	(BgL_arg1335z00_1335)));
																														}
																													else
																														{	/* Pp/pp.scm 138 */
																															return BFALSE;
																														}
																												}
																											else
																												{	/* Pp/pp.scm 138 */
																													return BFALSE;
																												}
																										}
																									else
																										{	/* Pp/pp.scm 185 */
																											if (BGL_INT8P
																												(BgL_objz00_1269))
																												{	/* Pp/pp.scm 188 */
																													obj_t
																														BgL_arg1338z00_1340;
																													{	/* Pp/pp.scm 188 */
																														obj_t
																															BgL_arg1339z00_1341;
																														{	/* Ieee/number.scm 172 */

																															BgL_arg1339z00_1341
																																=
																																BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																																(BgL_objz00_1269,
																																BINT(10L));
																														}
																														BgL_arg1338z00_1340
																															=
																															string_append
																															(BGl_string1986z00zz__ppz00,
																															BgL_arg1339z00_1341);
																													}
																													if (CBOOL
																														(BgL_colz00_1270))
																														{	/* Pp/pp.scm 138 */
																															obj_t
																																BgL__andtest_1044z00_2501;
																															BgL__andtest_1044z00_2501
																																=
																																((obj_t(*)
																																	(obj_t,
																																		obj_t))
																																PROCEDURE_L_ENTRY
																																(BgL_outputz00_3494))
																																(BgL_outputz00_3494,
																																BgL_arg1338z00_1340);
																															if (CBOOL
																																(BgL__andtest_1044z00_2501))
																																{	/* Pp/pp.scm 138 */
																																	return
																																		ADDFX
																																		(BgL_colz00_1270,
																																		BINT
																																		(STRING_LENGTH
																																			(BgL_arg1338z00_1340)));
																																}
																															else
																																{	/* Pp/pp.scm 138 */
																																	return BFALSE;
																																}
																														}
																													else
																														{	/* Pp/pp.scm 138 */
																															return BFALSE;
																														}
																												}
																											else
																												{	/* Pp/pp.scm 187 */
																													if (BGL_INT16P
																														(BgL_objz00_1269))
																														{	/* Pp/pp.scm 190 */
																															obj_t
																																BgL_arg1341z00_1345;
																															{	/* Pp/pp.scm 190 */
																																obj_t
																																	BgL_arg1342z00_1346;
																																{	/* Ieee/number.scm 172 */

																																	BgL_arg1342z00_1346
																																		=
																																		BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																																		(BgL_objz00_1269,
																																		BINT(10L));
																																}
																																BgL_arg1341z00_1345
																																	=
																																	string_append
																																	(BGl_string1987z00zz__ppz00,
																																	BgL_arg1342z00_1346);
																															}
																															if (CBOOL
																																(BgL_colz00_1270))
																																{	/* Pp/pp.scm 138 */
																																	obj_t
																																		BgL__andtest_1044z00_2507;
																																	BgL__andtest_1044z00_2507
																																		=
																																		((obj_t(*)
																																			(obj_t,
																																				obj_t))
																																		PROCEDURE_L_ENTRY
																																		(BgL_outputz00_3494))
																																		(BgL_outputz00_3494,
																																		BgL_arg1341z00_1345);
																																	if (CBOOL
																																		(BgL__andtest_1044z00_2507))
																																		{	/* Pp/pp.scm 138 */
																																			return
																																				ADDFX
																																				(BgL_colz00_1270,
																																				BINT
																																				(STRING_LENGTH
																																					(BgL_arg1341z00_1345)));
																																		}
																																	else
																																		{	/* Pp/pp.scm 138 */
																																			return
																																				BFALSE;
																																		}
																																}
																															else
																																{	/* Pp/pp.scm 138 */
																																	return BFALSE;
																																}
																														}
																													else
																														{	/* Pp/pp.scm 189 */
																															if (BGL_INT32P
																																(BgL_objz00_1269))
																																{	/* Pp/pp.scm 192 */
																																	obj_t
																																		BgL_arg1345z00_1350;
																																	{	/* Pp/pp.scm 192 */
																																		obj_t
																																			BgL_arg1346z00_1351;
																																		{	/* Ieee/number.scm 172 */

																																			BgL_arg1346z00_1351
																																				=
																																				BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																																				(BgL_objz00_1269,
																																				BINT
																																				(10L));
																																		}
																																		BgL_arg1345z00_1350
																																			=
																																			string_append
																																			(BGl_string1988z00zz__ppz00,
																																			BgL_arg1346z00_1351);
																																	}
																																	if (CBOOL
																																		(BgL_colz00_1270))
																																		{	/* Pp/pp.scm 138 */
																																			obj_t
																																				BgL__andtest_1044z00_2513;
																																			BgL__andtest_1044z00_2513
																																				=
																																				((obj_t
																																					(*)
																																					(obj_t,
																																						obj_t))
																																				PROCEDURE_L_ENTRY
																																				(BgL_outputz00_3494))
																																				(BgL_outputz00_3494,
																																				BgL_arg1345z00_1350);
																																			if (CBOOL
																																				(BgL__andtest_1044z00_2513))
																																				{	/* Pp/pp.scm 138 */
																																					return
																																						ADDFX
																																						(BgL_colz00_1270,
																																						BINT
																																						(STRING_LENGTH
																																							(BgL_arg1345z00_1350)));
																																				}
																																			else
																																				{	/* Pp/pp.scm 138 */
																																					return
																																						BFALSE;
																																				}
																																		}
																																	else
																																		{	/* Pp/pp.scm 138 */
																																			return
																																				BFALSE;
																																		}
																																}
																															else
																																{	/* Pp/pp.scm 191 */
																																	if (BIGNUMP
																																		(BgL_objz00_1269))
																																		{	/* Pp/pp.scm 194 */
																																			obj_t
																																				BgL_arg1349z00_1355;
																																			{	/* Pp/pp.scm 194 */
																																				obj_t
																																					BgL_arg1351z00_1356;
																																				{	/* Ieee/number.scm 172 */

																																					BgL_arg1351z00_1356
																																						=
																																						BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																																						(BgL_objz00_1269,
																																						BINT
																																						(10L));
																																				}
																																				BgL_arg1349z00_1355
																																					=
																																					string_append
																																					(BGl_string1989z00zz__ppz00,
																																					BgL_arg1351z00_1356);
																																			}
																																			if (CBOOL
																																				(BgL_colz00_1270))
																																				{	/* Pp/pp.scm 138 */
																																					obj_t
																																						BgL__andtest_1044z00_2519;
																																					BgL__andtest_1044z00_2519
																																						=
																																						(
																																						(obj_t
																																							(*)
																																							(obj_t,
																																								obj_t))
																																						PROCEDURE_L_ENTRY
																																						(BgL_outputz00_3494))
																																						(BgL_outputz00_3494,
																																						BgL_arg1349z00_1355);
																																					if (CBOOL(BgL__andtest_1044z00_2519))
																																						{	/* Pp/pp.scm 138 */
																																							return
																																								ADDFX
																																								(BgL_colz00_1270,
																																								BINT
																																								(STRING_LENGTH
																																									(BgL_arg1349z00_1355)));
																																						}
																																					else
																																						{	/* Pp/pp.scm 138 */
																																							return
																																								BFALSE;
																																						}
																																				}
																																			else
																																				{	/* Pp/pp.scm 138 */
																																					return
																																						BFALSE;
																																				}
																																		}
																																	else
																																		{	/* Pp/pp.scm 196 */
																																			obj_t
																																				BgL_arg1352z00_1359;
																																			{	/* Ieee/number.scm 172 */

																																				BgL_arg1352z00_1359
																																					=
																																					BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																																					(BgL_objz00_1269,
																																					BINT
																																					(10L));
																																			}
																																			if (CBOOL
																																				(BgL_colz00_1270))
																																				{	/* Pp/pp.scm 138 */
																																					obj_t
																																						BgL__andtest_1044z00_2525;
																																					BgL__andtest_1044z00_2525
																																						=
																																						(
																																						(obj_t
																																							(*)
																																							(obj_t,
																																								obj_t))
																																						PROCEDURE_L_ENTRY
																																						(BgL_outputz00_3494))
																																						(BgL_outputz00_3494,
																																						BgL_arg1352z00_1359);
																																					if (CBOOL(BgL__andtest_1044z00_2525))
																																						{	/* Pp/pp.scm 138 */
																																							return
																																								ADDFX
																																								(BgL_colz00_1270,
																																								BINT
																																								(STRING_LENGTH
																																									(BgL_arg1352z00_1359)));
																																						}
																																					else
																																						{	/* Pp/pp.scm 138 */
																																							return
																																								BFALSE;
																																						}
																																				}
																																			else
																																				{	/* Pp/pp.scm 138 */
																																					return
																																						BFALSE;
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
															else
																{	/* Pp/pp.scm 175 */
																	if (SYMBOLP(BgL_objz00_1269))
																		{	/* Pp/pp.scm 198 */
																			obj_t BgL_pz00_1363;

																			{	/* Pp/pp.scm 198 */

																				{	/* Ieee/port.scm 485 */

																					BgL_pz00_1363 =
																						BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00
																						(BTRUE);
																				}
																			}
																			if (CBOOL(BgL_displayzf3zf3_3495))
																				{	/* Pp/pp.scm 199 */
																					bgl_display_obj(BgL_objz00_1269,
																						BgL_pz00_1363);
																				}
																			else
																				{	/* Pp/pp.scm 201 */
																					obj_t BgL_list1354z00_1364;

																					BgL_list1354z00_1364 =
																						MAKE_YOUNG_PAIR(BgL_pz00_1363,
																						BNIL);
																					BGl_writez00zz__r4_output_6_10_3z00
																						(BgL_objz00_1269,
																						BgL_list1354z00_1364);
																				}
																			{	/* Pp/pp.scm 202 */
																				obj_t BgL_casezd2valuezd2_1365;

																				BgL_casezd2valuezd2_1365 =
																					BGl_za2ppzd2caseza2zd2zz__ppz00;
																				if ((BgL_casezd2valuezd2_1365 ==
																						BGl_symbol1964z00zz__ppz00))
																					{	/* Pp/pp.scm 204 */
																						obj_t BgL_arg1356z00_1367;

																						BgL_arg1356z00_1367 =
																							bgl_close_output_port
																							(BgL_pz00_1363);
																						if (CBOOL(BgL_colz00_1270))
																							{	/* Pp/pp.scm 138 */
																								obj_t BgL__andtest_1044z00_2533;

																								BgL__andtest_1044z00_2533 =
																									((obj_t(*)(obj_t,
																											obj_t))
																									PROCEDURE_L_ENTRY
																									(BgL_outputz00_3494))
																									(BgL_outputz00_3494,
																									BgL_arg1356z00_1367);
																								if (CBOOL
																									(BgL__andtest_1044z00_2533))
																									{	/* Pp/pp.scm 138 */
																										return
																											ADDFX(BgL_colz00_1270,
																											BINT(STRING_LENGTH(
																													((obj_t)
																														BgL_arg1356z00_1367))));
																									}
																								else
																									{	/* Pp/pp.scm 138 */
																										return BFALSE;
																									}
																							}
																						else
																							{	/* Pp/pp.scm 138 */
																								return BFALSE;
																							}
																					}
																				else
																					{	/* Pp/pp.scm 202 */
																						if (
																							(BgL_casezd2valuezd2_1365 ==
																								BGl_symbol1990z00zz__ppz00))
																							{	/* Pp/pp.scm 206 */
																								obj_t BgL_arg1358z00_1369;

																								BgL_arg1358z00_1369 =
																									BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
																									(bgl_close_output_port
																									(BgL_pz00_1363));
																								if (CBOOL(BgL_colz00_1270))
																									{	/* Pp/pp.scm 138 */
																										obj_t
																											BgL__andtest_1044z00_2541;
																										BgL__andtest_1044z00_2541 =
																											((obj_t(*)(obj_t,
																													obj_t))
																											PROCEDURE_L_ENTRY
																											(BgL_outputz00_3494))
																											(BgL_outputz00_3494,
																											BgL_arg1358z00_1369);
																										if (CBOOL
																											(BgL__andtest_1044z00_2541))
																											{	/* Pp/pp.scm 138 */
																												return
																													ADDFX(BgL_colz00_1270,
																													BINT(STRING_LENGTH
																														(BgL_arg1358z00_1369)));
																											}
																										else
																											{	/* Pp/pp.scm 138 */
																												return BFALSE;
																											}
																									}
																								else
																									{	/* Pp/pp.scm 138 */
																										return BFALSE;
																									}
																							}
																						else
																							{	/* Pp/pp.scm 209 */
																								obj_t BgL_arg1360z00_1371;

																								BgL_arg1360z00_1371 =
																									BGl_stringzd2downcasezd2zz__r4_strings_6_7z00
																									(bgl_close_output_port
																									(BgL_pz00_1363));
																								if (CBOOL(BgL_colz00_1270))
																									{	/* Pp/pp.scm 138 */
																										obj_t
																											BgL__andtest_1044z00_2548;
																										BgL__andtest_1044z00_2548 =
																											((obj_t(*)(obj_t,
																													obj_t))
																											PROCEDURE_L_ENTRY
																											(BgL_outputz00_3494))
																											(BgL_outputz00_3494,
																											BgL_arg1360z00_1371);
																										if (CBOOL
																											(BgL__andtest_1044z00_2548))
																											{	/* Pp/pp.scm 138 */
																												return
																													ADDFX(BgL_colz00_1270,
																													BINT(STRING_LENGTH
																														(BgL_arg1360z00_1371)));
																											}
																										else
																											{	/* Pp/pp.scm 138 */
																												return BFALSE;
																											}
																									}
																								else
																									{	/* Pp/pp.scm 138 */
																										return BFALSE;
																									}
																							}
																					}
																			}
																		}
																	else
																		{	/* Pp/pp.scm 197 */
																			if (PROCEDUREP(BgL_objz00_1269))
																				{	/* Pp/pp.scm 212 */
																					obj_t BgL_arg1363z00_1375;

																					{	/* Pp/pp.scm 212 */
																						obj_t
																							BgL_zc3z04anonymousza31365ze3z87_3453;
																						BgL_zc3z04anonymousza31365ze3z87_3453
																							=
																							MAKE_FX_PROCEDURE
																							(BGl_z62zc3z04anonymousza31365ze3ze5zz__ppz00,
																							(int) (0L), (int) (1L));
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza31365ze3z87_3453,
																							(int) (0L), BgL_objz00_1269);
																						BgL_arg1363z00_1375 =
																							BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00
																							(BgL_zc3z04anonymousza31365ze3z87_3453);
																					}
																					if (CBOOL(BgL_colz00_1270))
																						{	/* Pp/pp.scm 138 */
																							obj_t BgL__andtest_1044z00_2556;

																							BgL__andtest_1044z00_2556 =
																								((obj_t(*)(obj_t,
																										obj_t))
																								PROCEDURE_L_ENTRY
																								(BgL_outputz00_3494))
																								(BgL_outputz00_3494,
																								BgL_arg1363z00_1375);
																							if (CBOOL
																								(BgL__andtest_1044z00_2556))
																								{	/* Pp/pp.scm 138 */
																									return
																										ADDFX(BgL_colz00_1270,
																										BINT(STRING_LENGTH
																											(BgL_arg1363z00_1375)));
																								}
																							else
																								{	/* Pp/pp.scm 138 */
																									return BFALSE;
																								}
																						}
																					else
																						{	/* Pp/pp.scm 138 */
																							return BFALSE;
																						}
																				}
																			else
																				{	/* Pp/pp.scm 211 */
																					if (STRINGP(BgL_objz00_1269))
																						{	/* Pp/pp.scm 214 */
																							obj_t BgL_objz00_1381;

																							BgL_objz00_1381 =
																								string_for_read
																								(BgL_objz00_1269);
																							if (CBOOL(BgL_displayzf3zf3_3495))
																								{	/* Pp/pp.scm 215 */
																									if (CBOOL(BgL_colz00_1270))
																										{	/* Pp/pp.scm 138 */
																											obj_t
																												BgL__andtest_1044z00_2563;
																											BgL__andtest_1044z00_2563
																												=
																												((obj_t(*)(obj_t,
																														obj_t))
																												PROCEDURE_L_ENTRY
																												(BgL_outputz00_3494))
																												(BgL_outputz00_3494,
																												BgL_objz00_1381);
																											if (CBOOL
																												(BgL__andtest_1044z00_2563))
																												{	/* Pp/pp.scm 138 */
																													return
																														ADDFX
																														(BgL_colz00_1270,
																														BINT(STRING_LENGTH
																															(BgL_objz00_1381)));
																												}
																											else
																												{	/* Pp/pp.scm 138 */
																													return BFALSE;
																												}
																										}
																									else
																										{	/* Pp/pp.scm 138 */
																											return BFALSE;
																										}
																								}
																							else
																								{	/* Pp/pp.scm 217 */
																									obj_t BgL_g1048z00_1382;

																									{	/* Pp/pp.scm 219 */
																										obj_t BgL_arg1376z00_1396;

																										if (BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00())
																											{	/* Pp/pp.scm 219 */
																												BgL_arg1376z00_1396 =
																													BGl_string1992z00zz__ppz00;
																											}
																										else
																											{	/* Pp/pp.scm 219 */
																												BgL_arg1376z00_1396 =
																													BGl_string1993z00zz__ppz00;
																											}
																										if (CBOOL(BgL_colz00_1270))
																											{	/* Pp/pp.scm 138 */
																												obj_t
																													BgL__andtest_1044z00_2569;
																												BgL__andtest_1044z00_2569
																													=
																													((obj_t(*)(obj_t,
																															obj_t))
																													PROCEDURE_L_ENTRY
																													(BgL_outputz00_3494))
																													(BgL_outputz00_3494,
																													BgL_arg1376z00_1396);
																												if (CBOOL
																													(BgL__andtest_1044z00_2569))
																													{	/* Pp/pp.scm 138 */
																														BgL_g1048z00_1382 =
																															ADDFX
																															(BgL_colz00_1270,
																															BINT(STRING_LENGTH
																																(BgL_arg1376z00_1396)));
																													}
																												else
																													{	/* Pp/pp.scm 138 */
																														BgL_g1048z00_1382 =
																															BFALSE;
																													}
																											}
																										else
																											{	/* Pp/pp.scm 138 */
																												BgL_g1048z00_1382 =
																													BFALSE;
																											}
																									}
																									{
																										long BgL_jz00_2623;

																										BgL_jz00_2623 = 0L;
																									BgL_loopz00_2622:
																										{	/* Pp/pp.scm 223 */
																											bool_t
																												BgL_test2228z00_5175;
																											if (CBOOL
																												(BgL_g1048z00_1382))
																												{	/* Pp/pp.scm 223 */
																													BgL_test2228z00_5175 =
																														(BgL_jz00_2623 <
																														STRING_LENGTH
																														(BgL_objz00_1381));
																												}
																											else
																												{	/* Pp/pp.scm 223 */
																													BgL_test2228z00_5175 =
																														((bool_t) 0);
																												}
																											if (BgL_test2228z00_5175)
																												{
																													long BgL_jz00_5180;

																													BgL_jz00_5180 =
																														(BgL_jz00_2623 +
																														1L);
																													BgL_jz00_2623 =
																														BgL_jz00_5180;
																													goto BgL_loopz00_2622;
																												}
																											else
																												{	/* Pp/pp.scm 227 */
																													obj_t
																														BgL_arg1372z00_2628;
																													BgL_arg1372z00_2628 =
																														BGl_outze70ze7zz__ppz00
																														(BgL_outputz00_3494,
																														c_substring
																														(BgL_objz00_1381,
																															0L,
																															BgL_jz00_2623),
																														BgL_g1048z00_1382);
																													if (CBOOL
																														(BgL_arg1372z00_2628))
																														{	/* Pp/pp.scm 138 */
																															obj_t
																																BgL__andtest_1044z00_2639;
																															BgL__andtest_1044z00_2639
																																=
																																((obj_t(*)
																																	(obj_t,
																																		obj_t))
																																PROCEDURE_L_ENTRY
																																(BgL_outputz00_3494))
																																(BgL_outputz00_3494,
																																BGl_string1993z00zz__ppz00);
																															if (CBOOL
																																(BgL__andtest_1044z00_2639))
																																{	/* Pp/pp.scm 138 */
																																	return
																																		ADDFX
																																		(BgL_arg1372z00_2628,
																																		BINT(1L));
																																}
																															else
																																{	/* Pp/pp.scm 138 */
																																	return BFALSE;
																																}
																														}
																													else
																														{	/* Pp/pp.scm 138 */
																															return BFALSE;
																														}
																												}
																										}
																									}
																								}
																						}
																					else
																						{	/* Pp/pp.scm 213 */
																							if (CHARP(BgL_objz00_1269))
																								{	/* Pp/pp.scm 229 */
																									if (CBOOL
																										(BgL_displayzf3zf3_3495))
																										{	/* Pp/pp.scm 231 */
																											obj_t BgL_arg1379z00_1399;

																											BgL_arg1379z00_1399 =
																												make_string(1L,
																												CCHAR(BgL_objz00_1269));
																											if (CBOOL
																												(BgL_colz00_1270))
																												{	/* Pp/pp.scm 138 */
																													obj_t
																														BgL__andtest_1044z00_2645;
																													BgL__andtest_1044z00_2645
																														=
																														((obj_t(*)(obj_t,
																																obj_t))
																														PROCEDURE_L_ENTRY
																														(BgL_outputz00_3494))
																														(BgL_outputz00_3494,
																														BgL_arg1379z00_1399);
																													if (CBOOL
																														(BgL__andtest_1044z00_2645))
																														{	/* Pp/pp.scm 138 */
																															return
																																ADDFX
																																(BgL_colz00_1270,
																																BINT
																																(STRING_LENGTH
																																	(BgL_arg1379z00_1399)));
																														}
																													else
																														{	/* Pp/pp.scm 138 */
																															return BFALSE;
																														}
																												}
																											else
																												{	/* Pp/pp.scm 138 */
																													return BFALSE;
																												}
																										}
																									else
																										{	/* Pp/pp.scm 232 */
																											obj_t BgL_pz00_1400;

																											{	/* Pp/pp.scm 232 */

																												{	/* Ieee/port.scm 485 */

																													BgL_pz00_1400 =
																														BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00
																														(BTRUE);
																												}
																											}
																											{	/* Pp/pp.scm 233 */
																												obj_t
																													BgL_list1380z00_1401;
																												BgL_list1380z00_1401 =
																													MAKE_YOUNG_PAIR
																													(BgL_pz00_1400, BNIL);
																												BGl_writez00zz__r4_output_6_10_3z00
																													(BgL_objz00_1269,
																													BgL_list1380z00_1401);
																											}
																											{	/* Pp/pp.scm 234 */
																												obj_t
																													BgL_arg1381z00_1402;
																												BgL_arg1381z00_1402 =
																													bgl_close_output_port
																													(BgL_pz00_1400);
																												if (CBOOL
																													(BgL_colz00_1270))
																													{	/* Pp/pp.scm 138 */
																														obj_t
																															BgL__andtest_1044z00_2652;
																														BgL__andtest_1044z00_2652
																															=
																															((obj_t(*)(obj_t,
																																	obj_t))
																															PROCEDURE_L_ENTRY
																															(BgL_outputz00_3494))
																															(BgL_outputz00_3494,
																															BgL_arg1381z00_1402);
																														if (CBOOL
																															(BgL__andtest_1044z00_2652))
																															{	/* Pp/pp.scm 138 */
																																return
																																	ADDFX
																																	(BgL_colz00_1270,
																																	BINT
																																	(STRING_LENGTH
																																		(((obj_t)
																																				BgL_arg1381z00_1402))));
																															}
																														else
																															{	/* Pp/pp.scm 138 */
																																return BFALSE;
																															}
																													}
																												else
																													{	/* Pp/pp.scm 138 */
																														return BFALSE;
																													}
																											}
																										}
																								}
																							else
																								{	/* Pp/pp.scm 229 */
																									if (INPUT_PORTP
																										(BgL_objz00_1269))
																										{	/* Pp/pp.scm 235 */
																											if (CBOOL
																												(BgL_colz00_1270))
																												{	/* Pp/pp.scm 138 */
																													obj_t
																														BgL__andtest_1044z00_2658;
																													BgL__andtest_1044z00_2658
																														=
																														((obj_t(*)(obj_t,
																																obj_t))
																														PROCEDURE_L_ENTRY
																														(BgL_outputz00_3494))
																														(BgL_outputz00_3494,
																														BGl_string1994z00zz__ppz00);
																													if (CBOOL
																														(BgL__andtest_1044z00_2658))
																														{	/* Pp/pp.scm 138 */
																															return
																																ADDFX
																																(BgL_colz00_1270,
																																BINT(13L));
																														}
																													else
																														{	/* Pp/pp.scm 138 */
																															return BFALSE;
																														}
																												}
																											else
																												{	/* Pp/pp.scm 138 */
																													return BFALSE;
																												}
																										}
																									else
																										{	/* Pp/pp.scm 235 */
																											if (OUTPUT_PORTP
																												(BgL_objz00_1269))
																												{	/* Pp/pp.scm 237 */
																													if (CBOOL
																														(BgL_colz00_1270))
																														{	/* Pp/pp.scm 138 */
																															obj_t
																																BgL__andtest_1044z00_2664;
																															BgL__andtest_1044z00_2664
																																=
																																((obj_t(*)
																																	(obj_t,
																																		obj_t))
																																PROCEDURE_L_ENTRY
																																(BgL_outputz00_3494))
																																(BgL_outputz00_3494,
																																BGl_string1995z00zz__ppz00);
																															if (CBOOL
																																(BgL__andtest_1044z00_2664))
																																{	/* Pp/pp.scm 138 */
																																	return
																																		ADDFX
																																		(BgL_colz00_1270,
																																		BINT(14L));
																																}
																															else
																																{	/* Pp/pp.scm 138 */
																																	return BFALSE;
																																}
																														}
																													else
																														{	/* Pp/pp.scm 138 */
																															return BFALSE;
																														}
																												}
																											else
																												{	/* Pp/pp.scm 237 */
																													if (EOF_OBJECTP
																														(BgL_objz00_1269))
																														{	/* Pp/pp.scm 239 */
																															if (CBOOL
																																(BgL_colz00_1270))
																																{	/* Pp/pp.scm 138 */
																																	obj_t
																																		BgL__andtest_1044z00_2670;
																																	BgL__andtest_1044z00_2670
																																		=
																																		((obj_t(*)
																																			(obj_t,
																																				obj_t))
																																		PROCEDURE_L_ENTRY
																																		(BgL_outputz00_3494))
																																		(BgL_outputz00_3494,
																																		BGl_string1996z00zz__ppz00);
																																	if (CBOOL
																																		(BgL__andtest_1044z00_2670))
																																		{	/* Pp/pp.scm 138 */
																																			return
																																				ADDFX
																																				(BgL_colz00_1270,
																																				BINT
																																				(13L));
																																		}
																																	else
																																		{	/* Pp/pp.scm 138 */
																																			return
																																				BFALSE;
																																		}
																																}
																															else
																																{	/* Pp/pp.scm 138 */
																																	return BFALSE;
																																}
																														}
																													else
																														{	/* Pp/pp.scm 239 */
																															if (BGL_OBJECTP
																																(BgL_objz00_1269))
																																{	/* Pp/pp.scm 243 */
																																	obj_t
																																		BgL_arg1386z00_1408;
																																	{	/* Pp/pp.scm 243 */
																																		obj_t
																																			BgL_arg1387z00_1409;
																																		{	/* Pp/pp.scm 243 */
																																			obj_t
																																				BgL_arg1388z00_1410;
																																			{	/* Pp/pp.scm 243 */
																																				obj_t
																																					BgL_arg1389z00_1411;
																																				{	/* Pp/pp.scm 243 */
																																					obj_t
																																						BgL_arg1936z00_2676;
																																					long
																																						BgL_arg1937z00_2677;
																																					BgL_arg1936z00_2676
																																						=
																																						(BGl_za2classesza2z00zz__objectz00);
																																					{	/* Pp/pp.scm 243 */
																																						long
																																							BgL_arg1938z00_2678;
																																						BgL_arg1938z00_2678
																																							=
																																							BGL_OBJECT_CLASS_NUM
																																							(((BgL_objectz00_bglt) BgL_objz00_1269));
																																						BgL_arg1937z00_2677
																																							=
																																							(BgL_arg1938z00_2678
																																							-
																																							OBJECT_TYPE);
																																					}
																																					BgL_arg1389z00_1411
																																						=
																																						VECTOR_REF
																																						(BgL_arg1936z00_2676,
																																						BgL_arg1937z00_2677);
																																				}
																																				BgL_arg1388z00_1410
																																					=
																																					BGl_classzd2namezd2zz__objectz00
																																					(BgL_arg1389z00_1411);
																																			}
																																			{	/* Pp/pp.scm 243 */
																																				obj_t
																																					BgL_arg1744z00_2685;
																																				BgL_arg1744z00_2685
																																					=
																																					SYMBOL_TO_STRING
																																					(BgL_arg1388z00_1410);
																																				BgL_arg1387z00_1409
																																					=
																																					BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																					(BgL_arg1744z00_2685);
																																		}}
																																		BgL_arg1386z00_1408
																																			=
																																			string_append_3
																																			(BGl_string1997z00zz__ppz00,
																																			BgL_arg1387z00_1409,
																																			BGl_string1998z00zz__ppz00);
																																	}
																																	if (CBOOL
																																		(BgL_colz00_1270))
																																		{	/* Pp/pp.scm 138 */
																																			obj_t
																																				BgL__andtest_1044z00_2687;
																																			BgL__andtest_1044z00_2687
																																				=
																																				((obj_t
																																					(*)
																																					(obj_t,
																																						obj_t))
																																				PROCEDURE_L_ENTRY
																																				(BgL_outputz00_3494))
																																				(BgL_outputz00_3494,
																																				BgL_arg1386z00_1408);
																																			if (CBOOL
																																				(BgL__andtest_1044z00_2687))
																																				{	/* Pp/pp.scm 138 */
																																					return
																																						ADDFX
																																						(BgL_colz00_1270,
																																						BINT
																																						(STRING_LENGTH
																																							(BgL_arg1386z00_1408)));
																																				}
																																			else
																																				{	/* Pp/pp.scm 138 */
																																					return
																																						BFALSE;
																																				}
																																		}
																																	else
																																		{	/* Pp/pp.scm 138 */
																																			return
																																				BFALSE;
																																		}
																																}
																															else
																																{	/* Pp/pp.scm 246 */
																																	obj_t
																																		BgL_arg1390z00_1412;
																																	{	/* Pp/pp.scm 246 */
																																		obj_t
																																			BgL_pz00_1413;
																																		{	/* Pp/pp.scm 246 */

																																			{	/* Ieee/port.scm 485 */

																																				BgL_pz00_1413
																																					=
																																					BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00
																																					(BTRUE);
																																			}
																																		}
																																		{	/* Pp/pp.scm 247 */
																																			obj_t
																																				BgL_list1391z00_1414;
																																			BgL_list1391z00_1414
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_pz00_1413,
																																				BNIL);
																																			BGl_writez00zz__r4_output_6_10_3z00
																																				(BgL_objz00_1269,
																																				BgL_list1391z00_1414);
																																		}
																																		BgL_arg1390z00_1412
																																			=
																																			bgl_close_output_port
																																			(BgL_pz00_1413);
																																	}
																																	if (CBOOL
																																		(BgL_colz00_1270))
																																		{	/* Pp/pp.scm 138 */
																																			obj_t
																																				BgL__andtest_1044z00_2694;
																																			BgL__andtest_1044z00_2694
																																				=
																																				((obj_t
																																					(*)
																																					(obj_t,
																																						obj_t))
																																				PROCEDURE_L_ENTRY
																																				(BgL_outputz00_3494))
																																				(BgL_outputz00_3494,
																																				BgL_arg1390z00_1412);
																																			if (CBOOL
																																				(BgL__andtest_1044z00_2694))
																																				{	/* Pp/pp.scm 138 */
																																					return
																																						ADDFX
																																						(BgL_colz00_1270,
																																						BINT
																																						(STRING_LENGTH
																																							(((obj_t) BgL_arg1390z00_1412))));
																																				}
																																			else
																																				{	/* Pp/pp.scm 138 */
																																					return
																																						BFALSE;
																																				}
																																		}
																																	else
																																		{	/* Pp/pp.scm 138 */
																																			return
																																				BFALSE;
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
			}
		}

	}



/* out~0 */
	obj_t BGl_outze70ze7zz__ppz00(obj_t BgL_outputz00_3855, obj_t BgL_strz00_1263,
		obj_t BgL_colz00_1264)
	{
		{	/* Pp/pp.scm 138 */
			if (CBOOL(BgL_colz00_1264))
				{	/* Pp/pp.scm 138 */
					obj_t BgL__andtest_1044z00_2332;

					BgL__andtest_1044z00_2332 =
						((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_L_ENTRY(BgL_outputz00_3855)) (BgL_outputz00_3855,
						BgL_strz00_1263);
					if (CBOOL(BgL__andtest_1044z00_2332))
						{	/* Pp/pp.scm 138 */
							return
								ADDFX(BgL_colz00_1264,
								BINT(STRING_LENGTH(((obj_t) BgL_strz00_1263))));
						}
					else
						{	/* Pp/pp.scm 138 */
							return BFALSE;
						}
				}
			else
				{	/* Pp/pp.scm 138 */
					return BFALSE;
				}
		}

	}



/* &read-macro? */
	bool_t BGl_z62readzd2macrozf3z43zz__ppz00(obj_t BgL_lz00_1234)
	{
		{	/* Pp/pp.scm 120 */
			{	/* Pp/pp.scm 121 */
				obj_t BgL_headz00_1237;
				obj_t BgL_tailz00_1238;

				BgL_headz00_1237 = CAR(((obj_t) BgL_lz00_1234));
				BgL_tailz00_1238 = CDR(((obj_t) BgL_lz00_1234));
				{	/* Pp/pp.scm 122 */
					bool_t BgL_test2254z00_5317;

					{	/* Pp/pp.scm 122 */
						bool_t BgL__ortest_1040z00_1244;

						BgL__ortest_1040z00_1244 =
							(BgL_headz00_1237 == BGl_symbol1999z00zz__ppz00);
						if (BgL__ortest_1040z00_1244)
							{	/* Pp/pp.scm 122 */
								BgL_test2254z00_5317 = BgL__ortest_1040z00_1244;
							}
						else
							{	/* Pp/pp.scm 122 */
								bool_t BgL__ortest_1041z00_1245;

								BgL__ortest_1041z00_1245 =
									(BgL_headz00_1237 == BGl_symbol2001z00zz__ppz00);
								if (BgL__ortest_1041z00_1245)
									{	/* Pp/pp.scm 122 */
										BgL_test2254z00_5317 = BgL__ortest_1041z00_1245;
									}
								else
									{	/* Pp/pp.scm 122 */
										bool_t BgL__ortest_1042z00_1246;

										BgL__ortest_1042z00_1246 =
											(BgL_headz00_1237 == BGl_symbol2003z00zz__ppz00);
										if (BgL__ortest_1042z00_1246)
											{	/* Pp/pp.scm 122 */
												BgL_test2254z00_5317 = BgL__ortest_1042z00_1246;
											}
										else
											{	/* Pp/pp.scm 122 */
												BgL_test2254z00_5317 =
													(BgL_headz00_1237 == BGl_symbol2005z00zz__ppz00);
											}
									}
							}
					}
					if (BgL_test2254z00_5317)
						{	/* Pp/pp.scm 122 */
							if (PAIRP(BgL_tailz00_1238))
								{	/* Pp/pp.scm 120 */
									return NULLP(CDR(BgL_tailz00_1238));
								}
							else
								{	/* Pp/pp.scm 120 */
									return ((bool_t) 0);
								}
						}
					else
						{	/* Pp/pp.scm 122 */
							return ((bool_t) 0);
						}
				}
			}
		}

	}



/* &read-macro-prefix */
	obj_t BGl_z62readzd2macrozd2prefixz62zz__ppz00(obj_t BgL_lz00_1254)
	{
		{	/* Pp/pp.scm 135 */
			{	/* Pp/pp.scm 130 */
				obj_t BgL_headz00_1256;

				BgL_headz00_1256 = CAR(((obj_t) BgL_lz00_1254));
				if ((BgL_headz00_1256 == BGl_symbol1999z00zz__ppz00))
					{	/* Pp/pp.scm 131 */
						return BGl_string2007z00zz__ppz00;
					}
				else
					{	/* Pp/pp.scm 131 */
						if ((BgL_headz00_1256 == BGl_symbol2001z00zz__ppz00))
							{	/* Pp/pp.scm 131 */
								return BGl_string2008z00zz__ppz00;
							}
						else
							{	/* Pp/pp.scm 131 */
								if ((BgL_headz00_1256 == BGl_symbol2003z00zz__ppz00))
									{	/* Pp/pp.scm 131 */
										return BGl_string2009z00zz__ppz00;
									}
								else
									{	/* Pp/pp.scm 131 */
										if ((BgL_headz00_1256 == BGl_symbol2005z00zz__ppz00))
											{	/* Pp/pp.scm 131 */
												return BGl_string2010z00zz__ppz00;
											}
										else
											{	/* Pp/pp.scm 131 */
												return BUNSPEC;
											}
									}
							}
					}
			}
		}

	}



/* &pr */
	obj_t BGl_z62prz62zz__ppz00(obj_t BgL_ppzd2exprzd2_3514,
		obj_t BgL_outputz00_3513, obj_t BgL_displayzf3zf3_3512,
		obj_t BgL_widthz00_3511, long BgL_maxzd2callzd2headzd2widthzd2_3510,
		obj_t BgL_ppzd2lambdazd2_3509, obj_t BgL_ppzd2definezd2_3508,
		obj_t BgL_ppzd2defunzd2_3507, obj_t BgL_ppzd2ifzd2_3506,
		obj_t BgL_ppzd2condzd2_3505, obj_t BgL_ppzd2casezd2_3504,
		obj_t BgL_ppzd2andzd2_3503, obj_t BgL_ppzd2letzd2_3502,
		obj_t BgL_ppzd2beginzd2_3501, obj_t BgL_ppzd2dozd2_3500,
		obj_t BgL_ppzd2commentzd2_3499, obj_t BgL_ppzd2exprzd2listz00_3498,
		obj_t BgL_ppzd2exprzd2defunz00_3497, long BgL_indentzd2generalzd2_3496,
		obj_t BgL_objz00_1509, obj_t BgL_colz00_1510, obj_t BgL_extraz00_1511,
		obj_t BgL_ppzd2pairzd2_1512)
	{
		{	/* Pp/pp.scm 282 */
			{	/* Pp/pp.scm 267 */
				bool_t BgL_test2263z00_5339;

				if (PAIRP(BgL_objz00_1509))
					{	/* Pp/pp.scm 267 */
						BgL_test2263z00_5339 = ((bool_t) 1);
					}
				else
					{	/* Pp/pp.scm 267 */
						BgL_test2263z00_5339 = VECTORP(BgL_objz00_1509);
					}
				if (BgL_test2263z00_5339)
					{	/* Pp/pp.scm 268 */
						obj_t BgL_resultz00_3515;
						obj_t BgL_leftz00_3516;

						BgL_resultz00_3515 = BGL_MAKE_UNSAFE_CELL(BNIL);
						BgL_leftz00_3516 =
							BGL_MAKE_UNSAFE_CELL(BGl_2minz00zz__r4_numbers_6_5z00(BINT(
									((((long) CINT(BgL_widthz00_3511) -
												(long) CINT(BgL_colz00_1510)) -
											(long) CINT(BgL_extraz00_1511)) + 1L)), BINT(50L)));
						{	/* Pp/pp.scm 272 */
							obj_t BgL_zc3z04anonymousza31431ze3z87_3472;

							{
								int BgL_tmpz00_5352;

								BgL_tmpz00_5352 = (int) (2L);
								BgL_zc3z04anonymousza31431ze3z87_3472 =
									MAKE_L_PROCEDURE(BGl_z62zc3z04anonymousza31431ze3ze5zz__ppz00,
									BgL_tmpz00_5352);
							}
							PROCEDURE_L_SET(BgL_zc3z04anonymousza31431ze3z87_3472,
								(int) (0L), ((obj_t) BgL_resultz00_3515));
							PROCEDURE_L_SET(BgL_zc3z04anonymousza31431ze3z87_3472,
								(int) (1L), ((obj_t) BgL_leftz00_3516));
							BGl_genericzd2writezd2zz__ppz00(BgL_objz00_1509,
								BgL_displayzf3zf3_3512, BFALSE,
								BgL_zc3z04anonymousza31431ze3z87_3472);
						}
						if (((long) CINT(BGL_UNSAFE_CELL_REF(BgL_leftz00_3516)) > 0L))
							{	/* Pp/pp.scm 276 */
								obj_t BgL_arg1434z00_1524;

								BgL_arg1434z00_1524 =
									BGl_reversezd2stringzd2appendz00zz__ppz00(BGL_UNSAFE_CELL_REF
									(BgL_resultz00_3515));
								if (CBOOL(BgL_colz00_1510))
									{	/* Pp/pp.scm 138 */
										obj_t BgL__andtest_1044z00_2763;

										BgL__andtest_1044z00_2763 =
											((obj_t(*)(obj_t,
													obj_t))
											PROCEDURE_L_ENTRY(BgL_outputz00_3513))
											(BgL_outputz00_3513, BgL_arg1434z00_1524);
										if (CBOOL(BgL__andtest_1044z00_2763))
											{	/* Pp/pp.scm 138 */
												return
													ADDFX(BgL_colz00_1510,
													BINT(STRING_LENGTH(BgL_arg1434z00_1524)));
											}
										else
											{	/* Pp/pp.scm 138 */
												return BFALSE;
											}
									}
								else
									{	/* Pp/pp.scm 138 */
										return BFALSE;
									}
							}
						else
							{	/* Pp/pp.scm 275 */
								if (PAIRP(BgL_objz00_1509))
									{	/* Pp/pp.scm 277 */
										return
											BGL_PROCEDURE_CALL3(BgL_ppzd2pairzd2_1512,
											BgL_objz00_1509, BgL_colz00_1510, BgL_extraz00_1511);
									}
								else
									{	/* Pp/pp.scm 279 */
										obj_t BgL_arg1436z00_1526;
										obj_t BgL_arg1437z00_1527;

										BgL_arg1436z00_1526 =
											BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00
											(BgL_objz00_1509);
										{	/* Pp/pp.scm 280 */
											obj_t BgL_arg1438z00_1528;

											BgL_arg1438z00_1528 =
												BGl_vectorzd2prefixzd2zz__ppz00(BgL_objz00_1509);
											if (CBOOL(BgL_colz00_1510))
												{	/* Pp/pp.scm 138 */
													obj_t BgL__andtest_1044z00_2769;

													BgL__andtest_1044z00_2769 =
														((obj_t(*)(obj_t,
																obj_t))
														PROCEDURE_L_ENTRY(BgL_outputz00_3513))
														(BgL_outputz00_3513, BgL_arg1438z00_1528);
													if (CBOOL(BgL__andtest_1044z00_2769))
														{	/* Pp/pp.scm 138 */
															BgL_arg1437z00_1527 =
																ADDFX(BgL_colz00_1510,
																BINT(STRING_LENGTH(BgL_arg1438z00_1528)));
														}
													else
														{	/* Pp/pp.scm 138 */
															BgL_arg1437z00_1527 = BFALSE;
														}
												}
											else
												{	/* Pp/pp.scm 138 */
													BgL_arg1437z00_1527 = BFALSE;
												}
										}
										{	/* Pp/pp.scm 313 */
											obj_t BgL_colz00_2774;

											if (CBOOL(BgL_arg1437z00_1527))
												{	/* Pp/pp.scm 138 */
													obj_t BgL__andtest_1044z00_2776;

													BgL__andtest_1044z00_2776 =
														((obj_t(*)(obj_t,
																obj_t))
														PROCEDURE_L_ENTRY(BgL_outputz00_3513))
														(BgL_outputz00_3513, BGl_string1974z00zz__ppz00);
													if (CBOOL(BgL__andtest_1044z00_2776))
														{	/* Pp/pp.scm 138 */
															BgL_colz00_2774 =
																ADDFX(BgL_arg1437z00_1527, BINT(1L));
														}
													else
														{	/* Pp/pp.scm 138 */
															BgL_colz00_2774 = BFALSE;
														}
												}
											else
												{	/* Pp/pp.scm 138 */
													BgL_colz00_2774 = BFALSE;
												}
											return
												BGl_z62ppzd2downzb0zz__ppz00(BgL_outputz00_3513,
												BgL_ppzd2exprzd2_3514, BgL_displayzf3zf3_3512,
												BgL_widthz00_3511,
												BgL_maxzd2callzd2headzd2widthzd2_3510,
												BgL_ppzd2lambdazd2_3509, BgL_ppzd2definezd2_3508,
												BgL_ppzd2defunzd2_3507, BgL_ppzd2ifzd2_3506,
												BgL_ppzd2condzd2_3505, BgL_ppzd2casezd2_3504,
												BgL_ppzd2andzd2_3503, BgL_ppzd2letzd2_3502,
												BgL_ppzd2beginzd2_3501, BgL_ppzd2dozd2_3500,
												BgL_ppzd2commentzd2_3499, BgL_ppzd2exprzd2listz00_3498,
												BgL_ppzd2exprzd2defunz00_3497,
												BgL_indentzd2generalzd2_3496, BgL_arg1436z00_1526,
												BgL_colz00_2774, BgL_colz00_2774, BgL_extraz00_1511,
												BgL_ppzd2exprzd2_3514);
										}
									}
							}
					}
				else
					{	/* Pp/pp.scm 267 */
						return
							BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3512, BgL_outputz00_3513,
							BgL_objz00_1509, BgL_colz00_1510);
					}
			}
		}

	}



/* &indent */
	obj_t BGl_z62indentz62zz__ppz00(obj_t BgL_outputz00_3519,
		obj_t BgL_toz00_1501, obj_t BgL_colz00_1502)
	{
		{	/* Pp/pp.scm 264 */
			{
				long BgL_nz00_1493;
				obj_t BgL_colz00_1494;

				if (CBOOL(BgL_colz00_1502))
					{	/* Pp/pp.scm 261 */
						if (((long) CINT(BgL_toz00_1501) < (long) CINT(BgL_colz00_1502)))
							{	/* Pp/pp.scm 263 */
								obj_t BgL__andtest_1050z00_1506;

								{	/* Pp/pp.scm 263 */
									obj_t BgL_arg1425z00_1507;

									BgL_arg1425z00_1507 = make_string(1L, ((unsigned char) 10));
									if (CBOOL(BgL_colz00_1502))
										{	/* Pp/pp.scm 138 */
											obj_t BgL__andtest_1044z00_2719;

											BgL__andtest_1044z00_2719 =
												((obj_t(*)(obj_t,
														obj_t))
												PROCEDURE_L_ENTRY(BgL_outputz00_3519))
												(BgL_outputz00_3519, BgL_arg1425z00_1507);
											if (CBOOL(BgL__andtest_1044z00_2719))
												{	/* Pp/pp.scm 138 */
													BgL__andtest_1050z00_1506 =
														ADDFX(BgL_colz00_1502,
														BINT(STRING_LENGTH(BgL_arg1425z00_1507)));
												}
											else
												{	/* Pp/pp.scm 138 */
													BgL__andtest_1050z00_1506 = BFALSE;
												}
										}
									else
										{	/* Pp/pp.scm 138 */
											BgL__andtest_1050z00_1506 = BFALSE;
										}
								}
								if (CBOOL(BgL__andtest_1050z00_1506))
									{
										obj_t BgL_nz00_2725;
										obj_t BgL_colz00_2726;

										BgL_nz00_2725 = BgL_toz00_1501;
										BgL_colz00_2726 = BINT(0L);
									BgL_spacesz00_2724:
										if (((long) CINT(BgL_nz00_2725) > 0L))
											{	/* Pp/pp.scm 254 */
												if (((long) CINT(BgL_nz00_2725) > 7L))
													{	/* Pp/pp.scm 256 */
														long BgL_arg1420z00_2731;
														obj_t BgL_arg1421z00_2732;

														BgL_arg1420z00_2731 =
															((long) CINT(BgL_nz00_2725) - 8L);
														if (CBOOL(BgL_colz00_2726))
															{	/* Pp/pp.scm 138 */
																obj_t BgL__andtest_1044z00_2735;

																BgL__andtest_1044z00_2735 =
																	((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_L_ENTRY(BgL_outputz00_3519))
																	(BgL_outputz00_3519,
																	BGl_string2011z00zz__ppz00);
																if (CBOOL(BgL__andtest_1044z00_2735))
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1421z00_2732 =
																			ADDFX(BgL_colz00_2726, BINT(8L));
																	}
																else
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1421z00_2732 = BFALSE;
																	}
															}
														else
															{	/* Pp/pp.scm 138 */
																BgL_arg1421z00_2732 = BFALSE;
															}
														{
															obj_t BgL_colz00_5450;
															obj_t BgL_nz00_5448;

															BgL_nz00_5448 = BINT(BgL_arg1420z00_2731);
															BgL_colz00_5450 = BgL_arg1421z00_2732;
															BgL_colz00_2726 = BgL_colz00_5450;
															BgL_nz00_2725 = BgL_nz00_5448;
															goto BgL_spacesz00_2724;
														}
													}
												else
													{	/* Pp/pp.scm 257 */
														obj_t BgL_arg1422z00_2740;

														BgL_arg1422z00_2740 =
															c_substring(BGl_string2011z00zz__ppz00, 0L,
															(long) CINT(BgL_nz00_2725));
														if (CBOOL(BgL_colz00_2726))
															{	/* Pp/pp.scm 138 */
																obj_t BgL__andtest_1044z00_2744;

																BgL__andtest_1044z00_2744 =
																	((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_L_ENTRY(BgL_outputz00_3519))
																	(BgL_outputz00_3519, BgL_arg1422z00_2740);
																if (CBOOL(BgL__andtest_1044z00_2744))
																	{	/* Pp/pp.scm 138 */
																		return
																			ADDFX(BgL_colz00_2726,
																			BINT(STRING_LENGTH(BgL_arg1422z00_2740)));
																	}
																else
																	{	/* Pp/pp.scm 138 */
																		return BFALSE;
																	}
															}
														else
															{	/* Pp/pp.scm 138 */
																return BFALSE;
															}
													}
											}
										else
											{	/* Pp/pp.scm 254 */
												return BgL_colz00_2726;
											}
									}
								else
									{	/* Pp/pp.scm 263 */
										return BFALSE;
									}
							}
						else
							{	/* Pp/pp.scm 262 */
								BgL_nz00_1493 =
									((long) CINT(BgL_toz00_1501) - (long) CINT(BgL_colz00_1502));
								BgL_colz00_1494 = BgL_colz00_1502;
							BgL_zc3z04anonymousza31417ze3z87_1495:
								if ((BgL_nz00_1493 > 0L))
									{	/* Pp/pp.scm 254 */
										if ((BgL_nz00_1493 > 7L))
											{	/* Pp/pp.scm 256 */
												long BgL_arg1420z00_1498;
												obj_t BgL_arg1421z00_1499;

												BgL_arg1420z00_1498 = (BgL_nz00_1493 - 8L);
												if (CBOOL(BgL_colz00_1494))
													{	/* Pp/pp.scm 138 */
														obj_t BgL__andtest_1044z00_2703;

														BgL__andtest_1044z00_2703 =
															((obj_t(*)(obj_t,
																	obj_t))
															PROCEDURE_L_ENTRY(BgL_outputz00_3519))
															(BgL_outputz00_3519, BGl_string2011z00zz__ppz00);
														if (CBOOL(BgL__andtest_1044z00_2703))
															{	/* Pp/pp.scm 138 */
																BgL_arg1421z00_1499 =
																	ADDFX(BgL_colz00_1494, BINT(8L));
															}
														else
															{	/* Pp/pp.scm 138 */
																BgL_arg1421z00_1499 = BFALSE;
															}
													}
												else
													{	/* Pp/pp.scm 138 */
														BgL_arg1421z00_1499 = BFALSE;
													}
												{
													obj_t BgL_colz00_5481;
													long BgL_nz00_5480;

													BgL_nz00_5480 = BgL_arg1420z00_1498;
													BgL_colz00_5481 = BgL_arg1421z00_1499;
													BgL_colz00_1494 = BgL_colz00_5481;
													BgL_nz00_1493 = BgL_nz00_5480;
													goto BgL_zc3z04anonymousza31417ze3z87_1495;
												}
											}
										else
											{	/* Pp/pp.scm 257 */
												obj_t BgL_arg1422z00_1500;

												BgL_arg1422z00_1500 =
													c_substring(BGl_string2011z00zz__ppz00, 0L,
													BgL_nz00_1493);
												if (CBOOL(BgL_colz00_1494))
													{	/* Pp/pp.scm 138 */
														obj_t BgL__andtest_1044z00_2711;

														BgL__andtest_1044z00_2711 =
															((obj_t(*)(obj_t,
																	obj_t))
															PROCEDURE_L_ENTRY(BgL_outputz00_3519))
															(BgL_outputz00_3519, BgL_arg1422z00_1500);
														if (CBOOL(BgL__andtest_1044z00_2711))
															{	/* Pp/pp.scm 138 */
																return
																	ADDFX(BgL_colz00_1494,
																	BINT(STRING_LENGTH(BgL_arg1422z00_1500)));
															}
														else
															{	/* Pp/pp.scm 138 */
																return BFALSE;
															}
													}
												else
													{	/* Pp/pp.scm 138 */
														return BFALSE;
													}
											}
									}
								else
									{	/* Pp/pp.scm 254 */
										return BgL_colz00_1494;
									}
							}
					}
				else
					{	/* Pp/pp.scm 261 */
						return BFALSE;
					}
			}
		}

	}



/* &pp-general */
	obj_t BGl_z62ppzd2generalzb0zz__ppz00(long BgL_indentzd2generalzd2_3538,
		obj_t BgL_outputz00_3537, obj_t BgL_ppzd2exprzd2_3536,
		obj_t BgL_displayzf3zf3_3535, obj_t BgL_widthz00_3534,
		long BgL_maxzd2callzd2headzd2widthzd2_3533, obj_t BgL_ppzd2lambdazd2_3532,
		obj_t BgL_ppzd2definezd2_3531, obj_t BgL_ppzd2defunzd2_3530,
		obj_t BgL_ppzd2ifzd2_3529, obj_t BgL_ppzd2condzd2_3528,
		obj_t BgL_ppzd2casezd2_3527, obj_t BgL_ppzd2andzd2_3526,
		obj_t BgL_ppzd2letzd2_3525, obj_t BgL_ppzd2beginzd2_3524,
		obj_t BgL_ppzd2dozd2_3523, obj_t BgL_ppzd2commentzd2_3522,
		obj_t BgL_ppzd2exprzd2listz00_3521, obj_t BgL_ppzd2exprzd2defunz00_3520,
		obj_t BgL_exprz00_1604, obj_t BgL_colz00_1605, obj_t BgL_extraz00_1606,
		bool_t BgL_namedzf3zf3_1607, obj_t BgL_ppzd21zd2_1608,
		obj_t BgL_ppzd22zd2_1609, obj_t BgL_ppzd23zd2_1610)
	{
		{	/* Pp/pp.scm 349 */
			{
				obj_t BgL_restz00_1640;
				long BgL_col1z00_1641;
				obj_t BgL_col2z00_1642;
				long BgL_col3z00_1643;

				{	/* Pp/pp.scm 362 */
					obj_t BgL_headz00_1615;

					BgL_headz00_1615 = CAR(((obj_t) BgL_exprz00_1604));
					{	/* Pp/pp.scm 362 */
						obj_t BgL_restz00_1616;

						BgL_restz00_1616 = CDR(((obj_t) BgL_exprz00_1604));
						{	/* Pp/pp.scm 363 */
							obj_t BgL_colza2za2_1617;

							{	/* Pp/pp.scm 364 */
								obj_t BgL_arg1491z00_1627;

								if (CBOOL(BgL_colz00_1605))
									{	/* Pp/pp.scm 138 */
										obj_t BgL__andtest_1044z00_2928;

										BgL__andtest_1044z00_2928 =
											((obj_t(*)(obj_t,
													obj_t))
											PROCEDURE_L_ENTRY(BgL_outputz00_3537))
											(BgL_outputz00_3537, BGl_string1974z00zz__ppz00);
										if (CBOOL(BgL__andtest_1044z00_2928))
											{	/* Pp/pp.scm 138 */
												BgL_arg1491z00_1627 = ADDFX(BgL_colz00_1605, BINT(1L));
											}
										else
											{	/* Pp/pp.scm 138 */
												BgL_arg1491z00_1627 = BFALSE;
											}
									}
								else
									{	/* Pp/pp.scm 138 */
										BgL_arg1491z00_1627 = BFALSE;
									}
								BgL_colza2za2_1617 =
									BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3535,
									BgL_outputz00_3537, BgL_headz00_1615, BgL_arg1491z00_1627);
							}
							{	/* Pp/pp.scm 364 */

								{	/* Pp/pp.scm 365 */
									bool_t BgL_test2292z00_5512;

									if (BgL_namedzf3zf3_1607)
										{	/* Pp/pp.scm 365 */
											BgL_test2292z00_5512 = PAIRP(BgL_restz00_1616);
										}
									else
										{	/* Pp/pp.scm 365 */
											BgL_test2292z00_5512 = ((bool_t) 0);
										}
									if (BgL_test2292z00_5512)
										{	/* Pp/pp.scm 366 */
											obj_t BgL_namez00_1619;

											BgL_namez00_1619 = CAR(BgL_restz00_1616);
											{	/* Pp/pp.scm 366 */
												obj_t BgL_restz00_1620;

												BgL_restz00_1620 = CDR(BgL_restz00_1616);
												{	/* Pp/pp.scm 367 */
													obj_t BgL_colza2za2z00_1621;

													{	/* Pp/pp.scm 368 */
														obj_t BgL_arg1488z00_1624;

														if (CBOOL(BgL_colza2za2_1617))
															{	/* Pp/pp.scm 138 */
																obj_t BgL__andtest_1044z00_2936;

																BgL__andtest_1044z00_2936 =
																	((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_L_ENTRY(BgL_outputz00_3537))
																	(BgL_outputz00_3537,
																	BGl_string1975z00zz__ppz00);
																if (CBOOL(BgL__andtest_1044z00_2936))
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1488z00_1624 =
																			ADDFX(BgL_colza2za2_1617, BINT(1L));
																	}
																else
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1488z00_1624 = BFALSE;
																	}
															}
														else
															{	/* Pp/pp.scm 138 */
																BgL_arg1488z00_1624 = BFALSE;
															}
														BgL_colza2za2z00_1621 =
															BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3535,
															BgL_outputz00_3537, BgL_namez00_1619,
															BgL_arg1488z00_1624);
													}
													{	/* Pp/pp.scm 368 */

														{	/* Pp/pp.scm 369 */
															long BgL_arg1486z00_1622;
															long BgL_arg1487z00_1623;

															BgL_arg1486z00_1622 =
																(
																(long) CINT(BgL_colz00_1605) +
																BgL_indentzd2generalzd2_3538);
															BgL_arg1487z00_1623 =
																((long) CINT(BgL_colza2za2z00_1621) + 1L);
															{	/* Pp/pp.scm 344 */
																bool_t BgL_test2296z00_5532;

																if (CBOOL(BgL_ppzd21zd2_1608))
																	{	/* Pp/pp.scm 344 */
																		BgL_test2296z00_5532 =
																			PAIRP(BgL_restz00_1620);
																	}
																else
																	{	/* Pp/pp.scm 344 */
																		BgL_test2296z00_5532 = ((bool_t) 0);
																	}
																if (BgL_test2296z00_5532)
																	{	/* Pp/pp.scm 345 */
																		obj_t BgL_val1z00_2945;

																		BgL_val1z00_2945 = CAR(BgL_restz00_1620);
																		{	/* Pp/pp.scm 345 */
																			obj_t BgL_restz00_2946;

																			BgL_restz00_2946 = CDR(BgL_restz00_1620);
																			{	/* Pp/pp.scm 346 */
																				long BgL_extraz00_2947;

																				if (NULLP(BgL_restz00_2946))
																					{	/* Pp/pp.scm 347 */
																						BgL_extraz00_2947 =
																							(
																							(long) CINT(BgL_extraz00_1606) +
																							1L);
																					}
																				else
																					{	/* Pp/pp.scm 347 */
																						BgL_extraz00_2947 = 0L;
																					}
																				{	/* Pp/pp.scm 347 */

																					BgL_restz00_1640 = BgL_restz00_2946;
																					BgL_col1z00_1641 =
																						BgL_arg1486z00_1622;
																					BgL_col2z00_1642 =
																						BGl_z62prz62zz__ppz00
																						(BgL_ppzd2exprzd2_3536,
																						BgL_outputz00_3537,
																						BgL_displayzf3zf3_3535,
																						BgL_widthz00_3534,
																						BgL_maxzd2callzd2headzd2widthzd2_3533,
																						BgL_ppzd2lambdazd2_3532,
																						BgL_ppzd2definezd2_3531,
																						BgL_ppzd2defunzd2_3530,
																						BgL_ppzd2ifzd2_3529,
																						BgL_ppzd2condzd2_3528,
																						BgL_ppzd2casezd2_3527,
																						BgL_ppzd2andzd2_3526,
																						BgL_ppzd2letzd2_3525,
																						BgL_ppzd2beginzd2_3524,
																						BgL_ppzd2dozd2_3523,
																						BgL_ppzd2commentzd2_3522,
																						BgL_ppzd2exprzd2listz00_3521,
																						BgL_ppzd2exprzd2defunz00_3520,
																						BgL_indentzd2generalzd2_3538,
																						BgL_val1z00_2945,
																						BGl_z62indentz62zz__ppz00
																						(BgL_outputz00_3537,
																							BINT(BgL_arg1487z00_1623),
																							BgL_colza2za2z00_1621),
																						BINT(BgL_extraz00_2947),
																						BgL_ppzd21zd2_1608);
																					BgL_col3z00_1643 =
																						BgL_arg1487z00_1623;
																				BgL_zc3z04anonymousza31497ze3z87_1644:
																					{	/* Pp/pp.scm 352 */
																						bool_t BgL_test2299z00_5542;

																						if (CBOOL(BgL_ppzd22zd2_1609))
																							{	/* Pp/pp.scm 352 */
																								BgL_test2299z00_5542 =
																									PAIRP(BgL_restz00_1640);
																							}
																						else
																							{	/* Pp/pp.scm 352 */
																								BgL_test2299z00_5542 =
																									((bool_t) 0);
																							}
																						if (BgL_test2299z00_5542)
																							{	/* Pp/pp.scm 353 */
																								obj_t BgL_val1z00_2916;

																								BgL_val1z00_2916 =
																									CAR(BgL_restz00_1640);
																								{	/* Pp/pp.scm 353 */
																									obj_t BgL_restz00_2917;

																									BgL_restz00_2917 =
																										CDR(BgL_restz00_1640);
																									{	/* Pp/pp.scm 354 */
																										long BgL_extraz00_2918;

																										if (NULLP(BgL_restz00_2917))
																											{	/* Pp/pp.scm 355 */
																												BgL_extraz00_2918 =
																													(
																													(long)
																													CINT
																													(BgL_extraz00_1606) +
																													1L);
																											}
																										else
																											{	/* Pp/pp.scm 355 */
																												BgL_extraz00_2918 = 0L;
																											}
																										{	/* Pp/pp.scm 355 */

																											return
																												BGl_z62ppzd2downzb0zz__ppz00
																												(BgL_outputz00_3537,
																												BgL_ppzd2exprzd2_3536,
																												BgL_displayzf3zf3_3535,
																												BgL_widthz00_3534,
																												BgL_maxzd2callzd2headzd2widthzd2_3533,
																												BgL_ppzd2lambdazd2_3532,
																												BgL_ppzd2definezd2_3531,
																												BgL_ppzd2defunzd2_3530,
																												BgL_ppzd2ifzd2_3529,
																												BgL_ppzd2condzd2_3528,
																												BgL_ppzd2casezd2_3527,
																												BgL_ppzd2andzd2_3526,
																												BgL_ppzd2letzd2_3525,
																												BgL_ppzd2beginzd2_3524,
																												BgL_ppzd2dozd2_3523,
																												BgL_ppzd2commentzd2_3522,
																												BgL_ppzd2exprzd2listz00_3521,
																												BgL_ppzd2exprzd2defunz00_3520,
																												BgL_indentzd2generalzd2_3538,
																												BgL_restz00_2917,
																												BGl_z62prz62zz__ppz00
																												(BgL_ppzd2exprzd2_3536,
																													BgL_outputz00_3537,
																													BgL_displayzf3zf3_3535,
																													BgL_widthz00_3534,
																													BgL_maxzd2callzd2headzd2widthzd2_3533,
																													BgL_ppzd2lambdazd2_3532,
																													BgL_ppzd2definezd2_3531,
																													BgL_ppzd2defunzd2_3530,
																													BgL_ppzd2ifzd2_3529,
																													BgL_ppzd2condzd2_3528,
																													BgL_ppzd2casezd2_3527,
																													BgL_ppzd2andzd2_3526,
																													BgL_ppzd2letzd2_3525,
																													BgL_ppzd2beginzd2_3524,
																													BgL_ppzd2dozd2_3523,
																													BgL_ppzd2commentzd2_3522,
																													BgL_ppzd2exprzd2listz00_3521,
																													BgL_ppzd2exprzd2defunz00_3520,
																													BgL_indentzd2generalzd2_3538,
																													BgL_val1z00_2916,
																													BGl_z62indentz62zz__ppz00
																													(BgL_outputz00_3537,
																														BINT
																														(BgL_col3z00_1643),
																														BgL_col2z00_1642),
																													BINT
																													(BgL_extraz00_2918),
																													BgL_ppzd22zd2_1609),
																												BINT(BgL_col1z00_1641),
																												BgL_extraz00_1606,
																												BgL_ppzd23zd2_1610);
																										}
																									}
																								}
																							}
																						else
																							{	/* Pp/pp.scm 352 */
																								return
																									BGl_z62ppzd2downzb0zz__ppz00
																									(BgL_outputz00_3537,
																									BgL_ppzd2exprzd2_3536,
																									BgL_displayzf3zf3_3535,
																									BgL_widthz00_3534,
																									BgL_maxzd2callzd2headzd2widthzd2_3533,
																									BgL_ppzd2lambdazd2_3532,
																									BgL_ppzd2definezd2_3531,
																									BgL_ppzd2defunzd2_3530,
																									BgL_ppzd2ifzd2_3529,
																									BgL_ppzd2condzd2_3528,
																									BgL_ppzd2casezd2_3527,
																									BgL_ppzd2andzd2_3526,
																									BgL_ppzd2letzd2_3525,
																									BgL_ppzd2beginzd2_3524,
																									BgL_ppzd2dozd2_3523,
																									BgL_ppzd2commentzd2_3522,
																									BgL_ppzd2exprzd2listz00_3521,
																									BgL_ppzd2exprzd2defunz00_3520,
																									BgL_indentzd2generalzd2_3538,
																									BgL_restz00_1640,
																									BgL_col2z00_1642,
																									BINT(BgL_col1z00_1641),
																									BgL_extraz00_1606,
																									BgL_ppzd23zd2_1610);
																							}
																					}
																				}
																			}
																		}
																	}
																else
																	{
																		long BgL_col3z00_5567;
																		obj_t BgL_col2z00_5566;
																		long BgL_col1z00_5565;
																		obj_t BgL_restz00_5564;

																		BgL_restz00_5564 = BgL_restz00_1620;
																		BgL_col1z00_5565 = BgL_arg1486z00_1622;
																		BgL_col2z00_5566 = BgL_colza2za2z00_1621;
																		BgL_col3z00_5567 = BgL_arg1487z00_1623;
																		BgL_col3z00_1643 = BgL_col3z00_5567;
																		BgL_col2z00_1642 = BgL_col2z00_5566;
																		BgL_col1z00_1641 = BgL_col1z00_5565;
																		BgL_restz00_1640 = BgL_restz00_5564;
																		goto BgL_zc3z04anonymousza31497ze3z87_1644;
																	}
															}
														}
													}
												}
											}
										}
									else
										{	/* Pp/pp.scm 370 */
											long BgL_arg1489z00_1625;
											long BgL_arg1490z00_1626;

											BgL_arg1489z00_1625 =
												(
												(long) CINT(BgL_colz00_1605) +
												BgL_indentzd2generalzd2_3538);
											BgL_arg1490z00_1626 =
												((long) CINT(BgL_colza2za2_1617) + 1L);
											{	/* Pp/pp.scm 344 */
												bool_t BgL_test2302z00_5572;

												if (CBOOL(BgL_ppzd21zd2_1608))
													{	/* Pp/pp.scm 344 */
														BgL_test2302z00_5572 = PAIRP(BgL_restz00_1616);
													}
												else
													{	/* Pp/pp.scm 344 */
														BgL_test2302z00_5572 = ((bool_t) 0);
													}
												if (BgL_test2302z00_5572)
													{	/* Pp/pp.scm 345 */
														obj_t BgL_val1z00_2958;

														BgL_val1z00_2958 = CAR(BgL_restz00_1616);
														{	/* Pp/pp.scm 345 */
															obj_t BgL_restz00_2959;

															BgL_restz00_2959 = CDR(BgL_restz00_1616);
															{	/* Pp/pp.scm 346 */
																long BgL_extraz00_2960;

																if (NULLP(BgL_restz00_2959))
																	{	/* Pp/pp.scm 347 */
																		BgL_extraz00_2960 =
																			((long) CINT(BgL_extraz00_1606) + 1L);
																	}
																else
																	{	/* Pp/pp.scm 347 */
																		BgL_extraz00_2960 = 0L;
																	}
																{	/* Pp/pp.scm 347 */

																	{
																		long BgL_col3z00_5589;
																		obj_t BgL_col2z00_5584;
																		long BgL_col1z00_5583;
																		obj_t BgL_restz00_5582;

																		BgL_restz00_5582 = BgL_restz00_2959;
																		BgL_col1z00_5583 = BgL_arg1489z00_1625;
																		BgL_col2z00_5584 =
																			BGl_z62prz62zz__ppz00
																			(BgL_ppzd2exprzd2_3536,
																			BgL_outputz00_3537,
																			BgL_displayzf3zf3_3535, BgL_widthz00_3534,
																			BgL_maxzd2callzd2headzd2widthzd2_3533,
																			BgL_ppzd2lambdazd2_3532,
																			BgL_ppzd2definezd2_3531,
																			BgL_ppzd2defunzd2_3530,
																			BgL_ppzd2ifzd2_3529,
																			BgL_ppzd2condzd2_3528,
																			BgL_ppzd2casezd2_3527,
																			BgL_ppzd2andzd2_3526,
																			BgL_ppzd2letzd2_3525,
																			BgL_ppzd2beginzd2_3524,
																			BgL_ppzd2dozd2_3523,
																			BgL_ppzd2commentzd2_3522,
																			BgL_ppzd2exprzd2listz00_3521,
																			BgL_ppzd2exprzd2defunz00_3520,
																			BgL_indentzd2generalzd2_3538,
																			BgL_val1z00_2958,
																			BGl_z62indentz62zz__ppz00
																			(BgL_outputz00_3537,
																				BINT(BgL_arg1490z00_1626),
																				BgL_colza2za2_1617),
																			BINT(BgL_extraz00_2960),
																			BgL_ppzd21zd2_1608);
																		BgL_col3z00_5589 = BgL_arg1490z00_1626;
																		BgL_col3z00_1643 = BgL_col3z00_5589;
																		BgL_col2z00_1642 = BgL_col2z00_5584;
																		BgL_col1z00_1641 = BgL_col1z00_5583;
																		BgL_restz00_1640 = BgL_restz00_5582;
																		goto BgL_zc3z04anonymousza31497ze3z87_1644;
																	}
																}
															}
														}
													}
												else
													{
														long BgL_col3z00_5593;
														obj_t BgL_col2z00_5592;
														long BgL_col1z00_5591;
														obj_t BgL_restz00_5590;

														BgL_restz00_5590 = BgL_restz00_1616;
														BgL_col1z00_5591 = BgL_arg1489z00_1625;
														BgL_col2z00_5592 = BgL_colza2za2_1617;
														BgL_col3z00_5593 = BgL_arg1490z00_1626;
														BgL_col3z00_1643 = BgL_col3z00_5593;
														BgL_col2z00_1642 = BgL_col2z00_5592;
														BgL_col1z00_1641 = BgL_col1z00_5591;
														BgL_restz00_1640 = BgL_restz00_5590;
														goto BgL_zc3z04anonymousza31497ze3z87_1644;
													}
											}
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* &pp-lambda */
	obj_t BGl_z62ppzd2lambdazb0zz__ppz00(obj_t BgL_envz00_3539,
		obj_t BgL_exprz00_3558, obj_t BgL_colz00_3559, obj_t BgL_extraz00_3560)
	{
		{	/* Pp/pp.scm 397 */
			{	/* Pp/pp.scm 393 */
				long BgL_indentzd2generalzd2_3540;
				obj_t BgL_ppzd2exprzd2defunz00_3541;
				obj_t BgL_widthz00_3542;
				obj_t BgL_displayzf3zf3_3543;
				obj_t BgL_ppzd2exprzd2listz00_3544;
				obj_t BgL_ppzd2commentzd2_3545;
				obj_t BgL_ppzd2dozd2_3546;
				obj_t BgL_ppzd2beginzd2_3547;
				obj_t BgL_ppzd2letzd2_3548;
				obj_t BgL_ppzd2andzd2_3549;
				obj_t BgL_ppzd2casezd2_3550;
				obj_t BgL_ppzd2condzd2_3551;
				obj_t BgL_ppzd2ifzd2_3552;
				obj_t BgL_ppzd2defunzd2_3553;
				obj_t BgL_ppzd2definezd2_3554;
				long BgL_maxzd2callzd2headzd2widthzd2_3555;
				obj_t BgL_outputz00_3556;
				obj_t BgL_ppzd2exprzd2_3557;

				BgL_indentzd2generalzd2_3540 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3539, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3541 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (1L)));
				BgL_widthz00_3542 = PROCEDURE_REF(BgL_envz00_3539, (int) (2L));
				BgL_displayzf3zf3_3543 = PROCEDURE_REF(BgL_envz00_3539, (int) (3L));
				BgL_ppzd2exprzd2listz00_3544 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (4L)));
				BgL_ppzd2commentzd2_3545 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (5L)));
				BgL_ppzd2dozd2_3546 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (6L)));
				BgL_ppzd2beginzd2_3547 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (7L)));
				BgL_ppzd2letzd2_3548 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (8L)));
				BgL_ppzd2andzd2_3549 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (9L)));
				BgL_ppzd2casezd2_3550 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (10L)));
				BgL_ppzd2condzd2_3551 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (11L)));
				BgL_ppzd2ifzd2_3552 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (12L)));
				BgL_ppzd2defunzd2_3553 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (13L)));
				BgL_ppzd2definezd2_3554 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (14L)));
				BgL_maxzd2callzd2headzd2widthzd2_3555 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3539, (int) (15L)));
				BgL_outputz00_3556 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (16L)));
				BgL_ppzd2exprzd2_3557 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3539, (int) (17L)));
				{	/* Pp/pp.scm 393 */
					obj_t BgL_colz00_3886;

					if (CBOOL(BgL_colz00_3559))
						{	/* Pp/pp.scm 138 */
							obj_t BgL__andtest_1044z00_3887;

							BgL__andtest_1044z00_3887 =
								((obj_t(*)(obj_t,
										obj_t))
								PROCEDURE_L_ENTRY(BgL_outputz00_3556)) (BgL_outputz00_3556,
								BGl_string1974z00zz__ppz00);
							if (CBOOL(BgL__andtest_1044z00_3887))
								{	/* Pp/pp.scm 138 */
									BgL_colz00_3886 = ADDFX(BgL_colz00_3559, BINT(1L));
								}
							else
								{	/* Pp/pp.scm 138 */
									BgL_colz00_3886 = BFALSE;
								}
						}
					else
						{	/* Pp/pp.scm 138 */
							BgL_colz00_3886 = BFALSE;
						}
					{	/* Pp/pp.scm 393 */
						obj_t BgL_col2z00_3888;

						{	/* Pp/pp.scm 394 */
							obj_t BgL_arg1512z00_3889;

							BgL_arg1512z00_3889 = CAR(((obj_t) BgL_exprz00_3558));
							BgL_col2z00_3888 =
								BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3543,
								BgL_outputz00_3556, BgL_arg1512z00_3889, BgL_colz00_3886);
						}
						{	/* Pp/pp.scm 394 */
							obj_t BgL_col3z00_3890;

							if (CBOOL(BgL_col2z00_3888))
								{	/* Pp/pp.scm 138 */
									obj_t BgL__andtest_1044z00_3891;

									BgL__andtest_1044z00_3891 =
										((obj_t(*)(obj_t,
												obj_t))
										PROCEDURE_L_ENTRY(BgL_outputz00_3556)) (BgL_outputz00_3556,
										BGl_string1975z00zz__ppz00);
									if (CBOOL(BgL__andtest_1044z00_3891))
										{	/* Pp/pp.scm 138 */
											BgL_col3z00_3890 = ADDFX(BgL_col2z00_3888, BINT(1L));
										}
									else
										{	/* Pp/pp.scm 138 */
											BgL_col3z00_3890 = BFALSE;
										}
								}
							else
								{	/* Pp/pp.scm 138 */
									BgL_col3z00_3890 = BFALSE;
								}
							{	/* Pp/pp.scm 395 */
								obj_t BgL_col4z00_3892;

								{	/* Pp/pp.scm 396 */
									obj_t BgL_arg1511z00_3893;

									{	/* Pp/pp.scm 396 */
										obj_t BgL_pairz00_3894;

										BgL_pairz00_3894 = CDR(((obj_t) BgL_exprz00_3558));
										BgL_arg1511z00_3893 = CAR(BgL_pairz00_3894);
									}
									BgL_col4z00_3892 =
										BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3543,
										BgL_outputz00_3556, BgL_arg1511z00_3893, BgL_col3z00_3890);
								}
								{	/* Pp/pp.scm 396 */

									{	/* Pp/pp.scm 397 */
										obj_t BgL_arg1509z00_3895;
										long BgL_arg1510z00_3896;

										{	/* Pp/pp.scm 397 */
											obj_t BgL_pairz00_3897;

											BgL_pairz00_3897 = CDR(((obj_t) BgL_exprz00_3558));
											BgL_arg1509z00_3895 = CDR(BgL_pairz00_3897);
										}
										BgL_arg1510z00_3896 = ((long) CINT(BgL_colz00_3886) + 2L);
										return
											BGl_z62ppzd2downzb0zz__ppz00(BgL_outputz00_3556,
											BgL_ppzd2exprzd2_3557, BgL_displayzf3zf3_3543,
											BgL_widthz00_3542, BgL_maxzd2callzd2headzd2widthzd2_3555,
											BgL_envz00_3539, BgL_ppzd2definezd2_3554,
											BgL_ppzd2defunzd2_3553, BgL_ppzd2ifzd2_3552,
											BgL_ppzd2condzd2_3551, BgL_ppzd2casezd2_3550,
											BgL_ppzd2andzd2_3549, BgL_ppzd2letzd2_3548,
											BgL_ppzd2beginzd2_3547, BgL_ppzd2dozd2_3546,
											BgL_ppzd2commentzd2_3545, BgL_ppzd2exprzd2listz00_3544,
											BgL_ppzd2exprzd2defunz00_3541,
											BgL_indentzd2generalzd2_3540, BgL_arg1509z00_3895,
											BgL_col3z00_3890, BINT(BgL_arg1510z00_3896),
											BgL_extraz00_3560, BgL_ppzd2exprzd2_3557);
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &pp-define */
	obj_t BGl_z62ppzd2definezb0zz__ppz00(obj_t BgL_envz00_3561,
		obj_t BgL_exprz00_3580, obj_t BgL_colz00_3581, obj_t BgL_extraz00_3582)
	{
		{	/* Pp/pp.scm 379 */
			{	/* Pp/pp.scm 379 */
				long BgL_indentzd2generalzd2_3562;
				obj_t BgL_ppzd2exprzd2defunz00_3563;
				obj_t BgL_ppzd2commentzd2_3564;
				obj_t BgL_ppzd2dozd2_3565;
				obj_t BgL_ppzd2beginzd2_3566;
				obj_t BgL_ppzd2letzd2_3567;
				obj_t BgL_ppzd2andzd2_3568;
				obj_t BgL_ppzd2casezd2_3569;
				obj_t BgL_ppzd2condzd2_3570;
				obj_t BgL_ppzd2ifzd2_3571;
				obj_t BgL_ppzd2defunzd2_3572;
				obj_t BgL_ppzd2lambdazd2_3573;
				long BgL_maxzd2callzd2headzd2widthzd2_3574;
				obj_t BgL_widthz00_3575;
				obj_t BgL_displayzf3zf3_3576;
				obj_t BgL_ppzd2exprzd2listz00_3577;
				obj_t BgL_ppzd2exprzd2_3578;
				obj_t BgL_outputz00_3579;

				BgL_indentzd2generalzd2_3562 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3561, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3563 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (1L)));
				BgL_ppzd2commentzd2_3564 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (2L)));
				BgL_ppzd2dozd2_3565 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (3L)));
				BgL_ppzd2beginzd2_3566 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (4L)));
				BgL_ppzd2letzd2_3567 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (5L)));
				BgL_ppzd2andzd2_3568 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (6L)));
				BgL_ppzd2casezd2_3569 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (7L)));
				BgL_ppzd2condzd2_3570 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (8L)));
				BgL_ppzd2ifzd2_3571 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (9L)));
				BgL_ppzd2defunzd2_3572 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (10L)));
				BgL_ppzd2lambdazd2_3573 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (11L)));
				BgL_maxzd2callzd2headzd2widthzd2_3574 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3561, (int) (12L)));
				BgL_widthz00_3575 = PROCEDURE_REF(BgL_envz00_3561, (int) (13L));
				BgL_displayzf3zf3_3576 = PROCEDURE_REF(BgL_envz00_3561, (int) (14L));
				BgL_ppzd2exprzd2listz00_3577 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (15L)));
				BgL_ppzd2exprzd2_3578 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (16L)));
				BgL_outputz00_3579 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3561, (int) (17L)));
				BGl_z62ppzd2generalzb0zz__ppz00(BgL_indentzd2generalzd2_3562,
					BgL_outputz00_3579, BgL_ppzd2exprzd2_3578, BgL_displayzf3zf3_3576,
					BgL_widthz00_3575, BgL_maxzd2callzd2headzd2widthzd2_3574,
					BgL_ppzd2lambdazd2_3573, BgL_envz00_3561, BgL_ppzd2defunzd2_3572,
					BgL_ppzd2ifzd2_3571, BgL_ppzd2condzd2_3570, BgL_ppzd2casezd2_3569,
					BgL_ppzd2andzd2_3568, BgL_ppzd2letzd2_3567, BgL_ppzd2beginzd2_3566,
					BgL_ppzd2dozd2_3565, BgL_ppzd2commentzd2_3564,
					BgL_ppzd2exprzd2listz00_3577, BgL_ppzd2exprzd2defunz00_3563,
					BgL_exprz00_3580, BgL_colz00_3581, BgL_extraz00_3582, ((bool_t) 0),
					BgL_ppzd2exprzd2listz00_3577, BFALSE, BgL_ppzd2exprzd2_3578);
				{	/* Pp/pp.scm 138 */
					obj_t BgL__andtest_1044z00_3898;

					BgL__andtest_1044z00_3898 =
						((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_L_ENTRY(BgL_outputz00_3579)) (BgL_outputz00_3579,
						BGl_string2012z00zz__ppz00);
					if (CBOOL(BgL__andtest_1044z00_3898))
						{	/* Pp/pp.scm 138 */
							return BINT((0L + 1L));
						}
					else
						{	/* Pp/pp.scm 138 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &pp-defun */
	obj_t BGl_z62ppzd2defunzb0zz__ppz00(obj_t BgL_envz00_3583,
		obj_t BgL_exprz00_3602, obj_t BgL_colz00_3603, obj_t BgL_extraz00_3604)
	{
		{	/* Pp/pp.scm 383 */
			{	/* Pp/pp.scm 383 */
				long BgL_indentzd2generalzd2_3584;
				obj_t BgL_ppzd2exprzd2listz00_3585;
				obj_t BgL_ppzd2commentzd2_3586;
				obj_t BgL_ppzd2dozd2_3587;
				obj_t BgL_ppzd2beginzd2_3588;
				obj_t BgL_ppzd2letzd2_3589;
				obj_t BgL_ppzd2andzd2_3590;
				obj_t BgL_ppzd2casezd2_3591;
				obj_t BgL_ppzd2condzd2_3592;
				obj_t BgL_ppzd2ifzd2_3593;
				obj_t BgL_ppzd2definezd2_3594;
				obj_t BgL_ppzd2lambdazd2_3595;
				long BgL_maxzd2callzd2headzd2widthzd2_3596;
				obj_t BgL_widthz00_3597;
				obj_t BgL_displayzf3zf3_3598;
				obj_t BgL_ppzd2exprzd2defunz00_3599;
				obj_t BgL_ppzd2exprzd2_3600;
				obj_t BgL_outputz00_3601;

				BgL_indentzd2generalzd2_3584 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3583, (int) (0L)));
				BgL_ppzd2exprzd2listz00_3585 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (1L)));
				BgL_ppzd2commentzd2_3586 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (2L)));
				BgL_ppzd2dozd2_3587 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (3L)));
				BgL_ppzd2beginzd2_3588 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (4L)));
				BgL_ppzd2letzd2_3589 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (5L)));
				BgL_ppzd2andzd2_3590 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (6L)));
				BgL_ppzd2casezd2_3591 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (7L)));
				BgL_ppzd2condzd2_3592 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (8L)));
				BgL_ppzd2ifzd2_3593 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (9L)));
				BgL_ppzd2definezd2_3594 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (10L)));
				BgL_ppzd2lambdazd2_3595 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (11L)));
				BgL_maxzd2callzd2headzd2widthzd2_3596 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3583, (int) (12L)));
				BgL_widthz00_3597 = PROCEDURE_REF(BgL_envz00_3583, (int) (13L));
				BgL_displayzf3zf3_3598 = PROCEDURE_REF(BgL_envz00_3583, (int) (14L));
				BgL_ppzd2exprzd2defunz00_3599 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (15L)));
				BgL_ppzd2exprzd2_3600 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (16L)));
				BgL_outputz00_3601 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3583, (int) (17L)));
				BGl_z62ppzd2generalzb0zz__ppz00(BgL_indentzd2generalzd2_3584,
					BgL_outputz00_3601, BgL_ppzd2exprzd2_3600, BgL_displayzf3zf3_3598,
					BgL_widthz00_3597, BgL_maxzd2callzd2headzd2widthzd2_3596,
					BgL_ppzd2lambdazd2_3595, BgL_ppzd2definezd2_3594, BgL_envz00_3583,
					BgL_ppzd2ifzd2_3593, BgL_ppzd2condzd2_3592, BgL_ppzd2casezd2_3591,
					BgL_ppzd2andzd2_3590, BgL_ppzd2letzd2_3589, BgL_ppzd2beginzd2_3588,
					BgL_ppzd2dozd2_3587, BgL_ppzd2commentzd2_3586,
					BgL_ppzd2exprzd2listz00_3585, BgL_ppzd2exprzd2defunz00_3599,
					BgL_exprz00_3602, BgL_colz00_3603, BgL_extraz00_3604, ((bool_t) 1),
					BgL_ppzd2exprzd2defunz00_3599, BFALSE, BgL_ppzd2exprzd2_3600);
				{	/* Pp/pp.scm 138 */
					obj_t BgL__andtest_1044z00_3899;

					BgL__andtest_1044z00_3899 =
						((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_L_ENTRY(BgL_outputz00_3601)) (BgL_outputz00_3601,
						BGl_string2012z00zz__ppz00);
					if (CBOOL(BgL__andtest_1044z00_3899))
						{	/* Pp/pp.scm 138 */
							return BINT((0L + 1L));
						}
					else
						{	/* Pp/pp.scm 138 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &pp-if */
	obj_t BGl_z62ppzd2ifzb0zz__ppz00(obj_t BgL_envz00_3605,
		obj_t BgL_exprz00_3624, obj_t BgL_colz00_3625, obj_t BgL_extraz00_3626)
	{
		{	/* Pp/pp.scm 416 */
			{	/* Pp/pp.scm 416 */
				long BgL_indentzd2generalzd2_3606;
				obj_t BgL_ppzd2exprzd2defunz00_3607;
				obj_t BgL_widthz00_3608;
				obj_t BgL_displayzf3zf3_3609;
				obj_t BgL_ppzd2exprzd2listz00_3610;
				obj_t BgL_ppzd2commentzd2_3611;
				obj_t BgL_ppzd2dozd2_3612;
				obj_t BgL_ppzd2beginzd2_3613;
				obj_t BgL_ppzd2letzd2_3614;
				obj_t BgL_ppzd2andzd2_3615;
				obj_t BgL_ppzd2casezd2_3616;
				obj_t BgL_ppzd2condzd2_3617;
				obj_t BgL_ppzd2defunzd2_3618;
				obj_t BgL_ppzd2definezd2_3619;
				obj_t BgL_ppzd2lambdazd2_3620;
				obj_t BgL_outputz00_3621;
				long BgL_maxzd2callzd2headzd2widthzd2_3622;
				obj_t BgL_ppzd2exprzd2_3623;

				BgL_indentzd2generalzd2_3606 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3605, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3607 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (1L)));
				BgL_widthz00_3608 = PROCEDURE_REF(BgL_envz00_3605, (int) (2L));
				BgL_displayzf3zf3_3609 = PROCEDURE_REF(BgL_envz00_3605, (int) (3L));
				BgL_ppzd2exprzd2listz00_3610 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (4L)));
				BgL_ppzd2commentzd2_3611 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (5L)));
				BgL_ppzd2dozd2_3612 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (6L)));
				BgL_ppzd2beginzd2_3613 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (7L)));
				BgL_ppzd2letzd2_3614 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (8L)));
				BgL_ppzd2andzd2_3615 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (9L)));
				BgL_ppzd2casezd2_3616 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (10L)));
				BgL_ppzd2condzd2_3617 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (11L)));
				BgL_ppzd2defunzd2_3618 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (12L)));
				BgL_ppzd2definezd2_3619 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (13L)));
				BgL_ppzd2lambdazd2_3620 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (14L)));
				BgL_outputz00_3621 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (15L)));
				BgL_maxzd2callzd2headzd2widthzd2_3622 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3605, (int) (16L)));
				BgL_ppzd2exprzd2_3623 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3605, (int) (17L)));
				return
					BGl_z62ppzd2generalzb0zz__ppz00(BgL_indentzd2generalzd2_3606,
					BgL_outputz00_3621, BgL_ppzd2exprzd2_3623, BgL_displayzf3zf3_3609,
					BgL_widthz00_3608, BgL_maxzd2callzd2headzd2widthzd2_3622,
					BgL_ppzd2lambdazd2_3620, BgL_ppzd2definezd2_3619,
					BgL_ppzd2defunzd2_3618, BgL_envz00_3605, BgL_ppzd2condzd2_3617,
					BgL_ppzd2casezd2_3616, BgL_ppzd2andzd2_3615, BgL_ppzd2letzd2_3614,
					BgL_ppzd2beginzd2_3613, BgL_ppzd2dozd2_3612, BgL_ppzd2commentzd2_3611,
					BgL_ppzd2exprzd2listz00_3610, BgL_ppzd2exprzd2defunz00_3607,
					BgL_exprz00_3624, BgL_colz00_3625, BgL_extraz00_3626, ((bool_t) 0),
					BgL_ppzd2exprzd2_3623, BFALSE, BgL_ppzd2exprzd2_3623);
			}
		}

	}



/* &pp-cond */
	obj_t BGl_z62ppzd2condzb0zz__ppz00(obj_t BgL_envz00_3627,
		obj_t BgL_exprz00_3646, obj_t BgL_colz00_3647, obj_t BgL_extraz00_3648)
	{
		{	/* Pp/pp.scm 419 */
			{	/* Pp/pp.scm 305 */
				long BgL_indentzd2generalzd2_3628;
				obj_t BgL_ppzd2exprzd2defunz00_3629;
				obj_t BgL_widthz00_3630;
				obj_t BgL_displayzf3zf3_3631;
				obj_t BgL_ppzd2commentzd2_3632;
				obj_t BgL_ppzd2dozd2_3633;
				obj_t BgL_ppzd2beginzd2_3634;
				obj_t BgL_ppzd2letzd2_3635;
				obj_t BgL_ppzd2andzd2_3636;
				obj_t BgL_ppzd2casezd2_3637;
				obj_t BgL_ppzd2ifzd2_3638;
				obj_t BgL_ppzd2defunzd2_3639;
				obj_t BgL_ppzd2definezd2_3640;
				obj_t BgL_ppzd2lambdazd2_3641;
				long BgL_maxzd2callzd2headzd2widthzd2_3642;
				obj_t BgL_ppzd2exprzd2_3643;
				obj_t BgL_outputz00_3644;
				obj_t BgL_ppzd2exprzd2listz00_3645;

				BgL_indentzd2generalzd2_3628 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3627, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3629 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (1L)));
				BgL_widthz00_3630 = PROCEDURE_REF(BgL_envz00_3627, (int) (2L));
				BgL_displayzf3zf3_3631 = PROCEDURE_REF(BgL_envz00_3627, (int) (3L));
				BgL_ppzd2commentzd2_3632 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (4L)));
				BgL_ppzd2dozd2_3633 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (5L)));
				BgL_ppzd2beginzd2_3634 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (6L)));
				BgL_ppzd2letzd2_3635 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (7L)));
				BgL_ppzd2andzd2_3636 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (8L)));
				BgL_ppzd2casezd2_3637 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (9L)));
				BgL_ppzd2ifzd2_3638 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (10L)));
				BgL_ppzd2defunzd2_3639 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (11L)));
				BgL_ppzd2definezd2_3640 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (12L)));
				BgL_ppzd2lambdazd2_3641 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (13L)));
				BgL_maxzd2callzd2headzd2widthzd2_3642 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3627, (int) (14L)));
				BgL_ppzd2exprzd2_3643 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (15L)));
				BgL_outputz00_3644 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (16L)));
				BgL_ppzd2exprzd2listz00_3645 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3627, (int) (17L)));
				{	/* Pp/pp.scm 305 */
					obj_t BgL_colza2za2_3900;

					{	/* Pp/pp.scm 305 */
						obj_t BgL_arg1459z00_3901;
						obj_t BgL_arg1460z00_3902;

						BgL_arg1459z00_3901 = CAR(((obj_t) BgL_exprz00_3646));
						if (CBOOL(BgL_colz00_3647))
							{	/* Pp/pp.scm 138 */
								obj_t BgL__andtest_1044z00_3903;

								BgL__andtest_1044z00_3903 =
									((obj_t(*)(obj_t,
											obj_t))
									PROCEDURE_L_ENTRY(BgL_outputz00_3644)) (BgL_outputz00_3644,
									BGl_string1974z00zz__ppz00);
								if (CBOOL(BgL__andtest_1044z00_3903))
									{	/* Pp/pp.scm 138 */
										BgL_arg1460z00_3902 = ADDFX(BgL_colz00_3647, BINT(1L));
									}
								else
									{	/* Pp/pp.scm 138 */
										BgL_arg1460z00_3902 = BFALSE;
									}
							}
						else
							{	/* Pp/pp.scm 138 */
								BgL_arg1460z00_3902 = BFALSE;
							}
						BgL_colza2za2_3900 =
							BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3631, BgL_outputz00_3644,
							BgL_arg1459z00_3901, BgL_arg1460z00_3902);
					}
					if (CBOOL(BgL_colz00_3647))
						{	/* Pp/pp.scm 307 */
							obj_t BgL_arg1457z00_3904;
							long BgL_arg1458z00_3905;

							BgL_arg1457z00_3904 = CDR(((obj_t) BgL_exprz00_3646));
							BgL_arg1458z00_3905 = ((long) CINT(BgL_colza2za2_3900) + 1L);
							return
								BGl_z62ppzd2downzb0zz__ppz00(BgL_outputz00_3644,
								BgL_ppzd2exprzd2_3643, BgL_displayzf3zf3_3631,
								BgL_widthz00_3630, BgL_maxzd2callzd2headzd2widthzd2_3642,
								BgL_ppzd2lambdazd2_3641, BgL_ppzd2definezd2_3640,
								BgL_ppzd2defunzd2_3639, BgL_ppzd2ifzd2_3638, BgL_envz00_3627,
								BgL_ppzd2casezd2_3637, BgL_ppzd2andzd2_3636,
								BgL_ppzd2letzd2_3635, BgL_ppzd2beginzd2_3634,
								BgL_ppzd2dozd2_3633, BgL_ppzd2commentzd2_3632,
								BgL_ppzd2exprzd2listz00_3645, BgL_ppzd2exprzd2defunz00_3629,
								BgL_indentzd2generalzd2_3628, BgL_arg1457z00_3904,
								BgL_colza2za2_3900, BINT(BgL_arg1458z00_3905),
								BgL_extraz00_3648, BgL_ppzd2exprzd2listz00_3645);
						}
					else
						{	/* Pp/pp.scm 306 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &pp-case */
	obj_t BGl_z62ppzd2casezb0zz__ppz00(obj_t BgL_envz00_3649,
		obj_t BgL_exprz00_3668, obj_t BgL_colz00_3669, obj_t BgL_extraz00_3670)
	{
		{	/* Pp/pp.scm 422 */
			{	/* Pp/pp.scm 422 */
				long BgL_indentzd2generalzd2_3650;
				obj_t BgL_ppzd2exprzd2defunz00_3651;
				obj_t BgL_widthz00_3652;
				obj_t BgL_displayzf3zf3_3653;
				obj_t BgL_ppzd2commentzd2_3654;
				obj_t BgL_ppzd2dozd2_3655;
				obj_t BgL_ppzd2beginzd2_3656;
				obj_t BgL_ppzd2letzd2_3657;
				obj_t BgL_ppzd2andzd2_3658;
				obj_t BgL_ppzd2condzd2_3659;
				obj_t BgL_ppzd2ifzd2_3660;
				obj_t BgL_ppzd2defunzd2_3661;
				obj_t BgL_ppzd2definezd2_3662;
				obj_t BgL_ppzd2lambdazd2_3663;
				obj_t BgL_outputz00_3664;
				long BgL_maxzd2callzd2headzd2widthzd2_3665;
				obj_t BgL_ppzd2exprzd2_3666;
				obj_t BgL_ppzd2exprzd2listz00_3667;

				BgL_indentzd2generalzd2_3650 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3649, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3651 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (1L)));
				BgL_widthz00_3652 = PROCEDURE_REF(BgL_envz00_3649, (int) (2L));
				BgL_displayzf3zf3_3653 = PROCEDURE_REF(BgL_envz00_3649, (int) (3L));
				BgL_ppzd2commentzd2_3654 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (4L)));
				BgL_ppzd2dozd2_3655 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (5L)));
				BgL_ppzd2beginzd2_3656 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (6L)));
				BgL_ppzd2letzd2_3657 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (7L)));
				BgL_ppzd2andzd2_3658 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (8L)));
				BgL_ppzd2condzd2_3659 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (9L)));
				BgL_ppzd2ifzd2_3660 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (10L)));
				BgL_ppzd2defunzd2_3661 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (11L)));
				BgL_ppzd2definezd2_3662 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (12L)));
				BgL_ppzd2lambdazd2_3663 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (13L)));
				BgL_outputz00_3664 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (14L)));
				BgL_maxzd2callzd2headzd2widthzd2_3665 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3649, (int) (15L)));
				BgL_ppzd2exprzd2_3666 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (16L)));
				BgL_ppzd2exprzd2listz00_3667 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3649, (int) (17L)));
				return
					BGl_z62ppzd2generalzb0zz__ppz00(BgL_indentzd2generalzd2_3650,
					BgL_outputz00_3664, BgL_ppzd2exprzd2_3666, BgL_displayzf3zf3_3653,
					BgL_widthz00_3652, BgL_maxzd2callzd2headzd2widthzd2_3665,
					BgL_ppzd2lambdazd2_3663, BgL_ppzd2definezd2_3662,
					BgL_ppzd2defunzd2_3661, BgL_ppzd2ifzd2_3660, BgL_ppzd2condzd2_3659,
					BgL_envz00_3649, BgL_ppzd2andzd2_3658, BgL_ppzd2letzd2_3657,
					BgL_ppzd2beginzd2_3656, BgL_ppzd2dozd2_3655, BgL_ppzd2commentzd2_3654,
					BgL_ppzd2exprzd2listz00_3667, BgL_ppzd2exprzd2defunz00_3651,
					BgL_exprz00_3668, BgL_colz00_3669, BgL_extraz00_3670, ((bool_t) 0),
					BgL_ppzd2exprzd2_3666, BFALSE, BgL_ppzd2exprzd2listz00_3667);
			}
		}

	}



/* &pp-and */
	obj_t BGl_z62ppzd2andzb0zz__ppz00(obj_t BgL_envz00_3671,
		obj_t BgL_exprz00_3690, obj_t BgL_colz00_3691, obj_t BgL_extraz00_3692)
	{
		{	/* Pp/pp.scm 425 */
			{	/* Pp/pp.scm 305 */
				long BgL_indentzd2generalzd2_3672;
				obj_t BgL_ppzd2exprzd2defunz00_3673;
				obj_t BgL_widthz00_3674;
				obj_t BgL_displayzf3zf3_3675;
				obj_t BgL_ppzd2exprzd2listz00_3676;
				obj_t BgL_ppzd2commentzd2_3677;
				obj_t BgL_ppzd2dozd2_3678;
				obj_t BgL_ppzd2beginzd2_3679;
				obj_t BgL_ppzd2letzd2_3680;
				obj_t BgL_ppzd2casezd2_3681;
				obj_t BgL_ppzd2condzd2_3682;
				obj_t BgL_ppzd2ifzd2_3683;
				obj_t BgL_ppzd2defunzd2_3684;
				obj_t BgL_ppzd2definezd2_3685;
				obj_t BgL_ppzd2lambdazd2_3686;
				long BgL_maxzd2callzd2headzd2widthzd2_3687;
				obj_t BgL_outputz00_3688;
				obj_t BgL_ppzd2exprzd2_3689;

				BgL_indentzd2generalzd2_3672 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3671, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3673 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (1L)));
				BgL_widthz00_3674 = PROCEDURE_REF(BgL_envz00_3671, (int) (2L));
				BgL_displayzf3zf3_3675 = PROCEDURE_REF(BgL_envz00_3671, (int) (3L));
				BgL_ppzd2exprzd2listz00_3676 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (4L)));
				BgL_ppzd2commentzd2_3677 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (5L)));
				BgL_ppzd2dozd2_3678 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (6L)));
				BgL_ppzd2beginzd2_3679 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (7L)));
				BgL_ppzd2letzd2_3680 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (8L)));
				BgL_ppzd2casezd2_3681 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (9L)));
				BgL_ppzd2condzd2_3682 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (10L)));
				BgL_ppzd2ifzd2_3683 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (11L)));
				BgL_ppzd2defunzd2_3684 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (12L)));
				BgL_ppzd2definezd2_3685 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (13L)));
				BgL_ppzd2lambdazd2_3686 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (14L)));
				BgL_maxzd2callzd2headzd2widthzd2_3687 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3671, (int) (15L)));
				BgL_outputz00_3688 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (16L)));
				BgL_ppzd2exprzd2_3689 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3671, (int) (17L)));
				{	/* Pp/pp.scm 305 */
					obj_t BgL_colza2za2_3906;

					{	/* Pp/pp.scm 305 */
						obj_t BgL_arg1459z00_3907;
						obj_t BgL_arg1460z00_3908;

						BgL_arg1459z00_3907 = CAR(((obj_t) BgL_exprz00_3690));
						if (CBOOL(BgL_colz00_3691))
							{	/* Pp/pp.scm 138 */
								obj_t BgL__andtest_1044z00_3909;

								BgL__andtest_1044z00_3909 =
									((obj_t(*)(obj_t,
											obj_t))
									PROCEDURE_L_ENTRY(BgL_outputz00_3688)) (BgL_outputz00_3688,
									BGl_string1974z00zz__ppz00);
								if (CBOOL(BgL__andtest_1044z00_3909))
									{	/* Pp/pp.scm 138 */
										BgL_arg1460z00_3908 = ADDFX(BgL_colz00_3691, BINT(1L));
									}
								else
									{	/* Pp/pp.scm 138 */
										BgL_arg1460z00_3908 = BFALSE;
									}
							}
						else
							{	/* Pp/pp.scm 138 */
								BgL_arg1460z00_3908 = BFALSE;
							}
						BgL_colza2za2_3906 =
							BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3675, BgL_outputz00_3688,
							BgL_arg1459z00_3907, BgL_arg1460z00_3908);
					}
					if (CBOOL(BgL_colz00_3691))
						{	/* Pp/pp.scm 307 */
							obj_t BgL_arg1457z00_3910;
							long BgL_arg1458z00_3911;

							BgL_arg1457z00_3910 = CDR(((obj_t) BgL_exprz00_3690));
							BgL_arg1458z00_3911 = ((long) CINT(BgL_colza2za2_3906) + 1L);
							return
								BGl_z62ppzd2downzb0zz__ppz00(BgL_outputz00_3688,
								BgL_ppzd2exprzd2_3689, BgL_displayzf3zf3_3675,
								BgL_widthz00_3674, BgL_maxzd2callzd2headzd2widthzd2_3687,
								BgL_ppzd2lambdazd2_3686, BgL_ppzd2definezd2_3685,
								BgL_ppzd2defunzd2_3684, BgL_ppzd2ifzd2_3683,
								BgL_ppzd2condzd2_3682, BgL_ppzd2casezd2_3681, BgL_envz00_3671,
								BgL_ppzd2letzd2_3680, BgL_ppzd2beginzd2_3679,
								BgL_ppzd2dozd2_3678, BgL_ppzd2commentzd2_3677,
								BgL_ppzd2exprzd2listz00_3676, BgL_ppzd2exprzd2defunz00_3673,
								BgL_indentzd2generalzd2_3672, BgL_arg1457z00_3910,
								BgL_colza2za2_3906, BINT(BgL_arg1458z00_3911),
								BgL_extraz00_3692, BgL_ppzd2exprzd2_3689);
						}
					else
						{	/* Pp/pp.scm 306 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &pp-let */
	obj_t BGl_z62ppzd2letzb0zz__ppz00(obj_t BgL_envz00_3693,
		obj_t BgL_exprz00_3712, obj_t BgL_colz00_3713, obj_t BgL_extraz00_3714)
	{
		{	/* Pp/pp.scm 387 */
			{	/* Pp/pp.scm 387 */
				long BgL_indentzd2generalzd2_3694;
				obj_t BgL_ppzd2exprzd2defunz00_3695;
				obj_t BgL_ppzd2commentzd2_3696;
				obj_t BgL_ppzd2dozd2_3697;
				obj_t BgL_ppzd2beginzd2_3698;
				obj_t BgL_ppzd2andzd2_3699;
				obj_t BgL_ppzd2casezd2_3700;
				obj_t BgL_ppzd2condzd2_3701;
				obj_t BgL_ppzd2ifzd2_3702;
				obj_t BgL_ppzd2defunzd2_3703;
				obj_t BgL_ppzd2definezd2_3704;
				obj_t BgL_ppzd2lambdazd2_3705;
				long BgL_maxzd2callzd2headzd2widthzd2_3706;
				obj_t BgL_widthz00_3707;
				obj_t BgL_displayzf3zf3_3708;
				obj_t BgL_outputz00_3709;
				obj_t BgL_ppzd2exprzd2listz00_3710;
				obj_t BgL_ppzd2exprzd2_3711;

				BgL_indentzd2generalzd2_3694 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3693, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3695 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (1L)));
				BgL_ppzd2commentzd2_3696 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (2L)));
				BgL_ppzd2dozd2_3697 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (3L)));
				BgL_ppzd2beginzd2_3698 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (4L)));
				BgL_ppzd2andzd2_3699 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (5L)));
				BgL_ppzd2casezd2_3700 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (6L)));
				BgL_ppzd2condzd2_3701 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (7L)));
				BgL_ppzd2ifzd2_3702 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (8L)));
				BgL_ppzd2defunzd2_3703 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (9L)));
				BgL_ppzd2definezd2_3704 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (10L)));
				BgL_ppzd2lambdazd2_3705 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (11L)));
				BgL_maxzd2callzd2headzd2widthzd2_3706 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3693, (int) (12L)));
				BgL_widthz00_3707 = PROCEDURE_REF(BgL_envz00_3693, (int) (13L));
				BgL_displayzf3zf3_3708 = PROCEDURE_REF(BgL_envz00_3693, (int) (14L));
				BgL_outputz00_3709 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (15L)));
				BgL_ppzd2exprzd2listz00_3710 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (16L)));
				BgL_ppzd2exprzd2_3711 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3693, (int) (17L)));
				return
					BGl_z62ppzd2generalzb0zz__ppz00(BgL_indentzd2generalzd2_3694,
					BgL_outputz00_3709, BgL_ppzd2exprzd2_3711, BgL_displayzf3zf3_3708,
					BgL_widthz00_3707, BgL_maxzd2callzd2headzd2widthzd2_3706,
					BgL_ppzd2lambdazd2_3705, BgL_ppzd2definezd2_3704,
					BgL_ppzd2defunzd2_3703, BgL_ppzd2ifzd2_3702, BgL_ppzd2condzd2_3701,
					BgL_ppzd2casezd2_3700, BgL_ppzd2andzd2_3699, BgL_envz00_3693,
					BgL_ppzd2beginzd2_3698, BgL_ppzd2dozd2_3697, BgL_ppzd2commentzd2_3696,
					BgL_ppzd2exprzd2listz00_3710, BgL_ppzd2exprzd2defunz00_3695,
					BgL_exprz00_3712, BgL_colz00_3713, BgL_extraz00_3714, ((bool_t) 0),
					BgL_ppzd2exprzd2listz00_3710, BFALSE, BgL_ppzd2exprzd2_3711);
			}
		}

	}



/* &pp-begin */
	obj_t BGl_z62ppzd2beginzb0zz__ppz00(obj_t BgL_envz00_3715,
		obj_t BgL_exprz00_3734, obj_t BgL_colz00_3735, obj_t BgL_extraz00_3736)
	{
		{	/* Pp/pp.scm 433 */
			{	/* Pp/pp.scm 433 */
				long BgL_indentzd2generalzd2_3716;
				obj_t BgL_ppzd2exprzd2defunz00_3717;
				obj_t BgL_widthz00_3718;
				obj_t BgL_displayzf3zf3_3719;
				obj_t BgL_ppzd2exprzd2listz00_3720;
				obj_t BgL_ppzd2commentzd2_3721;
				obj_t BgL_ppzd2dozd2_3722;
				obj_t BgL_ppzd2letzd2_3723;
				obj_t BgL_ppzd2andzd2_3724;
				obj_t BgL_ppzd2casezd2_3725;
				obj_t BgL_ppzd2condzd2_3726;
				obj_t BgL_ppzd2ifzd2_3727;
				obj_t BgL_ppzd2defunzd2_3728;
				obj_t BgL_ppzd2definezd2_3729;
				obj_t BgL_ppzd2lambdazd2_3730;
				obj_t BgL_outputz00_3731;
				long BgL_maxzd2callzd2headzd2widthzd2_3732;
				obj_t BgL_ppzd2exprzd2_3733;

				BgL_indentzd2generalzd2_3716 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3715, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3717 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (1L)));
				BgL_widthz00_3718 = PROCEDURE_REF(BgL_envz00_3715, (int) (2L));
				BgL_displayzf3zf3_3719 = PROCEDURE_REF(BgL_envz00_3715, (int) (3L));
				BgL_ppzd2exprzd2listz00_3720 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (4L)));
				BgL_ppzd2commentzd2_3721 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (5L)));
				BgL_ppzd2dozd2_3722 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (6L)));
				BgL_ppzd2letzd2_3723 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (7L)));
				BgL_ppzd2andzd2_3724 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (8L)));
				BgL_ppzd2casezd2_3725 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (9L)));
				BgL_ppzd2condzd2_3726 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (10L)));
				BgL_ppzd2ifzd2_3727 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (11L)));
				BgL_ppzd2defunzd2_3728 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (12L)));
				BgL_ppzd2definezd2_3729 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (13L)));
				BgL_ppzd2lambdazd2_3730 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (14L)));
				BgL_outputz00_3731 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (15L)));
				BgL_maxzd2callzd2headzd2widthzd2_3732 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3715, (int) (16L)));
				BgL_ppzd2exprzd2_3733 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3715, (int) (17L)));
				return
					BGl_z62ppzd2generalzb0zz__ppz00(BgL_indentzd2generalzd2_3716,
					BgL_outputz00_3731, BgL_ppzd2exprzd2_3733, BgL_displayzf3zf3_3719,
					BgL_widthz00_3718, BgL_maxzd2callzd2headzd2widthzd2_3732,
					BgL_ppzd2lambdazd2_3730, BgL_ppzd2definezd2_3729,
					BgL_ppzd2defunzd2_3728, BgL_ppzd2ifzd2_3727, BgL_ppzd2condzd2_3726,
					BgL_ppzd2casezd2_3725, BgL_ppzd2andzd2_3724, BgL_ppzd2letzd2_3723,
					BgL_envz00_3715, BgL_ppzd2dozd2_3722, BgL_ppzd2commentzd2_3721,
					BgL_ppzd2exprzd2listz00_3720, BgL_ppzd2exprzd2defunz00_3717,
					BgL_exprz00_3734, BgL_colz00_3735, BgL_extraz00_3736, ((bool_t) 0),
					BFALSE, BFALSE, BgL_ppzd2exprzd2_3733);
			}
		}

	}



/* &pp-do */
	obj_t BGl_z62ppzd2dozb0zz__ppz00(obj_t BgL_envz00_3737,
		obj_t BgL_exprz00_3756, obj_t BgL_colz00_3757, obj_t BgL_extraz00_3758)
	{
		{	/* Pp/pp.scm 436 */
			{	/* Pp/pp.scm 436 */
				long BgL_indentzd2generalzd2_3738;
				obj_t BgL_ppzd2exprzd2defunz00_3739;
				obj_t BgL_ppzd2commentzd2_3740;
				obj_t BgL_ppzd2beginzd2_3741;
				obj_t BgL_ppzd2letzd2_3742;
				obj_t BgL_ppzd2andzd2_3743;
				obj_t BgL_ppzd2casezd2_3744;
				obj_t BgL_ppzd2condzd2_3745;
				obj_t BgL_ppzd2ifzd2_3746;
				obj_t BgL_ppzd2defunzd2_3747;
				obj_t BgL_ppzd2definezd2_3748;
				obj_t BgL_ppzd2lambdazd2_3749;
				long BgL_maxzd2callzd2headzd2widthzd2_3750;
				obj_t BgL_widthz00_3751;
				obj_t BgL_displayzf3zf3_3752;
				obj_t BgL_outputz00_3753;
				obj_t BgL_ppzd2exprzd2listz00_3754;
				obj_t BgL_ppzd2exprzd2_3755;

				BgL_indentzd2generalzd2_3738 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3737, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3739 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (1L)));
				BgL_ppzd2commentzd2_3740 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (2L)));
				BgL_ppzd2beginzd2_3741 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (3L)));
				BgL_ppzd2letzd2_3742 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (4L)));
				BgL_ppzd2andzd2_3743 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (5L)));
				BgL_ppzd2casezd2_3744 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (6L)));
				BgL_ppzd2condzd2_3745 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (7L)));
				BgL_ppzd2ifzd2_3746 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (8L)));
				BgL_ppzd2defunzd2_3747 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (9L)));
				BgL_ppzd2definezd2_3748 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (10L)));
				BgL_ppzd2lambdazd2_3749 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (11L)));
				BgL_maxzd2callzd2headzd2widthzd2_3750 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3737, (int) (12L)));
				BgL_widthz00_3751 = PROCEDURE_REF(BgL_envz00_3737, (int) (13L));
				BgL_displayzf3zf3_3752 = PROCEDURE_REF(BgL_envz00_3737, (int) (14L));
				BgL_outputz00_3753 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (15L)));
				BgL_ppzd2exprzd2listz00_3754 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (16L)));
				BgL_ppzd2exprzd2_3755 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3737, (int) (17L)));
				return
					BGl_z62ppzd2generalzb0zz__ppz00(BgL_indentzd2generalzd2_3738,
					BgL_outputz00_3753, BgL_ppzd2exprzd2_3755, BgL_displayzf3zf3_3752,
					BgL_widthz00_3751, BgL_maxzd2callzd2headzd2widthzd2_3750,
					BgL_ppzd2lambdazd2_3749, BgL_ppzd2definezd2_3748,
					BgL_ppzd2defunzd2_3747, BgL_ppzd2ifzd2_3746, BgL_ppzd2condzd2_3745,
					BgL_ppzd2casezd2_3744, BgL_ppzd2andzd2_3743, BgL_ppzd2letzd2_3742,
					BgL_ppzd2beginzd2_3741, BgL_envz00_3737, BgL_ppzd2commentzd2_3740,
					BgL_ppzd2exprzd2listz00_3754, BgL_ppzd2exprzd2defunz00_3739,
					BgL_exprz00_3756, BgL_colz00_3757, BgL_extraz00_3758, ((bool_t) 0),
					BgL_ppzd2exprzd2listz00_3754, BgL_ppzd2exprzd2listz00_3754,
					BgL_ppzd2exprzd2_3755);
			}
		}

	}



/* &pp-comment */
	obj_t BGl_z62ppzd2commentzb0zz__ppz00(obj_t BgL_envz00_3759,
		obj_t BgL_exprz00_3778, obj_t BgL_colz00_3779, obj_t BgL_extraz00_3780)
	{
		{	/* Pp/pp.scm 413 */
			{	/* Pp/pp.scm 413 */
				obj_t BgL_ppzd2exprzd2defunz00_3760;
				obj_t BgL_ppzd2exprzd2listz00_3761;
				obj_t BgL_ppzd2dozd2_3762;
				obj_t BgL_ppzd2beginzd2_3763;
				obj_t BgL_ppzd2letzd2_3764;
				obj_t BgL_ppzd2andzd2_3765;
				obj_t BgL_ppzd2casezd2_3766;
				obj_t BgL_ppzd2condzd2_3767;
				obj_t BgL_ppzd2ifzd2_3768;
				obj_t BgL_ppzd2defunzd2_3769;
				obj_t BgL_ppzd2definezd2_3770;
				obj_t BgL_ppzd2lambdazd2_3771;
				long BgL_maxzd2callzd2headzd2widthzd2_3772;
				obj_t BgL_widthz00_3773;
				obj_t BgL_displayzf3zf3_3774;
				long BgL_indentzd2generalzd2_3775;
				obj_t BgL_outputz00_3776;
				obj_t BgL_ppzd2exprzd2_3777;

				BgL_ppzd2exprzd2defunz00_3760 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (0L)));
				BgL_ppzd2exprzd2listz00_3761 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (1L)));
				BgL_ppzd2dozd2_3762 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (2L)));
				BgL_ppzd2beginzd2_3763 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (3L)));
				BgL_ppzd2letzd2_3764 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (4L)));
				BgL_ppzd2andzd2_3765 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (5L)));
				BgL_ppzd2casezd2_3766 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (6L)));
				BgL_ppzd2condzd2_3767 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (7L)));
				BgL_ppzd2ifzd2_3768 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (8L)));
				BgL_ppzd2defunzd2_3769 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (9L)));
				BgL_ppzd2definezd2_3770 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (10L)));
				BgL_ppzd2lambdazd2_3771 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (11L)));
				BgL_maxzd2callzd2headzd2widthzd2_3772 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3759, (int) (12L)));
				BgL_widthz00_3773 = PROCEDURE_REF(BgL_envz00_3759, (int) (13L));
				BgL_displayzf3zf3_3774 = PROCEDURE_REF(BgL_envz00_3759, (int) (14L));
				BgL_indentzd2generalzd2_3775 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3759, (int) (15L)));
				BgL_outputz00_3776 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (16L)));
				BgL_ppzd2exprzd2_3777 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3759, (int) (17L)));
				{
					obj_t BgL_columnz00_3914;
					obj_t BgL_stringz00_3915;

					if (PAIRP(BgL_exprz00_3778))
						{	/* Pp/pp.scm 413 */
							obj_t BgL_cdrzd2118zd2_3929;

							BgL_cdrzd2118zd2_3929 = CDR(((obj_t) BgL_exprz00_3778));
							if (
								(CAR(((obj_t) BgL_exprz00_3778)) == BGl_symbol1977z00zz__ppz00))
								{	/* Pp/pp.scm 413 */
									if (PAIRP(BgL_cdrzd2118zd2_3929))
										{	/* Pp/pp.scm 413 */
											obj_t BgL_carzd2121zd2_3930;
											obj_t BgL_cdrzd2122zd2_3931;

											BgL_carzd2121zd2_3930 = CAR(BgL_cdrzd2118zd2_3929);
											BgL_cdrzd2122zd2_3931 = CDR(BgL_cdrzd2118zd2_3929);
											if (INTEGERP(BgL_carzd2121zd2_3930))
												{	/* Pp/pp.scm 413 */
													if (PAIRP(BgL_cdrzd2122zd2_3931))
														{	/* Pp/pp.scm 413 */
															obj_t BgL_carzd2127zd2_3932;

															BgL_carzd2127zd2_3932 =
																CAR(BgL_cdrzd2122zd2_3931);
															if (STRINGP(BgL_carzd2127zd2_3932))
																{	/* Pp/pp.scm 413 */
																	if (NULLP(CDR(BgL_cdrzd2122zd2_3931)))
																		{	/* Pp/pp.scm 413 */
																			BgL_columnz00_3914 =
																				BgL_carzd2121zd2_3930;
																			BgL_stringz00_3915 =
																				BgL_carzd2127zd2_3932;
																			{	/* Pp/pp.scm 402 */
																				obj_t BgL_addz00_3916;

																				{	/* Pp/pp.scm 402 */
																					obj_t BgL_b1112z00_3917;

																					{	/* Pp/pp.scm 402 */
																						long BgL_a1111z00_3918;

																						BgL_a1111z00_3918 =
																							STRING_LENGTH(BgL_stringz00_3915);
																						{	/* Pp/pp.scm 402 */
																							obj_t BgL_za71za7_3919;

																							BgL_za71za7_3919 =
																								BINT(BgL_a1111z00_3918);
																							{	/* Pp/pp.scm 402 */
																								obj_t BgL_tmpz00_3920;

																								BgL_tmpz00_3920 = BINT(0L);
																								{	/* Pp/pp.scm 402 */
																									bool_t BgL_test2324z00_6290;

																									{	/* Pp/pp.scm 402 */
																										obj_t BgL_tmpz00_6291;

																										BgL_tmpz00_6291 = BINT(3L);
																										BgL_test2324z00_6290 =
																											BGL_ADDFX_OV
																											(BgL_za71za7_3919,
																											BgL_tmpz00_6291,
																											BgL_tmpz00_3920);
																									}
																									if (BgL_test2324z00_6290)
																										{	/* Pp/pp.scm 402 */
																											BgL_b1112z00_3917 =
																												bgl_bignum_add
																												(bgl_long_to_bignum(
																													(long)
																													CINT
																													(BgL_za71za7_3919)),
																												bgl_long_to_bignum(3L));
																										}
																									else
																										{	/* Pp/pp.scm 402 */
																											BgL_b1112z00_3917 =
																												BgL_tmpz00_3920;
																										}
																								}
																							}
																						}
																					}
																					{	/* Pp/pp.scm 402 */
																						bool_t BgL_test2325z00_6298;

																						if (INTEGERP
																							(BGl_za2ppzd2widthza2zd2zz__ppz00))
																							{	/* Pp/pp.scm 402 */
																								BgL_test2325z00_6298 =
																									INTEGERP(BgL_b1112z00_3917);
																							}
																						else
																							{	/* Pp/pp.scm 402 */
																								BgL_test2325z00_6298 =
																									((bool_t) 0);
																							}
																						if (BgL_test2325z00_6298)
																							{	/* Pp/pp.scm 402 */
																								obj_t BgL_za71za7_3921;

																								BgL_za71za7_3921 =
																									BGl_za2ppzd2widthza2zd2zz__ppz00;
																								{	/* Pp/pp.scm 402 */
																									obj_t BgL_tmpz00_3922;

																									BgL_tmpz00_3922 = BINT(0L);
																									if (BGL_SUBFX_OV
																										(BgL_za71za7_3921,
																											BgL_b1112z00_3917,
																											BgL_tmpz00_3922))
																										{	/* Pp/pp.scm 402 */
																											BgL_addz00_3916 =
																												bgl_bignum_sub
																												(bgl_long_to_bignum(
																													(long)
																													CINT
																													(BgL_za71za7_3921)),
																												bgl_long_to_bignum(
																													(long)
																													CINT
																													(BgL_b1112z00_3917)));
																										}
																									else
																										{	/* Pp/pp.scm 402 */
																											BgL_addz00_3916 =
																												BgL_tmpz00_3922;
																										}
																								}
																							}
																						else
																							{	/* Pp/pp.scm 402 */
																								BgL_addz00_3916 =
																									BGl_2zd2zd2zz__r4_numbers_6_5z00
																									(BGl_za2ppzd2widthza2zd2zz__ppz00,
																									BgL_b1112z00_3917);
																							}
																					}
																				}
																				if (
																					((long) CINT(BgL_columnz00_3914) ==
																						0L))
																					{	/* Pp/pp.scm 403 */
																						if (
																							((long) CINT(BgL_addz00_3916) >
																								0L))
																							{	/* Pp/pp.scm 405 */
																								obj_t BgL_arg1527z00_3923;

																								BgL_arg1527z00_3923 =
																									string_append
																									(BgL_stringz00_3915,
																									make_string((long)
																										CINT(BgL_addz00_3916),
																										((unsigned char) ' ')));
																								{	/* Pp/pp.scm 138 */
																									obj_t
																										BgL__andtest_1044z00_3924;
																									BgL__andtest_1044z00_3924 =
																										((obj_t(*)(obj_t,
																												obj_t))
																										PROCEDURE_L_ENTRY
																										(BgL_outputz00_3776))
																										(BgL_outputz00_3776,
																										BgL_arg1527z00_3923);
																									if (CBOOL
																										(BgL__andtest_1044z00_3924))
																										{	/* Pp/pp.scm 138 */
																											return
																												BINT(
																												(0L +
																													STRING_LENGTH
																													(BgL_arg1527z00_3923)));
																										}
																									else
																										{	/* Pp/pp.scm 138 */
																											return BFALSE;
																										}
																								}
																							}
																						else
																							{	/* Pp/pp.scm 138 */
																								obj_t BgL__andtest_1044z00_3925;

																								BgL__andtest_1044z00_3925 =
																									((obj_t(*)(obj_t,
																											obj_t))
																									PROCEDURE_L_ENTRY
																									(BgL_outputz00_3776))
																									(BgL_outputz00_3776,
																									BgL_stringz00_3915);
																								if (CBOOL
																									(BgL__andtest_1044z00_3925))
																									{	/* Pp/pp.scm 138 */
																										return
																											BINT(
																											(0L +
																												STRING_LENGTH
																												(BgL_stringz00_3915)));
																									}
																								else
																									{	/* Pp/pp.scm 138 */
																										return BFALSE;
																									}
																							}
																					}
																				else
																					{	/* Pp/pp.scm 403 */
																						if (
																							((long) CINT(BgL_addz00_3916) >
																								0L))
																							{	/* Pp/pp.scm 409 */
																								obj_t BgL_arg1532z00_3926;

																								BgL_arg1532z00_3926 =
																									string_append
																									(BgL_stringz00_3915,
																									make_string((long)
																										CINT(BgL_addz00_3916),
																										((unsigned char) ' ')));
																								if (CBOOL(BgL_colz00_3779))
																									{	/* Pp/pp.scm 138 */
																										obj_t
																											BgL__andtest_1044z00_3927;
																										BgL__andtest_1044z00_3927 =
																											((obj_t(*)(obj_t,
																													obj_t))
																											PROCEDURE_L_ENTRY
																											(BgL_outputz00_3776))
																											(BgL_outputz00_3776,
																											BgL_arg1532z00_3926);
																										if (CBOOL
																											(BgL__andtest_1044z00_3927))
																											{	/* Pp/pp.scm 138 */
																												return
																													ADDFX(BgL_colz00_3779,
																													BINT(STRING_LENGTH
																														(BgL_arg1532z00_3926)));
																											}
																										else
																											{	/* Pp/pp.scm 138 */
																												return BFALSE;
																											}
																									}
																								else
																									{	/* Pp/pp.scm 138 */
																										return BFALSE;
																									}
																							}
																						else
																							{	/* Pp/pp.scm 408 */
																								if (CBOOL(BgL_colz00_3779))
																									{	/* Pp/pp.scm 138 */
																										obj_t
																											BgL__andtest_1044z00_3928;
																										BgL__andtest_1044z00_3928 =
																											((obj_t(*)(obj_t,
																													obj_t))
																											PROCEDURE_L_ENTRY
																											(BgL_outputz00_3776))
																											(BgL_outputz00_3776,
																											BgL_stringz00_3915);
																										if (CBOOL
																											(BgL__andtest_1044z00_3928))
																											{	/* Pp/pp.scm 138 */
																												return
																													ADDFX(BgL_colz00_3779,
																													BINT(STRING_LENGTH
																														(BgL_stringz00_3915)));
																											}
																										else
																											{	/* Pp/pp.scm 138 */
																												return BFALSE;
																											}
																									}
																								else
																									{	/* Pp/pp.scm 138 */
																										return BFALSE;
																									}
																							}
																					}
																			}
																		}
																	else
																		{	/* Pp/pp.scm 413 */
																		BgL_tagzd2111zd2_3912:
																			return
																				BGl_z62ppzd2generalzb0zz__ppz00
																				(BgL_indentzd2generalzd2_3775,
																				BgL_outputz00_3776,
																				BgL_ppzd2exprzd2_3777,
																				BgL_displayzf3zf3_3774,
																				BgL_widthz00_3773,
																				BgL_maxzd2callzd2headzd2widthzd2_3772,
																				BgL_ppzd2lambdazd2_3771,
																				BgL_ppzd2definezd2_3770,
																				BgL_ppzd2defunzd2_3769,
																				BgL_ppzd2ifzd2_3768,
																				BgL_ppzd2condzd2_3767,
																				BgL_ppzd2casezd2_3766,
																				BgL_ppzd2andzd2_3765,
																				BgL_ppzd2letzd2_3764,
																				BgL_ppzd2beginzd2_3763,
																				BgL_ppzd2dozd2_3762, BgL_envz00_3759,
																				BgL_ppzd2exprzd2listz00_3761,
																				BgL_ppzd2exprzd2defunz00_3760,
																				BgL_exprz00_3778, BgL_colz00_3779,
																				BgL_extraz00_3780, ((bool_t) 0),
																				BgL_ppzd2exprzd2_3777, BFALSE,
																				BgL_ppzd2exprzd2_3777);
																		}
																}
															else
																{	/* Pp/pp.scm 413 */
																	goto BgL_tagzd2111zd2_3912;
																}
														}
													else
														{	/* Pp/pp.scm 413 */
															goto BgL_tagzd2111zd2_3912;
														}
												}
											else
												{	/* Pp/pp.scm 413 */
													goto BgL_tagzd2111zd2_3912;
												}
										}
									else
										{	/* Pp/pp.scm 413 */
											goto BgL_tagzd2111zd2_3912;
										}
								}
							else
								{	/* Pp/pp.scm 413 */
									goto BgL_tagzd2111zd2_3912;
								}
						}
					else
						{	/* Pp/pp.scm 413 */
							goto BgL_tagzd2111zd2_3912;
						}
				}
			}
		}

	}



/* &pp-expr-defun */
	obj_t BGl_z62ppzd2exprzd2defunz62zz__ppz00(obj_t BgL_envz00_3781,
		obj_t BgL_lz00_3800, obj_t BgL_colz00_3801, obj_t BgL_extraz00_3802)
	{
		{	/* Pp/pp.scm 376 */
			{	/* Pp/pp.scm 319 */
				long BgL_indentzd2generalzd2_3782;
				obj_t BgL_widthz00_3783;
				obj_t BgL_displayzf3zf3_3784;
				obj_t BgL_ppzd2exprzd2listz00_3785;
				obj_t BgL_ppzd2commentzd2_3786;
				obj_t BgL_ppzd2dozd2_3787;
				obj_t BgL_ppzd2beginzd2_3788;
				obj_t BgL_ppzd2letzd2_3789;
				obj_t BgL_ppzd2andzd2_3790;
				obj_t BgL_ppzd2casezd2_3791;
				obj_t BgL_ppzd2condzd2_3792;
				obj_t BgL_ppzd2ifzd2_3793;
				obj_t BgL_ppzd2defunzd2_3794;
				obj_t BgL_ppzd2definezd2_3795;
				obj_t BgL_ppzd2lambdazd2_3796;
				long BgL_maxzd2callzd2headzd2widthzd2_3797;
				obj_t BgL_outputz00_3798;
				obj_t BgL_ppzd2exprzd2_3799;

				BgL_indentzd2generalzd2_3782 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3781, (int) (0L)));
				BgL_widthz00_3783 = PROCEDURE_REF(BgL_envz00_3781, (int) (1L));
				BgL_displayzf3zf3_3784 = PROCEDURE_REF(BgL_envz00_3781, (int) (2L));
				BgL_ppzd2exprzd2listz00_3785 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (3L)));
				BgL_ppzd2commentzd2_3786 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (4L)));
				BgL_ppzd2dozd2_3787 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (5L)));
				BgL_ppzd2beginzd2_3788 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (6L)));
				BgL_ppzd2letzd2_3789 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (7L)));
				BgL_ppzd2andzd2_3790 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (8L)));
				BgL_ppzd2casezd2_3791 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (9L)));
				BgL_ppzd2condzd2_3792 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (10L)));
				BgL_ppzd2ifzd2_3793 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (11L)));
				BgL_ppzd2defunzd2_3794 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (12L)));
				BgL_ppzd2definezd2_3795 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (13L)));
				BgL_ppzd2lambdazd2_3796 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (14L)));
				BgL_maxzd2callzd2headzd2widthzd2_3797 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3781, (int) (15L)));
				BgL_outputz00_3798 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (16L)));
				BgL_ppzd2exprzd2_3799 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3781, (int) (17L)));
				{	/* Pp/pp.scm 319 */
					obj_t BgL_colz00_3933;

					if (CBOOL(BgL_colz00_3801))
						{	/* Pp/pp.scm 138 */
							obj_t BgL__andtest_1044z00_3934;

							BgL__andtest_1044z00_3934 =
								((obj_t(*)(obj_t,
										obj_t))
								PROCEDURE_L_ENTRY(BgL_outputz00_3798)) (BgL_outputz00_3798,
								BGl_string2013z00zz__ppz00);
							if (CBOOL(BgL__andtest_1044z00_3934))
								{	/* Pp/pp.scm 138 */
									BgL_colz00_3933 = ADDFX(BgL_colz00_3801, BINT(3L));
								}
							else
								{	/* Pp/pp.scm 138 */
									BgL_colz00_3933 = BFALSE;
								}
						}
					else
						{	/* Pp/pp.scm 138 */
							BgL_colz00_3933 = BFALSE;
						}
					{	/* Pp/pp.scm 319 */
						obj_t BgL_col2z00_3935;

						{	/* Pp/pp.scm 320 */
							obj_t BgL_arg1467z00_3936;

							BgL_arg1467z00_3936 = CAR(((obj_t) BgL_lz00_3800));
							BgL_col2z00_3935 =
								BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3784,
								BgL_outputz00_3798, BgL_arg1467z00_3936, BgL_colz00_3933);
						}
						{	/* Pp/pp.scm 320 */
							obj_t BgL_col3z00_3937;

							{	/* Pp/pp.scm 321 */
								obj_t BgL_arg1466z00_3938;

								{	/* Pp/pp.scm 321 */
									obj_t BgL_pairz00_3939;

									BgL_pairz00_3939 = CDR(((obj_t) BgL_lz00_3800));
									BgL_arg1466z00_3938 = CAR(BgL_pairz00_3939);
								}
								BgL_col3z00_3937 =
									BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3784,
									BgL_outputz00_3798, BgL_arg1466z00_3938, BgL_col2z00_3935);
							}
							{	/* Pp/pp.scm 321 */

								{	/* Pp/pp.scm 322 */
									obj_t BgL_arg1464z00_3940;
									long BgL_arg1465z00_3941;

									{	/* Pp/pp.scm 322 */
										obj_t BgL_pairz00_3942;

										BgL_pairz00_3942 = CDR(((obj_t) BgL_lz00_3800));
										BgL_arg1464z00_3940 = CDR(BgL_pairz00_3942);
									}
									BgL_arg1465z00_3941 = ((long) CINT(BgL_col3z00_3937) + 1L);
									return
										BGl_z62ppzd2downzb0zz__ppz00(BgL_outputz00_3798,
										BgL_ppzd2exprzd2_3799, BgL_displayzf3zf3_3784,
										BgL_widthz00_3783, BgL_maxzd2callzd2headzd2widthzd2_3797,
										BgL_ppzd2lambdazd2_3796, BgL_ppzd2definezd2_3795,
										BgL_ppzd2defunzd2_3794, BgL_ppzd2ifzd2_3793,
										BgL_ppzd2condzd2_3792, BgL_ppzd2casezd2_3791,
										BgL_ppzd2andzd2_3790, BgL_ppzd2letzd2_3789,
										BgL_ppzd2beginzd2_3788, BgL_ppzd2dozd2_3787,
										BgL_ppzd2commentzd2_3786, BgL_ppzd2exprzd2listz00_3785,
										BgL_envz00_3781, BgL_indentzd2generalzd2_3782,
										BgL_arg1464z00_3940, BgL_col3z00_3937,
										BINT(BgL_arg1465z00_3941), BgL_extraz00_3802,
										BgL_ppzd2exprzd2_3799);
								}
							}
						}
					}
				}
			}
		}

	}



/* &pp-expr-list */
	obj_t BGl_z62ppzd2exprzd2listz62zz__ppz00(obj_t BgL_envz00_3803,
		obj_t BgL_lz00_3822, obj_t BgL_colz00_3823, obj_t BgL_extraz00_3824)
	{
		{	/* Pp/pp.scm 373 */
			{	/* Pp/pp.scm 313 */
				long BgL_indentzd2generalzd2_3804;
				obj_t BgL_ppzd2exprzd2defunz00_3805;
				obj_t BgL_widthz00_3806;
				obj_t BgL_displayzf3zf3_3807;
				obj_t BgL_ppzd2commentzd2_3808;
				obj_t BgL_ppzd2dozd2_3809;
				obj_t BgL_ppzd2beginzd2_3810;
				obj_t BgL_ppzd2letzd2_3811;
				obj_t BgL_ppzd2andzd2_3812;
				obj_t BgL_ppzd2casezd2_3813;
				obj_t BgL_ppzd2condzd2_3814;
				obj_t BgL_ppzd2ifzd2_3815;
				obj_t BgL_ppzd2defunzd2_3816;
				obj_t BgL_ppzd2definezd2_3817;
				obj_t BgL_ppzd2lambdazd2_3818;
				long BgL_maxzd2callzd2headzd2widthzd2_3819;
				obj_t BgL_outputz00_3820;
				obj_t BgL_ppzd2exprzd2_3821;

				BgL_indentzd2generalzd2_3804 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3803, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3805 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (1L)));
				BgL_widthz00_3806 = PROCEDURE_REF(BgL_envz00_3803, (int) (2L));
				BgL_displayzf3zf3_3807 = PROCEDURE_REF(BgL_envz00_3803, (int) (3L));
				BgL_ppzd2commentzd2_3808 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (4L)));
				BgL_ppzd2dozd2_3809 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (5L)));
				BgL_ppzd2beginzd2_3810 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (6L)));
				BgL_ppzd2letzd2_3811 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (7L)));
				BgL_ppzd2andzd2_3812 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (8L)));
				BgL_ppzd2casezd2_3813 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (9L)));
				BgL_ppzd2condzd2_3814 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (10L)));
				BgL_ppzd2ifzd2_3815 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (11L)));
				BgL_ppzd2defunzd2_3816 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (12L)));
				BgL_ppzd2definezd2_3817 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (13L)));
				BgL_ppzd2lambdazd2_3818 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (14L)));
				BgL_maxzd2callzd2headzd2widthzd2_3819 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3803, (int) (15L)));
				BgL_outputz00_3820 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (16L)));
				BgL_ppzd2exprzd2_3821 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3803, (int) (17L)));
				{	/* Pp/pp.scm 313 */
					obj_t BgL_colz00_3943;

					if (CBOOL(BgL_colz00_3823))
						{	/* Pp/pp.scm 138 */
							obj_t BgL__andtest_1044z00_3944;

							BgL__andtest_1044z00_3944 =
								((obj_t(*)(obj_t,
										obj_t))
								PROCEDURE_L_ENTRY(BgL_outputz00_3820)) (BgL_outputz00_3820,
								BGl_string1974z00zz__ppz00);
							if (CBOOL(BgL__andtest_1044z00_3944))
								{	/* Pp/pp.scm 138 */
									BgL_colz00_3943 = ADDFX(BgL_colz00_3823, BINT(1L));
								}
							else
								{	/* Pp/pp.scm 138 */
									BgL_colz00_3943 = BFALSE;
								}
						}
					else
						{	/* Pp/pp.scm 138 */
							BgL_colz00_3943 = BFALSE;
						}
					return
						BGl_z62ppzd2downzb0zz__ppz00(BgL_outputz00_3820,
						BgL_ppzd2exprzd2_3821, BgL_displayzf3zf3_3807, BgL_widthz00_3806,
						BgL_maxzd2callzd2headzd2widthzd2_3819, BgL_ppzd2lambdazd2_3818,
						BgL_ppzd2definezd2_3817, BgL_ppzd2defunzd2_3816,
						BgL_ppzd2ifzd2_3815, BgL_ppzd2condzd2_3814, BgL_ppzd2casezd2_3813,
						BgL_ppzd2andzd2_3812, BgL_ppzd2letzd2_3811, BgL_ppzd2beginzd2_3810,
						BgL_ppzd2dozd2_3809, BgL_ppzd2commentzd2_3808, BgL_envz00_3803,
						BgL_ppzd2exprzd2defunz00_3805, BgL_indentzd2generalzd2_3804,
						BgL_lz00_3822, BgL_colz00_3943, BgL_colz00_3943, BgL_extraz00_3824,
						BgL_ppzd2exprzd2_3821);
				}
			}
		}

	}



/* &pp-expr */
	obj_t BGl_z62ppzd2exprzb0zz__ppz00(obj_t BgL_envz00_3825,
		obj_t BgL_exprz00_3844, obj_t BgL_colz00_3845, obj_t BgL_extraz00_3846)
	{
		{	/* Pp/pp.scm 299 */
			{	/* Pp/pp.scm 285 */
				long BgL_indentzd2generalzd2_3826;
				obj_t BgL_ppzd2exprzd2defunz00_3827;
				obj_t BgL_widthz00_3828;
				obj_t BgL_displayzf3zf3_3829;
				obj_t BgL_ppzd2exprzd2listz00_3830;
				obj_t BgL_ppzd2commentzd2_3831;
				obj_t BgL_ppzd2dozd2_3832;
				obj_t BgL_ppzd2beginzd2_3833;
				obj_t BgL_ppzd2letzd2_3834;
				obj_t BgL_ppzd2andzd2_3835;
				obj_t BgL_ppzd2casezd2_3836;
				obj_t BgL_ppzd2condzd2_3837;
				obj_t BgL_ppzd2ifzd2_3838;
				obj_t BgL_ppzd2defunzd2_3839;
				obj_t BgL_ppzd2definezd2_3840;
				obj_t BgL_ppzd2lambdazd2_3841;
				obj_t BgL_outputz00_3842;
				long BgL_maxzd2callzd2headzd2widthzd2_3843;

				BgL_indentzd2generalzd2_3826 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3825, (int) (0L)));
				BgL_ppzd2exprzd2defunz00_3827 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (1L)));
				BgL_widthz00_3828 = PROCEDURE_REF(BgL_envz00_3825, (int) (2L));
				BgL_displayzf3zf3_3829 = PROCEDURE_REF(BgL_envz00_3825, (int) (3L));
				BgL_ppzd2exprzd2listz00_3830 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (4L)));
				BgL_ppzd2commentzd2_3831 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (5L)));
				BgL_ppzd2dozd2_3832 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (6L)));
				BgL_ppzd2beginzd2_3833 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (7L)));
				BgL_ppzd2letzd2_3834 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (8L)));
				BgL_ppzd2andzd2_3835 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (9L)));
				BgL_ppzd2casezd2_3836 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (10L)));
				BgL_ppzd2condzd2_3837 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (11L)));
				BgL_ppzd2ifzd2_3838 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (12L)));
				BgL_ppzd2defunzd2_3839 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (13L)));
				BgL_ppzd2definezd2_3840 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (14L)));
				BgL_ppzd2lambdazd2_3841 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (15L)));
				BgL_outputz00_3842 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3825, (int) (16L)));
				BgL_maxzd2callzd2headzd2widthzd2_3843 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_3825, (int) (17L)));
				{
					obj_t BgL_headz00_3946;

					if (BGl_z62readzd2macrozf3z43zz__ppz00(BgL_exprz00_3844))
						{	/* Pp/pp.scm 286 */
							obj_t BgL_arg1445z00_3956;
							obj_t BgL_arg1446z00_3957;

							{	/* Pp/pp.scm 127 */
								obj_t BgL_pairz00_3958;

								BgL_pairz00_3958 = CDR(((obj_t) BgL_exprz00_3844));
								BgL_arg1445z00_3956 = CAR(BgL_pairz00_3958);
							}
							{	/* Pp/pp.scm 287 */
								obj_t BgL_arg1447z00_3959;

								BgL_arg1447z00_3959 =
									BGl_z62readzd2macrozd2prefixz62zz__ppz00(BgL_exprz00_3844);
								if (CBOOL(BgL_colz00_3845))
									{	/* Pp/pp.scm 138 */
										obj_t BgL__andtest_1044z00_3960;

										BgL__andtest_1044z00_3960 =
											((obj_t(*)(obj_t,
													obj_t))
											PROCEDURE_L_ENTRY(BgL_outputz00_3842))
											(BgL_outputz00_3842, BgL_arg1447z00_3959);
										if (CBOOL(BgL__andtest_1044z00_3960))
											{	/* Pp/pp.scm 138 */
												BgL_arg1446z00_3957 =
													ADDFX(BgL_colz00_3845,
													BINT(STRING_LENGTH(((obj_t) BgL_arg1447z00_3959))));
											}
										else
											{	/* Pp/pp.scm 138 */
												BgL_arg1446z00_3957 = BFALSE;
											}
									}
								else
									{	/* Pp/pp.scm 138 */
										BgL_arg1446z00_3957 = BFALSE;
									}
							}
							return
								BGl_z62prz62zz__ppz00(BgL_envz00_3825, BgL_outputz00_3842,
								BgL_displayzf3zf3_3829, BgL_widthz00_3828,
								BgL_maxzd2callzd2headzd2widthzd2_3843, BgL_ppzd2lambdazd2_3841,
								BgL_ppzd2definezd2_3840, BgL_ppzd2defunzd2_3839,
								BgL_ppzd2ifzd2_3838, BgL_ppzd2condzd2_3837,
								BgL_ppzd2casezd2_3836, BgL_ppzd2andzd2_3835,
								BgL_ppzd2letzd2_3834, BgL_ppzd2beginzd2_3833,
								BgL_ppzd2dozd2_3832, BgL_ppzd2commentzd2_3831,
								BgL_ppzd2exprzd2listz00_3830, BgL_ppzd2exprzd2defunz00_3827,
								BgL_indentzd2generalzd2_3826, BgL_arg1445z00_3956,
								BgL_arg1446z00_3957, BgL_extraz00_3846, BgL_envz00_3825);
						}
					else
						{	/* Pp/pp.scm 290 */
							obj_t BgL_headz00_3961;

							BgL_headz00_3961 = CAR(((obj_t) BgL_exprz00_3844));
							if (SYMBOLP(BgL_headz00_3961))
								{	/* Pp/pp.scm 292 */
									obj_t BgL_procz00_3962;

									BgL_headz00_3946 = BgL_headz00_3961;
									{	/* Pp/pp.scm 447 */
										obj_t BgL_casezd2valuezd2_3947;

										if (
											(BGl_za2ppzd2caseza2zd2zz__ppz00 ==
												BGl_symbol1964z00zz__ppz00))
											{	/* Pp/pp.scm 448 */
												obj_t BgL_arg1558z00_3948;

												BgL_arg1558z00_3948 =
													SYMBOL_TO_STRING(BgL_headz00_3946);
												BgL_casezd2valuezd2_3947 =
													bstring_to_symbol(BgL_arg1558z00_3948);
											}
										else
											{	/* Pp/pp.scm 447 */
												BgL_casezd2valuezd2_3947 = BgL_headz00_3946;
											}
										if (
											(BgL_casezd2valuezd2_3947 == BGl_symbol2014z00zz__ppz00))
											{	/* Pp/pp.scm 447 */
												BgL_procz00_3962 = BgL_ppzd2lambdazd2_3841;
											}
										else
											{	/* Pp/pp.scm 447 */
												bool_t BgL_test2347z00_6587;

												{	/* Pp/pp.scm 447 */
													bool_t BgL__ortest_1054z00_3949;

													BgL__ortest_1054z00_3949 =
														(BgL_casezd2valuezd2_3947 ==
														BGl_symbol2016z00zz__ppz00);
													if (BgL__ortest_1054z00_3949)
														{	/* Pp/pp.scm 447 */
															BgL_test2347z00_6587 = BgL__ortest_1054z00_3949;
														}
													else
														{	/* Pp/pp.scm 447 */
															BgL_test2347z00_6587 =
																(BgL_casezd2valuezd2_3947 ==
																BGl_symbol2018z00zz__ppz00);
														}
												}
												if (BgL_test2347z00_6587)
													{	/* Pp/pp.scm 447 */
														BgL_procz00_3962 = BgL_ppzd2letzd2_3834;
													}
												else
													{	/* Pp/pp.scm 447 */
														bool_t BgL_test2349z00_6591;

														{	/* Pp/pp.scm 447 */
															bool_t BgL__ortest_1055z00_3950;

															BgL__ortest_1055z00_3950 =
																(BgL_casezd2valuezd2_3947 ==
																BGl_symbol2020z00zz__ppz00);
															if (BgL__ortest_1055z00_3950)
																{	/* Pp/pp.scm 447 */
																	BgL_test2349z00_6591 =
																		BgL__ortest_1055z00_3950;
																}
															else
																{	/* Pp/pp.scm 447 */
																	bool_t BgL__ortest_1056z00_3951;

																	BgL__ortest_1056z00_3951 =
																		(BgL_casezd2valuezd2_3947 ==
																		BGl_symbol2022z00zz__ppz00);
																	if (BgL__ortest_1056z00_3951)
																		{	/* Pp/pp.scm 447 */
																			BgL_test2349z00_6591 =
																				BgL__ortest_1056z00_3951;
																		}
																	else
																		{	/* Pp/pp.scm 447 */
																			bool_t BgL__ortest_1057z00_3952;

																			BgL__ortest_1057z00_3952 =
																				(BgL_casezd2valuezd2_3947 ==
																				BGl_symbol2024z00zz__ppz00);
																			if (BgL__ortest_1057z00_3952)
																				{	/* Pp/pp.scm 447 */
																					BgL_test2349z00_6591 =
																						BgL__ortest_1057z00_3952;
																				}
																			else
																				{	/* Pp/pp.scm 447 */
																					BgL_test2349z00_6591 =
																						(BgL_casezd2valuezd2_3947 ==
																						BGl_symbol2026z00zz__ppz00);
																				}
																		}
																}
														}
														if (BgL_test2349z00_6591)
															{	/* Pp/pp.scm 447 */
																BgL_procz00_3962 = BgL_ppzd2definezd2_3840;
															}
														else
															{	/* Pp/pp.scm 447 */
																if (
																	(BgL_casezd2valuezd2_3947 ==
																		BGl_symbol2028z00zz__ppz00))
																	{	/* Pp/pp.scm 447 */
																		BgL_procz00_3962 = BgL_ppzd2definezd2_3840;
																	}
																else
																	{	/* Pp/pp.scm 447 */
																		bool_t BgL_test2354z00_6601;

																		{	/* Pp/pp.scm 447 */
																			bool_t BgL__ortest_1058z00_3953;

																			BgL__ortest_1058z00_3953 =
																				(BgL_casezd2valuezd2_3947 ==
																				BGl_symbol2030z00zz__ppz00);
																			if (BgL__ortest_1058z00_3953)
																				{	/* Pp/pp.scm 447 */
																					BgL_test2354z00_6601 =
																						BgL__ortest_1058z00_3953;
																				}
																			else
																				{	/* Pp/pp.scm 447 */
																					BgL_test2354z00_6601 =
																						(BgL_casezd2valuezd2_3947 ==
																						BGl_symbol2032z00zz__ppz00);
																				}
																		}
																		if (BgL_test2354z00_6601)
																			{	/* Pp/pp.scm 447 */
																				BgL_procz00_3962 =
																					BgL_ppzd2defunzd2_3839;
																			}
																		else
																			{	/* Pp/pp.scm 447 */
																				bool_t BgL_test2356z00_6605;

																				{	/* Pp/pp.scm 447 */
																					bool_t BgL__ortest_1059z00_3954;

																					BgL__ortest_1059z00_3954 =
																						(BgL_casezd2valuezd2_3947 ==
																						BGl_symbol2034z00zz__ppz00);
																					if (BgL__ortest_1059z00_3954)
																						{	/* Pp/pp.scm 447 */
																							BgL_test2356z00_6605 =
																								BgL__ortest_1059z00_3954;
																						}
																					else
																						{	/* Pp/pp.scm 447 */
																							BgL_test2356z00_6605 =
																								(BgL_casezd2valuezd2_3947 ==
																								BGl_symbol2036z00zz__ppz00);
																						}
																				}
																				if (BgL_test2356z00_6605)
																					{	/* Pp/pp.scm 447 */
																						BgL_procz00_3962 =
																							BgL_ppzd2ifzd2_3838;
																					}
																				else
																					{	/* Pp/pp.scm 447 */
																						if (
																							(BgL_casezd2valuezd2_3947 ==
																								BGl_symbol2038z00zz__ppz00))
																							{	/* Pp/pp.scm 447 */
																								BgL_procz00_3962 =
																									BgL_ppzd2condzd2_3837;
																							}
																						else
																							{	/* Pp/pp.scm 447 */
																								if (
																									(BgL_casezd2valuezd2_3947 ==
																										BGl_symbol2040z00zz__ppz00))
																									{	/* Pp/pp.scm 447 */
																										BgL_procz00_3962 =
																											BgL_ppzd2casezd2_3836;
																									}
																								else
																									{	/* Pp/pp.scm 447 */
																										bool_t BgL_test2360z00_6613;

																										{	/* Pp/pp.scm 447 */
																											bool_t
																												BgL__ortest_1060z00_3955;
																											BgL__ortest_1060z00_3955 =
																												(BgL_casezd2valuezd2_3947
																												==
																												BGl_symbol2042z00zz__ppz00);
																											if (BgL__ortest_1060z00_3955)
																												{	/* Pp/pp.scm 447 */
																													BgL_test2360z00_6613 =
																														BgL__ortest_1060z00_3955;
																												}
																											else
																												{	/* Pp/pp.scm 447 */
																													BgL_test2360z00_6613 =
																														(BgL_casezd2valuezd2_3947
																														==
																														BGl_symbol2044z00zz__ppz00);
																												}
																										}
																										if (BgL_test2360z00_6613)
																											{	/* Pp/pp.scm 447 */
																												BgL_procz00_3962 =
																													BgL_ppzd2andzd2_3835;
																											}
																										else
																											{	/* Pp/pp.scm 447 */
																												if (
																													(BgL_casezd2valuezd2_3947
																														==
																														BGl_symbol2046z00zz__ppz00))
																													{	/* Pp/pp.scm 447 */
																														BgL_procz00_3962 =
																															BgL_ppzd2letzd2_3834;
																													}
																												else
																													{	/* Pp/pp.scm 447 */
																														if (
																															(BgL_casezd2valuezd2_3947
																																==
																																BGl_symbol2048z00zz__ppz00))
																															{	/* Pp/pp.scm 447 */
																																BgL_procz00_3962
																																	=
																																	BgL_ppzd2beginzd2_3833;
																															}
																														else
																															{	/* Pp/pp.scm 447 */
																																if (
																																	(BgL_casezd2valuezd2_3947
																																		==
																																		BGl_symbol2050z00zz__ppz00))
																																	{	/* Pp/pp.scm 447 */
																																		BgL_procz00_3962
																																			=
																																			BgL_ppzd2dozd2_3832;
																																	}
																																else
																																	{	/* Pp/pp.scm 447 */
																																		if (
																																			(BgL_casezd2valuezd2_3947
																																				==
																																				BGl_symbol1977z00zz__ppz00))
																																			{	/* Pp/pp.scm 447 */
																																				BgL_procz00_3962
																																					=
																																					BgL_ppzd2commentzd2_3831;
																																			}
																																		else
																																			{	/* Pp/pp.scm 447 */
																																				BgL_procz00_3962
																																					=
																																					BFALSE;
																																			}
																																	}
																															}
																													}
																											}
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
									if (CBOOL(BgL_procz00_3962))
										{	/* Pp/pp.scm 293 */
											return
												BGL_PROCEDURE_CALL3(BgL_procz00_3962, BgL_exprz00_3844,
												BgL_colz00_3845, BgL_extraz00_3846);
										}
									else
										{	/* Pp/pp.scm 295 */
											bool_t BgL_test2367z00_6633;

											{	/* Pp/pp.scm 295 */
												long BgL_arg1453z00_3963;

												{	/* Pp/pp.scm 295 */
													obj_t BgL_arg1455z00_3964;

													BgL_arg1455z00_3964 =
														SYMBOL_TO_STRING(BgL_headz00_3961);
													BgL_arg1453z00_3963 =
														STRING_LENGTH(BgL_arg1455z00_3964);
												}
												BgL_test2367z00_6633 =
													(BgL_arg1453z00_3963 >
													BgL_maxzd2callzd2headzd2widthzd2_3843);
											}
											if (BgL_test2367z00_6633)
												{	/* Pp/pp.scm 295 */
													return
														BGl_z62ppzd2generalzb0zz__ppz00
														(BgL_indentzd2generalzd2_3826, BgL_outputz00_3842,
														BgL_envz00_3825, BgL_displayzf3zf3_3829,
														BgL_widthz00_3828,
														BgL_maxzd2callzd2headzd2widthzd2_3843,
														BgL_ppzd2lambdazd2_3841, BgL_ppzd2definezd2_3840,
														BgL_ppzd2defunzd2_3839, BgL_ppzd2ifzd2_3838,
														BgL_ppzd2condzd2_3837, BgL_ppzd2casezd2_3836,
														BgL_ppzd2andzd2_3835, BgL_ppzd2letzd2_3834,
														BgL_ppzd2beginzd2_3833, BgL_ppzd2dozd2_3832,
														BgL_ppzd2commentzd2_3831,
														BgL_ppzd2exprzd2listz00_3830,
														BgL_ppzd2exprzd2defunz00_3827, BgL_exprz00_3844,
														BgL_colz00_3845, BgL_extraz00_3846, ((bool_t) 0),
														BFALSE, BFALSE, BgL_envz00_3825);
												}
											else
												{	/* Pp/pp.scm 305 */
													obj_t BgL_colza2za2_3965;

													{	/* Pp/pp.scm 305 */
														obj_t BgL_arg1459z00_3966;
														obj_t BgL_arg1460z00_3967;

														BgL_arg1459z00_3966 =
															CAR(((obj_t) BgL_exprz00_3844));
														if (CBOOL(BgL_colz00_3845))
															{	/* Pp/pp.scm 138 */
																obj_t BgL__andtest_1044z00_3968;

																BgL__andtest_1044z00_3968 =
																	((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_L_ENTRY(BgL_outputz00_3842))
																	(BgL_outputz00_3842,
																	BGl_string1974z00zz__ppz00);
																if (CBOOL(BgL__andtest_1044z00_3968))
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1460z00_3967 =
																			ADDFX(BgL_colz00_3845, BINT(1L));
																	}
																else
																	{	/* Pp/pp.scm 138 */
																		BgL_arg1460z00_3967 = BFALSE;
																	}
															}
														else
															{	/* Pp/pp.scm 138 */
																BgL_arg1460z00_3967 = BFALSE;
															}
														BgL_colza2za2_3965 =
															BGl_z62wrz62zz__ppz00(BgL_displayzf3zf3_3829,
															BgL_outputz00_3842, BgL_arg1459z00_3966,
															BgL_arg1460z00_3967);
													}
													if (CBOOL(BgL_colz00_3845))
														{	/* Pp/pp.scm 307 */
															obj_t BgL_arg1457z00_3969;
															long BgL_arg1458z00_3970;

															BgL_arg1457z00_3969 =
																CDR(((obj_t) BgL_exprz00_3844));
															BgL_arg1458z00_3970 =
																((long) CINT(BgL_colza2za2_3965) + 1L);
															return
																BGl_z62ppzd2downzb0zz__ppz00(BgL_outputz00_3842,
																BgL_envz00_3825, BgL_displayzf3zf3_3829,
																BgL_widthz00_3828,
																BgL_maxzd2callzd2headzd2widthzd2_3843,
																BgL_ppzd2lambdazd2_3841,
																BgL_ppzd2definezd2_3840, BgL_ppzd2defunzd2_3839,
																BgL_ppzd2ifzd2_3838, BgL_ppzd2condzd2_3837,
																BgL_ppzd2casezd2_3836, BgL_ppzd2andzd2_3835,
																BgL_ppzd2letzd2_3834, BgL_ppzd2beginzd2_3833,
																BgL_ppzd2dozd2_3832, BgL_ppzd2commentzd2_3831,
																BgL_ppzd2exprzd2listz00_3830,
																BgL_ppzd2exprzd2defunz00_3827,
																BgL_indentzd2generalzd2_3826,
																BgL_arg1457z00_3969, BgL_colza2za2_3965,
																BINT(BgL_arg1458z00_3970), BgL_extraz00_3846,
																BgL_envz00_3825);
														}
													else
														{	/* Pp/pp.scm 306 */
															return BFALSE;
														}
												}
										}
								}
							else
								{	/* Pp/pp.scm 313 */
									obj_t BgL_colz00_3971;

									if (CBOOL(BgL_colz00_3845))
										{	/* Pp/pp.scm 138 */
											obj_t BgL__andtest_1044z00_3972;

											BgL__andtest_1044z00_3972 =
												((obj_t(*)(obj_t,
														obj_t))
												PROCEDURE_L_ENTRY(BgL_outputz00_3842))
												(BgL_outputz00_3842, BGl_string1974z00zz__ppz00);
											if (CBOOL(BgL__andtest_1044z00_3972))
												{	/* Pp/pp.scm 138 */
													BgL_colz00_3971 = ADDFX(BgL_colz00_3845, BINT(1L));
												}
											else
												{	/* Pp/pp.scm 138 */
													BgL_colz00_3971 = BFALSE;
												}
										}
									else
										{	/* Pp/pp.scm 138 */
											BgL_colz00_3971 = BFALSE;
										}
									return
										BGl_z62ppzd2downzb0zz__ppz00(BgL_outputz00_3842,
										BgL_envz00_3825, BgL_displayzf3zf3_3829, BgL_widthz00_3828,
										BgL_maxzd2callzd2headzd2widthzd2_3843,
										BgL_ppzd2lambdazd2_3841, BgL_ppzd2definezd2_3840,
										BgL_ppzd2defunzd2_3839, BgL_ppzd2ifzd2_3838,
										BgL_ppzd2condzd2_3837, BgL_ppzd2casezd2_3836,
										BgL_ppzd2andzd2_3835, BgL_ppzd2letzd2_3834,
										BgL_ppzd2beginzd2_3833, BgL_ppzd2dozd2_3832,
										BgL_ppzd2commentzd2_3831, BgL_ppzd2exprzd2listz00_3830,
										BgL_ppzd2exprzd2defunz00_3827, BgL_indentzd2generalzd2_3826,
										BgL_exprz00_3844, BgL_colz00_3971, BgL_colz00_3971,
										BgL_extraz00_3846, BgL_envz00_3825);
								}
						}
				}
			}
		}

	}



/* &<@anonymous:1431> */
	obj_t BGl_z62zc3z04anonymousza31431ze3ze5zz__ppz00(obj_t BgL_envz00_3847,
		obj_t BgL_strz00_3850)
	{
		{	/* Pp/pp.scm 271 */
			{	/* Pp/pp.scm 272 */
				obj_t BgL_resultz00_3848;
				obj_t BgL_leftz00_3849;

				BgL_resultz00_3848 = PROCEDURE_L_REF(BgL_envz00_3847, (int) (0L));
				BgL_leftz00_3849 = PROCEDURE_L_REF(BgL_envz00_3847, (int) (1L));
				{	/* Pp/pp.scm 272 */
					bool_t BgL_tmpz00_6674;

					{	/* Pp/pp.scm 272 */
						obj_t BgL_auxz00_3973;

						BgL_auxz00_3973 =
							MAKE_YOUNG_PAIR(BgL_strz00_3850,
							BGL_UNSAFE_CELL_REF(BgL_resultz00_3848));
						BGL_UNSAFE_CELL_SET(BgL_resultz00_3848, BgL_auxz00_3973);
					}
					{	/* Pp/pp.scm 273 */
						obj_t BgL_auxz00_3974;

						BgL_auxz00_3974 =
							SUBFX(BGL_UNSAFE_CELL_REF(BgL_leftz00_3849),
							BINT(STRING_LENGTH(((obj_t) BgL_strz00_3850))));
						BGL_UNSAFE_CELL_SET(BgL_leftz00_3849, BgL_auxz00_3974);
					}
					BgL_tmpz00_6674 =
						((long) CINT(BGL_UNSAFE_CELL_REF(BgL_leftz00_3849)) > 0L);
					return BBOOL(BgL_tmpz00_6674);
				}
			}
		}

	}



/* &<@anonymous:1365> */
	obj_t BGl_z62zc3z04anonymousza31365ze3ze5zz__ppz00(obj_t BgL_envz00_3853)
	{
		{	/* Pp/pp.scm 212 */
			{	/* Pp/pp.scm 212 */
				obj_t BgL_objz00_3854;

				BgL_objz00_3854 = PROCEDURE_REF(BgL_envz00_3853, (int) (0L));
				{	/* Pp/pp.scm 212 */
					obj_t BgL_arg1366z00_3975;

					{	/* Pp/pp.scm 212 */
						obj_t BgL_tmpz00_6685;

						BgL_tmpz00_6685 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg1366z00_3975 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_6685);
					}
					return bgl_display_obj(BgL_objz00_3854, BgL_arg1366z00_3975);
				}
			}
		}

	}



/* reverse-string-append */
	obj_t BGl_reversezd2stringzd2appendz00zz__ppz00(obj_t BgL_lz00_10)
	{
		{	/* Pp/pp.scm 473 */
			return BGl_revzd2stringzd2appendze70ze7zz__ppz00(BgL_lz00_10, 0L);
		}

	}



/* rev-string-append~0 */
	obj_t BGl_revzd2stringzd2appendze70ze7zz__ppz00(obj_t BgL_lz00_1820,
		long BgL_iz00_1821)
	{
		{	/* Pp/pp.scm 486 */
			if (PAIRP(BgL_lz00_1820))
				{	/* Pp/pp.scm 477 */
					obj_t BgL_strz00_1824;

					BgL_strz00_1824 = CAR(BgL_lz00_1820);
					{	/* Pp/pp.scm 477 */
						long BgL_lenz00_1825;

						BgL_lenz00_1825 = STRING_LENGTH(((obj_t) BgL_strz00_1824));
						{	/* Pp/pp.scm 478 */
							obj_t BgL_resultz00_1826;

							BgL_resultz00_1826 =
								BGl_revzd2stringzd2appendze70ze7zz__ppz00(CDR(BgL_lz00_1820),
								(BgL_iz00_1821 + BgL_lenz00_1825));
							{	/* Pp/pp.scm 479 */

								{	/* Pp/pp.scm 480 */
									long BgL_g1061z00_1827;

									BgL_g1061z00_1827 =
										(
										(STRING_LENGTH(BgL_resultz00_1826) - BgL_iz00_1821) -
										BgL_lenz00_1825);
									{
										long BgL_jz00_3174;
										long BgL_kz00_3175;

										BgL_jz00_3174 = 0L;
										BgL_kz00_3175 = BgL_g1061z00_1827;
									BgL_loopz00_3173:
										if ((BgL_jz00_3174 < BgL_lenz00_1825))
											{	/* Pp/pp.scm 481 */
												{	/* Pp/pp.scm 483 */
													unsigned char BgL_arg1563z00_3181;

													BgL_arg1563z00_3181 =
														STRING_REF(
														((obj_t) BgL_strz00_1824), BgL_jz00_3174);
													STRING_SET(BgL_resultz00_1826, BgL_kz00_3175,
														BgL_arg1563z00_3181);
												}
												{
													long BgL_kz00_6708;
													long BgL_jz00_6706;

													BgL_jz00_6706 = (BgL_jz00_3174 + 1L);
													BgL_kz00_6708 = (BgL_kz00_3175 + 1L);
													BgL_kz00_3175 = BgL_kz00_6708;
													BgL_jz00_3174 = BgL_jz00_6706;
													goto BgL_loopz00_3173;
												}
											}
										else
											{	/* Pp/pp.scm 481 */
												return BgL_resultz00_1826;
											}
									}
								}
							}
						}
					}
				}
			else
				{	/* Ieee/string.scm 172 */

					return make_string(BgL_iz00_1821, ((unsigned char) ' '));
		}}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__ppz00(void)
	{
		{	/* Pp/pp.scm 14 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__ppz00(void)
	{
		{	/* Pp/pp.scm 14 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__ppz00(void)
	{
		{	/* Pp/pp.scm 14 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__ppz00(void)
	{
		{	/* Pp/pp.scm 14 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2052z00zz__ppz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string2052z00zz__ppz00));
			return
				BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string2052z00zz__ppz00));
		}

	}

#ifdef __cplusplus
}
#endif
