-#define bool_str(I) (I?"TRUE":"FALSE")
-#define boolean int
+#define _GLOBALS time_t RANDOM_SEED=0; char *EOL="\n", *OFS=" ", *IFS=" \t\n", *NIL="NULL";
+#define coalesce(VALUE,NOTNULL) ((VALUE)?(VALUE):(NOTNULL))
/* ------------------------------------------------------------------- */
/* 6. C<<1 va_list based library functions, updated 2008-01-22 by xCh. */
/* ------------------------------------------------------------------- */
/* ------------------------------------------------------------------- */
/* 6. C<<1 va_list based library functions, updated 2008-01-22 by xCh. */
/* ------------------------------------------------------------------- */
-#define _ECHO void _cll1_print(int p,char *s, ... ) { int p2=0; va_list ap; for(va_start(ap,s);s!=(void *)&_cll1_print;s=va_arg(ap,char *)) { if(p) {if(p2) putchar(' '); else p2=1;} fputs(s?s:"",stdout); } va_end(ap); if(p) putchar('\n');}
+#define _ECHO void _cll1_print(int p,char *s, ... ) { int p2=0; va_list ap; for(va_start(ap,s);s!=(void *)&_cll1_print;s=va_arg(ap,char *)) { if(p) {if(p2) putchar(*OFS); else p2=1;} fputs(coalesce(s,NIL),stdout); } va_end(ap); if(p) putchar(*EOL);}
#define print(...) _cll1_print(1,__VA_ARGS__,(void *)&_cll1_print)
#define echo(...) _cll1_print(0,__VA_ARGS__,(void *)&_cll1_print)
/* ------------------------------------------------------------------- */
#define print(...) _cll1_print(1,__VA_ARGS__,(void *)&_cll1_print)
#define echo(...) _cll1_print(0,__VA_ARGS__,(void *)&_cll1_print)
/* ------------------------------------------------------------------- */
#define _ISTACK struct _IStack { int I; int _23; list(_IStack); } *_Iatom,*_Istack=NULL;
#define _SSTACK struct _SStack { char *S; int _23; list(_SSTACK); } *_Satom,*_Sstack=NULL;
#define _FSTACK struct _FStack { FILE *F; int _23; list(_FSTACK); } *_Fatom,*_Fstack=NULL;
#define _ISTACK struct _IStack { int I; int _23; list(_IStack); } *_Iatom,*_Istack=NULL;
#define _SSTACK struct _SStack { char *S; int _23; list(_SSTACK); } *_Satom,*_Sstack=NULL;
#define _FSTACK struct _FStack { FILE *F; int _23; list(_FSTACK); } *_Fatom,*_Fstack=NULL;
#define _NEW_(ATOM,STACK,TYPE) (create(ATOM,TYPE),ATOM->_23=1,push(ATOM,STACK);ATOM->_23||pop(ATOM,STACK)&&0;ATOM->_23--)
#define _NEW_I for _NEW_(_Iatom,_Istack,_IStack)
#define _NEW_(ATOM,STACK,TYPE) (create(ATOM,TYPE),ATOM->_23=1,push(ATOM,STACK);ATOM->_23||pop(ATOM,STACK)&&0;ATOM->_23--)
#define _NEW_I for _NEW_(_Iatom,_Istack,_IStack)
/* ------------------------------------------------------------------- */
/* Voila - here we go ! */
/* ------------------------------------------------------------------- */
/* ------------------------------------------------------------------- */
/* Voila - here we go ! */
/* ------------------------------------------------------------------- */
#define implement_cll1_functions _ECHO // _GET_STR _GET_MEM
#define define_cll1_interfaces //_CAKE
#define implement_cll1_library define_cll1_globals implement_cll1_functions define_cll1_interfaces
#define implement_cll1_functions _ECHO // _GET_STR _GET_MEM
#define define_cll1_interfaces //_CAKE
#define implement_cll1_library define_cll1_globals implement_cll1_functions define_cll1_interfaces