/*===========================================================================*/
/*   (Pp/pp.scm)                                                             */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Pp/pp.scm -indent -o objs/obj_u/Pp/pp.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>
#include <signal.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__ppz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
static obj_t BGl_ppzd2beginzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31360ze3z83zz__ppz00(obj_t, obj_t);
extern obj_t make_string(int, unsigned char);
extern obj_t close_output_port(obj_t);
static obj_t BGl_zc3anonymousza31016ze3z83zz__ppz00(obj_t, obj_t);
static obj_t BGl_vectorzd2prefixzd2zz__ppz00(obj_t);
extern obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
extern obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_ppzd2commentzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ppz00zz__ppz00(obj_t, obj_t);
extern obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_prz00zz__ppz00(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, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_tail2z00zz__ppz00(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, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, long, obj_t, long);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl__ppz00zz__ppz00(obj_t, obj_t, obj_t);
extern char * BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_reversezd2stringzd2appendz00zz__ppz00(obj_t);
static obj_t BGl_list3802z00zz__ppz00 = BUNSPEC;
extern obj_t BGl_minz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_wrz00zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list3812z00zz__ppz00 = BUNSPEC;
static obj_t BGl_ppzd2exprzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list3816z00zz__ppz00 = BUNSPEC;
static obj_t BGl_list3821z00zz__ppz00 = BUNSPEC;
static obj_t BGl_list3824z00zz__ppz00 = BUNSPEC;
extern obj_t BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00;
static obj_t BGl_list3829z00zz__ppz00 = BUNSPEC;
static obj_t BGl_ppzd2letzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t string_to_bstring(char *);
static obj_t BGl_ppzd2exprzd2listz00zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_loopz00zz__ppz00(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, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_wrzd2lstzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
extern obj_t string_for_read(obj_t);
static obj_t BGl_TAGzd2111zd2zz__ppz00(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, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_ppzd2definezd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__ppz00();
static bool_t BGl_readzd2macrozf3z21zz__ppz00(obj_t);
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl_ppzd2lambdazd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_ppzd2defunzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_ppzd2exprzd2defunz00zz__ppz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_ppzd2andzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t open_output_string();
static obj_t BGl_importedzd2moduleszd2initz00zz__ppz00();
static obj_t BGl_revzd2stringzd2appendz00zz__ppz00(obj_t, long);
static obj_t BGl_indentz00zz__ppz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3834z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3833z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3832z00zz__ppz00 = BUNSPEC;
static obj_t BGl_ppzd2dozd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3831z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3830z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3828z00zz__ppz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3827z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3826z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3825z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3823z00zz__ppz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_za2ppzd2widthza2zd2zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3822z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3819z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3820z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3818z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3817z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3815z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3814z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3813z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3798z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3796z00zz__ppz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_za2ppzd2caseza2zd2zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3794z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3789z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3800z00zz__ppz00 = BUNSPEC;
static obj_t BGl_symbol3788z00zz__ppz00 = BUNSPEC;
static obj_t BGl_outz00zz__ppz00(obj_t, obj_t, obj_t);
static obj_t BGl_ppzd2ifzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3782z00zz__ppz00 = BUNSPEC;
static obj_t BGl_ppzd2casezd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_readzd2macrozd2prefixz00zz__ppz00(obj_t);
static obj_t BGl_genericzd2writezd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_spacesz00zz__ppz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__ppz00();
extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_loop_2443z00zz__ppz00(long, obj_t, obj_t, obj_t, long);
extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_loop_2444z00zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_ppzd2condzd2zz__ppz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_ppzd2generalzd2zz__ppz00(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, 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 *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_ppzd2envzd2zz__ppz00, BgL_bgl__ppza700za7za7__ppza7003842z00, va_generic_entry, BGl__ppz00zz__ppz00, -2 );
DEFINE_STRING( BGl_string3835z00zz__ppz00, BgL_bgl_string3835za700za7za7__ppza7003843z00, "\n", 1 );
DEFINE_STRING( BGl_string3811z00zz__ppz00, BgL_bgl_string3811za700za7za7__ppza7003844z00, "({}", 3 );
DEFINE_STRING( BGl_string3799z00zz__ppz00, BgL_bgl_string3799za700za7za7__ppza7003845z00, ",", 1 );
DEFINE_STRING( BGl_string3809z00zz__ppz00, BgL_bgl_string3809za700za7za7__ppza7003846z00, ".", 1 );
DEFINE_STRING( BGl_string3810z00zz__ppz00, BgL_bgl_string3810za700za7za7__ppza7003847z00, "        ", 8 );
DEFINE_STRING( BGl_string3808z00zz__ppz00, BgL_bgl_string3808za700za7za7__ppza7003848z00, " . ", 3 );
DEFINE_STRING( BGl_string3797z00zz__ppz00, BgL_bgl_string3797za700za7za7__ppza7003849z00, "`", 1 );
DEFINE_STRING( BGl_string3807z00zz__ppz00, BgL_bgl_string3807za700za7za7__ppza7003850z00, ")", 1 );
DEFINE_STRING( BGl_string3806z00zz__ppz00, BgL_bgl_string3806za700za7za7__ppza7003851z00, " ", 1 );
DEFINE_STRING( BGl_string3795z00zz__ppz00, BgL_bgl_string3795za700za7za7__ppza7003852z00, "'", 1 );
DEFINE_STRING( BGl_string3805z00zz__ppz00, BgL_bgl_string3805za700za7za7__ppza7003853z00, "\"", 1 );
DEFINE_STRING( BGl_string3804z00zz__ppz00, BgL_bgl_string3804za700za7za7__ppza7003854z00, "()", 2 );
DEFINE_STRING( BGl_string3793z00zz__ppz00, BgL_bgl_string3793za700za7za7__ppza7003855z00, "#[eof-object]", 13 );
DEFINE_STRING( BGl_string3803z00zz__ppz00, BgL_bgl_string3803za700za7za7__ppza7003856z00, "(", 1 );
DEFINE_STRING( BGl_string3792z00zz__ppz00, BgL_bgl_string3792za700za7za7__ppza7003857z00, "#[output-port]", 14 );
DEFINE_STRING( BGl_string3791z00zz__ppz00, BgL_bgl_string3791za700za7za7__ppza7003858z00, "#[input-port]", 13 );
DEFINE_STRING( BGl_string3801z00zz__ppz00, BgL_bgl_string3801za700za7za7__ppza7003859z00, ",@", 2 );
DEFINE_STRING( BGl_string3790z00zz__ppz00, BgL_bgl_string3790za700za7za7__ppza7003860z00, "#<procedure>", 12 );
DEFINE_STRING( BGl_string3787z00zz__ppz00, BgL_bgl_string3787za700za7za7__ppza7003861z00, "#00", 3 );
DEFINE_STRING( BGl_string3786z00zz__ppz00, BgL_bgl_string3786za700za7za7__ppza7003862z00, "#0", 2 );
DEFINE_STRING( BGl_string3785z00zz__ppz00, BgL_bgl_string3785za700za7za7__ppza7003863z00, "#", 1 );
DEFINE_STRING( BGl_string3784z00zz__ppz00, BgL_bgl_string3784za700za7za7__ppza7003864z00, "not an output-port", 18 );
DEFINE_STRING( BGl_string3783z00zz__ppz00, BgL_bgl_string3783za700za7za7__ppza7003865z00, "pp", 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__ppz00(long BgL_checksumz00_2803, char * BgL_fromz00_2804)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__ppz00))
{ 
BGl_requirezd2initializa7ationz75zz__ppz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__ppz00(); 
BGl_importedzd2moduleszd2initz00zz__ppz00(); 
BGl_toplevelzd2initzd2zz__ppz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__ppz00()
{ AN_OBJECT;
{ /* ./Pp/pp.scm 14 */
BGl_symbol3782z00zz__ppz00 = 
string_to_symbol("respect"); 
BGl_symbol3788z00zz__ppz00 = 
string_to_symbol("comment"); 
BGl_symbol3789z00zz__ppz00 = 
string_to_symbol("upper"); 
BGl_symbol3794z00zz__ppz00 = 
string_to_symbol("quote"); 
BGl_symbol3796z00zz__ppz00 = 
string_to_symbol("quasiquote"); 
BGl_symbol3798z00zz__ppz00 = 
string_to_symbol("unquote"); 
BGl_symbol3800z00zz__ppz00 = 
string_to_symbol("unquote-splicing"); 
{ /* ./Pp/pp.scm 109 */
obj_t BgL_auxz00_2818;
{ /* ./Pp/pp.scm 109 */
obj_t BgL_auxz00_2819;
{ /* ./Pp/pp.scm 109 */
obj_t BgL_auxz00_2820;
BgL_auxz00_2820 = 
MAKE_PAIR(BGl_symbol3800z00zz__ppz00, BNIL); 
BgL_auxz00_2819 = 
MAKE_PAIR(BGl_symbol3798z00zz__ppz00, BgL_auxz00_2820); } 
BgL_auxz00_2818 = 
MAKE_PAIR(BGl_symbol3796z00zz__ppz00, BgL_auxz00_2819); } 
BGl_list3802z00zz__ppz00 = 
MAKE_PAIR(BGl_symbol3794z00zz__ppz00, BgL_auxz00_2818); } 
BGl_symbol3813z00zz__ppz00 = 
string_to_symbol("lambda"); 
BGl_symbol3814z00zz__ppz00 = 
string_to_symbol("let*"); 
BGl_symbol3815z00zz__ppz00 = 
string_to_symbol("letrec"); 
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_2828;
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_2829;
BgL_auxz00_2829 = 
MAKE_PAIR(BGl_symbol3815z00zz__ppz00, BNIL); 
BgL_auxz00_2828 = 
MAKE_PAIR(BGl_symbol3814z00zz__ppz00, BgL_auxz00_2829); } 
BGl_list3812z00zz__ppz00 = 
MAKE_PAIR(BGl_symbol3813z00zz__ppz00, BgL_auxz00_2828); } 
BGl_symbol3817z00zz__ppz00 = 
string_to_symbol("define"); 
BGl_symbol3818z00zz__ppz00 = 
string_to_symbol("define-inline"); 
BGl_symbol3819z00zz__ppz00 = 
string_to_symbol("define-method"); 
BGl_symbol3820z00zz__ppz00 = 
string_to_symbol("define-generic"); 
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_2837;
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_2838;
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_2839;
BgL_auxz00_2839 = 
MAKE_PAIR(BGl_symbol3820z00zz__ppz00, BNIL); 
BgL_auxz00_2838 = 
MAKE_PAIR(BGl_symbol3819z00zz__ppz00, BgL_auxz00_2839); } 
BgL_auxz00_2837 = 
MAKE_PAIR(BGl_symbol3818z00zz__ppz00, BgL_auxz00_2838); } 
BGl_list3816z00zz__ppz00 = 
MAKE_PAIR(BGl_symbol3817z00zz__ppz00, BgL_auxz00_2837); } 
BGl_symbol3822z00zz__ppz00 = 
string_to_symbol("defun"); 
BGl_symbol3823z00zz__ppz00 = 
string_to_symbol("de"); 
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_2846;
BgL_auxz00_2846 = 
MAKE_PAIR(BGl_symbol3823z00zz__ppz00, BNIL); 
BGl_list3821z00zz__ppz00 = 
MAKE_PAIR(BGl_symbol3822z00zz__ppz00, BgL_auxz00_2846); } 
BGl_symbol3825z00zz__ppz00 = 
string_to_symbol("if"); 
BGl_symbol3826z00zz__ppz00 = 
string_to_symbol("set!"); 
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_2851;
BgL_auxz00_2851 = 
MAKE_PAIR(BGl_symbol3826z00zz__ppz00, BNIL); 
BGl_list3824z00zz__ppz00 = 
MAKE_PAIR(BGl_symbol3825z00zz__ppz00, BgL_auxz00_2851); } 
BGl_symbol3827z00zz__ppz00 = 
string_to_symbol("cond"); 
BGl_symbol3828z00zz__ppz00 = 
string_to_symbol("case"); 
BGl_symbol3830z00zz__ppz00 = 
string_to_symbol("and"); 
BGl_symbol3831z00zz__ppz00 = 
string_to_symbol("or"); 
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_2858;
BgL_auxz00_2858 = 
MAKE_PAIR(BGl_symbol3831z00zz__ppz00, BNIL); 
BGl_list3829z00zz__ppz00 = 
MAKE_PAIR(BGl_symbol3830z00zz__ppz00, BgL_auxz00_2858); } 
BGl_symbol3832z00zz__ppz00 = 
string_to_symbol("let"); 
BGl_symbol3833z00zz__ppz00 = 
string_to_symbol("begin"); 
return ( 
BGl_symbol3834z00zz__ppz00 = 
string_to_symbol("do"), BUNSPEC) ;} 
}



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



/* pp */
BGL_EXPORTED_DEF obj_t BGl_ppz00zz__ppz00(obj_t BgL_expz00_1, obj_t BgL_portz00_2)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 57 */
{ /* ./Pp/pp.scm 58 */
obj_t BgL_portz00_367;
if(
NULLP(BgL_portz00_2))
{ /* ./Pp/pp.scm 58 */
BgL_portz00_367 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Pp/pp.scm 60 */
obj_t BgL_portz00_373;
BgL_portz00_373 = 
CAR(BgL_portz00_2); 
if(
OUTPUT_PORTP(BgL_portz00_373))
{ /* ./Pp/pp.scm 61 */
BgL_portz00_367 = BgL_portz00_373; }  else 
{ /* ./Pp/pp.scm 61 */
FAILURE(BGl_string3783z00zz__ppz00,BGl_string3784z00zz__ppz00,BgL_portz00_373);} } 
{ /* ./Pp/pp.scm 64 */
obj_t BgL_zc3anonymousza31016ze3z83_2064;
{ 
int BgL_auxz00_2874;int BgL_auxz00_2872;
BgL_auxz00_2874 = 
(int)(((long)1)); 
BgL_auxz00_2872 = 
(int)(((long)1)); 
BgL_zc3anonymousza31016ze3z83_2064 = 
make_fx_procedure(BGl_zc3anonymousza31016ze3z83zz__ppz00, BgL_auxz00_2872, BgL_auxz00_2874); } 
{ /* ./Pp/pp.scm 64 */
int BgL_auxz00_2877;
BgL_auxz00_2877 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31016ze3z83_2064, BgL_auxz00_2877, BgL_portz00_367); } 
BGl_genericzd2writezd2zz__ppz00(BgL_expz00_1, BFALSE, BGl_za2ppzd2widthza2zd2zz__ppz00, BgL_zc3anonymousza31016ze3z83_2064); } 
return BUNSPEC;} } 
}



/* _pp */
obj_t BGl__ppz00zz__ppz00(obj_t BgL_envz00_2065, obj_t BgL_expz00_2066, obj_t BgL_portz00_2067)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 57 */
return 
BGl_ppz00zz__ppz00(BgL_expz00_2066, BgL_portz00_2067);} 
}



/* <anonymous:1016> */
obj_t BGl_zc3anonymousza31016ze3z83zz__ppz00(obj_t BgL_envz00_2068, obj_t BgL_sz00_2070)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 64 */
{ /* ./Pp/pp.scm 64 */
obj_t BgL_portz00_2069;
{ /* ./Pp/pp.scm 64 */
int BgL_auxz00_2882;
BgL_auxz00_2882 = 
(int)(((long)0)); 
BgL_portz00_2069 = 
PROCEDURE_REF(BgL_envz00_2068, BgL_auxz00_2882); } 
{ 
obj_t BgL_sz00_369;
{ /* ./Pp/pp.scm 64 */
bool_t BgL_auxz00_2885;
BgL_sz00_369 = BgL_sz00_2070; 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_sz00_369, BgL_portz00_2069); 
BgL_auxz00_2885 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_2885);} } } } 
}



/* vector-prefix */
obj_t BGl_vectorzd2prefixzd2zz__ppz00(obj_t BgL_objz00_3)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 68 */
{ /* ./Pp/pp.scm 69 */
int BgL_tagz00_375;
BgL_tagz00_375 = 
VECTOR_TAG(BgL_objz00_3); 
{ /* ./Pp/pp.scm 70 */
bool_t BgL_testz00_2889;
{ /* ./Pp/pp.scm 70 */
long BgL_auxz00_2890;
BgL_auxz00_2890 = 
(long)(BgL_tagz00_375); 
BgL_testz00_2889 = 
(BgL_auxz00_2890==((long)0)); } 
if(BgL_testz00_2889)
{ /* ./Pp/pp.scm 70 */
return BGl_string3785z00zz__ppz00;}  else 
{ /* ./Pp/pp.scm 72 */
bool_t BgL_testz00_2893;
{ /* ./Pp/pp.scm 72 */
long BgL_auxz00_2894;
BgL_auxz00_2894 = 
(long)(BgL_tagz00_375); 
BgL_testz00_2893 = 
(BgL_auxz00_2894>=((long)100)); } 
if(BgL_testz00_2893)
{ /* ./Pp/pp.scm 73 */
char * BgL_arg1029z00_379;
BgL_arg1029z00_379 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
BINT(BgL_tagz00_375), BNIL); 
{ /* ./Pp/pp.scm 73 */
obj_t BgL_auxz00_2899;
BgL_auxz00_2899 = 
string_to_bstring(BgL_arg1029z00_379); 
return 
string_append(BGl_string3785z00zz__ppz00, BgL_auxz00_2899);} }  else 
{ /* ./Pp/pp.scm 74 */
bool_t BgL_testz00_2902;
{ /* ./Pp/pp.scm 74 */
long BgL_auxz00_2903;
BgL_auxz00_2903 = 
(long)(BgL_tagz00_375); 
BgL_testz00_2902 = 
(BgL_auxz00_2903>=((long)10)); } 
if(BgL_testz00_2902)
{ /* ./Pp/pp.scm 75 */
char * BgL_arg1036z00_383;
BgL_arg1036z00_383 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
BINT(BgL_tagz00_375), BNIL); 
{ /* ./Pp/pp.scm 75 */
obj_t BgL_auxz00_2908;
BgL_auxz00_2908 = 
string_to_bstring(BgL_arg1036z00_383); 
return 
string_append(BGl_string3786z00zz__ppz00, BgL_auxz00_2908);} }  else 
{ /* ./Pp/pp.scm 76 */
char * BgL_arg1042z00_386;
BgL_arg1042z00_386 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
BINT(BgL_tagz00_375), BNIL); 
{ /* ./Pp/pp.scm 76 */
obj_t BgL_auxz00_2913;
BgL_auxz00_2913 = 
string_to_bstring(BgL_arg1042z00_386); 
return 
string_append(BGl_string3787z00zz__ppz00, BgL_auxz00_2913);} } } } } } } 
}



/* generic-write */
obj_t BGl_genericzd2writezd2zz__ppz00(obj_t BgL_objz00_4, obj_t BgL_displayzf3zf3_5, obj_t BgL_widthz00_6, obj_t BgL_outputz00_7)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 104 */
{ 
obj_t BgL_objz00_397;long BgL_colz00_398;
if(
CBOOL(BgL_widthz00_6))
{ /* ./Pp/pp.scm 417 */
obj_t BgL_arg1051z00_394;obj_t BgL_arg1052z00_395;
{ /* ./Pp/pp.scm 417 */
obj_t BgL_list1055z00_396;
{ /* ./Pp/pp.scm 417 */
obj_t BgL_auxz00_2918;
BgL_auxz00_2918 = 
BCHAR(((unsigned char)'\n')); 
BgL_list1055z00_396 = 
MAKE_PAIR(BgL_auxz00_2918, BNIL); } 
{ /* ./Pp/pp.scm 417 */
obj_t BgL_res2433z00_1087;
{ /* ./Pp/pp.scm 417 */
int BgL_kz00_1081;
BgL_kz00_1081 = 
(int)(((long)1)); 
{ /* ./Pp/pp.scm 417 */
obj_t BgL_arg2219z00_1084;
BgL_arg2219z00_1084 = 
CAR(BgL_list1055z00_396); 
{ /* ./Pp/pp.scm 417 */
unsigned char BgL_auxz00_2923;
BgL_auxz00_2923 = 
(unsigned char)CCHAR(BgL_arg2219z00_1084); 
BgL_res2433z00_1087 = 
make_string(BgL_kz00_1081, BgL_auxz00_2923); } } } 
BgL_arg1051z00_394 = BgL_res2433z00_1087; } } 
BgL_objz00_397 = BgL_objz00_4; 
BgL_colz00_398 = ((long)0); 
{ /* ./Pp/pp.scm 412 */
obj_t BgL_maxzd2exprzd2widthz00_401;obj_t BgL_maxzd2callzd2headzd2widthzd2_402;obj_t BgL_indentzd2generalzd2_403;
BgL_maxzd2exprzd2widthz00_401 = 
MAKE_CELL(BUNSPEC); 
BgL_maxzd2callzd2headzd2widthzd2_402 = 
MAKE_CELL(BUNSPEC); 
BgL_indentzd2generalzd2_403 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Pp/pp.scm 398 */
obj_t BgL_ppzd2exprzd2_2083;obj_t BgL_ppzd2exprzd2listz00_2085;obj_t BgL_ppzd2exprzd2defunz00_2093;obj_t BgL_ppzd2definezd2_2095;obj_t BgL_ppzd2defunzd2_2094;obj_t BgL_ppzd2lambdazd2_2096;obj_t BgL_ppzd2commentzd2_2084;obj_t BgL_ppzd2ifzd2_2092;obj_t BgL_ppzd2condzd2_2091;obj_t BgL_ppzd2casezd2_2090;obj_t BgL_ppzd2andzd2_2089;obj_t BgL_ppzd2letzd2_2088;obj_t BgL_ppzd2beginzd2_2087;obj_t BgL_ppzd2dozd2_2086;
{ 
int BgL_auxz00_2928;int BgL_auxz00_2926;
BgL_auxz00_2928 = 
(int)(((long)19)); 
BgL_auxz00_2926 = 
(int)(((long)3)); 
BgL_ppzd2exprzd2_2083 = 
make_fx_procedure(BGl_ppzd2exprzd2zz__ppz00, BgL_auxz00_2926, BgL_auxz00_2928); } 
{ 
int BgL_auxz00_2933;int BgL_auxz00_2931;
BgL_auxz00_2933 = 
(int)(((long)19)); 
BgL_auxz00_2931 = 
(int)(((long)3)); 
BgL_ppzd2exprzd2listz00_2085 = 
make_fx_procedure(BGl_ppzd2exprzd2listz00zz__ppz00, BgL_auxz00_2931, BgL_auxz00_2933); } 
{ 
int BgL_auxz00_2938;int BgL_auxz00_2936;
BgL_auxz00_2938 = 
(int)(((long)19)); 
BgL_auxz00_2936 = 
(int)(((long)3)); 
BgL_ppzd2exprzd2defunz00_2093 = 
make_fx_procedure(BGl_ppzd2exprzd2defunz00zz__ppz00, BgL_auxz00_2936, BgL_auxz00_2938); } 
{ 
int BgL_auxz00_2943;int BgL_auxz00_2941;
BgL_auxz00_2943 = 
(int)(((long)19)); 
BgL_auxz00_2941 = 
(int)(((long)3)); 
BgL_ppzd2definezd2_2095 = 
make_fx_procedure(BGl_ppzd2definezd2zz__ppz00, BgL_auxz00_2941, BgL_auxz00_2943); } 
{ 
int BgL_auxz00_2948;int BgL_auxz00_2946;
BgL_auxz00_2948 = 
(int)(((long)19)); 
BgL_auxz00_2946 = 
(int)(((long)3)); 
BgL_ppzd2defunzd2_2094 = 
make_fx_procedure(BGl_ppzd2defunzd2zz__ppz00, BgL_auxz00_2946, BgL_auxz00_2948); } 
{ 
int BgL_auxz00_2953;int BgL_auxz00_2951;
BgL_auxz00_2953 = 
(int)(((long)19)); 
BgL_auxz00_2951 = 
(int)(((long)3)); 
BgL_ppzd2lambdazd2_2096 = 
make_fx_procedure(BGl_ppzd2lambdazd2zz__ppz00, BgL_auxz00_2951, BgL_auxz00_2953); } 
{ 
int BgL_auxz00_2958;int BgL_auxz00_2956;
BgL_auxz00_2958 = 
(int)(((long)19)); 
BgL_auxz00_2956 = 
(int)(((long)3)); 
BgL_ppzd2commentzd2_2084 = 
make_fx_procedure(BGl_ppzd2commentzd2zz__ppz00, BgL_auxz00_2956, BgL_auxz00_2958); } 
{ 
int BgL_auxz00_2963;int BgL_auxz00_2961;
BgL_auxz00_2963 = 
(int)(((long)19)); 
BgL_auxz00_2961 = 
(int)(((long)3)); 
BgL_ppzd2ifzd2_2092 = 
make_fx_procedure(BGl_ppzd2ifzd2zz__ppz00, BgL_auxz00_2961, BgL_auxz00_2963); } 
{ 
int BgL_auxz00_2968;int BgL_auxz00_2966;
BgL_auxz00_2968 = 
(int)(((long)19)); 
BgL_auxz00_2966 = 
(int)(((long)3)); 
BgL_ppzd2condzd2_2091 = 
make_fx_procedure(BGl_ppzd2condzd2zz__ppz00, BgL_auxz00_2966, BgL_auxz00_2968); } 
{ 
int BgL_auxz00_2973;int BgL_auxz00_2971;
BgL_auxz00_2973 = 
(int)(((long)19)); 
BgL_auxz00_2971 = 
(int)(((long)3)); 
BgL_ppzd2casezd2_2090 = 
make_fx_procedure(BGl_ppzd2casezd2zz__ppz00, BgL_auxz00_2971, BgL_auxz00_2973); } 
{ 
int BgL_auxz00_2978;int BgL_auxz00_2976;
BgL_auxz00_2978 = 
(int)(((long)19)); 
BgL_auxz00_2976 = 
(int)(((long)3)); 
BgL_ppzd2andzd2_2089 = 
make_fx_procedure(BGl_ppzd2andzd2zz__ppz00, BgL_auxz00_2976, BgL_auxz00_2978); } 
{ 
int BgL_auxz00_2983;int BgL_auxz00_2981;
BgL_auxz00_2983 = 
(int)(((long)19)); 
BgL_auxz00_2981 = 
(int)(((long)3)); 
BgL_ppzd2letzd2_2088 = 
make_fx_procedure(BGl_ppzd2letzd2zz__ppz00, BgL_auxz00_2981, BgL_auxz00_2983); } 
{ 
int BgL_auxz00_2988;int BgL_auxz00_2986;
BgL_auxz00_2988 = 
(int)(((long)19)); 
BgL_auxz00_2986 = 
(int)(((long)3)); 
BgL_ppzd2beginzd2_2087 = 
make_fx_procedure(BGl_ppzd2beginzd2zz__ppz00, BgL_auxz00_2986, BgL_auxz00_2988); } 
{ 
int BgL_auxz00_2993;int BgL_auxz00_2991;
BgL_auxz00_2993 = 
(int)(((long)19)); 
BgL_auxz00_2991 = 
(int)(((long)3)); 
BgL_ppzd2dozd2_2086 = 
make_fx_procedure(BGl_ppzd2dozd2zz__ppz00, BgL_auxz00_2991, BgL_auxz00_2993); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_2996;
BgL_auxz00_2996 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_2996, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_2999;
BgL_auxz00_2999 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_2999, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3002;
BgL_auxz00_3002 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3002, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3005;
BgL_auxz00_3005 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3005, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3008;
BgL_auxz00_3008 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3008, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3011;
BgL_auxz00_3011 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3011, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3014;
BgL_auxz00_3014 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3014, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3017;
BgL_auxz00_3017 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3017, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3020;
BgL_auxz00_3020 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3020, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3023;
BgL_auxz00_3023 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3023, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3026;
BgL_auxz00_3026 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3026, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3029;
BgL_auxz00_3029 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3029, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3032;
BgL_auxz00_3032 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3032, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3035;
BgL_auxz00_3035 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3035, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3038;
BgL_auxz00_3038 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3038, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3041;
BgL_auxz00_3041 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3041, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3044;
BgL_auxz00_3044 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3044, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3047;
BgL_auxz00_3047 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3047, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3050;
BgL_auxz00_3050 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2exprzd2_2083, BgL_auxz00_3050, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3053;
BgL_auxz00_3053 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3053, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3056;
BgL_auxz00_3056 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3056, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3059;
BgL_auxz00_3059 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3059, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3062;
BgL_auxz00_3062 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3062, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3065;
BgL_auxz00_3065 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3065, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3068;
BgL_auxz00_3068 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3068, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3071;
BgL_auxz00_3071 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3071, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3074;
BgL_auxz00_3074 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3074, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3077;
BgL_auxz00_3077 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3077, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3080;
BgL_auxz00_3080 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3080, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3083;
BgL_auxz00_3083 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3083, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3086;
BgL_auxz00_3086 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3086, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3089;
BgL_auxz00_3089 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3089, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3092;
BgL_auxz00_3092 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3092, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3095;
BgL_auxz00_3095 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3095, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3098;
BgL_auxz00_3098 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3098, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3101;
BgL_auxz00_3101 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3101, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3104;
BgL_auxz00_3104 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3104, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3107;
BgL_auxz00_3107 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2exprzd2listz00_2085, BgL_auxz00_3107, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3110;
BgL_auxz00_3110 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3110, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3113;
BgL_auxz00_3113 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3113, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3116;
BgL_auxz00_3116 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3116, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3119;
BgL_auxz00_3119 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3119, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3122;
BgL_auxz00_3122 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3122, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3125;
BgL_auxz00_3125 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3125, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3128;
BgL_auxz00_3128 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3128, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3131;
BgL_auxz00_3131 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3131, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3134;
BgL_auxz00_3134 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3134, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3137;
BgL_auxz00_3137 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3137, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3140;
BgL_auxz00_3140 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3140, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3143;
BgL_auxz00_3143 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3143, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3146;
BgL_auxz00_3146 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3146, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3149;
BgL_auxz00_3149 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3149, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3152;
BgL_auxz00_3152 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3152, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3155;
BgL_auxz00_3155 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3155, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3158;
BgL_auxz00_3158 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3158, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3161;
BgL_auxz00_3161 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3161, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3164;
BgL_auxz00_3164 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2exprzd2defunz00_2093, BgL_auxz00_3164, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3167;
BgL_auxz00_3167 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3167, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3170;
BgL_auxz00_3170 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3170, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3173;
BgL_auxz00_3173 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3173, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3176;
BgL_auxz00_3176 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3176, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3179;
BgL_auxz00_3179 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3179, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3182;
BgL_auxz00_3182 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3182, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3185;
BgL_auxz00_3185 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3185, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3188;
BgL_auxz00_3188 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3188, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3191;
BgL_auxz00_3191 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3191, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3194;
BgL_auxz00_3194 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3194, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3197;
BgL_auxz00_3197 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3197, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3200;
BgL_auxz00_3200 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3200, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3203;
BgL_auxz00_3203 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3203, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3206;
BgL_auxz00_3206 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3206, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3209;
BgL_auxz00_3209 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3209, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3212;
BgL_auxz00_3212 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3212, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3215;
BgL_auxz00_3215 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3215, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3218;
BgL_auxz00_3218 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3218, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3221;
BgL_auxz00_3221 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2definezd2_2095, BgL_auxz00_3221, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3224;
BgL_auxz00_3224 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3224, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3227;
BgL_auxz00_3227 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3227, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3230;
BgL_auxz00_3230 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3230, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3233;
BgL_auxz00_3233 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3233, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3236;
BgL_auxz00_3236 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3236, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3239;
BgL_auxz00_3239 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3239, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3242;
BgL_auxz00_3242 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3242, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3245;
BgL_auxz00_3245 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3245, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3248;
BgL_auxz00_3248 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3248, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3251;
BgL_auxz00_3251 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3251, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3254;
BgL_auxz00_3254 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3254, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3257;
BgL_auxz00_3257 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3257, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3260;
BgL_auxz00_3260 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3260, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3263;
BgL_auxz00_3263 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3263, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3266;
BgL_auxz00_3266 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3266, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3269;
BgL_auxz00_3269 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3269, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3272;
BgL_auxz00_3272 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3272, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3275;
BgL_auxz00_3275 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3275, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3278;
BgL_auxz00_3278 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2defunzd2_2094, BgL_auxz00_3278, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3281;
BgL_auxz00_3281 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3281, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3284;
BgL_auxz00_3284 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3284, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3287;
BgL_auxz00_3287 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3287, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3290;
BgL_auxz00_3290 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3290, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3293;
BgL_auxz00_3293 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3293, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3296;
BgL_auxz00_3296 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3296, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3299;
BgL_auxz00_3299 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3299, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3302;
BgL_auxz00_3302 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3302, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3305;
BgL_auxz00_3305 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3305, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3308;
BgL_auxz00_3308 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3308, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3311;
BgL_auxz00_3311 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3311, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3314;
BgL_auxz00_3314 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3314, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3317;
BgL_auxz00_3317 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3317, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3320;
BgL_auxz00_3320 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3320, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3323;
BgL_auxz00_3323 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3323, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3326;
BgL_auxz00_3326 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3326, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3329;
BgL_auxz00_3329 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3329, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3332;
BgL_auxz00_3332 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3332, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3335;
BgL_auxz00_3335 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2lambdazd2_2096, BgL_auxz00_3335, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3338;
BgL_auxz00_3338 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3338, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3341;
BgL_auxz00_3341 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3341, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3344;
BgL_auxz00_3344 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3344, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3347;
BgL_auxz00_3347 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3347, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3350;
BgL_auxz00_3350 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3350, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3353;
BgL_auxz00_3353 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3353, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3356;
BgL_auxz00_3356 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3356, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3359;
BgL_auxz00_3359 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3359, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3362;
BgL_auxz00_3362 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3362, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3365;
BgL_auxz00_3365 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3365, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3368;
BgL_auxz00_3368 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3368, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3371;
BgL_auxz00_3371 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3371, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3374;
BgL_auxz00_3374 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3374, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3377;
BgL_auxz00_3377 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3377, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3380;
BgL_auxz00_3380 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3380, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3383;
BgL_auxz00_3383 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3383, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3386;
BgL_auxz00_3386 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3386, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3389;
BgL_auxz00_3389 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3389, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3392;
BgL_auxz00_3392 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2commentzd2_2084, BgL_auxz00_3392, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3395;
BgL_auxz00_3395 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3395, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3398;
BgL_auxz00_3398 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3398, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3401;
BgL_auxz00_3401 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3401, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3404;
BgL_auxz00_3404 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3404, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3407;
BgL_auxz00_3407 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3407, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3410;
BgL_auxz00_3410 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3410, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3413;
BgL_auxz00_3413 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3413, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3416;
BgL_auxz00_3416 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3416, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3419;
BgL_auxz00_3419 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3419, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3422;
BgL_auxz00_3422 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3422, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3425;
BgL_auxz00_3425 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3425, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3428;
BgL_auxz00_3428 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3428, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3431;
BgL_auxz00_3431 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3431, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3434;
BgL_auxz00_3434 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3434, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3437;
BgL_auxz00_3437 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3437, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3440;
BgL_auxz00_3440 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3440, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3443;
BgL_auxz00_3443 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3443, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3446;
BgL_auxz00_3446 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3446, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3449;
BgL_auxz00_3449 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2ifzd2_2092, BgL_auxz00_3449, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3452;
BgL_auxz00_3452 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3452, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3455;
BgL_auxz00_3455 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3455, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3458;
BgL_auxz00_3458 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3458, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3461;
BgL_auxz00_3461 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3461, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3464;
BgL_auxz00_3464 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3464, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3467;
BgL_auxz00_3467 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3467, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3470;
BgL_auxz00_3470 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3470, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3473;
BgL_auxz00_3473 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3473, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3476;
BgL_auxz00_3476 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3476, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3479;
BgL_auxz00_3479 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3479, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3482;
BgL_auxz00_3482 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3482, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3485;
BgL_auxz00_3485 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3485, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3488;
BgL_auxz00_3488 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3488, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3491;
BgL_auxz00_3491 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3491, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3494;
BgL_auxz00_3494 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3494, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3497;
BgL_auxz00_3497 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3497, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3500;
BgL_auxz00_3500 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3500, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3503;
BgL_auxz00_3503 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3503, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3506;
BgL_auxz00_3506 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2condzd2_2091, BgL_auxz00_3506, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3509;
BgL_auxz00_3509 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3509, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3512;
BgL_auxz00_3512 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3512, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3515;
BgL_auxz00_3515 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3515, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3518;
BgL_auxz00_3518 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3518, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3521;
BgL_auxz00_3521 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3521, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3524;
BgL_auxz00_3524 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3524, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3527;
BgL_auxz00_3527 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3527, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3530;
BgL_auxz00_3530 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3530, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3533;
BgL_auxz00_3533 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3533, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3536;
BgL_auxz00_3536 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3536, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3539;
BgL_auxz00_3539 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3539, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3542;
BgL_auxz00_3542 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3542, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3545;
BgL_auxz00_3545 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3545, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3548;
BgL_auxz00_3548 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3548, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3551;
BgL_auxz00_3551 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3551, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3554;
BgL_auxz00_3554 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3554, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3557;
BgL_auxz00_3557 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3557, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3560;
BgL_auxz00_3560 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3560, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3563;
BgL_auxz00_3563 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2casezd2_2090, BgL_auxz00_3563, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3566;
BgL_auxz00_3566 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3566, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3569;
BgL_auxz00_3569 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3569, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3572;
BgL_auxz00_3572 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3572, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3575;
BgL_auxz00_3575 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3575, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3578;
BgL_auxz00_3578 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3578, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3581;
BgL_auxz00_3581 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3581, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3584;
BgL_auxz00_3584 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3584, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3587;
BgL_auxz00_3587 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3587, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3590;
BgL_auxz00_3590 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3590, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3593;
BgL_auxz00_3593 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3593, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3596;
BgL_auxz00_3596 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3596, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3599;
BgL_auxz00_3599 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3599, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3602;
BgL_auxz00_3602 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3602, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3605;
BgL_auxz00_3605 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3605, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3608;
BgL_auxz00_3608 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3608, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3611;
BgL_auxz00_3611 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3611, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3614;
BgL_auxz00_3614 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3614, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3617;
BgL_auxz00_3617 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3617, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3620;
BgL_auxz00_3620 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2andzd2_2089, BgL_auxz00_3620, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3623;
BgL_auxz00_3623 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3623, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3626;
BgL_auxz00_3626 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3626, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3629;
BgL_auxz00_3629 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3629, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3632;
BgL_auxz00_3632 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3632, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3635;
BgL_auxz00_3635 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3635, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3638;
BgL_auxz00_3638 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3638, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3641;
BgL_auxz00_3641 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3641, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3644;
BgL_auxz00_3644 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3644, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3647;
BgL_auxz00_3647 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3647, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3650;
BgL_auxz00_3650 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3650, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3653;
BgL_auxz00_3653 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3653, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3656;
BgL_auxz00_3656 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3656, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3659;
BgL_auxz00_3659 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3659, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3662;
BgL_auxz00_3662 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3662, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3665;
BgL_auxz00_3665 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3665, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3668;
BgL_auxz00_3668 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3668, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3671;
BgL_auxz00_3671 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3671, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3674;
BgL_auxz00_3674 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3674, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3677;
BgL_auxz00_3677 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2letzd2_2088, BgL_auxz00_3677, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3680;
BgL_auxz00_3680 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3680, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3683;
BgL_auxz00_3683 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3683, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3686;
BgL_auxz00_3686 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3686, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3689;
BgL_auxz00_3689 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3689, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3692;
BgL_auxz00_3692 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3692, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3695;
BgL_auxz00_3695 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3695, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3698;
BgL_auxz00_3698 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3698, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3701;
BgL_auxz00_3701 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3701, BgL_ppzd2dozd2_2086); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3704;
BgL_auxz00_3704 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3704, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3707;
BgL_auxz00_3707 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3707, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3710;
BgL_auxz00_3710 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3710, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3713;
BgL_auxz00_3713 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3713, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3716;
BgL_auxz00_3716 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3716, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3719;
BgL_auxz00_3719 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3719, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3722;
BgL_auxz00_3722 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3722, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3725;
BgL_auxz00_3725 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3725, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3728;
BgL_auxz00_3728 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3728, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3731;
BgL_auxz00_3731 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3731, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3734;
BgL_auxz00_3734 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2beginzd2_2087, BgL_auxz00_3734, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3737;
BgL_auxz00_3737 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3737, BgL_ppzd2exprzd2defunz00_2093); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3740;
BgL_auxz00_3740 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3740, BgL_indentzd2generalzd2_403); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3743;
BgL_auxz00_3743 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3743, BgL_widthz00_6); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3746;
BgL_auxz00_3746 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3746, BgL_maxzd2exprzd2widthz00_401); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3749;
BgL_auxz00_3749 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3749, BgL_displayzf3zf3_5); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3752;
BgL_auxz00_3752 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3752, BgL_ppzd2commentzd2_2084); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3755;
BgL_auxz00_3755 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3755, BgL_ppzd2beginzd2_2087); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3758;
BgL_auxz00_3758 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3758, BgL_ppzd2letzd2_2088); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3761;
BgL_auxz00_3761 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3761, BgL_ppzd2andzd2_2089); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3764;
BgL_auxz00_3764 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3764, BgL_ppzd2casezd2_2090); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3767;
BgL_auxz00_3767 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3767, BgL_ppzd2condzd2_2091); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3770;
BgL_auxz00_3770 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3770, BgL_ppzd2ifzd2_2092); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3773;
BgL_auxz00_3773 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3773, BgL_ppzd2defunzd2_2094); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3776;
BgL_auxz00_3776 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3776, BgL_ppzd2definezd2_2095); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3779;
BgL_auxz00_3779 = 
(int)(((long)14)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3779, BgL_ppzd2lambdazd2_2096); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3782;
BgL_auxz00_3782 = 
(int)(((long)15)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3782, BgL_maxzd2callzd2headzd2widthzd2_402); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3785;
BgL_auxz00_3785 = 
(int)(((long)16)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3785, BgL_outputz00_7); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3788;
BgL_auxz00_3788 = 
(int)(((long)17)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3788, BgL_ppzd2exprzd2listz00_2085); } 
{ /* ./Pp/pp.scm 398 */
int BgL_auxz00_3791;
BgL_auxz00_3791 = 
(int)(((long)18)); 
PROCEDURE_SET(BgL_ppzd2dozd2_2086, BgL_auxz00_3791, BgL_ppzd2exprzd2_2083); } 
{ /* ./Pp/pp.scm 391 */
obj_t BgL_auxz00_2571;
BgL_auxz00_2571 = 
BINT(((long)2)); 
CELL_SET(BgL_indentzd2generalzd2_403, BgL_auxz00_2571); } 
{ /* ./Pp/pp.scm 393 */
obj_t BgL_auxz00_2572;
BgL_auxz00_2572 = 
BINT(((long)5)); 
CELL_SET(BgL_maxzd2callzd2headzd2widthzd2_402, BgL_auxz00_2572); } 
{ /* ./Pp/pp.scm 395 */
obj_t BgL_auxz00_2573;
BgL_auxz00_2573 = 
BINT(((long)50)); 
CELL_SET(BgL_maxzd2exprzd2widthz00_401, BgL_auxz00_2573); } 
BgL_arg1052z00_395 = 
BGl_prz00zz__ppz00(BgL_ppzd2exprzd2_2083, BgL_outputz00_7, BgL_displayzf3zf3_5, BgL_maxzd2exprzd2widthz00_401, BgL_widthz00_6, BgL_maxzd2callzd2headzd2widthzd2_402, BgL_ppzd2lambdazd2_2096, BgL_ppzd2definezd2_2095, BgL_ppzd2defunzd2_2094, BgL_ppzd2ifzd2_2092, BgL_ppzd2condzd2_2091, BgL_ppzd2casezd2_2090, BgL_ppzd2andzd2_2089, BgL_ppzd2letzd2_2088, BgL_ppzd2beginzd2_2087, BgL_ppzd2dozd2_2086, BgL_ppzd2commentzd2_2084, BgL_ppzd2exprzd2listz00_2085, BgL_indentzd2generalzd2_403, BgL_ppzd2exprzd2defunz00_2093, BgL_objz00_397, 
BINT(BgL_colz00_398), 
BINT(((long)0)), BgL_ppzd2exprzd2_2083); } } 
if(
CBOOL(BgL_arg1052z00_395))
{ /* ./Pp/pp.scm 417 */
obj_t BgL__andtest_1005z00_1091;
BgL__andtest_1005z00_1091 = 
PROCEDURE_ENTRY(BgL_outputz00_7)(BgL_outputz00_7, BgL_arg1051z00_394, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1091))
{ /* ./Pp/pp.scm 417 */
long BgL_auxz00_3806;
{ /* ./Pp/pp.scm 417 */
long BgL_auxz00_3809;long BgL_auxz00_3807;
{ /* ./Pp/pp.scm 417 */
int BgL_auxz00_3810;
BgL_auxz00_3810 = 
STRING_LENGTH(BgL_arg1051z00_394); 
BgL_auxz00_3809 = 
(long)(BgL_auxz00_3810); } 
BgL_auxz00_3807 = 
(long)CINT(BgL_arg1052z00_395); 
BgL_auxz00_3806 = 
(BgL_auxz00_3807+BgL_auxz00_3809); } 
return 
BINT(BgL_auxz00_3806);}  else 
{ /* ./Pp/pp.scm 417 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 417 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 416 */
return 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_5, BgL_outputz00_7, BgL_objz00_4, 
BINT(((long)0)));} } } 
}



/* wr */
obj_t BGl_wrz00zz__ppz00(obj_t BgL_displayzf3zf3_2122, obj_t BgL_outputz00_2121, obj_t BgL_objz00_720, obj_t BgL_colz00_721)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 132 */
BGl_wrz00zz__ppz00:
{ /* ./Pp/pp.scm 143 */
bool_t BgL_test1433z00_725;
if(
PAIRP(BgL_objz00_720))
{ /* ./Pp/pp.scm 143 */
obj_t BgL_cdrzd2105zd2_793;
BgL_cdrzd2105zd2_793 = 
CDR(BgL_objz00_720); 
{ /* ./Pp/pp.scm 143 */
bool_t BgL_testz00_3820;
{ /* ./Pp/pp.scm 143 */
obj_t BgL_auxz00_3821;
BgL_auxz00_3821 = 
CAR(BgL_objz00_720); 
BgL_testz00_3820 = 
(BgL_auxz00_3821==BGl_symbol3788z00zz__ppz00); } 
if(BgL_testz00_3820)
{ /* ./Pp/pp.scm 143 */
if(
PAIRP(BgL_cdrzd2105zd2_793))
{ /* ./Pp/pp.scm 143 */
obj_t BgL_cdrzd2107zd2_796;
BgL_cdrzd2107zd2_796 = 
CDR(BgL_cdrzd2105zd2_793); 
{ /* ./Pp/pp.scm 143 */
bool_t BgL_testz00_3827;
{ /* ./Pp/pp.scm 143 */
obj_t BgL_auxz00_3828;
BgL_auxz00_3828 = 
CAR(BgL_cdrzd2105zd2_793); 
BgL_testz00_3827 = 
INTEGERP(BgL_auxz00_3828); } 
if(BgL_testz00_3827)
{ /* ./Pp/pp.scm 143 */
if(
PAIRP(BgL_cdrzd2107zd2_796))
{ /* ./Pp/pp.scm 143 */
bool_t BgL_testz00_3833;
{ /* ./Pp/pp.scm 143 */
obj_t BgL_auxz00_3834;
BgL_auxz00_3834 = 
CAR(BgL_cdrzd2107zd2_796); 
BgL_testz00_3833 = 
STRINGP(BgL_auxz00_3834); } 
if(BgL_testz00_3833)
{ /* ./Pp/pp.scm 143 */
bool_t BgL_testz00_3837;
{ /* ./Pp/pp.scm 143 */
obj_t BgL_auxz00_3838;
BgL_auxz00_3838 = 
CDR(BgL_cdrzd2107zd2_796); 
BgL_testz00_3837 = 
NULLP(BgL_auxz00_3838); } 
if(BgL_testz00_3837)
{ /* ./Pp/pp.scm 143 */
BgL_test1433z00_725 = ((bool_t)1); }  else 
{ /* ./Pp/pp.scm 143 */
BgL_test1433z00_725 = ((bool_t)0); } }  else 
{ /* ./Pp/pp.scm 143 */
BgL_test1433z00_725 = ((bool_t)0); } }  else 
{ /* ./Pp/pp.scm 143 */
BgL_test1433z00_725 = ((bool_t)0); } }  else 
{ /* ./Pp/pp.scm 143 */
BgL_test1433z00_725 = ((bool_t)0); } } }  else 
{ /* ./Pp/pp.scm 143 */
BgL_test1433z00_725 = ((bool_t)0); } }  else 
{ /* ./Pp/pp.scm 143 */
BgL_test1433z00_725 = ((bool_t)0); } } }  else 
{ /* ./Pp/pp.scm 143 */
BgL_test1433z00_725 = ((bool_t)0); } 
if(BgL_test1433z00_725)
{ /* ./Pp/pp.scm 143 */
{ /* ./Pp/pp.scm 148 */
obj_t BgL_addz00_726;
{ /* ./Pp/pp.scm 148 */
obj_t BgL_arg1453z00_733;
{ /* ./Pp/pp.scm 148 */
obj_t BgL_auxz00_3842;
{ /* ./Pp/pp.scm 148 */
int BgL_auxz00_3843;
{ /* ./Pp/pp.scm 148 */
obj_t BgL_auxz00_3844;
{ /* ./Pp/pp.scm 148 */
obj_t BgL_auxz00_3845;
{ /* ./Pp/pp.scm 148 */
obj_t BgL_auxz00_3846;
BgL_auxz00_3846 = 
CDR(BgL_objz00_720); 
BgL_auxz00_3845 = 
CDR(BgL_auxz00_3846); } 
BgL_auxz00_3844 = 
CAR(BgL_auxz00_3845); } 
BgL_auxz00_3843 = 
STRING_LENGTH(BgL_auxz00_3844); } 
BgL_auxz00_3842 = 
BINT(BgL_auxz00_3843); } 
BgL_arg1453z00_733 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_auxz00_3842, 
BINT(((long)3))); } 
BgL_addz00_726 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BGl_za2ppzd2widthza2zd2zz__ppz00, BgL_arg1453z00_733); } 
{ /* ./Pp/pp.scm 149 */
bool_t BgL_testz00_3855;
{ /* ./Pp/pp.scm 149 */
long BgL_auxz00_3856;
BgL_auxz00_3856 = 
(long)CINT(BgL_addz00_726); 
BgL_testz00_3855 = 
(BgL_auxz00_3856<=((long)0)); } 
if(BgL_testz00_3855)
{ /* ./Pp/pp.scm 150 */
obj_t BgL_arg1436z00_728;
{ /* ./Pp/pp.scm 150 */
obj_t BgL_auxz00_3859;
{ /* ./Pp/pp.scm 150 */
obj_t BgL_auxz00_3860;
BgL_auxz00_3860 = 
CDR(BgL_objz00_720); 
BgL_auxz00_3859 = 
CDR(BgL_auxz00_3860); } 
BgL_arg1436z00_728 = 
CAR(BgL_auxz00_3859); } 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 150 */
obj_t BgL__andtest_1005z00_1612;
BgL__andtest_1005z00_1612 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1436z00_728, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1612))
{ /* ./Pp/pp.scm 150 */
long BgL_auxz00_3870;
{ /* ./Pp/pp.scm 150 */
long BgL_auxz00_3873;long BgL_auxz00_3871;
{ /* ./Pp/pp.scm 150 */
int BgL_auxz00_3874;
BgL_auxz00_3874 = 
STRING_LENGTH(BgL_arg1436z00_728); 
BgL_auxz00_3873 = 
(long)(BgL_auxz00_3874); } 
BgL_auxz00_3871 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_3870 = 
(BgL_auxz00_3871+BgL_auxz00_3873); } 
return 
BINT(BgL_auxz00_3870);}  else 
{ /* ./Pp/pp.scm 150 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 150 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 151 */
obj_t BgL_arg1440z00_729;
{ /* ./Pp/pp.scm 151 */
obj_t BgL_arg1444z00_730;obj_t BgL_arg1445z00_731;
{ /* ./Pp/pp.scm 151 */
obj_t BgL_auxz00_3879;
{ /* ./Pp/pp.scm 151 */
obj_t BgL_auxz00_3880;
BgL_auxz00_3880 = 
CDR(BgL_objz00_720); 
BgL_auxz00_3879 = 
CDR(BgL_auxz00_3880); } 
BgL_arg1444z00_730 = 
CAR(BgL_auxz00_3879); } 
{ /* ./Pp/pp.scm 151 */
obj_t BgL_list1449z00_732;
{ /* ./Pp/pp.scm 151 */
obj_t BgL_auxz00_3884;
BgL_auxz00_3884 = 
BCHAR(((unsigned char)' ')); 
BgL_list1449z00_732 = 
MAKE_PAIR(BgL_auxz00_3884, BNIL); } 
{ /* ./Pp/pp.scm 151 */
obj_t BgL_res2437z00_1629;
{ /* ./Pp/pp.scm 151 */
int BgL_kz00_1623;
BgL_kz00_1623 = 
CINT(BgL_addz00_726); 
{ /* ./Pp/pp.scm 151 */
obj_t BgL_arg2219z00_1626;
BgL_arg2219z00_1626 = 
CAR(BgL_list1449z00_732); 
{ /* ./Pp/pp.scm 151 */
unsigned char BgL_auxz00_3889;
BgL_auxz00_3889 = 
(unsigned char)CCHAR(BgL_arg2219z00_1626); 
BgL_res2437z00_1629 = 
make_string(BgL_kz00_1623, BgL_auxz00_3889); } } } 
BgL_arg1445z00_731 = BgL_res2437z00_1629; } } 
BgL_arg1440z00_729 = 
string_append(BgL_arg1444z00_730, BgL_arg1445z00_731); } 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 151 */
obj_t BgL__andtest_1005z00_1633;
BgL__andtest_1005z00_1633 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1440z00_729, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1633))
{ /* ./Pp/pp.scm 151 */
long BgL_auxz00_3899;
{ /* ./Pp/pp.scm 151 */
long BgL_auxz00_3902;long BgL_auxz00_3900;
{ /* ./Pp/pp.scm 151 */
int BgL_auxz00_3903;
BgL_auxz00_3903 = 
STRING_LENGTH(BgL_arg1440z00_729); 
BgL_auxz00_3902 = 
(long)(BgL_auxz00_3903); } 
BgL_auxz00_3900 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_3899 = 
(BgL_auxz00_3900+BgL_auxz00_3902); } 
return 
BINT(BgL_auxz00_3899);}  else 
{ /* ./Pp/pp.scm 151 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 151 */
return BFALSE;} } } } }  else 
{ /* ./Pp/pp.scm 143 */
if(
PAIRP(BgL_objz00_720))
{ /* ./Pp/pp.scm 153 */
if(
BGl_readzd2macrozf3z21zz__ppz00(BgL_objz00_720))
{ 
obj_t BgL_colz00_3916;obj_t BgL_objz00_3912;
{ /* ./Pp/pp.scm 154 */
obj_t BgL_auxz00_3913;
BgL_auxz00_3913 = 
CDR(BgL_objz00_720); 
BgL_objz00_3912 = 
CAR(BgL_auxz00_3913); } 
BgL_colz00_3916 = 
BGl_outz00zz__ppz00(BgL_outputz00_2121, 
BGl_readzd2macrozd2prefixz00zz__ppz00(BgL_objz00_720), BgL_colz00_721); 
BgL_colz00_721 = BgL_colz00_3916; 
BgL_objz00_720 = BgL_objz00_3912; 
goto BGl_wrz00zz__ppz00;}  else 
{ /* ./Pp/pp.scm 154 */
return 
BGl_wrzd2lstzd2zz__ppz00(BgL_outputz00_2121, BgL_displayzf3zf3_2122, BgL_objz00_720, BgL_colz00_721);} }  else 
{ /* ./Pp/pp.scm 153 */
if(
NULLP(BgL_objz00_720))
{ /* ./Pp/pp.scm 155 */
return 
BGl_wrzd2lstzd2zz__ppz00(BgL_outputz00_2121, BgL_displayzf3zf3_2122, BgL_objz00_720, BgL_colz00_721);}  else 
{ /* ./Pp/pp.scm 155 */
if(
VECTORP(BgL_objz00_720))
{ /* ./Pp/pp.scm 157 */
{ /* ./Pp/pp.scm 158 */
obj_t BgL_arg1470z00_740;obj_t BgL_arg1471z00_741;
BgL_arg1470z00_740 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_objz00_720); 
{ /* ./Pp/pp.scm 159 */
obj_t BgL_arg1475z00_742;
BgL_arg1475z00_742 = 
BGl_vectorzd2prefixzd2zz__ppz00(BgL_objz00_720); 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 159 */
obj_t BgL__andtest_1005z00_1655;
BgL__andtest_1005z00_1655 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1475z00_742, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1655))
{ /* ./Pp/pp.scm 159 */
long BgL_auxz00_3933;
{ /* ./Pp/pp.scm 159 */
long BgL_auxz00_3936;long BgL_auxz00_3934;
{ /* ./Pp/pp.scm 159 */
int BgL_auxz00_3937;
BgL_auxz00_3937 = 
STRING_LENGTH(BgL_arg1475z00_742); 
BgL_auxz00_3936 = 
(long)(BgL_auxz00_3937); } 
BgL_auxz00_3934 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_3933 = 
(BgL_auxz00_3934+BgL_auxz00_3936); } 
BgL_arg1471z00_741 = 
BINT(BgL_auxz00_3933); }  else 
{ /* ./Pp/pp.scm 159 */
BgL_arg1471z00_741 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 159 */
BgL_arg1471z00_741 = BFALSE; } } 
return 
BGl_wrzd2lstzd2zz__ppz00(BgL_outputz00_2121, BgL_displayzf3zf3_2122, BgL_arg1470z00_740, BgL_arg1471z00_741);} }  else 
{ /* ./Pp/pp.scm 157 */
if(
BOOLEANP(BgL_objz00_720))
{ /* ./Pp/pp.scm 160 */
{ /* ./Pp/pp.scm 161 */
char * BgL_arg1480z00_744;
if(
CBOOL(BgL_objz00_720))
{ /* ./Pp/pp.scm 161 */
BgL_arg1480z00_744 = "#t"; }  else 
{ /* ./Pp/pp.scm 161 */
BgL_arg1480z00_744 = "#f"; } 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 161 */
obj_t BgL__andtest_1005z00_1664;
BgL__andtest_1005z00_1664 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, 
string_to_bstring(BgL_arg1480z00_744), BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1664))
{ /* ./Pp/pp.scm 161 */
long BgL_auxz00_3954;
{ /* ./Pp/pp.scm 161 */
long BgL_auxz00_3957;long BgL_auxz00_3955;
{ /* ./Pp/pp.scm 161 */
int BgL_auxz00_3958;
{ /* ./Pp/pp.scm 161 */
obj_t BgL_auxz00_3959;
BgL_auxz00_3959 = 
string_to_bstring(BgL_arg1480z00_744); 
BgL_auxz00_3958 = 
STRING_LENGTH(BgL_auxz00_3959); } 
BgL_auxz00_3957 = 
(long)(BgL_auxz00_3958); } 
BgL_auxz00_3955 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_3954 = 
(BgL_auxz00_3955+BgL_auxz00_3957); } 
return 
BINT(BgL_auxz00_3954);}  else 
{ /* ./Pp/pp.scm 161 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 161 */
return BFALSE;} } }  else 
{ /* ./Pp/pp.scm 162 */
bool_t BgL_test1482z00_745;
if(
INTEGERP(BgL_objz00_720))
{ /* ./Pp/pp.scm 162 */
BgL_test1482z00_745 = ((bool_t)1); }  else 
{ /* ./Pp/pp.scm 162 */
BgL_test1482z00_745 = 
REALP(BgL_objz00_720); } 
if(BgL_test1482z00_745)
{ /* ./Pp/pp.scm 162 */
{ /* ./Pp/pp.scm 163 */
char * BgL_arg1484z00_746;
BgL_arg1484z00_746 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_objz00_720, BNIL); 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 163 */
obj_t BgL__andtest_1005z00_1677;
BgL__andtest_1005z00_1677 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, 
string_to_bstring(BgL_arg1484z00_746), BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1677))
{ /* ./Pp/pp.scm 163 */
long BgL_auxz00_3977;
{ /* ./Pp/pp.scm 163 */
long BgL_auxz00_3980;long BgL_auxz00_3978;
{ /* ./Pp/pp.scm 163 */
int BgL_auxz00_3981;
{ /* ./Pp/pp.scm 163 */
obj_t BgL_auxz00_3982;
BgL_auxz00_3982 = 
string_to_bstring(BgL_arg1484z00_746); 
BgL_auxz00_3981 = 
STRING_LENGTH(BgL_auxz00_3982); } 
BgL_auxz00_3980 = 
(long)(BgL_auxz00_3981); } 
BgL_auxz00_3978 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_3977 = 
(BgL_auxz00_3978+BgL_auxz00_3980); } 
return 
BINT(BgL_auxz00_3977);}  else 
{ /* ./Pp/pp.scm 163 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 163 */
return BFALSE;} } }  else 
{ /* ./Pp/pp.scm 162 */
if(
SYMBOLP(BgL_objz00_720))
{ /* ./Pp/pp.scm 164 */
{ /* ./Pp/pp.scm 165 */
obj_t BgL_pz00_749;
BgL_pz00_749 = 
open_output_string(); 
if(
CBOOL(BgL_displayzf3zf3_2122))
{ /* ./Pp/pp.scm 166 */
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_objz00_720, BgL_pz00_749); }  else 
{ /* ./Pp/pp.scm 168 */
obj_t BgL_list1491z00_750;
BgL_list1491z00_750 = 
MAKE_PAIR(BgL_pz00_749, BNIL); 
BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_720, BgL_list1491z00_750); } 
{ /* ./Pp/pp.scm 169 */
obj_t BgL_casezd2valuezd2_751;
BgL_casezd2valuezd2_751 = BGl_za2ppzd2caseza2zd2zz__ppz00; 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_751, BGl_symbol3782z00zz__ppz00))
{ /* ./Pp/pp.scm 171 */
obj_t BgL_arg1495z00_753;
BgL_arg1495z00_753 = 
close_output_port(BgL_pz00_749); 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 171 */
obj_t BgL__andtest_1005z00_1687;
BgL__andtest_1005z00_1687 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1495z00_753, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1687))
{ /* ./Pp/pp.scm 171 */
long BgL_auxz00_4005;
{ /* ./Pp/pp.scm 171 */
long BgL_auxz00_4008;long BgL_auxz00_4006;
{ /* ./Pp/pp.scm 171 */
int BgL_auxz00_4009;
BgL_auxz00_4009 = 
STRING_LENGTH(BgL_arg1495z00_753); 
BgL_auxz00_4008 = 
(long)(BgL_auxz00_4009); } 
BgL_auxz00_4006 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4005 = 
(BgL_auxz00_4006+BgL_auxz00_4008); } 
return 
BINT(BgL_auxz00_4005);}  else 
{ /* ./Pp/pp.scm 171 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 171 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 169 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_751, BGl_symbol3789z00zz__ppz00))
{ /* ./Pp/pp.scm 173 */
obj_t BgL_arg1500z00_755;
BgL_arg1500z00_755 = 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(
close_output_port(BgL_pz00_749)); 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 173 */
obj_t BgL__andtest_1005z00_1696;
BgL__andtest_1005z00_1696 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1500z00_755, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1696))
{ /* ./Pp/pp.scm 173 */
long BgL_auxz00_4024;
{ /* ./Pp/pp.scm 173 */
long BgL_auxz00_4027;long BgL_auxz00_4025;
{ /* ./Pp/pp.scm 173 */
int BgL_auxz00_4028;
BgL_auxz00_4028 = 
STRING_LENGTH(BgL_arg1500z00_755); 
BgL_auxz00_4027 = 
(long)(BgL_auxz00_4028); } 
BgL_auxz00_4025 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4024 = 
(BgL_auxz00_4025+BgL_auxz00_4027); } 
return 
BINT(BgL_auxz00_4024);}  else 
{ /* ./Pp/pp.scm 173 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 173 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 176 */
obj_t BgL_arg1507z00_757;
BgL_arg1507z00_757 = 
BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(
close_output_port(BgL_pz00_749)); 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 176 */
obj_t BgL__andtest_1005z00_1705;
BgL__andtest_1005z00_1705 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1507z00_757, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1705))
{ /* ./Pp/pp.scm 176 */
long BgL_auxz00_4041;
{ /* ./Pp/pp.scm 176 */
long BgL_auxz00_4044;long BgL_auxz00_4042;
{ /* ./Pp/pp.scm 176 */
int BgL_auxz00_4045;
BgL_auxz00_4045 = 
STRING_LENGTH(BgL_arg1507z00_757); 
BgL_auxz00_4044 = 
(long)(BgL_auxz00_4045); } 
BgL_auxz00_4042 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4041 = 
(BgL_auxz00_4042+BgL_auxz00_4044); } 
return 
BINT(BgL_auxz00_4041);}  else 
{ /* ./Pp/pp.scm 176 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 176 */
return BFALSE;} } } } } }  else 
{ /* ./Pp/pp.scm 164 */
if(
PROCEDUREP(BgL_objz00_720))
{ /* ./Pp/pp.scm 178 */
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 179 */
obj_t BgL__andtest_1005z00_1714;
BgL__andtest_1005z00_1714 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BGl_string3790z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1714))
{ /* ./Pp/pp.scm 179 */
long BgL_auxz00_4058;
{ /* ./Pp/pp.scm 179 */
long BgL_auxz00_4061;long BgL_auxz00_4059;
{ /* ./Pp/pp.scm 179 */
int BgL_auxz00_4062;
BgL_auxz00_4062 = 
STRING_LENGTH(BGl_string3790z00zz__ppz00); 
BgL_auxz00_4061 = 
(long)(BgL_auxz00_4062); } 
BgL_auxz00_4059 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4058 = 
(BgL_auxz00_4059+BgL_auxz00_4061); } 
return 
BINT(BgL_auxz00_4058);}  else 
{ /* ./Pp/pp.scm 179 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 179 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 178 */
if(
STRINGP(BgL_objz00_720))
{ /* ./Pp/pp.scm 180 */
{ /* ./Pp/pp.scm 181 */
obj_t BgL_objz00_761;
BgL_objz00_761 = 
string_for_read(BgL_objz00_720); 
if(
CBOOL(BgL_displayzf3zf3_2122))
{ /* ./Pp/pp.scm 182 */
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 183 */
obj_t BgL__andtest_1005z00_1724;
BgL__andtest_1005z00_1724 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_objz00_761, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1724))
{ /* ./Pp/pp.scm 183 */
long BgL_auxz00_4078;
{ /* ./Pp/pp.scm 183 */
long BgL_auxz00_4081;long BgL_auxz00_4079;
{ /* ./Pp/pp.scm 183 */
int BgL_auxz00_4082;
BgL_auxz00_4082 = 
STRING_LENGTH(BgL_objz00_761); 
BgL_auxz00_4081 = 
(long)(BgL_auxz00_4082); } 
BgL_auxz00_4079 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4078 = 
(BgL_auxz00_4079+BgL_auxz00_4081); } 
return 
BINT(BgL_auxz00_4078);}  else 
{ /* ./Pp/pp.scm 183 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 183 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 184 */
obj_t BgL_arg1525z00_768;
{ /* ./Pp/pp.scm 186 */
char * BgL_arg1528z00_769;
if(
CBOOL(BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00))
{ /* ./Pp/pp.scm 186 */
BgL_arg1528z00_769 = "#\""; }  else 
{ /* ./Pp/pp.scm 186 */
BgL_arg1528z00_769 = "\""; } 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 186 */
obj_t BgL__andtest_1005z00_1732;
BgL__andtest_1005z00_1732 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, 
string_to_bstring(BgL_arg1528z00_769), BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1732))
{ /* ./Pp/pp.scm 186 */
long BgL_auxz00_4096;
{ /* ./Pp/pp.scm 186 */
long BgL_auxz00_4099;long BgL_auxz00_4097;
{ /* ./Pp/pp.scm 186 */
int BgL_auxz00_4100;
{ /* ./Pp/pp.scm 186 */
obj_t BgL_auxz00_4101;
BgL_auxz00_4101 = 
string_to_bstring(BgL_arg1528z00_769); 
BgL_auxz00_4100 = 
STRING_LENGTH(BgL_auxz00_4101); } 
BgL_auxz00_4099 = 
(long)(BgL_auxz00_4100); } 
BgL_auxz00_4097 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4096 = 
(BgL_auxz00_4097+BgL_auxz00_4099); } 
BgL_arg1525z00_768 = 
BINT(BgL_auxz00_4096); }  else 
{ /* ./Pp/pp.scm 186 */
BgL_arg1525z00_768 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 186 */
BgL_arg1525z00_768 = BFALSE; } } 
return 
BGl_loop_2443z00zz__ppz00(((long)0), BgL_arg1525z00_768, BgL_objz00_761, BgL_outputz00_2121, ((long)0));} } }  else 
{ /* ./Pp/pp.scm 180 */
if(
CHARP(BgL_objz00_720))
{ /* ./Pp/pp.scm 194 */
if(
CBOOL(BgL_displayzf3zf3_2122))
{ /* ./Pp/pp.scm 196 */
obj_t BgL_arg1551z00_778;
{ /* ./Pp/pp.scm 196 */
obj_t BgL_list1554z00_779;
BgL_list1554z00_779 = 
MAKE_PAIR(BgL_objz00_720, BNIL); 
{ /* ./Pp/pp.scm 196 */
obj_t BgL_res2439z00_1816;
{ /* ./Pp/pp.scm 196 */
int BgL_kz00_1810;
BgL_kz00_1810 = 
(int)(((long)1)); 
{ /* ./Pp/pp.scm 196 */
obj_t BgL_arg2219z00_1813;
BgL_arg2219z00_1813 = 
CAR(BgL_list1554z00_779); 
{ /* ./Pp/pp.scm 196 */
unsigned char BgL_auxz00_4115;
BgL_auxz00_4115 = 
(unsigned char)CCHAR(BgL_arg2219z00_1813); 
BgL_res2439z00_1816 = 
make_string(BgL_kz00_1810, BgL_auxz00_4115); } } } 
BgL_arg1551z00_778 = BgL_res2439z00_1816; } } 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 196 */
obj_t BgL__andtest_1005z00_1820;
BgL__andtest_1005z00_1820 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1551z00_778, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1820))
{ /* ./Pp/pp.scm 196 */
long BgL_auxz00_4124;
{ /* ./Pp/pp.scm 196 */
long BgL_auxz00_4127;long BgL_auxz00_4125;
{ /* ./Pp/pp.scm 196 */
int BgL_auxz00_4128;
BgL_auxz00_4128 = 
STRING_LENGTH(BgL_arg1551z00_778); 
BgL_auxz00_4127 = 
(long)(BgL_auxz00_4128); } 
BgL_auxz00_4125 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4124 = 
(BgL_auxz00_4125+BgL_auxz00_4127); } 
return 
BINT(BgL_auxz00_4124);}  else 
{ /* ./Pp/pp.scm 196 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 196 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 197 */
obj_t BgL_pz00_780;
BgL_pz00_780 = 
open_output_string(); 
{ /* ./Pp/pp.scm 198 */
obj_t BgL_list1557z00_781;
BgL_list1557z00_781 = 
MAKE_PAIR(BgL_pz00_780, BNIL); 
BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_720, BgL_list1557z00_781); } 
{ /* ./Pp/pp.scm 199 */
obj_t BgL_arg1560z00_782;
BgL_arg1560z00_782 = 
close_output_port(BgL_pz00_780); 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 199 */
obj_t BgL__andtest_1005z00_1829;
BgL__andtest_1005z00_1829 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1560z00_782, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1829))
{ /* ./Pp/pp.scm 199 */
long BgL_auxz00_4143;
{ /* ./Pp/pp.scm 199 */
long BgL_auxz00_4146;long BgL_auxz00_4144;
{ /* ./Pp/pp.scm 199 */
int BgL_auxz00_4147;
BgL_auxz00_4147 = 
STRING_LENGTH(BgL_arg1560z00_782); 
BgL_auxz00_4146 = 
(long)(BgL_auxz00_4147); } 
BgL_auxz00_4144 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4143 = 
(BgL_auxz00_4144+BgL_auxz00_4146); } 
return 
BINT(BgL_auxz00_4143);}  else 
{ /* ./Pp/pp.scm 199 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 199 */
return BFALSE;} } } }  else 
{ /* ./Pp/pp.scm 194 */
if(
INPUT_PORTP(BgL_objz00_720))
{ /* ./Pp/pp.scm 200 */
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 201 */
obj_t BgL__andtest_1005z00_1838;
BgL__andtest_1005z00_1838 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BGl_string3791z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1838))
{ /* ./Pp/pp.scm 201 */
long BgL_auxz00_4160;
{ /* ./Pp/pp.scm 201 */
long BgL_auxz00_4163;long BgL_auxz00_4161;
{ /* ./Pp/pp.scm 201 */
int BgL_auxz00_4164;
BgL_auxz00_4164 = 
STRING_LENGTH(BGl_string3791z00zz__ppz00); 
BgL_auxz00_4163 = 
(long)(BgL_auxz00_4164); } 
BgL_auxz00_4161 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4160 = 
(BgL_auxz00_4161+BgL_auxz00_4163); } 
return 
BINT(BgL_auxz00_4160);}  else 
{ /* ./Pp/pp.scm 201 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 201 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 200 */
if(
OUTPUT_PORTP(BgL_objz00_720))
{ /* ./Pp/pp.scm 202 */
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 203 */
obj_t BgL__andtest_1005z00_1847;
BgL__andtest_1005z00_1847 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BGl_string3792z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1847))
{ /* ./Pp/pp.scm 203 */
long BgL_auxz00_4177;
{ /* ./Pp/pp.scm 203 */
long BgL_auxz00_4180;long BgL_auxz00_4178;
{ /* ./Pp/pp.scm 203 */
int BgL_auxz00_4181;
BgL_auxz00_4181 = 
STRING_LENGTH(BGl_string3792z00zz__ppz00); 
BgL_auxz00_4180 = 
(long)(BgL_auxz00_4181); } 
BgL_auxz00_4178 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4177 = 
(BgL_auxz00_4178+BgL_auxz00_4180); } 
return 
BINT(BgL_auxz00_4177);}  else 
{ /* ./Pp/pp.scm 203 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 203 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 204 */
bool_t BgL_test1568z00_785;
BgL_test1568z00_785 = 
EOF_OBJECTP(BgL_objz00_720); 
if(BgL_test1568z00_785)
{ /* ./Pp/pp.scm 204 */
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 205 */
obj_t BgL__andtest_1005z00_1856;
BgL__andtest_1005z00_1856 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BGl_string3793z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1856))
{ /* ./Pp/pp.scm 205 */
long BgL_auxz00_4194;
{ /* ./Pp/pp.scm 205 */
long BgL_auxz00_4197;long BgL_auxz00_4195;
{ /* ./Pp/pp.scm 205 */
int BgL_auxz00_4198;
BgL_auxz00_4198 = 
STRING_LENGTH(BGl_string3793z00zz__ppz00); 
BgL_auxz00_4197 = 
(long)(BgL_auxz00_4198); } 
BgL_auxz00_4195 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4194 = 
(BgL_auxz00_4195+BgL_auxz00_4197); } 
return 
BINT(BgL_auxz00_4194);}  else 
{ /* ./Pp/pp.scm 205 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 205 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 204 */
{ /* ./Pp/pp.scm 207 */
obj_t BgL_arg1572z00_786;
{ /* ./Pp/pp.scm 207 */
obj_t BgL_pz00_787;
BgL_pz00_787 = 
open_output_string(); 
{ /* ./Pp/pp.scm 208 */
obj_t BgL_list1575z00_788;
BgL_list1575z00_788 = 
MAKE_PAIR(BgL_pz00_787, BNIL); 
BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_720, BgL_list1575z00_788); } 
BgL_arg1572z00_786 = 
close_output_port(BgL_pz00_787); } 
if(
CBOOL(BgL_colz00_721))
{ /* ./Pp/pp.scm 207 */
obj_t BgL__andtest_1005z00_1865;
BgL__andtest_1005z00_1865 = 
PROCEDURE_ENTRY(BgL_outputz00_2121)(BgL_outputz00_2121, BgL_arg1572z00_786, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1865))
{ /* ./Pp/pp.scm 207 */
long BgL_auxz00_4213;
{ /* ./Pp/pp.scm 207 */
long BgL_auxz00_4216;long BgL_auxz00_4214;
{ /* ./Pp/pp.scm 207 */
int BgL_auxz00_4217;
BgL_auxz00_4217 = 
STRING_LENGTH(BgL_arg1572z00_786); 
BgL_auxz00_4216 = 
(long)(BgL_auxz00_4217); } 
BgL_auxz00_4214 = 
(long)CINT(BgL_colz00_721); 
BgL_auxz00_4213 = 
(BgL_auxz00_4214+BgL_auxz00_4216); } 
return 
BINT(BgL_auxz00_4213);}  else 
{ /* ./Pp/pp.scm 207 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 207 */
return BFALSE;} } } } } } } } } } } } } } } } } 
}



/* out */
obj_t BGl_outz00zz__ppz00(obj_t BgL_outputz00_2123, obj_t BgL_strz00_836, obj_t BgL_colz00_837)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 125 */
if(
CBOOL(BgL_colz00_837))
{ /* ./Pp/pp.scm 125 */
obj_t BgL__andtest_1005z00_1943;
BgL__andtest_1005z00_1943 = 
PROCEDURE_ENTRY(BgL_outputz00_2123)(BgL_outputz00_2123, BgL_strz00_836, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1943))
{ /* ./Pp/pp.scm 125 */
long BgL_auxz00_4228;
{ /* ./Pp/pp.scm 125 */
long BgL_auxz00_4231;long BgL_auxz00_4229;
{ /* ./Pp/pp.scm 125 */
int BgL_auxz00_4232;
BgL_auxz00_4232 = 
STRING_LENGTH(BgL_strz00_836); 
BgL_auxz00_4231 = 
(long)(BgL_auxz00_4232); } 
BgL_auxz00_4229 = 
(long)CINT(BgL_colz00_837); 
BgL_auxz00_4228 = 
(BgL_auxz00_4229+BgL_auxz00_4231); } 
return 
BINT(BgL_auxz00_4228);}  else 
{ /* ./Pp/pp.scm 125 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 125 */
return BFALSE;} } 
}



/* read-macro-prefix */
obj_t BGl_readzd2macrozd2prefixz00zz__ppz00(obj_t BgL_lz00_842)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 122 */
{ /* ./Pp/pp.scm 117 */
obj_t BgL_headz00_844;
BgL_headz00_844 = 
CAR(BgL_lz00_842); 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_headz00_844, BGl_symbol3794z00zz__ppz00))
{ /* ./Pp/pp.scm 118 */
return BGl_string3795z00zz__ppz00;}  else 
{ /* ./Pp/pp.scm 118 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_headz00_844, BGl_symbol3796z00zz__ppz00))
{ /* ./Pp/pp.scm 118 */
return BGl_string3797z00zz__ppz00;}  else 
{ /* ./Pp/pp.scm 118 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_headz00_844, BGl_symbol3798z00zz__ppz00))
{ /* ./Pp/pp.scm 118 */
return BGl_string3799z00zz__ppz00;}  else 
{ /* ./Pp/pp.scm 118 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_headz00_844, BGl_symbol3800z00zz__ppz00))
{ /* ./Pp/pp.scm 118 */
return BGl_string3801z00zz__ppz00;}  else 
{ /* ./Pp/pp.scm 118 */
return BUNSPEC;} } } } } } 
}



/* read-macro? */
bool_t BGl_readzd2macrozf3z21zz__ppz00(obj_t BgL_lz00_853)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 107 */
{ /* ./Pp/pp.scm 108 */
obj_t BgL_tailz00_857;
BgL_tailz00_857 = 
CDR(BgL_lz00_853); 
{ /* ./Pp/pp.scm 109 */
bool_t BgL_testz00_4247;
{ /* ./Pp/pp.scm 109 */
obj_t BgL_auxz00_4248;
BgL_auxz00_4248 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_lz00_853), BGl_list3802z00zz__ppz00); 
BgL_testz00_4247 = 
CBOOL(BgL_auxz00_4248); } 
if(BgL_testz00_4247)
{ /* ./Pp/pp.scm 109 */
if(
PAIRP(BgL_tailz00_857))
{ /* ./Pp/pp.scm 110 */
obj_t BgL_auxz00_4254;
BgL_auxz00_4254 = 
CDR(BgL_tailz00_857); 
return 
NULLP(BgL_auxz00_4254);}  else 
{ /* ./Pp/pp.scm 110 */
return ((bool_t)0);} }  else 
{ /* ./Pp/pp.scm 109 */
return ((bool_t)0);} } } } 
}



/* wr-lst */
obj_t BGl_wrzd2lstzd2zz__ppz00(obj_t BgL_outputz00_2125, obj_t BgL_displayzf3zf3_2124, obj_t BgL_lz00_806, obj_t BgL_colz00_807)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 141 */
if(
PAIRP(BgL_lz00_806))
{ /* ./Pp/pp.scm 136 */
obj_t BgL_arg1631z00_813;obj_t BgL_arg1632z00_814;
BgL_arg1631z00_813 = 
CDR(BgL_lz00_806); 
{ /* ./Pp/pp.scm 136 */
obj_t BgL_arg1636z00_815;obj_t BgL_arg1637z00_816;
BgL_arg1636z00_815 = 
CAR(BgL_lz00_806); 
if(
CBOOL(BgL_colz00_807))
{ /* ./Pp/pp.scm 136 */
obj_t BgL__andtest_1005z00_1876;
BgL__andtest_1005z00_1876 = 
PROCEDURE_ENTRY(BgL_outputz00_2125)(BgL_outputz00_2125, BGl_string3803z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1876))
{ /* ./Pp/pp.scm 136 */
long BgL_auxz00_4267;
{ /* ./Pp/pp.scm 136 */
long BgL_auxz00_4270;long BgL_auxz00_4268;
{ /* ./Pp/pp.scm 136 */
int BgL_auxz00_4271;
BgL_auxz00_4271 = 
STRING_LENGTH(BGl_string3803z00zz__ppz00); 
BgL_auxz00_4270 = 
(long)(BgL_auxz00_4271); } 
BgL_auxz00_4268 = 
(long)CINT(BgL_colz00_807); 
BgL_auxz00_4267 = 
(BgL_auxz00_4268+BgL_auxz00_4270); } 
BgL_arg1637z00_816 = 
BINT(BgL_auxz00_4267); }  else 
{ /* ./Pp/pp.scm 136 */
BgL_arg1637z00_816 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 136 */
BgL_arg1637z00_816 = BFALSE; } 
BgL_arg1632z00_814 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2124, BgL_outputz00_2125, BgL_arg1636z00_815, BgL_arg1637z00_816); } 
return 
BGl_loop_2444z00zz__ppz00(BgL_outputz00_2125, BgL_displayzf3zf3_2124, BgL_arg1631z00_813, BgL_arg1632z00_814);}  else 
{ /* ./Pp/pp.scm 135 */
if(
CBOOL(BgL_colz00_807))
{ /* ./Pp/pp.scm 141 */
obj_t BgL__andtest_1005z00_1920;
BgL__andtest_1005z00_1920 = 
PROCEDURE_ENTRY(BgL_outputz00_2125)(BgL_outputz00_2125, BGl_string3804z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1920))
{ /* ./Pp/pp.scm 141 */
long BgL_auxz00_4284;
{ /* ./Pp/pp.scm 141 */
long BgL_auxz00_4287;long BgL_auxz00_4285;
{ /* ./Pp/pp.scm 141 */
int BgL_auxz00_4288;
BgL_auxz00_4288 = 
STRING_LENGTH(BGl_string3804z00zz__ppz00); 
BgL_auxz00_4287 = 
(long)(BgL_auxz00_4288); } 
BgL_auxz00_4285 = 
(long)CINT(BgL_colz00_807); 
BgL_auxz00_4284 = 
(BgL_auxz00_4285+BgL_auxz00_4287); } 
return 
BINT(BgL_auxz00_4284);}  else 
{ /* ./Pp/pp.scm 141 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 141 */
return BFALSE;} } } 
}



/* loop_2443 */
obj_t BGl_loop_2443z00zz__ppz00(long BgL_arg1522z00_2129, obj_t BgL_arg1525z00_2128, obj_t BgL_objz00_2127, obj_t BgL_outputz00_2126, long BgL_jz00_1738)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 184 */
BGl_loop_2443z00zz__ppz00:
{ /* ./Pp/pp.scm 184 */
bool_t BgL_test1530z00_1739;
if(
CBOOL(BgL_arg1525z00_2128))
{ /* ./Pp/pp.scm 184 */
long BgL_auxz00_4295;
{ /* ./Pp/pp.scm 184 */
int BgL_auxz00_4296;
BgL_auxz00_4296 = 
STRING_LENGTH(BgL_objz00_2127); 
BgL_auxz00_4295 = 
(long)(BgL_auxz00_4296); } 
BgL_test1530z00_1739 = 
(BgL_jz00_1738<BgL_auxz00_4295); }  else 
{ /* ./Pp/pp.scm 184 */
BgL_test1530z00_1739 = ((bool_t)0); } 
if(BgL_test1530z00_1739)
{ 
long BgL_jz00_4301;
BgL_jz00_4301 = 
(BgL_jz00_1738+((long)1)); 
BgL_jz00_1738 = BgL_jz00_4301; 
goto BGl_loop_2443z00zz__ppz00;}  else 
{ /* ./Pp/pp.scm 184 */
obj_t BgL_auxz00_4303;
{ /* ./Pp/pp.scm 184 */
obj_t BgL_auxz00_4304;
{ /* ./Pp/pp.scm 184 */
int BgL_auxz00_4307;int BgL_auxz00_4305;
BgL_auxz00_4307 = 
(int)(BgL_jz00_1738); 
BgL_auxz00_4305 = 
(int)(BgL_arg1522z00_2129); 
BgL_auxz00_4304 = 
c_substring(BgL_objz00_2127, BgL_auxz00_4305, BgL_auxz00_4307); } 
BgL_auxz00_4303 = 
BGl_outz00zz__ppz00(BgL_outputz00_2126, BgL_auxz00_4304, BgL_arg1525z00_2128); } 
return 
BGl_outz00zz__ppz00(BgL_outputz00_2126, BGl_string3805z00zz__ppz00, BgL_auxz00_4303);} } } 
}



/* loop_2444 */
obj_t BGl_loop_2444z00zz__ppz00(obj_t BgL_outputz00_2131, obj_t BgL_displayzf3zf3_2130, obj_t BgL_lz00_810, obj_t BgL_colz00_811)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 136 */
BGl_loop_2444z00zz__ppz00:
if(
CBOOL(BgL_colz00_811))
{ /* ./Pp/pp.scm 137 */
if(
PAIRP(BgL_lz00_810))
{ /* ./Pp/pp.scm 138 */
{ /* ./Pp/pp.scm 138 */
obj_t BgL_arg1643z00_819;obj_t BgL_arg1644z00_820;
BgL_arg1643z00_819 = 
CDR(BgL_lz00_810); 
{ /* ./Pp/pp.scm 138 */
obj_t BgL_arg1648z00_821;obj_t BgL_arg1649z00_822;
BgL_arg1648z00_821 = 
CAR(BgL_lz00_810); 
if(
CBOOL(BgL_colz00_811))
{ /* ./Pp/pp.scm 138 */
obj_t BgL__andtest_1005z00_1887;
BgL__andtest_1005z00_1887 = 
PROCEDURE_ENTRY(BgL_outputz00_2131)(BgL_outputz00_2131, BGl_string3806z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1887))
{ /* ./Pp/pp.scm 138 */
long BgL_auxz00_4324;
{ /* ./Pp/pp.scm 138 */
long BgL_auxz00_4327;long BgL_auxz00_4325;
{ /* ./Pp/pp.scm 138 */
int BgL_auxz00_4328;
BgL_auxz00_4328 = 
STRING_LENGTH(BGl_string3806z00zz__ppz00); 
BgL_auxz00_4327 = 
(long)(BgL_auxz00_4328); } 
BgL_auxz00_4325 = 
(long)CINT(BgL_colz00_811); 
BgL_auxz00_4324 = 
(BgL_auxz00_4325+BgL_auxz00_4327); } 
BgL_arg1649z00_822 = 
BINT(BgL_auxz00_4324); }  else 
{ /* ./Pp/pp.scm 138 */
BgL_arg1649z00_822 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 138 */
BgL_arg1649z00_822 = BFALSE; } 
BgL_arg1644z00_820 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2130, BgL_outputz00_2131, BgL_arg1648z00_821, BgL_arg1649z00_822); } 
{ 
obj_t BgL_colz00_4335;obj_t BgL_lz00_4334;
BgL_lz00_4334 = BgL_arg1643z00_819; 
BgL_colz00_4335 = BgL_arg1644z00_820; 
BgL_colz00_811 = BgL_colz00_4335; 
BgL_lz00_810 = BgL_lz00_4334; 
goto BGl_loop_2444z00zz__ppz00;} } }  else 
{ /* ./Pp/pp.scm 138 */
if(
NULLP(BgL_lz00_810))
{ /* ./Pp/pp.scm 139 */
if(
CBOOL(BgL_colz00_811))
{ /* ./Pp/pp.scm 139 */
obj_t BgL__andtest_1005z00_1896;
BgL__andtest_1005z00_1896 = 
PROCEDURE_ENTRY(BgL_outputz00_2131)(BgL_outputz00_2131, BGl_string3807z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1896))
{ /* ./Pp/pp.scm 139 */
long BgL_auxz00_4344;
{ /* ./Pp/pp.scm 139 */
long BgL_auxz00_4347;long BgL_auxz00_4345;
{ /* ./Pp/pp.scm 139 */
int BgL_auxz00_4348;
BgL_auxz00_4348 = 
STRING_LENGTH(BGl_string3807z00zz__ppz00); 
BgL_auxz00_4347 = 
(long)(BgL_auxz00_4348); } 
BgL_auxz00_4345 = 
(long)CINT(BgL_colz00_811); 
BgL_auxz00_4344 = 
(BgL_auxz00_4345+BgL_auxz00_4347); } 
return 
BINT(BgL_auxz00_4344);}  else 
{ /* ./Pp/pp.scm 139 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 139 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 139 */
{ /* ./Pp/pp.scm 140 */
obj_t BgL_arg1657z00_825;
{ /* ./Pp/pp.scm 140 */
obj_t BgL_arg1660z00_826;
if(
CBOOL(BgL_colz00_811))
{ /* ./Pp/pp.scm 140 */
obj_t BgL__andtest_1005z00_1904;
BgL__andtest_1005z00_1904 = 
PROCEDURE_ENTRY(BgL_outputz00_2131)(BgL_outputz00_2131, BGl_string3808z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1904))
{ /* ./Pp/pp.scm 140 */
long BgL_auxz00_4359;
{ /* ./Pp/pp.scm 140 */
long BgL_auxz00_4362;long BgL_auxz00_4360;
{ /* ./Pp/pp.scm 140 */
int BgL_auxz00_4363;
BgL_auxz00_4363 = 
STRING_LENGTH(BGl_string3808z00zz__ppz00); 
BgL_auxz00_4362 = 
(long)(BgL_auxz00_4363); } 
BgL_auxz00_4360 = 
(long)CINT(BgL_colz00_811); 
BgL_auxz00_4359 = 
(BgL_auxz00_4360+BgL_auxz00_4362); } 
BgL_arg1660z00_826 = 
BINT(BgL_auxz00_4359); }  else 
{ /* ./Pp/pp.scm 140 */
BgL_arg1660z00_826 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 140 */
BgL_arg1660z00_826 = BFALSE; } 
BgL_arg1657z00_825 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2130, BgL_outputz00_2131, BgL_lz00_810, BgL_arg1660z00_826); } 
if(
CBOOL(BgL_arg1657z00_825))
{ /* ./Pp/pp.scm 140 */
obj_t BgL__andtest_1005z00_1912;
BgL__andtest_1005z00_1912 = 
PROCEDURE_ENTRY(BgL_outputz00_2131)(BgL_outputz00_2131, BGl_string3807z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1912))
{ /* ./Pp/pp.scm 140 */
long BgL_auxz00_4375;
{ /* ./Pp/pp.scm 140 */
long BgL_auxz00_4378;long BgL_auxz00_4376;
{ /* ./Pp/pp.scm 140 */
int BgL_auxz00_4379;
BgL_auxz00_4379 = 
STRING_LENGTH(BGl_string3807z00zz__ppz00); 
BgL_auxz00_4378 = 
(long)(BgL_auxz00_4379); } 
BgL_auxz00_4376 = 
(long)CINT(BgL_arg1657z00_825); 
BgL_auxz00_4375 = 
(BgL_auxz00_4376+BgL_auxz00_4378); } 
return 
BINT(BgL_auxz00_4375);}  else 
{ /* ./Pp/pp.scm 140 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 140 */
return BFALSE;} } } } }  else 
{ /* ./Pp/pp.scm 137 */
return BFALSE;} } 
}



/* loop */
obj_t BGl_loopz00zz__ppz00(obj_t BgL_ppzd2itemzd2_2154, obj_t BgL_extraz00_2153, obj_t BgL_outputz00_2152, obj_t BgL_col2z00_2151, obj_t BgL_ppzd2exprzd2_2150, obj_t BgL_displayzf3zf3_2149, obj_t BgL_maxzd2exprzd2widthz00_2148, obj_t BgL_widthz00_2147, obj_t BgL_maxzd2callzd2headzd2widthzd2_2146, obj_t BgL_ppzd2lambdazd2_2145, obj_t BgL_ppzd2definezd2_2144, obj_t BgL_ppzd2defunzd2_2143, obj_t BgL_ppzd2ifzd2_2142, obj_t BgL_ppzd2condzd2_2141, obj_t BgL_ppzd2casezd2_2140, obj_t BgL_ppzd2andzd2_2139, obj_t BgL_ppzd2letzd2_2138, obj_t BgL_ppzd2beginzd2_2137, obj_t BgL_ppzd2dozd2_2136, obj_t BgL_ppzd2commentzd2_2135, obj_t BgL_ppzd2exprzd2listz00_2134, obj_t BgL_indentzd2generalzd2_2133, obj_t BgL_ppzd2exprzd2defunz00_2132, obj_t BgL_lz00_593, obj_t BgL_colz00_594)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 286 */
BGl_loopz00zz__ppz00:
if(
CBOOL(BgL_colz00_594))
{ /* ./Pp/pp.scm 287 */
if(
PAIRP(BgL_lz00_593))
{ /* ./Pp/pp.scm 288 */
{ /* ./Pp/pp.scm 289 */
obj_t BgL_restz00_598;
BgL_restz00_598 = 
CDR(BgL_lz00_593); 
{ /* ./Pp/pp.scm 290 */
long BgL_extraz00_599;
if(
NULLP(BgL_restz00_598))
{ /* ./Pp/pp.scm 290 */
long BgL_auxz00_4391;
BgL_auxz00_4391 = 
(long)CINT(BgL_extraz00_2153); 
BgL_extraz00_599 = 
(BgL_auxz00_4391+((long)1)); }  else 
{ /* ./Pp/pp.scm 290 */
BgL_extraz00_599 = ((long)0); } 
{ /* ./Pp/pp.scm 292 */
obj_t BgL_arg1260z00_600;
{ /* ./Pp/pp.scm 292 */
obj_t BgL_arg1265z00_601;obj_t BgL_arg1266z00_602;
BgL_arg1265z00_601 = 
CAR(BgL_lz00_593); 
BgL_arg1266z00_602 = 
BGl_indentz00zz__ppz00(BgL_outputz00_2152, BgL_col2z00_2151, BgL_colz00_594); 
BgL_arg1260z00_600 = 
BGl_prz00zz__ppz00(BgL_ppzd2exprzd2_2150, BgL_outputz00_2152, BgL_displayzf3zf3_2149, BgL_maxzd2exprzd2widthz00_2148, BgL_widthz00_2147, BgL_maxzd2callzd2headzd2widthzd2_2146, BgL_ppzd2lambdazd2_2145, BgL_ppzd2definezd2_2144, BgL_ppzd2defunzd2_2143, BgL_ppzd2ifzd2_2142, BgL_ppzd2condzd2_2141, BgL_ppzd2casezd2_2140, BgL_ppzd2andzd2_2139, BgL_ppzd2letzd2_2138, BgL_ppzd2beginzd2_2137, BgL_ppzd2dozd2_2136, BgL_ppzd2commentzd2_2135, BgL_ppzd2exprzd2listz00_2134, BgL_indentzd2generalzd2_2133, BgL_ppzd2exprzd2defunz00_2132, BgL_arg1265z00_601, BgL_arg1266z00_602, 
BINT(BgL_extraz00_599), BgL_ppzd2itemzd2_2154); } 
{ 
obj_t BgL_colz00_4399;obj_t BgL_lz00_4398;
BgL_lz00_4398 = BgL_restz00_598; 
BgL_colz00_4399 = BgL_arg1260z00_600; 
BgL_colz00_594 = BgL_colz00_4399; 
BgL_lz00_593 = BgL_lz00_4398; 
goto BGl_loopz00zz__ppz00;} } } } }  else 
{ /* ./Pp/pp.scm 288 */
if(
NULLP(BgL_lz00_593))
{ /* ./Pp/pp.scm 293 */
if(
CBOOL(BgL_colz00_594))
{ /* ./Pp/pp.scm 294 */
obj_t BgL__andtest_1005z00_1389;
BgL__andtest_1005z00_1389 = 
PROCEDURE_ENTRY(BgL_outputz00_2152)(BgL_outputz00_2152, BGl_string3807z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1389))
{ /* ./Pp/pp.scm 294 */
long BgL_auxz00_4408;
{ /* ./Pp/pp.scm 294 */
long BgL_auxz00_4411;long BgL_auxz00_4409;
{ /* ./Pp/pp.scm 294 */
int BgL_auxz00_4412;
BgL_auxz00_4412 = 
STRING_LENGTH(BGl_string3807z00zz__ppz00); 
BgL_auxz00_4411 = 
(long)(BgL_auxz00_4412); } 
BgL_auxz00_4409 = 
(long)CINT(BgL_colz00_594); 
BgL_auxz00_4408 = 
(BgL_auxz00_4409+BgL_auxz00_4411); } 
return 
BINT(BgL_auxz00_4408);}  else 
{ /* ./Pp/pp.scm 294 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 294 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 293 */
{ /* ./Pp/pp.scm 296 */
obj_t BgL_arg1278z00_606;
{ /* ./Pp/pp.scm 298 */
obj_t BgL_arg1281z00_607;long BgL_arg1282z00_608;
{ /* ./Pp/pp.scm 298 */
obj_t BgL_arg1285z00_609;
{ /* ./Pp/pp.scm 298 */
obj_t BgL_arg1289z00_611;
BgL_arg1289z00_611 = 
BGl_indentz00zz__ppz00(BgL_outputz00_2152, BgL_col2z00_2151, BgL_colz00_594); 
if(
CBOOL(BgL_arg1289z00_611))
{ /* ./Pp/pp.scm 298 */
obj_t BgL__andtest_1005z00_1397;
BgL__andtest_1005z00_1397 = 
PROCEDURE_ENTRY(BgL_outputz00_2152)(BgL_outputz00_2152, BGl_string3809z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1397))
{ /* ./Pp/pp.scm 298 */
long BgL_auxz00_4424;
{ /* ./Pp/pp.scm 298 */
long BgL_auxz00_4427;long BgL_auxz00_4425;
{ /* ./Pp/pp.scm 298 */
int BgL_auxz00_4428;
BgL_auxz00_4428 = 
STRING_LENGTH(BGl_string3809z00zz__ppz00); 
BgL_auxz00_4427 = 
(long)(BgL_auxz00_4428); } 
BgL_auxz00_4425 = 
(long)CINT(BgL_arg1289z00_611); 
BgL_auxz00_4424 = 
(BgL_auxz00_4425+BgL_auxz00_4427); } 
BgL_arg1285z00_609 = 
BINT(BgL_auxz00_4424); }  else 
{ /* ./Pp/pp.scm 298 */
BgL_arg1285z00_609 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 298 */
BgL_arg1285z00_609 = BFALSE; } } 
BgL_arg1281z00_607 = 
BGl_indentz00zz__ppz00(BgL_outputz00_2152, BgL_col2z00_2151, BgL_arg1285z00_609); } 
{ /* ./Pp/pp.scm 299 */
long BgL_auxz00_4434;
BgL_auxz00_4434 = 
(long)CINT(BgL_extraz00_2153); 
BgL_arg1282z00_608 = 
(BgL_auxz00_4434+((long)1)); } 
BgL_arg1278z00_606 = 
BGl_prz00zz__ppz00(BgL_ppzd2exprzd2_2150, BgL_outputz00_2152, BgL_displayzf3zf3_2149, BgL_maxzd2exprzd2widthz00_2148, BgL_widthz00_2147, BgL_maxzd2callzd2headzd2widthzd2_2146, BgL_ppzd2lambdazd2_2145, BgL_ppzd2definezd2_2144, BgL_ppzd2defunzd2_2143, BgL_ppzd2ifzd2_2142, BgL_ppzd2condzd2_2141, BgL_ppzd2casezd2_2140, BgL_ppzd2andzd2_2139, BgL_ppzd2letzd2_2138, BgL_ppzd2beginzd2_2137, BgL_ppzd2dozd2_2136, BgL_ppzd2commentzd2_2135, BgL_ppzd2exprzd2listz00_2134, BgL_indentzd2generalzd2_2133, BgL_ppzd2exprzd2defunz00_2132, BgL_lz00_593, BgL_arg1281z00_607, 
BINT(BgL_arg1282z00_608), BgL_ppzd2itemzd2_2154); } 
if(
CBOOL(BgL_arg1278z00_606))
{ /* ./Pp/pp.scm 296 */
obj_t BgL__andtest_1005z00_1407;
BgL__andtest_1005z00_1407 = 
PROCEDURE_ENTRY(BgL_outputz00_2152)(BgL_outputz00_2152, BGl_string3807z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1407))
{ /* ./Pp/pp.scm 296 */
long BgL_auxz00_4445;
{ /* ./Pp/pp.scm 296 */
long BgL_auxz00_4448;long BgL_auxz00_4446;
{ /* ./Pp/pp.scm 296 */
int BgL_auxz00_4449;
BgL_auxz00_4449 = 
STRING_LENGTH(BGl_string3807z00zz__ppz00); 
BgL_auxz00_4448 = 
(long)(BgL_auxz00_4449); } 
BgL_auxz00_4446 = 
(long)CINT(BgL_arg1278z00_606); 
BgL_auxz00_4445 = 
(BgL_auxz00_4446+BgL_auxz00_4448); } 
return 
BINT(BgL_auxz00_4445);}  else 
{ /* ./Pp/pp.scm 296 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 296 */
return BFALSE;} } } } }  else 
{ /* ./Pp/pp.scm 287 */
return BFALSE;} } 
}



/* pr */
obj_t BGl_prz00zz__ppz00(obj_t BgL_ppzd2exprzd2_2174, obj_t BgL_outputz00_2173, obj_t BgL_displayzf3zf3_2172, obj_t BgL_maxzd2exprzd2widthz00_2171, obj_t BgL_widthz00_2170, obj_t BgL_maxzd2callzd2headzd2widthzd2_2169, obj_t BgL_ppzd2lambdazd2_2168, obj_t BgL_ppzd2definezd2_2167, obj_t BgL_ppzd2defunzd2_2166, obj_t BgL_ppzd2ifzd2_2165, obj_t BgL_ppzd2condzd2_2164, obj_t BgL_ppzd2casezd2_2163, obj_t BgL_ppzd2andzd2_2162, obj_t BgL_ppzd2letzd2_2161, obj_t BgL_ppzd2beginzd2_2160, obj_t BgL_ppzd2dozd2_2159, obj_t BgL_ppzd2commentzd2_2158, obj_t BgL_ppzd2exprzd2listz00_2157, obj_t BgL_indentzd2generalzd2_2156, obj_t BgL_ppzd2exprzd2defunz00_2155, obj_t BgL_objz00_655, obj_t BgL_colz00_656, obj_t BgL_extraz00_657, obj_t BgL_ppzd2pairzd2_658)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 243 */
{ /* ./Pp/pp.scm 228 */
bool_t BgL_test1356z00_660;
if(
PAIRP(BgL_objz00_655))
{ /* ./Pp/pp.scm 228 */
BgL_test1356z00_660 = ((bool_t)1); }  else 
{ /* ./Pp/pp.scm 228 */
BgL_test1356z00_660 = 
VECTORP(BgL_objz00_655); } 
if(BgL_test1356z00_660)
{ /* ./Pp/pp.scm 229 */
obj_t BgL_resultz00_661;obj_t BgL_leftz00_662;
BgL_resultz00_661 = 
MAKE_CELL(BNIL); 
{ /* ./Pp/pp.scm 230 */
obj_t BgL_cellvalz00_4458;
{ /* ./Pp/pp.scm 230 */
long BgL_arg1387z00_674;
{ /* ./Pp/pp.scm 230 */
long BgL_auxz00_4459;
{ /* ./Pp/pp.scm 230 */
long BgL_auxz00_4466;long BgL_auxz00_4460;
BgL_auxz00_4466 = 
(long)CINT(BgL_extraz00_657); 
{ /* ./Pp/pp.scm 230 */
long BgL_auxz00_4463;long BgL_auxz00_4461;
BgL_auxz00_4463 = 
(long)CINT(BgL_colz00_656); 
BgL_auxz00_4461 = 
(long)CINT(BgL_widthz00_2170); 
BgL_auxz00_4460 = 
(BgL_auxz00_4461-BgL_auxz00_4463); } 
BgL_auxz00_4459 = 
(BgL_auxz00_4460-BgL_auxz00_4466); } 
BgL_arg1387z00_674 = 
(BgL_auxz00_4459+((long)1)); } 
{ /* ./Pp/pp.scm 230 */
obj_t BgL_list1389z00_675;
{ /* ./Pp/pp.scm 230 */
obj_t BgL_auxz00_4470;
BgL_auxz00_4470 = 
CELL_REF(BgL_maxzd2exprzd2widthz00_2171); 
BgL_list1389z00_675 = 
MAKE_PAIR(BgL_auxz00_4470, BNIL); } 
BgL_cellvalz00_4458 = 
BGl_minz00zz__r4_numbers_6_5z00(
BINT(BgL_arg1387z00_674), BgL_list1389z00_675); } } 
BgL_leftz00_662 = 
MAKE_CELL(BgL_cellvalz00_4458); } 
{ /* ./Pp/pp.scm 233 */
obj_t BgL_zc3anonymousza31360ze3z83_2097;
{ 
int BgL_auxz00_4476;int BgL_auxz00_4474;
BgL_auxz00_4476 = 
(int)(((long)2)); 
BgL_auxz00_4474 = 
(int)(((long)1)); 
BgL_zc3anonymousza31360ze3z83_2097 = 
make_fx_procedure(BGl_zc3anonymousza31360ze3z83zz__ppz00, BgL_auxz00_4474, BgL_auxz00_4476); } 
{ /* ./Pp/pp.scm 233 */
int BgL_auxz00_4479;
BgL_auxz00_4479 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31360ze3z83_2097, BgL_auxz00_4479, BgL_resultz00_661); } 
{ /* ./Pp/pp.scm 233 */
int BgL_auxz00_4482;
BgL_auxz00_4482 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31360ze3z83_2097, BgL_auxz00_4482, BgL_leftz00_662); } 
BGl_genericzd2writezd2zz__ppz00(BgL_objz00_655, BgL_displayzf3zf3_2172, BFALSE, BgL_zc3anonymousza31360ze3z83_2097); } 
{ /* ./Pp/pp.scm 236 */
bool_t BgL_test1367z00_668;
{ /* ./Pp/pp.scm 236 */
long BgL_n1z00_1515;
{ /* ./Pp/pp.scm 236 */
obj_t BgL_auxz00_4486;
BgL_auxz00_4486 = 
CELL_REF(BgL_leftz00_662); 
BgL_n1z00_1515 = 
(long)CINT(BgL_auxz00_4486); } 
BgL_test1367z00_668 = 
(BgL_n1z00_1515>((long)0)); } 
if(BgL_test1367z00_668)
{ /* ./Pp/pp.scm 237 */
obj_t BgL_arg1370z00_669;
BgL_arg1370z00_669 = 
BGl_reversezd2stringzd2appendz00zz__ppz00(
CELL_REF(BgL_resultz00_661)); 
if(
CBOOL(BgL_colz00_656))
{ /* ./Pp/pp.scm 237 */
obj_t BgL__andtest_1005z00_1520;
BgL__andtest_1005z00_1520 = 
PROCEDURE_ENTRY(BgL_outputz00_2173)(BgL_outputz00_2173, BgL_arg1370z00_669, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1520))
{ /* ./Pp/pp.scm 237 */
long BgL_auxz00_4497;
{ /* ./Pp/pp.scm 237 */
long BgL_auxz00_4500;long BgL_auxz00_4498;
{ /* ./Pp/pp.scm 237 */
int BgL_auxz00_4501;
BgL_auxz00_4501 = 
STRING_LENGTH(BgL_arg1370z00_669); 
BgL_auxz00_4500 = 
(long)(BgL_auxz00_4501); } 
BgL_auxz00_4498 = 
(long)CINT(BgL_colz00_656); 
BgL_auxz00_4497 = 
(BgL_auxz00_4498+BgL_auxz00_4500); } 
return 
BINT(BgL_auxz00_4497);}  else 
{ /* ./Pp/pp.scm 237 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 237 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 236 */
if(
PAIRP(BgL_objz00_655))
{ /* ./Pp/pp.scm 238 */
return 
PROCEDURE_ENTRY(BgL_ppzd2pairzd2_658)(BgL_ppzd2pairzd2_658, BgL_objz00_655, BgL_colz00_656, BgL_extraz00_657, BEOA);}  else 
{ /* ./Pp/pp.scm 240 */
obj_t BgL_arg1376z00_671;obj_t BgL_arg1377z00_672;
BgL_arg1376z00_671 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_objz00_655); 
{ /* ./Pp/pp.scm 241 */
obj_t BgL_arg1381z00_673;
BgL_arg1381z00_673 = 
BGl_vectorzd2prefixzd2zz__ppz00(BgL_objz00_655); 
if(
CBOOL(BgL_colz00_656))
{ /* ./Pp/pp.scm 241 */
obj_t BgL__andtest_1005z00_1529;
BgL__andtest_1005z00_1529 = 
PROCEDURE_ENTRY(BgL_outputz00_2173)(BgL_outputz00_2173, BgL_arg1381z00_673, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1529))
{ /* ./Pp/pp.scm 241 */
long BgL_auxz00_4518;
{ /* ./Pp/pp.scm 241 */
long BgL_auxz00_4521;long BgL_auxz00_4519;
{ /* ./Pp/pp.scm 241 */
int BgL_auxz00_4522;
BgL_auxz00_4522 = 
STRING_LENGTH(BgL_arg1381z00_673); 
BgL_auxz00_4521 = 
(long)(BgL_auxz00_4522); } 
BgL_auxz00_4519 = 
(long)CINT(BgL_colz00_656); 
BgL_auxz00_4518 = 
(BgL_auxz00_4519+BgL_auxz00_4521); } 
BgL_arg1377z00_672 = 
BINT(BgL_auxz00_4518); }  else 
{ /* ./Pp/pp.scm 241 */
BgL_arg1377z00_672 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 241 */
BgL_arg1377z00_672 = BFALSE; } } 
{ /* ./Pp/pp.scm 240 */
obj_t BgL_colz00_1537;
BgL_colz00_1537 = 
BGl_outz00zz__ppz00(BgL_outputz00_2173, BGl_string3803z00zz__ppz00, BgL_arg1377z00_672); 
{ /* ./Pp/pp.scm 240 */
obj_t BgL_maxzd2exprzd2widthz00_2581;obj_t BgL_maxzd2callzd2headzd2widthzd2_2583;obj_t BgL_indentzd2generalzd2_2596;
BgL_maxzd2exprzd2widthz00_2581 = BgL_maxzd2exprzd2widthz00_2171; 
BgL_maxzd2callzd2headzd2widthzd2_2583 = BgL_maxzd2callzd2headzd2widthzd2_2169; 
BgL_indentzd2generalzd2_2596 = BgL_indentzd2generalzd2_2156; 
return 
BGl_loopz00zz__ppz00(BgL_ppzd2exprzd2_2174, BgL_extraz00_657, BgL_outputz00_2173, BgL_colz00_1537, BgL_ppzd2exprzd2_2174, BgL_displayzf3zf3_2172, BgL_maxzd2exprzd2widthz00_2581, BgL_widthz00_2170, BgL_maxzd2callzd2headzd2widthzd2_2583, BgL_ppzd2lambdazd2_2168, BgL_ppzd2definezd2_2167, BgL_ppzd2defunzd2_2166, BgL_ppzd2ifzd2_2165, BgL_ppzd2condzd2_2164, BgL_ppzd2casezd2_2163, BgL_ppzd2andzd2_2162, BgL_ppzd2letzd2_2161, BgL_ppzd2beginzd2_2160, BgL_ppzd2dozd2_2159, BgL_ppzd2commentzd2_2158, BgL_ppzd2exprzd2listz00_2157, BgL_indentzd2generalzd2_2596, BgL_ppzd2exprzd2defunz00_2155, BgL_arg1376z00_671, BgL_colz00_1537);} } } } } }  else 
{ /* ./Pp/pp.scm 228 */
return 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2172, BgL_outputz00_2173, BgL_objz00_655, BgL_colz00_656);} } } 
}



/* indent */
obj_t BGl_indentz00zz__ppz00(obj_t BgL_outputz00_2175, obj_t BgL_toz00_680, obj_t BgL_colz00_681)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 225 */
if(
CBOOL(BgL_colz00_681))
{ /* ./Pp/pp.scm 223 */
bool_t BgL_testz00_4532;
{ /* ./Pp/pp.scm 223 */
long BgL_auxz00_4535;long BgL_auxz00_4533;
BgL_auxz00_4535 = 
(long)CINT(BgL_colz00_681); 
BgL_auxz00_4533 = 
(long)CINT(BgL_toz00_680); 
BgL_testz00_4532 = 
(BgL_auxz00_4533<BgL_auxz00_4535); } 
if(BgL_testz00_4532)
{ /* ./Pp/pp.scm 224 */
obj_t BgL__andtest_1008z00_685;
{ /* ./Pp/pp.scm 224 */
obj_t BgL_arg1407z00_686;
{ /* ./Pp/pp.scm 224 */
obj_t BgL_list1410z00_687;
{ /* ./Pp/pp.scm 224 */
obj_t BgL_auxz00_4538;
BgL_auxz00_4538 = 
BCHAR(((unsigned char)'\n')); 
BgL_list1410z00_687 = 
MAKE_PAIR(BgL_auxz00_4538, BNIL); } 
{ /* ./Pp/pp.scm 224 */
obj_t BgL_res2436z00_1546;
{ /* ./Pp/pp.scm 224 */
int BgL_kz00_1540;
BgL_kz00_1540 = 
(int)(((long)1)); 
{ /* ./Pp/pp.scm 224 */
obj_t BgL_arg2219z00_1543;
BgL_arg2219z00_1543 = 
CAR(BgL_list1410z00_687); 
{ /* ./Pp/pp.scm 224 */
unsigned char BgL_auxz00_4543;
BgL_auxz00_4543 = 
(unsigned char)CCHAR(BgL_arg2219z00_1543); 
BgL_res2436z00_1546 = 
make_string(BgL_kz00_1540, BgL_auxz00_4543); } } } 
BgL_arg1407z00_686 = BgL_res2436z00_1546; } } 
if(
CBOOL(BgL_colz00_681))
{ /* ./Pp/pp.scm 224 */
obj_t BgL__andtest_1005z00_1550;
BgL__andtest_1005z00_1550 = 
PROCEDURE_ENTRY(BgL_outputz00_2175)(BgL_outputz00_2175, BgL_arg1407z00_686, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1550))
{ /* ./Pp/pp.scm 224 */
long BgL_auxz00_4552;
{ /* ./Pp/pp.scm 224 */
long BgL_auxz00_4555;long BgL_auxz00_4553;
{ /* ./Pp/pp.scm 224 */
int BgL_auxz00_4556;
BgL_auxz00_4556 = 
STRING_LENGTH(BgL_arg1407z00_686); 
BgL_auxz00_4555 = 
(long)(BgL_auxz00_4556); } 
BgL_auxz00_4553 = 
(long)CINT(BgL_colz00_681); 
BgL_auxz00_4552 = 
(BgL_auxz00_4553+BgL_auxz00_4555); } 
BgL__andtest_1008z00_685 = 
BINT(BgL_auxz00_4552); }  else 
{ /* ./Pp/pp.scm 224 */
BgL__andtest_1008z00_685 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 224 */
BgL__andtest_1008z00_685 = BFALSE; } } 
if(
CBOOL(BgL__andtest_1008z00_685))
{ /* ./Pp/pp.scm 224 */
return 
BGl_spacesz00zz__ppz00(BgL_outputz00_2175, BgL_toz00_680, 
BINT(((long)0)));}  else 
{ /* ./Pp/pp.scm 224 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 225 */
long BgL_arg1413z00_688;
{ /* ./Pp/pp.scm 225 */
long BgL_auxz00_4567;long BgL_auxz00_4565;
BgL_auxz00_4567 = 
(long)CINT(BgL_colz00_681); 
BgL_auxz00_4565 = 
(long)CINT(BgL_toz00_680); 
BgL_arg1413z00_688 = 
(BgL_auxz00_4565-BgL_auxz00_4567); } 
return 
BGl_spacesz00zz__ppz00(BgL_outputz00_2175, 
BINT(BgL_arg1413z00_688), BgL_colz00_681);} }  else 
{ /* ./Pp/pp.scm 222 */
return BFALSE;} } 
}



/* spaces */
obj_t BGl_spacesz00zz__ppz00(obj_t BgL_outputz00_2176, obj_t BgL_nz00_689, obj_t BgL_colz00_690)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 219 */
BGl_spacesz00zz__ppz00:
{ /* ./Pp/pp.scm 215 */
bool_t BgL_testz00_4572;
{ /* ./Pp/pp.scm 215 */
long BgL_auxz00_4573;
BgL_auxz00_4573 = 
(long)CINT(BgL_nz00_689); 
BgL_testz00_4572 = 
(BgL_auxz00_4573>((long)0)); } 
if(BgL_testz00_4572)
{ /* ./Pp/pp.scm 216 */
bool_t BgL_testz00_4576;
{ /* ./Pp/pp.scm 216 */
long BgL_auxz00_4577;
BgL_auxz00_4577 = 
(long)CINT(BgL_nz00_689); 
BgL_testz00_4576 = 
(BgL_auxz00_4577>((long)7)); } 
if(BgL_testz00_4576)
{ /* ./Pp/pp.scm 217 */
long BgL_arg1421z00_694;obj_t BgL_arg1422z00_695;
{ /* ./Pp/pp.scm 217 */
long BgL_auxz00_4580;
BgL_auxz00_4580 = 
(long)CINT(BgL_nz00_689); 
BgL_arg1421z00_694 = 
(BgL_auxz00_4580-((long)8)); } 
if(
CBOOL(BgL_colz00_690))
{ /* ./Pp/pp.scm 217 */
obj_t BgL__andtest_1005z00_1566;
BgL__andtest_1005z00_1566 = 
PROCEDURE_ENTRY(BgL_outputz00_2176)(BgL_outputz00_2176, BGl_string3810z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1566))
{ /* ./Pp/pp.scm 217 */
long BgL_auxz00_4589;
{ /* ./Pp/pp.scm 217 */
long BgL_auxz00_4592;long BgL_auxz00_4590;
{ /* ./Pp/pp.scm 217 */
int BgL_auxz00_4593;
BgL_auxz00_4593 = 
STRING_LENGTH(BGl_string3810z00zz__ppz00); 
BgL_auxz00_4592 = 
(long)(BgL_auxz00_4593); } 
BgL_auxz00_4590 = 
(long)CINT(BgL_colz00_690); 
BgL_auxz00_4589 = 
(BgL_auxz00_4590+BgL_auxz00_4592); } 
BgL_arg1422z00_695 = 
BINT(BgL_auxz00_4589); }  else 
{ /* ./Pp/pp.scm 217 */
BgL_arg1422z00_695 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 217 */
BgL_arg1422z00_695 = BFALSE; } 
{ 
obj_t BgL_colz00_4600;obj_t BgL_nz00_4598;
BgL_nz00_4598 = 
BINT(BgL_arg1421z00_694); 
BgL_colz00_4600 = BgL_arg1422z00_695; 
BgL_colz00_690 = BgL_colz00_4600; 
BgL_nz00_689 = BgL_nz00_4598; 
goto BGl_spacesz00zz__ppz00;} }  else 
{ /* ./Pp/pp.scm 218 */
obj_t BgL_arg1427z00_696;
{ /* ./Pp/pp.scm 218 */
int BgL_auxz00_4603;int BgL_auxz00_4601;
BgL_auxz00_4603 = 
CINT(BgL_nz00_689); 
BgL_auxz00_4601 = 
(int)(((long)0)); 
BgL_arg1427z00_696 = 
c_substring(BGl_string3810z00zz__ppz00, BgL_auxz00_4601, BgL_auxz00_4603); } 
if(
CBOOL(BgL_colz00_690))
{ /* ./Pp/pp.scm 218 */
obj_t BgL__andtest_1005z00_1577;
BgL__andtest_1005z00_1577 = 
PROCEDURE_ENTRY(BgL_outputz00_2176)(BgL_outputz00_2176, BgL_arg1427z00_696, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1577))
{ /* ./Pp/pp.scm 218 */
long BgL_auxz00_4612;
{ /* ./Pp/pp.scm 218 */
long BgL_auxz00_4615;long BgL_auxz00_4613;
{ /* ./Pp/pp.scm 218 */
int BgL_auxz00_4616;
BgL_auxz00_4616 = 
STRING_LENGTH(BgL_arg1427z00_696); 
BgL_auxz00_4615 = 
(long)(BgL_auxz00_4616); } 
BgL_auxz00_4613 = 
(long)CINT(BgL_colz00_690); 
BgL_auxz00_4612 = 
(BgL_auxz00_4613+BgL_auxz00_4615); } 
return 
BINT(BgL_auxz00_4612);}  else 
{ /* ./Pp/pp.scm 218 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 218 */
return BFALSE;} } }  else 
{ /* ./Pp/pp.scm 215 */
return BgL_colz00_690;} } } 
}



/* pp-general */
obj_t BGl_ppzd2generalzd2zz__ppz00(obj_t BgL_indentzd2generalzd2_2196, obj_t BgL_outputz00_2195, obj_t BgL_displayzf3zf3_2194, obj_t BgL_ppzd2exprzd2_2193, obj_t BgL_maxzd2exprzd2widthz00_2192, obj_t BgL_widthz00_2191, obj_t BgL_maxzd2callzd2headzd2widthzd2_2190, obj_t BgL_ppzd2lambdazd2_2189, obj_t BgL_ppzd2definezd2_2188, obj_t BgL_ppzd2defunzd2_2187, obj_t BgL_ppzd2ifzd2_2186, obj_t BgL_ppzd2condzd2_2185, obj_t BgL_ppzd2casezd2_2184, obj_t BgL_ppzd2andzd2_2183, obj_t BgL_ppzd2letzd2_2182, obj_t BgL_ppzd2beginzd2_2181, obj_t BgL_ppzd2dozd2_2180, obj_t BgL_ppzd2commentzd2_2179, obj_t BgL_ppzd2exprzd2listz00_2178, obj_t BgL_ppzd2exprzd2defunz00_2177, obj_t BgL_exprz00_532, obj_t BgL_colz00_533, obj_t BgL_extraz00_534, bool_t BgL_namedzf3zf3_535, obj_t BgL_ppzd21zd2_536, obj_t BgL_ppzd22zd2_537, obj_t BgL_ppzd23zd2_538)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 310 */
{ /* ./Pp/pp.scm 323 */
obj_t BgL_headz00_543;
BgL_headz00_543 = 
CAR(BgL_exprz00_532); 
{ /* ./Pp/pp.scm 323 */
obj_t BgL_restz00_544;
BgL_restz00_544 = 
CDR(BgL_exprz00_532); 
{ /* ./Pp/pp.scm 324 */
obj_t BgL_colza2za2_545;
{ /* ./Pp/pp.scm 325 */
obj_t BgL_arg1217z00_555;
if(
CBOOL(BgL_colz00_533))
{ /* ./Pp/pp.scm 325 */
obj_t BgL__andtest_1005z00_1243;
BgL__andtest_1005z00_1243 = 
PROCEDURE_ENTRY(BgL_outputz00_2195)(BgL_outputz00_2195, BGl_string3803z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1243))
{ /* ./Pp/pp.scm 325 */
long BgL_auxz00_4629;
{ /* ./Pp/pp.scm 325 */
long BgL_auxz00_4632;long BgL_auxz00_4630;
{ /* ./Pp/pp.scm 325 */
int BgL_auxz00_4633;
BgL_auxz00_4633 = 
STRING_LENGTH(BGl_string3803z00zz__ppz00); 
BgL_auxz00_4632 = 
(long)(BgL_auxz00_4633); } 
BgL_auxz00_4630 = 
(long)CINT(BgL_colz00_533); 
BgL_auxz00_4629 = 
(BgL_auxz00_4630+BgL_auxz00_4632); } 
BgL_arg1217z00_555 = 
BINT(BgL_auxz00_4629); }  else 
{ /* ./Pp/pp.scm 325 */
BgL_arg1217z00_555 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 325 */
BgL_arg1217z00_555 = BFALSE; } 
BgL_colza2za2_545 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2194, BgL_outputz00_2195, BgL_headz00_543, BgL_arg1217z00_555); } 
{ /* ./Pp/pp.scm 325 */

{ /* ./Pp/pp.scm 326 */
bool_t BgL_test1196z00_546;
if(BgL_namedzf3zf3_535)
{ /* ./Pp/pp.scm 326 */
BgL_test1196z00_546 = 
PAIRP(BgL_restz00_544); }  else 
{ /* ./Pp/pp.scm 326 */
BgL_test1196z00_546 = ((bool_t)0); } 
if(BgL_test1196z00_546)
{ /* ./Pp/pp.scm 327 */
obj_t BgL_namez00_547;
BgL_namez00_547 = 
CAR(BgL_restz00_544); 
{ /* ./Pp/pp.scm 327 */
obj_t BgL_restz00_548;
BgL_restz00_548 = 
CDR(BgL_restz00_544); 
{ /* ./Pp/pp.scm 328 */
obj_t BgL_colza2za2z00_549;
{ /* ./Pp/pp.scm 329 */
obj_t BgL_arg1204z00_552;
if(
CBOOL(BgL_colza2za2_545))
{ /* ./Pp/pp.scm 329 */
obj_t BgL__andtest_1005z00_1254;
BgL__andtest_1005z00_1254 = 
PROCEDURE_ENTRY(BgL_outputz00_2195)(BgL_outputz00_2195, BGl_string3806z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1254))
{ /* ./Pp/pp.scm 329 */
long BgL_auxz00_4650;
{ /* ./Pp/pp.scm 329 */
long BgL_auxz00_4653;long BgL_auxz00_4651;
{ /* ./Pp/pp.scm 329 */
int BgL_auxz00_4654;
BgL_auxz00_4654 = 
STRING_LENGTH(BGl_string3806z00zz__ppz00); 
BgL_auxz00_4653 = 
(long)(BgL_auxz00_4654); } 
BgL_auxz00_4651 = 
(long)CINT(BgL_colza2za2_545); 
BgL_auxz00_4650 = 
(BgL_auxz00_4651+BgL_auxz00_4653); } 
BgL_arg1204z00_552 = 
BINT(BgL_auxz00_4650); }  else 
{ /* ./Pp/pp.scm 329 */
BgL_arg1204z00_552 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 329 */
BgL_arg1204z00_552 = BFALSE; } 
BgL_colza2za2z00_549 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2194, BgL_outputz00_2195, BgL_namez00_547, BgL_arg1204z00_552); } 
{ /* ./Pp/pp.scm 329 */

{ /* ./Pp/pp.scm 330 */
long BgL_arg1198z00_550;long BgL_arg1199z00_551;
{ /* ./Pp/pp.scm 330 */
long BgL_za71za7_1259;long BgL_za72za7_1260;
BgL_za71za7_1259 = 
(long)CINT(BgL_colz00_533); 
{ /* ./Pp/pp.scm 330 */
obj_t BgL_auxz00_4661;
BgL_auxz00_4661 = 
CELL_REF(BgL_indentzd2generalzd2_2196); 
BgL_za72za7_1260 = 
(long)CINT(BgL_auxz00_4661); } 
BgL_arg1198z00_550 = 
(BgL_za71za7_1259+BgL_za72za7_1260); } 
{ /* ./Pp/pp.scm 330 */
long BgL_auxz00_4664;
BgL_auxz00_4664 = 
(long)CINT(BgL_colza2za2z00_549); 
BgL_arg1199z00_551 = 
(BgL_auxz00_4664+((long)1)); } 
{ /* ./Pp/pp.scm 330 */
bool_t BgL_test1241z00_1267;
if(
CBOOL(BgL_ppzd21zd2_536))
{ /* ./Pp/pp.scm 330 */
BgL_test1241z00_1267 = 
PAIRP(BgL_restz00_548); }  else 
{ /* ./Pp/pp.scm 330 */
BgL_test1241z00_1267 = ((bool_t)0); } 
if(BgL_test1241z00_1267)
{ /* ./Pp/pp.scm 330 */
obj_t BgL_val1z00_1268;
BgL_val1z00_1268 = 
CAR(BgL_restz00_548); 
{ /* ./Pp/pp.scm 330 */
obj_t BgL_restz00_1269;
BgL_restz00_1269 = 
CDR(BgL_restz00_548); 
{ /* ./Pp/pp.scm 330 */
long BgL_extraz00_1270;
if(
NULLP(BgL_restz00_1269))
{ /* ./Pp/pp.scm 330 */
long BgL_auxz00_4675;
BgL_auxz00_4675 = 
(long)CINT(BgL_extraz00_534); 
BgL_extraz00_1270 = 
(BgL_auxz00_4675+((long)1)); }  else 
{ /* ./Pp/pp.scm 330 */
BgL_extraz00_1270 = ((long)0); } 
{ /* ./Pp/pp.scm 330 */

{ /* ./Pp/pp.scm 330 */
obj_t BgL_arg1243z00_1272;
{ /* ./Pp/pp.scm 330 */
obj_t BgL_arg1246z00_1273;
BgL_arg1246z00_1273 = 
BGl_indentz00zz__ppz00(BgL_outputz00_2195, 
BINT(BgL_arg1199z00_551), BgL_colza2za2z00_549); 
BgL_arg1243z00_1272 = 
BGl_prz00zz__ppz00(BgL_ppzd2exprzd2_2193, BgL_outputz00_2195, BgL_displayzf3zf3_2194, BgL_maxzd2exprzd2widthz00_2192, BgL_widthz00_2191, BgL_maxzd2callzd2headzd2widthzd2_2190, BgL_ppzd2lambdazd2_2189, BgL_ppzd2definezd2_2188, BgL_ppzd2defunzd2_2187, BgL_ppzd2ifzd2_2186, BgL_ppzd2condzd2_2185, BgL_ppzd2casezd2_2184, BgL_ppzd2andzd2_2183, BgL_ppzd2letzd2_2182, BgL_ppzd2beginzd2_2181, BgL_ppzd2dozd2_2180, BgL_ppzd2commentzd2_2179, BgL_ppzd2exprzd2listz00_2178, BgL_indentzd2generalzd2_2196, BgL_ppzd2exprzd2defunz00_2177, BgL_val1z00_1268, BgL_arg1246z00_1273, 
BINT(BgL_extraz00_1270), BgL_ppzd21zd2_536); } 
return 
BGl_tail2z00zz__ppz00(BgL_ppzd23zd2_538, BgL_extraz00_534, BgL_ppzd22zd2_537, BgL_outputz00_2195, BgL_ppzd2exprzd2_2193, BgL_displayzf3zf3_2194, BgL_maxzd2exprzd2widthz00_2192, BgL_widthz00_2191, BgL_maxzd2callzd2headzd2widthzd2_2190, BgL_ppzd2lambdazd2_2189, BgL_ppzd2definezd2_2188, BgL_ppzd2defunzd2_2187, BgL_ppzd2ifzd2_2186, BgL_ppzd2condzd2_2185, BgL_ppzd2casezd2_2184, BgL_ppzd2andzd2_2183, BgL_ppzd2letzd2_2182, BgL_ppzd2beginzd2_2181, BgL_ppzd2dozd2_2180, BgL_ppzd2commentzd2_2179, BgL_ppzd2exprzd2listz00_2178, BgL_indentzd2generalzd2_2196, BgL_ppzd2exprzd2defunz00_2177, BgL_restz00_1269, BgL_arg1198z00_550, BgL_arg1243z00_1272, BgL_arg1199z00_551);} } } } }  else 
{ /* ./Pp/pp.scm 330 */
return 
BGl_tail2z00zz__ppz00(BgL_ppzd23zd2_538, BgL_extraz00_534, BgL_ppzd22zd2_537, BgL_outputz00_2195, BgL_ppzd2exprzd2_2193, BgL_displayzf3zf3_2194, BgL_maxzd2exprzd2widthz00_2192, BgL_widthz00_2191, BgL_maxzd2callzd2headzd2widthzd2_2190, BgL_ppzd2lambdazd2_2189, BgL_ppzd2definezd2_2188, BgL_ppzd2defunzd2_2187, BgL_ppzd2ifzd2_2186, BgL_ppzd2condzd2_2185, BgL_ppzd2casezd2_2184, BgL_ppzd2andzd2_2183, BgL_ppzd2letzd2_2182, BgL_ppzd2beginzd2_2181, BgL_ppzd2dozd2_2180, BgL_ppzd2commentzd2_2179, BgL_ppzd2exprzd2listz00_2178, BgL_indentzd2generalzd2_2196, BgL_ppzd2exprzd2defunz00_2177, BgL_restz00_548, BgL_arg1198z00_550, BgL_colza2za2z00_549, BgL_arg1199z00_551);} } } } } } }  else 
{ /* ./Pp/pp.scm 331 */
long BgL_arg1210z00_553;long BgL_arg1211z00_554;
{ /* ./Pp/pp.scm 331 */
long BgL_za71za7_1280;long BgL_za72za7_1281;
BgL_za71za7_1280 = 
(long)CINT(BgL_colz00_533); 
{ /* ./Pp/pp.scm 331 */
obj_t BgL_auxz00_4685;
BgL_auxz00_4685 = 
CELL_REF(BgL_indentzd2generalzd2_2196); 
BgL_za72za7_1281 = 
(long)CINT(BgL_auxz00_4685); } 
BgL_arg1210z00_553 = 
(BgL_za71za7_1280+BgL_za72za7_1281); } 
{ /* ./Pp/pp.scm 331 */
long BgL_auxz00_4688;
BgL_auxz00_4688 = 
(long)CINT(BgL_colza2za2_545); 
BgL_arg1211z00_554 = 
(BgL_auxz00_4688+((long)1)); } 
{ /* ./Pp/pp.scm 331 */
bool_t BgL_test1241z00_1288;
if(
CBOOL(BgL_ppzd21zd2_536))
{ /* ./Pp/pp.scm 331 */
BgL_test1241z00_1288 = 
PAIRP(BgL_restz00_544); }  else 
{ /* ./Pp/pp.scm 331 */
BgL_test1241z00_1288 = ((bool_t)0); } 
if(BgL_test1241z00_1288)
{ /* ./Pp/pp.scm 331 */
obj_t BgL_val1z00_1289;
BgL_val1z00_1289 = 
CAR(BgL_restz00_544); 
{ /* ./Pp/pp.scm 331 */
obj_t BgL_restz00_1290;
BgL_restz00_1290 = 
CDR(BgL_restz00_544); 
{ /* ./Pp/pp.scm 331 */
long BgL_extraz00_1291;
if(
NULLP(BgL_restz00_1290))
{ /* ./Pp/pp.scm 331 */
long BgL_auxz00_4699;
BgL_auxz00_4699 = 
(long)CINT(BgL_extraz00_534); 
BgL_extraz00_1291 = 
(BgL_auxz00_4699+((long)1)); }  else 
{ /* ./Pp/pp.scm 331 */
BgL_extraz00_1291 = ((long)0); } 
{ /* ./Pp/pp.scm 331 */

{ /* ./Pp/pp.scm 331 */
obj_t BgL_arg1243z00_1293;
{ /* ./Pp/pp.scm 331 */
obj_t BgL_arg1246z00_1294;
BgL_arg1246z00_1294 = 
BGl_indentz00zz__ppz00(BgL_outputz00_2195, 
BINT(BgL_arg1211z00_554), BgL_colza2za2_545); 
BgL_arg1243z00_1293 = 
BGl_prz00zz__ppz00(BgL_ppzd2exprzd2_2193, BgL_outputz00_2195, BgL_displayzf3zf3_2194, BgL_maxzd2exprzd2widthz00_2192, BgL_widthz00_2191, BgL_maxzd2callzd2headzd2widthzd2_2190, BgL_ppzd2lambdazd2_2189, BgL_ppzd2definezd2_2188, BgL_ppzd2defunzd2_2187, BgL_ppzd2ifzd2_2186, BgL_ppzd2condzd2_2185, BgL_ppzd2casezd2_2184, BgL_ppzd2andzd2_2183, BgL_ppzd2letzd2_2182, BgL_ppzd2beginzd2_2181, BgL_ppzd2dozd2_2180, BgL_ppzd2commentzd2_2179, BgL_ppzd2exprzd2listz00_2178, BgL_indentzd2generalzd2_2196, BgL_ppzd2exprzd2defunz00_2177, BgL_val1z00_1289, BgL_arg1246z00_1294, 
BINT(BgL_extraz00_1291), BgL_ppzd21zd2_536); } 
return 
BGl_tail2z00zz__ppz00(BgL_ppzd23zd2_538, BgL_extraz00_534, BgL_ppzd22zd2_537, BgL_outputz00_2195, BgL_ppzd2exprzd2_2193, BgL_displayzf3zf3_2194, BgL_maxzd2exprzd2widthz00_2192, BgL_widthz00_2191, BgL_maxzd2callzd2headzd2widthzd2_2190, BgL_ppzd2lambdazd2_2189, BgL_ppzd2definezd2_2188, BgL_ppzd2defunzd2_2187, BgL_ppzd2ifzd2_2186, BgL_ppzd2condzd2_2185, BgL_ppzd2casezd2_2184, BgL_ppzd2andzd2_2183, BgL_ppzd2letzd2_2182, BgL_ppzd2beginzd2_2181, BgL_ppzd2dozd2_2180, BgL_ppzd2commentzd2_2179, BgL_ppzd2exprzd2listz00_2178, BgL_indentzd2generalzd2_2196, BgL_ppzd2exprzd2defunz00_2177, BgL_restz00_1290, BgL_arg1210z00_553, BgL_arg1243z00_1293, BgL_arg1211z00_554);} } } } }  else 
{ /* ./Pp/pp.scm 331 */
return 
BGl_tail2z00zz__ppz00(BgL_ppzd23zd2_538, BgL_extraz00_534, BgL_ppzd22zd2_537, BgL_outputz00_2195, BgL_ppzd2exprzd2_2193, BgL_displayzf3zf3_2194, BgL_maxzd2exprzd2widthz00_2192, BgL_widthz00_2191, BgL_maxzd2callzd2headzd2widthzd2_2190, BgL_ppzd2lambdazd2_2189, BgL_ppzd2definezd2_2188, BgL_ppzd2defunzd2_2187, BgL_ppzd2ifzd2_2186, BgL_ppzd2condzd2_2185, BgL_ppzd2casezd2_2184, BgL_ppzd2andzd2_2183, BgL_ppzd2letzd2_2182, BgL_ppzd2beginzd2_2181, BgL_ppzd2dozd2_2180, BgL_ppzd2commentzd2_2179, BgL_ppzd2exprzd2listz00_2178, BgL_indentzd2generalzd2_2196, BgL_ppzd2exprzd2defunz00_2177, BgL_restz00_544, BgL_arg1210z00_553, BgL_colza2za2_545, BgL_arg1211z00_554);} } } } } } } } } 
}



/* tail2 */
obj_t BGl_tail2z00zz__ppz00(obj_t BgL_ppzd23zd2_2219, obj_t BgL_extraz00_2218, obj_t BgL_ppzd22zd2_2217, obj_t BgL_outputz00_2216, obj_t BgL_ppzd2exprzd2_2215, obj_t BgL_displayzf3zf3_2214, obj_t BgL_maxzd2exprzd2widthz00_2213, obj_t BgL_widthz00_2212, obj_t BgL_maxzd2callzd2headzd2widthzd2_2211, obj_t BgL_ppzd2lambdazd2_2210, obj_t BgL_ppzd2definezd2_2209, obj_t BgL_ppzd2defunzd2_2208, obj_t BgL_ppzd2ifzd2_2207, obj_t BgL_ppzd2condzd2_2206, obj_t BgL_ppzd2casezd2_2205, obj_t BgL_ppzd2andzd2_2204, obj_t BgL_ppzd2letzd2_2203, obj_t BgL_ppzd2beginzd2_2202, obj_t BgL_ppzd2dozd2_2201, obj_t BgL_ppzd2commentzd2_2200, obj_t BgL_ppzd2exprzd2listz00_2199, obj_t BgL_indentzd2generalzd2_2198, obj_t BgL_ppzd2exprzd2defunz00_2197, obj_t BgL_restz00_560, long BgL_col1z00_561, obj_t BgL_col2z00_562, long BgL_col3z00_563)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 318 */
{ /* ./Pp/pp.scm 313 */
bool_t BgL_test1225z00_1301;
if(
CBOOL(BgL_ppzd22zd2_2217))
{ /* ./Pp/pp.scm 313 */
BgL_test1225z00_1301 = 
PAIRP(BgL_restz00_560); }  else 
{ /* ./Pp/pp.scm 313 */
BgL_test1225z00_1301 = ((bool_t)0); } 
if(BgL_test1225z00_1301)
{ /* ./Pp/pp.scm 313 */
obj_t BgL_val1z00_1302;
BgL_val1z00_1302 = 
CAR(BgL_restz00_560); 
{ /* ./Pp/pp.scm 313 */
obj_t BgL_restz00_1303;
BgL_restz00_1303 = 
CDR(BgL_restz00_560); 
{ /* ./Pp/pp.scm 313 */
long BgL_extraz00_1304;
if(
NULLP(BgL_restz00_1303))
{ /* ./Pp/pp.scm 313 */
long BgL_auxz00_4716;
BgL_auxz00_4716 = 
(long)CINT(BgL_extraz00_2218); 
BgL_extraz00_1304 = 
(BgL_auxz00_4716+((long)1)); }  else 
{ /* ./Pp/pp.scm 313 */
BgL_extraz00_1304 = ((long)0); } 
{ /* ./Pp/pp.scm 313 */

{ /* ./Pp/pp.scm 313 */
obj_t BgL_arg1227z00_1306;
{ /* ./Pp/pp.scm 313 */
obj_t BgL_arg1230z00_1307;
BgL_arg1230z00_1307 = 
BGl_indentz00zz__ppz00(BgL_outputz00_2216, 
BINT(BgL_col3z00_563), BgL_col2z00_562); 
BgL_arg1227z00_1306 = 
BGl_prz00zz__ppz00(BgL_ppzd2exprzd2_2215, BgL_outputz00_2216, BgL_displayzf3zf3_2214, BgL_maxzd2exprzd2widthz00_2213, BgL_widthz00_2212, BgL_maxzd2callzd2headzd2widthzd2_2211, BgL_ppzd2lambdazd2_2210, BgL_ppzd2definezd2_2209, BgL_ppzd2defunzd2_2208, BgL_ppzd2ifzd2_2207, BgL_ppzd2condzd2_2206, BgL_ppzd2casezd2_2205, BgL_ppzd2andzd2_2204, BgL_ppzd2letzd2_2203, BgL_ppzd2beginzd2_2202, BgL_ppzd2dozd2_2201, BgL_ppzd2commentzd2_2200, BgL_ppzd2exprzd2listz00_2199, BgL_indentzd2generalzd2_2198, BgL_ppzd2exprzd2defunz00_2197, BgL_val1z00_1302, BgL_arg1230z00_1307, 
BINT(BgL_extraz00_1304), BgL_ppzd22zd2_2217); } 
{ /* ./Pp/pp.scm 313 */
obj_t BgL_maxzd2exprzd2widthz00_2606;obj_t BgL_maxzd2callzd2headzd2widthzd2_2608;obj_t BgL_indentzd2generalzd2_2621;obj_t BgL_col2z00_2625;
BgL_maxzd2exprzd2widthz00_2606 = BgL_maxzd2exprzd2widthz00_2213; 
BgL_maxzd2callzd2headzd2widthzd2_2608 = BgL_maxzd2callzd2headzd2widthzd2_2211; 
BgL_indentzd2generalzd2_2621 = BgL_indentzd2generalzd2_2198; 
BgL_col2z00_2625 = 
BINT(BgL_col1z00_561); 
return 
BGl_loopz00zz__ppz00(BgL_ppzd23zd2_2219, BgL_extraz00_2218, BgL_outputz00_2216, BgL_col2z00_2625, BgL_ppzd2exprzd2_2215, BgL_displayzf3zf3_2214, BgL_maxzd2exprzd2widthz00_2606, BgL_widthz00_2212, BgL_maxzd2callzd2headzd2widthzd2_2608, BgL_ppzd2lambdazd2_2210, BgL_ppzd2definezd2_2209, BgL_ppzd2defunzd2_2208, BgL_ppzd2ifzd2_2207, BgL_ppzd2condzd2_2206, BgL_ppzd2casezd2_2205, BgL_ppzd2andzd2_2204, BgL_ppzd2letzd2_2203, BgL_ppzd2beginzd2_2202, BgL_ppzd2dozd2_2201, BgL_ppzd2commentzd2_2200, BgL_ppzd2exprzd2listz00_2199, BgL_indentzd2generalzd2_2621, BgL_ppzd2exprzd2defunz00_2197, BgL_restz00_1303, BgL_arg1227z00_1306);} } } } } }  else 
{ /* ./Pp/pp.scm 313 */
obj_t BgL_maxzd2exprzd2widthz00_2631;obj_t BgL_maxzd2callzd2headzd2widthzd2_2633;obj_t BgL_indentzd2generalzd2_2646;obj_t BgL_col2z00_2650;
BgL_maxzd2exprzd2widthz00_2631 = BgL_maxzd2exprzd2widthz00_2213; 
BgL_maxzd2callzd2headzd2widthzd2_2633 = BgL_maxzd2callzd2headzd2widthzd2_2211; 
BgL_indentzd2generalzd2_2646 = BgL_indentzd2generalzd2_2198; 
BgL_col2z00_2650 = 
BINT(BgL_col1z00_561); 
return 
BGl_loopz00zz__ppz00(BgL_ppzd23zd2_2219, BgL_extraz00_2218, BgL_outputz00_2216, BgL_col2z00_2650, BgL_ppzd2exprzd2_2215, BgL_displayzf3zf3_2214, BgL_maxzd2exprzd2widthz00_2631, BgL_widthz00_2212, BgL_maxzd2callzd2headzd2widthzd2_2633, BgL_ppzd2lambdazd2_2210, BgL_ppzd2definezd2_2209, BgL_ppzd2defunzd2_2208, BgL_ppzd2ifzd2_2207, BgL_ppzd2condzd2_2206, BgL_ppzd2casezd2_2205, BgL_ppzd2andzd2_2204, BgL_ppzd2letzd2_2203, BgL_ppzd2beginzd2_2202, BgL_ppzd2dozd2_2201, BgL_ppzd2commentzd2_2200, BgL_ppzd2exprzd2listz00_2199, BgL_indentzd2generalzd2_2646, BgL_ppzd2exprzd2defunz00_2197, BgL_restz00_560, BgL_col2z00_562);} } } 
}



/* TAG-111 */
obj_t BGl_TAGzd2111zd2zz__ppz00(obj_t BgL_ppzd2exprzd2_2242, obj_t BgL_extraz00_2241, obj_t BgL_colz00_2240, obj_t BgL_exprz00_2239, obj_t BgL_outputz00_2238, obj_t BgL_maxzd2callzd2headzd2widthzd2_2237, obj_t BgL_ppzd2lambdazd2_2236, obj_t BgL_ppzd2definezd2_2235, obj_t BgL_ppzd2defunzd2_2234, obj_t BgL_ppzd2ifzd2_2233, obj_t BgL_ppzd2condzd2_2232, obj_t BgL_ppzd2casezd2_2231, obj_t BgL_ppzd2andzd2_2230, obj_t BgL_ppzd2letzd2_2229, obj_t BgL_ppzd2beginzd2_2228, obj_t BgL_ppzd2dozd2_2227, obj_t BgL_ppzd2commentzd2_2226, obj_t BgL_ppzd2exprzd2listz00_2225, obj_t BgL_displayzf3zf3_2224, obj_t BgL_maxzd2exprzd2widthz00_2223, obj_t BgL_widthz00_2222, obj_t BgL_indentzd2generalzd2_2221, obj_t BgL_ppzd2exprzd2defunz00_2220)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 364 */
return 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2221, BgL_outputz00_2238, BgL_displayzf3zf3_2224, BgL_ppzd2exprzd2_2242, BgL_maxzd2exprzd2widthz00_2223, BgL_widthz00_2222, BgL_maxzd2callzd2headzd2widthzd2_2237, BgL_ppzd2lambdazd2_2236, BgL_ppzd2definezd2_2235, BgL_ppzd2defunzd2_2234, BgL_ppzd2ifzd2_2233, BgL_ppzd2condzd2_2232, BgL_ppzd2casezd2_2231, BgL_ppzd2andzd2_2230, BgL_ppzd2letzd2_2229, BgL_ppzd2beginzd2_2228, BgL_ppzd2dozd2_2227, BgL_ppzd2commentzd2_2226, BgL_ppzd2exprzd2listz00_2225, BgL_ppzd2exprzd2defunz00_2220, BgL_exprz00_2239, BgL_colz00_2240, BgL_extraz00_2241, ((bool_t)0), BgL_ppzd2exprzd2_2242, BFALSE, BgL_ppzd2exprzd2_2242);} 
}



/* <anonymous:1360> */
obj_t BGl_zc3anonymousza31360ze3z83zz__ppz00(obj_t BgL_envz00_2243, obj_t BgL_strz00_2246)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 232 */
{ /* ./Pp/pp.scm 233 */
obj_t BgL_resultz00_2244;obj_t BgL_leftz00_2245;
{ /* ./Pp/pp.scm 233 */
int BgL_auxz00_4728;
BgL_auxz00_4728 = 
(int)(((long)0)); 
BgL_resultz00_2244 = 
PROCEDURE_REF(BgL_envz00_2243, BgL_auxz00_4728); } 
{ /* ./Pp/pp.scm 233 */
int BgL_auxz00_4731;
BgL_auxz00_4731 = 
(int)(((long)1)); 
BgL_leftz00_2245 = 
PROCEDURE_REF(BgL_envz00_2243, BgL_auxz00_4731); } 
{ 
obj_t BgL_strz00_664;
{ /* ./Pp/pp.scm 233 */
bool_t BgL_auxz00_4734;
BgL_strz00_664 = BgL_strz00_2246; 
{ /* ./Pp/pp.scm 233 */
obj_t BgL_auxz00_2247;
{ /* ./Pp/pp.scm 233 */
obj_t BgL_auxz00_4735;
BgL_auxz00_4735 = 
CELL_REF(BgL_resultz00_2244); 
BgL_auxz00_2247 = 
MAKE_PAIR(BgL_strz00_664, BgL_auxz00_4735); } 
CELL_SET(BgL_resultz00_2244, BgL_auxz00_2247); } 
{ /* ./Pp/pp.scm 234 */
obj_t BgL_auxz00_2248;
{ /* ./Pp/pp.scm 234 */
int BgL_arg1363z00_1509;
BgL_arg1363z00_1509 = 
STRING_LENGTH(BgL_strz00_664); 
{ /* ./Pp/pp.scm 234 */
long BgL_za71za7_1511;long BgL_za72za7_1512;
{ /* ./Pp/pp.scm 234 */
obj_t BgL_auxz00_4738;
BgL_auxz00_4738 = 
CELL_REF(BgL_leftz00_2245); 
BgL_za71za7_1511 = 
(long)CINT(BgL_auxz00_4738); } 
BgL_za72za7_1512 = 
(long)(BgL_arg1363z00_1509); 
{ /* ./Pp/pp.scm 234 */
long BgL_auxz00_4741;
BgL_auxz00_4741 = 
(BgL_za71za7_1511-BgL_za72za7_1512); 
BgL_auxz00_2248 = 
BINT(BgL_auxz00_4741); } } } 
CELL_SET(BgL_leftz00_2245, BgL_auxz00_2248); } 
{ /* ./Pp/pp.scm 234 */
long BgL_n1z00_1513;
{ /* ./Pp/pp.scm 234 */
obj_t BgL_auxz00_4744;
BgL_auxz00_4744 = 
CELL_REF(BgL_leftz00_2245); 
BgL_n1z00_1513 = 
(long)CINT(BgL_auxz00_4744); } 
BgL_auxz00_4734 = 
(BgL_n1z00_1513>((long)0)); } 
return 
BBOOL(BgL_auxz00_4734);} } } } 
}



/* pp-expr-defun */
obj_t BGl_ppzd2exprzd2defunz00zz__ppz00(obj_t BgL_envz00_2249, obj_t BgL_lz00_2269, obj_t BgL_colz00_2270, obj_t BgL_extraz00_2271)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 337 */
{ /* ./Pp/pp.scm 337 */
obj_t BgL_indentzd2generalzd2_2250;obj_t BgL_widthz00_2251;obj_t BgL_maxzd2exprzd2widthz00_2252;obj_t BgL_displayzf3zf3_2253;obj_t BgL_ppzd2exprzd2listz00_2254;obj_t BgL_ppzd2commentzd2_2255;obj_t BgL_ppzd2dozd2_2256;obj_t BgL_ppzd2beginzd2_2257;obj_t BgL_ppzd2letzd2_2258;obj_t BgL_ppzd2andzd2_2259;obj_t BgL_ppzd2casezd2_2260;obj_t BgL_ppzd2condzd2_2261;obj_t BgL_ppzd2ifzd2_2262;obj_t BgL_ppzd2defunzd2_2263;obj_t BgL_ppzd2definezd2_2264;obj_t BgL_ppzd2lambdazd2_2265;obj_t BgL_maxzd2callzd2headzd2widthzd2_2266;obj_t BgL_outputz00_2267;obj_t BgL_ppzd2exprzd2_2268;
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4748;
BgL_auxz00_4748 = 
(int)(((long)0)); 
BgL_indentzd2generalzd2_2250 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4748); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4751;
BgL_auxz00_4751 = 
(int)(((long)1)); 
BgL_widthz00_2251 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4751); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4754;
BgL_auxz00_4754 = 
(int)(((long)2)); 
BgL_maxzd2exprzd2widthz00_2252 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4754); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4757;
BgL_auxz00_4757 = 
(int)(((long)3)); 
BgL_displayzf3zf3_2253 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4757); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4760;
BgL_auxz00_4760 = 
(int)(((long)4)); 
BgL_ppzd2exprzd2listz00_2254 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4760); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4763;
BgL_auxz00_4763 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2255 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4763); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4766;
BgL_auxz00_4766 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2256 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4766); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4769;
BgL_auxz00_4769 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2257 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4769); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4772;
BgL_auxz00_4772 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2258 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4772); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4775;
BgL_auxz00_4775 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2259 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4775); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4778;
BgL_auxz00_4778 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2260 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4778); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4781;
BgL_auxz00_4781 = 
(int)(((long)11)); 
BgL_ppzd2condzd2_2261 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4781); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4784;
BgL_auxz00_4784 = 
(int)(((long)12)); 
BgL_ppzd2ifzd2_2262 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4784); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4787;
BgL_auxz00_4787 = 
(int)(((long)13)); 
BgL_ppzd2defunzd2_2263 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4787); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4790;
BgL_auxz00_4790 = 
(int)(((long)14)); 
BgL_ppzd2definezd2_2264 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4790); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4793;
BgL_auxz00_4793 = 
(int)(((long)15)); 
BgL_ppzd2lambdazd2_2265 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4793); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4796;
BgL_auxz00_4796 = 
(int)(((long)16)); 
BgL_maxzd2callzd2headzd2widthzd2_2266 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4796); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4799;
BgL_auxz00_4799 = 
(int)(((long)17)); 
BgL_outputz00_2267 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4799); } 
{ /* ./Pp/pp.scm 337 */
int BgL_auxz00_4802;
BgL_auxz00_4802 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2_2268 = 
PROCEDURE_REF(BgL_envz00_2249, BgL_auxz00_4802); } 
{ 
obj_t BgL_lz00_524;obj_t BgL_colz00_525;obj_t BgL_extraz00_526;
BgL_lz00_524 = BgL_lz00_2269; 
BgL_colz00_525 = BgL_colz00_2270; 
BgL_extraz00_526 = BgL_extraz00_2271; 
{ /* ./Pp/pp.scm 337 */
obj_t BgL_colz00_1216;
BgL_colz00_1216 = 
BGl_outz00zz__ppz00(BgL_outputz00_2267, BGl_string3811z00zz__ppz00, BgL_colz00_525); 
{ /* ./Pp/pp.scm 337 */
obj_t BgL_col2z00_1217;
BgL_col2z00_1217 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2253, BgL_outputz00_2267, 
CAR(BgL_lz00_524), BgL_colz00_1216); 
{ /* ./Pp/pp.scm 337 */
obj_t BgL_col3z00_1219;
{ /* ./Pp/pp.scm 337 */
obj_t BgL_auxz00_4808;
{ /* ./Pp/pp.scm 337 */
obj_t BgL_auxz00_4809;
BgL_auxz00_4809 = 
CDR(BgL_lz00_524); 
BgL_auxz00_4808 = 
CAR(BgL_auxz00_4809); } 
BgL_col3z00_1219 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2253, BgL_outputz00_2267, BgL_auxz00_4808, BgL_col2z00_1217); } 
{ /* ./Pp/pp.scm 337 */

{ /* ./Pp/pp.scm 337 */
obj_t BgL_arg1297z00_1221;long BgL_arg1298z00_1222;
{ /* ./Pp/pp.scm 337 */
obj_t BgL_auxz00_4813;
BgL_auxz00_4813 = 
CDR(BgL_lz00_524); 
BgL_arg1297z00_1221 = 
CDR(BgL_auxz00_4813); } 
{ /* ./Pp/pp.scm 337 */
long BgL_auxz00_4816;
BgL_auxz00_4816 = 
(long)CINT(BgL_col3z00_1219); 
BgL_arg1298z00_1222 = 
(BgL_auxz00_4816+((long)1)); } 
{ /* ./Pp/pp.scm 337 */
obj_t BgL_maxzd2exprzd2widthz00_2656;obj_t BgL_maxzd2callzd2headzd2widthzd2_2658;obj_t BgL_indentzd2generalzd2_2671;obj_t BgL_col2z00_2675;
BgL_maxzd2exprzd2widthz00_2656 = BgL_maxzd2exprzd2widthz00_2252; 
BgL_maxzd2callzd2headzd2widthzd2_2658 = BgL_maxzd2callzd2headzd2widthzd2_2266; 
BgL_indentzd2generalzd2_2671 = BgL_indentzd2generalzd2_2250; 
BgL_col2z00_2675 = 
BINT(BgL_arg1298z00_1222); 
return 
BGl_loopz00zz__ppz00(BgL_ppzd2exprzd2_2268, BgL_extraz00_526, BgL_outputz00_2267, BgL_col2z00_2675, BgL_ppzd2exprzd2_2268, BgL_displayzf3zf3_2253, BgL_maxzd2exprzd2widthz00_2656, BgL_widthz00_2251, BgL_maxzd2callzd2headzd2widthzd2_2658, BgL_ppzd2lambdazd2_2265, BgL_ppzd2definezd2_2264, BgL_ppzd2defunzd2_2263, BgL_ppzd2ifzd2_2262, BgL_ppzd2condzd2_2261, BgL_ppzd2casezd2_2260, BgL_ppzd2andzd2_2259, BgL_ppzd2letzd2_2258, BgL_ppzd2beginzd2_2257, BgL_ppzd2dozd2_2256, BgL_ppzd2commentzd2_2255, BgL_ppzd2exprzd2listz00_2254, BgL_indentzd2generalzd2_2671, BgL_envz00_2249, BgL_arg1297z00_1221, BgL_col3z00_1219);} } } } } } } } } 
}



/* pp-expr */
obj_t BGl_ppzd2exprzd2zz__ppz00(obj_t BgL_envz00_2272, obj_t BgL_exprz00_2292, obj_t BgL_colz00_2293, obj_t BgL_extraz00_2294)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 260 */
{ /* ./Pp/pp.scm 246 */
obj_t BgL_ppzd2exprzd2defunz00_2273;obj_t BgL_indentzd2generalzd2_2274;obj_t BgL_widthz00_2275;obj_t BgL_maxzd2exprzd2widthz00_2276;obj_t BgL_displayzf3zf3_2277;obj_t BgL_ppzd2exprzd2listz00_2278;obj_t BgL_ppzd2commentzd2_2279;obj_t BgL_ppzd2dozd2_2280;obj_t BgL_ppzd2beginzd2_2281;obj_t BgL_ppzd2letzd2_2282;obj_t BgL_ppzd2andzd2_2283;obj_t BgL_ppzd2casezd2_2284;obj_t BgL_ppzd2condzd2_2285;obj_t BgL_ppzd2ifzd2_2286;obj_t BgL_ppzd2defunzd2_2287;obj_t BgL_ppzd2definezd2_2288;obj_t BgL_ppzd2lambdazd2_2289;obj_t BgL_maxzd2callzd2headzd2widthzd2_2290;obj_t BgL_outputz00_2291;
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4821;
BgL_auxz00_4821 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2273 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4821); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4824;
BgL_auxz00_4824 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2274 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4824); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4827;
BgL_auxz00_4827 = 
(int)(((long)2)); 
BgL_widthz00_2275 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4827); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4830;
BgL_auxz00_4830 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2276 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4830); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4833;
BgL_auxz00_4833 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2277 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4833); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4836;
BgL_auxz00_4836 = 
(int)(((long)5)); 
BgL_ppzd2exprzd2listz00_2278 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4836); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4839;
BgL_auxz00_4839 = 
(int)(((long)6)); 
BgL_ppzd2commentzd2_2279 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4839); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4842;
BgL_auxz00_4842 = 
(int)(((long)7)); 
BgL_ppzd2dozd2_2280 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4842); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4845;
BgL_auxz00_4845 = 
(int)(((long)8)); 
BgL_ppzd2beginzd2_2281 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4845); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4848;
BgL_auxz00_4848 = 
(int)(((long)9)); 
BgL_ppzd2letzd2_2282 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4848); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4851;
BgL_auxz00_4851 = 
(int)(((long)10)); 
BgL_ppzd2andzd2_2283 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4851); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4854;
BgL_auxz00_4854 = 
(int)(((long)11)); 
BgL_ppzd2casezd2_2284 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4854); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4857;
BgL_auxz00_4857 = 
(int)(((long)12)); 
BgL_ppzd2condzd2_2285 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4857); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4860;
BgL_auxz00_4860 = 
(int)(((long)13)); 
BgL_ppzd2ifzd2_2286 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4860); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4863;
BgL_auxz00_4863 = 
(int)(((long)14)); 
BgL_ppzd2defunzd2_2287 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4863); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4866;
BgL_auxz00_4866 = 
(int)(((long)15)); 
BgL_ppzd2definezd2_2288 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4866); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4869;
BgL_auxz00_4869 = 
(int)(((long)16)); 
BgL_ppzd2lambdazd2_2289 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4869); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4872;
BgL_auxz00_4872 = 
(int)(((long)17)); 
BgL_maxzd2callzd2headzd2widthzd2_2290 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4872); } 
{ /* ./Pp/pp.scm 246 */
int BgL_auxz00_4875;
BgL_auxz00_4875 = 
(int)(((long)18)); 
BgL_outputz00_2291 = 
PROCEDURE_REF(BgL_envz00_2272, BgL_auxz00_4875); } 
{ 
obj_t BgL_exprz00_641;obj_t BgL_colz00_642;obj_t BgL_extraz00_643;
BgL_exprz00_641 = BgL_exprz00_2292; 
BgL_colz00_642 = BgL_colz00_2293; 
BgL_extraz00_643 = BgL_extraz00_2294; 
{ 
obj_t BgL_headz00_426;
if(
BGl_readzd2macrozf3z21zz__ppz00(BgL_exprz00_641))
{ /* ./Pp/pp.scm 247 */
obj_t BgL_arg1330z00_646;obj_t BgL_arg1331z00_647;
{ /* ./Pp/pp.scm 247 */
obj_t BgL_auxz00_4880;
BgL_auxz00_4880 = 
CDR(BgL_exprz00_641); 
BgL_arg1330z00_646 = 
CAR(BgL_auxz00_4880); } 
{ /* ./Pp/pp.scm 248 */
obj_t BgL_arg1335z00_648;
BgL_arg1335z00_648 = 
BGl_readzd2macrozd2prefixz00zz__ppz00(BgL_exprz00_641); 
if(
CBOOL(BgL_colz00_642))
{ /* ./Pp/pp.scm 248 */
obj_t BgL__andtest_1005z00_1473;
BgL__andtest_1005z00_1473 = 
PROCEDURE_ENTRY(BgL_outputz00_2291)(BgL_outputz00_2291, BgL_arg1335z00_648, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1473))
{ /* ./Pp/pp.scm 248 */
long BgL_auxz00_4890;
{ /* ./Pp/pp.scm 248 */
long BgL_auxz00_4893;long BgL_auxz00_4891;
{ /* ./Pp/pp.scm 248 */
int BgL_auxz00_4894;
BgL_auxz00_4894 = 
STRING_LENGTH(BgL_arg1335z00_648); 
BgL_auxz00_4893 = 
(long)(BgL_auxz00_4894); } 
BgL_auxz00_4891 = 
(long)CINT(BgL_colz00_642); 
BgL_auxz00_4890 = 
(BgL_auxz00_4891+BgL_auxz00_4893); } 
BgL_arg1331z00_647 = 
BINT(BgL_auxz00_4890); }  else 
{ /* ./Pp/pp.scm 248 */
BgL_arg1331z00_647 = BFALSE; } }  else 
{ /* ./Pp/pp.scm 248 */
BgL_arg1331z00_647 = BFALSE; } } 
return 
BGl_prz00zz__ppz00(BgL_envz00_2272, BgL_outputz00_2291, BgL_displayzf3zf3_2277, BgL_maxzd2exprzd2widthz00_2276, BgL_widthz00_2275, BgL_maxzd2callzd2headzd2widthzd2_2290, BgL_ppzd2lambdazd2_2289, BgL_ppzd2definezd2_2288, BgL_ppzd2defunzd2_2287, BgL_ppzd2ifzd2_2286, BgL_ppzd2condzd2_2285, BgL_ppzd2casezd2_2284, BgL_ppzd2andzd2_2283, BgL_ppzd2letzd2_2282, BgL_ppzd2beginzd2_2281, BgL_ppzd2dozd2_2280, BgL_ppzd2commentzd2_2279, BgL_ppzd2exprzd2listz00_2278, BgL_indentzd2generalzd2_2274, BgL_ppzd2exprzd2defunz00_2273, BgL_arg1330z00_646, BgL_arg1331z00_647, BgL_extraz00_643, BgL_envz00_2272);}  else 
{ /* ./Pp/pp.scm 251 */
obj_t BgL_headz00_649;
BgL_headz00_649 = 
CAR(BgL_exprz00_641); 
if(
SYMBOLP(BgL_headz00_649))
{ /* ./Pp/pp.scm 253 */
obj_t BgL_procz00_651;
BgL_headz00_426 = BgL_headz00_649; 
{ /* ./Pp/pp.scm 398 */
obj_t BgL_casezd2valuezd2_428;
if(
(BGl_za2ppzd2caseza2zd2zz__ppz00==BGl_symbol3782z00zz__ppz00))
{ /* ./Pp/pp.scm 399 */
obj_t BgL_arg1086z00_441;
{ /* ./Pp/pp.scm 399 */
obj_t BgL_arg1089z00_442;
BgL_arg1089z00_442 = 
SYMBOL_TO_STRING(BgL_headz00_426); 
BgL_arg1086z00_441 = 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_arg1089z00_442); } 
{ /* ./Pp/pp.scm 399 */
char * BgL_auxz00_4907;
BgL_auxz00_4907 = 
BSTRING_TO_STRING(BgL_arg1086z00_441); 
BgL_casezd2valuezd2_428 = 
string_to_symbol(BgL_auxz00_4907); } }  else 
{ /* ./Pp/pp.scm 398 */
BgL_casezd2valuezd2_428 = BgL_headz00_426; } 
{ /* ./Pp/pp.scm 398 */
bool_t BgL_testz00_4910;
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_4911;
BgL_auxz00_4911 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_428, BGl_list3812z00zz__ppz00); 
BgL_testz00_4910 = 
CBOOL(BgL_auxz00_4911); } 
if(BgL_testz00_4910)
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2lambdazd2_2289; }  else 
{ /* ./Pp/pp.scm 398 */
bool_t BgL_testz00_4914;
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_4915;
BgL_auxz00_4915 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_428, BGl_list3816z00zz__ppz00); 
BgL_testz00_4914 = 
CBOOL(BgL_auxz00_4915); } 
if(BgL_testz00_4914)
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2definezd2_2288; }  else 
{ /* ./Pp/pp.scm 398 */
bool_t BgL_testz00_4918;
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_4919;
BgL_auxz00_4919 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_428, BGl_list3821z00zz__ppz00); 
BgL_testz00_4918 = 
CBOOL(BgL_auxz00_4919); } 
if(BgL_testz00_4918)
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2defunzd2_2287; }  else 
{ /* ./Pp/pp.scm 398 */
bool_t BgL_testz00_4922;
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_4923;
BgL_auxz00_4923 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_428, BGl_list3824z00zz__ppz00); 
BgL_testz00_4922 = 
CBOOL(BgL_auxz00_4923); } 
if(BgL_testz00_4922)
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2ifzd2_2286; }  else 
{ /* ./Pp/pp.scm 398 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_428, BGl_symbol3827z00zz__ppz00))
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2condzd2_2285; }  else 
{ /* ./Pp/pp.scm 398 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_428, BGl_symbol3828z00zz__ppz00))
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2casezd2_2284; }  else 
{ /* ./Pp/pp.scm 398 */
bool_t BgL_testz00_4930;
{ /* ./Pp/pp.scm 398 */
obj_t BgL_auxz00_4931;
BgL_auxz00_4931 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_428, BGl_list3829z00zz__ppz00); 
BgL_testz00_4930 = 
CBOOL(BgL_auxz00_4931); } 
if(BgL_testz00_4930)
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2andzd2_2283; }  else 
{ /* ./Pp/pp.scm 398 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_428, BGl_symbol3832z00zz__ppz00))
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2letzd2_2282; }  else 
{ /* ./Pp/pp.scm 398 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_428, BGl_symbol3833z00zz__ppz00))
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2beginzd2_2281; }  else 
{ /* ./Pp/pp.scm 398 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_428, BGl_symbol3834z00zz__ppz00))
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2dozd2_2280; }  else 
{ /* ./Pp/pp.scm 398 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_428, BGl_symbol3788z00zz__ppz00))
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BgL_ppzd2commentzd2_2279; }  else 
{ /* ./Pp/pp.scm 398 */
BgL_procz00_651 = BFALSE; } } } } } } } } } } } } } 
if(
CBOOL(BgL_procz00_651))
{ /* ./Pp/pp.scm 254 */
return 
PROCEDURE_ENTRY(BgL_procz00_651)(BgL_procz00_651, BgL_exprz00_641, BgL_colz00_642, BgL_extraz00_643, BEOA);}  else 
{ /* ./Pp/pp.scm 256 */
bool_t BgL_test1340z00_652;
{ /* ./Pp/pp.scm 256 */
int BgL_arg1344z00_653;
{ /* ./Pp/pp.scm 256 */
obj_t BgL_arg1347z00_654;
BgL_arg1347z00_654 = 
SYMBOL_TO_STRING(BgL_headz00_649); 
BgL_arg1344z00_653 = 
STRING_LENGTH(BgL_arg1347z00_654); } 
{ /* ./Pp/pp.scm 256 */
long BgL_n1z00_1482;long BgL_n2z00_1483;
BgL_n1z00_1482 = 
(long)(BgL_arg1344z00_653); 
{ /* ./Pp/pp.scm 257 */
obj_t BgL_auxz00_4949;
BgL_auxz00_4949 = 
CELL_REF(BgL_maxzd2callzd2headzd2widthzd2_2290); 
BgL_n2z00_1483 = 
(long)CINT(BgL_auxz00_4949); } 
BgL_test1340z00_652 = 
(BgL_n1z00_1482>BgL_n2z00_1483); } } 
if(BgL_test1340z00_652)
{ /* ./Pp/pp.scm 256 */
return 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2274, BgL_outputz00_2291, BgL_displayzf3zf3_2277, BgL_envz00_2272, BgL_maxzd2exprzd2widthz00_2276, BgL_widthz00_2275, BgL_maxzd2callzd2headzd2widthzd2_2290, BgL_ppzd2lambdazd2_2289, BgL_ppzd2definezd2_2288, BgL_ppzd2defunzd2_2287, BgL_ppzd2ifzd2_2286, BgL_ppzd2condzd2_2285, BgL_ppzd2casezd2_2284, BgL_ppzd2andzd2_2283, BgL_ppzd2letzd2_2282, BgL_ppzd2beginzd2_2281, BgL_ppzd2dozd2_2280, BgL_ppzd2commentzd2_2279, BgL_ppzd2exprzd2listz00_2278, BgL_ppzd2exprzd2defunz00_2273, BgL_exprz00_641, BgL_colz00_642, BgL_extraz00_643, ((bool_t)0), BFALSE, BFALSE, BgL_envz00_2272);}  else 
{ /* ./Pp/pp.scm 259 */
obj_t BgL_colza2za2_1487;
BgL_colza2za2_1487 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2277, BgL_outputz00_2291, 
CAR(BgL_exprz00_641), 
BGl_outz00zz__ppz00(BgL_outputz00_2291, BGl_string3803z00zz__ppz00, BgL_colz00_642)); 
if(
CBOOL(BgL_colz00_642))
{ /* ./Pp/pp.scm 259 */
obj_t BgL_arg1316z00_1491;long BgL_arg1317z00_1492;
BgL_arg1316z00_1491 = 
CDR(BgL_exprz00_641); 
{ /* ./Pp/pp.scm 259 */
long BgL_auxz00_4960;
BgL_auxz00_4960 = 
(long)CINT(BgL_colza2za2_1487); 
BgL_arg1317z00_1492 = 
(BgL_auxz00_4960+((long)1)); } 
{ /* ./Pp/pp.scm 259 */
obj_t BgL_maxzd2exprzd2widthz00_2681;obj_t BgL_maxzd2callzd2headzd2widthzd2_2683;obj_t BgL_indentzd2generalzd2_2696;obj_t BgL_col2z00_2700;
BgL_maxzd2exprzd2widthz00_2681 = BgL_maxzd2exprzd2widthz00_2276; 
BgL_maxzd2callzd2headzd2widthzd2_2683 = BgL_maxzd2callzd2headzd2widthzd2_2290; 
BgL_indentzd2generalzd2_2696 = BgL_indentzd2generalzd2_2274; 
BgL_col2z00_2700 = 
BINT(BgL_arg1317z00_1492); 
return 
BGl_loopz00zz__ppz00(BgL_envz00_2272, BgL_extraz00_643, BgL_outputz00_2291, BgL_col2z00_2700, BgL_envz00_2272, BgL_displayzf3zf3_2277, BgL_maxzd2exprzd2widthz00_2681, BgL_widthz00_2275, BgL_maxzd2callzd2headzd2widthzd2_2683, BgL_ppzd2lambdazd2_2289, BgL_ppzd2definezd2_2288, BgL_ppzd2defunzd2_2287, BgL_ppzd2ifzd2_2286, BgL_ppzd2condzd2_2285, BgL_ppzd2casezd2_2284, BgL_ppzd2andzd2_2283, BgL_ppzd2letzd2_2282, BgL_ppzd2beginzd2_2281, BgL_ppzd2dozd2_2280, BgL_ppzd2commentzd2_2279, BgL_ppzd2exprzd2listz00_2278, BgL_indentzd2generalzd2_2696, BgL_ppzd2exprzd2defunz00_2273, BgL_arg1316z00_1491, BgL_colza2za2_1487);} }  else 
{ /* ./Pp/pp.scm 259 */
return BFALSE;} } } }  else 
{ /* ./Pp/pp.scm 260 */
obj_t BgL_colz00_1500;
BgL_colz00_1500 = 
BGl_outz00zz__ppz00(BgL_outputz00_2291, BGl_string3803z00zz__ppz00, BgL_colz00_642); 
{ /* ./Pp/pp.scm 260 */
obj_t BgL_maxzd2exprzd2widthz00_2706;obj_t BgL_maxzd2callzd2headzd2widthzd2_2708;obj_t BgL_indentzd2generalzd2_2721;
BgL_maxzd2exprzd2widthz00_2706 = BgL_maxzd2exprzd2widthz00_2276; 
BgL_maxzd2callzd2headzd2widthzd2_2708 = BgL_maxzd2callzd2headzd2widthzd2_2290; 
BgL_indentzd2generalzd2_2721 = BgL_indentzd2generalzd2_2274; 
return 
BGl_loopz00zz__ppz00(BgL_envz00_2272, BgL_extraz00_643, BgL_outputz00_2291, BgL_colz00_1500, BgL_envz00_2272, BgL_displayzf3zf3_2277, BgL_maxzd2exprzd2widthz00_2706, BgL_widthz00_2275, BgL_maxzd2callzd2headzd2widthzd2_2708, BgL_ppzd2lambdazd2_2289, BgL_ppzd2definezd2_2288, BgL_ppzd2defunzd2_2287, BgL_ppzd2ifzd2_2286, BgL_ppzd2condzd2_2285, BgL_ppzd2casezd2_2284, BgL_ppzd2andzd2_2283, BgL_ppzd2letzd2_2282, BgL_ppzd2beginzd2_2281, BgL_ppzd2dozd2_2280, BgL_ppzd2commentzd2_2279, BgL_ppzd2exprzd2listz00_2278, BgL_indentzd2generalzd2_2721, BgL_ppzd2exprzd2defunz00_2273, BgL_exprz00_641, BgL_colz00_1500);} } } } } } } 
}



/* pp-expr-list */
obj_t BGl_ppzd2exprzd2listz00zz__ppz00(obj_t BgL_envz00_2295, obj_t BgL_lz00_2315, obj_t BgL_colz00_2316, obj_t BgL_extraz00_2317)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 334 */
{ /* ./Pp/pp.scm 334 */
obj_t BgL_ppzd2exprzd2defunz00_2296;obj_t BgL_indentzd2generalzd2_2297;obj_t BgL_widthz00_2298;obj_t BgL_maxzd2exprzd2widthz00_2299;obj_t BgL_displayzf3zf3_2300;obj_t BgL_ppzd2commentzd2_2301;obj_t BgL_ppzd2dozd2_2302;obj_t BgL_ppzd2beginzd2_2303;obj_t BgL_ppzd2letzd2_2304;obj_t BgL_ppzd2andzd2_2305;obj_t BgL_ppzd2casezd2_2306;obj_t BgL_ppzd2condzd2_2307;obj_t BgL_ppzd2ifzd2_2308;obj_t BgL_ppzd2defunzd2_2309;obj_t BgL_ppzd2definezd2_2310;obj_t BgL_ppzd2lambdazd2_2311;obj_t BgL_maxzd2callzd2headzd2widthzd2_2312;obj_t BgL_outputz00_2313;obj_t BgL_ppzd2exprzd2_2314;
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4967;
BgL_auxz00_4967 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2296 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4967); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4970;
BgL_auxz00_4970 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2297 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4970); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4973;
BgL_auxz00_4973 = 
(int)(((long)2)); 
BgL_widthz00_2298 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4973); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4976;
BgL_auxz00_4976 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2299 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4976); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4979;
BgL_auxz00_4979 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2300 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4979); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4982;
BgL_auxz00_4982 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2301 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4982); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4985;
BgL_auxz00_4985 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2302 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4985); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4988;
BgL_auxz00_4988 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2303 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4988); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4991;
BgL_auxz00_4991 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2304 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4991); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4994;
BgL_auxz00_4994 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2305 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4994); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_4997;
BgL_auxz00_4997 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2306 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_4997); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_5000;
BgL_auxz00_5000 = 
(int)(((long)11)); 
BgL_ppzd2condzd2_2307 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_5000); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_5003;
BgL_auxz00_5003 = 
(int)(((long)12)); 
BgL_ppzd2ifzd2_2308 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_5003); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_5006;
BgL_auxz00_5006 = 
(int)(((long)13)); 
BgL_ppzd2defunzd2_2309 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_5006); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_5009;
BgL_auxz00_5009 = 
(int)(((long)14)); 
BgL_ppzd2definezd2_2310 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_5009); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_5012;
BgL_auxz00_5012 = 
(int)(((long)15)); 
BgL_ppzd2lambdazd2_2311 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_5012); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_5015;
BgL_auxz00_5015 = 
(int)(((long)16)); 
BgL_maxzd2callzd2headzd2widthzd2_2312 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_5015); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_5018;
BgL_auxz00_5018 = 
(int)(((long)17)); 
BgL_outputz00_2313 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_5018); } 
{ /* ./Pp/pp.scm 334 */
int BgL_auxz00_5021;
BgL_auxz00_5021 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2_2314 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_5021); } 
{ 
obj_t BgL_lz00_528;obj_t BgL_colz00_529;obj_t BgL_extraz00_530;
BgL_lz00_528 = BgL_lz00_2315; 
BgL_colz00_529 = BgL_colz00_2316; 
BgL_extraz00_530 = BgL_extraz00_2317; 
{ /* ./Pp/pp.scm 334 */
obj_t BgL_colz00_1237;
BgL_colz00_1237 = 
BGl_outz00zz__ppz00(BgL_outputz00_2313, BGl_string3803z00zz__ppz00, BgL_colz00_529); 
{ /* ./Pp/pp.scm 334 */
obj_t BgL_maxzd2exprzd2widthz00_2731;obj_t BgL_maxzd2callzd2headzd2widthzd2_2733;obj_t BgL_indentzd2generalzd2_2746;
BgL_maxzd2exprzd2widthz00_2731 = BgL_maxzd2exprzd2widthz00_2299; 
BgL_maxzd2callzd2headzd2widthzd2_2733 = BgL_maxzd2callzd2headzd2widthzd2_2312; 
BgL_indentzd2generalzd2_2746 = BgL_indentzd2generalzd2_2297; 
return 
BGl_loopz00zz__ppz00(BgL_ppzd2exprzd2_2314, BgL_extraz00_530, BgL_outputz00_2313, BgL_colz00_1237, BgL_ppzd2exprzd2_2314, BgL_displayzf3zf3_2300, BgL_maxzd2exprzd2widthz00_2731, BgL_widthz00_2298, BgL_maxzd2callzd2headzd2widthzd2_2733, BgL_ppzd2lambdazd2_2311, BgL_ppzd2definezd2_2310, BgL_ppzd2defunzd2_2309, BgL_ppzd2ifzd2_2308, BgL_ppzd2condzd2_2307, BgL_ppzd2casezd2_2306, BgL_ppzd2andzd2_2305, BgL_ppzd2letzd2_2304, BgL_ppzd2beginzd2_2303, BgL_ppzd2dozd2_2302, BgL_ppzd2commentzd2_2301, BgL_envz00_2295, BgL_indentzd2generalzd2_2746, BgL_ppzd2exprzd2defunz00_2296, BgL_lz00_528, BgL_colz00_1237);} } } } } 
}



/* pp-lambda */
obj_t BGl_ppzd2lambdazd2zz__ppz00(obj_t BgL_envz00_2318, obj_t BgL_exprz00_2338, obj_t BgL_colz00_2339, obj_t BgL_extraz00_2340)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 348 */
{ /* ./Pp/pp.scm 348 */
obj_t BgL_ppzd2exprzd2defunz00_2319;obj_t BgL_indentzd2generalzd2_2320;obj_t BgL_widthz00_2321;obj_t BgL_maxzd2exprzd2widthz00_2322;obj_t BgL_displayzf3zf3_2323;obj_t BgL_ppzd2commentzd2_2324;obj_t BgL_ppzd2dozd2_2325;obj_t BgL_ppzd2beginzd2_2326;obj_t BgL_ppzd2letzd2_2327;obj_t BgL_ppzd2andzd2_2328;obj_t BgL_ppzd2casezd2_2329;obj_t BgL_ppzd2condzd2_2330;obj_t BgL_ppzd2ifzd2_2331;obj_t BgL_ppzd2defunzd2_2332;obj_t BgL_ppzd2definezd2_2333;obj_t BgL_maxzd2callzd2headzd2widthzd2_2334;obj_t BgL_outputz00_2335;obj_t BgL_ppzd2exprzd2listz00_2336;obj_t BgL_ppzd2exprzd2_2337;
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5026;
BgL_auxz00_5026 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2319 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5026); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5029;
BgL_auxz00_5029 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2320 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5029); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5032;
BgL_auxz00_5032 = 
(int)(((long)2)); 
BgL_widthz00_2321 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5032); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5035;
BgL_auxz00_5035 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2322 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5035); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5038;
BgL_auxz00_5038 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2323 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5038); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5041;
BgL_auxz00_5041 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2324 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5041); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5044;
BgL_auxz00_5044 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2325 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5044); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5047;
BgL_auxz00_5047 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2326 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5047); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5050;
BgL_auxz00_5050 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2327 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5050); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5053;
BgL_auxz00_5053 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2328 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5053); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5056;
BgL_auxz00_5056 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2329 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5056); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5059;
BgL_auxz00_5059 = 
(int)(((long)11)); 
BgL_ppzd2condzd2_2330 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5059); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5062;
BgL_auxz00_5062 = 
(int)(((long)12)); 
BgL_ppzd2ifzd2_2331 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5062); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5065;
BgL_auxz00_5065 = 
(int)(((long)13)); 
BgL_ppzd2defunzd2_2332 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5065); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5068;
BgL_auxz00_5068 = 
(int)(((long)14)); 
BgL_ppzd2definezd2_2333 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5068); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5071;
BgL_auxz00_5071 = 
(int)(((long)15)); 
BgL_maxzd2callzd2headzd2widthzd2_2334 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5071); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5074;
BgL_auxz00_5074 = 
(int)(((long)16)); 
BgL_outputz00_2335 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5074); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5077;
BgL_auxz00_5077 = 
(int)(((long)17)); 
BgL_ppzd2exprzd2listz00_2336 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5077); } 
{ /* ./Pp/pp.scm 348 */
int BgL_auxz00_5080;
BgL_auxz00_5080 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2_2337 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_5080); } 
{ 
obj_t BgL_exprz00_512;obj_t BgL_colz00_513;obj_t BgL_extraz00_514;
BgL_exprz00_512 = BgL_exprz00_2338; 
BgL_colz00_513 = BgL_colz00_2339; 
BgL_extraz00_514 = BgL_extraz00_2340; 
return 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2320, BgL_outputz00_2335, BgL_displayzf3zf3_2323, BgL_ppzd2exprzd2_2337, BgL_maxzd2exprzd2widthz00_2322, BgL_widthz00_2321, BgL_maxzd2callzd2headzd2widthzd2_2334, BgL_envz00_2318, BgL_ppzd2definezd2_2333, BgL_ppzd2defunzd2_2332, BgL_ppzd2ifzd2_2331, BgL_ppzd2condzd2_2330, BgL_ppzd2casezd2_2329, BgL_ppzd2andzd2_2328, BgL_ppzd2letzd2_2327, BgL_ppzd2beginzd2_2326, BgL_ppzd2dozd2_2325, BgL_ppzd2commentzd2_2324, BgL_ppzd2exprzd2listz00_2336, BgL_ppzd2exprzd2defunz00_2319, BgL_exprz00_512, BgL_colz00_513, BgL_extraz00_514, ((bool_t)0), BgL_ppzd2exprzd2listz00_2336, BFALSE, BgL_ppzd2exprzd2_2337);} } } 
}



/* pp-define */
obj_t BGl_ppzd2definezd2zz__ppz00(obj_t BgL_envz00_2341, obj_t BgL_exprz00_2361, obj_t BgL_colz00_2362, obj_t BgL_extraz00_2363)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 340 */
{ /* ./Pp/pp.scm 340 */
obj_t BgL_ppzd2exprzd2defunz00_2342;obj_t BgL_indentzd2generalzd2_2343;obj_t BgL_widthz00_2344;obj_t BgL_maxzd2exprzd2widthz00_2345;obj_t BgL_displayzf3zf3_2346;obj_t BgL_ppzd2commentzd2_2347;obj_t BgL_ppzd2dozd2_2348;obj_t BgL_ppzd2beginzd2_2349;obj_t BgL_ppzd2letzd2_2350;obj_t BgL_ppzd2andzd2_2351;obj_t BgL_ppzd2casezd2_2352;obj_t BgL_ppzd2condzd2_2353;obj_t BgL_ppzd2ifzd2_2354;obj_t BgL_ppzd2defunzd2_2355;obj_t BgL_ppzd2lambdazd2_2356;obj_t BgL_maxzd2callzd2headzd2widthzd2_2357;obj_t BgL_ppzd2exprzd2listz00_2358;obj_t BgL_ppzd2exprzd2_2359;obj_t BgL_outputz00_2360;
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5084;
BgL_auxz00_5084 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2342 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5084); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5087;
BgL_auxz00_5087 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2343 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5087); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5090;
BgL_auxz00_5090 = 
(int)(((long)2)); 
BgL_widthz00_2344 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5090); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5093;
BgL_auxz00_5093 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2345 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5093); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5096;
BgL_auxz00_5096 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2346 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5096); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5099;
BgL_auxz00_5099 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2347 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5099); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5102;
BgL_auxz00_5102 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2348 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5102); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5105;
BgL_auxz00_5105 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2349 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5105); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5108;
BgL_auxz00_5108 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2350 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5108); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5111;
BgL_auxz00_5111 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2351 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5111); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5114;
BgL_auxz00_5114 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2352 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5114); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5117;
BgL_auxz00_5117 = 
(int)(((long)11)); 
BgL_ppzd2condzd2_2353 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5117); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5120;
BgL_auxz00_5120 = 
(int)(((long)12)); 
BgL_ppzd2ifzd2_2354 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5120); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5123;
BgL_auxz00_5123 = 
(int)(((long)13)); 
BgL_ppzd2defunzd2_2355 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5123); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5126;
BgL_auxz00_5126 = 
(int)(((long)14)); 
BgL_ppzd2lambdazd2_2356 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5126); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5129;
BgL_auxz00_5129 = 
(int)(((long)15)); 
BgL_maxzd2callzd2headzd2widthzd2_2357 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5129); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5132;
BgL_auxz00_5132 = 
(int)(((long)16)); 
BgL_ppzd2exprzd2listz00_2358 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5132); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5135;
BgL_auxz00_5135 = 
(int)(((long)17)); 
BgL_ppzd2exprzd2_2359 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5135); } 
{ /* ./Pp/pp.scm 340 */
int BgL_auxz00_5138;
BgL_auxz00_5138 = 
(int)(((long)18)); 
BgL_outputz00_2360 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_5138); } 
{ 
obj_t BgL_exprz00_520;obj_t BgL_colz00_521;obj_t BgL_extraz00_522;
BgL_exprz00_520 = BgL_exprz00_2361; 
BgL_colz00_521 = BgL_colz00_2362; 
BgL_extraz00_522 = BgL_extraz00_2363; 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2343, BgL_outputz00_2360, BgL_displayzf3zf3_2346, BgL_ppzd2exprzd2_2359, BgL_maxzd2exprzd2widthz00_2345, BgL_widthz00_2344, BgL_maxzd2callzd2headzd2widthzd2_2357, BgL_ppzd2lambdazd2_2356, BgL_envz00_2341, BgL_ppzd2defunzd2_2355, BgL_ppzd2ifzd2_2354, BgL_ppzd2condzd2_2353, BgL_ppzd2casezd2_2352, BgL_ppzd2andzd2_2351, BgL_ppzd2letzd2_2350, BgL_ppzd2beginzd2_2349, BgL_ppzd2dozd2_2348, BgL_ppzd2commentzd2_2347, BgL_ppzd2exprzd2listz00_2358, BgL_ppzd2exprzd2defunz00_2342, BgL_exprz00_520, BgL_colz00_521, BgL_extraz00_522, ((bool_t)0), BgL_ppzd2exprzd2listz00_2358, BFALSE, BgL_ppzd2exprzd2_2359); 
{ /* ./Pp/pp.scm 341 */
obj_t BgL__andtest_1005z00_1208;
BgL__andtest_1005z00_1208 = 
PROCEDURE_ENTRY(BgL_outputz00_2360)(BgL_outputz00_2360, BGl_string3835z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1208))
{ /* ./Pp/pp.scm 341 */
long BgL_auxz00_5146;
{ /* ./Pp/pp.scm 341 */
long BgL_auxz00_5147;
{ /* ./Pp/pp.scm 341 */
int BgL_auxz00_5148;
BgL_auxz00_5148 = 
STRING_LENGTH(BGl_string3835z00zz__ppz00); 
BgL_auxz00_5147 = 
(long)(BgL_auxz00_5148); } 
BgL_auxz00_5146 = 
(((long)0)+BgL_auxz00_5147); } 
return 
BINT(BgL_auxz00_5146);}  else 
{ /* ./Pp/pp.scm 341 */
return BFALSE;} } } } } 
}



/* pp-defun */
obj_t BGl_ppzd2defunzd2zz__ppz00(obj_t BgL_envz00_2364, obj_t BgL_exprz00_2384, obj_t BgL_colz00_2385, obj_t BgL_extraz00_2386)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 344 */
{ /* ./Pp/pp.scm 344 */
obj_t BgL_indentzd2generalzd2_2365;obj_t BgL_widthz00_2366;obj_t BgL_maxzd2exprzd2widthz00_2367;obj_t BgL_displayzf3zf3_2368;obj_t BgL_ppzd2exprzd2listz00_2369;obj_t BgL_ppzd2commentzd2_2370;obj_t BgL_ppzd2dozd2_2371;obj_t BgL_ppzd2beginzd2_2372;obj_t BgL_ppzd2letzd2_2373;obj_t BgL_ppzd2andzd2_2374;obj_t BgL_ppzd2casezd2_2375;obj_t BgL_ppzd2condzd2_2376;obj_t BgL_ppzd2ifzd2_2377;obj_t BgL_ppzd2definezd2_2378;obj_t BgL_ppzd2lambdazd2_2379;obj_t BgL_maxzd2callzd2headzd2widthzd2_2380;obj_t BgL_ppzd2exprzd2defunz00_2381;obj_t BgL_ppzd2exprzd2_2382;obj_t BgL_outputz00_2383;
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5153;
BgL_auxz00_5153 = 
(int)(((long)0)); 
BgL_indentzd2generalzd2_2365 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5153); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5156;
BgL_auxz00_5156 = 
(int)(((long)1)); 
BgL_widthz00_2366 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5156); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5159;
BgL_auxz00_5159 = 
(int)(((long)2)); 
BgL_maxzd2exprzd2widthz00_2367 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5159); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5162;
BgL_auxz00_5162 = 
(int)(((long)3)); 
BgL_displayzf3zf3_2368 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5162); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5165;
BgL_auxz00_5165 = 
(int)(((long)4)); 
BgL_ppzd2exprzd2listz00_2369 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5165); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5168;
BgL_auxz00_5168 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2370 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5168); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5171;
BgL_auxz00_5171 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2371 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5171); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5174;
BgL_auxz00_5174 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2372 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5174); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5177;
BgL_auxz00_5177 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2373 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5177); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5180;
BgL_auxz00_5180 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2374 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5180); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5183;
BgL_auxz00_5183 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2375 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5183); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5186;
BgL_auxz00_5186 = 
(int)(((long)11)); 
BgL_ppzd2condzd2_2376 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5186); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5189;
BgL_auxz00_5189 = 
(int)(((long)12)); 
BgL_ppzd2ifzd2_2377 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5189); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5192;
BgL_auxz00_5192 = 
(int)(((long)13)); 
BgL_ppzd2definezd2_2378 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5192); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5195;
BgL_auxz00_5195 = 
(int)(((long)14)); 
BgL_ppzd2lambdazd2_2379 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5195); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5198;
BgL_auxz00_5198 = 
(int)(((long)15)); 
BgL_maxzd2callzd2headzd2widthzd2_2380 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5198); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5201;
BgL_auxz00_5201 = 
(int)(((long)16)); 
BgL_ppzd2exprzd2defunz00_2381 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5201); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5204;
BgL_auxz00_5204 = 
(int)(((long)17)); 
BgL_ppzd2exprzd2_2382 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5204); } 
{ /* ./Pp/pp.scm 344 */
int BgL_auxz00_5207;
BgL_auxz00_5207 = 
(int)(((long)18)); 
BgL_outputz00_2383 = 
PROCEDURE_REF(BgL_envz00_2364, BgL_auxz00_5207); } 
{ 
obj_t BgL_exprz00_516;obj_t BgL_colz00_517;obj_t BgL_extraz00_518;
BgL_exprz00_516 = BgL_exprz00_2384; 
BgL_colz00_517 = BgL_colz00_2385; 
BgL_extraz00_518 = BgL_extraz00_2386; 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2365, BgL_outputz00_2383, BgL_displayzf3zf3_2368, BgL_ppzd2exprzd2_2382, BgL_maxzd2exprzd2widthz00_2367, BgL_widthz00_2366, BgL_maxzd2callzd2headzd2widthzd2_2380, BgL_ppzd2lambdazd2_2379, BgL_ppzd2definezd2_2378, BgL_envz00_2364, BgL_ppzd2ifzd2_2377, BgL_ppzd2condzd2_2376, BgL_ppzd2casezd2_2375, BgL_ppzd2andzd2_2374, BgL_ppzd2letzd2_2373, BgL_ppzd2beginzd2_2372, BgL_ppzd2dozd2_2371, BgL_ppzd2commentzd2_2370, BgL_ppzd2exprzd2listz00_2369, BgL_ppzd2exprzd2defunz00_2381, BgL_exprz00_516, BgL_colz00_517, BgL_extraz00_518, ((bool_t)1), BgL_ppzd2exprzd2defunz00_2381, BFALSE, BgL_ppzd2exprzd2_2382); 
{ /* ./Pp/pp.scm 345 */
obj_t BgL__andtest_1005z00_1200;
BgL__andtest_1005z00_1200 = 
PROCEDURE_ENTRY(BgL_outputz00_2383)(BgL_outputz00_2383, BGl_string3835z00zz__ppz00, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1200))
{ /* ./Pp/pp.scm 345 */
long BgL_auxz00_5215;
{ /* ./Pp/pp.scm 345 */
long BgL_auxz00_5216;
{ /* ./Pp/pp.scm 345 */
int BgL_auxz00_5217;
BgL_auxz00_5217 = 
STRING_LENGTH(BGl_string3835z00zz__ppz00); 
BgL_auxz00_5216 = 
(long)(BgL_auxz00_5217); } 
BgL_auxz00_5215 = 
(((long)0)+BgL_auxz00_5216); } 
return 
BINT(BgL_auxz00_5215);}  else 
{ /* ./Pp/pp.scm 345 */
return BFALSE;} } } } } 
}



/* pp-if */
obj_t BGl_ppzd2ifzd2zz__ppz00(obj_t BgL_envz00_2387, obj_t BgL_exprz00_2407, obj_t BgL_colz00_2408, obj_t BgL_extraz00_2409)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 367 */
{ /* ./Pp/pp.scm 367 */
obj_t BgL_ppzd2exprzd2defunz00_2388;obj_t BgL_indentzd2generalzd2_2389;obj_t BgL_widthz00_2390;obj_t BgL_maxzd2exprzd2widthz00_2391;obj_t BgL_displayzf3zf3_2392;obj_t BgL_ppzd2exprzd2listz00_2393;obj_t BgL_ppzd2commentzd2_2394;obj_t BgL_ppzd2dozd2_2395;obj_t BgL_ppzd2beginzd2_2396;obj_t BgL_ppzd2letzd2_2397;obj_t BgL_ppzd2andzd2_2398;obj_t BgL_ppzd2casezd2_2399;obj_t BgL_ppzd2condzd2_2400;obj_t BgL_ppzd2defunzd2_2401;obj_t BgL_ppzd2definezd2_2402;obj_t BgL_ppzd2lambdazd2_2403;obj_t BgL_maxzd2callzd2headzd2widthzd2_2404;obj_t BgL_outputz00_2405;obj_t BgL_ppzd2exprzd2_2406;
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5222;
BgL_auxz00_5222 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2388 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5222); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5225;
BgL_auxz00_5225 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2389 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5225); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5228;
BgL_auxz00_5228 = 
(int)(((long)2)); 
BgL_widthz00_2390 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5228); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5231;
BgL_auxz00_5231 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2391 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5231); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5234;
BgL_auxz00_5234 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2392 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5234); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5237;
BgL_auxz00_5237 = 
(int)(((long)5)); 
BgL_ppzd2exprzd2listz00_2393 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5237); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5240;
BgL_auxz00_5240 = 
(int)(((long)6)); 
BgL_ppzd2commentzd2_2394 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5240); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5243;
BgL_auxz00_5243 = 
(int)(((long)7)); 
BgL_ppzd2dozd2_2395 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5243); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5246;
BgL_auxz00_5246 = 
(int)(((long)8)); 
BgL_ppzd2beginzd2_2396 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5246); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5249;
BgL_auxz00_5249 = 
(int)(((long)9)); 
BgL_ppzd2letzd2_2397 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5249); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5252;
BgL_auxz00_5252 = 
(int)(((long)10)); 
BgL_ppzd2andzd2_2398 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5252); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5255;
BgL_auxz00_5255 = 
(int)(((long)11)); 
BgL_ppzd2casezd2_2399 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5255); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5258;
BgL_auxz00_5258 = 
(int)(((long)12)); 
BgL_ppzd2condzd2_2400 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5258); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5261;
BgL_auxz00_5261 = 
(int)(((long)13)); 
BgL_ppzd2defunzd2_2401 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5261); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5264;
BgL_auxz00_5264 = 
(int)(((long)14)); 
BgL_ppzd2definezd2_2402 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5264); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5267;
BgL_auxz00_5267 = 
(int)(((long)15)); 
BgL_ppzd2lambdazd2_2403 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5267); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5270;
BgL_auxz00_5270 = 
(int)(((long)16)); 
BgL_maxzd2callzd2headzd2widthzd2_2404 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5270); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5273;
BgL_auxz00_5273 = 
(int)(((long)17)); 
BgL_outputz00_2405 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5273); } 
{ /* ./Pp/pp.scm 367 */
int BgL_auxz00_5276;
BgL_auxz00_5276 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2_2406 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_5276); } 
{ 
obj_t BgL_exprz00_471;obj_t BgL_colz00_472;obj_t BgL_extraz00_473;
BgL_exprz00_471 = BgL_exprz00_2407; 
BgL_colz00_472 = BgL_colz00_2408; 
BgL_extraz00_473 = BgL_extraz00_2409; 
return 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2389, BgL_outputz00_2405, BgL_displayzf3zf3_2392, BgL_ppzd2exprzd2_2406, BgL_maxzd2exprzd2widthz00_2391, BgL_widthz00_2390, BgL_maxzd2callzd2headzd2widthzd2_2404, BgL_ppzd2lambdazd2_2403, BgL_ppzd2definezd2_2402, BgL_ppzd2defunzd2_2401, BgL_envz00_2387, BgL_ppzd2condzd2_2400, BgL_ppzd2casezd2_2399, BgL_ppzd2andzd2_2398, BgL_ppzd2letzd2_2397, BgL_ppzd2beginzd2_2396, BgL_ppzd2dozd2_2395, BgL_ppzd2commentzd2_2394, BgL_ppzd2exprzd2listz00_2393, BgL_ppzd2exprzd2defunz00_2388, BgL_exprz00_471, BgL_colz00_472, BgL_extraz00_473, ((bool_t)0), BgL_ppzd2exprzd2_2406, BFALSE, BgL_ppzd2exprzd2_2406);} } } 
}



/* pp-cond */
obj_t BGl_ppzd2condzd2zz__ppz00(obj_t BgL_envz00_2410, obj_t BgL_exprz00_2430, obj_t BgL_colz00_2431, obj_t BgL_extraz00_2432)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 370 */
{ /* ./Pp/pp.scm 370 */
obj_t BgL_ppzd2exprzd2defunz00_2411;obj_t BgL_indentzd2generalzd2_2412;obj_t BgL_widthz00_2413;obj_t BgL_maxzd2exprzd2widthz00_2414;obj_t BgL_displayzf3zf3_2415;obj_t BgL_ppzd2commentzd2_2416;obj_t BgL_ppzd2dozd2_2417;obj_t BgL_ppzd2beginzd2_2418;obj_t BgL_ppzd2letzd2_2419;obj_t BgL_ppzd2andzd2_2420;obj_t BgL_ppzd2casezd2_2421;obj_t BgL_ppzd2ifzd2_2422;obj_t BgL_ppzd2defunzd2_2423;obj_t BgL_ppzd2definezd2_2424;obj_t BgL_ppzd2lambdazd2_2425;obj_t BgL_maxzd2callzd2headzd2widthzd2_2426;obj_t BgL_outputz00_2427;obj_t BgL_ppzd2exprzd2_2428;obj_t BgL_ppzd2exprzd2listz00_2429;
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5280;
BgL_auxz00_5280 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2411 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5280); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5283;
BgL_auxz00_5283 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2412 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5283); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5286;
BgL_auxz00_5286 = 
(int)(((long)2)); 
BgL_widthz00_2413 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5286); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5289;
BgL_auxz00_5289 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2414 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5289); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5292;
BgL_auxz00_5292 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2415 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5292); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5295;
BgL_auxz00_5295 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2416 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5295); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5298;
BgL_auxz00_5298 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2417 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5298); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5301;
BgL_auxz00_5301 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2418 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5301); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5304;
BgL_auxz00_5304 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2419 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5304); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5307;
BgL_auxz00_5307 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2420 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5307); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5310;
BgL_auxz00_5310 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2421 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5310); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5313;
BgL_auxz00_5313 = 
(int)(((long)11)); 
BgL_ppzd2ifzd2_2422 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5313); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5316;
BgL_auxz00_5316 = 
(int)(((long)12)); 
BgL_ppzd2defunzd2_2423 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5316); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5319;
BgL_auxz00_5319 = 
(int)(((long)13)); 
BgL_ppzd2definezd2_2424 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5319); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5322;
BgL_auxz00_5322 = 
(int)(((long)14)); 
BgL_ppzd2lambdazd2_2425 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5322); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5325;
BgL_auxz00_5325 = 
(int)(((long)15)); 
BgL_maxzd2callzd2headzd2widthzd2_2426 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5325); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5328;
BgL_auxz00_5328 = 
(int)(((long)16)); 
BgL_outputz00_2427 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5328); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5331;
BgL_auxz00_5331 = 
(int)(((long)17)); 
BgL_ppzd2exprzd2_2428 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5331); } 
{ /* ./Pp/pp.scm 370 */
int BgL_auxz00_5334;
BgL_auxz00_5334 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2listz00_2429 = 
PROCEDURE_REF(BgL_envz00_2410, BgL_auxz00_5334); } 
{ 
obj_t BgL_exprz00_467;obj_t BgL_colz00_468;obj_t BgL_extraz00_469;
BgL_exprz00_467 = BgL_exprz00_2430; 
BgL_colz00_468 = BgL_colz00_2431; 
BgL_extraz00_469 = BgL_extraz00_2432; 
{ /* ./Pp/pp.scm 370 */
obj_t BgL_colza2za2_1122;
BgL_colza2za2_1122 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2415, BgL_outputz00_2427, 
CAR(BgL_exprz00_467), 
BGl_outz00zz__ppz00(BgL_outputz00_2427, BGl_string3803z00zz__ppz00, BgL_colz00_468)); 
if(
CBOOL(BgL_colz00_468))
{ /* ./Pp/pp.scm 370 */
obj_t BgL_arg1316z00_1126;long BgL_arg1317z00_1127;
BgL_arg1316z00_1126 = 
CDR(BgL_exprz00_467); 
{ /* ./Pp/pp.scm 370 */
long BgL_auxz00_5343;
BgL_auxz00_5343 = 
(long)CINT(BgL_colza2za2_1122); 
BgL_arg1317z00_1127 = 
(BgL_auxz00_5343+((long)1)); } 
{ /* ./Pp/pp.scm 370 */
obj_t BgL_maxzd2exprzd2widthz00_2756;obj_t BgL_maxzd2callzd2headzd2widthzd2_2758;obj_t BgL_indentzd2generalzd2_2771;obj_t BgL_col2z00_2775;
BgL_maxzd2exprzd2widthz00_2756 = BgL_maxzd2exprzd2widthz00_2414; 
BgL_maxzd2callzd2headzd2widthzd2_2758 = BgL_maxzd2callzd2headzd2widthzd2_2426; 
BgL_indentzd2generalzd2_2771 = BgL_indentzd2generalzd2_2412; 
BgL_col2z00_2775 = 
BINT(BgL_arg1317z00_1127); 
return 
BGl_loopz00zz__ppz00(BgL_ppzd2exprzd2listz00_2429, BgL_extraz00_469, BgL_outputz00_2427, BgL_col2z00_2775, BgL_ppzd2exprzd2_2428, BgL_displayzf3zf3_2415, BgL_maxzd2exprzd2widthz00_2756, BgL_widthz00_2413, BgL_maxzd2callzd2headzd2widthzd2_2758, BgL_ppzd2lambdazd2_2425, BgL_ppzd2definezd2_2424, BgL_ppzd2defunzd2_2423, BgL_ppzd2ifzd2_2422, BgL_envz00_2410, BgL_ppzd2casezd2_2421, BgL_ppzd2andzd2_2420, BgL_ppzd2letzd2_2419, BgL_ppzd2beginzd2_2418, BgL_ppzd2dozd2_2417, BgL_ppzd2commentzd2_2416, BgL_ppzd2exprzd2listz00_2429, BgL_indentzd2generalzd2_2771, BgL_ppzd2exprzd2defunz00_2411, BgL_arg1316z00_1126, BgL_colza2za2_1122);} }  else 
{ /* ./Pp/pp.scm 370 */
return BFALSE;} } } } } 
}



/* pp-case */
obj_t BGl_ppzd2casezd2zz__ppz00(obj_t BgL_envz00_2433, obj_t BgL_exprz00_2453, obj_t BgL_colz00_2454, obj_t BgL_extraz00_2455)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 373 */
{ /* ./Pp/pp.scm 373 */
obj_t BgL_ppzd2exprzd2defunz00_2434;obj_t BgL_indentzd2generalzd2_2435;obj_t BgL_widthz00_2436;obj_t BgL_maxzd2exprzd2widthz00_2437;obj_t BgL_displayzf3zf3_2438;obj_t BgL_ppzd2commentzd2_2439;obj_t BgL_ppzd2dozd2_2440;obj_t BgL_ppzd2beginzd2_2441;obj_t BgL_ppzd2letzd2_2442;obj_t BgL_ppzd2andzd2_2443;obj_t BgL_ppzd2condzd2_2444;obj_t BgL_ppzd2ifzd2_2445;obj_t BgL_ppzd2defunzd2_2446;obj_t BgL_ppzd2definezd2_2447;obj_t BgL_ppzd2lambdazd2_2448;obj_t BgL_maxzd2callzd2headzd2widthzd2_2449;obj_t BgL_outputz00_2450;obj_t BgL_ppzd2exprzd2_2451;obj_t BgL_ppzd2exprzd2listz00_2452;
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5348;
BgL_auxz00_5348 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2434 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5348); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5351;
BgL_auxz00_5351 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2435 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5351); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5354;
BgL_auxz00_5354 = 
(int)(((long)2)); 
BgL_widthz00_2436 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5354); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5357;
BgL_auxz00_5357 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2437 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5357); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5360;
BgL_auxz00_5360 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2438 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5360); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5363;
BgL_auxz00_5363 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2439 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5363); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5366;
BgL_auxz00_5366 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2440 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5366); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5369;
BgL_auxz00_5369 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2441 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5369); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5372;
BgL_auxz00_5372 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2442 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5372); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5375;
BgL_auxz00_5375 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2443 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5375); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5378;
BgL_auxz00_5378 = 
(int)(((long)10)); 
BgL_ppzd2condzd2_2444 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5378); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5381;
BgL_auxz00_5381 = 
(int)(((long)11)); 
BgL_ppzd2ifzd2_2445 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5381); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5384;
BgL_auxz00_5384 = 
(int)(((long)12)); 
BgL_ppzd2defunzd2_2446 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5384); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5387;
BgL_auxz00_5387 = 
(int)(((long)13)); 
BgL_ppzd2definezd2_2447 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5387); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5390;
BgL_auxz00_5390 = 
(int)(((long)14)); 
BgL_ppzd2lambdazd2_2448 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5390); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5393;
BgL_auxz00_5393 = 
(int)(((long)15)); 
BgL_maxzd2callzd2headzd2widthzd2_2449 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5393); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5396;
BgL_auxz00_5396 = 
(int)(((long)16)); 
BgL_outputz00_2450 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5396); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5399;
BgL_auxz00_5399 = 
(int)(((long)17)); 
BgL_ppzd2exprzd2_2451 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5399); } 
{ /* ./Pp/pp.scm 373 */
int BgL_auxz00_5402;
BgL_auxz00_5402 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2listz00_2452 = 
PROCEDURE_REF(BgL_envz00_2433, BgL_auxz00_5402); } 
{ 
obj_t BgL_exprz00_463;obj_t BgL_colz00_464;obj_t BgL_extraz00_465;
BgL_exprz00_463 = BgL_exprz00_2453; 
BgL_colz00_464 = BgL_colz00_2454; 
BgL_extraz00_465 = BgL_extraz00_2455; 
return 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2435, BgL_outputz00_2450, BgL_displayzf3zf3_2438, BgL_ppzd2exprzd2_2451, BgL_maxzd2exprzd2widthz00_2437, BgL_widthz00_2436, BgL_maxzd2callzd2headzd2widthzd2_2449, BgL_ppzd2lambdazd2_2448, BgL_ppzd2definezd2_2447, BgL_ppzd2defunzd2_2446, BgL_ppzd2ifzd2_2445, BgL_ppzd2condzd2_2444, BgL_envz00_2433, BgL_ppzd2andzd2_2443, BgL_ppzd2letzd2_2442, BgL_ppzd2beginzd2_2441, BgL_ppzd2dozd2_2440, BgL_ppzd2commentzd2_2439, BgL_ppzd2exprzd2listz00_2452, BgL_ppzd2exprzd2defunz00_2434, BgL_exprz00_463, BgL_colz00_464, BgL_extraz00_465, ((bool_t)0), BgL_ppzd2exprzd2_2451, BFALSE, BgL_ppzd2exprzd2listz00_2452);} } } 
}



/* pp-and */
obj_t BGl_ppzd2andzd2zz__ppz00(obj_t BgL_envz00_2456, obj_t BgL_exprz00_2476, obj_t BgL_colz00_2477, obj_t BgL_extraz00_2478)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 376 */
{ /* ./Pp/pp.scm 376 */
obj_t BgL_ppzd2exprzd2defunz00_2457;obj_t BgL_indentzd2generalzd2_2458;obj_t BgL_widthz00_2459;obj_t BgL_maxzd2exprzd2widthz00_2460;obj_t BgL_displayzf3zf3_2461;obj_t BgL_ppzd2exprzd2listz00_2462;obj_t BgL_ppzd2commentzd2_2463;obj_t BgL_ppzd2dozd2_2464;obj_t BgL_ppzd2beginzd2_2465;obj_t BgL_ppzd2letzd2_2466;obj_t BgL_ppzd2casezd2_2467;obj_t BgL_ppzd2condzd2_2468;obj_t BgL_ppzd2ifzd2_2469;obj_t BgL_ppzd2defunzd2_2470;obj_t BgL_ppzd2definezd2_2471;obj_t BgL_ppzd2lambdazd2_2472;obj_t BgL_maxzd2callzd2headzd2widthzd2_2473;obj_t BgL_outputz00_2474;obj_t BgL_ppzd2exprzd2_2475;
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5406;
BgL_auxz00_5406 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2457 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5406); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5409;
BgL_auxz00_5409 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2458 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5409); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5412;
BgL_auxz00_5412 = 
(int)(((long)2)); 
BgL_widthz00_2459 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5412); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5415;
BgL_auxz00_5415 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2460 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5415); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5418;
BgL_auxz00_5418 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2461 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5418); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5421;
BgL_auxz00_5421 = 
(int)(((long)5)); 
BgL_ppzd2exprzd2listz00_2462 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5421); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5424;
BgL_auxz00_5424 = 
(int)(((long)6)); 
BgL_ppzd2commentzd2_2463 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5424); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5427;
BgL_auxz00_5427 = 
(int)(((long)7)); 
BgL_ppzd2dozd2_2464 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5427); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5430;
BgL_auxz00_5430 = 
(int)(((long)8)); 
BgL_ppzd2beginzd2_2465 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5430); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5433;
BgL_auxz00_5433 = 
(int)(((long)9)); 
BgL_ppzd2letzd2_2466 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5433); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5436;
BgL_auxz00_5436 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2467 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5436); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5439;
BgL_auxz00_5439 = 
(int)(((long)11)); 
BgL_ppzd2condzd2_2468 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5439); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5442;
BgL_auxz00_5442 = 
(int)(((long)12)); 
BgL_ppzd2ifzd2_2469 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5442); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5445;
BgL_auxz00_5445 = 
(int)(((long)13)); 
BgL_ppzd2defunzd2_2470 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5445); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5448;
BgL_auxz00_5448 = 
(int)(((long)14)); 
BgL_ppzd2definezd2_2471 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5448); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5451;
BgL_auxz00_5451 = 
(int)(((long)15)); 
BgL_ppzd2lambdazd2_2472 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5451); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5454;
BgL_auxz00_5454 = 
(int)(((long)16)); 
BgL_maxzd2callzd2headzd2widthzd2_2473 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5454); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5457;
BgL_auxz00_5457 = 
(int)(((long)17)); 
BgL_outputz00_2474 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5457); } 
{ /* ./Pp/pp.scm 376 */
int BgL_auxz00_5460;
BgL_auxz00_5460 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2_2475 = 
PROCEDURE_REF(BgL_envz00_2456, BgL_auxz00_5460); } 
{ 
obj_t BgL_exprz00_459;obj_t BgL_colz00_460;obj_t BgL_extraz00_461;
BgL_exprz00_459 = BgL_exprz00_2476; 
BgL_colz00_460 = BgL_colz00_2477; 
BgL_extraz00_461 = BgL_extraz00_2478; 
{ /* ./Pp/pp.scm 376 */
obj_t BgL_colza2za2_1109;
BgL_colza2za2_1109 = 
BGl_wrz00zz__ppz00(BgL_displayzf3zf3_2461, BgL_outputz00_2474, 
CAR(BgL_exprz00_459), 
BGl_outz00zz__ppz00(BgL_outputz00_2474, BGl_string3803z00zz__ppz00, BgL_colz00_460)); 
if(
CBOOL(BgL_colz00_460))
{ /* ./Pp/pp.scm 376 */
obj_t BgL_arg1316z00_1113;long BgL_arg1317z00_1114;
BgL_arg1316z00_1113 = 
CDR(BgL_exprz00_459); 
{ /* ./Pp/pp.scm 376 */
long BgL_auxz00_5469;
BgL_auxz00_5469 = 
(long)CINT(BgL_colza2za2_1109); 
BgL_arg1317z00_1114 = 
(BgL_auxz00_5469+((long)1)); } 
{ /* ./Pp/pp.scm 376 */
obj_t BgL_maxzd2exprzd2widthz00_2781;obj_t BgL_maxzd2callzd2headzd2widthzd2_2783;obj_t BgL_indentzd2generalzd2_2796;obj_t BgL_col2z00_2800;
BgL_maxzd2exprzd2widthz00_2781 = BgL_maxzd2exprzd2widthz00_2460; 
BgL_maxzd2callzd2headzd2widthzd2_2783 = BgL_maxzd2callzd2headzd2widthzd2_2473; 
BgL_indentzd2generalzd2_2796 = BgL_indentzd2generalzd2_2458; 
BgL_col2z00_2800 = 
BINT(BgL_arg1317z00_1114); 
return 
BGl_loopz00zz__ppz00(BgL_ppzd2exprzd2_2475, BgL_extraz00_461, BgL_outputz00_2474, BgL_col2z00_2800, BgL_ppzd2exprzd2_2475, BgL_displayzf3zf3_2461, BgL_maxzd2exprzd2widthz00_2781, BgL_widthz00_2459, BgL_maxzd2callzd2headzd2widthzd2_2783, BgL_ppzd2lambdazd2_2472, BgL_ppzd2definezd2_2471, BgL_ppzd2defunzd2_2470, BgL_ppzd2ifzd2_2469, BgL_ppzd2condzd2_2468, BgL_ppzd2casezd2_2467, BgL_envz00_2456, BgL_ppzd2letzd2_2466, BgL_ppzd2beginzd2_2465, BgL_ppzd2dozd2_2464, BgL_ppzd2commentzd2_2463, BgL_ppzd2exprzd2listz00_2462, BgL_indentzd2generalzd2_2796, BgL_ppzd2exprzd2defunz00_2457, BgL_arg1316z00_1113, BgL_colza2za2_1109);} }  else 
{ /* ./Pp/pp.scm 376 */
return BFALSE;} } } } } 
}



/* pp-let */
obj_t BGl_ppzd2letzd2zz__ppz00(obj_t BgL_envz00_2479, obj_t BgL_exprz00_2499, obj_t BgL_colz00_2500, obj_t BgL_extraz00_2501)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 381 */
{ /* ./Pp/pp.scm 379 */
obj_t BgL_ppzd2exprzd2defunz00_2480;obj_t BgL_indentzd2generalzd2_2481;obj_t BgL_widthz00_2482;obj_t BgL_maxzd2exprzd2widthz00_2483;obj_t BgL_displayzf3zf3_2484;obj_t BgL_ppzd2commentzd2_2485;obj_t BgL_ppzd2dozd2_2486;obj_t BgL_ppzd2beginzd2_2487;obj_t BgL_ppzd2andzd2_2488;obj_t BgL_ppzd2casezd2_2489;obj_t BgL_ppzd2condzd2_2490;obj_t BgL_ppzd2ifzd2_2491;obj_t BgL_ppzd2defunzd2_2492;obj_t BgL_ppzd2definezd2_2493;obj_t BgL_ppzd2lambdazd2_2494;obj_t BgL_maxzd2callzd2headzd2widthzd2_2495;obj_t BgL_outputz00_2496;obj_t BgL_ppzd2exprzd2listz00_2497;obj_t BgL_ppzd2exprzd2_2498;
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5474;
BgL_auxz00_5474 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2480 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5474); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5477;
BgL_auxz00_5477 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2481 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5477); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5480;
BgL_auxz00_5480 = 
(int)(((long)2)); 
BgL_widthz00_2482 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5480); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5483;
BgL_auxz00_5483 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2483 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5483); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5486;
BgL_auxz00_5486 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2484 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5486); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5489;
BgL_auxz00_5489 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2485 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5489); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5492;
BgL_auxz00_5492 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2486 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5492); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5495;
BgL_auxz00_5495 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2487 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5495); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5498;
BgL_auxz00_5498 = 
(int)(((long)8)); 
BgL_ppzd2andzd2_2488 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5498); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5501;
BgL_auxz00_5501 = 
(int)(((long)9)); 
BgL_ppzd2casezd2_2489 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5501); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5504;
BgL_auxz00_5504 = 
(int)(((long)10)); 
BgL_ppzd2condzd2_2490 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5504); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5507;
BgL_auxz00_5507 = 
(int)(((long)11)); 
BgL_ppzd2ifzd2_2491 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5507); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5510;
BgL_auxz00_5510 = 
(int)(((long)12)); 
BgL_ppzd2defunzd2_2492 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5510); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5513;
BgL_auxz00_5513 = 
(int)(((long)13)); 
BgL_ppzd2definezd2_2493 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5513); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5516;
BgL_auxz00_5516 = 
(int)(((long)14)); 
BgL_ppzd2lambdazd2_2494 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5516); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5519;
BgL_auxz00_5519 = 
(int)(((long)15)); 
BgL_maxzd2callzd2headzd2widthzd2_2495 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5519); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5522;
BgL_auxz00_5522 = 
(int)(((long)16)); 
BgL_outputz00_2496 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5522); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5525;
BgL_auxz00_5525 = 
(int)(((long)17)); 
BgL_ppzd2exprzd2listz00_2497 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5525); } 
{ /* ./Pp/pp.scm 379 */
int BgL_auxz00_5528;
BgL_auxz00_5528 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2_2498 = 
PROCEDURE_REF(BgL_envz00_2479, BgL_auxz00_5528); } 
{ 
obj_t BgL_exprz00_451;obj_t BgL_colz00_452;obj_t BgL_extraz00_453;
BgL_exprz00_451 = BgL_exprz00_2499; 
BgL_colz00_452 = BgL_colz00_2500; 
BgL_extraz00_453 = BgL_extraz00_2501; 
{ /* ./Pp/pp.scm 379 */
obj_t BgL_restz00_1098;
BgL_restz00_1098 = 
CDR(BgL_exprz00_451); 
{ /* ./Pp/pp.scm 379 */
bool_t BgL_namedzf3zf3_1099;
if(
PAIRP(BgL_restz00_1098))
{ /* ./Pp/pp.scm 379 */
obj_t BgL_auxz00_5534;
BgL_auxz00_5534 = 
CAR(BgL_restz00_1098); 
BgL_namedzf3zf3_1099 = 
SYMBOLP(BgL_auxz00_5534); }  else 
{ /* ./Pp/pp.scm 379 */
BgL_namedzf3zf3_1099 = ((bool_t)0); } 
{ /* ./Pp/pp.scm 379 */

return 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2481, BgL_outputz00_2496, BgL_displayzf3zf3_2484, BgL_ppzd2exprzd2_2498, BgL_maxzd2exprzd2widthz00_2483, BgL_widthz00_2482, BgL_maxzd2callzd2headzd2widthzd2_2495, BgL_ppzd2lambdazd2_2494, BgL_ppzd2definezd2_2493, BgL_ppzd2defunzd2_2492, BgL_ppzd2ifzd2_2491, BgL_ppzd2condzd2_2490, BgL_ppzd2casezd2_2489, BgL_ppzd2andzd2_2488, BgL_envz00_2479, BgL_ppzd2beginzd2_2487, BgL_ppzd2dozd2_2486, BgL_ppzd2commentzd2_2485, BgL_ppzd2exprzd2listz00_2497, BgL_ppzd2exprzd2defunz00_2480, BgL_exprz00_451, BgL_colz00_452, BgL_extraz00_453, BgL_namedzf3zf3_1099, BgL_ppzd2exprzd2listz00_2497, BFALSE, BgL_ppzd2exprzd2_2498);} } } } } } 
}



/* pp-begin */
obj_t BGl_ppzd2beginzd2zz__ppz00(obj_t BgL_envz00_2502, obj_t BgL_exprz00_2522, obj_t BgL_colz00_2523, obj_t BgL_extraz00_2524)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 384 */
{ /* ./Pp/pp.scm 384 */
obj_t BgL_ppzd2exprzd2defunz00_2503;obj_t BgL_indentzd2generalzd2_2504;obj_t BgL_widthz00_2505;obj_t BgL_maxzd2exprzd2widthz00_2506;obj_t BgL_displayzf3zf3_2507;obj_t BgL_ppzd2exprzd2listz00_2508;obj_t BgL_ppzd2commentzd2_2509;obj_t BgL_ppzd2dozd2_2510;obj_t BgL_ppzd2letzd2_2511;obj_t BgL_ppzd2andzd2_2512;obj_t BgL_ppzd2casezd2_2513;obj_t BgL_ppzd2condzd2_2514;obj_t BgL_ppzd2ifzd2_2515;obj_t BgL_ppzd2defunzd2_2516;obj_t BgL_ppzd2definezd2_2517;obj_t BgL_ppzd2lambdazd2_2518;obj_t BgL_maxzd2callzd2headzd2widthzd2_2519;obj_t BgL_outputz00_2520;obj_t BgL_ppzd2exprzd2_2521;
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5538;
BgL_auxz00_5538 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2503 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5538); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5541;
BgL_auxz00_5541 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2504 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5541); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5544;
BgL_auxz00_5544 = 
(int)(((long)2)); 
BgL_widthz00_2505 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5544); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5547;
BgL_auxz00_5547 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2506 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5547); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5550;
BgL_auxz00_5550 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2507 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5550); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5553;
BgL_auxz00_5553 = 
(int)(((long)5)); 
BgL_ppzd2exprzd2listz00_2508 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5553); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5556;
BgL_auxz00_5556 = 
(int)(((long)6)); 
BgL_ppzd2commentzd2_2509 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5556); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5559;
BgL_auxz00_5559 = 
(int)(((long)7)); 
BgL_ppzd2dozd2_2510 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5559); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5562;
BgL_auxz00_5562 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2511 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5562); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5565;
BgL_auxz00_5565 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2512 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5565); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5568;
BgL_auxz00_5568 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2513 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5568); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5571;
BgL_auxz00_5571 = 
(int)(((long)11)); 
BgL_ppzd2condzd2_2514 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5571); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5574;
BgL_auxz00_5574 = 
(int)(((long)12)); 
BgL_ppzd2ifzd2_2515 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5574); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5577;
BgL_auxz00_5577 = 
(int)(((long)13)); 
BgL_ppzd2defunzd2_2516 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5577); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5580;
BgL_auxz00_5580 = 
(int)(((long)14)); 
BgL_ppzd2definezd2_2517 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5580); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5583;
BgL_auxz00_5583 = 
(int)(((long)15)); 
BgL_ppzd2lambdazd2_2518 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5583); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5586;
BgL_auxz00_5586 = 
(int)(((long)16)); 
BgL_maxzd2callzd2headzd2widthzd2_2519 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5586); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5589;
BgL_auxz00_5589 = 
(int)(((long)17)); 
BgL_outputz00_2520 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5589); } 
{ /* ./Pp/pp.scm 384 */
int BgL_auxz00_5592;
BgL_auxz00_5592 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2_2521 = 
PROCEDURE_REF(BgL_envz00_2502, BgL_auxz00_5592); } 
{ 
obj_t BgL_exprz00_447;obj_t BgL_colz00_448;obj_t BgL_extraz00_449;
BgL_exprz00_447 = BgL_exprz00_2522; 
BgL_colz00_448 = BgL_colz00_2523; 
BgL_extraz00_449 = BgL_extraz00_2524; 
return 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2504, BgL_outputz00_2520, BgL_displayzf3zf3_2507, BgL_ppzd2exprzd2_2521, BgL_maxzd2exprzd2widthz00_2506, BgL_widthz00_2505, BgL_maxzd2callzd2headzd2widthzd2_2519, BgL_ppzd2lambdazd2_2518, BgL_ppzd2definezd2_2517, BgL_ppzd2defunzd2_2516, BgL_ppzd2ifzd2_2515, BgL_ppzd2condzd2_2514, BgL_ppzd2casezd2_2513, BgL_ppzd2andzd2_2512, BgL_ppzd2letzd2_2511, BgL_envz00_2502, BgL_ppzd2dozd2_2510, BgL_ppzd2commentzd2_2509, BgL_ppzd2exprzd2listz00_2508, BgL_ppzd2exprzd2defunz00_2503, BgL_exprz00_447, BgL_colz00_448, BgL_extraz00_449, ((bool_t)0), BFALSE, BFALSE, BgL_ppzd2exprzd2_2521);} } } 
}



/* pp-do */
obj_t BGl_ppzd2dozd2zz__ppz00(obj_t BgL_envz00_2525, obj_t BgL_exprz00_2545, obj_t BgL_colz00_2546, obj_t BgL_extraz00_2547)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 387 */
{ /* ./Pp/pp.scm 387 */
obj_t BgL_ppzd2exprzd2defunz00_2526;obj_t BgL_indentzd2generalzd2_2527;obj_t BgL_widthz00_2528;obj_t BgL_maxzd2exprzd2widthz00_2529;obj_t BgL_displayzf3zf3_2530;obj_t BgL_ppzd2commentzd2_2531;obj_t BgL_ppzd2beginzd2_2532;obj_t BgL_ppzd2letzd2_2533;obj_t BgL_ppzd2andzd2_2534;obj_t BgL_ppzd2casezd2_2535;obj_t BgL_ppzd2condzd2_2536;obj_t BgL_ppzd2ifzd2_2537;obj_t BgL_ppzd2defunzd2_2538;obj_t BgL_ppzd2definezd2_2539;obj_t BgL_ppzd2lambdazd2_2540;obj_t BgL_maxzd2callzd2headzd2widthzd2_2541;obj_t BgL_outputz00_2542;obj_t BgL_ppzd2exprzd2listz00_2543;obj_t BgL_ppzd2exprzd2_2544;
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5596;
BgL_auxz00_5596 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2526 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5596); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5599;
BgL_auxz00_5599 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2527 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5599); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5602;
BgL_auxz00_5602 = 
(int)(((long)2)); 
BgL_widthz00_2528 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5602); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5605;
BgL_auxz00_5605 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2529 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5605); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5608;
BgL_auxz00_5608 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2530 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5608); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5611;
BgL_auxz00_5611 = 
(int)(((long)5)); 
BgL_ppzd2commentzd2_2531 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5611); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5614;
BgL_auxz00_5614 = 
(int)(((long)6)); 
BgL_ppzd2beginzd2_2532 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5614); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5617;
BgL_auxz00_5617 = 
(int)(((long)7)); 
BgL_ppzd2letzd2_2533 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5617); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5620;
BgL_auxz00_5620 = 
(int)(((long)8)); 
BgL_ppzd2andzd2_2534 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5620); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5623;
BgL_auxz00_5623 = 
(int)(((long)9)); 
BgL_ppzd2casezd2_2535 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5623); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5626;
BgL_auxz00_5626 = 
(int)(((long)10)); 
BgL_ppzd2condzd2_2536 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5626); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5629;
BgL_auxz00_5629 = 
(int)(((long)11)); 
BgL_ppzd2ifzd2_2537 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5629); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5632;
BgL_auxz00_5632 = 
(int)(((long)12)); 
BgL_ppzd2defunzd2_2538 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5632); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5635;
BgL_auxz00_5635 = 
(int)(((long)13)); 
BgL_ppzd2definezd2_2539 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5635); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5638;
BgL_auxz00_5638 = 
(int)(((long)14)); 
BgL_ppzd2lambdazd2_2540 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5638); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5641;
BgL_auxz00_5641 = 
(int)(((long)15)); 
BgL_maxzd2callzd2headzd2widthzd2_2541 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5641); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5644;
BgL_auxz00_5644 = 
(int)(((long)16)); 
BgL_outputz00_2542 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5644); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5647;
BgL_auxz00_5647 = 
(int)(((long)17)); 
BgL_ppzd2exprzd2listz00_2543 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5647); } 
{ /* ./Pp/pp.scm 387 */
int BgL_auxz00_5650;
BgL_auxz00_5650 = 
(int)(((long)18)); 
BgL_ppzd2exprzd2_2544 = 
PROCEDURE_REF(BgL_envz00_2525, BgL_auxz00_5650); } 
{ 
obj_t BgL_exprz00_443;obj_t BgL_colz00_444;obj_t BgL_extraz00_445;
BgL_exprz00_443 = BgL_exprz00_2545; 
BgL_colz00_444 = BgL_colz00_2546; 
BgL_extraz00_445 = BgL_extraz00_2547; 
return 
BGl_ppzd2generalzd2zz__ppz00(BgL_indentzd2generalzd2_2527, BgL_outputz00_2542, BgL_displayzf3zf3_2530, BgL_ppzd2exprzd2_2544, BgL_maxzd2exprzd2widthz00_2529, BgL_widthz00_2528, BgL_maxzd2callzd2headzd2widthzd2_2541, BgL_ppzd2lambdazd2_2540, BgL_ppzd2definezd2_2539, BgL_ppzd2defunzd2_2538, BgL_ppzd2ifzd2_2537, BgL_ppzd2condzd2_2536, BgL_ppzd2casezd2_2535, BgL_ppzd2andzd2_2534, BgL_ppzd2letzd2_2533, BgL_ppzd2beginzd2_2532, BgL_envz00_2525, BgL_ppzd2commentzd2_2531, BgL_ppzd2exprzd2listz00_2543, BgL_ppzd2exprzd2defunz00_2526, BgL_exprz00_443, BgL_colz00_444, BgL_extraz00_445, ((bool_t)0), BgL_ppzd2exprzd2listz00_2543, BgL_ppzd2exprzd2listz00_2543, BgL_ppzd2exprzd2_2544);} } } 
}



/* pp-comment */
obj_t BGl_ppzd2commentzd2zz__ppz00(obj_t BgL_envz00_2548, obj_t BgL_exprz00_2568, obj_t BgL_colz00_2569, obj_t BgL_extraz00_2570)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 364 */
{ /* ./Pp/pp.scm 364 */
obj_t BgL_ppzd2exprzd2defunz00_2549;obj_t BgL_indentzd2generalzd2_2550;obj_t BgL_widthz00_2551;obj_t BgL_maxzd2exprzd2widthz00_2552;obj_t BgL_displayzf3zf3_2553;obj_t BgL_ppzd2exprzd2listz00_2554;obj_t BgL_ppzd2dozd2_2555;obj_t BgL_ppzd2beginzd2_2556;obj_t BgL_ppzd2letzd2_2557;obj_t BgL_ppzd2andzd2_2558;obj_t BgL_ppzd2casezd2_2559;obj_t BgL_ppzd2condzd2_2560;obj_t BgL_ppzd2ifzd2_2561;obj_t BgL_ppzd2defunzd2_2562;obj_t BgL_ppzd2definezd2_2563;obj_t BgL_ppzd2lambdazd2_2564;obj_t BgL_maxzd2callzd2headzd2widthzd2_2565;obj_t BgL_ppzd2exprzd2_2566;obj_t BgL_outputz00_2567;
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5654;
BgL_auxz00_5654 = 
(int)(((long)0)); 
BgL_ppzd2exprzd2defunz00_2549 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5654); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5657;
BgL_auxz00_5657 = 
(int)(((long)1)); 
BgL_indentzd2generalzd2_2550 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5657); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5660;
BgL_auxz00_5660 = 
(int)(((long)2)); 
BgL_widthz00_2551 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5660); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5663;
BgL_auxz00_5663 = 
(int)(((long)3)); 
BgL_maxzd2exprzd2widthz00_2552 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5663); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5666;
BgL_auxz00_5666 = 
(int)(((long)4)); 
BgL_displayzf3zf3_2553 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5666); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5669;
BgL_auxz00_5669 = 
(int)(((long)5)); 
BgL_ppzd2exprzd2listz00_2554 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5669); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5672;
BgL_auxz00_5672 = 
(int)(((long)6)); 
BgL_ppzd2dozd2_2555 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5672); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5675;
BgL_auxz00_5675 = 
(int)(((long)7)); 
BgL_ppzd2beginzd2_2556 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5675); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5678;
BgL_auxz00_5678 = 
(int)(((long)8)); 
BgL_ppzd2letzd2_2557 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5678); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5681;
BgL_auxz00_5681 = 
(int)(((long)9)); 
BgL_ppzd2andzd2_2558 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5681); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5684;
BgL_auxz00_5684 = 
(int)(((long)10)); 
BgL_ppzd2casezd2_2559 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5684); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5687;
BgL_auxz00_5687 = 
(int)(((long)11)); 
BgL_ppzd2condzd2_2560 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5687); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5690;
BgL_auxz00_5690 = 
(int)(((long)12)); 
BgL_ppzd2ifzd2_2561 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5690); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5693;
BgL_auxz00_5693 = 
(int)(((long)13)); 
BgL_ppzd2defunzd2_2562 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5693); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5696;
BgL_auxz00_5696 = 
(int)(((long)14)); 
BgL_ppzd2definezd2_2563 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5696); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5699;
BgL_auxz00_5699 = 
(int)(((long)15)); 
BgL_ppzd2lambdazd2_2564 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5699); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5702;
BgL_auxz00_5702 = 
(int)(((long)16)); 
BgL_maxzd2callzd2headzd2widthzd2_2565 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5702); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5705;
BgL_auxz00_5705 = 
(int)(((long)17)); 
BgL_ppzd2exprzd2_2566 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5705); } 
{ /* ./Pp/pp.scm 364 */
int BgL_auxz00_5708;
BgL_auxz00_5708 = 
(int)(((long)18)); 
BgL_outputz00_2567 = 
PROCEDURE_REF(BgL_envz00_2548, BgL_auxz00_5708); } 
{ 
obj_t BgL_exprz00_475;obj_t BgL_colz00_476;obj_t BgL_extraz00_477;
BgL_exprz00_475 = BgL_exprz00_2568; 
BgL_colz00_476 = BgL_colz00_2569; 
BgL_extraz00_477 = BgL_extraz00_2570; 
{ 
obj_t BgL_columnz00_479;obj_t BgL_stringz00_480;
if(
PAIRP(BgL_exprz00_475))
{ /* ./Pp/pp.scm 364 */
obj_t BgL_cdrzd2118zd2_485;
BgL_cdrzd2118zd2_485 = 
CDR(BgL_exprz00_475); 
{ /* ./Pp/pp.scm 364 */
bool_t BgL_testz00_5714;
{ /* ./Pp/pp.scm 364 */
obj_t BgL_auxz00_5715;
BgL_auxz00_5715 = 
CAR(BgL_exprz00_475); 
BgL_testz00_5714 = 
(BgL_auxz00_5715==BGl_symbol3788z00zz__ppz00); } 
if(BgL_testz00_5714)
{ /* ./Pp/pp.scm 364 */
if(
PAIRP(BgL_cdrzd2118zd2_485))
{ /* ./Pp/pp.scm 364 */
obj_t BgL_carzd2121zd2_488;obj_t BgL_cdrzd2122zd2_489;
BgL_carzd2121zd2_488 = 
CAR(BgL_cdrzd2118zd2_485); 
BgL_cdrzd2122zd2_489 = 
CDR(BgL_cdrzd2118zd2_485); 
if(
INTEGERP(BgL_carzd2121zd2_488))
{ /* ./Pp/pp.scm 364 */
if(
PAIRP(BgL_cdrzd2122zd2_489))
{ /* ./Pp/pp.scm 364 */
obj_t BgL_carzd2127zd2_492;
BgL_carzd2127zd2_492 = 
CAR(BgL_cdrzd2122zd2_489); 
if(
STRINGP(BgL_carzd2127zd2_492))
{ /* ./Pp/pp.scm 364 */
bool_t BgL_testz00_5729;
{ /* ./Pp/pp.scm 364 */
obj_t BgL_auxz00_5730;
BgL_auxz00_5730 = 
CDR(BgL_cdrzd2122zd2_489); 
BgL_testz00_5729 = 
NULLP(BgL_auxz00_5730); } 
if(BgL_testz00_5729)
{ /* ./Pp/pp.scm 364 */
BgL_columnz00_479 = BgL_carzd2121zd2_488; 
BgL_stringz00_480 = BgL_carzd2127zd2_492; 
{ /* ./Pp/pp.scm 353 */
obj_t BgL_addz00_498;
{ /* ./Pp/pp.scm 353 */
obj_t BgL_arg1175z00_509;
{ /* ./Pp/pp.scm 353 */
obj_t BgL_auxz00_5733;
{ /* ./Pp/pp.scm 353 */
int BgL_auxz00_5734;
BgL_auxz00_5734 = 
STRING_LENGTH(BgL_stringz00_480); 
BgL_auxz00_5733 = 
BINT(BgL_auxz00_5734); } 
BgL_arg1175z00_509 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_auxz00_5733, 
BINT(((long)3))); } 
BgL_addz00_498 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BGl_za2ppzd2widthza2zd2zz__ppz00, BgL_arg1175z00_509); } 
{ /* ./Pp/pp.scm 354 */
bool_t BgL_testz00_5740;
{ /* ./Pp/pp.scm 354 */
long BgL_auxz00_5741;
BgL_auxz00_5741 = 
(long)CINT(BgL_columnz00_479); 
BgL_testz00_5740 = 
(BgL_auxz00_5741==((long)0)); } 
if(BgL_testz00_5740)
{ /* ./Pp/pp.scm 355 */
bool_t BgL_testz00_5744;
{ /* ./Pp/pp.scm 355 */
long BgL_auxz00_5745;
BgL_auxz00_5745 = 
(long)CINT(BgL_addz00_498); 
BgL_testz00_5744 = 
(BgL_auxz00_5745>((long)0)); } 
if(BgL_testz00_5744)
{ /* ./Pp/pp.scm 356 */
obj_t BgL_arg1150z00_501;
{ /* ./Pp/pp.scm 356 */
obj_t BgL_arg1154z00_503;
{ /* ./Pp/pp.scm 356 */
obj_t BgL_list1157z00_504;
{ /* ./Pp/pp.scm 356 */
obj_t BgL_auxz00_5748;
BgL_auxz00_5748 = 
BCHAR(((unsigned char)' ')); 
BgL_list1157z00_504 = 
MAKE_PAIR(BgL_auxz00_5748, BNIL); } 
{ /* ./Pp/pp.scm 356 */
obj_t BgL_res2434z00_1155;
{ /* ./Pp/pp.scm 356 */
int BgL_kz00_1149;
BgL_kz00_1149 = 
CINT(BgL_addz00_498); 
{ /* ./Pp/pp.scm 356 */
obj_t BgL_arg2219z00_1152;
BgL_arg2219z00_1152 = 
CAR(BgL_list1157z00_504); 
{ /* ./Pp/pp.scm 356 */
unsigned char BgL_auxz00_5753;
BgL_auxz00_5753 = 
(unsigned char)CCHAR(BgL_arg2219z00_1152); 
BgL_res2434z00_1155 = 
make_string(BgL_kz00_1149, BgL_auxz00_5753); } } } 
BgL_arg1154z00_503 = BgL_res2434z00_1155; } } 
BgL_arg1150z00_501 = 
string_append(BgL_stringz00_480, BgL_arg1154z00_503); } 
{ /* ./Pp/pp.scm 356 */
obj_t BgL__andtest_1005z00_1159;
BgL__andtest_1005z00_1159 = 
PROCEDURE_ENTRY(BgL_outputz00_2567)(BgL_outputz00_2567, BgL_arg1150z00_501, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1159))
{ /* ./Pp/pp.scm 356 */
long BgL_auxz00_5761;
{ /* ./Pp/pp.scm 356 */
long BgL_auxz00_5762;
{ /* ./Pp/pp.scm 356 */
int BgL_auxz00_5763;
BgL_auxz00_5763 = 
STRING_LENGTH(BgL_arg1150z00_501); 
BgL_auxz00_5762 = 
(long)(BgL_auxz00_5763); } 
BgL_auxz00_5761 = 
(((long)0)+BgL_auxz00_5762); } 
return 
BINT(BgL_auxz00_5761);}  else 
{ /* ./Pp/pp.scm 356 */
return BFALSE;} } }  else 
{ /* ./Pp/pp.scm 358 */
obj_t BgL__andtest_1005z00_1167;
BgL__andtest_1005z00_1167 = 
PROCEDURE_ENTRY(BgL_outputz00_2567)(BgL_outputz00_2567, BgL_stringz00_480, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1167))
{ /* ./Pp/pp.scm 358 */
long BgL_auxz00_5772;
{ /* ./Pp/pp.scm 358 */
long BgL_auxz00_5773;
{ /* ./Pp/pp.scm 358 */
int BgL_auxz00_5774;
BgL_auxz00_5774 = 
STRING_LENGTH(BgL_stringz00_480); 
BgL_auxz00_5773 = 
(long)(BgL_auxz00_5774); } 
BgL_auxz00_5772 = 
(((long)0)+BgL_auxz00_5773); } 
return 
BINT(BgL_auxz00_5772);}  else 
{ /* ./Pp/pp.scm 358 */
return BFALSE;} } }  else 
{ /* ./Pp/pp.scm 359 */
bool_t BgL_testz00_5779;
{ /* ./Pp/pp.scm 359 */
long BgL_auxz00_5780;
BgL_auxz00_5780 = 
(long)CINT(BgL_addz00_498); 
BgL_testz00_5779 = 
(BgL_auxz00_5780>((long)0)); } 
if(BgL_testz00_5779)
{ /* ./Pp/pp.scm 360 */
obj_t BgL_arg1163z00_506;
{ /* ./Pp/pp.scm 360 */
obj_t BgL_arg1166z00_507;
{ /* ./Pp/pp.scm 360 */
obj_t BgL_list1169z00_508;
{ /* ./Pp/pp.scm 360 */
obj_t BgL_auxz00_5783;
BgL_auxz00_5783 = 
BCHAR(((unsigned char)' ')); 
BgL_list1169z00_508 = 
MAKE_PAIR(BgL_auxz00_5783, BNIL); } 
{ /* ./Pp/pp.scm 360 */
obj_t BgL_res2435z00_1180;
{ /* ./Pp/pp.scm 360 */
int BgL_kz00_1174;
BgL_kz00_1174 = 
CINT(BgL_addz00_498); 
{ /* ./Pp/pp.scm 360 */
obj_t BgL_arg2219z00_1177;
BgL_arg2219z00_1177 = 
CAR(BgL_list1169z00_508); 
{ /* ./Pp/pp.scm 360 */
unsigned char BgL_auxz00_5788;
BgL_auxz00_5788 = 
(unsigned char)CCHAR(BgL_arg2219z00_1177); 
BgL_res2435z00_1180 = 
make_string(BgL_kz00_1174, BgL_auxz00_5788); } } } 
BgL_arg1166z00_507 = BgL_res2435z00_1180; } } 
BgL_arg1163z00_506 = 
string_append(BgL_stringz00_480, BgL_arg1166z00_507); } 
if(
CBOOL(BgL_colz00_476))
{ /* ./Pp/pp.scm 360 */
obj_t BgL__andtest_1005z00_1184;
BgL__andtest_1005z00_1184 = 
PROCEDURE_ENTRY(BgL_outputz00_2567)(BgL_outputz00_2567, BgL_arg1163z00_506, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1184))
{ /* ./Pp/pp.scm 360 */
long BgL_auxz00_5798;
{ /* ./Pp/pp.scm 360 */
long BgL_auxz00_5801;long BgL_auxz00_5799;
{ /* ./Pp/pp.scm 360 */
int BgL_auxz00_5802;
BgL_auxz00_5802 = 
STRING_LENGTH(BgL_arg1163z00_506); 
BgL_auxz00_5801 = 
(long)(BgL_auxz00_5802); } 
BgL_auxz00_5799 = 
(long)CINT(BgL_colz00_476); 
BgL_auxz00_5798 = 
(BgL_auxz00_5799+BgL_auxz00_5801); } 
return 
BINT(BgL_auxz00_5798);}  else 
{ /* ./Pp/pp.scm 360 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 360 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 359 */
if(
CBOOL(BgL_colz00_476))
{ /* ./Pp/pp.scm 362 */
obj_t BgL__andtest_1005z00_1192;
BgL__andtest_1005z00_1192 = 
PROCEDURE_ENTRY(BgL_outputz00_2567)(BgL_outputz00_2567, BgL_stringz00_480, BEOA); 
if(
CBOOL(BgL__andtest_1005z00_1192))
{ /* ./Pp/pp.scm 362 */
long BgL_auxz00_5813;
{ /* ./Pp/pp.scm 362 */
long BgL_auxz00_5816;long BgL_auxz00_5814;
{ /* ./Pp/pp.scm 362 */
int BgL_auxz00_5817;
BgL_auxz00_5817 = 
STRING_LENGTH(BgL_stringz00_480); 
BgL_auxz00_5816 = 
(long)(BgL_auxz00_5817); } 
BgL_auxz00_5814 = 
(long)CINT(BgL_colz00_476); 
BgL_auxz00_5813 = 
(BgL_auxz00_5814+BgL_auxz00_5816); } 
return 
BINT(BgL_auxz00_5813);}  else 
{ /* ./Pp/pp.scm 362 */
return BFALSE;} }  else 
{ /* ./Pp/pp.scm 362 */
return BFALSE;} } } } } }  else 
{ /* ./Pp/pp.scm 364 */
return 
BGl_TAGzd2111zd2zz__ppz00(BgL_ppzd2exprzd2_2566, BgL_extraz00_477, BgL_colz00_476, BgL_exprz00_475, BgL_outputz00_2567, BgL_maxzd2callzd2headzd2widthzd2_2565, BgL_ppzd2lambdazd2_2564, BgL_ppzd2definezd2_2563, BgL_ppzd2defunzd2_2562, BgL_ppzd2ifzd2_2561, BgL_ppzd2condzd2_2560, BgL_ppzd2casezd2_2559, BgL_ppzd2andzd2_2558, BgL_ppzd2letzd2_2557, BgL_ppzd2beginzd2_2556, BgL_ppzd2dozd2_2555, BgL_envz00_2548, BgL_ppzd2exprzd2listz00_2554, BgL_displayzf3zf3_2553, BgL_maxzd2exprzd2widthz00_2552, BgL_widthz00_2551, BgL_indentzd2generalzd2_2550, BgL_ppzd2exprzd2defunz00_2549);} }  else 
{ /* ./Pp/pp.scm 364 */
return 
BGl_TAGzd2111zd2zz__ppz00(BgL_ppzd2exprzd2_2566, BgL_extraz00_477, BgL_colz00_476, BgL_exprz00_475, BgL_outputz00_2567, BgL_maxzd2callzd2headzd2widthzd2_2565, BgL_ppzd2lambdazd2_2564, BgL_ppzd2definezd2_2563, BgL_ppzd2defunzd2_2562, BgL_ppzd2ifzd2_2561, BgL_ppzd2condzd2_2560, BgL_ppzd2casezd2_2559, BgL_ppzd2andzd2_2558, BgL_ppzd2letzd2_2557, BgL_ppzd2beginzd2_2556, BgL_ppzd2dozd2_2555, BgL_envz00_2548, BgL_ppzd2exprzd2listz00_2554, BgL_displayzf3zf3_2553, BgL_maxzd2exprzd2widthz00_2552, BgL_widthz00_2551, BgL_indentzd2generalzd2_2550, BgL_ppzd2exprzd2defunz00_2549);} }  else 
{ /* ./Pp/pp.scm 364 */
return 
BGl_TAGzd2111zd2zz__ppz00(BgL_ppzd2exprzd2_2566, BgL_extraz00_477, BgL_colz00_476, BgL_exprz00_475, BgL_outputz00_2567, BgL_maxzd2callzd2headzd2widthzd2_2565, BgL_ppzd2lambdazd2_2564, BgL_ppzd2definezd2_2563, BgL_ppzd2defunzd2_2562, BgL_ppzd2ifzd2_2561, BgL_ppzd2condzd2_2560, BgL_ppzd2casezd2_2559, BgL_ppzd2andzd2_2558, BgL_ppzd2letzd2_2557, BgL_ppzd2beginzd2_2556, BgL_ppzd2dozd2_2555, BgL_envz00_2548, BgL_ppzd2exprzd2listz00_2554, BgL_displayzf3zf3_2553, BgL_maxzd2exprzd2widthz00_2552, BgL_widthz00_2551, BgL_indentzd2generalzd2_2550, BgL_ppzd2exprzd2defunz00_2549);} }  else 
{ /* ./Pp/pp.scm 364 */
return 
BGl_TAGzd2111zd2zz__ppz00(BgL_ppzd2exprzd2_2566, BgL_extraz00_477, BgL_colz00_476, BgL_exprz00_475, BgL_outputz00_2567, BgL_maxzd2callzd2headzd2widthzd2_2565, BgL_ppzd2lambdazd2_2564, BgL_ppzd2definezd2_2563, BgL_ppzd2defunzd2_2562, BgL_ppzd2ifzd2_2561, BgL_ppzd2condzd2_2560, BgL_ppzd2casezd2_2559, BgL_ppzd2andzd2_2558, BgL_ppzd2letzd2_2557, BgL_ppzd2beginzd2_2556, BgL_ppzd2dozd2_2555, BgL_envz00_2548, BgL_ppzd2exprzd2listz00_2554, BgL_displayzf3zf3_2553, BgL_maxzd2exprzd2widthz00_2552, BgL_widthz00_2551, BgL_indentzd2generalzd2_2550, BgL_ppzd2exprzd2defunz00_2549);} }  else 
{ /* ./Pp/pp.scm 364 */
return 
BGl_TAGzd2111zd2zz__ppz00(BgL_ppzd2exprzd2_2566, BgL_extraz00_477, BgL_colz00_476, BgL_exprz00_475, BgL_outputz00_2567, BgL_maxzd2callzd2headzd2widthzd2_2565, BgL_ppzd2lambdazd2_2564, BgL_ppzd2definezd2_2563, BgL_ppzd2defunzd2_2562, BgL_ppzd2ifzd2_2561, BgL_ppzd2condzd2_2560, BgL_ppzd2casezd2_2559, BgL_ppzd2andzd2_2558, BgL_ppzd2letzd2_2557, BgL_ppzd2beginzd2_2556, BgL_ppzd2dozd2_2555, BgL_envz00_2548, BgL_ppzd2exprzd2listz00_2554, BgL_displayzf3zf3_2553, BgL_maxzd2exprzd2widthz00_2552, BgL_widthz00_2551, BgL_indentzd2generalzd2_2550, BgL_ppzd2exprzd2defunz00_2549);} }  else 
{ /* ./Pp/pp.scm 364 */
return 
BGl_TAGzd2111zd2zz__ppz00(BgL_ppzd2exprzd2_2566, BgL_extraz00_477, BgL_colz00_476, BgL_exprz00_475, BgL_outputz00_2567, BgL_maxzd2callzd2headzd2widthzd2_2565, BgL_ppzd2lambdazd2_2564, BgL_ppzd2definezd2_2563, BgL_ppzd2defunzd2_2562, BgL_ppzd2ifzd2_2561, BgL_ppzd2condzd2_2560, BgL_ppzd2casezd2_2559, BgL_ppzd2andzd2_2558, BgL_ppzd2letzd2_2557, BgL_ppzd2beginzd2_2556, BgL_ppzd2dozd2_2555, BgL_envz00_2548, BgL_ppzd2exprzd2listz00_2554, BgL_displayzf3zf3_2553, BgL_maxzd2exprzd2widthz00_2552, BgL_widthz00_2551, BgL_indentzd2generalzd2_2550, BgL_ppzd2exprzd2defunz00_2549);} } }  else 
{ /* ./Pp/pp.scm 364 */
return 
BGl_TAGzd2111zd2zz__ppz00(BgL_ppzd2exprzd2_2566, BgL_extraz00_477, BgL_colz00_476, BgL_exprz00_475, BgL_outputz00_2567, BgL_maxzd2callzd2headzd2widthzd2_2565, BgL_ppzd2lambdazd2_2564, BgL_ppzd2definezd2_2563, BgL_ppzd2defunzd2_2562, BgL_ppzd2ifzd2_2561, BgL_ppzd2condzd2_2560, BgL_ppzd2casezd2_2559, BgL_ppzd2andzd2_2558, BgL_ppzd2letzd2_2557, BgL_ppzd2beginzd2_2556, BgL_ppzd2dozd2_2555, BgL_envz00_2548, BgL_ppzd2exprzd2listz00_2554, BgL_displayzf3zf3_2553, BgL_maxzd2exprzd2widthz00_2552, BgL_widthz00_2551, BgL_indentzd2generalzd2_2550, BgL_ppzd2exprzd2defunz00_2549);} } } } } 
}



/* reverse-string-append */
obj_t BGl_reversezd2stringzd2appendz00zz__ppz00(obj_t BgL_lz00_8)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 422 */
return 
BGl_revzd2stringzd2appendz00zz__ppz00(BgL_lz00_8, ((long)0));} 
}



/* rev-string-append */
obj_t BGl_revzd2stringzd2appendz00zz__ppz00(obj_t BgL_lz00_872, long BgL_iz00_873)
{ AN_OBJECT;
{ /* ./Pp/pp.scm 435 */
if(
PAIRP(BgL_lz00_872))
{ /* ./Pp/pp.scm 426 */
obj_t BgL_strz00_876;
BgL_strz00_876 = 
CAR(BgL_lz00_872); 
{ /* ./Pp/pp.scm 426 */
int BgL_lenz00_877;
BgL_lenz00_877 = 
STRING_LENGTH(BgL_strz00_876); 
{ /* ./Pp/pp.scm 427 */
obj_t BgL_resultz00_878;
{ /* ./Pp/pp.scm 428 */
long BgL_auxz00_5834;
{ /* ./Pp/pp.scm 428 */
long BgL_auxz00_5836;
BgL_auxz00_5836 = 
(long)(BgL_lenz00_877); 
BgL_auxz00_5834 = 
(BgL_iz00_873+BgL_auxz00_5836); } 
BgL_resultz00_878 = 
BGl_revzd2stringzd2appendz00zz__ppz00(
CDR(BgL_lz00_872), BgL_auxz00_5834); } 
{ /* ./Pp/pp.scm 428 */

{ /* ./Pp/pp.scm 429 */
long BgL_arg1716z00_883;
{ /* ./Pp/pp.scm 429 */
long BgL_auxz00_5846;long BgL_auxz00_5840;
BgL_auxz00_5846 = 
(long)(BgL_lenz00_877); 
{ /* ./Pp/pp.scm 429 */
long BgL_auxz00_5841;
{ /* ./Pp/pp.scm 429 */
int BgL_auxz00_5842;
BgL_auxz00_5842 = 
STRING_LENGTH(BgL_resultz00_878); 
BgL_auxz00_5841 = 
(long)(BgL_auxz00_5842); } 
BgL_auxz00_5840 = 
(BgL_auxz00_5841-BgL_iz00_873); } 
BgL_arg1716z00_883 = 
(BgL_auxz00_5840-BgL_auxz00_5846); } 
{ 
long BgL_jz00_1979;long BgL_kz00_1980;
BgL_jz00_1979 = ((long)0); 
BgL_kz00_1980 = BgL_arg1716z00_883; 
BgL_loopz00_1978:
{ /* ./Pp/pp.scm 429 */
bool_t BgL_testz00_5849;
{ /* ./Pp/pp.scm 429 */
long BgL_auxz00_5850;
BgL_auxz00_5850 = 
(long)(BgL_lenz00_877); 
BgL_testz00_5849 = 
(BgL_jz00_1979<BgL_auxz00_5850); } 
if(BgL_testz00_5849)
{ /* ./Pp/pp.scm 429 */
{ /* ./Pp/pp.scm 429 */
unsigned char BgL_auxz00_5855;int BgL_auxz00_5853;
{ /* ./Pp/pp.scm 429 */
int BgL_auxz00_5856;
BgL_auxz00_5856 = 
(int)(BgL_jz00_1979); 
BgL_auxz00_5855 = 
STRING_REF(BgL_strz00_876, BgL_auxz00_5856); } 
BgL_auxz00_5853 = 
(int)(BgL_kz00_1980); 
STRING_SET(BgL_resultz00_878, BgL_auxz00_5853, BgL_auxz00_5855); } 
{ 
long BgL_kz00_5862;long BgL_jz00_5860;
BgL_jz00_5860 = 
(BgL_jz00_1979+((long)1)); 
BgL_kz00_5862 = 
(BgL_kz00_1980+((long)1)); 
BgL_kz00_1980 = BgL_kz00_5862; 
BgL_jz00_1979 = BgL_jz00_5860; 
goto BgL_loopz00_1978;} }  else 
{ /* ./Pp/pp.scm 429 */
return BgL_resultz00_878;} } } } } } } }  else 
{ /* ./Pp/pp.scm 435 */
int BgL_auxz00_5864;
BgL_auxz00_5864 = 
(int)(BgL_iz00_873); 
return 
make_string(BgL_auxz00_5864, ((unsigned char)' '));} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__ppz00()
{ AN_OBJECT;
{ /* ./Pp/pp.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__pp"); 
return 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)18972), "__pp");} 
}

