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

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;

typedef struct BgL_valuez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_valuez00_bglt;

typedef struct BgL_variablez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
} *BgL_variablez00_bglt;

typedef struct BgL_globalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   obj_t BgL_modulez00;
   obj_t BgL_importz00;
   bool_t BgL_evaluablezf3zf3;
   bool_t BgL_libraryzf3zf3;
   bool_t BgL_userzf3zf3;
   obj_t BgL_pragmaz00;
   obj_t BgL_srcz00;
   obj_t BgL_jvmzd2typezd2namez00;
} *BgL_globalz00_bglt;

typedef struct BgL_localz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   bool_t BgL_userzf3zf3;
   long BgL_keyz00;
} *BgL_localz00_bglt;

typedef struct BgL_funz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
} *BgL_funz00_bglt;

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

typedef struct BgL_cfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_argszd2typezd2;
   bool_t BgL_macrozf3zf3;
   bool_t BgL_infixzf3zf3;
   obj_t BgL_methodz00;
} *BgL_cfunz00_bglt;

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

typedef struct BgL_sexitz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_handlerz00;
   bool_t BgL_detachedzf3zf3;
} *BgL_sexitz00_bglt;

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;

typedef struct BgL_nodez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_nodez00_bglt;

typedef struct BgL_nodezf2effectzf2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
} *BgL_nodezf2effectzf2_bglt;

typedef struct BgL_atomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_atomz00_bglt;

typedef struct BgL_varz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varz00_bglt;

typedef struct BgL_closurez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_closurez00_bglt;

typedef struct BgL_kwotez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_kwotez00_bglt;

typedef struct BgL_sequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *BgL_sequencez00_bglt;

typedef struct BgL_appz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_appz00_bglt;

typedef struct BgL_appzd2lyzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_appzd2lyzd2_bglt;

typedef struct BgL_funcallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_funcallz00_bglt;

typedef struct BgL_externz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_externz00_bglt;

typedef struct BgL_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_bglt;

typedef struct BgL_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_getfieldz00_bglt;

typedef struct BgL_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_setfieldz00_bglt;

typedef struct BgL_newz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_newz00_bglt;

typedef struct BgL_vallocz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_vallocz00_bglt;

typedef struct BgL_vrefz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vrefz00_bglt;

typedef struct BgL_vsetz12z12_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vsetz12z12_bglt;

typedef struct BgL_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_bglt;

typedef struct BgL_castz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_castz00_bglt;

typedef struct BgL_setqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_setqz00_bglt;

typedef struct BgL_conditionalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   struct BgL_nodez00_bgl * BgL_truez00;
   struct BgL_nodez00_bgl * BgL_falsez00;
} *BgL_conditionalz00_bglt;

typedef struct BgL_failz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_procz00;
   struct BgL_nodez00_bgl * BgL_msgz00;
   struct BgL_nodez00_bgl * BgL_objz00;
} *BgL_failz00_bglt;

typedef struct BgL_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_bglt;

typedef struct BgL_letzd2funzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_localsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_letzd2funzd2_bglt;

typedef struct BgL_letzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_bindingsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
   bool_t BgL_removablezf3zf3;
} *BgL_letzd2varzd2_bglt;

typedef struct BgL_setzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_setzd2exzd2itz00_bglt;

typedef struct BgL_jumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_exitz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_jumpzd2exzd2itz00_bglt;

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_makezd2boxzd2_bglt;

typedef struct BgL_boxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *BgL_boxzd2refzd2_bglt;

typedef struct BgL_boxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_boxzd2setz12zc0_bglt;

typedef struct BgL_approxz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   bool_t BgL_typezd2lockedzf3z21;
   obj_t BgL_allocsz00;
   bool_t BgL_topzf3zf3;
   long BgL_lostzd2stampzd2;
} *BgL_approxz00_bglt;

typedef struct BgL_cfunzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_cfunzf2cinfozf2_bglt;

typedef struct BgL_externzd2sfunzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_externzd2sfunzf2cinfoz20_bglt;

typedef struct BgL_internzd2sfunzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   long BgL_stampz00;
} *BgL_internzd2sfunzf2cinfoz20_bglt;

typedef struct BgL_scnstzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_scnstzf2cinfozf2_bglt;

typedef struct BgL_prezd2clozd2envz00_bgl {
   char dummy;
} *BgL_prezd2clozd2envz00_bglt;

typedef struct BgL_svarzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_clozd2envzf3z21;
} *BgL_svarzf2cinfozf2_bglt;

typedef struct BgL_cvarzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_cvarzf2cinfozf2_bglt;

typedef struct BgL_sexitzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_sexitzf2cinfozf2_bglt;

typedef struct BgL_reshapedzd2localzd2_bgl {
   obj_t BgL_bindingzd2valuezd2;
} *BgL_reshapedzd2localzd2_bglt;

typedef struct BgL_reshapedzd2globalzd2_bgl {
   char dummy;
} *BgL_reshapedzd2globalzd2_bglt;

typedef struct BgL_atomzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_atomzf2cinfozf2_bglt;

typedef struct BgL_kwotezf2nodezf2_bgl {
   struct BgL_nodez00_bgl * BgL_nodez00;
} *BgL_kwotezf2nodezf2_bglt;

typedef struct BgL_kwotezf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_kwotezf2cinfozf2_bglt;

typedef struct BgL_appzd2lyzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_appzd2lyzf2cinfoz20_bglt;

typedef struct BgL_funcallzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_vazd2approxzd2;
   bool_t BgL_arityzd2errorzd2noticedzf3zf3;
   bool_t BgL_typezd2errorzd2noticedzf3zf3;
} *BgL_funcallzf2cinfozf2_bglt;

typedef struct BgL_setqzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setqzf2cinfozf2_bglt;

typedef struct BgL_conditionalzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_conditionalzf2cinfozf2_bglt;

typedef struct BgL_failzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_failzf2cinfozf2_bglt;

typedef struct BgL_selectzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_selectzf2cinfozf2_bglt;

typedef struct BgL_setzd2exzd2itzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setzd2exzd2itzf2cinfozf2_bglt;

typedef struct BgL_jumpzd2exzd2itzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_jumpzd2exzd2itzf2cinfozf2_bglt;

typedef struct BgL_prezd2makezd2boxz00_bgl {
   char dummy;
} *BgL_prezd2makezd2boxz00_bglt;

typedef struct BgL_makezd2boxzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_makezd2boxzf2cinfoz20_bglt;

typedef struct BgL_makezd2boxzf2ozd2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
} *BgL_makezd2boxzf2ozd2cinfozf2_bglt;

typedef struct BgL_boxzd2setz12zf2cinfoz32_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2setz12zf2cinfoz32_bglt;

typedef struct BgL_boxzd2refzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2refzf2cinfoz20_bglt;

typedef struct BgL_boxzd2setz12zf2ozd2cinfoze0_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2setz12zf2ozd2cinfoze0_bglt;

typedef struct BgL_boxzd2refzf2ozd2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2refzf2ozd2cinfozf2_bglt;

typedef struct BgL_prezd2arithmeticzd2appz00_bgl {
   obj_t BgL_speczd2typeszd2;
} *BgL_prezd2arithmeticzd2appz00_bglt;

typedef struct BgL_arithmeticzd2appzd2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   obj_t BgL_speczd2typeszd2;
} *BgL_arithmeticzd2appzd2_bglt;

typedef struct BgL_prezd2makezd2procedurezd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2procedurezd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2procedurezd2refzd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2procedurezd2setz12zd2appzc0_bglt;

typedef struct BgL_makezd2procedurezd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   obj_t BgL_valueszd2approxzd2;
   long BgL_lostzd2stampzd2;
   bool_t BgL_xzd2tzf3z21;
   bool_t BgL_xz00;
   bool_t BgL_tz00;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
} *BgL_makezd2procedurezd2appz00_bglt;

typedef struct BgL_procedurezd2refzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_procedurezd2refzd2appz00_bglt;

typedef struct BgL_procedurezd2setz12zd2appz12_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_procedurezd2setz12zd2appz12_bglt;

typedef struct BgL_prezd2makezd2vectorzd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2vectorzd2appzd2_bglt;

typedef struct BgL_makezd2vectorzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
   bool_t BgL_seenzf3zf3;
} *BgL_makezd2vectorzd2appz00_bglt;

typedef struct BgL_prezd2makezd2structzd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2structzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2structzd2refzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2structzd2setz12zd2appzc0_bglt;

typedef struct BgL_makezd2structzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
} *BgL_makezd2structzd2appz00_bglt;

typedef struct BgL_structzd2refzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_structzd2refzd2appz00_bglt;

typedef struct BgL_structzd2setz12zd2appz12_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_structzd2setz12zd2appz12_bglt;


static obj_t BGl_methodzd2initzd2zzcfa_loosez00();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_EXPORTED_DECL BgL_approxz00_bglt BGl_loosez12z12zzcfa_loosez00(BgL_approxz00_bglt, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_za2cfazd2stampza2zd2zzcfa_iteratez00;
static obj_t BGl__loosezd2allocz124834zc0zzcfa_loosez00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzcfa_loosez00();
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_loosez00();
static obj_t BGl_toplevelzd2initzd2zzcfa_loosez00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_loosez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_iteratez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_setz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_approxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_procedurez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(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 *);
static obj_t BGl_loosezd2allocz12zd2default4084z12zzcfa_loosez00(BgL_nodez00_bglt);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_forzd2eachzd2approxzd2alloczd2zzcfa_approxz00(obj_t, BgL_approxz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_globalzd2loosez12zc0zzcfa_loosez00(BgL_globalz00_bglt, BgL_approxz00_bglt);
static obj_t BGl__globalzd2loosez124836zc0zzcfa_loosez00(obj_t, obj_t, obj_t);
extern obj_t BGl_disablezd2Xzd2Tz12z12zzcfa_procedurez00(BgL_approxz00_bglt);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_loosez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_loosezd2allocz12zc0zzcfa_loosez00(BgL_nodez00_bglt);
static obj_t BGl__loosezd2allocz12zd2default4084z12zzcfa_loosez00(obj_t, obj_t);
static obj_t BGl__loosez124832z12zzcfa_loosez00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_loosez00();
static obj_t __cnst[ 3 ] ;


DEFINE_STRING( BGl_string4864z00zzcfa_loosez00, BgL_bgl_string4864za700za7za7cfa_looseza7004891z00, "loose-alloc!-default4084 all (import export) ", 45 );
DEFINE_STRING( BGl_string4863z00zzcfa_loosez00, BgL_bgl_string4863za700za7za7cfa_looseza7004892z00, "No method for this object", 25 );
DEFINE_EXPORT_PROCEDURE( BGl_globalzd2loosez12zd2envz12zzcfa_loosez00, BgL_bgl__globalza7d2looseza7124836za7c0za7za7cfa_looseza7004893z00, BGl__globalzd2loosez124836zc0zzcfa_loosez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_loosezd2allocz12zd2default4084zd2envzc0zzcfa_loosez00, BgL_bgl__looseza7d2allocza712za7d2default4084za712za7za7cfa_looseza7004894za7, BGl__loosezd2allocz12zd2default4084z12zzcfa_loosez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_loosez12zd2envzc0zzcfa_loosez00, BgL_bgl__looseza7124832za712za7za7cfa_looseza7004895za7, BGl__loosez124832z12zzcfa_loosez00, 0L, 2 );
DEFINE_EXPORT_GENERIC( BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BgL_bgl__looseza7d2allocza7124834za7c0za7za7cfa_looseza7004896z00, BGl__loosezd2allocz124834zc0zzcfa_loosez00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_loosez00(long BgL_checksumz00_1502, char * BgL_fromz00_1503)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_loosez00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_loosez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_loosez00(); 
BGl_cnstzd2initzd2zzcfa_loosez00(); 
BGl_importedzd2moduleszd2initz00zzcfa_loosez00(); 
BGl_methodzd2initzd2zzcfa_loosez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_loosez00()
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 16 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "cfa_loose"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_loosez00()
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 16 */
{ /* ./Cfa/loose.scm 16 */
obj_t BgL_cportz00_1495;
BgL_cportz00_1495 = 
open_input_string(BGl_string4864z00zzcfa_loosez00); 
{ 
long BgL_iz00_1496;
BgL_iz00_1496 = ((long)2); 
BgL_loopz00_1497:
{ /* ./Cfa/loose.scm 16 */
bool_t BgL_test4866z00_1498;
BgL_test4866z00_1498 = 
(BgL_iz00_1496==((long)-1)); 
if(BgL_test4866z00_1498)
{ /* ./Cfa/loose.scm 16 */
return BUNSPEC;}  else 
{ /* ./Cfa/loose.scm 16 */
{ /* ./Cfa/loose.scm 16 */
obj_t BgL_arg4868z00_1499;
{ /* ./Cfa/loose.scm 16 */
obj_t BgL_list4871z00_1500;
BgL_list4871z00_1500 = 
MAKE_PAIR(BgL_cportz00_1495, BNIL); 
BgL_arg4868z00_1499 = 
BGl_readz00zz__readerz00(BgL_list4871z00_1500); } 
{ /* ./Cfa/loose.scm 16 */
int BgL_auxz00_1519;
BgL_auxz00_1519 = 
(int)(BgL_iz00_1496); 
CNST_TABLE_SET(BgL_auxz00_1519, BgL_arg4868z00_1499); } } 
{ /* ./Cfa/loose.scm 16 */
int BgL_auxz00_1501;
{ /* ./Cfa/loose.scm 16 */
long BgL_auxz00_1522;
BgL_auxz00_1522 = 
(BgL_iz00_1496-((long)1)); 
BgL_auxz00_1501 = 
(int)(BgL_auxz00_1522); } 
{ 
long BgL_iz00_1525;
BgL_iz00_1525 = 
(long)(BgL_auxz00_1501); 
BgL_iz00_1496 = BgL_iz00_1525; 
goto BgL_loopz00_1497;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcfa_loosez00()
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 16 */
return BUNSPEC;} 
}



/* loose! */
BGL_EXPORTED_DEF BgL_approxz00_bglt BGl_loosez12z12zzcfa_loosez00(BgL_approxz00_bglt BgL_approxz00_1, obj_t BgL_ownerz00_2)
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 35 */
{ /* ./Cfa/loose.scm 38 */
bool_t BgL_test4086z00_932;
{ /* ./Cfa/loose.scm 38 */
long BgL_arg4090z00_933;
BgL_arg4090z00_933 = 
(((BgL_approxz00_bglt)CREF(BgL_approxz00_1))->BgL_lostzd2stampzd2); 
{ /* ./Cfa/loose.scm 38 */
long BgL_n2z00_1453;
BgL_n2z00_1453 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
BgL_test4086z00_932 = 
(BgL_arg4090z00_933<BgL_n2z00_1453); } } 
if(BgL_test4086z00_932)
{ /* ./Cfa/loose.scm 38 */
{ /* ./Cfa/loose.scm 40 */
BgL_approxz00_bglt BgL_obj2672z00_1454;long BgL_val2671z00_1455;
BgL_obj2672z00_1454 = BgL_approxz00_1; 
BgL_val2671z00_1455 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
((((BgL_approxz00_bglt)CREF(BgL_obj2672z00_1454))->BgL_lostzd2stampzd2) = ((long)BgL_val2671z00_1455), BUNSPEC); } 
BGl_forzd2eachzd2approxzd2alloczd2zzcfa_approxz00(BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BgL_approxz00_1); }  else 
{ /* ./Cfa/loose.scm 38 */BFALSE; } } 
return BgL_approxz00_1;} 
}



/* _loose!4832 */
obj_t BGl__loosez124832z12zzcfa_loosez00(obj_t BgL_envz00_1485, obj_t BgL_approxz00_1486, obj_t BgL_ownerz00_1487)
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 35 */
{ /* ./Cfa/loose.scm 36 */
BgL_approxz00_bglt BgL_auxz00_1534;
BgL_auxz00_1534 = 
BGl_loosez12z12zzcfa_loosez00(
(BgL_approxz00_bglt)(BgL_approxz00_1486), BgL_ownerz00_1487); 
return 
(obj_t)(BgL_auxz00_1534);} } 
}



/* global-loose! */
BGL_EXPORTED_DEF obj_t BGl_globalzd2loosez12zc0zzcfa_loosez00(BgL_globalz00_bglt BgL_globalz00_5, BgL_approxz00_bglt BgL_approxz00_6)
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 58 */
{ /* ./Cfa/loose.scm 61 */
bool_t BgL_test4093z00_934;
{ /* ./Cfa/loose.scm 61 */
obj_t BgL_auxz00_1538;
BgL_auxz00_1538 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(((BgL_globalz00_bglt)CREF(BgL_globalz00_5))->BgL_importz00), 
CNST_TABLE_REF(((long)0))); 
BgL_test4093z00_934 = 
CBOOL(BgL_auxz00_1538); } 
if(BgL_test4093z00_934)
{ /* ./Cfa/loose.scm 62 */
BgL_approxz00_bglt BgL_auxz00_1544;
BgL_auxz00_1544 = 
BGl_loosez12z12zzcfa_loosez00(BgL_approxz00_6, 
CNST_TABLE_REF(((long)1))); 
return 
(obj_t)(BgL_auxz00_1544);}  else 
{ /* ./Cfa/loose.scm 61 */
return 
BGl_disablezd2Xzd2Tz12z12zzcfa_procedurez00(BgL_approxz00_6);} } } 
}



/* _global-loose!4836 */
obj_t BGl__globalzd2loosez124836zc0zzcfa_loosez00(obj_t BgL_envz00_1490, obj_t BgL_globalz00_1491, obj_t BgL_approxz00_1492)
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 58 */
return 
BGl_globalzd2loosez12zc0zzcfa_loosez00(
(BgL_globalz00_bglt)(BgL_globalz00_1491), 
(BgL_approxz00_bglt)(BgL_approxz00_1492));} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_loosez00()
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 16 */
return 
BGl_addzd2genericz12zc0zz__objectz00(BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BGl_loosezd2allocz12zd2default4084zd2envzc0zzcfa_loosez00);} 
}



/* loose-alloc! */
BGL_EXPORTED_DEF obj_t BGl_loosezd2allocz12zc0zzcfa_loosez00(BgL_nodez00_bglt BgL_nodez00_3)
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 47 */
{ /* ./Cfa/loose.scm 47 */
obj_t BgL_method4085z00_1457;
{ /* ./Cfa/loose.scm 47 */
BgL_objectz00_bglt BgL_objz00_1458;
BgL_objz00_1458 = 
(BgL_objectz00_bglt)(BgL_nodez00_3); 
{ /* ./Cfa/loose.scm 47 */
long BgL_objzd2classzd2numz00_1459;
BgL_objzd2classzd2numz00_1459 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1458); 
{ /* ./Cfa/loose.scm 47 */
obj_t BgL_arg2017z00_1460;
{ /* ./Cfa/loose.scm 47 */
int BgL_auxz00_1555;
BgL_auxz00_1555 = 
(int)(((long)1)); 
BgL_arg2017z00_1460 = 
PROCEDURE_REF(BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BgL_auxz00_1555); } 
{ /* ./Cfa/loose.scm 47 */
int BgL_offsetz00_1463;
BgL_offsetz00_1463 = 
(int)(BgL_objzd2classzd2numz00_1459); 
{ /* ./Cfa/loose.scm 47 */
long BgL_offsetz00_1464;
{ /* ./Cfa/loose.scm 47 */
long BgL_auxz00_1559;
BgL_auxz00_1559 = 
(long)(BgL_offsetz00_1463); 
BgL_offsetz00_1464 = 
(BgL_auxz00_1559-OBJECT_TYPE); } 
{ /* ./Cfa/loose.scm 47 */
long BgL_modz00_1465;
{ /* ./Cfa/loose.scm 47 */
int BgL_arg2028z00_1466;
BgL_arg2028z00_1466 = 
(int)(((long)8)); 
{ /* ./Cfa/loose.scm 47 */
long BgL_n2z00_1474;
BgL_n2z00_1474 = 
(long)(BgL_arg2028z00_1466); 
BgL_modz00_1465 = 
(BgL_offsetz00_1464/BgL_n2z00_1474); } } 
{ /* ./Cfa/loose.scm 47 */
long BgL_restz00_1467;
{ /* ./Cfa/loose.scm 47 */
int BgL_arg2024z00_1468;
BgL_arg2024z00_1468 = 
(int)(((long)8)); 
{ /* ./Cfa/loose.scm 47 */
long BgL_n2z00_1477;
BgL_n2z00_1477 = 
(long)(BgL_arg2024z00_1468); 
BgL_restz00_1467 = 
(BgL_offsetz00_1464%BgL_n2z00_1477); } } 
{ /* ./Cfa/loose.scm 47 */

{ /* ./Cfa/loose.scm 47 */
obj_t BgL_bucketz00_1469;
{ /* ./Cfa/loose.scm 47 */
int BgL_kz00_1479;
BgL_kz00_1479 = 
(int)(BgL_modz00_1465); 
BgL_bucketz00_1469 = 
VECTOR_REF(BgL_arg2017z00_1460,BgL_kz00_1479); } 
{ /* ./Cfa/loose.scm 47 */
int BgL_kz00_1481;
BgL_kz00_1481 = 
(int)(BgL_restz00_1467); 
BgL_method4085z00_1457 = 
VECTOR_REF(BgL_bucketz00_1469,BgL_kz00_1481); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4085z00_1457)(BgL_method4085z00_1457, 
(obj_t)(BgL_nodez00_3), BEOA);} } 
}



/* _loose-alloc!4834 */
obj_t BGl__loosezd2allocz124834zc0zzcfa_loosez00(obj_t BgL_envz00_1488, obj_t BgL_nodez00_1489)
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 47 */
return 
BGl_loosezd2allocz12zc0zzcfa_loosez00(
(BgL_nodez00_bglt)(BgL_nodez00_1489));} 
}



/* loose-alloc!-default4084 */
obj_t BGl_loosezd2allocz12zd2default4084z12zzcfa_loosez00(BgL_nodez00_bglt BgL_nodez00_4)
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 16 */
{ /* ./Cfa/loose.scm 16 */
obj_t BgL_procz00_1482;obj_t BgL_objectz00_1484;
BgL_procz00_1482 = 
CNST_TABLE_REF(((long)2)); 
BgL_objectz00_1484 = 
(obj_t)(BgL_nodez00_4); 
FAILURE(BgL_procz00_1482,BGl_string4863z00zzcfa_loosez00,BgL_objectz00_1484);} } 
}



/* _loose-alloc!-default4084 */
obj_t BGl__loosezd2allocz12zd2default4084z12zzcfa_loosez00(obj_t BgL_envz00_1493, obj_t BgL_nodez00_1494)
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 16 */
return 
BGl_loosezd2allocz12zd2default4084z12zzcfa_loosez00(
(BgL_nodez00_bglt)(BgL_nodez00_1494));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_loosez00()
{ AN_OBJECT;
{ /* ./Cfa/loose.scm 16 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zzcfa_iteratez00(((long)17824), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zzcfa_setz00(((long)21480), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zzcfa_info2z00(((long)0), "cfa_loose"); 
BGl_modulezd2initializa7ationz75zzcfa_approxz00(((long)43477), "cfa_loose"); 
return 
BGl_modulezd2initializa7ationz75zzcfa_procedurez00(((long)5948), "cfa_loose");} 
}

