/*===========================================================================*/
/*   (Expand/iarith.scm)                                                     */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Expand/iarith.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_iarithmetiquez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__expandzd2izd33731z01zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2izd23725z00zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl__expandzd2ize3zd33739ze2zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2zd2fx3743z00zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl__expandzd2zb2fx3741z60zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2ize33735z31zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
BGL_IMPORT char * BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT obj_t string_to_bstring(char *);
BGL_EXPORTED_DECL obj_t BGl_expandzd2izc3zd3zc2zzexpand_iarithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2ize3zd3ze2zzexpand_iarithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2zb2fxz60zzexpand_iarithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2iza2z70zzexpand_iarithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2izb2z60zzexpand_iarithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2izd2z00zzexpand_iarithmetiquez00(obj_t, obj_t);
static obj_t BGl__expandzd2izf23729z20zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2izf2z20zzexpand_iarithmetiquez00(obj_t, obj_t);
static obj_t BGl__expandzd2izc3zd33737zc2zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2izc3z11zzexpand_iarithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2izd3z01zzexpand_iarithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2ize3z31zzexpand_iarithmetiquez00(obj_t, obj_t);
static obj_t BGl__expandzd2iza23727z70zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_iarithmetiquez00();
BGL_EXPORTED_DECL obj_t BGl_expandzd2eqzf3z21zzexpand_iarithmetiquez00(obj_t, obj_t);
static obj_t BGl__expandzd2eqzf33721z21zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2izb23723z60zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2zd2fxz00zzexpand_iarithmetiquez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzexpand_iarithmetiquez00();
static obj_t BGl_requirezd2initializa7ationz75zzexpand_iarithmetiquez00 = BUNSPEC;
static obj_t BGl__expandzd2izc33733z11zzexpand_iarithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_iarithmetiquez00();
extern obj_t BGl_userzd2warningzd2zztools_errorz00(obj_t, obj_t, obj_t);
static obj_t __cnst[ 20 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2eqzf3zd2envzf3zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2eqza7f33721za721za7za7expand_iarithmetiqueza7003899z00, BGl__expandzd2eqzf33721z21zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2izd2zd2envzd2zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7d23725za700za7za7expand_iarithmetiqueza7003900z00, BGl__expandzd2izd23725z00zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2izd3zd2envzd3zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7d33731za701za7za7expand_iarithmetiqueza7003901z00, BGl__expandzd2izd33731z01zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2izc3zd2envzc3zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7c33733za711za7za7expand_iarithmetiqueza7003902z00, BGl__expandzd2izc33733z11zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2ize3zd3zd2envz30zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7e3za7d33739za7e2za7za7expand_iarithmetiqueza7003903za7, BGl__expandzd2ize3zd33739ze2zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2zd2fxzd2envzd2zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2za7d2fx3743za700za7za7expand_iarithmetiqueza7003904z00, BGl__expandzd2zd2fx3743z00zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2izb2zd2envzb2zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7b23723za760za7za7expand_iarithmetiqueza7003905z00, BGl__expandzd2izb23723z60zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2zb2fxzd2envzb2zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2za7b2fx3741za760za7za7expand_iarithmetiqueza7003906z00, BGl__expandzd2zb2fx3741z60zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2iza2zd2envza2zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7a23727za770za7za7expand_iarithmetiqueza7003907z00, BGl__expandzd2iza23727z70zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2izf2zd2envzf2zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7f23729za720za7za7expand_iarithmetiqueza7003908z00, BGl__expandzd2izf23729z20zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_STRING( BGl_string3873z00zzexpand_iarithmetiquez00, BgL_bgl_string3873za700za7za7expand_iarithmetiqueza7003909z00, ">= >=fx <= <=fx > >fx < <fx = and =fx /fx * *fx -fx negfx + +fx quote c-eq? ", 76 );
DEFINE_STRING( BGl_string3872z00zzexpand_iarithmetiquez00, BgL_bgl_string3872za700za7za7expand_iarithmetiqueza7003910z00, "Incorrect number of arguments for `-fx'", 39 );
DEFINE_STRING( BGl_string3871z00zzexpand_iarithmetiquez00, BgL_bgl_string3871za700za7za7expand_iarithmetiqueza7003911z00, "Incorrect number of arguments for `+fx'", 39 );
DEFINE_STRING( BGl_string3870z00zzexpand_iarithmetiquez00, BgL_bgl_string3870za700za7za7expand_iarithmetiqueza7003912z00, "Turning \"(/ ... ... ...)\" into \"(/fx ... (* ... ...))\" which may result in precision penalty", 92 );
DEFINE_STRING( BGl_string3869z00zzexpand_iarithmetiquez00, BgL_bgl_string3869za700za7za7expand_iarithmetiqueza7003913z00, "Turning \"(/ ... ...)\" into \"(/fx ... ...)\" which may result in precision penalty", 80 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2izc3zd3zd2envz10zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7c3za7d33737za7c2za7za7expand_iarithmetiqueza7003914za7, BGl__expandzd2izc3zd33737zc2zzexpand_iarithmetiquez00, 0L, 2 );
DEFINE_STRING( BGl_string3868z00zzexpand_iarithmetiquez00, BgL_bgl_string3868za700za7za7expand_iarithmetiqueza7003915z00, "Turning \"(/ ", 12 );
DEFINE_STRING( BGl_string3867z00zzexpand_iarithmetiquez00, BgL_bgl_string3867za700za7za7expand_iarithmetiqueza7003916z00, " ", 1 );
DEFINE_STRING( BGl_string3866z00zzexpand_iarithmetiquez00, BgL_bgl_string3866za700za7za7expand_iarithmetiqueza7003917z00, ")\" into \"", 9 );
DEFINE_STRING( BGl_string3865z00zzexpand_iarithmetiquez00, BgL_bgl_string3865za700za7za7expand_iarithmetiqueza7003918z00, "\" which may result in precision penalty", 39 );
DEFINE_STRING( BGl_string3864z00zzexpand_iarithmetiquez00, BgL_bgl_string3864za700za7za7expand_iarithmetiqueza7003919z00, "Turning \"(/ ...)\" into \"(/fx ...)\" which may result in precision penalty", 72 );
DEFINE_STRING( BGl_string3863z00zzexpand_iarithmetiquez00, BgL_bgl_string3863za700za7za7expand_iarithmetiqueza7003920z00, "/", 1 );
DEFINE_STRING( BGl_string3862z00zzexpand_iarithmetiquez00, BgL_bgl_string3862za700za7za7expand_iarithmetiqueza7003921z00, "Incorrect number of arguments for `eq?'", 39 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2ize3zd2envze3zzexpand_iarithmetiquez00, BgL_bgl__expandza7d2iza7e33735za731za7za7expand_iarithmetiqueza7003922z00, BGl__expandzd2ize33735z31zzexpand_iarithmetiquez00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_iarithmetiquez00(long BgL_checksumz00_2265, char * BgL_fromz00_2266)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_iarithmetiquez00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_iarithmetiquez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_iarithmetiquez00(); 
BGl_cnstzd2initzd2zzexpand_iarithmetiquez00(); 
BGl_importedzd2moduleszd2initz00zzexpand_iarithmetiquez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_iarithmetiquez00()
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "expand_iarithmetique"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_iarithmetique"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "expand_iarithmetique"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "expand_iarithmetique"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_iarithmetiquez00()
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 15 */
{ /* ./Expand/iarith.scm 15 */
obj_t BgL_cportz00_2258;
BgL_cportz00_2258 = 
open_input_string(BGl_string3873z00zzexpand_iarithmetiquez00); 
{ 
long BgL_iz00_2259;
BgL_iz00_2259 = ((long)19); 
BgL_loopz00_2260:
{ /* ./Expand/iarith.scm 15 */
bool_t BgL_test3875z00_2261;
BgL_test3875z00_2261 = 
(BgL_iz00_2259==((long)-1)); 
if(BgL_test3875z00_2261)
{ /* ./Expand/iarith.scm 15 */
return BUNSPEC;}  else 
{ /* ./Expand/iarith.scm 15 */
{ /* ./Expand/iarith.scm 15 */
obj_t BgL_arg3877z00_2262;
{ /* ./Expand/iarith.scm 15 */
obj_t BgL_list3880z00_2263;
BgL_list3880z00_2263 = 
MAKE_PAIR(BgL_cportz00_2258, BNIL); 
BgL_arg3877z00_2262 = 
BGl_readz00zz__readerz00(BgL_list3880z00_2263); } 
{ /* ./Expand/iarith.scm 15 */
int BgL_auxz00_2282;
BgL_auxz00_2282 = 
(int)(BgL_iz00_2259); 
CNST_TABLE_SET(BgL_auxz00_2282, BgL_arg3877z00_2262); } } 
{ /* ./Expand/iarith.scm 15 */
int BgL_auxz00_2264;
{ /* ./Expand/iarith.scm 15 */
long BgL_auxz00_2285;
BgL_auxz00_2285 = 
(BgL_iz00_2259-((long)1)); 
BgL_auxz00_2264 = 
(int)(BgL_auxz00_2285); } 
{ 
long BgL_iz00_2288;
BgL_iz00_2288 = 
(long)(BgL_auxz00_2264); 
BgL_iz00_2259 = BgL_iz00_2288; 
goto BgL_loopz00_2260;} } } } } } } 
}



/* expand-eq? */
BGL_EXPORTED_DEF obj_t BGl_expandzd2eqzf3z21zzexpand_iarithmetiquez00(obj_t BgL_xz00_1, obj_t BgL_ez00_2)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 33 */
{ 
obj_t BgL_xz00_31;obj_t BgL_yz00_32;
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1004z00_36;
BgL_test1004z00_36 = 
PAIRP(BgL_xz00_1); 
if(BgL_test1004z00_36)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2112zd2_37;
BgL_cdrzd2112zd2_37 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1005z00_38;
BgL_test1005z00_38 = 
PAIRP(BgL_cdrzd2112zd2_37); 
if(BgL_test1005z00_38)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_carzd2114zd2_39;obj_t BgL_cdrzd2115zd2_40;
BgL_carzd2114zd2_39 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_cdrzd2115zd2_40 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1006z00_41;
{ /* ./Expand/iarith.scm 34 */
bool_t BgL__ortest_1003z00_782;
BgL__ortest_1003z00_782 = 
INTEGERP(BgL_carzd2114zd2_39); 
if(BgL__ortest_1003z00_782)
{ /* ./Expand/iarith.scm 34 */
BgL_test1006z00_41 = BgL__ortest_1003z00_782; }  else 
{ /* ./Expand/iarith.scm 34 */
BgL_test1006z00_41 = 
CHARP(BgL_carzd2114zd2_39); } } 
if(BgL_test1006z00_41)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1007z00_43;
BgL_test1007z00_43 = 
PAIRP(BgL_cdrzd2115zd2_40); 
if(BgL_test1007z00_43)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1008z00_44;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2303;
BgL_auxz00_2303 = 
CAR(BgL_cdrzd2115zd2_40); 
BgL_test1008z00_44 = 
(BgL_carzd2114zd2_39==BgL_auxz00_2303); } 
if(BgL_test1008z00_44)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1009z00_45;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2307;
BgL_auxz00_2307 = 
CDR(BgL_cdrzd2115zd2_40); 
BgL_test1009z00_45 = 
NULLP(BgL_auxz00_2307); } 
if(BgL_test1009z00_45)
{ /* ./Expand/iarith.scm 34 */
return BTRUE;}  else 
{ /* ./Expand/iarith.scm 34 */
BgL_tagzd2106zd2_34:
FAILURE(BFALSE,BGl_string3862z00zzexpand_iarithmetiquez00,BgL_xz00_1);} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_carzd2141zd2_48;obj_t BgL_cdrzd2142zd2_49;
BgL_carzd2141zd2_48 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_cdrzd2142zd2_49 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1016z00_50;
BgL_test1016z00_50 = 
PAIRP(BgL_carzd2141zd2_48); 
if(BgL_test1016z00_50)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2145zd2_51;
BgL_cdrzd2145zd2_51 = 
CDR(BgL_carzd2141zd2_48); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1017z00_52;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2319;obj_t BgL_auxz00_2317;
BgL_auxz00_2319 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2317 = 
CAR(BgL_carzd2141zd2_48); 
BgL_test1017z00_52 = 
(BgL_auxz00_2317==BgL_auxz00_2319); } 
if(BgL_test1017z00_52)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1018z00_53;
BgL_test1018z00_53 = 
PAIRP(BgL_cdrzd2145zd2_51); 
if(BgL_test1018z00_53)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_yz00_54;
BgL_yz00_54 = 
CAR(BgL_cdrzd2145zd2_51); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1019z00_55;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2326;
BgL_auxz00_2326 = 
CDR(BgL_cdrzd2145zd2_51); 
BgL_test1019z00_55 = 
NULLP(BgL_auxz00_2326); } 
if(BgL_test1019z00_55)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_carzd2151zd2_56;
BgL_carzd2151zd2_56 = 
CAR(BgL_cdrzd2142zd2_49); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1020z00_57;
BgL_test1020z00_57 = 
PAIRP(BgL_carzd2151zd2_56); 
if(BgL_test1020z00_57)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2155zd2_58;
BgL_cdrzd2155zd2_58 = 
CDR(BgL_carzd2151zd2_56); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1021z00_59;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2336;obj_t BgL_auxz00_2334;
BgL_auxz00_2336 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2334 = 
CAR(BgL_carzd2151zd2_56); 
BgL_test1021z00_59 = 
(BgL_auxz00_2334==BgL_auxz00_2336); } 
if(BgL_test1021z00_59)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1022z00_60;
BgL_test1022z00_60 = 
PAIRP(BgL_cdrzd2155zd2_58); 
if(BgL_test1022z00_60)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1023z00_61;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2342;
BgL_auxz00_2342 = 
CAR(BgL_cdrzd2155zd2_58); 
BgL_test1023z00_61 = 
(BgL_yz00_54==BgL_auxz00_2342); } 
if(BgL_test1023z00_61)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1024z00_62;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2346;
BgL_auxz00_2346 = 
CDR(BgL_cdrzd2155zd2_58); 
BgL_test1024z00_62 = 
NULLP(BgL_auxz00_2346); } 
if(BgL_test1024z00_62)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1025z00_63;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2350;
BgL_auxz00_2350 = 
CDR(BgL_cdrzd2142zd2_49); 
BgL_test1025z00_63 = 
NULLP(BgL_auxz00_2350); } 
if(BgL_test1025z00_63)
{ /* ./Expand/iarith.scm 34 */
return BTRUE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2173zd2_65;
BgL_cdrzd2173zd2_65 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2175zd2_66;
BgL_cdrzd2175zd2_66 = 
CDR(BgL_cdrzd2173zd2_65); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1032z00_67;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2356;
BgL_auxz00_2356 = 
CAR(BgL_cdrzd2173zd2_65); 
BgL_test1032z00_67 = 
CHARP(BgL_auxz00_2356); } 
if(BgL_test1032z00_67)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1033z00_68;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2360;
BgL_auxz00_2360 = 
CAR(BgL_cdrzd2175zd2_66); 
BgL_test1033z00_68 = 
CHARP(BgL_auxz00_2360); } 
if(BgL_test1033z00_68)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1034z00_69;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2364;
BgL_auxz00_2364 = 
CDR(BgL_cdrzd2175zd2_66); 
BgL_test1034z00_69 = 
NULLP(BgL_auxz00_2364); } 
if(BgL_test1034z00_69)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2191zd2_72;
BgL_cdrzd2191zd2_72 = 
CDR(BgL_cdrzd2173zd2_65); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1041z00_73;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2369;
BgL_auxz00_2369 = 
CDR(BgL_cdrzd2191zd2_72); 
BgL_test1041z00_73 = 
NULLP(BgL_auxz00_2369); } 
if(BgL_test1041z00_73)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1043z00_74;obj_t BgL_arg1044z00_75;
BgL_arg1043z00_74 = 
CAR(BgL_cdrzd2173zd2_65); 
BgL_arg1044z00_75 = 
CAR(BgL_cdrzd2191zd2_72); 
BgL_xz00_31 = BgL_arg1043z00_74; 
BgL_yz00_32 = BgL_arg1044z00_75; 
BgL_tagzd2105zd2_33:
{ /* ./Expand/iarith.scm 44 */
obj_t BgL_arg2799z00_783;obj_t BgL_arg2800z00_784;
BgL_arg2799z00_783 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/iarith.scm 44 */
obj_t BgL_arg2803z00_785;obj_t BgL_arg2804z00_786;
BgL_arg2803z00_785 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_xz00_31, BgL_ez00_2, BEOA); 
{ /* ./Expand/iarith.scm 44 */
obj_t BgL_arg2808z00_787;
BgL_arg2808z00_787 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_yz00_32, BgL_ez00_2, BEOA); 
BgL_arg2804z00_786 = 
MAKE_PAIR(BgL_arg2808z00_787, BNIL); } 
BgL_arg2800z00_784 = 
MAKE_PAIR(BgL_arg2803z00_785, BgL_arg2804z00_786); } 
return 
MAKE_PAIR(BgL_arg2799z00_783, BgL_arg2800z00_784);} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2206zd2_79;
BgL_cdrzd2206zd2_79 = 
CDR(BgL_cdrzd2173zd2_65); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1061z00_80;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2384;
BgL_auxz00_2384 = 
CDR(BgL_cdrzd2206zd2_79); 
BgL_test1061z00_80 = 
NULLP(BgL_auxz00_2384); } 
if(BgL_test1061z00_80)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1064z00_81;obj_t BgL_arg1065z00_82;
BgL_arg1064z00_81 = 
CAR(BgL_cdrzd2173zd2_65); 
BgL_arg1065z00_82 = 
CAR(BgL_cdrzd2206zd2_79); 
{ 
obj_t BgL_yz00_2391;obj_t BgL_xz00_2390;
BgL_xz00_2390 = BgL_arg1064z00_81; 
BgL_yz00_2391 = BgL_arg1065z00_82; 
BgL_yz00_32 = BgL_yz00_2391; 
BgL_xz00_31 = BgL_xz00_2390; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2215zd2_86;
BgL_cdrzd2215zd2_86 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2217zd2_87;
BgL_cdrzd2217zd2_87 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1090z00_88;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2394;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2395;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2396;
BgL_auxz00_2396 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_auxz00_2395 = 
CDR(BgL_auxz00_2396); } 
BgL_auxz00_2394 = 
CAR(BgL_auxz00_2395); } 
BgL_test1090z00_88 = 
SYMBOLP(BgL_auxz00_2394); } 
if(BgL_test1090z00_88)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2225zd2_89;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2402;
BgL_auxz00_2402 = 
CAR(BgL_cdrzd2217zd2_87); 
BgL_cdrzd2225zd2_89 = 
CDR(BgL_auxz00_2402); } 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1091z00_90;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2405;
BgL_auxz00_2405 = 
CAR(BgL_cdrzd2225zd2_89); 
BgL_test1091z00_90 = 
SYMBOLP(BgL_auxz00_2405); } 
if(BgL_test1091z00_90)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1093z00_91;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2409;
BgL_auxz00_2409 = 
CDR(BgL_cdrzd2225zd2_89); 
BgL_test1093z00_91 = 
NULLP(BgL_auxz00_2409); } 
if(BgL_test1093z00_91)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1094z00_92;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2413;
BgL_auxz00_2413 = 
CDR(BgL_cdrzd2217zd2_87); 
BgL_test1094z00_92 = 
NULLP(BgL_auxz00_2413); } 
if(BgL_test1094z00_92)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2239zd2_95;
BgL_cdrzd2239zd2_95 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1101z00_96;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2418;
BgL_auxz00_2418 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_test1101z00_96 = 
CHARP(BgL_auxz00_2418); } 
if(BgL_test1101z00_96)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1102z00_97;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2422;
BgL_auxz00_2422 = 
CAR(BgL_cdrzd2239zd2_95); 
BgL_test1102z00_97 = 
CHARP(BgL_auxz00_2422); } 
if(BgL_test1102z00_97)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1103z00_98;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2426;
BgL_auxz00_2426 = 
CDR(BgL_cdrzd2239zd2_95); 
BgL_test1103z00_98 = 
NULLP(BgL_auxz00_2426); } 
if(BgL_test1103z00_98)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2255zd2_101;
BgL_cdrzd2255zd2_101 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1110z00_102;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2431;
BgL_auxz00_2431 = 
CDR(BgL_cdrzd2255zd2_101); 
BgL_test1110z00_102 = 
NULLP(BgL_auxz00_2431); } 
if(BgL_test1110z00_102)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1112z00_103;obj_t BgL_arg1113z00_104;
BgL_arg1112z00_103 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_arg1113z00_104 = 
CAR(BgL_cdrzd2255zd2_101); 
{ 
obj_t BgL_yz00_2438;obj_t BgL_xz00_2437;
BgL_xz00_2437 = BgL_arg1112z00_103; 
BgL_yz00_2438 = BgL_arg1113z00_104; 
BgL_yz00_32 = BgL_yz00_2438; 
BgL_xz00_31 = BgL_xz00_2437; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2270zd2_108;
BgL_cdrzd2270zd2_108 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1128z00_109;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2440;
BgL_auxz00_2440 = 
CDR(BgL_cdrzd2270zd2_108); 
BgL_test1128z00_109 = 
NULLP(BgL_auxz00_2440); } 
if(BgL_test1128z00_109)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1130z00_110;obj_t BgL_arg1131z00_111;
BgL_arg1130z00_110 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_arg1131z00_111 = 
CAR(BgL_cdrzd2270zd2_108); 
{ 
obj_t BgL_yz00_2447;obj_t BgL_xz00_2446;
BgL_xz00_2446 = BgL_arg1130z00_110; 
BgL_yz00_2447 = BgL_arg1131z00_111; 
BgL_yz00_32 = BgL_yz00_2447; 
BgL_xz00_31 = BgL_xz00_2446; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2281zd2_116;
BgL_cdrzd2281zd2_116 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1153z00_117;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2449;
BgL_auxz00_2449 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_test1153z00_117 = 
CHARP(BgL_auxz00_2449); } 
if(BgL_test1153z00_117)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1154z00_118;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2453;
BgL_auxz00_2453 = 
CAR(BgL_cdrzd2281zd2_116); 
BgL_test1154z00_118 = 
CHARP(BgL_auxz00_2453); } 
if(BgL_test1154z00_118)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1155z00_119;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2457;
BgL_auxz00_2457 = 
CDR(BgL_cdrzd2281zd2_116); 
BgL_test1155z00_119 = 
NULLP(BgL_auxz00_2457); } 
if(BgL_test1155z00_119)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2297zd2_122;
BgL_cdrzd2297zd2_122 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1163z00_123;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2462;
BgL_auxz00_2462 = 
CDR(BgL_cdrzd2297zd2_122); 
BgL_test1163z00_123 = 
NULLP(BgL_auxz00_2462); } 
if(BgL_test1163z00_123)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1165z00_124;obj_t BgL_arg1166z00_125;
BgL_arg1165z00_124 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_arg1166z00_125 = 
CAR(BgL_cdrzd2297zd2_122); 
{ 
obj_t BgL_yz00_2469;obj_t BgL_xz00_2468;
BgL_xz00_2468 = BgL_arg1165z00_124; 
BgL_yz00_2469 = BgL_arg1166z00_125; 
BgL_yz00_32 = BgL_yz00_2469; 
BgL_xz00_31 = BgL_xz00_2468; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2312zd2_129;
BgL_cdrzd2312zd2_129 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1181z00_130;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2471;
BgL_auxz00_2471 = 
CDR(BgL_cdrzd2312zd2_129); 
BgL_test1181z00_130 = 
NULLP(BgL_auxz00_2471); } 
if(BgL_test1181z00_130)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1183z00_131;obj_t BgL_arg1187z00_132;
BgL_arg1183z00_131 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_arg1187z00_132 = 
CAR(BgL_cdrzd2312zd2_129); 
{ 
obj_t BgL_yz00_2478;obj_t BgL_xz00_2477;
BgL_xz00_2477 = BgL_arg1183z00_131; 
BgL_yz00_2478 = BgL_arg1187z00_132; 
BgL_yz00_32 = BgL_yz00_2478; 
BgL_xz00_31 = BgL_xz00_2477; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2323zd2_138;
BgL_cdrzd2323zd2_138 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1214z00_139;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2480;
BgL_auxz00_2480 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_test1214z00_139 = 
CHARP(BgL_auxz00_2480); } 
if(BgL_test1214z00_139)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1215z00_140;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2484;
BgL_auxz00_2484 = 
CAR(BgL_cdrzd2323zd2_138); 
BgL_test1215z00_140 = 
CHARP(BgL_auxz00_2484); } 
if(BgL_test1215z00_140)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1216z00_141;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2488;
BgL_auxz00_2488 = 
CDR(BgL_cdrzd2323zd2_138); 
BgL_test1216z00_141 = 
NULLP(BgL_auxz00_2488); } 
if(BgL_test1216z00_141)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2339zd2_144;
BgL_cdrzd2339zd2_144 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1223z00_145;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2493;
BgL_auxz00_2493 = 
CDR(BgL_cdrzd2339zd2_144); 
BgL_test1223z00_145 = 
NULLP(BgL_auxz00_2493); } 
if(BgL_test1223z00_145)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1225z00_146;obj_t BgL_arg1227z00_147;
BgL_arg1225z00_146 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_arg1227z00_147 = 
CAR(BgL_cdrzd2339zd2_144); 
{ 
obj_t BgL_yz00_2500;obj_t BgL_xz00_2499;
BgL_xz00_2499 = BgL_arg1225z00_146; 
BgL_yz00_2500 = BgL_arg1227z00_147; 
BgL_yz00_32 = BgL_yz00_2500; 
BgL_xz00_31 = BgL_xz00_2499; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2354zd2_151;
BgL_cdrzd2354zd2_151 = 
CDR(BgL_cdrzd2215zd2_86); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1243z00_152;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2502;
BgL_auxz00_2502 = 
CDR(BgL_cdrzd2354zd2_151); 
BgL_test1243z00_152 = 
NULLP(BgL_auxz00_2502); } 
if(BgL_test1243z00_152)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1245z00_153;obj_t BgL_arg1246z00_154;
BgL_arg1245z00_153 = 
CAR(BgL_cdrzd2215zd2_86); 
BgL_arg1246z00_154 = 
CAR(BgL_cdrzd2354zd2_151); 
{ 
obj_t BgL_yz00_2509;obj_t BgL_xz00_2508;
BgL_xz00_2508 = BgL_arg1245z00_153; 
BgL_yz00_2509 = BgL_arg1246z00_154; 
BgL_yz00_32 = BgL_yz00_2509; 
BgL_xz00_31 = BgL_xz00_2508; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2365zd2_161;
BgL_cdrzd2365zd2_161 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2367zd2_162;
BgL_cdrzd2367zd2_162 = 
CDR(BgL_cdrzd2365zd2_161); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1282z00_163;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2512;
BgL_auxz00_2512 = 
CAR(BgL_cdrzd2365zd2_161); 
BgL_test1282z00_163 = 
CHARP(BgL_auxz00_2512); } 
if(BgL_test1282z00_163)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1283z00_164;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2516;
BgL_auxz00_2516 = 
CAR(BgL_cdrzd2367zd2_162); 
BgL_test1283z00_164 = 
CHARP(BgL_auxz00_2516); } 
if(BgL_test1283z00_164)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1284z00_165;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2520;
BgL_auxz00_2520 = 
CDR(BgL_cdrzd2367zd2_162); 
BgL_test1284z00_165 = 
NULLP(BgL_auxz00_2520); } 
if(BgL_test1284z00_165)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2383zd2_168;
BgL_cdrzd2383zd2_168 = 
CDR(BgL_cdrzd2365zd2_161); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1291z00_169;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2525;
BgL_auxz00_2525 = 
CDR(BgL_cdrzd2383zd2_168); 
BgL_test1291z00_169 = 
NULLP(BgL_auxz00_2525); } 
if(BgL_test1291z00_169)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1293z00_170;obj_t BgL_arg1294z00_171;
BgL_arg1293z00_170 = 
CAR(BgL_cdrzd2365zd2_161); 
BgL_arg1294z00_171 = 
CAR(BgL_cdrzd2383zd2_168); 
{ 
obj_t BgL_yz00_2532;obj_t BgL_xz00_2531;
BgL_xz00_2531 = BgL_arg1293z00_170; 
BgL_yz00_2532 = BgL_arg1294z00_171; 
BgL_yz00_32 = BgL_yz00_2532; 
BgL_xz00_31 = BgL_xz00_2531; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2398zd2_175;
BgL_cdrzd2398zd2_175 = 
CDR(BgL_cdrzd2365zd2_161); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1309z00_176;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2534;
BgL_auxz00_2534 = 
CDR(BgL_cdrzd2398zd2_175); 
BgL_test1309z00_176 = 
NULLP(BgL_auxz00_2534); } 
if(BgL_test1309z00_176)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1311z00_177;obj_t BgL_arg1312z00_178;
BgL_arg1311z00_177 = 
CAR(BgL_cdrzd2365zd2_161); 
BgL_arg1312z00_178 = 
CAR(BgL_cdrzd2398zd2_175); 
{ 
obj_t BgL_yz00_2541;obj_t BgL_xz00_2540;
BgL_xz00_2540 = BgL_arg1311z00_177; 
BgL_yz00_2541 = BgL_arg1312z00_178; 
BgL_yz00_32 = BgL_yz00_2541; 
BgL_xz00_31 = BgL_xz00_2540; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2409zd2_181;
BgL_cdrzd2409zd2_181 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2411zd2_182;
BgL_cdrzd2411zd2_182 = 
CDR(BgL_cdrzd2409zd2_181); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1330z00_183;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2544;
BgL_auxz00_2544 = 
CAR(BgL_cdrzd2409zd2_181); 
BgL_test1330z00_183 = 
CHARP(BgL_auxz00_2544); } 
if(BgL_test1330z00_183)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1331z00_184;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2548;
BgL_auxz00_2548 = 
CAR(BgL_cdrzd2411zd2_182); 
BgL_test1331z00_184 = 
CHARP(BgL_auxz00_2548); } 
if(BgL_test1331z00_184)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1333z00_185;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2552;
BgL_auxz00_2552 = 
CDR(BgL_cdrzd2411zd2_182); 
BgL_test1333z00_185 = 
NULLP(BgL_auxz00_2552); } 
if(BgL_test1333z00_185)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2427zd2_188;
BgL_cdrzd2427zd2_188 = 
CDR(BgL_cdrzd2409zd2_181); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1340z00_189;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2557;
BgL_auxz00_2557 = 
CDR(BgL_cdrzd2427zd2_188); 
BgL_test1340z00_189 = 
NULLP(BgL_auxz00_2557); } 
if(BgL_test1340z00_189)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1342z00_190;obj_t BgL_arg1343z00_191;
BgL_arg1342z00_190 = 
CAR(BgL_cdrzd2409zd2_181); 
BgL_arg1343z00_191 = 
CAR(BgL_cdrzd2427zd2_188); 
{ 
obj_t BgL_yz00_2564;obj_t BgL_xz00_2563;
BgL_xz00_2563 = BgL_arg1342z00_190; 
BgL_yz00_2564 = BgL_arg1343z00_191; 
BgL_yz00_32 = BgL_yz00_2564; 
BgL_xz00_31 = BgL_xz00_2563; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2442zd2_195;
BgL_cdrzd2442zd2_195 = 
CDR(BgL_cdrzd2409zd2_181); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1358z00_196;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2566;
BgL_auxz00_2566 = 
CDR(BgL_cdrzd2442zd2_195); 
BgL_test1358z00_196 = 
NULLP(BgL_auxz00_2566); } 
if(BgL_test1358z00_196)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1360z00_197;obj_t BgL_arg1361z00_198;
BgL_arg1360z00_197 = 
CAR(BgL_cdrzd2409zd2_181); 
BgL_arg1361z00_198 = 
CAR(BgL_cdrzd2442zd2_195); 
{ 
obj_t BgL_yz00_2573;obj_t BgL_xz00_2572;
BgL_xz00_2572 = BgL_arg1360z00_197; 
BgL_yz00_2573 = BgL_arg1361z00_198; 
BgL_yz00_32 = BgL_yz00_2573; 
BgL_xz00_31 = BgL_xz00_2572; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2453zd2_203;
BgL_cdrzd2453zd2_203 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2455zd2_204;
BgL_cdrzd2455zd2_204 = 
CDR(BgL_cdrzd2453zd2_203); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1387z00_205;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2576;
BgL_auxz00_2576 = 
CAR(BgL_cdrzd2453zd2_203); 
BgL_test1387z00_205 = 
CHARP(BgL_auxz00_2576); } 
if(BgL_test1387z00_205)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1388z00_206;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2580;
BgL_auxz00_2580 = 
CAR(BgL_cdrzd2455zd2_204); 
BgL_test1388z00_206 = 
CHARP(BgL_auxz00_2580); } 
if(BgL_test1388z00_206)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1389z00_207;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2584;
BgL_auxz00_2584 = 
CDR(BgL_cdrzd2455zd2_204); 
BgL_test1389z00_207 = 
NULLP(BgL_auxz00_2584); } 
if(BgL_test1389z00_207)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2471zd2_210;
BgL_cdrzd2471zd2_210 = 
CDR(BgL_cdrzd2453zd2_203); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1398z00_211;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2589;
BgL_auxz00_2589 = 
CDR(BgL_cdrzd2471zd2_210); 
BgL_test1398z00_211 = 
NULLP(BgL_auxz00_2589); } 
if(BgL_test1398z00_211)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1400z00_212;obj_t BgL_arg1401z00_213;
BgL_arg1400z00_212 = 
CAR(BgL_cdrzd2453zd2_203); 
BgL_arg1401z00_213 = 
CAR(BgL_cdrzd2471zd2_210); 
{ 
obj_t BgL_yz00_2596;obj_t BgL_xz00_2595;
BgL_xz00_2595 = BgL_arg1400z00_212; 
BgL_yz00_2596 = BgL_arg1401z00_213; 
BgL_yz00_32 = BgL_yz00_2596; 
BgL_xz00_31 = BgL_xz00_2595; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2486zd2_217;
BgL_cdrzd2486zd2_217 = 
CDR(BgL_cdrzd2453zd2_203); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1416z00_218;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2598;
BgL_auxz00_2598 = 
CDR(BgL_cdrzd2486zd2_217); 
BgL_test1416z00_218 = 
NULLP(BgL_auxz00_2598); } 
if(BgL_test1416z00_218)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1418z00_219;obj_t BgL_arg1419z00_220;
BgL_arg1418z00_219 = 
CAR(BgL_cdrzd2453zd2_203); 
BgL_arg1419z00_220 = 
CAR(BgL_cdrzd2486zd2_217); 
{ 
obj_t BgL_yz00_2605;obj_t BgL_xz00_2604;
BgL_xz00_2604 = BgL_arg1418z00_219; 
BgL_yz00_2605 = BgL_arg1419z00_220; 
BgL_yz00_32 = BgL_yz00_2605; 
BgL_xz00_31 = BgL_xz00_2604; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2497zd2_223;
BgL_cdrzd2497zd2_223 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2499zd2_224;
BgL_cdrzd2499zd2_224 = 
CDR(BgL_cdrzd2497zd2_223); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1438z00_225;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2608;
BgL_auxz00_2608 = 
CAR(BgL_cdrzd2497zd2_223); 
BgL_test1438z00_225 = 
CHARP(BgL_auxz00_2608); } 
if(BgL_test1438z00_225)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1439z00_226;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2612;
BgL_auxz00_2612 = 
CAR(BgL_cdrzd2499zd2_224); 
BgL_test1439z00_226 = 
CHARP(BgL_auxz00_2612); } 
if(BgL_test1439z00_226)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1440z00_227;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2616;
BgL_auxz00_2616 = 
CDR(BgL_cdrzd2499zd2_224); 
BgL_test1440z00_227 = 
NULLP(BgL_auxz00_2616); } 
if(BgL_test1440z00_227)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2515zd2_230;
BgL_cdrzd2515zd2_230 = 
CDR(BgL_cdrzd2497zd2_223); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1447z00_231;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2621;
BgL_auxz00_2621 = 
CDR(BgL_cdrzd2515zd2_230); 
BgL_test1447z00_231 = 
NULLP(BgL_auxz00_2621); } 
if(BgL_test1447z00_231)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1450z00_232;obj_t BgL_arg1451z00_233;
BgL_arg1450z00_232 = 
CAR(BgL_cdrzd2497zd2_223); 
BgL_arg1451z00_233 = 
CAR(BgL_cdrzd2515zd2_230); 
{ 
obj_t BgL_yz00_2628;obj_t BgL_xz00_2627;
BgL_xz00_2627 = BgL_arg1450z00_232; 
BgL_yz00_2628 = BgL_arg1451z00_233; 
BgL_yz00_32 = BgL_yz00_2628; 
BgL_xz00_31 = BgL_xz00_2627; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2530zd2_237;
BgL_cdrzd2530zd2_237 = 
CDR(BgL_cdrzd2497zd2_223); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1466z00_238;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2630;
BgL_auxz00_2630 = 
CDR(BgL_cdrzd2530zd2_237); 
BgL_test1466z00_238 = 
NULLP(BgL_auxz00_2630); } 
if(BgL_test1466z00_238)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1468z00_239;obj_t BgL_arg1470z00_240;
BgL_arg1468z00_239 = 
CAR(BgL_cdrzd2497zd2_223); 
BgL_arg1470z00_240 = 
CAR(BgL_cdrzd2530zd2_237); 
{ 
obj_t BgL_yz00_2637;obj_t BgL_xz00_2636;
BgL_xz00_2636 = BgL_arg1468z00_239; 
BgL_yz00_2637 = BgL_arg1470z00_240; 
BgL_yz00_32 = BgL_yz00_2637; 
BgL_xz00_31 = BgL_xz00_2636; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2541zd2_244;
BgL_cdrzd2541zd2_244 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2543zd2_245;
BgL_cdrzd2543zd2_245 = 
CDR(BgL_cdrzd2541zd2_244); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1494z00_246;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2640;
BgL_auxz00_2640 = 
CAR(BgL_cdrzd2541zd2_244); 
BgL_test1494z00_246 = 
CHARP(BgL_auxz00_2640); } 
if(BgL_test1494z00_246)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1495z00_247;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2644;
BgL_auxz00_2644 = 
CAR(BgL_cdrzd2543zd2_245); 
BgL_test1495z00_247 = 
CHARP(BgL_auxz00_2644); } 
if(BgL_test1495z00_247)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1496z00_248;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2648;
BgL_auxz00_2648 = 
CDR(BgL_cdrzd2543zd2_245); 
BgL_test1496z00_248 = 
NULLP(BgL_auxz00_2648); } 
if(BgL_test1496z00_248)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2559zd2_251;
BgL_cdrzd2559zd2_251 = 
CDR(BgL_cdrzd2541zd2_244); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1503z00_252;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2653;
BgL_auxz00_2653 = 
CDR(BgL_cdrzd2559zd2_251); 
BgL_test1503z00_252 = 
NULLP(BgL_auxz00_2653); } 
if(BgL_test1503z00_252)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1506z00_253;obj_t BgL_arg1507z00_254;
BgL_arg1506z00_253 = 
CAR(BgL_cdrzd2541zd2_244); 
BgL_arg1507z00_254 = 
CAR(BgL_cdrzd2559zd2_251); 
{ 
obj_t BgL_yz00_2660;obj_t BgL_xz00_2659;
BgL_xz00_2659 = BgL_arg1506z00_253; 
BgL_yz00_2660 = BgL_arg1507z00_254; 
BgL_yz00_32 = BgL_yz00_2660; 
BgL_xz00_31 = BgL_xz00_2659; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2574zd2_258;
BgL_cdrzd2574zd2_258 = 
CDR(BgL_cdrzd2541zd2_244); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1523z00_259;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2662;
BgL_auxz00_2662 = 
CDR(BgL_cdrzd2574zd2_258); 
BgL_test1523z00_259 = 
NULLP(BgL_auxz00_2662); } 
if(BgL_test1523z00_259)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1526z00_260;obj_t BgL_arg1527z00_261;
BgL_arg1526z00_260 = 
CAR(BgL_cdrzd2541zd2_244); 
BgL_arg1527z00_261 = 
CAR(BgL_cdrzd2574zd2_258); 
{ 
obj_t BgL_yz00_2669;obj_t BgL_xz00_2668;
BgL_xz00_2668 = BgL_arg1526z00_260; 
BgL_yz00_2669 = BgL_arg1527z00_261; 
BgL_yz00_32 = BgL_yz00_2669; 
BgL_xz00_31 = BgL_xz00_2668; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2585zd2_264;
BgL_cdrzd2585zd2_264 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2587zd2_265;
BgL_cdrzd2587zd2_265 = 
CDR(BgL_cdrzd2585zd2_264); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1546z00_266;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2672;
BgL_auxz00_2672 = 
CAR(BgL_cdrzd2585zd2_264); 
BgL_test1546z00_266 = 
CHARP(BgL_auxz00_2672); } 
if(BgL_test1546z00_266)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1547z00_267;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2676;
BgL_auxz00_2676 = 
CAR(BgL_cdrzd2587zd2_265); 
BgL_test1547z00_267 = 
CHARP(BgL_auxz00_2676); } 
if(BgL_test1547z00_267)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1548z00_268;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2680;
BgL_auxz00_2680 = 
CDR(BgL_cdrzd2587zd2_265); 
BgL_test1548z00_268 = 
NULLP(BgL_auxz00_2680); } 
if(BgL_test1548z00_268)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2603zd2_271;
BgL_cdrzd2603zd2_271 = 
CDR(BgL_cdrzd2585zd2_264); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1555z00_272;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2685;
BgL_auxz00_2685 = 
CDR(BgL_cdrzd2603zd2_271); 
BgL_test1555z00_272 = 
NULLP(BgL_auxz00_2685); } 
if(BgL_test1555z00_272)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1557z00_273;obj_t BgL_arg1558z00_274;
BgL_arg1557z00_273 = 
CAR(BgL_cdrzd2585zd2_264); 
BgL_arg1558z00_274 = 
CAR(BgL_cdrzd2603zd2_271); 
{ 
obj_t BgL_yz00_2692;obj_t BgL_xz00_2691;
BgL_xz00_2691 = BgL_arg1557z00_273; 
BgL_yz00_2692 = BgL_arg1558z00_274; 
BgL_yz00_32 = BgL_yz00_2692; 
BgL_xz00_31 = BgL_xz00_2691; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2618zd2_278;
BgL_cdrzd2618zd2_278 = 
CDR(BgL_cdrzd2585zd2_264); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1573z00_279;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2694;
BgL_auxz00_2694 = 
CDR(BgL_cdrzd2618zd2_278); 
BgL_test1573z00_279 = 
NULLP(BgL_auxz00_2694); } 
if(BgL_test1573z00_279)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1575z00_280;obj_t BgL_arg1576z00_281;
BgL_arg1575z00_280 = 
CAR(BgL_cdrzd2585zd2_264); 
BgL_arg1576z00_281 = 
CAR(BgL_cdrzd2618zd2_278); 
{ 
obj_t BgL_yz00_2701;obj_t BgL_xz00_2700;
BgL_xz00_2700 = BgL_arg1575z00_280; 
BgL_yz00_2701 = BgL_arg1576z00_281; 
BgL_yz00_32 = BgL_yz00_2701; 
BgL_xz00_31 = BgL_xz00_2700; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_carzd2628zd2_287;obj_t BgL_cdrzd2629zd2_288;
BgL_carzd2628zd2_287 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_cdrzd2629zd2_288 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1604z00_289;
BgL_test1604z00_289 = 
PAIRP(BgL_carzd2628zd2_287); 
if(BgL_test1604z00_289)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2631zd2_290;
BgL_cdrzd2631zd2_290 = 
CDR(BgL_carzd2628zd2_287); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1605z00_291;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2709;obj_t BgL_auxz00_2707;
BgL_auxz00_2709 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2707 = 
CAR(BgL_carzd2628zd2_287); 
BgL_test1605z00_291 = 
(BgL_auxz00_2707==BgL_auxz00_2709); } 
if(BgL_test1605z00_291)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1606z00_292;
BgL_test1606z00_292 = 
PAIRP(BgL_cdrzd2631zd2_290); 
if(BgL_test1606z00_292)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1607z00_293;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2715;
BgL_auxz00_2715 = 
CAR(BgL_cdrzd2631zd2_290); 
BgL_test1607z00_293 = 
SYMBOLP(BgL_auxz00_2715); } 
if(BgL_test1607z00_293)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1608z00_294;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2719;
BgL_auxz00_2719 = 
CDR(BgL_cdrzd2631zd2_290); 
BgL_test1608z00_294 = 
NULLP(BgL_auxz00_2719); } 
if(BgL_test1608z00_294)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_carzd2634zd2_295;
BgL_carzd2634zd2_295 = 
CAR(BgL_cdrzd2629zd2_288); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1609z00_296;
BgL_test1609z00_296 = 
PAIRP(BgL_carzd2634zd2_295); 
if(BgL_test1609z00_296)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2637zd2_297;
BgL_cdrzd2637zd2_297 = 
CDR(BgL_carzd2634zd2_295); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1610z00_298;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2729;obj_t BgL_auxz00_2727;
BgL_auxz00_2729 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2727 = 
CAR(BgL_carzd2634zd2_295); 
BgL_test1610z00_298 = 
(BgL_auxz00_2727==BgL_auxz00_2729); } 
if(BgL_test1610z00_298)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1611z00_299;
BgL_test1611z00_299 = 
PAIRP(BgL_cdrzd2637zd2_297); 
if(BgL_test1611z00_299)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1612z00_300;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2735;
BgL_auxz00_2735 = 
CAR(BgL_cdrzd2637zd2_297); 
BgL_test1612z00_300 = 
SYMBOLP(BgL_auxz00_2735); } 
if(BgL_test1612z00_300)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1613z00_301;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2739;
BgL_auxz00_2739 = 
CDR(BgL_cdrzd2637zd2_297); 
BgL_test1613z00_301 = 
NULLP(BgL_auxz00_2739); } 
if(BgL_test1613z00_301)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1614z00_302;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2743;
BgL_auxz00_2743 = 
CDR(BgL_cdrzd2629zd2_288); 
BgL_test1614z00_302 = 
NULLP(BgL_auxz00_2743); } 
if(BgL_test1614z00_302)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2651zd2_305;
BgL_cdrzd2651zd2_305 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1621z00_306;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2748;
BgL_auxz00_2748 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test1621z00_306 = 
CHARP(BgL_auxz00_2748); } 
if(BgL_test1621z00_306)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1622z00_307;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2752;
BgL_auxz00_2752 = 
CAR(BgL_cdrzd2651zd2_305); 
BgL_test1622z00_307 = 
CHARP(BgL_auxz00_2752); } 
if(BgL_test1622z00_307)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1623z00_308;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2756;
BgL_auxz00_2756 = 
CDR(BgL_cdrzd2651zd2_305); 
BgL_test1623z00_308 = 
NULLP(BgL_auxz00_2756); } 
if(BgL_test1623z00_308)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2663zd2_310;
BgL_cdrzd2663zd2_310 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2667zd2_311;
BgL_cdrzd2667zd2_311 = 
CDR(BgL_cdrzd2663zd2_310); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1630z00_312;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2762;
BgL_auxz00_2762 = 
CDR(BgL_cdrzd2667zd2_311); 
BgL_test1630z00_312 = 
NULLP(BgL_auxz00_2762); } 
if(BgL_test1630z00_312)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1632z00_313;obj_t BgL_arg1634z00_314;
BgL_arg1632z00_313 = 
CAR(BgL_cdrzd2663zd2_310); 
BgL_arg1634z00_314 = 
CAR(BgL_cdrzd2667zd2_311); 
{ 
obj_t BgL_yz00_2769;obj_t BgL_xz00_2768;
BgL_xz00_2768 = BgL_arg1632z00_313; 
BgL_yz00_2769 = BgL_arg1634z00_314; 
BgL_yz00_32 = BgL_yz00_2769; 
BgL_xz00_31 = BgL_xz00_2768; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2678zd2_317;
BgL_cdrzd2678zd2_317 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2682zd2_318;
BgL_cdrzd2682zd2_318 = 
CDR(BgL_cdrzd2678zd2_317); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1651z00_319;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2772;
BgL_auxz00_2772 = 
CDR(BgL_cdrzd2682zd2_318); 
BgL_test1651z00_319 = 
NULLP(BgL_auxz00_2772); } 
if(BgL_test1651z00_319)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1654z00_320;obj_t BgL_arg1655z00_321;
BgL_arg1654z00_320 = 
CAR(BgL_cdrzd2678zd2_317); 
BgL_arg1655z00_321 = 
CAR(BgL_cdrzd2682zd2_318); 
{ 
obj_t BgL_yz00_2779;obj_t BgL_xz00_2778;
BgL_xz00_2778 = BgL_arg1654z00_320; 
BgL_yz00_2779 = BgL_arg1655z00_321; 
BgL_yz00_32 = BgL_yz00_2779; 
BgL_xz00_31 = BgL_xz00_2778; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2693zd2_326;
BgL_cdrzd2693zd2_326 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1676z00_327;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2781;
BgL_auxz00_2781 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test1676z00_327 = 
CHARP(BgL_auxz00_2781); } 
if(BgL_test1676z00_327)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1677z00_328;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2785;
BgL_auxz00_2785 = 
CAR(BgL_cdrzd2693zd2_326); 
BgL_test1677z00_328 = 
CHARP(BgL_auxz00_2785); } 
if(BgL_test1677z00_328)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1678z00_329;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2789;
BgL_auxz00_2789 = 
CDR(BgL_cdrzd2693zd2_326); 
BgL_test1678z00_329 = 
NULLP(BgL_auxz00_2789); } 
if(BgL_test1678z00_329)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2705zd2_331;
BgL_cdrzd2705zd2_331 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2709zd2_332;
BgL_cdrzd2709zd2_332 = 
CDR(BgL_cdrzd2705zd2_331); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1685z00_333;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2795;
BgL_auxz00_2795 = 
CDR(BgL_cdrzd2709zd2_332); 
BgL_test1685z00_333 = 
NULLP(BgL_auxz00_2795); } 
if(BgL_test1685z00_333)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1687z00_334;obj_t BgL_arg1688z00_335;
BgL_arg1687z00_334 = 
CAR(BgL_cdrzd2705zd2_331); 
BgL_arg1688z00_335 = 
CAR(BgL_cdrzd2709zd2_332); 
{ 
obj_t BgL_yz00_2802;obj_t BgL_xz00_2801;
BgL_xz00_2801 = BgL_arg1687z00_334; 
BgL_yz00_2802 = BgL_arg1688z00_335; 
BgL_yz00_32 = BgL_yz00_2802; 
BgL_xz00_31 = BgL_xz00_2801; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2720zd2_338;
BgL_cdrzd2720zd2_338 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2724zd2_339;
BgL_cdrzd2724zd2_339 = 
CDR(BgL_cdrzd2720zd2_338); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1704z00_340;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2805;
BgL_auxz00_2805 = 
CDR(BgL_cdrzd2724zd2_339); 
BgL_test1704z00_340 = 
NULLP(BgL_auxz00_2805); } 
if(BgL_test1704z00_340)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1706z00_341;obj_t BgL_arg1707z00_342;
BgL_arg1706z00_341 = 
CAR(BgL_cdrzd2720zd2_338); 
BgL_arg1707z00_342 = 
CAR(BgL_cdrzd2724zd2_339); 
{ 
obj_t BgL_yz00_2812;obj_t BgL_xz00_2811;
BgL_xz00_2811 = BgL_arg1706z00_341; 
BgL_yz00_2812 = BgL_arg1707z00_342; 
BgL_yz00_32 = BgL_yz00_2812; 
BgL_xz00_31 = BgL_xz00_2811; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2735zd2_347;
BgL_cdrzd2735zd2_347 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1728z00_348;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2814;
BgL_auxz00_2814 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test1728z00_348 = 
CHARP(BgL_auxz00_2814); } 
if(BgL_test1728z00_348)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1729z00_349;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2818;
BgL_auxz00_2818 = 
CAR(BgL_cdrzd2735zd2_347); 
BgL_test1729z00_349 = 
CHARP(BgL_auxz00_2818); } 
if(BgL_test1729z00_349)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1730z00_350;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2822;
BgL_auxz00_2822 = 
CDR(BgL_cdrzd2735zd2_347); 
BgL_test1730z00_350 = 
NULLP(BgL_auxz00_2822); } 
if(BgL_test1730z00_350)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2747zd2_352;
BgL_cdrzd2747zd2_352 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2751zd2_353;
BgL_cdrzd2751zd2_353 = 
CDR(BgL_cdrzd2747zd2_352); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1737z00_354;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2828;
BgL_auxz00_2828 = 
CDR(BgL_cdrzd2751zd2_353); 
BgL_test1737z00_354 = 
NULLP(BgL_auxz00_2828); } 
if(BgL_test1737z00_354)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1741z00_355;obj_t BgL_arg1743z00_356;
BgL_arg1741z00_355 = 
CAR(BgL_cdrzd2747zd2_352); 
BgL_arg1743z00_356 = 
CAR(BgL_cdrzd2751zd2_353); 
{ 
obj_t BgL_yz00_2835;obj_t BgL_xz00_2834;
BgL_xz00_2834 = BgL_arg1741z00_355; 
BgL_yz00_2835 = BgL_arg1743z00_356; 
BgL_yz00_32 = BgL_yz00_2835; 
BgL_xz00_31 = BgL_xz00_2834; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2762zd2_359;
BgL_cdrzd2762zd2_359 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2766zd2_360;
BgL_cdrzd2766zd2_360 = 
CDR(BgL_cdrzd2762zd2_359); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1758z00_361;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2838;
BgL_auxz00_2838 = 
CDR(BgL_cdrzd2766zd2_360); 
BgL_test1758z00_361 = 
NULLP(BgL_auxz00_2838); } 
if(BgL_test1758z00_361)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1760z00_362;obj_t BgL_arg1761z00_363;
BgL_arg1760z00_362 = 
CAR(BgL_cdrzd2762zd2_359); 
BgL_arg1761z00_363 = 
CAR(BgL_cdrzd2766zd2_360); 
{ 
obj_t BgL_yz00_2845;obj_t BgL_xz00_2844;
BgL_xz00_2844 = BgL_arg1760z00_362; 
BgL_yz00_2845 = BgL_arg1761z00_363; 
BgL_yz00_32 = BgL_yz00_2845; 
BgL_xz00_31 = BgL_xz00_2844; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2777zd2_367;
BgL_cdrzd2777zd2_367 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1779z00_368;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2847;
BgL_auxz00_2847 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test1779z00_368 = 
CHARP(BgL_auxz00_2847); } 
if(BgL_test1779z00_368)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1780z00_369;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2851;
BgL_auxz00_2851 = 
CAR(BgL_cdrzd2777zd2_367); 
BgL_test1780z00_369 = 
CHARP(BgL_auxz00_2851); } 
if(BgL_test1780z00_369)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1781z00_370;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2855;
BgL_auxz00_2855 = 
CDR(BgL_cdrzd2777zd2_367); 
BgL_test1781z00_370 = 
NULLP(BgL_auxz00_2855); } 
if(BgL_test1781z00_370)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2789zd2_372;
BgL_cdrzd2789zd2_372 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2793zd2_373;
BgL_cdrzd2793zd2_373 = 
CDR(BgL_cdrzd2789zd2_372); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1788z00_374;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2861;
BgL_auxz00_2861 = 
CDR(BgL_cdrzd2793zd2_373); 
BgL_test1788z00_374 = 
NULLP(BgL_auxz00_2861); } 
if(BgL_test1788z00_374)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1790z00_375;obj_t BgL_arg1791z00_376;
BgL_arg1790z00_375 = 
CAR(BgL_cdrzd2789zd2_372); 
BgL_arg1791z00_376 = 
CAR(BgL_cdrzd2793zd2_373); 
{ 
obj_t BgL_yz00_2868;obj_t BgL_xz00_2867;
BgL_xz00_2867 = BgL_arg1790z00_375; 
BgL_yz00_2868 = BgL_arg1791z00_376; 
BgL_yz00_32 = BgL_yz00_2868; 
BgL_xz00_31 = BgL_xz00_2867; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2804zd2_379;
BgL_cdrzd2804zd2_379 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2808zd2_380;
BgL_cdrzd2808zd2_380 = 
CDR(BgL_cdrzd2804zd2_379); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1807z00_381;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2871;
BgL_auxz00_2871 = 
CDR(BgL_cdrzd2808zd2_380); 
BgL_test1807z00_381 = 
NULLP(BgL_auxz00_2871); } 
if(BgL_test1807z00_381)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1809z00_382;obj_t BgL_arg1810z00_383;
BgL_arg1809z00_382 = 
CAR(BgL_cdrzd2804zd2_379); 
BgL_arg1810z00_383 = 
CAR(BgL_cdrzd2808zd2_380); 
{ 
obj_t BgL_yz00_2878;obj_t BgL_xz00_2877;
BgL_xz00_2877 = BgL_arg1809z00_382; 
BgL_yz00_2878 = BgL_arg1810z00_383; 
BgL_yz00_32 = BgL_yz00_2878; 
BgL_xz00_31 = BgL_xz00_2877; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2819zd2_389;
BgL_cdrzd2819zd2_389 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1834z00_390;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2880;
BgL_auxz00_2880 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test1834z00_390 = 
CHARP(BgL_auxz00_2880); } 
if(BgL_test1834z00_390)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1835z00_391;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2884;
BgL_auxz00_2884 = 
CAR(BgL_cdrzd2819zd2_389); 
BgL_test1835z00_391 = 
CHARP(BgL_auxz00_2884); } 
if(BgL_test1835z00_391)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1836z00_392;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2888;
BgL_auxz00_2888 = 
CDR(BgL_cdrzd2819zd2_389); 
BgL_test1836z00_392 = 
NULLP(BgL_auxz00_2888); } 
if(BgL_test1836z00_392)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2831zd2_394;
BgL_cdrzd2831zd2_394 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2835zd2_395;
BgL_cdrzd2835zd2_395 = 
CDR(BgL_cdrzd2831zd2_394); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1843z00_396;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2894;
BgL_auxz00_2894 = 
CDR(BgL_cdrzd2835zd2_395); 
BgL_test1843z00_396 = 
NULLP(BgL_auxz00_2894); } 
if(BgL_test1843z00_396)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1845z00_397;obj_t BgL_arg1846z00_398;
BgL_arg1845z00_397 = 
CAR(BgL_cdrzd2831zd2_394); 
BgL_arg1846z00_398 = 
CAR(BgL_cdrzd2835zd2_395); 
{ 
obj_t BgL_yz00_2901;obj_t BgL_xz00_2900;
BgL_xz00_2900 = BgL_arg1845z00_397; 
BgL_yz00_2901 = BgL_arg1846z00_398; 
BgL_yz00_32 = BgL_yz00_2901; 
BgL_xz00_31 = BgL_xz00_2900; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2846zd2_401;
BgL_cdrzd2846zd2_401 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2850zd2_402;
BgL_cdrzd2850zd2_402 = 
CDR(BgL_cdrzd2846zd2_401); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1862z00_403;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2904;
BgL_auxz00_2904 = 
CDR(BgL_cdrzd2850zd2_402); 
BgL_test1862z00_403 = 
NULLP(BgL_auxz00_2904); } 
if(BgL_test1862z00_403)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1864z00_404;obj_t BgL_arg1865z00_405;
BgL_arg1864z00_404 = 
CAR(BgL_cdrzd2846zd2_401); 
BgL_arg1865z00_405 = 
CAR(BgL_cdrzd2850zd2_402); 
{ 
obj_t BgL_yz00_2911;obj_t BgL_xz00_2910;
BgL_xz00_2910 = BgL_arg1864z00_404; 
BgL_yz00_2911 = BgL_arg1865z00_405; 
BgL_yz00_32 = BgL_yz00_2911; 
BgL_xz00_31 = BgL_xz00_2910; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2861zd2_409;
BgL_cdrzd2861zd2_409 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1885z00_410;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2913;
BgL_auxz00_2913 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test1885z00_410 = 
CHARP(BgL_auxz00_2913); } 
if(BgL_test1885z00_410)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1886z00_411;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2917;
BgL_auxz00_2917 = 
CAR(BgL_cdrzd2861zd2_409); 
BgL_test1886z00_411 = 
CHARP(BgL_auxz00_2917); } 
if(BgL_test1886z00_411)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1887z00_412;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2921;
BgL_auxz00_2921 = 
CDR(BgL_cdrzd2861zd2_409); 
BgL_test1887z00_412 = 
NULLP(BgL_auxz00_2921); } 
if(BgL_test1887z00_412)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2873zd2_414;
BgL_cdrzd2873zd2_414 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2877zd2_415;
BgL_cdrzd2877zd2_415 = 
CDR(BgL_cdrzd2873zd2_414); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1894z00_416;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2927;
BgL_auxz00_2927 = 
CDR(BgL_cdrzd2877zd2_415); 
BgL_test1894z00_416 = 
NULLP(BgL_auxz00_2927); } 
if(BgL_test1894z00_416)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1896z00_417;obj_t BgL_arg1897z00_418;
BgL_arg1896z00_417 = 
CAR(BgL_cdrzd2873zd2_414); 
BgL_arg1897z00_418 = 
CAR(BgL_cdrzd2877zd2_415); 
{ 
obj_t BgL_yz00_2934;obj_t BgL_xz00_2933;
BgL_xz00_2933 = BgL_arg1896z00_417; 
BgL_yz00_2934 = BgL_arg1897z00_418; 
BgL_yz00_32 = BgL_yz00_2934; 
BgL_xz00_31 = BgL_xz00_2933; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2888zd2_421;
BgL_cdrzd2888zd2_421 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2892zd2_422;
BgL_cdrzd2892zd2_422 = 
CDR(BgL_cdrzd2888zd2_421); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1914z00_423;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2937;
BgL_auxz00_2937 = 
CDR(BgL_cdrzd2892zd2_422); 
BgL_test1914z00_423 = 
NULLP(BgL_auxz00_2937); } 
if(BgL_test1914z00_423)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1916z00_424;obj_t BgL_arg1917z00_425;
BgL_arg1916z00_424 = 
CAR(BgL_cdrzd2888zd2_421); 
BgL_arg1917z00_425 = 
CAR(BgL_cdrzd2892zd2_422); 
{ 
obj_t BgL_yz00_2944;obj_t BgL_xz00_2943;
BgL_xz00_2943 = BgL_arg1916z00_424; 
BgL_yz00_2944 = BgL_arg1917z00_425; 
BgL_yz00_32 = BgL_yz00_2944; 
BgL_xz00_31 = BgL_xz00_2943; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2903zd2_430;
BgL_cdrzd2903zd2_430 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1940z00_431;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2946;
BgL_auxz00_2946 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test1940z00_431 = 
CHARP(BgL_auxz00_2946); } 
if(BgL_test1940z00_431)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1941z00_432;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2950;
BgL_auxz00_2950 = 
CAR(BgL_cdrzd2903zd2_430); 
BgL_test1941z00_432 = 
CHARP(BgL_auxz00_2950); } 
if(BgL_test1941z00_432)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1942z00_433;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2954;
BgL_auxz00_2954 = 
CDR(BgL_cdrzd2903zd2_430); 
BgL_test1942z00_433 = 
NULLP(BgL_auxz00_2954); } 
if(BgL_test1942z00_433)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2915zd2_435;
BgL_cdrzd2915zd2_435 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2919zd2_436;
BgL_cdrzd2919zd2_436 = 
CDR(BgL_cdrzd2915zd2_435); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1949z00_437;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2960;
BgL_auxz00_2960 = 
CDR(BgL_cdrzd2919zd2_436); 
BgL_test1949z00_437 = 
NULLP(BgL_auxz00_2960); } 
if(BgL_test1949z00_437)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1951z00_438;obj_t BgL_arg1952z00_439;
BgL_arg1951z00_438 = 
CAR(BgL_cdrzd2915zd2_435); 
BgL_arg1952z00_439 = 
CAR(BgL_cdrzd2919zd2_436); 
{ 
obj_t BgL_yz00_2967;obj_t BgL_xz00_2966;
BgL_xz00_2966 = BgL_arg1951z00_438; 
BgL_yz00_2967 = BgL_arg1952z00_439; 
BgL_yz00_32 = BgL_yz00_2967; 
BgL_xz00_31 = BgL_xz00_2966; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2930zd2_442;
BgL_cdrzd2930zd2_442 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2934zd2_443;
BgL_cdrzd2934zd2_443 = 
CDR(BgL_cdrzd2930zd2_442); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1967z00_444;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2970;
BgL_auxz00_2970 = 
CDR(BgL_cdrzd2934zd2_443); 
BgL_test1967z00_444 = 
NULLP(BgL_auxz00_2970); } 
if(BgL_test1967z00_444)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg1969z00_445;obj_t BgL_arg1970z00_446;
BgL_arg1969z00_445 = 
CAR(BgL_cdrzd2930zd2_442); 
BgL_arg1970z00_446 = 
CAR(BgL_cdrzd2934zd2_443); 
{ 
obj_t BgL_yz00_2977;obj_t BgL_xz00_2976;
BgL_xz00_2976 = BgL_arg1969z00_445; 
BgL_yz00_2977 = BgL_arg1970z00_446; 
BgL_yz00_32 = BgL_yz00_2977; 
BgL_xz00_31 = BgL_xz00_2976; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2945zd2_451;
BgL_cdrzd2945zd2_451 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1991z00_452;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2979;
BgL_auxz00_2979 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test1991z00_452 = 
CHARP(BgL_auxz00_2979); } 
if(BgL_test1991z00_452)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1992z00_453;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2983;
BgL_auxz00_2983 = 
CAR(BgL_cdrzd2945zd2_451); 
BgL_test1992z00_453 = 
CHARP(BgL_auxz00_2983); } 
if(BgL_test1992z00_453)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test1993z00_454;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2987;
BgL_auxz00_2987 = 
CDR(BgL_cdrzd2945zd2_451); 
BgL_test1993z00_454 = 
NULLP(BgL_auxz00_2987); } 
if(BgL_test1993z00_454)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2957zd2_456;
BgL_cdrzd2957zd2_456 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2961zd2_457;
BgL_cdrzd2961zd2_457 = 
CDR(BgL_cdrzd2957zd2_456); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2003z00_458;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_2993;
BgL_auxz00_2993 = 
CDR(BgL_cdrzd2961zd2_457); 
BgL_test2003z00_458 = 
NULLP(BgL_auxz00_2993); } 
if(BgL_test2003z00_458)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2005z00_459;obj_t BgL_arg2006z00_460;
BgL_arg2005z00_459 = 
CAR(BgL_cdrzd2957zd2_456); 
BgL_arg2006z00_460 = 
CAR(BgL_cdrzd2961zd2_457); 
{ 
obj_t BgL_yz00_3000;obj_t BgL_xz00_2999;
BgL_xz00_2999 = BgL_arg2005z00_459; 
BgL_yz00_3000 = BgL_arg2006z00_460; 
BgL_yz00_32 = BgL_yz00_3000; 
BgL_xz00_31 = BgL_xz00_2999; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2972zd2_463;
BgL_cdrzd2972zd2_463 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2976zd2_464;
BgL_cdrzd2976zd2_464 = 
CDR(BgL_cdrzd2972zd2_463); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2021z00_465;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3003;
BgL_auxz00_3003 = 
CDR(BgL_cdrzd2976zd2_464); 
BgL_test2021z00_465 = 
NULLP(BgL_auxz00_3003); } 
if(BgL_test2021z00_465)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2023z00_466;obj_t BgL_arg2025z00_467;
BgL_arg2023z00_466 = 
CAR(BgL_cdrzd2972zd2_463); 
BgL_arg2025z00_467 = 
CAR(BgL_cdrzd2976zd2_464); 
{ 
obj_t BgL_yz00_3010;obj_t BgL_xz00_3009;
BgL_xz00_3009 = BgL_arg2023z00_466; 
BgL_yz00_3010 = BgL_arg2025z00_467; 
BgL_yz00_32 = BgL_yz00_3010; 
BgL_xz00_31 = BgL_xz00_3009; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2987zd2_471;
BgL_cdrzd2987zd2_471 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2044z00_472;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3012;
BgL_auxz00_3012 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test2044z00_472 = 
CHARP(BgL_auxz00_3012); } 
if(BgL_test2044z00_472)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2045z00_473;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3016;
BgL_auxz00_3016 = 
CAR(BgL_cdrzd2987zd2_471); 
BgL_test2045z00_473 = 
CHARP(BgL_auxz00_3016); } 
if(BgL_test2045z00_473)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2046z00_474;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3020;
BgL_auxz00_3020 = 
CDR(BgL_cdrzd2987zd2_471); 
BgL_test2046z00_474 = 
NULLP(BgL_auxz00_3020); } 
if(BgL_test2046z00_474)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd2999zd2_476;
BgL_cdrzd2999zd2_476 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21003zd2_477;
BgL_cdrzd21003zd2_477 = 
CDR(BgL_cdrzd2999zd2_476); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2053z00_478;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3026;
BgL_auxz00_3026 = 
CDR(BgL_cdrzd21003zd2_477); 
BgL_test2053z00_478 = 
NULLP(BgL_auxz00_3026); } 
if(BgL_test2053z00_478)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2055z00_479;obj_t BgL_arg2056z00_480;
BgL_arg2055z00_479 = 
CAR(BgL_cdrzd2999zd2_476); 
BgL_arg2056z00_480 = 
CAR(BgL_cdrzd21003zd2_477); 
{ 
obj_t BgL_yz00_3033;obj_t BgL_xz00_3032;
BgL_xz00_3032 = BgL_arg2055z00_479; 
BgL_yz00_3033 = BgL_arg2056z00_480; 
BgL_yz00_32 = BgL_yz00_3033; 
BgL_xz00_31 = BgL_xz00_3032; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21014zd2_483;
BgL_cdrzd21014zd2_483 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21018zd2_484;
BgL_cdrzd21018zd2_484 = 
CDR(BgL_cdrzd21014zd2_483); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2071z00_485;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3036;
BgL_auxz00_3036 = 
CDR(BgL_cdrzd21018zd2_484); 
BgL_test2071z00_485 = 
NULLP(BgL_auxz00_3036); } 
if(BgL_test2071z00_485)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2073z00_486;obj_t BgL_arg2074z00_487;
BgL_arg2073z00_486 = 
CAR(BgL_cdrzd21014zd2_483); 
BgL_arg2074z00_487 = 
CAR(BgL_cdrzd21018zd2_484); 
{ 
obj_t BgL_yz00_3043;obj_t BgL_xz00_3042;
BgL_xz00_3042 = BgL_arg2073z00_486; 
BgL_yz00_3043 = BgL_arg2074z00_487; 
BgL_yz00_32 = BgL_yz00_3043; 
BgL_xz00_31 = BgL_xz00_3042; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21029zd2_493;
BgL_cdrzd21029zd2_493 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2097z00_494;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3045;
BgL_auxz00_3045 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test2097z00_494 = 
CHARP(BgL_auxz00_3045); } 
if(BgL_test2097z00_494)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2098z00_495;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3049;
BgL_auxz00_3049 = 
CAR(BgL_cdrzd21029zd2_493); 
BgL_test2098z00_495 = 
CHARP(BgL_auxz00_3049); } 
if(BgL_test2098z00_495)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2099z00_496;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3053;
BgL_auxz00_3053 = 
CDR(BgL_cdrzd21029zd2_493); 
BgL_test2099z00_496 = 
NULLP(BgL_auxz00_3053); } 
if(BgL_test2099z00_496)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21043zd2_498;
BgL_cdrzd21043zd2_498 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21048zd2_499;
BgL_cdrzd21048zd2_499 = 
CDR(BgL_cdrzd21043zd2_498); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2106z00_500;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3059;
BgL_auxz00_3059 = 
CDR(BgL_cdrzd21048zd2_499); 
BgL_test2106z00_500 = 
NULLP(BgL_auxz00_3059); } 
if(BgL_test2106z00_500)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2108z00_501;obj_t BgL_arg2109z00_502;
BgL_arg2108z00_501 = 
CAR(BgL_cdrzd21043zd2_498); 
BgL_arg2109z00_502 = 
CAR(BgL_cdrzd21048zd2_499); 
{ 
obj_t BgL_yz00_3066;obj_t BgL_xz00_3065;
BgL_xz00_3065 = BgL_arg2108z00_501; 
BgL_yz00_3066 = BgL_arg2109z00_502; 
BgL_yz00_32 = BgL_yz00_3066; 
BgL_xz00_31 = BgL_xz00_3065; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21061zd2_505;
BgL_cdrzd21061zd2_505 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21066zd2_506;
BgL_cdrzd21066zd2_506 = 
CDR(BgL_cdrzd21061zd2_505); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2125z00_507;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3069;
BgL_auxz00_3069 = 
CDR(BgL_cdrzd21066zd2_506); 
BgL_test2125z00_507 = 
NULLP(BgL_auxz00_3069); } 
if(BgL_test2125z00_507)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2127z00_508;obj_t BgL_arg2128z00_509;
BgL_arg2127z00_508 = 
CAR(BgL_cdrzd21061zd2_505); 
BgL_arg2128z00_509 = 
CAR(BgL_cdrzd21066zd2_506); 
{ 
obj_t BgL_yz00_3076;obj_t BgL_xz00_3075;
BgL_xz00_3075 = BgL_arg2127z00_508; 
BgL_yz00_3076 = BgL_arg2128z00_509; 
BgL_yz00_32 = BgL_yz00_3076; 
BgL_xz00_31 = BgL_xz00_3075; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_carzd21091zd2_514;obj_t BgL_cdrzd21092zd2_515;
BgL_carzd21091zd2_514 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_cdrzd21092zd2_515 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2160z00_516;
BgL_test2160z00_516 = 
PAIRP(BgL_carzd21091zd2_514); 
if(BgL_test2160z00_516)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21095zd2_517;
BgL_cdrzd21095zd2_517 = 
CDR(BgL_carzd21091zd2_514); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2161z00_518;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3084;obj_t BgL_auxz00_3082;
BgL_auxz00_3084 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_3082 = 
CAR(BgL_carzd21091zd2_514); 
BgL_test2161z00_518 = 
(BgL_auxz00_3082==BgL_auxz00_3084); } 
if(BgL_test2161z00_518)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2162z00_519;
BgL_test2162z00_519 = 
PAIRP(BgL_cdrzd21095zd2_517); 
if(BgL_test2162z00_519)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_yz00_520;
BgL_yz00_520 = 
CAR(BgL_cdrzd21095zd2_517); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2163z00_521;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3091;
BgL_auxz00_3091 = 
CDR(BgL_cdrzd21095zd2_517); 
BgL_test2163z00_521 = 
NULLP(BgL_auxz00_3091); } 
if(BgL_test2163z00_521)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2164z00_522;
BgL_test2164z00_522 = 
PAIRP(BgL_cdrzd21092zd2_515); 
if(BgL_test2164z00_522)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_carzd21101zd2_523;
BgL_carzd21101zd2_523 = 
CAR(BgL_cdrzd21092zd2_515); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2165z00_524;
BgL_test2165z00_524 = 
PAIRP(BgL_carzd21101zd2_523); 
if(BgL_test2165z00_524)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21105zd2_525;
BgL_cdrzd21105zd2_525 = 
CDR(BgL_carzd21101zd2_523); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2166z00_526;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3103;obj_t BgL_auxz00_3101;
BgL_auxz00_3103 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_3101 = 
CAR(BgL_carzd21101zd2_523); 
BgL_test2166z00_526 = 
(BgL_auxz00_3101==BgL_auxz00_3103); } 
if(BgL_test2166z00_526)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2167z00_527;
BgL_test2167z00_527 = 
PAIRP(BgL_cdrzd21105zd2_525); 
if(BgL_test2167z00_527)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2168z00_528;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3109;
BgL_auxz00_3109 = 
CAR(BgL_cdrzd21105zd2_525); 
BgL_test2168z00_528 = 
(BgL_yz00_520==BgL_auxz00_3109); } 
if(BgL_test2168z00_528)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2169z00_529;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3113;
BgL_auxz00_3113 = 
CDR(BgL_cdrzd21105zd2_525); 
BgL_test2169z00_529 = 
NULLP(BgL_auxz00_3113); } 
if(BgL_test2169z00_529)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2170z00_530;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3117;
BgL_auxz00_3117 = 
CDR(BgL_cdrzd21092zd2_515); 
BgL_test2170z00_530 = 
NULLP(BgL_auxz00_3117); } 
if(BgL_test2170z00_530)
{ /* ./Expand/iarith.scm 34 */
return BTRUE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21123zd2_532;
BgL_cdrzd21123zd2_532 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21125zd2_533;
BgL_cdrzd21125zd2_533 = 
CDR(BgL_cdrzd21123zd2_532); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2177z00_534;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3123;
BgL_auxz00_3123 = 
CAR(BgL_cdrzd21123zd2_532); 
BgL_test2177z00_534 = 
CHARP(BgL_auxz00_3123); } 
if(BgL_test2177z00_534)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2178z00_535;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3127;
BgL_auxz00_3127 = 
CAR(BgL_cdrzd21125zd2_533); 
BgL_test2178z00_535 = 
CHARP(BgL_auxz00_3127); } 
if(BgL_test2178z00_535)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2179z00_536;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3131;
BgL_auxz00_3131 = 
CDR(BgL_cdrzd21125zd2_533); 
BgL_test2179z00_536 = 
NULLP(BgL_auxz00_3131); } 
if(BgL_test2179z00_536)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21141zd2_539;
BgL_cdrzd21141zd2_539 = 
CDR(BgL_cdrzd21123zd2_532); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2186z00_540;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3136;
BgL_auxz00_3136 = 
CDR(BgL_cdrzd21141zd2_539); 
BgL_test2186z00_540 = 
NULLP(BgL_auxz00_3136); } 
if(BgL_test2186z00_540)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2188z00_541;obj_t BgL_arg2189z00_542;
BgL_arg2188z00_541 = 
CAR(BgL_cdrzd21123zd2_532); 
BgL_arg2189z00_542 = 
CAR(BgL_cdrzd21141zd2_539); 
{ 
obj_t BgL_yz00_3143;obj_t BgL_xz00_3142;
BgL_xz00_3142 = BgL_arg2188z00_541; 
BgL_yz00_3143 = BgL_arg2189z00_542; 
BgL_yz00_32 = BgL_yz00_3143; 
BgL_xz00_31 = BgL_xz00_3142; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21156zd2_546;
BgL_cdrzd21156zd2_546 = 
CDR(BgL_cdrzd21123zd2_532); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2204z00_547;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3145;
BgL_auxz00_3145 = 
CDR(BgL_cdrzd21156zd2_546); 
BgL_test2204z00_547 = 
NULLP(BgL_auxz00_3145); } 
if(BgL_test2204z00_547)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2206z00_548;obj_t BgL_arg2207z00_549;
BgL_arg2206z00_548 = 
CAR(BgL_cdrzd21123zd2_532); 
BgL_arg2207z00_549 = 
CAR(BgL_cdrzd21156zd2_546); 
{ 
obj_t BgL_yz00_3152;obj_t BgL_xz00_3151;
BgL_xz00_3151 = BgL_arg2206z00_548; 
BgL_yz00_3152 = BgL_arg2207z00_549; 
BgL_yz00_32 = BgL_yz00_3152; 
BgL_xz00_31 = BgL_xz00_3151; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21165zd2_553;
BgL_cdrzd21165zd2_553 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21167zd2_554;
BgL_cdrzd21167zd2_554 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2228z00_555;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3155;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3156;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3157;
BgL_auxz00_3157 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_auxz00_3156 = 
CDR(BgL_auxz00_3157); } 
BgL_auxz00_3155 = 
CAR(BgL_auxz00_3156); } 
BgL_test2228z00_555 = 
SYMBOLP(BgL_auxz00_3155); } 
if(BgL_test2228z00_555)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21175zd2_556;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3163;
BgL_auxz00_3163 = 
CAR(BgL_cdrzd21167zd2_554); 
BgL_cdrzd21175zd2_556 = 
CDR(BgL_auxz00_3163); } 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2229z00_557;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3166;
BgL_auxz00_3166 = 
CAR(BgL_cdrzd21175zd2_556); 
BgL_test2229z00_557 = 
SYMBOLP(BgL_auxz00_3166); } 
if(BgL_test2229z00_557)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2230z00_558;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3170;
BgL_auxz00_3170 = 
CDR(BgL_cdrzd21175zd2_556); 
BgL_test2230z00_558 = 
NULLP(BgL_auxz00_3170); } 
if(BgL_test2230z00_558)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2231z00_559;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3174;
BgL_auxz00_3174 = 
CDR(BgL_cdrzd21167zd2_554); 
BgL_test2231z00_559 = 
NULLP(BgL_auxz00_3174); } 
if(BgL_test2231z00_559)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21189zd2_562;
BgL_cdrzd21189zd2_562 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2238z00_563;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3179;
BgL_auxz00_3179 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_test2238z00_563 = 
CHARP(BgL_auxz00_3179); } 
if(BgL_test2238z00_563)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2239z00_564;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3183;
BgL_auxz00_3183 = 
CAR(BgL_cdrzd21189zd2_562); 
BgL_test2239z00_564 = 
CHARP(BgL_auxz00_3183); } 
if(BgL_test2239z00_564)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2240z00_565;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3187;
BgL_auxz00_3187 = 
CDR(BgL_cdrzd21189zd2_562); 
BgL_test2240z00_565 = 
NULLP(BgL_auxz00_3187); } 
if(BgL_test2240z00_565)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21205zd2_568;
BgL_cdrzd21205zd2_568 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2247z00_569;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3192;
BgL_auxz00_3192 = 
CDR(BgL_cdrzd21205zd2_568); 
BgL_test2247z00_569 = 
NULLP(BgL_auxz00_3192); } 
if(BgL_test2247z00_569)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2249z00_570;obj_t BgL_arg2250z00_571;
BgL_arg2249z00_570 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_arg2250z00_571 = 
CAR(BgL_cdrzd21205zd2_568); 
{ 
obj_t BgL_yz00_3199;obj_t BgL_xz00_3198;
BgL_xz00_3198 = BgL_arg2249z00_570; 
BgL_yz00_3199 = BgL_arg2250z00_571; 
BgL_yz00_32 = BgL_yz00_3199; 
BgL_xz00_31 = BgL_xz00_3198; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21220zd2_575;
BgL_cdrzd21220zd2_575 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2265z00_576;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3201;
BgL_auxz00_3201 = 
CDR(BgL_cdrzd21220zd2_575); 
BgL_test2265z00_576 = 
NULLP(BgL_auxz00_3201); } 
if(BgL_test2265z00_576)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2267z00_577;obj_t BgL_arg2268z00_578;
BgL_arg2267z00_577 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_arg2268z00_578 = 
CAR(BgL_cdrzd21220zd2_575); 
{ 
obj_t BgL_yz00_3208;obj_t BgL_xz00_3207;
BgL_xz00_3207 = BgL_arg2267z00_577; 
BgL_yz00_3208 = BgL_arg2268z00_578; 
BgL_yz00_32 = BgL_yz00_3208; 
BgL_xz00_31 = BgL_xz00_3207; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21231zd2_583;
BgL_cdrzd21231zd2_583 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2289z00_584;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3210;
BgL_auxz00_3210 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_test2289z00_584 = 
CHARP(BgL_auxz00_3210); } 
if(BgL_test2289z00_584)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2290z00_585;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3214;
BgL_auxz00_3214 = 
CAR(BgL_cdrzd21231zd2_583); 
BgL_test2290z00_585 = 
CHARP(BgL_auxz00_3214); } 
if(BgL_test2290z00_585)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2291z00_586;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3218;
BgL_auxz00_3218 = 
CDR(BgL_cdrzd21231zd2_583); 
BgL_test2291z00_586 = 
NULLP(BgL_auxz00_3218); } 
if(BgL_test2291z00_586)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21247zd2_589;
BgL_cdrzd21247zd2_589 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2298z00_590;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3223;
BgL_auxz00_3223 = 
CDR(BgL_cdrzd21247zd2_589); 
BgL_test2298z00_590 = 
NULLP(BgL_auxz00_3223); } 
if(BgL_test2298z00_590)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2300z00_591;obj_t BgL_arg2301z00_592;
BgL_arg2300z00_591 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_arg2301z00_592 = 
CAR(BgL_cdrzd21247zd2_589); 
{ 
obj_t BgL_yz00_3230;obj_t BgL_xz00_3229;
BgL_xz00_3229 = BgL_arg2300z00_591; 
BgL_yz00_3230 = BgL_arg2301z00_592; 
BgL_yz00_32 = BgL_yz00_3230; 
BgL_xz00_31 = BgL_xz00_3229; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21262zd2_596;
BgL_cdrzd21262zd2_596 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2316z00_597;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3232;
BgL_auxz00_3232 = 
CDR(BgL_cdrzd21262zd2_596); 
BgL_test2316z00_597 = 
NULLP(BgL_auxz00_3232); } 
if(BgL_test2316z00_597)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2318z00_598;obj_t BgL_arg2319z00_599;
BgL_arg2318z00_598 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_arg2319z00_599 = 
CAR(BgL_cdrzd21262zd2_596); 
{ 
obj_t BgL_yz00_3239;obj_t BgL_xz00_3238;
BgL_xz00_3238 = BgL_arg2318z00_598; 
BgL_yz00_3239 = BgL_arg2319z00_599; 
BgL_yz00_32 = BgL_yz00_3239; 
BgL_xz00_31 = BgL_xz00_3238; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21273zd2_605;
BgL_cdrzd21273zd2_605 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2344z00_606;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3241;
BgL_auxz00_3241 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_test2344z00_606 = 
CHARP(BgL_auxz00_3241); } 
if(BgL_test2344z00_606)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2345z00_607;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3245;
BgL_auxz00_3245 = 
CAR(BgL_cdrzd21273zd2_605); 
BgL_test2345z00_607 = 
CHARP(BgL_auxz00_3245); } 
if(BgL_test2345z00_607)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2346z00_608;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3249;
BgL_auxz00_3249 = 
CDR(BgL_cdrzd21273zd2_605); 
BgL_test2346z00_608 = 
NULLP(BgL_auxz00_3249); } 
if(BgL_test2346z00_608)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21289zd2_611;
BgL_cdrzd21289zd2_611 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2353z00_612;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3254;
BgL_auxz00_3254 = 
CDR(BgL_cdrzd21289zd2_611); 
BgL_test2353z00_612 = 
NULLP(BgL_auxz00_3254); } 
if(BgL_test2353z00_612)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2355z00_613;obj_t BgL_arg2356z00_614;
BgL_arg2355z00_613 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_arg2356z00_614 = 
CAR(BgL_cdrzd21289zd2_611); 
{ 
obj_t BgL_yz00_3261;obj_t BgL_xz00_3260;
BgL_xz00_3260 = BgL_arg2355z00_613; 
BgL_yz00_3261 = BgL_arg2356z00_614; 
BgL_yz00_32 = BgL_yz00_3261; 
BgL_xz00_31 = BgL_xz00_3260; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21304zd2_618;
BgL_cdrzd21304zd2_618 = 
CDR(BgL_cdrzd21165zd2_553); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2371z00_619;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3263;
BgL_auxz00_3263 = 
CDR(BgL_cdrzd21304zd2_618); 
BgL_test2371z00_619 = 
NULLP(BgL_auxz00_3263); } 
if(BgL_test2371z00_619)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2373z00_620;obj_t BgL_arg2374z00_621;
BgL_arg2373z00_620 = 
CAR(BgL_cdrzd21165zd2_553); 
BgL_arg2374z00_621 = 
CAR(BgL_cdrzd21304zd2_618); 
{ 
obj_t BgL_yz00_3270;obj_t BgL_xz00_3269;
BgL_xz00_3269 = BgL_arg2373z00_620; 
BgL_yz00_3270 = BgL_arg2374z00_621; 
BgL_yz00_32 = BgL_yz00_3270; 
BgL_xz00_31 = BgL_xz00_3269; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21315zd2_628;
BgL_cdrzd21315zd2_628 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21317zd2_629;
BgL_cdrzd21317zd2_629 = 
CDR(BgL_cdrzd21315zd2_628); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2408z00_630;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3273;
BgL_auxz00_3273 = 
CAR(BgL_cdrzd21315zd2_628); 
BgL_test2408z00_630 = 
CHARP(BgL_auxz00_3273); } 
if(BgL_test2408z00_630)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2409z00_631;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3277;
BgL_auxz00_3277 = 
CAR(BgL_cdrzd21317zd2_629); 
BgL_test2409z00_631 = 
CHARP(BgL_auxz00_3277); } 
if(BgL_test2409z00_631)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2410z00_632;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3281;
BgL_auxz00_3281 = 
CDR(BgL_cdrzd21317zd2_629); 
BgL_test2410z00_632 = 
NULLP(BgL_auxz00_3281); } 
if(BgL_test2410z00_632)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21333zd2_635;
BgL_cdrzd21333zd2_635 = 
CDR(BgL_cdrzd21315zd2_628); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2417z00_636;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3286;
BgL_auxz00_3286 = 
CDR(BgL_cdrzd21333zd2_635); 
BgL_test2417z00_636 = 
NULLP(BgL_auxz00_3286); } 
if(BgL_test2417z00_636)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2419z00_637;obj_t BgL_arg2420z00_638;
BgL_arg2419z00_637 = 
CAR(BgL_cdrzd21315zd2_628); 
BgL_arg2420z00_638 = 
CAR(BgL_cdrzd21333zd2_635); 
{ 
obj_t BgL_yz00_3293;obj_t BgL_xz00_3292;
BgL_xz00_3292 = BgL_arg2419z00_637; 
BgL_yz00_3293 = BgL_arg2420z00_638; 
BgL_yz00_32 = BgL_yz00_3293; 
BgL_xz00_31 = BgL_xz00_3292; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21348zd2_642;
BgL_cdrzd21348zd2_642 = 
CDR(BgL_cdrzd21315zd2_628); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2436z00_643;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3295;
BgL_auxz00_3295 = 
CDR(BgL_cdrzd21348zd2_642); 
BgL_test2436z00_643 = 
NULLP(BgL_auxz00_3295); } 
if(BgL_test2436z00_643)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2438z00_644;obj_t BgL_arg2439z00_645;
BgL_arg2438z00_644 = 
CAR(BgL_cdrzd21315zd2_628); 
BgL_arg2439z00_645 = 
CAR(BgL_cdrzd21348zd2_642); 
{ 
obj_t BgL_yz00_3302;obj_t BgL_xz00_3301;
BgL_xz00_3301 = BgL_arg2438z00_644; 
BgL_yz00_3302 = BgL_arg2439z00_645; 
BgL_yz00_32 = BgL_yz00_3302; 
BgL_xz00_31 = BgL_xz00_3301; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21359zd2_648;
BgL_cdrzd21359zd2_648 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21361zd2_649;
BgL_cdrzd21361zd2_649 = 
CDR(BgL_cdrzd21359zd2_648); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2457z00_650;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3305;
BgL_auxz00_3305 = 
CAR(BgL_cdrzd21359zd2_648); 
BgL_test2457z00_650 = 
CHARP(BgL_auxz00_3305); } 
if(BgL_test2457z00_650)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2458z00_651;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3309;
BgL_auxz00_3309 = 
CAR(BgL_cdrzd21361zd2_649); 
BgL_test2458z00_651 = 
CHARP(BgL_auxz00_3309); } 
if(BgL_test2458z00_651)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2459z00_652;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3313;
BgL_auxz00_3313 = 
CDR(BgL_cdrzd21361zd2_649); 
BgL_test2459z00_652 = 
NULLP(BgL_auxz00_3313); } 
if(BgL_test2459z00_652)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21377zd2_655;
BgL_cdrzd21377zd2_655 = 
CDR(BgL_cdrzd21359zd2_648); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2466z00_656;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3318;
BgL_auxz00_3318 = 
CDR(BgL_cdrzd21377zd2_655); 
BgL_test2466z00_656 = 
NULLP(BgL_auxz00_3318); } 
if(BgL_test2466z00_656)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2468z00_657;obj_t BgL_arg2469z00_658;
BgL_arg2468z00_657 = 
CAR(BgL_cdrzd21359zd2_648); 
BgL_arg2469z00_658 = 
CAR(BgL_cdrzd21377zd2_655); 
{ 
obj_t BgL_yz00_3325;obj_t BgL_xz00_3324;
BgL_xz00_3324 = BgL_arg2468z00_657; 
BgL_yz00_3325 = BgL_arg2469z00_658; 
BgL_yz00_32 = BgL_yz00_3325; 
BgL_xz00_31 = BgL_xz00_3324; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21392zd2_662;
BgL_cdrzd21392zd2_662 = 
CDR(BgL_cdrzd21359zd2_648); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2484z00_663;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3327;
BgL_auxz00_3327 = 
CDR(BgL_cdrzd21392zd2_662); 
BgL_test2484z00_663 = 
NULLP(BgL_auxz00_3327); } 
if(BgL_test2484z00_663)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2486z00_664;obj_t BgL_arg2487z00_665;
BgL_arg2486z00_664 = 
CAR(BgL_cdrzd21359zd2_648); 
BgL_arg2487z00_665 = 
CAR(BgL_cdrzd21392zd2_662); 
{ 
obj_t BgL_yz00_3334;obj_t BgL_xz00_3333;
BgL_xz00_3333 = BgL_arg2486z00_664; 
BgL_yz00_3334 = BgL_arg2487z00_665; 
BgL_yz00_32 = BgL_yz00_3334; 
BgL_xz00_31 = BgL_xz00_3333; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21403zd2_670;
BgL_cdrzd21403zd2_670 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21405zd2_671;
BgL_cdrzd21405zd2_671 = 
CDR(BgL_cdrzd21403zd2_670); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2510z00_672;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3337;
BgL_auxz00_3337 = 
CAR(BgL_cdrzd21403zd2_670); 
BgL_test2510z00_672 = 
CHARP(BgL_auxz00_3337); } 
if(BgL_test2510z00_672)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2511z00_673;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3341;
BgL_auxz00_3341 = 
CAR(BgL_cdrzd21405zd2_671); 
BgL_test2511z00_673 = 
CHARP(BgL_auxz00_3341); } 
if(BgL_test2511z00_673)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2512z00_674;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3345;
BgL_auxz00_3345 = 
CDR(BgL_cdrzd21405zd2_671); 
BgL_test2512z00_674 = 
NULLP(BgL_auxz00_3345); } 
if(BgL_test2512z00_674)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21421zd2_677;
BgL_cdrzd21421zd2_677 = 
CDR(BgL_cdrzd21403zd2_670); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2519z00_678;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3350;
BgL_auxz00_3350 = 
CDR(BgL_cdrzd21421zd2_677); 
BgL_test2519z00_678 = 
NULLP(BgL_auxz00_3350); } 
if(BgL_test2519z00_678)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2521z00_679;obj_t BgL_arg2522z00_680;
BgL_arg2521z00_679 = 
CAR(BgL_cdrzd21403zd2_670); 
BgL_arg2522z00_680 = 
CAR(BgL_cdrzd21421zd2_677); 
{ 
obj_t BgL_yz00_3357;obj_t BgL_xz00_3356;
BgL_xz00_3356 = BgL_arg2521z00_679; 
BgL_yz00_3357 = BgL_arg2522z00_680; 
BgL_yz00_32 = BgL_yz00_3357; 
BgL_xz00_31 = BgL_xz00_3356; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21436zd2_684;
BgL_cdrzd21436zd2_684 = 
CDR(BgL_cdrzd21403zd2_670); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2537z00_685;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3359;
BgL_auxz00_3359 = 
CDR(BgL_cdrzd21436zd2_684); 
BgL_test2537z00_685 = 
NULLP(BgL_auxz00_3359); } 
if(BgL_test2537z00_685)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2539z00_686;obj_t BgL_arg2540z00_687;
BgL_arg2539z00_686 = 
CAR(BgL_cdrzd21403zd2_670); 
BgL_arg2540z00_687 = 
CAR(BgL_cdrzd21436zd2_684); 
{ 
obj_t BgL_yz00_3366;obj_t BgL_xz00_3365;
BgL_xz00_3365 = BgL_arg2539z00_686; 
BgL_yz00_3366 = BgL_arg2540z00_687; 
BgL_yz00_32 = BgL_yz00_3366; 
BgL_xz00_31 = BgL_xz00_3365; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21455zd2_690;
BgL_cdrzd21455zd2_690 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21457zd2_691;
BgL_cdrzd21457zd2_691 = 
CDR(BgL_cdrzd21455zd2_690); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2561z00_692;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3369;
BgL_auxz00_3369 = 
CAR(BgL_cdrzd21455zd2_690); 
BgL_test2561z00_692 = 
CHARP(BgL_auxz00_3369); } 
if(BgL_test2561z00_692)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2562z00_693;
BgL_test2562z00_693 = 
PAIRP(BgL_cdrzd21457zd2_691); 
if(BgL_test2562z00_693)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2563z00_694;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3375;
BgL_auxz00_3375 = 
CAR(BgL_cdrzd21457zd2_691); 
BgL_test2563z00_694 = 
CHARP(BgL_auxz00_3375); } 
if(BgL_test2563z00_694)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2564z00_695;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3379;
BgL_auxz00_3379 = 
CDR(BgL_cdrzd21457zd2_691); 
BgL_test2564z00_695 = 
NULLP(BgL_auxz00_3379); } 
if(BgL_test2564z00_695)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21473zd2_698;
BgL_cdrzd21473zd2_698 = 
CDR(BgL_cdrzd21455zd2_690); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2571z00_699;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3384;
BgL_auxz00_3384 = 
CDR(BgL_cdrzd21473zd2_698); 
BgL_test2571z00_699 = 
NULLP(BgL_auxz00_3384); } 
if(BgL_test2571z00_699)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2573z00_700;obj_t BgL_arg2574z00_701;
BgL_arg2573z00_700 = 
CAR(BgL_cdrzd21455zd2_690); 
BgL_arg2574z00_701 = 
CAR(BgL_cdrzd21473zd2_698); 
{ 
obj_t BgL_yz00_3391;obj_t BgL_xz00_3390;
BgL_xz00_3390 = BgL_arg2573z00_700; 
BgL_yz00_3391 = BgL_arg2574z00_701; 
BgL_yz00_32 = BgL_yz00_3391; 
BgL_xz00_31 = BgL_xz00_3390; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21492zd2_705;
BgL_cdrzd21492zd2_705 = 
CDR(BgL_cdrzd21455zd2_690); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2591z00_706;
BgL_test2591z00_706 = 
PAIRP(BgL_cdrzd21492zd2_705); 
if(BgL_test2591z00_706)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2592z00_707;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3395;
BgL_auxz00_3395 = 
CDR(BgL_cdrzd21492zd2_705); 
BgL_test2592z00_707 = 
NULLP(BgL_auxz00_3395); } 
if(BgL_test2592z00_707)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2594z00_708;obj_t BgL_arg2595z00_709;
BgL_arg2594z00_708 = 
CAR(BgL_cdrzd21455zd2_690); 
BgL_arg2595z00_709 = 
CAR(BgL_cdrzd21492zd2_705); 
{ 
obj_t BgL_yz00_3402;obj_t BgL_xz00_3401;
BgL_xz00_3401 = BgL_arg2594z00_708; 
BgL_yz00_3402 = BgL_arg2595z00_709; 
BgL_yz00_32 = BgL_yz00_3402; 
BgL_xz00_31 = BgL_xz00_3401; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21503zd2_713;
BgL_cdrzd21503zd2_713 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21505zd2_714;
BgL_cdrzd21505zd2_714 = 
CDR(BgL_cdrzd21503zd2_713); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2619z00_715;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3405;
BgL_auxz00_3405 = 
CAR(BgL_cdrzd21503zd2_713); 
BgL_test2619z00_715 = 
CHARP(BgL_auxz00_3405); } 
if(BgL_test2619z00_715)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2620z00_716;
BgL_test2620z00_716 = 
PAIRP(BgL_cdrzd21505zd2_714); 
if(BgL_test2620z00_716)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2621z00_717;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3411;
BgL_auxz00_3411 = 
CAR(BgL_cdrzd21505zd2_714); 
BgL_test2621z00_717 = 
CHARP(BgL_auxz00_3411); } 
if(BgL_test2621z00_717)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2622z00_718;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3415;
BgL_auxz00_3415 = 
CDR(BgL_cdrzd21505zd2_714); 
BgL_test2622z00_718 = 
NULLP(BgL_auxz00_3415); } 
if(BgL_test2622z00_718)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21521zd2_721;
BgL_cdrzd21521zd2_721 = 
CDR(BgL_cdrzd21503zd2_713); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2629z00_722;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3420;
BgL_auxz00_3420 = 
CDR(BgL_cdrzd21521zd2_721); 
BgL_test2629z00_722 = 
NULLP(BgL_auxz00_3420); } 
if(BgL_test2629z00_722)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2631z00_723;obj_t BgL_arg2632z00_724;
BgL_arg2631z00_723 = 
CAR(BgL_cdrzd21503zd2_713); 
BgL_arg2632z00_724 = 
CAR(BgL_cdrzd21521zd2_721); 
{ 
obj_t BgL_yz00_3427;obj_t BgL_xz00_3426;
BgL_xz00_3426 = BgL_arg2631z00_723; 
BgL_yz00_3427 = BgL_arg2632z00_724; 
BgL_yz00_32 = BgL_yz00_3427; 
BgL_xz00_31 = BgL_xz00_3426; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21540zd2_728;
BgL_cdrzd21540zd2_728 = 
CDR(BgL_cdrzd21503zd2_713); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2649z00_729;
BgL_test2649z00_729 = 
PAIRP(BgL_cdrzd21540zd2_728); 
if(BgL_test2649z00_729)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2650z00_730;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3431;
BgL_auxz00_3431 = 
CDR(BgL_cdrzd21540zd2_728); 
BgL_test2650z00_730 = 
NULLP(BgL_auxz00_3431); } 
if(BgL_test2650z00_730)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2652z00_731;obj_t BgL_arg2653z00_732;
BgL_arg2652z00_731 = 
CAR(BgL_cdrzd21503zd2_713); 
BgL_arg2653z00_732 = 
CAR(BgL_cdrzd21540zd2_728); 
{ 
obj_t BgL_yz00_3438;obj_t BgL_xz00_3437;
BgL_xz00_3437 = BgL_arg2652z00_731; 
BgL_yz00_3438 = BgL_arg2653z00_732; 
BgL_yz00_32 = BgL_yz00_3438; 
BgL_xz00_31 = BgL_xz00_3437; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21551zd2_735;
BgL_cdrzd21551zd2_735 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21553zd2_736;
BgL_cdrzd21553zd2_736 = 
CDR(BgL_cdrzd21551zd2_735); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2673z00_737;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3441;
BgL_auxz00_3441 = 
CAR(BgL_cdrzd21551zd2_735); 
BgL_test2673z00_737 = 
CHARP(BgL_auxz00_3441); } 
if(BgL_test2673z00_737)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2674z00_738;
BgL_test2674z00_738 = 
PAIRP(BgL_cdrzd21553zd2_736); 
if(BgL_test2674z00_738)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2675z00_739;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3447;
BgL_auxz00_3447 = 
CAR(BgL_cdrzd21553zd2_736); 
BgL_test2675z00_739 = 
CHARP(BgL_auxz00_3447); } 
if(BgL_test2675z00_739)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2676z00_740;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3451;
BgL_auxz00_3451 = 
CDR(BgL_cdrzd21553zd2_736); 
BgL_test2676z00_740 = 
NULLP(BgL_auxz00_3451); } 
if(BgL_test2676z00_740)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21569zd2_743;
BgL_cdrzd21569zd2_743 = 
CDR(BgL_cdrzd21551zd2_735); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2683z00_744;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3456;
BgL_auxz00_3456 = 
CDR(BgL_cdrzd21569zd2_743); 
BgL_test2683z00_744 = 
NULLP(BgL_auxz00_3456); } 
if(BgL_test2683z00_744)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2685z00_745;obj_t BgL_arg2686z00_746;
BgL_arg2685z00_745 = 
CAR(BgL_cdrzd21551zd2_735); 
BgL_arg2686z00_746 = 
CAR(BgL_cdrzd21569zd2_743); 
{ 
obj_t BgL_yz00_3463;obj_t BgL_xz00_3462;
BgL_xz00_3462 = BgL_arg2685z00_745; 
BgL_yz00_3463 = BgL_arg2686z00_746; 
BgL_yz00_32 = BgL_yz00_3463; 
BgL_xz00_31 = BgL_xz00_3462; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21588zd2_750;
BgL_cdrzd21588zd2_750 = 
CDR(BgL_cdrzd21551zd2_735); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2703z00_751;
BgL_test2703z00_751 = 
PAIRP(BgL_cdrzd21588zd2_750); 
if(BgL_test2703z00_751)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2704z00_752;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3467;
BgL_auxz00_3467 = 
CDR(BgL_cdrzd21588zd2_750); 
BgL_test2704z00_752 = 
NULLP(BgL_auxz00_3467); } 
if(BgL_test2704z00_752)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2706z00_753;obj_t BgL_arg2707z00_754;
BgL_arg2706z00_753 = 
CAR(BgL_cdrzd21551zd2_735); 
BgL_arg2707z00_754 = 
CAR(BgL_cdrzd21588zd2_750); 
{ 
obj_t BgL_yz00_3474;obj_t BgL_xz00_3473;
BgL_xz00_3473 = BgL_arg2706z00_753; 
BgL_yz00_3474 = BgL_arg2707z00_754; 
BgL_yz00_32 = BgL_yz00_3474; 
BgL_xz00_31 = BgL_xz00_3473; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21601zd2_760;
BgL_cdrzd21601zd2_760 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2732z00_761;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3476;
BgL_auxz00_3476 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_test2732z00_761 = 
CHARP(BgL_auxz00_3476); } 
if(BgL_test2732z00_761)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2733z00_762;
BgL_test2733z00_762 = 
PAIRP(BgL_cdrzd21601zd2_760); 
if(BgL_test2733z00_762)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2734z00_763;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3482;
BgL_auxz00_3482 = 
CAR(BgL_cdrzd21601zd2_760); 
BgL_test2734z00_763 = 
CHARP(BgL_auxz00_3482); } 
if(BgL_test2734z00_763)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2735z00_764;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3486;
BgL_auxz00_3486 = 
CDR(BgL_cdrzd21601zd2_760); 
BgL_test2735z00_764 = 
NULLP(BgL_auxz00_3486); } 
if(BgL_test2735z00_764)
{ /* ./Expand/iarith.scm 34 */
return BFALSE;}  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21617zd2_767;
BgL_cdrzd21617zd2_767 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2742z00_768;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3491;
BgL_auxz00_3491 = 
CDR(BgL_cdrzd21617zd2_767); 
BgL_test2742z00_768 = 
NULLP(BgL_auxz00_3491); } 
if(BgL_test2742z00_768)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2744z00_769;obj_t BgL_arg2745z00_770;
BgL_arg2744z00_769 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_arg2745z00_770 = 
CAR(BgL_cdrzd21617zd2_767); 
{ 
obj_t BgL_yz00_3498;obj_t BgL_xz00_3497;
BgL_xz00_3497 = BgL_arg2744z00_769; 
BgL_yz00_3498 = BgL_arg2745z00_770; 
BgL_yz00_32 = BgL_yz00_3498; 
BgL_xz00_31 = BgL_xz00_3497; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_cdrzd21636zd2_774;
BgL_cdrzd21636zd2_774 = 
CDR(BgL_cdrzd2112zd2_37); 
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2762z00_775;
BgL_test2762z00_775 = 
PAIRP(BgL_cdrzd21636zd2_774); 
if(BgL_test2762z00_775)
{ /* ./Expand/iarith.scm 34 */
bool_t BgL_test2763z00_776;
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_auxz00_3502;
BgL_auxz00_3502 = 
CDR(BgL_cdrzd21636zd2_774); 
BgL_test2763z00_776 = 
NULLP(BgL_auxz00_3502); } 
if(BgL_test2763z00_776)
{ /* ./Expand/iarith.scm 34 */
obj_t BgL_arg2765z00_777;obj_t BgL_arg2766z00_778;
BgL_arg2765z00_777 = 
CAR(BgL_cdrzd2112zd2_37); 
BgL_arg2766z00_778 = 
CAR(BgL_cdrzd21636zd2_774); 
{ 
obj_t BgL_yz00_3509;obj_t BgL_xz00_3508;
BgL_xz00_3508 = BgL_arg2765z00_777; 
BgL_yz00_3509 = BgL_arg2766z00_778; 
BgL_yz00_32 = BgL_yz00_3509; 
BgL_xz00_31 = BgL_xz00_3508; 
goto BgL_tagzd2105zd2_33;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } } } } } }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } }  else 
{ /* ./Expand/iarith.scm 34 */
goto BgL_tagzd2106zd2_34;} } } } 
}



/* _expand-eq?3721 */
obj_t BGl__expandzd2eqzf33721z21zzexpand_iarithmetiquez00(obj_t BgL_envz00_2222, obj_t BgL_xz00_2223, obj_t BgL_ez00_2224)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 33 */
return 
BGl_expandzd2eqzf3z21zzexpand_iarithmetiquez00(BgL_xz00_2223, BgL_ez00_2224);} 
}



/* expand-i+ */
BGL_EXPORTED_DEF obj_t BGl_expandzd2izb2z60zzexpand_iarithmetiquez00(obj_t BgL_xz00_3, obj_t BgL_ez00_4)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 51 */
{ 
obj_t BgL_xz00_795;obj_t BgL_yz00_796;obj_t BgL_xz00_792;obj_t BgL_yz00_793;
{ /* ./Expand/iarith.scm 52 */
bool_t BgL_test2813z00_799;
BgL_test2813z00_799 = 
PAIRP(BgL_xz00_3); 
if(BgL_test2813z00_799)
{ /* ./Expand/iarith.scm 52 */
bool_t BgL_test2814z00_800;
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_auxz00_3513;
BgL_auxz00_3513 = 
CDR(BgL_xz00_3); 
BgL_test2814z00_800 = 
NULLP(BgL_auxz00_3513); } 
if(BgL_test2814z00_800)
{ /* ./Expand/iarith.scm 52 */
return 
BINT(((long)0));}  else 
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_cdrzd21677zd2_801;
BgL_cdrzd21677zd2_801 = 
CDR(BgL_xz00_3); 
{ /* ./Expand/iarith.scm 52 */
bool_t BgL_test2816z00_802;
BgL_test2816z00_802 = 
PAIRP(BgL_cdrzd21677zd2_801); 
if(BgL_test2816z00_802)
{ /* ./Expand/iarith.scm 52 */
bool_t BgL_test2817z00_803;
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_auxz00_3521;
BgL_auxz00_3521 = 
CDR(BgL_cdrzd21677zd2_801); 
BgL_test2817z00_803 = 
NULLP(BgL_auxz00_3521); } 
if(BgL_test2817z00_803)
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_arg2819z00_804;
BgL_arg2819z00_804 = 
CAR(BgL_cdrzd21677zd2_801); 
return 
PROCEDURE_ENTRY(BgL_ez00_4)(BgL_ez00_4, BgL_arg2819z00_804, BgL_ez00_4, BEOA);}  else 
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_cdrzd21693zd2_806;
BgL_cdrzd21693zd2_806 = 
CDR(BgL_cdrzd21677zd2_801); 
{ /* ./Expand/iarith.scm 52 */
bool_t BgL_test2822z00_807;
BgL_test2822z00_807 = 
PAIRP(BgL_cdrzd21693zd2_806); 
if(BgL_test2822z00_807)
{ /* ./Expand/iarith.scm 52 */
bool_t BgL_test2823z00_808;
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_auxz00_3531;
BgL_auxz00_3531 = 
CDR(BgL_cdrzd21693zd2_806); 
BgL_test2823z00_808 = 
NULLP(BgL_auxz00_3531); } 
if(BgL_test2823z00_808)
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_arg2825z00_809;obj_t BgL_arg2826z00_810;
BgL_arg2825z00_809 = 
CAR(BgL_cdrzd21677zd2_801); 
BgL_arg2826z00_810 = 
CAR(BgL_cdrzd21693zd2_806); 
BgL_xz00_792 = BgL_arg2825z00_809; 
BgL_yz00_793 = BgL_arg2826z00_810; 
{ /* ./Expand/iarith.scm 59 */
bool_t BgL_test2863z00_820;
if(
INTEGERP(BgL_xz00_792))
{ /* ./Expand/iarith.scm 59 */
BgL_test2863z00_820 = 
INTEGERP(BgL_yz00_793); }  else 
{ /* ./Expand/iarith.scm 59 */
BgL_test2863z00_820 = ((bool_t)0); } 
if(BgL_test2863z00_820)
{ /* ./Expand/iarith.scm 59 */
{ /* ./Expand/iarith.scm 61 */
long BgL_auxz00_3541;
{ /* ./Expand/iarith.scm 61 */
long BgL_auxz00_3544;long BgL_auxz00_3542;
BgL_auxz00_3544 = 
(long)CINT(BgL_yz00_793); 
BgL_auxz00_3542 = 
(long)CINT(BgL_xz00_792); 
BgL_auxz00_3541 = 
(BgL_auxz00_3542+BgL_auxz00_3544); } 
return 
BINT(BgL_auxz00_3541);} }  else 
{ /* ./Expand/iarith.scm 59 */
{ /* ./Expand/iarith.scm 63 */
obj_t BgL_arg2866z00_821;
{ /* ./Expand/iarith.scm 63 */
obj_t BgL_arg2869z00_822;obj_t BgL_arg2870z00_823;
BgL_arg2869z00_822 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/iarith.scm 63 */
obj_t BgL_arg2873z00_824;
BgL_arg2873z00_824 = 
MAKE_PAIR(BgL_yz00_793, BNIL); 
BgL_arg2870z00_823 = 
MAKE_PAIR(BgL_xz00_792, BgL_arg2873z00_824); } 
BgL_arg2866z00_821 = 
MAKE_PAIR(BgL_arg2869z00_822, BgL_arg2870z00_823); } 
return 
PROCEDURE_ENTRY(BgL_ez00_4)(BgL_ez00_4, BgL_arg2866z00_821, BgL_ez00_4, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_arg2831z00_812;obj_t BgL_arg2832z00_813;
BgL_arg2831z00_812 = 
CAR(BgL_cdrzd21677zd2_801); 
BgL_arg2832z00_813 = 
CDR(BgL_cdrzd21677zd2_801); 
BgL_xz00_795 = BgL_arg2831z00_812; 
BgL_yz00_796 = BgL_arg2832z00_813; 
BgL_tagzd21667zd2_797:
{ /* ./Expand/iarith.scm 65 */
obj_t BgL_arg2880z00_826;
{ /* ./Expand/iarith.scm 65 */
obj_t BgL_arg2883z00_827;obj_t BgL_arg2884z00_828;
BgL_arg2883z00_827 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/iarith.scm 65 */
obj_t BgL_arg2887z00_829;
{ /* ./Expand/iarith.scm 65 */
obj_t BgL_arg2890z00_830;
{ /* ./Expand/iarith.scm 65 */
obj_t BgL_arg2894z00_832;obj_t BgL_arg2895z00_833;
BgL_arg2894z00_832 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg2895z00_833 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_796, BNIL); 
BgL_arg2890z00_830 = 
MAKE_PAIR(BgL_arg2894z00_832, BgL_arg2895z00_833); } 
BgL_arg2887z00_829 = 
MAKE_PAIR(BgL_arg2890z00_830, BNIL); } 
BgL_arg2884z00_828 = 
MAKE_PAIR(BgL_xz00_795, BgL_arg2887z00_829); } 
BgL_arg2880z00_826 = 
MAKE_PAIR(BgL_arg2883z00_827, BgL_arg2884z00_828); } 
return 
PROCEDURE_ENTRY(BgL_ez00_4)(BgL_ez00_4, BgL_arg2880z00_826, BgL_ez00_4, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 52 */
obj_t BgL_arg2842z00_816;obj_t BgL_arg2843z00_817;
BgL_arg2842z00_816 = 
CAR(BgL_cdrzd21677zd2_801); 
BgL_arg2843z00_817 = 
CDR(BgL_cdrzd21677zd2_801); 
{ 
obj_t BgL_yz00_3568;obj_t BgL_xz00_3567;
BgL_xz00_3567 = BgL_arg2842z00_816; 
BgL_yz00_3568 = BgL_arg2843z00_817; 
BgL_yz00_796 = BgL_yz00_3568; 
BgL_xz00_795 = BgL_xz00_3567; 
goto BgL_tagzd21667zd2_797;} } } } }  else 
{ /* ./Expand/iarith.scm 52 */
return BFALSE;} } } }  else 
{ /* ./Expand/iarith.scm 52 */
return BFALSE;} } } } 
}



/* _expand-i+3723 */
obj_t BGl__expandzd2izb23723z60zzexpand_iarithmetiquez00(obj_t BgL_envz00_2225, obj_t BgL_xz00_2226, obj_t BgL_ez00_2227)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 51 */
return 
BGl_expandzd2izb2z60zzexpand_iarithmetiquez00(BgL_xz00_2226, BgL_ez00_2227);} 
}



/* expand-i- */
BGL_EXPORTED_DEF obj_t BGl_expandzd2izd2z00zzexpand_iarithmetiquez00(obj_t BgL_xz00_5, obj_t BgL_ez00_6)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 70 */
{ 
obj_t BgL_xz00_839;obj_t BgL_yz00_840;obj_t BgL_xz00_836;obj_t BgL_yz00_837;obj_t BgL_xz00_834;
{ /* ./Expand/iarith.scm 71 */
bool_t BgL_test2898z00_843;
BgL_test2898z00_843 = 
PAIRP(BgL_xz00_5); 
if(BgL_test2898z00_843)
{ /* ./Expand/iarith.scm 71 */
obj_t BgL_cdrzd21757zd2_844;
BgL_cdrzd21757zd2_844 = 
CDR(BgL_xz00_5); 
{ /* ./Expand/iarith.scm 71 */
bool_t BgL_test2899z00_845;
BgL_test2899z00_845 = 
PAIRP(BgL_cdrzd21757zd2_844); 
if(BgL_test2899z00_845)
{ /* ./Expand/iarith.scm 71 */
bool_t BgL_test2900z00_846;
{ /* ./Expand/iarith.scm 71 */
obj_t BgL_auxz00_3575;
BgL_auxz00_3575 = 
CDR(BgL_cdrzd21757zd2_844); 
BgL_test2900z00_846 = 
NULLP(BgL_auxz00_3575); } 
if(BgL_test2900z00_846)
{ /* ./Expand/iarith.scm 71 */
obj_t BgL_arg2902z00_847;
BgL_arg2902z00_847 = 
CAR(BgL_cdrzd21757zd2_844); 
BgL_xz00_834 = BgL_arg2902z00_847; 
{ /* ./Expand/iarith.scm 74 */
bool_t BgL_test2941z00_862;
BgL_test2941z00_862 = 
INTEGERP(BgL_xz00_834); 
if(BgL_test2941z00_862)
{ /* ./Expand/iarith.scm 74 */
{ /* ./Expand/iarith.scm 75 */
long BgL_auxz00_3582;
{ /* ./Expand/iarith.scm 75 */
long BgL_auxz00_3583;
BgL_auxz00_3583 = 
(long)CINT(BgL_xz00_834); 
BgL_auxz00_3582 = 
NEG(BgL_auxz00_3583); } 
return 
BINT(BgL_auxz00_3582);} }  else 
{ /* ./Expand/iarith.scm 74 */
{ /* ./Expand/iarith.scm 77 */
obj_t BgL_arg2944z00_863;obj_t BgL_arg2946z00_864;
BgL_arg2944z00_863 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Expand/iarith.scm 77 */
obj_t BgL_arg2949z00_865;
BgL_arg2949z00_865 = 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_xz00_834, BgL_ez00_6, BEOA); 
BgL_arg2946z00_864 = 
MAKE_PAIR(BgL_arg2949z00_865, BNIL); } 
return 
MAKE_PAIR(BgL_arg2944z00_863, BgL_arg2946z00_864);} } } }  else 
{ /* ./Expand/iarith.scm 71 */
obj_t BgL_cdrzd21773zd2_849;
BgL_cdrzd21773zd2_849 = 
CDR(BgL_cdrzd21757zd2_844); 
{ /* ./Expand/iarith.scm 71 */
bool_t BgL_test2905z00_850;
BgL_test2905z00_850 = 
PAIRP(BgL_cdrzd21773zd2_849); 
if(BgL_test2905z00_850)
{ /* ./Expand/iarith.scm 71 */
bool_t BgL_test2906z00_851;
{ /* ./Expand/iarith.scm 71 */
obj_t BgL_auxz00_3595;
BgL_auxz00_3595 = 
CDR(BgL_cdrzd21773zd2_849); 
BgL_test2906z00_851 = 
NULLP(BgL_auxz00_3595); } 
if(BgL_test2906z00_851)
{ /* ./Expand/iarith.scm 71 */
obj_t BgL_arg2908z00_852;obj_t BgL_arg2909z00_853;
BgL_arg2908z00_852 = 
CAR(BgL_cdrzd21757zd2_844); 
BgL_arg2909z00_853 = 
CAR(BgL_cdrzd21773zd2_849); 
BgL_xz00_836 = BgL_arg2908z00_852; 
BgL_yz00_837 = BgL_arg2909z00_853; 
{ /* ./Expand/iarith.scm 80 */
bool_t BgL_test2954z00_867;
if(
INTEGERP(BgL_xz00_836))
{ /* ./Expand/iarith.scm 80 */
BgL_test2954z00_867 = 
INTEGERP(BgL_yz00_837); }  else 
{ /* ./Expand/iarith.scm 80 */
BgL_test2954z00_867 = ((bool_t)0); } 
if(BgL_test2954z00_867)
{ /* ./Expand/iarith.scm 80 */
{ /* ./Expand/iarith.scm 82 */
long BgL_auxz00_3605;
{ /* ./Expand/iarith.scm 82 */
long BgL_auxz00_3608;long BgL_auxz00_3606;
BgL_auxz00_3608 = 
(long)CINT(BgL_yz00_837); 
BgL_auxz00_3606 = 
(long)CINT(BgL_xz00_836); 
BgL_auxz00_3605 = 
(BgL_auxz00_3606-BgL_auxz00_3608); } 
return 
BINT(BgL_auxz00_3605);} }  else 
{ /* ./Expand/iarith.scm 80 */
{ /* ./Expand/iarith.scm 84 */
obj_t BgL_arg2957z00_868;
{ /* ./Expand/iarith.scm 84 */
obj_t BgL_arg2960z00_869;obj_t BgL_arg2961z00_870;
BgL_arg2960z00_869 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/iarith.scm 84 */
obj_t BgL_arg2964z00_871;
BgL_arg2964z00_871 = 
MAKE_PAIR(BgL_yz00_837, BNIL); 
BgL_arg2961z00_870 = 
MAKE_PAIR(BgL_xz00_836, BgL_arg2964z00_871); } 
BgL_arg2957z00_868 = 
MAKE_PAIR(BgL_arg2960z00_869, BgL_arg2961z00_870); } 
return 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_arg2957z00_868, BgL_ez00_6, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 71 */
obj_t BgL_arg2914z00_855;obj_t BgL_arg2915z00_856;
BgL_arg2914z00_855 = 
CAR(BgL_cdrzd21757zd2_844); 
BgL_arg2915z00_856 = 
CDR(BgL_cdrzd21757zd2_844); 
BgL_xz00_839 = BgL_arg2914z00_855; 
BgL_yz00_840 = BgL_arg2915z00_856; 
BgL_tagzd21751zd2_841:
{ /* ./Expand/iarith.scm 86 */
obj_t BgL_arg2971z00_873;
{ /* ./Expand/iarith.scm 86 */
obj_t BgL_arg2974z00_874;obj_t BgL_arg2975z00_875;
BgL_arg2974z00_874 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/iarith.scm 86 */
obj_t BgL_arg2978z00_876;
{ /* ./Expand/iarith.scm 86 */
obj_t BgL_arg2981z00_877;
{ /* ./Expand/iarith.scm 86 */
obj_t BgL_arg2986z00_879;obj_t BgL_arg2987z00_880;
BgL_arg2986z00_879 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg2987z00_880 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_840, BNIL); 
BgL_arg2981z00_877 = 
MAKE_PAIR(BgL_arg2986z00_879, BgL_arg2987z00_880); } 
BgL_arg2978z00_876 = 
MAKE_PAIR(BgL_arg2981z00_877, BNIL); } 
BgL_arg2975z00_875 = 
MAKE_PAIR(BgL_xz00_839, BgL_arg2978z00_876); } 
BgL_arg2971z00_873 = 
MAKE_PAIR(BgL_arg2974z00_874, BgL_arg2975z00_875); } 
return 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_arg2971z00_873, BgL_ez00_6, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 71 */
obj_t BgL_arg2925z00_859;obj_t BgL_arg2926z00_860;
BgL_arg2925z00_859 = 
CAR(BgL_cdrzd21757zd2_844); 
BgL_arg2926z00_860 = 
CDR(BgL_cdrzd21757zd2_844); 
{ 
obj_t BgL_yz00_3632;obj_t BgL_xz00_3631;
BgL_xz00_3631 = BgL_arg2925z00_859; 
BgL_yz00_3632 = BgL_arg2926z00_860; 
BgL_yz00_840 = BgL_yz00_3632; 
BgL_xz00_839 = BgL_xz00_3631; 
goto BgL_tagzd21751zd2_841;} } } } }  else 
{ /* ./Expand/iarith.scm 71 */
return BFALSE;} } }  else 
{ /* ./Expand/iarith.scm 71 */
return BFALSE;} } } } 
}



/* _expand-i-3725 */
obj_t BGl__expandzd2izd23725z00zzexpand_iarithmetiquez00(obj_t BgL_envz00_2228, obj_t BgL_xz00_2229, obj_t BgL_ez00_2230)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 70 */
return 
BGl_expandzd2izd2z00zzexpand_iarithmetiquez00(BgL_xz00_2229, BgL_ez00_2230);} 
}



/* expand-i* */
BGL_EXPORTED_DEF obj_t BGl_expandzd2iza2z70zzexpand_iarithmetiquez00(obj_t BgL_xz00_7, obj_t BgL_ez00_8)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 91 */
{ 
obj_t BgL_xz00_887;obj_t BgL_yz00_888;obj_t BgL_xz00_884;obj_t BgL_yz00_885;
{ /* ./Expand/iarith.scm 92 */
bool_t BgL_test2990z00_891;
BgL_test2990z00_891 = 
PAIRP(BgL_xz00_7); 
if(BgL_test2990z00_891)
{ /* ./Expand/iarith.scm 92 */
bool_t BgL_test2991z00_892;
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_auxz00_3636;
BgL_auxz00_3636 = 
CDR(BgL_xz00_7); 
BgL_test2991z00_892 = 
NULLP(BgL_auxz00_3636); } 
if(BgL_test2991z00_892)
{ /* ./Expand/iarith.scm 92 */
return 
BINT(((long)1));}  else 
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_cdrzd21839zd2_893;
BgL_cdrzd21839zd2_893 = 
CDR(BgL_xz00_7); 
{ /* ./Expand/iarith.scm 92 */
bool_t BgL_test2993z00_894;
BgL_test2993z00_894 = 
PAIRP(BgL_cdrzd21839zd2_893); 
if(BgL_test2993z00_894)
{ /* ./Expand/iarith.scm 92 */
bool_t BgL_test2994z00_895;
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_auxz00_3644;
BgL_auxz00_3644 = 
CDR(BgL_cdrzd21839zd2_893); 
BgL_test2994z00_895 = 
NULLP(BgL_auxz00_3644); } 
if(BgL_test2994z00_895)
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_arg2996z00_896;
BgL_arg2996z00_896 = 
CAR(BgL_cdrzd21839zd2_893); 
return 
PROCEDURE_ENTRY(BgL_ez00_8)(BgL_ez00_8, BgL_arg2996z00_896, BgL_ez00_8, BEOA);}  else 
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_cdrzd21855zd2_898;
BgL_cdrzd21855zd2_898 = 
CDR(BgL_cdrzd21839zd2_893); 
{ /* ./Expand/iarith.scm 92 */
bool_t BgL_test2999z00_899;
BgL_test2999z00_899 = 
PAIRP(BgL_cdrzd21855zd2_898); 
if(BgL_test2999z00_899)
{ /* ./Expand/iarith.scm 92 */
bool_t BgL_test3000z00_900;
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_auxz00_3654;
BgL_auxz00_3654 = 
CDR(BgL_cdrzd21855zd2_898); 
BgL_test3000z00_900 = 
NULLP(BgL_auxz00_3654); } 
if(BgL_test3000z00_900)
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_arg3002z00_901;obj_t BgL_arg3003z00_902;
BgL_arg3002z00_901 = 
CAR(BgL_cdrzd21839zd2_893); 
BgL_arg3003z00_902 = 
CAR(BgL_cdrzd21855zd2_898); 
BgL_xz00_884 = BgL_arg3002z00_901; 
BgL_yz00_885 = BgL_arg3003z00_902; 
{ /* ./Expand/iarith.scm 99 */
bool_t BgL_test3040z00_912;
if(
INTEGERP(BgL_xz00_884))
{ /* ./Expand/iarith.scm 99 */
BgL_test3040z00_912 = 
INTEGERP(BgL_yz00_885); }  else 
{ /* ./Expand/iarith.scm 99 */
BgL_test3040z00_912 = ((bool_t)0); } 
if(BgL_test3040z00_912)
{ /* ./Expand/iarith.scm 99 */
{ /* ./Expand/iarith.scm 101 */
long BgL_auxz00_3664;
{ /* ./Expand/iarith.scm 101 */
long BgL_auxz00_3667;long BgL_auxz00_3665;
BgL_auxz00_3667 = 
(long)CINT(BgL_yz00_885); 
BgL_auxz00_3665 = 
(long)CINT(BgL_xz00_884); 
BgL_auxz00_3664 = 
(BgL_auxz00_3665*BgL_auxz00_3667); } 
return 
BINT(BgL_auxz00_3664);} }  else 
{ /* ./Expand/iarith.scm 99 */
{ /* ./Expand/iarith.scm 103 */
obj_t BgL_arg3043z00_913;
{ /* ./Expand/iarith.scm 103 */
obj_t BgL_arg3047z00_914;obj_t BgL_arg3048z00_915;
BgL_arg3047z00_914 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Expand/iarith.scm 103 */
obj_t BgL_arg3051z00_916;
BgL_arg3051z00_916 = 
MAKE_PAIR(BgL_yz00_885, BNIL); 
BgL_arg3048z00_915 = 
MAKE_PAIR(BgL_xz00_884, BgL_arg3051z00_916); } 
BgL_arg3043z00_913 = 
MAKE_PAIR(BgL_arg3047z00_914, BgL_arg3048z00_915); } 
return 
PROCEDURE_ENTRY(BgL_ez00_8)(BgL_ez00_8, BgL_arg3043z00_913, BgL_ez00_8, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_arg3008z00_904;obj_t BgL_arg3009z00_905;
BgL_arg3008z00_904 = 
CAR(BgL_cdrzd21839zd2_893); 
BgL_arg3009z00_905 = 
CDR(BgL_cdrzd21839zd2_893); 
BgL_xz00_887 = BgL_arg3008z00_904; 
BgL_yz00_888 = BgL_arg3009z00_905; 
BgL_tagzd21829zd2_889:
{ /* ./Expand/iarith.scm 105 */
obj_t BgL_arg3058z00_918;
{ /* ./Expand/iarith.scm 105 */
obj_t BgL_arg3061z00_919;obj_t BgL_arg3062z00_920;
BgL_arg3061z00_919 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Expand/iarith.scm 105 */
obj_t BgL_arg3065z00_921;
{ /* ./Expand/iarith.scm 105 */
obj_t BgL_arg3068z00_922;
{ /* ./Expand/iarith.scm 105 */
obj_t BgL_arg3072z00_924;obj_t BgL_arg3073z00_925;
BgL_arg3072z00_924 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3073z00_925 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_888, BNIL); 
BgL_arg3068z00_922 = 
MAKE_PAIR(BgL_arg3072z00_924, BgL_arg3073z00_925); } 
BgL_arg3065z00_921 = 
MAKE_PAIR(BgL_arg3068z00_922, BNIL); } 
BgL_arg3062z00_920 = 
MAKE_PAIR(BgL_xz00_887, BgL_arg3065z00_921); } 
BgL_arg3058z00_918 = 
MAKE_PAIR(BgL_arg3061z00_919, BgL_arg3062z00_920); } 
return 
PROCEDURE_ENTRY(BgL_ez00_8)(BgL_ez00_8, BgL_arg3058z00_918, BgL_ez00_8, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 92 */
obj_t BgL_arg3019z00_908;obj_t BgL_arg3020z00_909;
BgL_arg3019z00_908 = 
CAR(BgL_cdrzd21839zd2_893); 
BgL_arg3020z00_909 = 
CDR(BgL_cdrzd21839zd2_893); 
{ 
obj_t BgL_yz00_3691;obj_t BgL_xz00_3690;
BgL_xz00_3690 = BgL_arg3019z00_908; 
BgL_yz00_3691 = BgL_arg3020z00_909; 
BgL_yz00_888 = BgL_yz00_3691; 
BgL_xz00_887 = BgL_xz00_3690; 
goto BgL_tagzd21829zd2_889;} } } } }  else 
{ /* ./Expand/iarith.scm 92 */
return BFALSE;} } } }  else 
{ /* ./Expand/iarith.scm 92 */
return BFALSE;} } } } 
}



/* _expand-i*3727 */
obj_t BGl__expandzd2iza23727z70zzexpand_iarithmetiquez00(obj_t BgL_envz00_2231, obj_t BgL_xz00_2232, obj_t BgL_ez00_2233)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 91 */
return 
BGl_expandzd2iza2z70zzexpand_iarithmetiquez00(BgL_xz00_2232, BgL_ez00_2233);} 
}



/* expand-i/ */
BGL_EXPORTED_DEF obj_t BGl_expandzd2izf2z20zzexpand_iarithmetiquez00(obj_t BgL_xz00_9, obj_t BgL_ez00_10)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 110 */
{ 
obj_t BgL_az00_931;obj_t BgL_yz00_932;obj_t BgL_az00_928;obj_t BgL_yz00_929;obj_t BgL_az00_926;
{ /* ./Expand/iarith.scm 111 */
bool_t BgL_test3076z00_935;
BgL_test3076z00_935 = 
PAIRP(BgL_xz00_9); 
if(BgL_test3076z00_935)
{ /* ./Expand/iarith.scm 111 */
obj_t BgL_cdrzd21919zd2_936;
BgL_cdrzd21919zd2_936 = 
CDR(BgL_xz00_9); 
{ /* ./Expand/iarith.scm 111 */
bool_t BgL_test3077z00_937;
BgL_test3077z00_937 = 
PAIRP(BgL_cdrzd21919zd2_936); 
if(BgL_test3077z00_937)
{ /* ./Expand/iarith.scm 111 */
bool_t BgL_test3078z00_938;
{ /* ./Expand/iarith.scm 111 */
obj_t BgL_auxz00_3698;
BgL_auxz00_3698 = 
CDR(BgL_cdrzd21919zd2_936); 
BgL_test3078z00_938 = 
NULLP(BgL_auxz00_3698); } 
if(BgL_test3078z00_938)
{ /* ./Expand/iarith.scm 111 */
obj_t BgL_arg3080z00_939;
BgL_arg3080z00_939 = 
CAR(BgL_cdrzd21919zd2_936); 
BgL_az00_926 = BgL_arg3080z00_939; 
BGl_userzd2warningzd2zztools_errorz00(BGl_string3863z00zzexpand_iarithmetiquez00, BGl_string3864z00zzexpand_iarithmetiquez00, BgL_xz00_9); 
{ /* ./Expand/iarith.scm 116 */
obj_t BgL_arg3122z00_954;obj_t BgL_arg3123z00_955;
BgL_arg3122z00_954 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/iarith.scm 116 */
obj_t BgL_arg3128z00_957;
{ /* ./Expand/iarith.scm 116 */
obj_t BgL_arg3131z00_958;
BgL_arg3131z00_958 = 
PROCEDURE_ENTRY(BgL_ez00_10)(BgL_ez00_10, BgL_az00_926, BgL_ez00_10, BEOA); 
BgL_arg3128z00_957 = 
MAKE_PAIR(BgL_arg3131z00_958, BNIL); } 
{ /* ./Expand/iarith.scm 116 */
obj_t BgL_auxz00_3708;
BgL_auxz00_3708 = 
BINT(((long)1)); 
BgL_arg3123z00_955 = 
MAKE_PAIR(BgL_auxz00_3708, BgL_arg3128z00_957); } } 
return 
MAKE_PAIR(BgL_arg3122z00_954, BgL_arg3123z00_955);} }  else 
{ /* ./Expand/iarith.scm 111 */
obj_t BgL_cdrzd21935zd2_941;
BgL_cdrzd21935zd2_941 = 
CDR(BgL_cdrzd21919zd2_936); 
{ /* ./Expand/iarith.scm 111 */
bool_t BgL_test3083z00_942;
BgL_test3083z00_942 = 
PAIRP(BgL_cdrzd21935zd2_941); 
if(BgL_test3083z00_942)
{ /* ./Expand/iarith.scm 111 */
bool_t BgL_test3084z00_943;
{ /* ./Expand/iarith.scm 111 */
obj_t BgL_auxz00_3715;
BgL_auxz00_3715 = 
CDR(BgL_cdrzd21935zd2_941); 
BgL_test3084z00_943 = 
NULLP(BgL_auxz00_3715); } 
if(BgL_test3084z00_943)
{ /* ./Expand/iarith.scm 111 */
obj_t BgL_arg3086z00_944;obj_t BgL_arg3087z00_945;
BgL_arg3086z00_944 = 
CAR(BgL_cdrzd21919zd2_936); 
BgL_arg3087z00_945 = 
CAR(BgL_cdrzd21935zd2_941); 
BgL_az00_928 = BgL_arg3086z00_944; 
BgL_yz00_929 = BgL_arg3087z00_945; 
{ /* ./Expand/iarith.scm 119 */
bool_t BgL_test3135z00_960;
if(
INTEGERP(BgL_az00_928))
{ /* ./Expand/iarith.scm 119 */
if(
INTEGERP(BgL_yz00_929))
{ /* ./Expand/iarith.scm 119 */
bool_t BgL_testz00_3725;
{ /* ./Expand/iarith.scm 119 */
long BgL_auxz00_3726;
BgL_auxz00_3726 = 
(long)CINT(BgL_yz00_929); 
BgL_testz00_3725 = 
(BgL_auxz00_3726==((long)0)); } 
if(BgL_testz00_3725)
{ /* ./Expand/iarith.scm 119 */
BgL_test3135z00_960 = ((bool_t)0); }  else 
{ /* ./Expand/iarith.scm 119 */
BgL_test3135z00_960 = ((bool_t)1); } }  else 
{ /* ./Expand/iarith.scm 119 */
BgL_test3135z00_960 = ((bool_t)0); } }  else 
{ /* ./Expand/iarith.scm 119 */
BgL_test3135z00_960 = ((bool_t)0); } 
if(BgL_test3135z00_960)
{ /* ./Expand/iarith.scm 119 */
{ /* ./Expand/iarith.scm 120 */
obj_t BgL_arg3138z00_962;
{ /* ./Expand/iarith.scm 121 */
char * BgL_arg3142z00_964;char * BgL_arg3144z00_966;char * BgL_arg3146z00_968;
BgL_arg3142z00_964 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_az00_928, BNIL); 
BgL_arg3144z00_966 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_yz00_929, BNIL); 
{ /* ./Expand/iarith.scm 126 */
obj_t BgL_auxz00_3732;
{ /* ./Expand/iarith.scm 126 */
long BgL_auxz00_3733;
{ /* ./Expand/iarith.scm 126 */
long BgL_auxz00_3736;long BgL_auxz00_3734;
BgL_auxz00_3736 = 
(long)CINT(BgL_yz00_929); 
BgL_auxz00_3734 = 
(long)CINT(BgL_az00_928); 
BgL_auxz00_3733 = 
(BgL_auxz00_3734/BgL_auxz00_3736); } 
BgL_auxz00_3732 = 
BINT(BgL_auxz00_3733); } 
BgL_arg3146z00_968 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_auxz00_3732, BNIL); } 
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_list3149z00_970;
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_arg3151z00_971;
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_arg3154z00_972;
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_arg3157z00_973;
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_arg3160z00_974;
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_arg3163z00_975;
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_arg3166z00_976;
BgL_arg3166z00_976 = 
MAKE_PAIR(BGl_string3865z00zzexpand_iarithmetiquez00, BNIL); 
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_auxz00_3742;
BgL_auxz00_3742 = 
string_to_bstring(BgL_arg3146z00_968); 
BgL_arg3163z00_975 = 
MAKE_PAIR(BgL_auxz00_3742, BgL_arg3166z00_976); } } 
BgL_arg3160z00_974 = 
MAKE_PAIR(BGl_string3866z00zzexpand_iarithmetiquez00, BgL_arg3163z00_975); } 
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_auxz00_3746;
BgL_auxz00_3746 = 
string_to_bstring(BgL_arg3144z00_966); 
BgL_arg3157z00_973 = 
MAKE_PAIR(BgL_auxz00_3746, BgL_arg3160z00_974); } } 
BgL_arg3154z00_972 = 
MAKE_PAIR(BGl_string3867z00zzexpand_iarithmetiquez00, BgL_arg3157z00_973); } 
{ /* ./Expand/iarith.scm 121 */
obj_t BgL_auxz00_3750;
BgL_auxz00_3750 = 
string_to_bstring(BgL_arg3142z00_964); 
BgL_arg3151z00_971 = 
MAKE_PAIR(BgL_auxz00_3750, BgL_arg3154z00_972); } } 
BgL_list3149z00_970 = 
MAKE_PAIR(BGl_string3868z00zzexpand_iarithmetiquez00, BgL_arg3151z00_971); } 
BgL_arg3138z00_962 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list3149z00_970); } } 
BGl_userzd2warningzd2zztools_errorz00(BGl_string3863z00zzexpand_iarithmetiquez00, BgL_arg3138z00_962, BgL_xz00_9); } 
{ /* ./Expand/iarith.scm 129 */
long BgL_auxz00_3756;
{ /* ./Expand/iarith.scm 129 */
long BgL_auxz00_3759;long BgL_auxz00_3757;
BgL_auxz00_3759 = 
(long)CINT(BgL_yz00_929); 
BgL_auxz00_3757 = 
(long)CINT(BgL_az00_928); 
BgL_auxz00_3756 = 
(BgL_auxz00_3757/BgL_auxz00_3759); } 
return 
BINT(BgL_auxz00_3756);} }  else 
{ /* ./Expand/iarith.scm 119 */
BGl_userzd2warningzd2zztools_errorz00(BGl_string3863z00zzexpand_iarithmetiquez00, BGl_string3869z00zzexpand_iarithmetiquez00, BgL_xz00_9); 
{ /* ./Expand/iarith.scm 134 */
obj_t BgL_arg3181z00_981;
{ /* ./Expand/iarith.scm 134 */
obj_t BgL_arg3184z00_982;obj_t BgL_arg3185z00_983;
BgL_arg3184z00_982 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/iarith.scm 134 */
obj_t BgL_arg3188z00_984;
BgL_arg3188z00_984 = 
MAKE_PAIR(BgL_yz00_929, BNIL); 
BgL_arg3185z00_983 = 
MAKE_PAIR(BgL_az00_928, BgL_arg3188z00_984); } 
BgL_arg3181z00_981 = 
MAKE_PAIR(BgL_arg3184z00_982, BgL_arg3185z00_983); } 
return 
PROCEDURE_ENTRY(BgL_ez00_10)(BgL_ez00_10, BgL_arg3181z00_981, BgL_ez00_10, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 111 */
obj_t BgL_arg3092z00_947;obj_t BgL_arg3094z00_948;
BgL_arg3092z00_947 = 
CAR(BgL_cdrzd21919zd2_936); 
BgL_arg3094z00_948 = 
CDR(BgL_cdrzd21919zd2_936); 
BgL_az00_931 = BgL_arg3092z00_947; 
BgL_yz00_932 = BgL_arg3094z00_948; 
BgL_tagzd21913zd2_933:
BGl_userzd2warningzd2zztools_errorz00(BGl_string3863z00zzexpand_iarithmetiquez00, BGl_string3870z00zzexpand_iarithmetiquez00, BgL_xz00_9); 
{ /* ./Expand/iarith.scm 139 */
obj_t BgL_arg3199z00_988;
{ /* ./Expand/iarith.scm 139 */
obj_t BgL_arg3202z00_989;obj_t BgL_arg3203z00_990;
BgL_arg3202z00_989 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/iarith.scm 139 */
obj_t BgL_arg3206z00_991;
{ /* ./Expand/iarith.scm 139 */
obj_t BgL_arg3210z00_992;
{ /* ./Expand/iarith.scm 139 */
obj_t BgL_arg3214z00_994;obj_t BgL_arg3215z00_995;
BgL_arg3214z00_994 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3215z00_995 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_932, BNIL); 
BgL_arg3210z00_992 = 
MAKE_PAIR(BgL_arg3214z00_994, BgL_arg3215z00_995); } 
BgL_arg3206z00_991 = 
MAKE_PAIR(BgL_arg3210z00_992, BNIL); } 
BgL_arg3203z00_990 = 
MAKE_PAIR(BgL_az00_931, BgL_arg3206z00_991); } 
BgL_arg3199z00_988 = 
MAKE_PAIR(BgL_arg3202z00_989, BgL_arg3203z00_990); } 
return 
PROCEDURE_ENTRY(BgL_ez00_10)(BgL_ez00_10, BgL_arg3199z00_988, BgL_ez00_10, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 111 */
obj_t BgL_arg3104z00_951;obj_t BgL_arg3105z00_952;
BgL_arg3104z00_951 = 
CAR(BgL_cdrzd21919zd2_936); 
BgL_arg3105z00_952 = 
CDR(BgL_cdrzd21919zd2_936); 
{ 
obj_t BgL_yz00_3785;obj_t BgL_az00_3784;
BgL_az00_3784 = BgL_arg3104z00_951; 
BgL_yz00_3785 = BgL_arg3105z00_952; 
BgL_yz00_932 = BgL_yz00_3785; 
BgL_az00_931 = BgL_az00_3784; 
goto BgL_tagzd21913zd2_933;} } } } }  else 
{ /* ./Expand/iarith.scm 111 */
return BFALSE;} } }  else 
{ /* ./Expand/iarith.scm 111 */
return BFALSE;} } } } 
}



/* _expand-i/3729 */
obj_t BGl__expandzd2izf23729z20zzexpand_iarithmetiquez00(obj_t BgL_envz00_2234, obj_t BgL_xz00_2235, obj_t BgL_ez00_2236)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 110 */
return 
BGl_expandzd2izf2z20zzexpand_iarithmetiquez00(BgL_xz00_2235, BgL_ez00_2236);} 
}



/* expand-i= */
BGL_EXPORTED_DEF obj_t BGl_expandzd2izd3z01zzexpand_iarithmetiquez00(obj_t BgL_xz00_11, obj_t BgL_ez00_12)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 144 */
{ 
obj_t BgL_xz00_999;obj_t BgL_yz00_1000;obj_t BgL_xz00_996;obj_t BgL_yz00_997;
{ /* ./Expand/iarith.scm 145 */
bool_t BgL_test3218z00_1003;
BgL_test3218z00_1003 = 
PAIRP(BgL_xz00_11); 
if(BgL_test3218z00_1003)
{ /* ./Expand/iarith.scm 145 */
obj_t BgL_cdrzd21996zd2_1004;
BgL_cdrzd21996zd2_1004 = 
CDR(BgL_xz00_11); 
{ /* ./Expand/iarith.scm 145 */
bool_t BgL_test3219z00_1005;
BgL_test3219z00_1005 = 
PAIRP(BgL_cdrzd21996zd2_1004); 
if(BgL_test3219z00_1005)
{ /* ./Expand/iarith.scm 145 */
obj_t BgL_cdrzd22000zd2_1006;
BgL_cdrzd22000zd2_1006 = 
CDR(BgL_cdrzd21996zd2_1004); 
{ /* ./Expand/iarith.scm 145 */
bool_t BgL_test3220z00_1007;
BgL_test3220z00_1007 = 
PAIRP(BgL_cdrzd22000zd2_1006); 
if(BgL_test3220z00_1007)
{ /* ./Expand/iarith.scm 145 */
bool_t BgL_test3221z00_1008;
{ /* ./Expand/iarith.scm 145 */
obj_t BgL_auxz00_3795;
BgL_auxz00_3795 = 
CDR(BgL_cdrzd22000zd2_1006); 
BgL_test3221z00_1008 = 
NULLP(BgL_auxz00_3795); } 
if(BgL_test3221z00_1008)
{ /* ./Expand/iarith.scm 145 */
obj_t BgL_arg3223z00_1009;obj_t BgL_arg3224z00_1010;
BgL_arg3223z00_1009 = 
CAR(BgL_cdrzd21996zd2_1004); 
BgL_arg3224z00_1010 = 
CAR(BgL_cdrzd22000zd2_1006); 
BgL_xz00_996 = BgL_arg3223z00_1009; 
BgL_yz00_997 = BgL_arg3224z00_1010; 
{ /* ./Expand/iarith.scm 148 */
bool_t BgL_test3251z00_1018;
if(
INTEGERP(BgL_xz00_996))
{ /* ./Expand/iarith.scm 148 */
BgL_test3251z00_1018 = 
INTEGERP(BgL_yz00_997); }  else 
{ /* ./Expand/iarith.scm 148 */
BgL_test3251z00_1018 = ((bool_t)0); } 
if(BgL_test3251z00_1018)
{ /* ./Expand/iarith.scm 148 */
{ /* ./Expand/iarith.scm 149 */
bool_t BgL_auxz00_3805;
{ /* ./Expand/iarith.scm 149 */
long BgL_auxz00_3808;long BgL_auxz00_3806;
BgL_auxz00_3808 = 
(long)CINT(BgL_yz00_997); 
BgL_auxz00_3806 = 
(long)CINT(BgL_xz00_996); 
BgL_auxz00_3805 = 
(BgL_auxz00_3806==BgL_auxz00_3808); } 
return 
BBOOL(BgL_auxz00_3805);} }  else 
{ /* ./Expand/iarith.scm 148 */
{ /* ./Expand/iarith.scm 151 */
obj_t BgL_arg3254z00_1019;
{ /* ./Expand/iarith.scm 151 */
obj_t BgL_arg3257z00_1020;obj_t BgL_arg3259z00_1021;
BgL_arg3257z00_1020 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Expand/iarith.scm 151 */
obj_t BgL_arg3262z00_1022;
BgL_arg3262z00_1022 = 
MAKE_PAIR(BgL_yz00_997, BNIL); 
BgL_arg3259z00_1021 = 
MAKE_PAIR(BgL_xz00_996, BgL_arg3262z00_1022); } 
BgL_arg3254z00_1019 = 
MAKE_PAIR(BgL_arg3257z00_1020, BgL_arg3259z00_1021); } 
return 
PROCEDURE_ENTRY(BgL_ez00_12)(BgL_ez00_12, BgL_arg3254z00_1019, BgL_ez00_12, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 145 */
obj_t BgL_arg3229z00_1012;obj_t BgL_arg3230z00_1013;
BgL_arg3229z00_1012 = 
CAR(BgL_cdrzd21996zd2_1004); 
BgL_arg3230z00_1013 = 
CDR(BgL_cdrzd21996zd2_1004); 
BgL_xz00_999 = BgL_arg3229z00_1012; 
BgL_yz00_1000 = BgL_arg3230z00_1013; 
BgL_tagzd21989zd2_1001:
{ /* ./Expand/iarith.scm 153 */
obj_t BgL_arg3269z00_1024;
{ /* ./Expand/iarith.scm 153 */
obj_t BgL_arg3272z00_1025;obj_t BgL_arg3273z00_1026;
BgL_arg3272z00_1025 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/iarith.scm 153 */
obj_t BgL_arg3276z00_1027;obj_t BgL_arg3277z00_1028;
{ /* ./Expand/iarith.scm 153 */
obj_t BgL_arg3280z00_1029;obj_t BgL_arg3281z00_1030;
BgL_arg3280z00_1029 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Expand/iarith.scm 153 */
obj_t BgL_arg3284z00_1031;
{ /* ./Expand/iarith.scm 153 */
obj_t BgL_arg3287z00_1032;
BgL_arg3287z00_1032 = 
CAR(BgL_yz00_1000); 
BgL_arg3284z00_1031 = 
MAKE_PAIR(BgL_arg3287z00_1032, BNIL); } 
BgL_arg3281z00_1030 = 
MAKE_PAIR(BgL_xz00_999, BgL_arg3284z00_1031); } 
BgL_arg3276z00_1027 = 
MAKE_PAIR(BgL_arg3280z00_1029, BgL_arg3281z00_1030); } 
{ /* ./Expand/iarith.scm 153 */
obj_t BgL_arg3292z00_1034;
{ /* ./Expand/iarith.scm 153 */
obj_t BgL_arg3296z00_1036;obj_t BgL_arg3297z00_1037;
BgL_arg3296z00_1036 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg3297z00_1037 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_1000, BNIL); 
BgL_arg3292z00_1034 = 
MAKE_PAIR(BgL_arg3296z00_1036, BgL_arg3297z00_1037); } 
BgL_arg3277z00_1028 = 
MAKE_PAIR(BgL_arg3292z00_1034, BNIL); } 
BgL_arg3273z00_1026 = 
MAKE_PAIR(BgL_arg3276z00_1027, BgL_arg3277z00_1028); } 
BgL_arg3269z00_1024 = 
MAKE_PAIR(BgL_arg3272z00_1025, BgL_arg3273z00_1026); } 
return 
PROCEDURE_ENTRY(BgL_ez00_12)(BgL_ez00_12, BgL_arg3269z00_1024, BgL_ez00_12, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 145 */
obj_t BgL_arg3240z00_1016;obj_t BgL_arg3241z00_1017;
BgL_arg3240z00_1016 = 
CAR(BgL_cdrzd21996zd2_1004); 
BgL_arg3241z00_1017 = 
CDR(BgL_cdrzd21996zd2_1004); 
{ 
obj_t BgL_yz00_3837;obj_t BgL_xz00_3836;
BgL_xz00_3836 = BgL_arg3240z00_1016; 
BgL_yz00_3837 = BgL_arg3241z00_1017; 
BgL_yz00_1000 = BgL_yz00_3837; 
BgL_xz00_999 = BgL_xz00_3836; 
goto BgL_tagzd21989zd2_1001;} } } }  else 
{ /* ./Expand/iarith.scm 145 */
return BFALSE;} } }  else 
{ /* ./Expand/iarith.scm 145 */
return BFALSE;} } } } 
}



/* _expand-i=3731 */
obj_t BGl__expandzd2izd33731z01zzexpand_iarithmetiquez00(obj_t BgL_envz00_2237, obj_t BgL_xz00_2238, obj_t BgL_ez00_2239)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 144 */
return 
BGl_expandzd2izd3z01zzexpand_iarithmetiquez00(BgL_xz00_2238, BgL_ez00_2239);} 
}



/* expand-i< */
BGL_EXPORTED_DEF obj_t BGl_expandzd2izc3z11zzexpand_iarithmetiquez00(obj_t BgL_xz00_13, obj_t BgL_ez00_14)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 158 */
{ 
obj_t BgL_xz00_1041;obj_t BgL_yz00_1042;obj_t BgL_xz00_1038;obj_t BgL_yz00_1039;
{ /* ./Expand/iarith.scm 159 */
bool_t BgL_test3300z00_1045;
BgL_test3300z00_1045 = 
PAIRP(BgL_xz00_13); 
if(BgL_test3300z00_1045)
{ /* ./Expand/iarith.scm 159 */
obj_t BgL_cdrzd22052zd2_1046;
BgL_cdrzd22052zd2_1046 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/iarith.scm 159 */
bool_t BgL_test3301z00_1047;
BgL_test3301z00_1047 = 
PAIRP(BgL_cdrzd22052zd2_1046); 
if(BgL_test3301z00_1047)
{ /* ./Expand/iarith.scm 159 */
obj_t BgL_cdrzd22056zd2_1048;
BgL_cdrzd22056zd2_1048 = 
CDR(BgL_cdrzd22052zd2_1046); 
{ /* ./Expand/iarith.scm 159 */
bool_t BgL_test3302z00_1049;
BgL_test3302z00_1049 = 
PAIRP(BgL_cdrzd22056zd2_1048); 
if(BgL_test3302z00_1049)
{ /* ./Expand/iarith.scm 159 */
bool_t BgL_test3303z00_1050;
{ /* ./Expand/iarith.scm 159 */
obj_t BgL_auxz00_3847;
BgL_auxz00_3847 = 
CDR(BgL_cdrzd22056zd2_1048); 
BgL_test3303z00_1050 = 
NULLP(BgL_auxz00_3847); } 
if(BgL_test3303z00_1050)
{ /* ./Expand/iarith.scm 159 */
obj_t BgL_arg3305z00_1051;obj_t BgL_arg3306z00_1052;
BgL_arg3305z00_1051 = 
CAR(BgL_cdrzd22052zd2_1046); 
BgL_arg3306z00_1052 = 
CAR(BgL_cdrzd22056zd2_1048); 
BgL_xz00_1038 = BgL_arg3305z00_1051; 
BgL_yz00_1039 = BgL_arg3306z00_1052; 
{ /* ./Expand/iarith.scm 162 */
bool_t BgL_test3334z00_1060;
if(
INTEGERP(BgL_xz00_1038))
{ /* ./Expand/iarith.scm 162 */
BgL_test3334z00_1060 = 
INTEGERP(BgL_yz00_1039); }  else 
{ /* ./Expand/iarith.scm 162 */
BgL_test3334z00_1060 = ((bool_t)0); } 
if(BgL_test3334z00_1060)
{ /* ./Expand/iarith.scm 162 */
{ /* ./Expand/iarith.scm 163 */
bool_t BgL_auxz00_3857;
{ /* ./Expand/iarith.scm 163 */
long BgL_auxz00_3860;long BgL_auxz00_3858;
BgL_auxz00_3860 = 
(long)CINT(BgL_yz00_1039); 
BgL_auxz00_3858 = 
(long)CINT(BgL_xz00_1038); 
BgL_auxz00_3857 = 
(BgL_auxz00_3858<BgL_auxz00_3860); } 
return 
BBOOL(BgL_auxz00_3857);} }  else 
{ /* ./Expand/iarith.scm 162 */
{ /* ./Expand/iarith.scm 165 */
obj_t BgL_arg3337z00_1061;
{ /* ./Expand/iarith.scm 165 */
obj_t BgL_arg3340z00_1062;obj_t BgL_arg3341z00_1063;
BgL_arg3340z00_1062 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Expand/iarith.scm 165 */
obj_t BgL_arg3344z00_1064;
BgL_arg3344z00_1064 = 
MAKE_PAIR(BgL_yz00_1039, BNIL); 
BgL_arg3341z00_1063 = 
MAKE_PAIR(BgL_xz00_1038, BgL_arg3344z00_1064); } 
BgL_arg3337z00_1061 = 
MAKE_PAIR(BgL_arg3340z00_1062, BgL_arg3341z00_1063); } 
return 
PROCEDURE_ENTRY(BgL_ez00_14)(BgL_ez00_14, BgL_arg3337z00_1061, BgL_ez00_14, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 159 */
obj_t BgL_arg3311z00_1054;obj_t BgL_arg3312z00_1055;
BgL_arg3311z00_1054 = 
CAR(BgL_cdrzd22052zd2_1046); 
BgL_arg3312z00_1055 = 
CDR(BgL_cdrzd22052zd2_1046); 
BgL_xz00_1041 = BgL_arg3311z00_1054; 
BgL_yz00_1042 = BgL_arg3312z00_1055; 
BgL_tagzd22045zd2_1043:
{ /* ./Expand/iarith.scm 167 */
obj_t BgL_arg3351z00_1066;
{ /* ./Expand/iarith.scm 167 */
obj_t BgL_arg3354z00_1067;obj_t BgL_arg3355z00_1068;
BgL_arg3354z00_1067 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/iarith.scm 167 */
obj_t BgL_arg3358z00_1069;obj_t BgL_arg3359z00_1070;
{ /* ./Expand/iarith.scm 167 */
obj_t BgL_arg3362z00_1071;obj_t BgL_arg3363z00_1072;
BgL_arg3362z00_1071 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Expand/iarith.scm 167 */
obj_t BgL_arg3366z00_1073;
{ /* ./Expand/iarith.scm 167 */
obj_t BgL_arg3369z00_1074;
BgL_arg3369z00_1074 = 
CAR(BgL_yz00_1042); 
BgL_arg3366z00_1073 = 
MAKE_PAIR(BgL_arg3369z00_1074, BNIL); } 
BgL_arg3363z00_1072 = 
MAKE_PAIR(BgL_xz00_1041, BgL_arg3366z00_1073); } 
BgL_arg3358z00_1069 = 
MAKE_PAIR(BgL_arg3362z00_1071, BgL_arg3363z00_1072); } 
{ /* ./Expand/iarith.scm 167 */
obj_t BgL_arg3374z00_1076;
{ /* ./Expand/iarith.scm 167 */
obj_t BgL_arg3378z00_1078;obj_t BgL_arg3379z00_1079;
BgL_arg3378z00_1078 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg3379z00_1079 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_1042, BNIL); 
BgL_arg3374z00_1076 = 
MAKE_PAIR(BgL_arg3378z00_1078, BgL_arg3379z00_1079); } 
BgL_arg3359z00_1070 = 
MAKE_PAIR(BgL_arg3374z00_1076, BNIL); } 
BgL_arg3355z00_1068 = 
MAKE_PAIR(BgL_arg3358z00_1069, BgL_arg3359z00_1070); } 
BgL_arg3351z00_1066 = 
MAKE_PAIR(BgL_arg3354z00_1067, BgL_arg3355z00_1068); } 
return 
PROCEDURE_ENTRY(BgL_ez00_14)(BgL_ez00_14, BgL_arg3351z00_1066, BgL_ez00_14, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 159 */
obj_t BgL_arg3323z00_1058;obj_t BgL_arg3324z00_1059;
BgL_arg3323z00_1058 = 
CAR(BgL_cdrzd22052zd2_1046); 
BgL_arg3324z00_1059 = 
CDR(BgL_cdrzd22052zd2_1046); 
{ 
obj_t BgL_yz00_3889;obj_t BgL_xz00_3888;
BgL_xz00_3888 = BgL_arg3323z00_1058; 
BgL_yz00_3889 = BgL_arg3324z00_1059; 
BgL_yz00_1042 = BgL_yz00_3889; 
BgL_xz00_1041 = BgL_xz00_3888; 
goto BgL_tagzd22045zd2_1043;} } } }  else 
{ /* ./Expand/iarith.scm 159 */
return BFALSE;} } }  else 
{ /* ./Expand/iarith.scm 159 */
return BFALSE;} } } } 
}



/* _expand-i<3733 */
obj_t BGl__expandzd2izc33733z11zzexpand_iarithmetiquez00(obj_t BgL_envz00_2240, obj_t BgL_xz00_2241, obj_t BgL_ez00_2242)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 158 */
return 
BGl_expandzd2izc3z11zzexpand_iarithmetiquez00(BgL_xz00_2241, BgL_ez00_2242);} 
}



/* expand-i> */
BGL_EXPORTED_DEF obj_t BGl_expandzd2ize3z31zzexpand_iarithmetiquez00(obj_t BgL_xz00_15, obj_t BgL_ez00_16)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 172 */
{ 
obj_t BgL_xz00_1083;obj_t BgL_yz00_1084;obj_t BgL_xz00_1080;obj_t BgL_yz00_1081;
{ /* ./Expand/iarith.scm 173 */
bool_t BgL_test3382z00_1087;
BgL_test3382z00_1087 = 
PAIRP(BgL_xz00_15); 
if(BgL_test3382z00_1087)
{ /* ./Expand/iarith.scm 173 */
obj_t BgL_cdrzd22108zd2_1088;
BgL_cdrzd22108zd2_1088 = 
CDR(BgL_xz00_15); 
{ /* ./Expand/iarith.scm 173 */
bool_t BgL_test3383z00_1089;
BgL_test3383z00_1089 = 
PAIRP(BgL_cdrzd22108zd2_1088); 
if(BgL_test3383z00_1089)
{ /* ./Expand/iarith.scm 173 */
obj_t BgL_cdrzd22112zd2_1090;
BgL_cdrzd22112zd2_1090 = 
CDR(BgL_cdrzd22108zd2_1088); 
{ /* ./Expand/iarith.scm 173 */
bool_t BgL_test3384z00_1091;
BgL_test3384z00_1091 = 
PAIRP(BgL_cdrzd22112zd2_1090); 
if(BgL_test3384z00_1091)
{ /* ./Expand/iarith.scm 173 */
bool_t BgL_test3385z00_1092;
{ /* ./Expand/iarith.scm 173 */
obj_t BgL_auxz00_3899;
BgL_auxz00_3899 = 
CDR(BgL_cdrzd22112zd2_1090); 
BgL_test3385z00_1092 = 
NULLP(BgL_auxz00_3899); } 
if(BgL_test3385z00_1092)
{ /* ./Expand/iarith.scm 173 */
obj_t BgL_arg3387z00_1093;obj_t BgL_arg3388z00_1094;
BgL_arg3387z00_1093 = 
CAR(BgL_cdrzd22108zd2_1088); 
BgL_arg3388z00_1094 = 
CAR(BgL_cdrzd22112zd2_1090); 
BgL_xz00_1080 = BgL_arg3387z00_1093; 
BgL_yz00_1081 = BgL_arg3388z00_1094; 
{ /* ./Expand/iarith.scm 176 */
bool_t BgL_test3415z00_1102;
if(
INTEGERP(BgL_xz00_1080))
{ /* ./Expand/iarith.scm 176 */
BgL_test3415z00_1102 = 
INTEGERP(BgL_yz00_1081); }  else 
{ /* ./Expand/iarith.scm 176 */
BgL_test3415z00_1102 = ((bool_t)0); } 
if(BgL_test3415z00_1102)
{ /* ./Expand/iarith.scm 176 */
{ /* ./Expand/iarith.scm 177 */
bool_t BgL_auxz00_3909;
{ /* ./Expand/iarith.scm 177 */
long BgL_auxz00_3912;long BgL_auxz00_3910;
BgL_auxz00_3912 = 
(long)CINT(BgL_yz00_1081); 
BgL_auxz00_3910 = 
(long)CINT(BgL_xz00_1080); 
BgL_auxz00_3909 = 
(BgL_auxz00_3910>BgL_auxz00_3912); } 
return 
BBOOL(BgL_auxz00_3909);} }  else 
{ /* ./Expand/iarith.scm 176 */
{ /* ./Expand/iarith.scm 179 */
obj_t BgL_arg3418z00_1103;
{ /* ./Expand/iarith.scm 179 */
obj_t BgL_arg3422z00_1104;obj_t BgL_arg3423z00_1105;
BgL_arg3422z00_1104 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Expand/iarith.scm 179 */
obj_t BgL_arg3426z00_1106;
BgL_arg3426z00_1106 = 
MAKE_PAIR(BgL_yz00_1081, BNIL); 
BgL_arg3423z00_1105 = 
MAKE_PAIR(BgL_xz00_1080, BgL_arg3426z00_1106); } 
BgL_arg3418z00_1103 = 
MAKE_PAIR(BgL_arg3422z00_1104, BgL_arg3423z00_1105); } 
return 
PROCEDURE_ENTRY(BgL_ez00_16)(BgL_ez00_16, BgL_arg3418z00_1103, BgL_ez00_16, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 173 */
obj_t BgL_arg3393z00_1096;obj_t BgL_arg3394z00_1097;
BgL_arg3393z00_1096 = 
CAR(BgL_cdrzd22108zd2_1088); 
BgL_arg3394z00_1097 = 
CDR(BgL_cdrzd22108zd2_1088); 
BgL_xz00_1083 = BgL_arg3393z00_1096; 
BgL_yz00_1084 = BgL_arg3394z00_1097; 
BgL_tagzd22101zd2_1085:
{ /* ./Expand/iarith.scm 181 */
obj_t BgL_arg3433z00_1108;
{ /* ./Expand/iarith.scm 181 */
obj_t BgL_arg3436z00_1109;obj_t BgL_arg3437z00_1110;
BgL_arg3436z00_1109 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/iarith.scm 181 */
obj_t BgL_arg3440z00_1111;obj_t BgL_arg3441z00_1112;
{ /* ./Expand/iarith.scm 181 */
obj_t BgL_arg3444z00_1113;obj_t BgL_arg3446z00_1114;
BgL_arg3444z00_1113 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Expand/iarith.scm 181 */
obj_t BgL_arg3449z00_1115;
{ /* ./Expand/iarith.scm 181 */
obj_t BgL_arg3452z00_1116;
BgL_arg3452z00_1116 = 
CAR(BgL_yz00_1084); 
BgL_arg3449z00_1115 = 
MAKE_PAIR(BgL_arg3452z00_1116, BNIL); } 
BgL_arg3446z00_1114 = 
MAKE_PAIR(BgL_xz00_1083, BgL_arg3449z00_1115); } 
BgL_arg3440z00_1111 = 
MAKE_PAIR(BgL_arg3444z00_1113, BgL_arg3446z00_1114); } 
{ /* ./Expand/iarith.scm 181 */
obj_t BgL_arg3457z00_1118;
{ /* ./Expand/iarith.scm 181 */
obj_t BgL_arg3461z00_1120;obj_t BgL_arg3462z00_1121;
BgL_arg3461z00_1120 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg3462z00_1121 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_1084, BNIL); 
BgL_arg3457z00_1118 = 
MAKE_PAIR(BgL_arg3461z00_1120, BgL_arg3462z00_1121); } 
BgL_arg3441z00_1112 = 
MAKE_PAIR(BgL_arg3457z00_1118, BNIL); } 
BgL_arg3437z00_1110 = 
MAKE_PAIR(BgL_arg3440z00_1111, BgL_arg3441z00_1112); } 
BgL_arg3433z00_1108 = 
MAKE_PAIR(BgL_arg3436z00_1109, BgL_arg3437z00_1110); } 
return 
PROCEDURE_ENTRY(BgL_ez00_16)(BgL_ez00_16, BgL_arg3433z00_1108, BgL_ez00_16, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 173 */
obj_t BgL_arg3404z00_1100;obj_t BgL_arg3405z00_1101;
BgL_arg3404z00_1100 = 
CAR(BgL_cdrzd22108zd2_1088); 
BgL_arg3405z00_1101 = 
CDR(BgL_cdrzd22108zd2_1088); 
{ 
obj_t BgL_yz00_3941;obj_t BgL_xz00_3940;
BgL_xz00_3940 = BgL_arg3404z00_1100; 
BgL_yz00_3941 = BgL_arg3405z00_1101; 
BgL_yz00_1084 = BgL_yz00_3941; 
BgL_xz00_1083 = BgL_xz00_3940; 
goto BgL_tagzd22101zd2_1085;} } } }  else 
{ /* ./Expand/iarith.scm 173 */
return BFALSE;} } }  else 
{ /* ./Expand/iarith.scm 173 */
return BFALSE;} } } } 
}



/* _expand-i>3735 */
obj_t BGl__expandzd2ize33735z31zzexpand_iarithmetiquez00(obj_t BgL_envz00_2243, obj_t BgL_xz00_2244, obj_t BgL_ez00_2245)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 172 */
return 
BGl_expandzd2ize3z31zzexpand_iarithmetiquez00(BgL_xz00_2244, BgL_ez00_2245);} 
}



/* expand-i<= */
BGL_EXPORTED_DEF obj_t BGl_expandzd2izc3zd3zc2zzexpand_iarithmetiquez00(obj_t BgL_xz00_17, obj_t BgL_ez00_18)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 186 */
{ 
obj_t BgL_xz00_1125;obj_t BgL_yz00_1126;obj_t BgL_xz00_1122;obj_t BgL_yz00_1123;
{ /* ./Expand/iarith.scm 187 */
bool_t BgL_test3465z00_1129;
BgL_test3465z00_1129 = 
PAIRP(BgL_xz00_17); 
if(BgL_test3465z00_1129)
{ /* ./Expand/iarith.scm 187 */
obj_t BgL_cdrzd22164zd2_1130;
BgL_cdrzd22164zd2_1130 = 
CDR(BgL_xz00_17); 
{ /* ./Expand/iarith.scm 187 */
bool_t BgL_test3466z00_1131;
BgL_test3466z00_1131 = 
PAIRP(BgL_cdrzd22164zd2_1130); 
if(BgL_test3466z00_1131)
{ /* ./Expand/iarith.scm 187 */
obj_t BgL_cdrzd22168zd2_1132;
BgL_cdrzd22168zd2_1132 = 
CDR(BgL_cdrzd22164zd2_1130); 
{ /* ./Expand/iarith.scm 187 */
bool_t BgL_test3467z00_1133;
BgL_test3467z00_1133 = 
PAIRP(BgL_cdrzd22168zd2_1132); 
if(BgL_test3467z00_1133)
{ /* ./Expand/iarith.scm 187 */
bool_t BgL_test3468z00_1134;
{ /* ./Expand/iarith.scm 187 */
obj_t BgL_auxz00_3951;
BgL_auxz00_3951 = 
CDR(BgL_cdrzd22168zd2_1132); 
BgL_test3468z00_1134 = 
NULLP(BgL_auxz00_3951); } 
if(BgL_test3468z00_1134)
{ /* ./Expand/iarith.scm 187 */
obj_t BgL_arg3470z00_1135;obj_t BgL_arg3471z00_1136;
BgL_arg3470z00_1135 = 
CAR(BgL_cdrzd22164zd2_1130); 
BgL_arg3471z00_1136 = 
CAR(BgL_cdrzd22168zd2_1132); 
BgL_xz00_1122 = BgL_arg3470z00_1135; 
BgL_yz00_1123 = BgL_arg3471z00_1136; 
{ /* ./Expand/iarith.scm 190 */
bool_t BgL_test3498z00_1144;
if(
INTEGERP(BgL_xz00_1122))
{ /* ./Expand/iarith.scm 190 */
BgL_test3498z00_1144 = 
INTEGERP(BgL_yz00_1123); }  else 
{ /* ./Expand/iarith.scm 190 */
BgL_test3498z00_1144 = ((bool_t)0); } 
if(BgL_test3498z00_1144)
{ /* ./Expand/iarith.scm 190 */
{ /* ./Expand/iarith.scm 191 */
bool_t BgL_auxz00_3961;
{ /* ./Expand/iarith.scm 191 */
long BgL_auxz00_3964;long BgL_auxz00_3962;
BgL_auxz00_3964 = 
(long)CINT(BgL_yz00_1123); 
BgL_auxz00_3962 = 
(long)CINT(BgL_xz00_1122); 
BgL_auxz00_3961 = 
(BgL_auxz00_3962<=BgL_auxz00_3964); } 
return 
BBOOL(BgL_auxz00_3961);} }  else 
{ /* ./Expand/iarith.scm 190 */
{ /* ./Expand/iarith.scm 193 */
obj_t BgL_arg3501z00_1145;
{ /* ./Expand/iarith.scm 193 */
obj_t BgL_arg3504z00_1146;obj_t BgL_arg3506z00_1147;
BgL_arg3504z00_1146 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Expand/iarith.scm 193 */
obj_t BgL_arg3509z00_1148;
BgL_arg3509z00_1148 = 
MAKE_PAIR(BgL_yz00_1123, BNIL); 
BgL_arg3506z00_1147 = 
MAKE_PAIR(BgL_xz00_1122, BgL_arg3509z00_1148); } 
BgL_arg3501z00_1145 = 
MAKE_PAIR(BgL_arg3504z00_1146, BgL_arg3506z00_1147); } 
return 
PROCEDURE_ENTRY(BgL_ez00_18)(BgL_ez00_18, BgL_arg3501z00_1145, BgL_ez00_18, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 187 */
obj_t BgL_arg3476z00_1138;obj_t BgL_arg3477z00_1139;
BgL_arg3476z00_1138 = 
CAR(BgL_cdrzd22164zd2_1130); 
BgL_arg3477z00_1139 = 
CDR(BgL_cdrzd22164zd2_1130); 
BgL_xz00_1125 = BgL_arg3476z00_1138; 
BgL_yz00_1126 = BgL_arg3477z00_1139; 
BgL_tagzd22157zd2_1127:
{ /* ./Expand/iarith.scm 195 */
obj_t BgL_arg3517z00_1150;
{ /* ./Expand/iarith.scm 195 */
obj_t BgL_arg3520z00_1151;obj_t BgL_arg3521z00_1152;
BgL_arg3520z00_1151 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/iarith.scm 195 */
obj_t BgL_arg3524z00_1153;obj_t BgL_arg3525z00_1154;
{ /* ./Expand/iarith.scm 195 */
obj_t BgL_arg3528z00_1155;obj_t BgL_arg3529z00_1156;
BgL_arg3528z00_1155 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Expand/iarith.scm 195 */
obj_t BgL_arg3532z00_1157;
{ /* ./Expand/iarith.scm 195 */
obj_t BgL_arg3535z00_1158;
BgL_arg3535z00_1158 = 
CAR(BgL_yz00_1126); 
BgL_arg3532z00_1157 = 
MAKE_PAIR(BgL_arg3535z00_1158, BNIL); } 
BgL_arg3529z00_1156 = 
MAKE_PAIR(BgL_xz00_1125, BgL_arg3532z00_1157); } 
BgL_arg3524z00_1153 = 
MAKE_PAIR(BgL_arg3528z00_1155, BgL_arg3529z00_1156); } 
{ /* ./Expand/iarith.scm 195 */
obj_t BgL_arg3541z00_1160;
{ /* ./Expand/iarith.scm 195 */
obj_t BgL_arg3545z00_1162;obj_t BgL_arg3546z00_1163;
BgL_arg3545z00_1162 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg3546z00_1163 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_1126, BNIL); 
BgL_arg3541z00_1160 = 
MAKE_PAIR(BgL_arg3545z00_1162, BgL_arg3546z00_1163); } 
BgL_arg3525z00_1154 = 
MAKE_PAIR(BgL_arg3541z00_1160, BNIL); } 
BgL_arg3521z00_1152 = 
MAKE_PAIR(BgL_arg3524z00_1153, BgL_arg3525z00_1154); } 
BgL_arg3517z00_1150 = 
MAKE_PAIR(BgL_arg3520z00_1151, BgL_arg3521z00_1152); } 
return 
PROCEDURE_ENTRY(BgL_ez00_18)(BgL_ez00_18, BgL_arg3517z00_1150, BgL_ez00_18, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 187 */
obj_t BgL_arg3487z00_1142;obj_t BgL_arg3488z00_1143;
BgL_arg3487z00_1142 = 
CAR(BgL_cdrzd22164zd2_1130); 
BgL_arg3488z00_1143 = 
CDR(BgL_cdrzd22164zd2_1130); 
{ 
obj_t BgL_yz00_3993;obj_t BgL_xz00_3992;
BgL_xz00_3992 = BgL_arg3487z00_1142; 
BgL_yz00_3993 = BgL_arg3488z00_1143; 
BgL_yz00_1126 = BgL_yz00_3993; 
BgL_xz00_1125 = BgL_xz00_3992; 
goto BgL_tagzd22157zd2_1127;} } } }  else 
{ /* ./Expand/iarith.scm 187 */
return BFALSE;} } }  else 
{ /* ./Expand/iarith.scm 187 */
return BFALSE;} } } } 
}



/* _expand-i<=3737 */
obj_t BGl__expandzd2izc3zd33737zc2zzexpand_iarithmetiquez00(obj_t BgL_envz00_2246, obj_t BgL_xz00_2247, obj_t BgL_ez00_2248)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 186 */
return 
BGl_expandzd2izc3zd3zc2zzexpand_iarithmetiquez00(BgL_xz00_2247, BgL_ez00_2248);} 
}



/* expand-i>= */
BGL_EXPORTED_DEF obj_t BGl_expandzd2ize3zd3ze2zzexpand_iarithmetiquez00(obj_t BgL_xz00_19, obj_t BgL_ez00_20)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 200 */
{ 
obj_t BgL_xz00_1167;obj_t BgL_yz00_1168;obj_t BgL_xz00_1164;obj_t BgL_yz00_1165;
{ /* ./Expand/iarith.scm 201 */
bool_t BgL_test3549z00_1171;
BgL_test3549z00_1171 = 
PAIRP(BgL_xz00_19); 
if(BgL_test3549z00_1171)
{ /* ./Expand/iarith.scm 201 */
obj_t BgL_cdrzd22220zd2_1172;
BgL_cdrzd22220zd2_1172 = 
CDR(BgL_xz00_19); 
{ /* ./Expand/iarith.scm 201 */
bool_t BgL_test3550z00_1173;
BgL_test3550z00_1173 = 
PAIRP(BgL_cdrzd22220zd2_1172); 
if(BgL_test3550z00_1173)
{ /* ./Expand/iarith.scm 201 */
obj_t BgL_cdrzd22224zd2_1174;
BgL_cdrzd22224zd2_1174 = 
CDR(BgL_cdrzd22220zd2_1172); 
{ /* ./Expand/iarith.scm 201 */
bool_t BgL_test3551z00_1175;
BgL_test3551z00_1175 = 
PAIRP(BgL_cdrzd22224zd2_1174); 
if(BgL_test3551z00_1175)
{ /* ./Expand/iarith.scm 201 */
bool_t BgL_test3552z00_1176;
{ /* ./Expand/iarith.scm 201 */
obj_t BgL_auxz00_4003;
BgL_auxz00_4003 = 
CDR(BgL_cdrzd22224zd2_1174); 
BgL_test3552z00_1176 = 
NULLP(BgL_auxz00_4003); } 
if(BgL_test3552z00_1176)
{ /* ./Expand/iarith.scm 201 */
obj_t BgL_arg3554z00_1177;obj_t BgL_arg3556z00_1178;
BgL_arg3554z00_1177 = 
CAR(BgL_cdrzd22220zd2_1172); 
BgL_arg3556z00_1178 = 
CAR(BgL_cdrzd22224zd2_1174); 
BgL_xz00_1164 = BgL_arg3554z00_1177; 
BgL_yz00_1165 = BgL_arg3556z00_1178; 
{ /* ./Expand/iarith.scm 204 */
bool_t BgL_test3583z00_1186;
if(
INTEGERP(BgL_xz00_1164))
{ /* ./Expand/iarith.scm 204 */
BgL_test3583z00_1186 = 
INTEGERP(BgL_yz00_1165); }  else 
{ /* ./Expand/iarith.scm 204 */
BgL_test3583z00_1186 = ((bool_t)0); } 
if(BgL_test3583z00_1186)
{ /* ./Expand/iarith.scm 204 */
{ /* ./Expand/iarith.scm 205 */
bool_t BgL_auxz00_4013;
{ /* ./Expand/iarith.scm 205 */
long BgL_auxz00_4016;long BgL_auxz00_4014;
BgL_auxz00_4016 = 
(long)CINT(BgL_yz00_1165); 
BgL_auxz00_4014 = 
(long)CINT(BgL_xz00_1164); 
BgL_auxz00_4013 = 
(BgL_auxz00_4014>=BgL_auxz00_4016); } 
return 
BBOOL(BgL_auxz00_4013);} }  else 
{ /* ./Expand/iarith.scm 204 */
{ /* ./Expand/iarith.scm 207 */
obj_t BgL_arg3586z00_1187;
{ /* ./Expand/iarith.scm 207 */
obj_t BgL_arg3589z00_1188;obj_t BgL_arg3590z00_1189;
BgL_arg3589z00_1188 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Expand/iarith.scm 207 */
obj_t BgL_arg3593z00_1190;
BgL_arg3593z00_1190 = 
MAKE_PAIR(BgL_yz00_1165, BNIL); 
BgL_arg3590z00_1189 = 
MAKE_PAIR(BgL_xz00_1164, BgL_arg3593z00_1190); } 
BgL_arg3586z00_1187 = 
MAKE_PAIR(BgL_arg3589z00_1188, BgL_arg3590z00_1189); } 
return 
PROCEDURE_ENTRY(BgL_ez00_20)(BgL_ez00_20, BgL_arg3586z00_1187, BgL_ez00_20, BEOA);} } } }  else 
{ /* ./Expand/iarith.scm 201 */
obj_t BgL_arg3561z00_1180;obj_t BgL_arg3562z00_1181;
BgL_arg3561z00_1180 = 
CAR(BgL_cdrzd22220zd2_1172); 
BgL_arg3562z00_1181 = 
CDR(BgL_cdrzd22220zd2_1172); 
BgL_xz00_1167 = BgL_arg3561z00_1180; 
BgL_yz00_1168 = BgL_arg3562z00_1181; 
BgL_tagzd22213zd2_1169:
{ /* ./Expand/iarith.scm 209 */
obj_t BgL_arg3600z00_1192;
{ /* ./Expand/iarith.scm 209 */
obj_t BgL_arg3604z00_1193;obj_t BgL_arg3605z00_1194;
BgL_arg3604z00_1193 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/iarith.scm 209 */
obj_t BgL_arg3608z00_1195;obj_t BgL_arg3609z00_1196;
{ /* ./Expand/iarith.scm 209 */
obj_t BgL_arg3612z00_1197;obj_t BgL_arg3613z00_1198;
BgL_arg3612z00_1197 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Expand/iarith.scm 209 */
obj_t BgL_arg3616z00_1199;
{ /* ./Expand/iarith.scm 209 */
obj_t BgL_arg3619z00_1200;
BgL_arg3619z00_1200 = 
CAR(BgL_yz00_1168); 
BgL_arg3616z00_1199 = 
MAKE_PAIR(BgL_arg3619z00_1200, BNIL); } 
BgL_arg3613z00_1198 = 
MAKE_PAIR(BgL_xz00_1167, BgL_arg3616z00_1199); } 
BgL_arg3608z00_1195 = 
MAKE_PAIR(BgL_arg3612z00_1197, BgL_arg3613z00_1198); } 
{ /* ./Expand/iarith.scm 209 */
obj_t BgL_arg3624z00_1202;
{ /* ./Expand/iarith.scm 209 */
obj_t BgL_arg3628z00_1204;obj_t BgL_arg3629z00_1205;
BgL_arg3628z00_1204 = 
CNST_TABLE_REF(((long)19)); 
BgL_arg3629z00_1205 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_1168, BNIL); 
BgL_arg3624z00_1202 = 
MAKE_PAIR(BgL_arg3628z00_1204, BgL_arg3629z00_1205); } 
BgL_arg3609z00_1196 = 
MAKE_PAIR(BgL_arg3624z00_1202, BNIL); } 
BgL_arg3605z00_1194 = 
MAKE_PAIR(BgL_arg3608z00_1195, BgL_arg3609z00_1196); } 
BgL_arg3600z00_1192 = 
MAKE_PAIR(BgL_arg3604z00_1193, BgL_arg3605z00_1194); } 
return 
PROCEDURE_ENTRY(BgL_ez00_20)(BgL_ez00_20, BgL_arg3600z00_1192, BgL_ez00_20, BEOA);} } }  else 
{ /* ./Expand/iarith.scm 201 */
obj_t BgL_arg3572z00_1184;obj_t BgL_arg3573z00_1185;
BgL_arg3572z00_1184 = 
CAR(BgL_cdrzd22220zd2_1172); 
BgL_arg3573z00_1185 = 
CDR(BgL_cdrzd22220zd2_1172); 
{ 
obj_t BgL_yz00_4045;obj_t BgL_xz00_4044;
BgL_xz00_4044 = BgL_arg3572z00_1184; 
BgL_yz00_4045 = BgL_arg3573z00_1185; 
BgL_yz00_1168 = BgL_yz00_4045; 
BgL_xz00_1167 = BgL_xz00_4044; 
goto BgL_tagzd22213zd2_1169;} } } }  else 
{ /* ./Expand/iarith.scm 201 */
return BFALSE;} } }  else 
{ /* ./Expand/iarith.scm 201 */
return BFALSE;} } } } 
}



/* _expand-i>=3739 */
obj_t BGl__expandzd2ize3zd33739ze2zzexpand_iarithmetiquez00(obj_t BgL_envz00_2249, obj_t BgL_xz00_2250, obj_t BgL_ez00_2251)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 200 */
return 
BGl_expandzd2ize3zd3ze2zzexpand_iarithmetiquez00(BgL_xz00_2250, BgL_ez00_2251);} 
}



/* expand-+fx */
BGL_EXPORTED_DEF obj_t BGl_expandzd2zb2fxz60zzexpand_iarithmetiquez00(obj_t BgL_xz00_21, obj_t BgL_ez00_22)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 214 */
{ 
obj_t BgL_xz00_1206;obj_t BgL_yz00_1207;
{ /* ./Expand/iarith.scm 215 */
bool_t BgL_test3632z00_1211;
BgL_test3632z00_1211 = 
PAIRP(BgL_xz00_21); 
if(BgL_test3632z00_1211)
{ /* ./Expand/iarith.scm 215 */
obj_t BgL_cdrzd22276zd2_1212;
BgL_cdrzd22276zd2_1212 = 
CDR(BgL_xz00_21); 
{ /* ./Expand/iarith.scm 215 */
bool_t BgL_test3633z00_1213;
BgL_test3633z00_1213 = 
PAIRP(BgL_cdrzd22276zd2_1212); 
if(BgL_test3633z00_1213)
{ /* ./Expand/iarith.scm 215 */
obj_t BgL_cdrzd22280zd2_1214;
BgL_cdrzd22280zd2_1214 = 
CDR(BgL_cdrzd22276zd2_1212); 
{ /* ./Expand/iarith.scm 215 */
bool_t BgL_test3634z00_1215;
BgL_test3634z00_1215 = 
PAIRP(BgL_cdrzd22280zd2_1214); 
if(BgL_test3634z00_1215)
{ /* ./Expand/iarith.scm 215 */
bool_t BgL_test3635z00_1216;
{ /* ./Expand/iarith.scm 215 */
obj_t BgL_auxz00_4055;
BgL_auxz00_4055 = 
CDR(BgL_cdrzd22280zd2_1214); 
BgL_test3635z00_1216 = 
NULLP(BgL_auxz00_4055); } 
if(BgL_test3635z00_1216)
{ /* ./Expand/iarith.scm 215 */
obj_t BgL_arg3637z00_1217;obj_t BgL_arg3638z00_1218;
BgL_arg3637z00_1217 = 
CAR(BgL_cdrzd22276zd2_1212); 
BgL_arg3638z00_1218 = 
CAR(BgL_cdrzd22280zd2_1214); 
BgL_xz00_1206 = BgL_arg3637z00_1217; 
BgL_yz00_1207 = BgL_arg3638z00_1218; 
{ /* ./Expand/iarith.scm 218 */
bool_t BgL_test3655z00_1220;
if(
INTEGERP(BgL_xz00_1206))
{ /* ./Expand/iarith.scm 218 */
BgL_test3655z00_1220 = 
INTEGERP(BgL_yz00_1207); }  else 
{ /* ./Expand/iarith.scm 218 */
BgL_test3655z00_1220 = ((bool_t)0); } 
if(BgL_test3655z00_1220)
{ /* ./Expand/iarith.scm 218 */
{ /* ./Expand/iarith.scm 219 */
long BgL_auxz00_4065;
{ /* ./Expand/iarith.scm 219 */
long BgL_auxz00_4068;long BgL_auxz00_4066;
BgL_auxz00_4068 = 
(long)CINT(BgL_yz00_1207); 
BgL_auxz00_4066 = 
(long)CINT(BgL_xz00_1206); 
BgL_auxz00_4065 = 
(BgL_auxz00_4066+BgL_auxz00_4068); } 
return 
BINT(BgL_auxz00_4065);} }  else 
{ /* ./Expand/iarith.scm 218 */
{ /* ./Expand/iarith.scm 221 */
obj_t BgL_arg3658z00_1221;obj_t BgL_arg3659z00_1222;
BgL_arg3658z00_1221 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/iarith.scm 221 */
obj_t BgL_arg3662z00_1223;obj_t BgL_arg3663z00_1224;
BgL_arg3662z00_1223 = 
PROCEDURE_ENTRY(BgL_ez00_22)(BgL_ez00_22, BgL_xz00_1206, BgL_ez00_22, BEOA); 
{ /* ./Expand/iarith.scm 221 */
obj_t BgL_arg3667z00_1225;
BgL_arg3667z00_1225 = 
PROCEDURE_ENTRY(BgL_ez00_22)(BgL_ez00_22, BgL_yz00_1207, BgL_ez00_22, BEOA); 
BgL_arg3663z00_1224 = 
MAKE_PAIR(BgL_arg3667z00_1225, BNIL); } 
BgL_arg3659z00_1222 = 
MAKE_PAIR(BgL_arg3662z00_1223, BgL_arg3663z00_1224); } 
return 
MAKE_PAIR(BgL_arg3658z00_1221, BgL_arg3659z00_1222);} } } }  else 
{ /* ./Expand/iarith.scm 215 */
BgL_tagzd22269zd2_1209:
FAILURE(BFALSE,BGl_string3871z00zzexpand_iarithmetiquez00,BgL_xz00_21);} }  else 
{ /* ./Expand/iarith.scm 215 */
goto BgL_tagzd22269zd2_1209;} } }  else 
{ /* ./Expand/iarith.scm 215 */
goto BgL_tagzd22269zd2_1209;} } }  else 
{ /* ./Expand/iarith.scm 215 */
goto BgL_tagzd22269zd2_1209;} } } } 
}



/* _expand-+fx3741 */
obj_t BGl__expandzd2zb2fx3741z60zzexpand_iarithmetiquez00(obj_t BgL_envz00_2252, obj_t BgL_xz00_2253, obj_t BgL_ez00_2254)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 214 */
return 
BGl_expandzd2zb2fxz60zzexpand_iarithmetiquez00(BgL_xz00_2253, BgL_ez00_2254);} 
}



/* expand--fx */
BGL_EXPORTED_DEF obj_t BGl_expandzd2zd2fxz00zzexpand_iarithmetiquez00(obj_t BgL_xz00_23, obj_t BgL_ez00_24)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 228 */
{ 
obj_t BgL_xz00_1228;obj_t BgL_yz00_1229;
{ /* ./Expand/iarith.scm 229 */
bool_t BgL_test3675z00_1233;
BgL_test3675z00_1233 = 
PAIRP(BgL_xz00_23); 
if(BgL_test3675z00_1233)
{ /* ./Expand/iarith.scm 229 */
obj_t BgL_cdrzd22294zd2_1234;
BgL_cdrzd22294zd2_1234 = 
CDR(BgL_xz00_23); 
{ /* ./Expand/iarith.scm 229 */
bool_t BgL_test3676z00_1235;
BgL_test3676z00_1235 = 
PAIRP(BgL_cdrzd22294zd2_1234); 
if(BgL_test3676z00_1235)
{ /* ./Expand/iarith.scm 229 */
obj_t BgL_cdrzd22298zd2_1236;
BgL_cdrzd22298zd2_1236 = 
CDR(BgL_cdrzd22294zd2_1234); 
{ /* ./Expand/iarith.scm 229 */
bool_t BgL_test3677z00_1237;
BgL_test3677z00_1237 = 
PAIRP(BgL_cdrzd22298zd2_1236); 
if(BgL_test3677z00_1237)
{ /* ./Expand/iarith.scm 229 */
bool_t BgL_test3678z00_1238;
{ /* ./Expand/iarith.scm 229 */
obj_t BgL_auxz00_4090;
BgL_auxz00_4090 = 
CDR(BgL_cdrzd22298zd2_1236); 
BgL_test3678z00_1238 = 
NULLP(BgL_auxz00_4090); } 
if(BgL_test3678z00_1238)
{ /* ./Expand/iarith.scm 229 */
obj_t BgL_arg3681z00_1239;obj_t BgL_arg3682z00_1240;
BgL_arg3681z00_1239 = 
CAR(BgL_cdrzd22294zd2_1234); 
BgL_arg3682z00_1240 = 
CAR(BgL_cdrzd22298zd2_1236); 
BgL_xz00_1228 = BgL_arg3681z00_1239; 
BgL_yz00_1229 = BgL_arg3682z00_1240; 
{ /* ./Expand/iarith.scm 232 */
bool_t BgL_test3699z00_1242;
if(
INTEGERP(BgL_xz00_1228))
{ /* ./Expand/iarith.scm 232 */
BgL_test3699z00_1242 = 
INTEGERP(BgL_yz00_1229); }  else 
{ /* ./Expand/iarith.scm 232 */
BgL_test3699z00_1242 = ((bool_t)0); } 
if(BgL_test3699z00_1242)
{ /* ./Expand/iarith.scm 232 */
{ /* ./Expand/iarith.scm 233 */
long BgL_auxz00_4100;
{ /* ./Expand/iarith.scm 233 */
long BgL_auxz00_4103;long BgL_auxz00_4101;
BgL_auxz00_4103 = 
(long)CINT(BgL_yz00_1229); 
BgL_auxz00_4101 = 
(long)CINT(BgL_xz00_1228); 
BgL_auxz00_4100 = 
(BgL_auxz00_4101-BgL_auxz00_4103); } 
return 
BINT(BgL_auxz00_4100);} }  else 
{ /* ./Expand/iarith.scm 232 */
{ /* ./Expand/iarith.scm 235 */
obj_t BgL_arg3702z00_1243;obj_t BgL_arg3703z00_1244;
BgL_arg3702z00_1243 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/iarith.scm 235 */
obj_t BgL_arg3706z00_1245;obj_t BgL_arg3707z00_1246;
BgL_arg3706z00_1245 = 
PROCEDURE_ENTRY(BgL_ez00_24)(BgL_ez00_24, BgL_xz00_1228, BgL_ez00_24, BEOA); 
{ /* ./Expand/iarith.scm 235 */
obj_t BgL_arg3712z00_1247;
BgL_arg3712z00_1247 = 
PROCEDURE_ENTRY(BgL_ez00_24)(BgL_ez00_24, BgL_yz00_1229, BgL_ez00_24, BEOA); 
BgL_arg3707z00_1246 = 
MAKE_PAIR(BgL_arg3712z00_1247, BNIL); } 
BgL_arg3703z00_1244 = 
MAKE_PAIR(BgL_arg3706z00_1245, BgL_arg3707z00_1246); } 
return 
MAKE_PAIR(BgL_arg3702z00_1243, BgL_arg3703z00_1244);} } } }  else 
{ /* ./Expand/iarith.scm 229 */
BgL_tagzd22287zd2_1231:
FAILURE(BFALSE,BGl_string3872z00zzexpand_iarithmetiquez00,BgL_xz00_23);} }  else 
{ /* ./Expand/iarith.scm 229 */
goto BgL_tagzd22287zd2_1231;} } }  else 
{ /* ./Expand/iarith.scm 229 */
goto BgL_tagzd22287zd2_1231;} } }  else 
{ /* ./Expand/iarith.scm 229 */
goto BgL_tagzd22287zd2_1231;} } } } 
}



/* _expand--fx3743 */
obj_t BGl__expandzd2zd2fx3743z00zzexpand_iarithmetiquez00(obj_t BgL_envz00_2255, obj_t BgL_xz00_2256, obj_t BgL_ez00_2257)
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 228 */
return 
BGl_expandzd2zd2fxz00zzexpand_iarithmetiquez00(BgL_xz00_2256, BgL_ez00_2257);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_iarithmetiquez00()
{ AN_OBJECT;
{ /* ./Expand/iarith.scm 15 */
return 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "expand_iarithmetique");} 
}

