-#define boolean int
-#define MAYBE (int)((RANDOM_SEED?random():(srandom(RANDOM_SEED=time(NULL)),random()))%2)
-#define WHOKNOWS (int)(srandom(time(NULL)),random()%2)
-#define create_var(ID,TYPE,INIT) TYPE ID=INIT
-#define define_var(ID,TYPE) TYPE ID
+#define MAYBE (int)((long)(RANDOM_SEED?random():((RANDOM_SEED=(unsigned)time(NULL)),srandom(RANDOM_SEED),random()))%2)
+#define WHOKNOWS (int)(srandom((unsigned)time(NULL)),random()%2)
+#define create_var(ID,TYPE,EXPR) TYPE ID=(EXPR)
+#define def_var(ID,TYPE) TYPE ID
+//#define _CLL1_YES char *YES="TRUE\nYES\nJA\nOUI\nDA\nANO\nY\n1";
+//#define atob(EXPR) (word_in_stri(YES,(EXPR))?1:0)
+//#else
+#define _CLL1_YES char *YES="TRUE";
+#define atob(EXPR) (eqi((EXPR),YES)?1:0)