/*===========================================================================*/
/*   (Write/version.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 Write/version.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

BGL_IMPORT obj_t open_input_string(obj_t);
BGL_EXPORTED_DECL obj_t BGl_shortzd2versionzd2zzwrite_versionz00();
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_za2verboseza2z00zzengine_paramz00;
BGL_EXPORTED_DECL obj_t BGl_versionz00zzwrite_versionz00();
extern obj_t BGl_za2bigloozd2dateza2zd2zzengine_paramz00;
static obj_t BGl__revisionz00zzwrite_versionz00(obj_t);
static obj_t BGl_cnstzd2initzd2zzwrite_versionz00();
BGL_IMPORT obj_t c_substring(obj_t, int, int);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzwrite_versionz00();
extern obj_t BGl_za2bigloozd2emailza2zd2zzengine_paramz00;
static obj_t BGl_horsez00zzwrite_versionz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzwrite_versionz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
static obj_t BGl_displayzd2tozd2columnz00zzwrite_versionz00(obj_t, long, unsigned char);
static obj_t BGl__versionz00zzwrite_versionz00(obj_t);
extern obj_t BGl_za2bigloozd2authorza2zd2zzengine_paramz00;
extern obj_t BGl_za2bigloozd2nameza2zd2zzengine_paramz00;
static obj_t BGl__shortzd2versionzd2zzwrite_versionz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzwrite_versionz00 = BUNSPEC;
extern obj_t BGl_za2bigloozd2versionza2zd2zzengine_paramz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzwrite_versionz00();
BGL_EXPORTED_DECL obj_t BGl_revisionz00zzwrite_versionz00();
static obj_t __cnst[ 2 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_versionzd2envzd2zzwrite_versionz00, BgL_bgl__versionza700za7za7write_versionza7001226z00, BGl__versionz00zzwrite_versionz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_shortzd2versionzd2envz00zzwrite_versionz00, BgL_bgl__shortza7d2versionza7d2za7za7write_versionza7001227za7, BGl__shortzd2versionzd2zzwrite_versionz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_revisionzd2envzd2zzwrite_versionz00, BgL_bgl__revisionza700za7za7write_versionza7001228z00, BGl__revisionz00zzwrite_versionz00, 0L, 0 );
DEFINE_STRING( BGl_string1199z00zzwrite_versionz00, BgL_bgl_string1199za700za7za7write_versionza7001229z00, " Ce travail est dedi\351 \340 Nelly Lebas, ma grand-m\350re, d\351c\351d\351e le 10 Mars 1995,", 76 );
DEFINE_STRING( BGl_string1198z00zzwrite_versionz00, BgL_bgl_string1198za700za7za7write_versionza7001230z00, " ", 1 );
DEFINE_STRING( BGl_string1197z00zzwrite_versionz00, BgL_bgl_string1197za700za7za7write_versionza7001231z00, "`a practical Scheme compiler'", 29 );
DEFINE_STRING( BGl_string1196z00zzwrite_versionz00, BgL_bgl_string1196za700za7za7write_versionza7001232z00, "email:", 6 );
DEFINE_STRING( BGl_string1195z00zzwrite_versionz00, BgL_bgl_string1195za700za7za7write_versionza7001233z00, "", 0 );
DEFINE_STRING( BGl_string1202z00zzwrite_versionz00, BgL_bgl_string1202za700za7za7write_versionza7001234z00, "(\"            ,--^, \" \"      _ ___/ /|/  \" \"  ,;'( )__, ) '   \" \" ;;  //   L__.    \" \" '   \\\\    /  '    \" \"      ^   ^       \") done ", 134 );
DEFINE_STRING( BGl_string1201z00zzwrite_versionz00, BgL_bgl_string1201za700za7za7write_versionza7001235z00, " et \340 Carlos, d\351c\351d\351 le 12 Mars 2001 au matin.", 46 );
DEFINE_STRING( BGl_string1200z00zzwrite_versionz00, BgL_bgl_string1200za700za7za7write_versionza7001236z00, " \340 Marcel Lebas, mon grand-p\350re, d\351c\351d\351 le 29 Octobre 1998", 58 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzwrite_versionz00(long BgL_checksumz00_112, char * BgL_fromz00_113)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzwrite_versionz00))
{ 
BGl_requirezd2initializa7ationz75zzwrite_versionz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzwrite_versionz00(); 
BGl_cnstzd2initzd2zzwrite_versionz00(); 
BGl_importedzd2moduleszd2initz00zzwrite_versionz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzwrite_versionz00()
{ AN_OBJECT;
{ /* ./Write/version.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "write_version"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "write_version"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzwrite_versionz00()
{ AN_OBJECT;
{ /* ./Write/version.scm 15 */
{ /* ./Write/version.scm 15 */
obj_t BgL_cportz00_105;
BgL_cportz00_105 = 
open_input_string(BGl_string1202z00zzwrite_versionz00); 
{ 
long BgL_iz00_106;
BgL_iz00_106 = ((long)1); 
BgL_loopz00_107:
{ /* ./Write/version.scm 15 */
bool_t BgL_test1204z00_108;
BgL_test1204z00_108 = 
(BgL_iz00_106==((long)-1)); 
if(BgL_test1204z00_108)
{ /* ./Write/version.scm 15 */
return BUNSPEC;}  else 
{ /* ./Write/version.scm 15 */
{ /* ./Write/version.scm 15 */
obj_t BgL_arg1206z00_109;
{ /* ./Write/version.scm 15 */
obj_t BgL_list1209z00_110;
BgL_list1209z00_110 = 
MAKE_PAIR(BgL_cportz00_105, BNIL); 
BgL_arg1206z00_109 = 
BGl_readz00zz__readerz00(BgL_list1209z00_110); } 
{ /* ./Write/version.scm 15 */
int BgL_auxz00_127;
BgL_auxz00_127 = 
(int)(BgL_iz00_106); 
CNST_TABLE_SET(BgL_auxz00_127, BgL_arg1206z00_109); } } 
{ /* ./Write/version.scm 15 */
int BgL_auxz00_111;
{ /* ./Write/version.scm 15 */
long BgL_auxz00_130;
BgL_auxz00_130 = 
(BgL_iz00_106-((long)1)); 
BgL_auxz00_111 = 
(int)(BgL_auxz00_130); } 
{ 
long BgL_iz00_133;
BgL_iz00_133 = 
(long)(BgL_auxz00_111); 
BgL_iz00_106 = BgL_iz00_133; 
goto BgL_loopz00_107;} } } } } } } 
}



/* revision */
BGL_EXPORTED_DEF obj_t BGl_revisionz00zzwrite_versionz00()
{ AN_OBJECT;
{ /* ./Write/version.scm 25 */
{ /* ./Write/version.scm 26 */
obj_t BgL_port1003z00_5;
BgL_port1003z00_5 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2bigloozd2versionza2zd2zzengine_paramz00, BgL_port1003z00_5); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1003z00_5);} } 
}



/* _revision */
obj_t BGl__revisionz00zzwrite_versionz00(obj_t BgL_envz00_102)
{ AN_OBJECT;
{ /* ./Write/version.scm 25 */
return 
BGl_revisionz00zzwrite_versionz00();} 
}



/* short-version */
BGL_EXPORTED_DEF obj_t BGl_shortzd2versionzd2zzwrite_versionz00()
{ AN_OBJECT;
{ /* ./Write/version.scm 31 */
{ /* ./Write/version.scm 32 */
obj_t BgL_port1004z00_6;
BgL_port1004z00_6 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2bigloozd2nameza2zd2zzengine_paramz00, BgL_port1004z00_6); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1004z00_6);} } 
}



/* _short-version */
obj_t BGl__shortzd2versionzd2zzwrite_versionz00(obj_t BgL_envz00_103)
{ AN_OBJECT;
{ /* ./Write/version.scm 31 */
return 
BGl_shortzd2versionzd2zzwrite_versionz00();} 
}



/* version */
BGL_EXPORTED_DEF obj_t BGl_versionz00zzwrite_versionz00()
{ AN_OBJECT;
{ /* ./Write/version.scm 37 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00(BGl_string1195z00zzwrite_versionz00, ((long)79), ((unsigned char)'-')); 
{ /* ./Write/version.scm 39 */
obj_t BgL_arg1016z00_7;
BgL_arg1016z00_7 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg1016z00_7); } 
{ /* ./Write/version.scm 40 */
obj_t BgL_arg1021z00_9;
{ /* ./Write/version.scm 42 */
bool_t BgL_test1041z00_17;
{ /* ./Write/version.scm 42 */
unsigned char BgL_arg1048z00_20;
{ /* ./Write/version.scm 42 */
obj_t BgL_stringz00_66;
BgL_stringz00_66 = BGl_za2bigloozd2dateza2zd2zzengine_paramz00; 
{ /* ./Write/version.scm 42 */
int BgL_auxz00_146;
BgL_auxz00_146 = 
(int)(((long)0)); 
BgL_arg1048z00_20 = 
STRING_REF(BgL_stringz00_66, BgL_auxz00_146); } } 
BgL_test1041z00_17 = 
(BgL_arg1048z00_20==((unsigned char)' ')); } 
if(BgL_test1041z00_17)
{ /* ./Write/version.scm 43 */
int BgL_arg1044z00_19;
{ /* ./Write/version.scm 43 */
obj_t BgL_stringz00_70;
BgL_stringz00_70 = BGl_za2bigloozd2dateza2zd2zzengine_paramz00; 
BgL_arg1044z00_19 = 
STRING_LENGTH(BgL_stringz00_70); } 
{ /* ./Write/version.scm 43 */
obj_t BgL_stringz00_71;int BgL_startz00_72;
BgL_stringz00_71 = BGl_za2bigloozd2dateza2zd2zzengine_paramz00; 
BgL_startz00_72 = 
(int)(((long)1)); 
BgL_arg1021z00_9 = 
c_substring(BgL_stringz00_71, BgL_startz00_72, BgL_arg1044z00_19); } }  else 
{ /* ./Write/version.scm 42 */
BgL_arg1021z00_9 = BGl_za2bigloozd2dateza2zd2zzengine_paramz00; } } 
{ /* ./Write/version.scm 40 */
obj_t BgL_list1024z00_11;
{ /* ./Write/version.scm 40 */
obj_t BgL_arg1026z00_12;
{ /* ./Write/version.scm 40 */
obj_t BgL_arg1029z00_13;
{ /* ./Write/version.scm 40 */
obj_t BgL_arg1032z00_14;
{ /* ./Write/version.scm 40 */
obj_t BgL_arg1035z00_15;
{ /* ./Write/version.scm 40 */
obj_t BgL_arg1038z00_16;
BgL_arg1038z00_16 = 
MAKE_PAIR(BGl_za2bigloozd2emailza2zd2zzengine_paramz00, BNIL); 
BgL_arg1035z00_15 = 
MAKE_PAIR(BGl_string1196z00zzwrite_versionz00, BgL_arg1038z00_16); } 
BgL_arg1032z00_14 = 
MAKE_PAIR(BGl_za2bigloozd2authorza2zd2zzengine_paramz00, BgL_arg1035z00_15); } 
BgL_arg1029z00_13 = 
MAKE_PAIR(BgL_arg1021z00_9, BgL_arg1032z00_14); } 
BgL_arg1026z00_12 = 
MAKE_PAIR(BGl_string1197z00zzwrite_versionz00, BgL_arg1029z00_13); } 
BgL_list1024z00_11 = 
MAKE_PAIR(BGl_za2bigloozd2nameza2zd2zzengine_paramz00, BgL_arg1026z00_12); } 
BGl_horsez00zzwrite_versionz00(BgL_list1024z00_11); } } 
{ /* ./Write/version.scm 48 */
bool_t BgL_test1051z00_21;
{ /* ./Write/version.scm 48 */
long BgL_n1z00_74;
BgL_n1z00_74 = 
(long)CINT(BGl_za2verboseza2z00zzengine_paramz00); 
BgL_test1051z00_21 = 
(BgL_n1z00_74>=((long)3)); } 
if(BgL_test1051z00_21)
{ /* ./Write/version.scm 48 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00(BGl_string1198z00zzwrite_versionz00, ((long)78), ((unsigned char)'-')); 
{ /* ./Write/version.scm 51 */
obj_t BgL_arg1054z00_22;
BgL_arg1054z00_22 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg1054z00_22); } 
{ /* ./Write/version.scm 52 */
obj_t BgL_list1058z00_23;
{ /* ./Write/version.scm 52 */
obj_t BgL_arg1064z00_25;
{ /* ./Write/version.scm 52 */
obj_t BgL_auxz00_167;
BgL_auxz00_167 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1064z00_25 = 
MAKE_PAIR(BgL_auxz00_167, BNIL); } 
BgL_list1058z00_23 = 
MAKE_PAIR(BGl_string1199z00zzwrite_versionz00, BgL_arg1064z00_25); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list1058z00_23); } 
{ /* ./Write/version.scm 53 */
obj_t BgL_list1068z00_26;
{ /* ./Write/version.scm 53 */
obj_t BgL_arg1076z00_28;
{ /* ./Write/version.scm 53 */
obj_t BgL_auxz00_173;
BgL_auxz00_173 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1076z00_28 = 
MAKE_PAIR(BgL_auxz00_173, BNIL); } 
BgL_list1068z00_26 = 
MAKE_PAIR(BGl_string1200z00zzwrite_versionz00, BgL_arg1076z00_28); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list1068z00_26); } 
{ /* ./Write/version.scm 54 */
obj_t BgL_list1080z00_29;
{ /* ./Write/version.scm 54 */
obj_t BgL_arg1085z00_31;
{ /* ./Write/version.scm 54 */
obj_t BgL_auxz00_179;
BgL_auxz00_179 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1085z00_31 = 
MAKE_PAIR(BgL_auxz00_179, BNIL); } 
BgL_list1080z00_29 = 
MAKE_PAIR(BGl_string1201z00zzwrite_versionz00, BgL_arg1085z00_31); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list1080z00_29); } }  else 
{ /* ./Write/version.scm 48 */BFALSE; } } 
BGl_displayzd2tozd2columnz00zzwrite_versionz00(BGl_string1195z00zzwrite_versionz00, ((long)79), ((unsigned char)'-')); 
{ /* ./Write/version.scm 56 */
obj_t BgL_arg1091z00_32;
BgL_arg1091z00_32 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg1091z00_32); } 
{ /* ./Write/version.scm 57 */
obj_t BgL_arg1096z00_33;
BgL_arg1096z00_33 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg1096z00_33);} } 
}



/* _version */
obj_t BGl__versionz00zzwrite_versionz00(obj_t BgL_envz00_104)
{ AN_OBJECT;
{ /* ./Write/version.scm 37 */
return 
BGl_versionz00zzwrite_versionz00();} 
}



/* horse */
obj_t BGl_horsez00zzwrite_versionz00(obj_t BgL_lz00_1)
{ AN_OBJECT;
{ /* ./Write/version.scm 62 */
{ 
obj_t BgL_lz00_34;obj_t BgL_horsez00_35;
BgL_lz00_34 = BgL_lz00_1; 
BgL_horsez00_35 = 
CNST_TABLE_REF(((long)1)); 
BgL_loopz00_36:
{ /* ./Write/version.scm 71 */
bool_t BgL_test1100z00_37;
BgL_test1100z00_37 = 
NULLP(BgL_lz00_34); 
if(BgL_test1100z00_37)
{ /* ./Write/version.scm 71 */
{ /* ./Write/version.scm 72 */
bool_t BgL_test1101z00_38;
BgL_test1101z00_38 = 
NULLP(BgL_horsez00_35); 
if(BgL_test1101z00_38)
{ /* ./Write/version.scm 72 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Write/version.scm 72 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00(BGl_string1195z00zzwrite_versionz00, ((long)62), ((unsigned char)' ')); 
{ /* ./Write/version.scm 76 */
obj_t BgL_port1005z00_39;
BgL_port1005z00_39 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ /* ./Write/version.scm 76 */
obj_t BgL_arg1104z00_40;
BgL_arg1104z00_40 = 
CAR(BgL_horsez00_35); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1104z00_40, BgL_port1005z00_39); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1005z00_39); } 
{ /* ./Write/version.scm 77 */
obj_t BgL_arg1111z00_42;
BgL_arg1111z00_42 = 
CDR(BgL_horsez00_35); 
{ 
obj_t BgL_horsez00_203;obj_t BgL_lz00_202;
BgL_lz00_202 = BNIL; 
BgL_horsez00_203 = BgL_arg1111z00_42; 
BgL_horsez00_35 = BgL_horsez00_203; 
BgL_lz00_34 = BgL_lz00_202; 
goto BgL_loopz00_36;} } } } }  else 
{ /* ./Write/version.scm 78 */
bool_t BgL_test1115z00_43;
BgL_test1115z00_43 = 
NULLP(BgL_horsez00_35); 
if(BgL_test1115z00_43)
{ /* ./Write/version.scm 78 */
{ /* ./Write/version.scm 79 */
obj_t BgL_port1006z00_44;
BgL_port1006z00_44 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ /* ./Write/version.scm 79 */
obj_t BgL_arg1117z00_45;
BgL_arg1117z00_45 = 
CAR(BgL_lz00_34); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1117z00_45, BgL_port1006z00_44); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1006z00_44); } 
{ /* ./Write/version.scm 80 */
obj_t BgL_arg1123z00_46;
BgL_arg1123z00_46 = 
CDR(BgL_lz00_34); 
{ 
obj_t BgL_horsez00_212;obj_t BgL_lz00_211;
BgL_lz00_211 = BgL_arg1123z00_46; 
BgL_horsez00_212 = BNIL; 
BgL_horsez00_35 = BgL_horsez00_212; 
BgL_lz00_34 = BgL_lz00_211; 
goto BgL_loopz00_36;} } }  else 
{ /* ./Write/version.scm 78 */
{ /* ./Write/version.scm 82 */
obj_t BgL_arg1128z00_48;
BgL_arg1128z00_48 = 
CAR(BgL_lz00_34); 
BGl_displayzd2tozd2columnz00zzwrite_versionz00(BgL_arg1128z00_48, ((long)62), ((unsigned char)' ')); } 
{ /* ./Write/version.scm 83 */
obj_t BgL_port1007z00_50;
BgL_port1007z00_50 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ /* ./Write/version.scm 83 */
obj_t BgL_arg1134z00_51;
BgL_arg1134z00_51 = 
CAR(BgL_horsez00_35); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1134z00_51, BgL_port1007z00_50); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1007z00_50); } 
{ /* ./Write/version.scm 84 */
obj_t BgL_arg1140z00_52;obj_t BgL_arg1141z00_53;
BgL_arg1140z00_52 = 
CDR(BgL_lz00_34); 
BgL_arg1141z00_53 = 
CDR(BgL_horsez00_35); 
{ 
obj_t BgL_horsez00_222;obj_t BgL_lz00_221;
BgL_lz00_221 = BgL_arg1140z00_52; 
BgL_horsez00_222 = BgL_arg1141z00_53; 
BgL_horsez00_35 = BgL_horsez00_222; 
BgL_lz00_34 = BgL_lz00_221; 
goto BgL_loopz00_36;} } } } } } } 
}



/* display-to-column */
obj_t BGl_displayzd2tozd2columnz00zzwrite_versionz00(obj_t BgL_stringz00_2, long BgL_columnz00_3, unsigned char BgL_charz00_4)
{ AN_OBJECT;
{ /* ./Write/version.scm 89 */
{ /* ./Write/version.scm 90 */
obj_t BgL_arg1148z00_54;
BgL_arg1148z00_54 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_stringz00_2, BgL_arg1148z00_54); } 
{ 
long BgL_lz00_55;
{ /* ./Write/version.scm 91 */
long BgL_arg1152z00_57;
{ /* ./Write/version.scm 91 */
long BgL_auxz00_226;
{ /* ./Write/version.scm 91 */
int BgL_auxz00_227;
BgL_auxz00_227 = 
STRING_LENGTH(BgL_stringz00_2); 
BgL_auxz00_226 = 
(long)(BgL_auxz00_227); } 
BgL_arg1152z00_57 = 
(((long)1)+BgL_auxz00_226); } 
BgL_lz00_55 = BgL_arg1152z00_57; 
BgL_loopz00_56:
{ /* ./Write/version.scm 92 */
bool_t BgL_test1159z00_60;
BgL_test1159z00_60 = 
(BgL_lz00_55==BgL_columnz00_3); 
if(BgL_test1159z00_60)
{ /* ./Write/version.scm 92 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Write/version.scm 92 */
{ /* ./Write/version.scm 95 */
obj_t BgL_arg1162z00_61;
BgL_arg1162z00_61 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(BgL_charz00_4, BgL_arg1162z00_61); } 
{ /* ./Write/version.scm 96 */
long BgL_arg1166z00_62;
BgL_arg1166z00_62 = 
(BgL_lz00_55+((long)1)); 
{ 
long BgL_lz00_237;
BgL_lz00_237 = BgL_arg1166z00_62; 
BgL_lz00_55 = BgL_lz00_237; 
goto BgL_loopz00_56;} } } } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzwrite_versionz00()
{ AN_OBJECT;
{ /* ./Write/version.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "write_version"); 
return 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "write_version");} 
}

