1	/*  Logiweb, a system for electronic distribution of mathematics
     2	    Copyright (C) 2004-2010 Klaus Grue
     3	
     4	    This program is free software; you can redistribute it and/or modify
     5	    it under the terms of the GNU General Public License as published by
     6	    the Free Software Foundation; either version 2 of the License, or
     7	    (at your option) any later version.
     8	
     9	    This program is distributed in the hope that it will be useful,
    10	    but WITHOUT ANY WARRANTY; without even the implied warranty of
    11	    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    12	    GNU General Public License for more details.
    13	
    14	    You should have received a copy of the GNU General Public License
    15	    along with this program; if not, write to the Free Software
    16	    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    17	
    18	    Contact: Klaus Grue, DIKU, Universitetsparken 1, DK2100 Copenhagen,
    19	    Denmark, grue@diku.dk, http://logiweb.eu/, http://www.diku.dk/~grue/
    20	
    21	    Logiweb is a system for distribution of mathematical definitions,
    22	    lemmas, and proofs. For more on Logiweb, consult http://logiweb.eu/.
    23	*/
    24	
    25	/**********
    26	 * Config *
    27	 **********/
    28	
    29	/* Max percentage of available ram that can be allocated for the heap */
    30	#ifndef HEAPMAX0
    31	#define HEAPMAX0 90
    32	#endif
    33	
    34	/* Percentage of max heap required to be free after GC. Quit if not met. */
    35	#ifndef HEAPMAX1
    36	#define HEAPMAX1 90
    37	#endif
    38	
    39	/* Percentage of heap required to be free after GC. Allocate if not met. */
    40	#ifndef HEAPMAX2
    41	#define HEAPMAX2 70
    42	#endif
    43	
    44	/* Percentage of heap to be free after allocation if permitted by HEAPMAX0 */
    45	#ifndef HEAPMAX3
    46	#define HEAPMAX3 50
    47	#endif
    48	
    49	/* Size of memory area reserved for stack */
    50	#ifndef STACKSIZE
    51	#define STACKSIZE 50000000
    52	#endif
    53	
    54	/* Area reserved for defined constants */
    55	#ifndef STORESIZE
    56	#define STORESIZE 10000
    57	#endif
    58	
    59	/* When TRUE: do Garbage Collection (GC) for *each* allocation (takes time!) */
    60	#ifndef ALWAYSGC
    61	#define ALWAYSGC FALSE
    62	#endif
    63	
    64	/* When TRUE: Print Garbage Collection (GC) statistics for each GC */
    65	#ifndef PRINTGC
    66	#define PRINTGC FALSE
    67	#endif
    68	
    69	
    70	
    71	/************
    72	 * INCLUDES *
    73	 ************/
    74	
    75	#include <errno.h>
    76	#include <stdio.h>
    77	#include <stdlib.h>
    78	#include <string.h>
    79	#include <limits.h>
    80	#include <sys/time.h>
    81	#include <sys/types.h>
    82	#include <sys/stat.h>
    83	#include <fcntl.h>
    84	#include <stdint.h>
    85	#include <unistd.h>
    86	#include <sys/wait.h>
    87	#include <dlfcn.h>
    88	#include <signal.h>
    89	#include <sys/mman.h>
    90	#ifndef __CYGWIN__
    91	#include <sys/sysinfo.h>
    92	#else
    93	#include <process.h>
    94	#endif /* __CYGWIN__ */
    95	
    96	
    97	
    98	/******************
    99	 * INCLUDED PAGES *
   100	 ******************/
   101	
   102	#include "pages.c"
   103	
   104	
   105	
   106	/***********
   107	 * DEFINES *
   108	 ***********/
   109	
   110	/*
   111	cons(TAG_FALSE   ,NIL  ,NIL  ) The constant F
   112	cons(TAG_INT     ,val  ,int  ) Val is the least significant word of the integer
   113	cons(TAG_VECT    ,bytes,vect ) Bytes are the least significant word of the vect
   114	cons(TAG_PAIR    ,head ,tail ) Tagged pair
   115	cons(TAG_EX      ,arg  ,NIL  ) Exception
   116	cons(TAG_MAP     ,map  ,info ) Tagged map. the 'info' is for the optimizer
   117	cons(TAG_OBJ     ,tag  ,val  ) Object
   118	cons(TAG_GARB    ,NIL  ,NIL  ) Garbage
   119	cons(TTAG_APPLY  ,fct  ,arg  ) Functional applicationat term level
   120	cons(TTAG_LAMBDA ,term ,NIL  ) Lambda abstraction at term level
   121	cons(TTAG_VAR    ,index,NIL  ) The variable with the given deBruijn index
   122	cons(TTAG_PAIR   ,head ,tail ) Raw pairing at term level
   123	cons(TTAG_CONST  ,rnf  ,NIL  ) A term whose value is the given rnf
   124	cons(TTAG_CALL   ,term ,term*) Evaluate term in given term* environment
   125	cons(TTAG_ECALL  ,eterm,term*) Evaluate eager term in given term* environment
   126	cons(MTAG_CLOSURE,term ,env  ) Value of term in given closure* environment
   127	cons(MTAG_INDIR  ,NIL  ,rnf  ) Indirection to the given rnf
   128	cons(MTAG_PAIR   ,head ,tail ) Raw pairing at map level
   129	cons(MTAG_LAMBDA ,term ,env  ) \x.term in given closure* environment
   130	cons(MTAG_FIX    ,NIL  ,NIL  ) Fixed point operator
   131	
   132	Eager term tags:
   133	
   134	ETAG_var
   135	ETAG_ecall
   136	ETAG_digit0    " %0
   137	ETAG_digit1    " %1
   138	ETAG_digit2    " %2
   139	ETAG_digit3    " %3
   140	ETAG_digit4    " %4
   141	ETAG_digit5    " %5
   142	ETAG_digit6    " %6
   143	ETAG_digit7    " %7
   144	ETAG_digit8    " %8
   145	ETAG_digit9    " %9
   146	ETAG_times     " * "
   147	ETAG_plus      " + "
   148	ETAG_minus     " - "
   149	ETAG_and       " .and. "
   150	ETAG_or        " .or. "
   151	ETAG_then      " .then. "
   152	ETAG_pair      " :: "
   153	ETAG_lt        " < "
   154	ETAG_le        " <= "
   155	ETAG_equal     " = "
   156	ETAG_gt        " > "
   157	ETAG_ge        " >= "
   158	ETAG_apply     " apply "
   159	ETAG_boolp     " boolp
   160	ETAG_catch     " catch
   161	ETAG_maptag1   " catching maptag
   162	ETAG_div       " div "
   163	ETAG_head      " head
   164	ETAG_intp      " intp
   165	ETAG_boolg     " is bool : "
   166	ETAG_intg      " is int : "
   167	ETAG_mapg      " is map : "
   168	ETAG_objg      " is object : "
   169	ETAG_pairg     " is pair : "
   170	ETAG_mapp      " mapp
   171	ETAG_maptag    " maptag
   172	ETAG_mod       " mod "
   173	ETAG_norm      " norm
   174	ETAG_objp      " objectp
   175	ETAG_pairp     " pairp
   176	ETAG_raise     " raise
   177	ETAG_root      " root
   178	ETAG_tail      " tail
   179	ETAG_untag     " untag
   180	ETAG_digitend  %%
   181	ETAG_par       ( " )
   182	ETAG_uplus     + "
   183	ETAG_dplus     +"
   184	ETAG_uminus    - "
   185	ETAG_dminus    -"
   186	ETAG_not       .not. "
   187	ETAG_Base      Base
   188	ETAG_LET       LET " BE "
   189	ETAG_ash       ash ( " , " )
   190	ETAG_bottom    bottom
   191	ETAG_bt2bytes  bt2byte* ( " )
   192	ETAG_bt2vects  bt2vector* ( " )
   193	ETAG_bt2vector bt2vector ( " )
   194	ETAG_ceiling   ceiling ( " , " )
   195	ETAG_destruct  destruct ( " )
   196	ETAG_evenp     evenp ( " )
   197	ETAG_exception exception
   198	ETAG_false     false
   199	ETAG_floor     floor ( " , " )
   200	ETAG_half      half ( " )
   201	ETAG_if        if " then " else "
   202	ETAG_intlength integer-length ( " )
   203	ETAG_logand    logand ( " , " )
   204	ETAG_logandc1  logandc1 ( " , " )
   205	ETAG_logandc2  logandc2 ( " , " )
   206	ETAG_logbitp   logbitp ( " , " )
   207	ETAG_logcount  logcount ( " )
   208	ETAG_logeqv    logeqv ( " , " )
   209	ETAG_logior    logior ( " , " )
   210	ETAG_lognand   lognand ( " , " )
   211	ETAG_lognor    lognor ( " , " )
   212	ETAG_lognot    lognot ( " )
   213	ETAG_logorc1   logorc1 ( " , " )
   214	ETAG_logorc2   logorc2 ( " , " )
   215	ETAG_logtest   logtest ( " , " )
   216	ETAG_logxor    logxor ( " , " )
   217	ETAG_map       map ( " )
   218	ETAG_prenorm   norm "
   219	ETAG_notnot    notnot "
   220	ETAG_object    object ( " )
   221	ETAG_print     print ( " )
   222	ETAG_round     round ( " , " )
   223	ETAG_spy       spy ( " )
   224	ETAG_timer     timer ( " )
   225	ETAG_trace     trace ( " )
   226	ETAG_truncate  truncate ( " , " )
   227	ETAG_vector    vector ( " )
   228	ETAG_vnorm     vector-norm ( " )
   229	ETAG_vempty    vector-empty ( " )
   230	ETAG_vindex    vector-index ( " , " )
   231	ETAG_vlength   vector-length ( " )
   232	ETAG_vprefix   vector-prefix ( " , " )
   233	ETAG_vsubseq   vector-subseq ( " , " , " )
   234	ETAG_vsuffix   vector-suffix ( " , " )
   235	ETAG_v2bytes   vector2byte* ( " )
   236	ETAG_v2vects   vector2vector* ( " )
   237	ETAG_vt2bytes  vt2byte* ( " )
   238	ETAG_vt2vects  vt2vector* ( " )
   239	ETAG_vt2v      vt2vector ( " )
   240	ETAG_yy        YY
   241	ETAG_compile   compile ( " )
   242	ETAG_ripemd    ripemd ( " )
   243	ETAG_sl2rack   sl2rack ( " )
   244	ETAG_rack2sl   rack2sl ( " )
   245	*/
   246	
   247	/* Accessors */
   248	#define ROOT(x) (((cell*)(x))->root)
   249	#define HEAD(x) (((cell*)(x))->head)
   250	#define TAIL(x) (((cell*)(x))->tail)
   251	
   252	/* Number of tags */
   253	#define TAG_SIZE       256
   254	
   255	/* Data tags */
   256	#define TAG_FALSE        1
   257	#define TAG_INT          2
   258	#define TAG_VECT         3
   259	#define TAG_PAIR         4
   260	#define TAG_EX           5
   261	#define TAG_MAP          6
   262	#define TAG_OBJ          7
   263	#define TAG_GARB         8
   264	
   265	/* Term tags */
   266	#define TTAG_APPLY      20
   267	#define TTAG_LAMBDA     21
   268	#define TTAG_VAR        22
   269	#define TTAG_PAIR       23
   270	#define TTAG_CONST      24
   271	#define TTAG_CALL       25
   272	#define TTAG_ECALL      26
   273	
   274	/* Map tags */
   275	#define MTAG_CLOSURE    30
   276	#define MTAG_INDIR      31
   277	#define MTAG_PAIR       32
   278	#define MTAG_LAMBDA     33
   279	#define MTAG_FIX        34
   280	
   281	/* Class tags */
   282	#define CTAG_MAP        40
   283	#define CTAG_EMAP       41
   284	#define CTAG_TRUE       42
   285	#define CTAG_APPLY      43
   286	#define CTAG_IF         44
   287	
   288	/* Optimized function tags 
   289	   (ETAG for "eager tag" since most optimized functions are eager) */
   290	#define ETAG_var       100
   291	#define ETAG_ecall     101
   292	#define ETAG_digit0    102
   293	#define ETAG_digit1    103
   294	#define ETAG_digit2    104
   295	#define ETAG_digit3    105
   296	#define ETAG_digit4    106
   297	#define ETAG_digit5    107
   298	#define ETAG_digit6    108
   299	#define ETAG_digit7    109
   300	#define ETAG_digit8    110
   301	#define ETAG_digit9    111
   302	#define ETAG_times     112
   303	#define ETAG_plus      113
   304	#define ETAG_minus     114
   305	#define ETAG_and       115
   306	#define ETAG_or        116
   307	#define ETAG_then      117
   308	#define ETAG_pair      118
   309	#define ETAG_lt        119
   310	#define ETAG_le        120
   311	#define ETAG_equal     121
   312	#define ETAG_gt        122
   313	#define ETAG_ge        123
   314	#define ETAG_apply     124
   315	#define ETAG_boolp     125
   316	#define ETAG_catch     126
   317	#define ETAG_maptag1   127
   318	#define ETAG_div       128
   319	#define ETAG_head      129
   320	#define ETAG_intp      130
   321	#define ETAG_boolg     131
   322	#define ETAG_intg      132
   323	#define ETAG_mapg      133
   324	#define ETAG_objg      134
   325	#define ETAG_pairg     135
   326	/*      ETAG_valg      136*/
   327	#define ETAG_mapp      137
   328	#define ETAG_maptag    138
   329	#define ETAG_mod       139
   330	#define ETAG_norm      140
   331	#define ETAG_objp      141
   332	#define ETAG_pairp     142
   333	#define ETAG_raise     143
   334	#define ETAG_root      144
   335	#define ETAG_tail      145
   336	#define ETAG_untag     146
   337	#define ETAG_digitend  147
   338	#define ETAG_par       148
   339	#define ETAG_uplus     149
   340	#define ETAG_dplus     150
   341	#define ETAG_uminus    151
   342	#define ETAG_dminus    152
   343	#define ETAG_not       153
   344	#define ETAG_Base      154
   345	#define ETAG_LET       155
   346	#define ETAG_ash       156
   347	#define ETAG_bottom    157
   348	#define ETAG_bt2bytes  158
   349	#define ETAG_bt2vects  205
   350	#define ETAG_bt2vector 159
   351	#define ETAG_ceiling   160
   352	#define ETAG_destruct  161
   353	#define ETAG_evenp     162
   354	#define ETAG_exception 163
   355	#define ETAG_false     164
   356	#define ETAG_floor     165
   357	#define ETAG_half      166
   358	#define ETAG_if        167
   359	#define ETAG_intlength 168
   360	#define ETAG_logand    169
   361	#define ETAG_logandc1  170
   362	#define ETAG_logandc2  171
   363	#define ETAG_logbitp   172
   364	#define ETAG_logcount  173
   365	#define ETAG_logeqv    174
   366	#define ETAG_logior    175
   367	#define ETAG_lognand   176
   368	#define ETAG_lognor    177
   369	#define ETAG_lognot    178
   370	#define ETAG_logorc1   179
   371	#define ETAG_logorc2   180
   372	#define ETAG_logtest   181
   373	#define ETAG_logxor    182
   374	#define ETAG_map       183
   375	#define ETAG_prenorm   184
   376	#define ETAG_notnot    185
   377	#define ETAG_object    186
   378	#define ETAG_print     187
   379	#define ETAG_round     188
   380	#define ETAG_spy       189
   381	#define ETAG_timer     190
   382	#define ETAG_trace     191
   383	#define ETAG_truncate  192
   384	#define ETAG_vector    193
   385	#define ETAG_vnorm     208
   386	#define ETAG_vempty    194
   387	#define ETAG_vindex    195
   388	#define ETAG_vlength   196
   389	#define ETAG_vprefix   197
   390	#define ETAG_vsubseq   198
   391	#define ETAG_vsuffix   199
   392	#define ETAG_v2bytes   200
   393	#define ETAG_v2vects   206
   394	#define ETAG_vt2bytes  201
   395	#define ETAG_vt2vects  207
   396	#define ETAG_vt2v      202
   397	#define ETAG_yy        203
   398	#define ETAG_compile   204
   399	#define ETAG_ripemd    209
   400	#define ETAG_sl2rack   210
   401	#define ETAG_rack2sl   211
   402	
   403	/* True if x is *not* of given type */
   404	
   405	#define GD_INT(x)  ((ROOT(x)|1)!=TAG_VECT)
   406	#define GD_PAIR(x) (ROOT(x)!=TAG_PAIR)
   407	#define GD_EX(x)   (ROOT(x)!=TAG_EX)
   408	#define GD_MAP(x)  (ROOT(x)!=TAG_MAP)
   409	#define GD_OBJ(x)  (ROOT(x)!=TAG_OBJ)
   410	
   411	/* True if x is *not* of given type */
   412	
   413	#define NO_BOOL(x) (((x)!=T)&&(ROOT(x)!=TAG_FALSE))
   414	#define NO_INT(x)  (((x)==T)||GD_INT(x))
   415	#define NO_PAIR(x) (((x)==T)||GD_PAIR(x))
   416	#define NO_EX(x)   (((x)==T)||GD_EX(x))
   417	#define NO_MAP(x)  (((x)==T)||GD_MAP(x))
   418	#define NO_OBJ(x)  (((x)==T)||GD_OBJ(x))
   419	
   420	/* True if x is of given type */
   421	
   422	#define IS_BOOL(x) (!NO_BOOL(x))
   423	#define IS_INT(x)  (!NO_INT (x))
   424	#define IS_PAIR(x) (!NO_PAIR(x))
   425	#define IS_EX(x)   (!NO_EX  (x))
   426	#define IS_MAP(x)  (!NO_MAP (x))
   427	#define IS_OBJ(x)  (!NO_OBJ (x))
   428	
   429	/* NIL pointer, map truth, C truth and C falsehood */
   430	#define NIL       0
   431	#define T         0
   432	#define TRUE      1
   433	#define FALSE     0
   434	#define ENDFILE 256
   435	
   436	/* Conversion of negative x to -1 and other x to 0 */
   437	#define SIGN(x) ((x)&signmask?M:Z)
   438	
   439	/* Operations on halfwords */
   440	#define HALFHEAD(x) ((x)&halfmask)
   441	#define HALFTAIL(x) ((x)>>halfsize)
   442	#define HALFCONS(x,y) (((x)&halfmask)+((y)<<halfsize))
   443	
   444	/* Test constructs */
   445	#define test(x) {testfct(#x);if(!(x)){printf("\nTest failed\n");exit(1);}}
   446	#define ttst(x) test(T==(x))
   447	#define ftst(x) test(F==(x))
   448	#define xtst(x) test(X==(x))
   449	#define ntst(x) test(NIL==(x))
   450	#define ptst(x) test(NIL!=(x))
   451	#define etst(x,y) test(T==EQ(x,y))
   452	#define utst(x,y) test(F==EQ(x,y))
   453	#define prn(x) {printf("%s\n",#x);spy0(x);}
   454	#define N(x) str2int(#x)
   455	#define V(x) str2vec(#x)
   456	#define W(e,x) str2nonvec(e,#x)
   457	#define SYM(x) keep(pair(Z,pair(V(x),T)))
   458	#define TREE(x) keep(pair(pair(Z,pair(V(x),T)),T))
   459	
   460	/* String operations */
   461	#define STREQ(x,y) (!strcmp((char *)(x),(char *)(y)))
   462	
   463	/* Top of stack */
   464	#define TOP stack[sp]
   465	
   466	/* Constant definitions */
   467	#define SETQ(x,y) x=(testfct(#x),keep(y))
   468	#define DEFC(x,y) pnt x=(testfct(#x),keep(y))
   469	
   470	/* Disable and enable ALWAYSGC */
   471	#define TRUSTGC always_gc=FALSE
   472	#define UNTRUSTGC always_gc=ALWAYSGC
   473	
   474	/* Safe constructor */
   475	#define SCONS(x,y,z) (push(y),scons(x,z))
   476	#define MAP_PAIR(x,y) SCONS(MTAG_PAIR,x,y)
   477	
   478	/* Script processing */
   479	#define PATHSIZE _POSIX_PATH_MAX
   480	#define LF 10
   481	#define CR 13
   482	
   483	/* Rack reading */
   484	#define RACK_INT 0
   485	#define RACK_NIL 1
   486	#define RACK_ARRAY 2
   487	#define RACK_START 3
   488	
   489	
   490	
   491	/*********
   492	 * TYPES *
   493	 *********/
   494	
   495	/* The types must be such that x = (cell*)(pnt)x for all cell* x */
   496	
   497	typedef uintptr_t pnt;
   498	typedef intptr_t spnt;
   499	typedef struct cell {pnt root,head,tail;} cell;
   500	typedef int (*Trigger)(int);
   501	
   502	
   503	
   504	/********************
   505	 * GLOBAL VARIABLES *
   506	 ********************/
   507	
   508	pnt stack[STACKSIZE];       /* The stack */
   509	pnt store[STORESIZE];       /* List of constants */
   510	pnt store_type[STORESIZE];  /* Types of constants */
   511	unsigned char
   512	  *store_name[STORESIZE];   /* Names of constants */
   513	pnt sp=STACKSIZE;           /* Stack pointer */
   514	pnt storepnt=STORESIZE;     /* Store pointer */
   515	pnt garb;                   /* list of garbage collected cells */
   516	pnt heaplist;               /* list individually allocated heap chunks */
   517	pnt heapsize;               /* total heap size */
   518	pnt heapmax;                /* max allowable heap size */
   519	pnt collected;              /* number of cells collected by last gc */
   520	pnt always_gc=ALWAYSGC;     /* When 1 do GC on every allocation */
   521	pnt global_x;               /* Head of cons in progress */
   522	pnt global_y;               /* Tail of cons in progress */
   523	pnt F;                      /* the constant F (false) */
   524	pnt X;                      /* the constant X (exception) */
   525	pnt Z;                      /* the constant 0 */
   526	pnt M;                      /* the constant -1 */
   527	pnt E;                      /* the empty vector */
   528	pnt I[256];                 /* the constants 0..255 */
   529	pnt bytevect[256];          /* byte vectors of length 1 */
   530	pnt pntsize;                /* the number of bits in a pnt */
   531	pnt signmask;               /* mask with most significant bit set */
   532	pnt markmask;               /* mask with secondmost significant bit set */
   533	pnt halfsize;               /* the half of pntsize */
   534	pnt halfmask;               /* mask with lower half set */
   535	pnt septetmask;             /* mask with upper seven bits set */
   536	pnt bytesize;               /* 1/8 of pntsize */
   537	pnt term_t;                 /* T as a term, translation of proclaimed 'true' */
   538	pnt term_f;                 /* F as a term */
   539	pnt var_0;                  /* the variable with deBruijn index 0 */
   540	pnt var_1;                  /* the variable with deBruijn index 1 */
   541	pnt var_2;                  /* the variable with deBruijn index 2 */
   542	pnt varlist_1;              /* list containing var_0 */
   543	pnt varlist_2;              /* list containing var_1 and var_0 */
   544	pnt varlist_3;              /* list containing var_2, var_1, and var_0 */
   545	pnt term_fix;               /* term used for defining fixed point operator */
   546	pnt map_fix;                /* fixed point operator */
   547	pnt V0;                     /* Eager variable with deBruijn index 0 */
   548	pnt V1;                     /* Eager variable with deBruijn index 1 */
   549	pnt V2;                     /* Eager variable with deBruijn index 2 */
   550	pnt V3;                     /* Eager variable with deBruijn index 3 */
   551	pnt term_delay;             /* V(0)'V(1) */
   552	pnt map_t;                  /* T as a map */
   553	pnt map_f;                  /* F as a map */
   554	pnt maptag_int;             /* tag of int as general map */
   555	pnt maptag_pair;            /* tag of pair as general map */
   556	pnt maptag_ex;              /* tag of exception as general map */
   557	pnt maptag_map;             /* tag of tagged map as general map */
   558	pnt fct_lambda;             /* translation of proclaimed 'lambda' */
   559	pnt fct_apply;              /* translation of proclaimed 'apply' */
   560	pnt fct_if;                 /* translation of proclaimed 'if' */
   561	pnt fct_true;               /* translation of proclaimed 'true' */
   562	pnt fct_quote;              /* translation of proclaimed 'quote' */
   563	pnt const_bib;              /* "bibliography" as a vector */
   564	pnt const_dict;             /* "dictionary" as a vector */
   565	pnt const_body;             /* "body" as a vector */
   566	pnt const_vector;           /* "vector" as a vector */
   567	pnt const_expansion;        /* "expansion" as a vector */
   568	pnt const_diagnose;         /* "diagnose" as a vector */
   569	pnt const_cache;            /* "cluster" as a vector */
   570	pnt const_code;             /* "code" as a vector */
   571	pnt const_codex;            /* "codex" as a vector */
   572	pnt const_definition;       /* "definition" as a vector */
   573	pnt const_name;             /* "name" as a vector */
   574	pnt const_value;            /* "value" as a vector */
   575	pnt const_unpack;           /* "unpack" as a vector */
   576	pnt const_macro;            /* "macro" as a vector */
   577	pnt const_claim;            /* "claim" as a vector */
   578	pnt const_render;           /* "render" as a vector */
   579	pnt const_execute;          /* "execute" as a vector */
   580	pnt const_executables;      /* "executable" as a vector */
   581	pnt const_lambda;           /* "lambda" as a vector */
   582	pnt const_apply;            /* "apply" as a vector */
   583	pnt const_if;               /* "if" as a vector */
   584	pnt const_true;             /* "true" as a vector */
   585	pnt const_quote;            /* "quote" as a vector */
   586	pnt const_spy;              /* "spy" as a vector */
   587	pnt const_trace;            /* "trace" as a vector */
   588	pnt const_print;            /* "print" as a vector */
   589	pnt const_timer;            /* "timer" as a vector */
   590	pnt const_quit;             /* "quit" as a vector */
   591	pnt const_write;            /* "write" as a vector */
   592	pnt const_exec;             /* "exec" as a vector */
   593	pnt const_read;             /* "read" as a vector */
   594	pnt const_extend;           /* "extend" as a vector */
   595	pnt sym_exec;               /* "exec" as a symbol */
   596	pnt sym_extend;             /* "extend" as a symbol */
   597	pnt sym_boot;               /* "boot" as a symbol */
   598	pnt sym_read;               /* "read" as a symbol */
   599	pnt tree_introduce;         /* "introduce" as a tree */
   600	pnt tree_define;            /* "define" as a tree */
   601	pnt tree_exit;              /* "exit" as a tree */
   602	pnt tree_time;              /* "time" as a tree */
   603	pnt tree_memory;            /* "memory" as a tree */
   604	pnt code_cclaim;            /* compile_claim as code */
   605	pnt state;                  /* Repository for loaded pages */
   606	pnt test;                   /* Suppresses testsuite when false */
   607	pnt spyvar=T;               /* Storage for 'spy' variable */
   608	pnt spycnt=0;               /* Count which limits output from spy1 */
   609	pnt record=TRUE;            /* TRUE until patterns have been recorded */
   610	char *tag2string[TAG_SIZE]; /* tag name */
   611	pnt tag2eager[TAG_SIZE];    /* T for introduced, eager constructs */
   612	pnt tag2name[TAG_SIZE];     /* Logiweb name */
   613	pnt tag2rhs[TAG_SIZE];      /* right hand side of template definition */
   614	pnt tag2arg[TAG_SIZE];      /* argument list of template definition */
   615	char lgw_path1[PATHSIZE];   /* value of LGW_PATH environment variable */
   616	char *lgw_path=0;           /* zero or pointer to lgw_path1 */
   617	
   618	
   619	
   620	/******************************************
   621	 * Global variables for machine execution *
   622	 ******************************************/
   623	
   624	pnt inputs=T;
   625	pnt outputs=T;
   626	pnt event=T;
   627	pnt extensions=T;
   628	int return_value=0;
   629	
   630	
   631	
   632	/************************
   633	 * FORWARD DECLARATIONS *
   634	 ************************/
   635	
   636	void spy1(pnt x);
   637	pnt nameget(pnt caches,pnt ref,pnt idx);
   638	pnt term2rnf(pnt term,pnt env);
   639	pnt eval(pnt term,pnt env);
   640	pnt untag1(pnt x);
   641	void testsuite();
   642	pnt compile(pnt x);
   643	pnt ripemd(pnt source);
   644	pnt sl2rack(pnt x);
   645	pnt rack2sl(pnt x);
   646	void deathReport();
   647	
   648	/*******************
   649	 * ERROR FUNCTIONS *
   650	 *******************/
   651	
   652	void die(char *msg){
   653	  printf("lgwam: %s\n",msg);
   654	  deathReport();
   655	  exit(1);}
   656	
   657	void xdie(char *msg){
   658	  printf("%s\n",msg);
   659	  deathReport();
   660	  exit(1);}
   661	
   662	pnt pdie(char *msg){
   663	  perror(msg);
   664	  deathReport();
   665	  exit(1);}
   666	
   667	
   668	
   669	/*********
   670	 * STACK *
   671	 *********/
   672	
   673	void push(pnt x){
   674	  if(sp==0) die("Stack overflow");
   675	  stack[--sp]=x;}
   676	
   677	pnt save(pnt x){
   678	  push(x);
   679	  return x;}
   680	
   681	pnt pop(){
   682	  return stack[sp++];}
   683	
   684	pnt ret(pnt x,pnt y){
   685	  sp=sp+x;
   686	  return y;}
   687	
   688	
   689	
   690	/*********
   691	 * STORE *
   692	 *********/
   693	
   694	/* The store is a stack for constants to be protected from gc */
   695	
   696	pnt keep3(pnt type,unsigned char *name,pnt value){
   697	  if(storepnt==0) die("Store overflow");
   698	  storepnt--;
   699	  store_type[storepnt]=type;
   700	  store_name[storepnt]=name;
   701	  store[storepnt]=value;
   702	  return value;}
   703	
   704	pnt keep(pnt value){
   705	  return keep3((pnt)0,(unsigned char *)"",value);}
   706	
   707	pnt store_find(pnt type,unsigned char *name){
   708	  pnt i;
   709	  for(i=storepnt;i<STORESIZE;i++)
   710	  if((store_type[i]==type)&&(STREQ(store_name[i],name))) return store[i];
   711	  return T;}
   712	
   713	
   714	
   715	/************************
   716	 * TEST SUITE FUNCTIONS *
   717	 ************************/
   718	
   719	void printesc(pnt x){
   720	  printf("\\%d%d",(int)(x/16),(int)(x%16));}
   721	
   722	void printchar(pnt x){
   723	  x=x&0xFF;
   724	  if(x=='"') printf("\\\""); else
   725	  if(x=='\\') printf("\\\\"); else
   726	  if(x==10) printf("\n"); else
   727	  if(x<32) printesc(x); else
   728	  if(x<127) printf("%c",(int)x); else
   729	  printesc(x);}
   730	
   731	void prn1(char *str,pnt x){
   732	  printf("%s",str);
   733	  printf("(");
   734	  spy1(x);
   735	  printf(")");}
   736	
   737	void prn2(char *str,pnt x,pnt y){
   738	  printf("%s",str);
   739	  printf("(");
   740	  spy1(x);
   741	  printf(",");
   742	  spy1(y);
   743	  printf(")");}
   744	
   745	pnt invalid_tag(pnt tag){
   746	  if(tag>=TAG_SIZE) return TRUE;
   747	  if(tag2string[tag]==NIL) return TRUE;
   748	  return FALSE;}
   749	
   750	char *safe_tag2string(pnt tag){
   751	  if(invalid_tag(tag)) return "TAG_UNKNOWN";
   752	  return tag2string[tag];}
   753	
   754	void spytag(pnt tag){
   755	  if(tag&signmask) printf("*");
   756	  if(tag&markmask) printf("#");
   757	  printf("%s",safe_tag2string(tag&~signmask&~markmask));}
   758	
   759	void spytag0(pnt tag){
   760	  spytag(tag);
   761	  printf("\n");}
   762	
   763	void spytagroot1(pnt x){
   764	  if(x==T) printf("TAG_TRUE"); else spytag(ROOT(x));}
   765	
   766	void spytagroot0(pnt x){
   767	  spytagroot1(x);
   768	  printf("\n");}
   769	
   770	void unexpected_tag(char *msg,pnt value){
   771	  printf("%s: unexpected tag: ",msg);
   772	  spytagroot0(value);
   773	  die("Goodbye");}
   774	
   775	#define PNTBUFSIZE 100
   776	
   777	char pntbuffer[PNTBUFSIZE];
   778	
   779	int ptoa1(pnt x){
   780	  int position;
   781	  if(x==0) return 0;
   782	  position=ptoa1(x/10);
   783	  pntbuffer[position++]='0'+x%10;
   784	  if(position>=PNTBUFSIZE) die("Internal error: pnt buffer overflow");
   785	  return position;}
   786	
   787	char *ptoa(pnt x){
   788	  if(x==0){
   789	    pntbuffer[0]='0';
   790	    pntbuffer[1]=0;}
   791	  else{
   792	    pntbuffer[ptoa1(x)]=0;}
   793	  return pntbuffer;}
   794	
   795	void spydigits1(FILE *f,pnt x){
   796	  if(x==0) return;
   797	  spydigits1(f,x/10);
   798	  fprintf(f,"%d",(int)(x%10));}
   799	
   800	void spydigits(FILE *f,pnt x){
   801	  if(x==0) fprintf(f,"0"); else spydigits1(f,x);}
   802	
   803	void spydigitsln(char *msg,pnt x){
   804	  fprintf(stderr,"%s ",msg);
   805	  spydigits(stderr,x);
   806	  fprintf(stderr,"\n");}
   807	
   808	void spyint0(pnt x){
   809	  spydigits(stdout,HEAD(x));
   810	  for(x=TAIL(x);x;x=TAIL(x)){printf(" ");spydigits(stdout,HEAD(x));}}
   811	
   812	/*
   813	void spyint0(pnt x){
   814	  printf("%u",HEAD(x));
   815	  for(x=TAIL(x);x;x=TAIL(x)) printf(" %u",HEAD(x));}
   816	*/
   817	
   818	void spyvect(pnt x){
   819	  printf("\"");
   820	  for(;TAIL(x);x=TAIL(x)){
   821	    pnt i;
   822	    pnt y=HEAD(x);
   823	    for(i=0;i<bytesize;i++){
   824	      printchar(y);
   825	      y=y>>8;}}
   826	  for(x=HEAD(x);x>1;x=x>>8) printchar(x);
   827	  printf("\"");}
   828	
   829	/*
   830	void spyint1(pnt x){
   831	  if((TAIL(x)==T)&&((HEAD(x)<10000)||((HEAD(x))>1+~10000))){
   832	    printf("%5d",(int)(HEAD(x)));
   833	    return;}
   834	  printf("#");
   835	  spyvect(x);}
   836	*/
   837	
   838	void spyname(pnt x,pnt arglist){
   839	  for(;TAIL(x);x=TAIL(x)){
   840	    pnt i;
   841	    pnt y=HEAD(x);
   842	    for(i=0;i<bytesize;i++){
   843	      if((y&255)!='"'||NO_PAIR(arglist)) printchar(y);
   844	      else {spy1(HEAD(arglist));arglist=TAIL(arglist);}
   845	      y=y>>8;}}
   846	  for(x=HEAD(x);x>1;x=x>>8)
   847	  if((x&255)!='"'||NO_PAIR(arglist)) printchar(x);
   848	  else {spy1(HEAD(arglist));arglist=TAIL(arglist);}
   849	  if(arglist==T) return;
   850	  printf(":");
   851	  spy1(arglist);}
   852	
   853	pnt root2name(pnt x){
   854	  pnt root,ref,idx,name;
   855	  root=HEAD(x);
   856	  if(NO_PAIR(root)) return TRUE;
   857	  ref=HEAD(root);
   858	  if(NO_INT(ref)) return TRUE;
   859	  if(NO_PAIR(TAIL(root))) return TRUE;
   860	  idx=HEAD(TAIL(root));
   861	  if(NO_INT(idx)) return TRUE;
   862	  if(ref==Z){printf("(");spy1(idx);printf(")");return FALSE;}
   863	  name=nameget(state,ref,idx);
   864	  if(name==T) return TRUE;
   865	  spyname(name,TAIL(x));
   866	  return FALSE;}
   867	
   868	void spy1(pnt x){
   869	  pnt tag;
   870	  if(spycnt==0){printf("...");return;}
   871	  spycnt--;
   872	  if(x==T){printf("T");return;}
   873	  tag=ROOT(x);
   874	  if(tag&signmask) printf("*");
   875	  if(tag&markmask) printf("#");
   876	  tag=tag&~signmask&~markmask;
   877	  switch(tag){
   878	  case TAG_FALSE:   printf("F");return;
   879	  case TAG_INT:     spyint0(x);return;
   880	  case TAG_VECT:    spyvect(x);return;
   881	  case TAG_PAIR:    /*if(root2name(x))*/ prn2("P",HEAD(x),TAIL(x));return;
   882	  case TAG_EX:      prn1("X",HEAD(x));return;
   883	  case TAG_MAP:     printf("M(%s,",safe_tag2string(TAIL(x)));
   884	                    spy1(HEAD(x));printf(")");return;
   885	  case TAG_OBJ:     prn2("O",HEAD(HEAD(x)),TAIL(HEAD(x)));spy1(TAIL(x));return;
   886	  case TAG_GARB:    printf("G(%s)",ptoa(x));return;
   887	  case TTAG_VAR:    printf("TTAG_VAR(%s)",ptoa(HEAD(x)));return;
   888	  case TTAG_LAMBDA: prn1("TTAG_LAMBDA",HEAD(x));return;
   889	  case TTAG_CONST:  prn1("TTAG_CONST",HEAD(x));return;
   890	  case MTAG_INDIR:  prn1("MTAG_INDIR",TAIL(x));return;
   891	  case MTAG_CLOSURE:printf("CLOSURE");return;
   892	  case ETAG_var:    printf("ETAG_var(%s)",ptoa(HEAD(x)));return;
   893	  case ETAG_ecall:  prn2("ETAG_ecall",HEAD(x),TAIL(x));return;}
   894	  if(invalid_tag(tag)) {printf("??");return;}
   895	  prn2(tag2string[tag],HEAD(x),TAIL(x));}
   896	
   897	void spy2(pnt x,pnt y){
   898	  spycnt=x;
   899	  spy1(y);}
   900	
   901	pnt spy0(pnt x){
   902	  spy2(100,x);
   903	  printf("\n");
   904	  return x;}
   905	
   906	void spydie(pnt x,char *msg){
   907	  spy0(x);
   908	  die(msg);}
   909	
   910	void backtrace(pnt x,pnt cnt){
   911	  pnt c;
   912	  pnt i;
   913	  pnt y;
   914	  pnt tag;
   915	  if(cnt==0) return;
   916	  printf("backtrace %3s: %10s\n",ptoa(cnt),ptoa(x));
   917	  spy0(x);
   918	  if(x==state){printf("Referenced from state\n");return;}
   919	  if(x==global_x){printf("Referenced from head\n");return;}
   920	  if(x==global_y){printf("Referenced from tail\n");return;}
   921	  for(i=sp;i<STACKSIZE;i++)if(x==stack[i]){
   922	    printf("Referenced from stack[%s]\n",ptoa(i));
   923	    return;}
   924	  for(i=storepnt;i<STORESIZE;i++)if(x==store[i]){
   925	    printf("Referenced from store[%s]\n",ptoa(i));
   926	    return;}
   927	  for(c=heaplist;c!=0;c=HEAD(c))
   928	  for(i=1;i<TAIL(c);i++){
   929	    y=c+i*sizeof(cell);
   930	    tag=ROOT(y)&~signmask;
   931	    switch(tag){
   932	    case TAG_FALSE:
   933	    case TTAG_VAR:
   934	    case TAG_GARB:
   935	      continue;
   936	    case TAG_EX:
   937	    case TAG_MAP:
   938	    case TTAG_LAMBDA:
   939	    case TTAG_CONST:
   940	      if(HEAD(y)==x){backtrace(y,cnt-1);return;}
   941	      continue;
   942	    case MTAG_INDIR:
   943	    case TAG_INT:
   944	    case TAG_VECT:
   945	      if(TAIL(y)==x){backtrace(y,cnt-1);return;}
   946	      continue;
   947	    default:
   948	      if(invalid_tag(tag)) unexpected_tag("backtrace",y);
   949	      if(HEAD(y)==x){backtrace(y,cnt-1);return;}
   950	      if(TAIL(y)==x){backtrace(y,cnt-1);return;}
   951	      continue;}}
   952	  printf("Not found\n");}
   953	
   954	pnt testcnt=0;
   955	void testfct(char *s){
   956	  if(!test) return;
   957	  if(STACKSIZE-sp) printf("Warning. Stack residue: %s\n",ptoa(STACKSIZE-sp));
   958	  testcnt++;
   959	  printf("%5s %s\n",ptoa(testcnt),s);}
   960	
   961	void print3(pnt x){
   962	  printf("%c",(int)(x&0xFF));}
   963	
   964	void print2(pnt x){
   965	  for(;TAIL(x);x=TAIL(x)){
   966	    pnt i;
   967	    pnt y=HEAD(x);
   968	    for(i=0;i<bytesize;i++){
   969	      print3(y);
   970	      y=y>>8;}}
   971	  for(x=HEAD(x);x>255;x=x>>8) print3(x);}
   972	
   973	void print1(pnt x){
   974	  pnt tag;
   975	  if(x==T) return;
   976	  tag=ROOT(x);
   977	  switch(tag){
   978	  case TAG_FALSE:   return;
   979	  case TAG_INT:     print2(x);return;
   980	  case TAG_VECT:    print2(x);return;
   981	  case TAG_PAIR:    print1(HEAD(x));print1(TAIL(x));return;
   982	  case TAG_MAP:     return;
   983	  case TAG_OBJ:     return;}
   984	  printf("\nInternal error in 'print': Unexpected tag");
   985	  if(invalid_tag(tag)) printf("TAG=%s\n",ptoa(tag));
   986	  else printf("TAG=%s\n",tag2string[tag]);
   987	  deathReport();
   988	  exit(1);}
   989	
   990	
   991	
   992	/**********
   993	 * Spying *
   994	 **********/
   995	
   996	#define TIMERS 1000
   997	#define MEGA 1000000
   998	int currentTimer=-1;
   999	struct timeval timers[TIMERS];
  1000	int counters[TIMERS];
  1001	
  1002	void initTimers(){
  1003	  int i;
  1004	  for(i=0;i<TIMERS;i++){
  1005	    timers[i].tv_sec=0;
  1006	    timers[i].tv_usec=0;
  1007	    counters[i]=0;}}
  1008	
  1009	void setTimer(int i){
  1010	  struct timeval time;
  1011	  if(gettimeofday(&time,NULL)) pdie("setTimer()/gettimeofday()");
  1012	  if(0<=currentTimer&&currentTimer<TIMERS){
  1013	    timers[currentTimer].tv_sec+=time.tv_sec;
  1014	    timers[currentTimer].tv_usec+=time.tv_usec;
  1015	    if(timers[currentTimer].tv_usec>=MEGA){
  1016	      timers[currentTimer].tv_usec-=MEGA;
  1017	      timers[currentTimer].tv_sec+=1;}}
  1018	  currentTimer=i;
  1019	  if((0<=currentTimer)&(currentTimer<TIMERS)){
  1020	    counters[currentTimer]++;
  1021	    timers[currentTimer].tv_sec-=time.tv_sec;
  1022	    timers[currentTimer].tv_usec-=time.tv_usec;
  1023	    if(timers[currentTimer].tv_usec<0){
  1024	      timers[currentTimer].tv_usec+=MEGA;
  1025	      timers[currentTimer].tv_sec-=1;}}}
  1026	
  1027	int deathReportAlreadyCalled=FALSE;
  1028	void deathReport(){
  1029	  int i,d,first,last,usec;
  1030	#if(PRINTGC)
  1031	  spydigitsln("heapsize in cells ",heapsize);
  1032	  spydigitsln("max heapsize      ",heapmax);
  1033	  spydigitsln("stacksize         ",STACKSIZE-sp);
  1034	  spydigitsln("max stacksize     ",STACKSIZE);
  1035	#endif
  1036	  if(deathReportAlreadyCalled){
  1037	    printf("Panic: error occurred during generation of death report\n");
  1038	    exit(1);}
  1039	  deathReportAlreadyCalled=TRUE;
  1040	  if(spyvar!=T){
  1041	    printf("Value of spy variable:\n");
  1042	    spy0(spyvar);}
  1043	  first=TRUE;
  1044	  last=currentTimer;
  1045	  setTimer(-1);
  1046	  for(i=0;i<TIMERS;i++)
  1047	  if(counters[i]){
  1048	    if(first){
  1049	      first=FALSE;
  1050	      printf("Values of timers\n");
  1051	      printf("Timer Calls     Seconds\n");}
  1052	    printf("%5d %5d %4d.",i,counters[i],(int)(timers[i].tv_sec));
  1053	    usec=timers[i].tv_usec;
  1054	    for(d=0;d<6;d++){usec*=10;printf("%1d",usec/MEGA);usec%=MEGA;}
  1055	    if(i==last) printf(" This timer was still counting");
  1056	    printf("\n");}}
  1057	
  1058	void processSigint(int sig){
  1059	  printf("\n");
  1060	  printf("Sigint\n");
  1061	  deathReport();
  1062	  exit(0);}
  1063	
  1064	void catchSigint(){
  1065	  signal(SIGINT,&processSigint);}
  1066	
  1067	int safewrite(char *msg){
  1068	  return write(STDERR_FILENO,msg,sizeof(msg)-1);}
  1069	
  1070	static void processSigsegv(int sig){
  1071	  safewrite("lgwam: Segmentation fault.\n");
  1072	  safewrite("This is probably due to overflow of the C stack.\n");
  1073	  safewrite("If you run bash try this: ulimit -s unlimited\n");
  1074	  safewrite("If you run csh try this: unlimit stacksize\n");
  1075	  safewrite("Goodbye.\n");
  1076	  abort();}
  1077	
  1078	void catchSigsegv(){
  1079	  signal(SIGSEGV,&processSigsegv);}
  1080	
  1081	
  1082	
  1083	/*********************
  1084	 * MEMORY ALLOCATION *
  1085	 *********************/
  1086	
  1087	void chunkinit(pnt chunk,pnt size){
  1088	  pnt i;
  1089	  ROOT(chunk)=TAG_GARB;
  1090	  HEAD(chunk)=heaplist;
  1091	  TAIL(chunk)=size;
  1092	  heaplist=chunk;
  1093	  heapsize+=size-1;
  1094	  for(i=1;i<size;i++){
  1095	    chunk+=sizeof(cell);
  1096	    ROOT(chunk)=TAG_GARB;
  1097	    HEAD(chunk)=garb;
  1098	    garb=chunk;}}
  1099	
  1100	void heapalloc(pnt size){
  1101	  pnt chunk=(pnt)malloc(size*sizeof(cell));
  1102	  if(chunk==0) die("Dynamic memory allocation (malloc) failed");
  1103	  chunkinit(chunk,size);}
  1104	
  1105	/* To be called before using heap */
  1106	void heapinit(){
  1107	  pnt initsize=pages_len/sizeof(cell);
  1108	#ifndef __CYGWIN__
  1109	  struct sysinfo info;
  1110	  if(sysinfo(&info)) pdie("sysinfo()");
  1111	  heapmax=info.totalram/sizeof(cell)/100*HEAPMAX0;
  1112	#else
  1113	  heapmax=2000111000/sizeof(cell)/100*HEAPMAX0;
  1114	#endif /* __CYGWIN__ */
  1115	  heapsize=0;
  1116	  heaplist=NIL;
  1117	  garb=NIL;
  1118	  heapalloc(initsize);}
  1119	
  1120	/* To be called when built pages are loaded */
  1121	void pagereuse(){
  1122	  pnt page_begin=(pnt)pages;
  1123	  pnt page_end=page_begin+pages_len;
  1124	  pnt chunk=(page_begin+sizeof(cell)-1)/sizeof(cell)*sizeof(cell);
  1125	  pnt size=(page_end-chunk)/sizeof(cell);
  1126	  if(pages_len<3*sizeof(cell)) return;
  1127	  if(size<2) return;
  1128	  chunkinit(chunk,size);}
  1129	
  1130	
  1131	
  1132	/**********************
  1133	 * GARBAGE COLLECTION *
  1134	 **********************/
  1135	
  1136	void mark(pnt x){
  1137	  pnt root;
  1138	  if(!x) return;
  1139	  root=ROOT(x);
  1140	  if(root&signmask) return;
  1141	  ROOT(x)=root|signmask;
  1142	  switch(root&~markmask){
  1143	  case TAG_FALSE:
  1144	  case TTAG_VAR:
  1145	  case ETAG_var:
  1146	  case ETAG_yy:
  1147	    return;
  1148	  case TAG_EX:
  1149	  case TAG_MAP:
  1150	  case TTAG_LAMBDA:
  1151	  case TTAG_CONST:
  1152	    mark(HEAD(x));
  1153	    return;
  1154	  case TAG_PAIR:
  1155	  case TAG_OBJ:
  1156	  case TTAG_APPLY:
  1157	  case TTAG_CALL:
  1158	  case TTAG_ECALL:
  1159	  case TTAG_PAIR:
  1160	  case MTAG_CLOSURE:
  1161	  case MTAG_PAIR:
  1162	  case MTAG_LAMBDA:
  1163	  case MTAG_FIX:
  1164	  case ETAG_ecall:
  1165	  case ETAG_digit0:
  1166	  case ETAG_digit1:
  1167	  case ETAG_digit2:
  1168	  case ETAG_digit3:
  1169	  case ETAG_digit4:
  1170	  case ETAG_digit5:
  1171	  case ETAG_digit6:
  1172	  case ETAG_digit7:
  1173	  case ETAG_digit8:
  1174	  case ETAG_digit9:
  1175	  case ETAG_times:
  1176	  case ETAG_plus:
  1177	  case ETAG_minus:
  1178	  case ETAG_and:
  1179	  case ETAG_or:
  1180	  case ETAG_then:
  1181	  case ETAG_pair:
  1182	  case ETAG_lt:
  1183	  case ETAG_le:
  1184	  case ETAG_equal:
  1185	  case ETAG_gt:
  1186	  case ETAG_ge:
  1187	  case ETAG_apply:
  1188	  case ETAG_boolp:
  1189	  case ETAG_catch:
  1190	  case ETAG_maptag1:
  1191	  case ETAG_div:
  1192	  case ETAG_head:
  1193	  case ETAG_intp:
  1194	  case ETAG_boolg:
  1195	  case ETAG_intg:
  1196	  case ETAG_mapg:
  1197	  case ETAG_objg:
  1198	  case ETAG_pairg:
  1199	  case ETAG_mapp:
  1200	  case ETAG_maptag:
  1201	  case ETAG_mod:
  1202	  case ETAG_norm:
  1203	  case ETAG_objp:
  1204	  case ETAG_pairp:
  1205	  case ETAG_raise:
  1206	  case ETAG_root:
  1207	  case ETAG_tail:
  1208	  case ETAG_untag:
  1209	  case ETAG_digitend:
  1210	  case ETAG_par:
  1211	  case ETAG_uplus:
  1212	  case ETAG_dplus:
  1213	  case ETAG_uminus:
  1214	  case ETAG_dminus:
  1215	  case ETAG_not:
  1216	  case ETAG_Base:
  1217	  case ETAG_LET:
  1218	  case ETAG_ash:
  1219	  case ETAG_bottom:
  1220	  case ETAG_bt2bytes:
  1221	  case ETAG_bt2vects:
  1222	  case ETAG_bt2vector:
  1223	  case ETAG_ceiling:
  1224	  case ETAG_destruct:
  1225	  case ETAG_evenp:
  1226	  case ETAG_exception:
  1227	  case ETAG_false:
  1228	  case ETAG_floor:
  1229	  case ETAG_half:
  1230	  case ETAG_if:
  1231	  case ETAG_intlength:
  1232	  case ETAG_logand:
  1233	  case ETAG_logandc1:
  1234	  case ETAG_logandc2:
  1235	  case ETAG_logbitp:
  1236	  case ETAG_logcount:
  1237	  case ETAG_logeqv:
  1238	  case ETAG_logior:
  1239	  case ETAG_lognand:
  1240	  case ETAG_lognor:
  1241	  case ETAG_lognot:
  1242	  case ETAG_logorc1:
  1243	  case ETAG_logorc2:
  1244	  case ETAG_logtest:
  1245	  case ETAG_logxor:
  1246	  case ETAG_map:
  1247	  case ETAG_prenorm:
  1248	  case ETAG_notnot:
  1249	  case ETAG_object:
  1250	  case ETAG_print:
  1251	  case ETAG_round:
  1252	  case ETAG_spy:
  1253	  case ETAG_timer:
  1254	  case ETAG_trace:
  1255	  case ETAG_truncate:
  1256	  case ETAG_vector:
  1257	  case ETAG_vnorm:
  1258	  case ETAG_vempty:
  1259	  case ETAG_vindex:
  1260	  case ETAG_vlength:
  1261	  case ETAG_vprefix:
  1262	  case ETAG_vsubseq:
  1263	  case ETAG_vsuffix:
  1264	  case ETAG_v2bytes:
  1265	  case ETAG_v2vects:
  1266	  case ETAG_vt2bytes:
  1267	  case ETAG_vt2vects:
  1268	  case ETAG_vt2v:
  1269	  case ETAG_compile:
  1270	  case ETAG_ripemd:
  1271	  case ETAG_sl2rack:
  1272	  case ETAG_rack2sl:
  1273	    mark(HEAD(x));
  1274	    mark(TAIL(x));
  1275	    return;
  1276	  case MTAG_INDIR:
  1277	  case TAG_INT:
  1278	  case TAG_VECT:
  1279	    mark(TAIL(x));
  1280	    return;
  1281	  default:
  1282	    printf("Unknown tag found during GC\n");
  1283	    spy0(x);
  1284	    backtrace(x,100);
  1285	    die("Goodbye");}}
  1286	
  1287	void sweep(){
  1288	  pnt c;
  1289	  pnt i;
  1290	  pnt y;
  1291	  pnt root;
  1292	  garb=NIL;
  1293	  collected=0;
  1294	  for(c=heaplist;c!=0;c=HEAD(c))
  1295	  for(i=1;i<TAIL(c);i++){
  1296	    y=c+i*sizeof(cell);
  1297	    root=ROOT(y);
  1298	    if(root&signmask) ROOT(y)=root&~signmask; else {
  1299	      collected++;
  1300	      ROOT(y)=TAG_GARB;
  1301	      HEAD(y)=garb;
  1302	      garb=y;}}}
  1303	
  1304	/* Garbage collection */
  1305	/* At present we quit if garbage collection gives less then 30 percent
  1306	 * free cells. The last line below is superflous when checking for the
  1307	 * 30 percent limit. If the 30 percent limit is removed, one runs the
  1308	 * risk of very long executing times in cases where the system gives
  1309	 * up in the end anyway */
  1310	void gc(pnt x,pnt y){
  1311	  pnt i,used,heapsize1;
  1312	#if(PRINTGC)
  1313	  pnt percent;
  1314	  if(!ALWAYSGC) fprintf(stderr,"gc\n");
  1315	#endif
  1316	  global_x=x;
  1317	  global_y=y;
  1318	  mark(x);
  1319	  mark(y);
  1320	  for(i=sp;i<STACKSIZE;i++) mark(stack[i]);
  1321	  for(i=storepnt;i<STORESIZE;i++) mark(store[i]);
  1322	  mark(state);
  1323	  mark(inputs);
  1324	  mark(outputs);
  1325	  mark(event);
  1326	  mark(extensions);
  1327	  mark(spyvar);
  1328	  sweep();
  1329	#if(PRINTGC)
  1330	  percent=collected/(heapsize/100);
  1331	  if(!ALWAYSGC) fprintf(stderr,"released %9d percent\n",percent);
  1332	  if(!ALWAYSGC) fprintf(stderr,"released %9d cells\n",collected);
  1333	  if(!ALWAYSGC) fprintf(stderr,"stack    %9d free positions\n",sp);
  1334	#endif
  1335	  used=heapsize-collected;
  1336	  if(used<heapsize/100*HEAPMAX2) return;
  1337	  if(used>heapmax/100*HEAPMAX1) die("Heap too small, goodbye.");
  1338	  heapsize1=used/HEAPMAX3*100;
  1339	  if(heapsize1>heapmax) heapsize1=heapmax;
  1340	  if(heapsize1<=heapsize) return;
  1341	  heapsize1-=heapsize;
  1342	#if(PRINTGC)
  1343	  fprintf(stderr,"allocate %9d cells\n",heapsize1);
  1344	#endif
  1345	  heapalloc(heapsize1);
  1346	  if(!garb) die("Internal error in GC, goodbye.");}
  1347	
  1348	
  1349	
  1350	/****************
  1351	 * CONSTRUCTORS *
  1352	 ****************/
  1353	
  1354	/* Get fresh cell */
  1355	pnt fresh(pnt x,pnt y){
  1356	  pnt result;
  1357	  if(always_gc || !garb) gc(x,y);
  1358	  result=garb;
  1359	  /*if(ROOT(result)!=TAG_GARB) die("Attempt to allocate non-garbage.\n");*/
  1360	  garb=HEAD(result);
  1361	  return result;}
  1362	
  1363	/* General constructor */
  1364	pnt cons(pnt root,pnt head,pnt tail){
  1365	  pnt result;
  1366	  result=fresh(head,tail);
  1367	  ROOT(result)=root;
  1368	  HEAD(result)=head;
  1369	  TAIL(result)=tail;
  1370	  return result;}
  1371	
  1372	/* General constructor with cardinal head */
  1373	pnt cons2(pnt root,pnt head,pnt tail){
  1374	  pnt result=fresh(NIL,tail);
  1375	  ROOT(result)=root;
  1376	  HEAD(result)=head;
  1377	  TAIL(result)=tail;
  1378	  return result;}
  1379	
  1380	/* General constructor with cardinal tail */
  1381	pnt cons1(pnt root,pnt head,pnt tail){
  1382	  pnt result=fresh(head,NIL);
  1383	  ROOT(result)=root;
  1384	  HEAD(result)=head;
  1385	  TAIL(result)=tail;
  1386	  return result;}
  1387	
  1388	/* Part of safe constructor */
  1389	pnt scons(pnt root,pnt tail){
  1390	  pnt result;
  1391	  result=fresh(NIL,tail);
  1392	  ROOT(result)=root;
  1393	  HEAD(result)=pop();
  1394	  TAIL(result)=tail;
  1395	  return result;}
  1396	
  1397	
  1398	
  1399	/************************
  1400	 * INTEGER CONSTRUCTORS *
  1401	 ************************/
  1402	
  1403	/* Simple integer cons */
  1404	pnt icons(pnt head,pnt tail){
  1405	  return cons2(TAG_INT,head,tail);}
  1406	
  1407	/* Normalization preserving integer cons */
  1408	pnt intcons(pnt head,pnt tail){
  1409	  if((head&signmask)==0){
  1410	    if(tail!=Z) return icons(head,tail);
  1411	    if(head==0) return Z;
  1412	    return icons(head,NIL);}
  1413	  else{
  1414	    if(tail!=M) return icons(head,tail);
  1415	    if(head==~(pnt)0) return M;
  1416	    return icons(head,NIL);}}
  1417	
  1418	/* Integer tail with sign extend if needed */
  1419	pnt inttail(pnt cons){
  1420	  if(TAIL(cons)) return TAIL(cons);
  1421	  if((HEAD(cons)&signmask)==0) return Z; else return M;}
  1422	
  1423	/* Convert C integer to twos complement pnt */
  1424	pnt int2pnt(spnt i){
  1425	  if(i>=0) return (pnt)i;
  1426	  return 1+~(pnt)(-i);}
  1427	
  1428	/* Convert C integer to integer */
  1429	pnt int2int(spnt i){
  1430	  return icons(int2pnt(i),NIL);}
  1431	
  1432	/* Convert C integer to normalized integer */
  1433	pnt JN(spnt i){
  1434	  if(i==0) return Z;
  1435	  if(i==-1) return M;
  1436	  return keep(int2int(i));}
  1437	
  1438	pnt K2(spnt i,spnt j){
  1439	  return keep(intcons(int2pnt(i),JN(j)));}
  1440	
  1441	
  1442	
  1443	/***********************
  1444	 * VECTOR CONSTRUCTORS *
  1445	 ***********************/
  1446	
  1447	pnt consvec(pnt head,pnt tail){
  1448	  pnt result=fresh(NIL,tail);
  1449	  ROOT(result)=TAG_VECT;
  1450	  HEAD(result)=head;
  1451	  TAIL(result)=tail;
  1452	  return result;}
  1453	
  1454	pnt int2vec(pnt x){
  1455	  if(NO_INT(x)) return x;
  1456	  return consvec(HEAD(x),TAIL(x));}
  1457	
  1458	/* Destructive. Only for use in main */
  1459	pnt vec2int(pnt x){
  1460	  if(NO_INT(x)) die("vec2int applied to non-int");
  1461	  ROOT(x)=TAG_INT;
  1462	  return x;}
  1463	
  1464	pnt str2vec2(unsigned char *str,pnt len){
  1465	  if(len==0) return 1;
  1466	  return (*str)|(str2vec2(str+1,len-1)<<8);}
  1467	
  1468	pnt str2vec1(unsigned char *str,pnt len){
  1469	  if(len<bytesize) return consvec(str2vec2(str,len),NIL);
  1470	  return consvec(str2vec2(str,bytesize),str2vec1(str+bytesize,len-bytesize));}
  1471	
  1472	pnt str2vec0(unsigned char *str){
  1473	  pnt result=store_find((pnt)1,str);
  1474	  if(result!=T) return result;
  1475	  return keep3((pnt)1,str,str2vec1(str,strlen((char *)str)));}
  1476	
  1477	pnt str2vec(char *str){
  1478	  return str2vec0((unsigned char *)str);}
  1479	
  1480	pnt str2nonvec2(pnt empty,unsigned char *str,pnt len){
  1481	  if(len==0) return empty;
  1482	  return (*str)|(str2nonvec2(empty,str+1,len-1)<<8);}
  1483	
  1484	pnt str2nonvec1(pnt empty,unsigned char *str,pnt len){
  1485	  if(len<bytesize) return intcons(str2nonvec2(empty,str,len),Z);
  1486	  return intcons(
  1487	    str2nonvec2(empty,str,bytesize),
  1488	    str2nonvec1(empty,str+bytesize,len-bytesize));}
  1489	
  1490	pnt str2nonvec0(pnt empty,unsigned char *str){
  1491	  pnt result=store_find(empty*256+3,str);
  1492	  if(result!=T) return result;
  1493	  return keep3(empty*100+3,str,str2nonvec1(empty,str,strlen((char *)str)));}
  1494	
  1495	pnt str2nonvec(pnt empty,char *str){
  1496	  return str2nonvec0(empty,(unsigned char *)str);}
  1497	
  1498	
  1499	
  1500	/****************
  1501	 * MISCELANEOUS *
  1502	 ****************/
  1503	
  1504	/* Find number of bits in a pnt */
  1505	pnt findsize(){
  1506	  pnt result,mask;
  1507	  result=0;
  1508	  for(mask=1;mask;mask=mask<<1) result++;
  1509	  return result;}
  1510	
  1511	
  1512	
  1513	/*****************************
  1514	 * OPTIMIZED EAGER FUNCTIONS *
  1515	 *****************************/
  1516	
  1517	/* These functions assume that no arguments are exceptions */
  1518	
  1519	pnt bottom(){/* bottom */
  1520	  printf("This takes forever.\n");
  1521	  deathReport();
  1522	  die("Goodbye.\n");
  1523	  return T;}
  1524	
  1525	pnt true(){
  1526	  return T;}
  1527	
  1528	pnt false(){ /* false */
  1529	  return F;}
  1530	
  1531	pnt exception(){ /* exception */
  1532	  return X;}
  1533	
  1534	pnt norm(pnt x){/* " norm */ /* norm " */
  1535	  return x;}
  1536	
  1537	pnt then(pnt x,pnt y){/* " .then. " */
  1538	  return y;}
  1539	
  1540	pnt boolp(pnt x){/* " boolp */
  1541	  if(NO_BOOL(x)) return F;
  1542	  return T;}
  1543	
  1544	pnt intp(pnt x){/* " intp */
  1545	  if(NO_INT(x)) return F;
  1546	  return T;}
  1547	
  1548	pnt pairp(pnt x){/* " pairp */
  1549	  if(NO_PAIR(x)) return F;
  1550	  return T;}
  1551	
  1552	pnt mapp(pnt x){/* " mapp */
  1553	  if(NO_MAP(x)) return F;
  1554	  return T;}
  1555	
  1556	pnt objp(pnt x){/* " objectp */
  1557	  if(NO_OBJ(x)) return F;
  1558	  return T;}
  1559	
  1560	pnt boolg(pnt x,pnt y){/* " is bool : " */
  1561	  if(NO_BOOL(x)) return X;
  1562	  return y;}
  1563	
  1564	pnt intg(pnt x,pnt y){/* " is int : " */
  1565	  if(NO_INT(x)) return X;
  1566	  return y;}
  1567	
  1568	pnt pairg(pnt x,pnt y){/* " is map : " */
  1569	  if(NO_PAIR(x)) return X;
  1570	  return y;}
  1571	
  1572	pnt mapg(pnt x,pnt y){/* " is object : " */
  1573	  if(NO_MAP(x)) return X;
  1574	  return y;}
  1575	
  1576	pnt objg(pnt x,pnt y){/* " is pair : " */
  1577	  if(NO_OBJ(x)) return X;
  1578	  return y;}
  1579	
  1580	pnt not(pnt x){/* .not. " */
  1581	  if(x==T) return F;
  1582	  if(GD_EX(x)) return T;
  1583	  return X;}
  1584	
  1585	pnt notnot(pnt x){/* notnot " */
  1586	  if(x==T) return T;
  1587	  if(GD_EX(x)) return F;
  1588	  return X;}
  1589	
  1590	pnt eq0(pnt x,pnt y){
  1591	  pnt x1;
  1592	  pnt y1;
  1593	  if(x==T) return y==T;
  1594	  if(y==T) return FALSE;
  1595	  x1=ROOT(x);
  1596	  y1=ROOT(y);
  1597	  x1=(x1==TAG_VECT)?TAG_INT:x1;
  1598	  y1=(y1==TAG_VECT)?TAG_INT:y1;
  1599	  if(x1!=y1) return FALSE;
  1600	  switch(x1){
  1601	  case TAG_FALSE:
  1602	  case TAG_MAP:
  1603	    return TRUE;
  1604	  case TAG_INT:
  1605	    while(TRUE){
  1606	      if(HEAD(x)!=HEAD(y)) return FALSE;
  1607	      x=TAIL(x);
  1608	      y=TAIL(y);
  1609	      if(!x){if(!y) return TRUE; else return FALSE;}
  1610	      if(!y) return FALSE;}
  1611	  case TAG_EX: /* only for the sake of etst */
  1612	    return eq0(HEAD(x),HEAD(y));
  1613	  case TAG_PAIR:
  1614	  case TAG_OBJ:
  1615	    return eq0(HEAD(x),HEAD(y)) && eq0(TAIL(x),TAIL(y));
  1616	  default:
  1617	    unexpected_tag("eq0",x);
  1618	    return T; /* This never happens*/}}
  1619	
  1620	pnt eq(pnt x,pnt y){/* " = " */
  1621	  if(eq0(x,y)) return T; else return F;}
  1622	
  1623	pnt pair(pnt head,pnt tail){/* " :: " */
  1624	  return cons(TAG_PAIR,head,tail);}
  1625	
  1626	pnt head(pnt cons){/* " head */
  1627	  if(NO_PAIR(cons)) return cons;
  1628	  return HEAD(cons);}
  1629	
  1630	pnt tail(pnt cons){/* " tail */
  1631	  if(NO_PAIR(cons)) return cons;
  1632	  return TAIL(cons);}
  1633	
  1634	pnt lognot1(pnt x){
  1635	  pnt u=HEAD(x);
  1636	  pnt z;
  1637	  if(!TAIL(x)) z=NIL; else z=lognot1(TAIL(x));
  1638	  return intcons(~u,z);}
  1639	
  1640	pnt lognot(pnt x){/* lognot ( " ) */
  1641	  if(NO_INT(x)) return X;
  1642	  return lognot1(x);}
  1643	
  1644	pnt logand1(pnt x,pnt y){
  1645	  pnt u,v;
  1646	  u=HEAD(x)&HEAD(y);
  1647	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=logand1(inttail(x),inttail(y));
  1648	  return intcons(u,v);}
  1649	
  1650	pnt logand(pnt x,pnt y){/* logand ( " , " ) */
  1651	  if(NO_INT(x)) return X;
  1652	  if(NO_INT(y)) return X;
  1653	  return logand1(x,y);}
  1654	
  1655	pnt logior1(pnt x,pnt y){
  1656	  pnt u,v;
  1657	  u=HEAD(x)|HEAD(y);
  1658	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=logior1(inttail(x),inttail(y));
  1659	  return intcons(u,v);}
  1660	
  1661	pnt logior(pnt x,pnt y){/* logior ( " , " ) */
  1662	  if(NO_INT(x)) return X;
  1663	  if(NO_INT(y)) return X;
  1664	  return logior1(x,y);}
  1665	
  1666	pnt logxor1(pnt x,pnt y){
  1667	  pnt u,v;
  1668	  u=HEAD(x)^HEAD(y);
  1669	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=logxor1(inttail(x),inttail(y));
  1670	  return intcons(u,v);}
  1671	
  1672	pnt logxor(pnt x,pnt y){/* logxor ( " , " ) */
  1673	  if(NO_INT(x)) return X;
  1674	  if(NO_INT(y)) return X;
  1675	  return logxor1(x,y);}
  1676	
  1677	pnt logandc11(pnt x,pnt y){
  1678	  pnt u,v;
  1679	  u=(~HEAD(x))&HEAD(y);
  1680	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=logandc11(inttail(x),inttail(y));
  1681	  return intcons(u,v);}
  1682	
  1683	pnt logandc1(pnt x,pnt y){/* logandc1 ( " , " ) */
  1684	  if(NO_INT(x)) return X;
  1685	  if(NO_INT(y)) return X;
  1686	  return logandc11(x,y);}
  1687	
  1688	pnt logandc21(pnt x,pnt y){
  1689	  pnt u,v;
  1690	  u=HEAD(x)&(~HEAD(y));
  1691	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=logandc21(inttail(x),inttail(y));
  1692	  return intcons(u,v);}
  1693	
  1694	pnt logandc2(pnt x,pnt y){/* logandc2 ( " , " ) */
  1695	  if(NO_INT(x)) return X;
  1696	  if(NO_INT(y)) return X;
  1697	  return logandc21(x,y);}
  1698	
  1699	pnt lognand1(pnt x,pnt y){
  1700	  pnt u,v;
  1701	  u= ~(HEAD(x)&HEAD(y));
  1702	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=lognand1(inttail(x),inttail(y));
  1703	  return intcons(u,v);}
  1704	
  1705	pnt lognand(pnt x,pnt y){/* lognand ( " , " ) */
  1706	  if(NO_INT(x)) return X;
  1707	  if(NO_INT(y)) return X;
  1708	  return lognand1(x,y);}
  1709	
  1710	pnt logorc11(pnt x,pnt y){
  1711	  pnt u,v;
  1712	  u=(~HEAD(x))|HEAD(y);
  1713	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=logorc11(inttail(x),inttail(y));
  1714	  return intcons(u,v);}
  1715	
  1716	pnt logorc1(pnt x,pnt y){/* logorc1 ( " , " ) */
  1717	  if(NO_INT(x)) return X;
  1718	  if(NO_INT(y)) return X;
  1719	  return logorc11(x,y);}
  1720	
  1721	pnt logorc21(pnt x,pnt y){
  1722	  pnt u,v;
  1723	  u=HEAD(x)|(~HEAD(y));
  1724	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=logorc21(inttail(x),inttail(y));
  1725	  return intcons(u,v);}
  1726	
  1727	pnt logorc2(pnt x,pnt y){/* logorc2 ( " , " ) */
  1728	  if(NO_INT(x)) return X;
  1729	  if(NO_INT(y)) return X;
  1730	  return logorc21(x,y);}
  1731	
  1732	pnt lognor1(pnt x,pnt y){
  1733	  pnt u,v;
  1734	  u= ~(HEAD(x)|HEAD(y));
  1735	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=lognor1(inttail(x),inttail(y));
  1736	  return intcons(u,v);}
  1737	
  1738	pnt lognor(pnt x,pnt y){/* lognor ( " , " ) */
  1739	  if(NO_INT(x)) return X;
  1740	  if(NO_INT(y)) return X;
  1741	  return lognor1(x,y);}
  1742	
  1743	pnt logeqv1(pnt x,pnt y){
  1744	  pnt u,v;
  1745	  u= ~(HEAD(x)^HEAD(y));
  1746	  if(!TAIL(x) && !TAIL(y)) v=SIGN(u); else v=logeqv1(inttail(x),inttail(y));
  1747	  return intcons(u,v);}
  1748	
  1749	pnt logeqv(pnt x,pnt y){/* logeqv ( " , " ) */
  1750	  if(NO_INT(x)) return X;
  1751	  if(NO_INT(y)) return X;
  1752	  return logeqv1(x,y);}
  1753	
  1754	pnt logtest1(pnt x,pnt y){
  1755	  if(HEAD(x)&HEAD(y)) return T;
  1756	  if(!TAIL(x) && !TAIL(y)) return F;
  1757	  return logtest1(inttail(x),inttail(y));}
  1758	
  1759	pnt logtest(pnt x,pnt y){/* logtest ( " , " ) */
  1760	  if(NO_INT(x)) return X;
  1761	  if(NO_INT(y)) return X;
  1762	  return logtest1(x,y);}
  1763	
  1764	/* returns signum(x-y)+1 for signed integers x and y */
  1765	pnt cmp2(pnt x,pnt y){
  1766	  if(x==y) return 1;
  1767	  if((x^signmask)<(y^signmask)) return 0; else return 2;}
  1768	
  1769	/* returns signum(x-y)+1 for tagged integers x and y */
  1770	pnt cmp1(pnt x,pnt y){
  1771	  pnt z;
  1772	  if(!TAIL(x) && !TAIL(y)) return cmp2(HEAD(x),HEAD(y));
  1773	  z=cmp1(inttail(x),inttail(y));
  1774	  if(z!=1) return z;
  1775	  if(HEAD(x)==HEAD(y)) return 1;
  1776	  if(HEAD(x)<HEAD(y)) return 0; else return 2;}
  1777	
  1778	pnt lt(pnt x,pnt y){/* " < " */
  1779	  if(NO_INT(x)) return X;
  1780	  if(NO_INT(y)) return X;
  1781	  if(cmp1(x,y)<1) return T; else return F;}
  1782	
  1783	pnt gt(pnt x,pnt y){/* " > " */
  1784	  if(NO_INT(x)) return X;
  1785	  if(NO_INT(y)) return X;
  1786	  if(cmp1(x,y)>1) return T; else return F;}
  1787	
  1788	pnt le(pnt x,pnt y){/* " <= " */
  1789	  if(NO_INT(x)) return X;
  1790	  if(NO_INT(y)) return X;
  1791	  if(cmp1(x,y)<=1) return T; else return F;}
  1792	
  1793	pnt ge(pnt x,pnt y){/* " >= " */
  1794	  if(NO_INT(x)) return X;
  1795	  if(NO_INT(y)) return X;
  1796	  if(cmp1(x,y)>=1) return T; else return F;}
  1797	
  1798	pnt evenp(pnt x){/* evenp ( " ) */
  1799	  if(NO_INT(x)) return X;
  1800	  if(HEAD(x)&1) return F; else return T;}
  1801	
  1802	pnt half1(pnt x){
  1803	  pnt v=HEAD(x);
  1804	  pnt y=v>>1;
  1805	  pnt z=TAIL(x);
  1806	  if(!z){if(v&signmask) return intcons(y+signmask,M); else return intcons(y,Z);}
  1807	  if(HEAD(z)&1) y=y+signmask;
  1808	  return intcons(y,half1(z));}
  1809	
  1810	pnt half(pnt x){/* half ( " ) */
  1811	  if(NO_INT(x)) return X;
  1812	  return half1(x);}
  1813	
  1814	pnt small(pnt x){
  1815	  if(NO_INT(x)) return X;
  1816	  if(x==Z) return T;
  1817	  if(x==M) return T;
  1818	  return F;}
  1819	
  1820	pnt base(){/* Base */
  1821	  return I[10];}
  1822	
  1823	pnt zero(){/* %% */
  1824	  return Z;}
  1825	
  1826	pnt unaryPlus(pnt x){/* + " */
  1827	  if(NO_INT(x)) return X;
  1828	  return x;}
  1829	
  1830	pnt plus1(pnt x,pnt y,pnt c){
  1831	  pnt X=HEAD(x);
  1832	  pnt Y=HEAD(y);
  1833	  pnt u=HALFHEAD(X)+HALFHEAD(Y)+c;
  1834	  pnt v=HALFTAIL(X)+HALFTAIL(Y)+HALFTAIL(u);
  1835	  pnt w=HALFCONS(u,v);
  1836	  if(TAIL(x)||TAIL(y))
  1837	  return intcons(w,plus1(inttail(x),inttail(y),HALFTAIL(v)));
  1838	  if(w&signmask){
  1839	    if((X&signmask)||(Y&signmask))
  1840	      return intcons(w,M);
  1841	    else
  1842	      return intcons(w,Z);}
  1843	  else{
  1844	    if((!(X&signmask))||(!(Y&signmask)))
  1845	      return intcons(w,Z);
  1846	    else
  1847	      return intcons(w,M);}}
  1848	
  1849	pnt plus(pnt x,pnt y){/* " + " */
  1850	  if(NO_INT(x)) return X;
  1851	  if(NO_INT(y)) return X;
  1852	  return plus1(x,y,0);}
  1853	
  1854	pnt minus(pnt x,pnt y){/* " - " */
  1855	  if(NO_INT(x)) return X;
  1856	  if(NO_INT(y)) return X;
  1857	  push(x);
  1858	  return ret(1,plus1(x,lognot(y),1));}
  1859	
  1860	pnt unaryMinus(pnt x){/* - " */
  1861	  return minus(Z,x);}
  1862	
  1863	pnt integerLength3(pnt x){
  1864	  if(!x) return 0;
  1865	  return 1+integerLength3(x>>1);}
  1866	
  1867	pnt integerLength2(pnt x){
  1868	 if(x&signmask) return integerLength3(~x);
  1869	  return integerLength3(x);}
  1870	
  1871	pnt integerCombine(pnt x,pnt y){
  1872	  pnt u=HALFHEAD(y)*pntsize+x;
  1873	  pnt v=HALFTAIL(y)*pntsize+HALFTAIL(u);
  1874	  return intcons(HALFCONS(u,v),intcons(HALFTAIL(v),Z));}
  1875	
  1876	pnt integerLength1(pnt x,pnt y){
  1877	  if(TAIL(x)) return integerLength1(TAIL(x),y+1);
  1878	  return integerCombine(integerLength2(HEAD(x)),y);}
  1879	
  1880	pnt integerLength(pnt x){/* integer-length ( " ) */
  1881	  if(NO_INT(x)) return X;
  1882	  return integerLength1(x,0);}
  1883	
  1884	pnt logcount2(pnt x){
  1885	  if(!x) return 0;
  1886	  return (x&1)+logcount2(x>>1);}
  1887	
  1888	pnt logcount1(pnt x,pnt y){
  1889	  y=y+logcount2(HEAD(x));
  1890	  if(y&signmask) die("logcount overflow");
  1891	  if(TAIL(x)) return logcount1(TAIL(x),y);
  1892	  return intcons(y,Z);}
  1893	
  1894	pnt logcount(pnt x){/* logcount ( " ) */
  1895	  if(NO_INT(x)) return X;
  1896	  if(ge(x,Z)==T) return logcount1(x,0);
  1897	  return logcount1(lognot(x),0);}
  1898	
  1899	/* compute 10*x+y */
  1900	pnt digit(pnt x,pnt y){
  1901	  pnt x0=HEAD(x);
  1902	  pnt x1=HALFHEAD(x0)*10+y;
  1903	  pnt x2=HALFTAIL(x0)*10+HALFTAIL(x1);
  1904	  pnt x3=HALFCONS(x1,x2);
  1905	  pnt y1=HALFTAIL(x2);
  1906	  if(!TAIL(x)&&(y1==0)&&!(x3&signmask)) return intcons(x3,Z);
  1907	  if(!TAIL(x)&&(y1==9)&&(x3&signmask)) return intcons(x3,M);
  1908	  return intcons(x3,digit(inttail(x),y1));}
  1909	
  1910	pnt digit0(pnt x){if(NO_INT(x)) return X;return digit(x,0);} /* " %0 */
  1911	pnt digit1(pnt x){if(NO_INT(x)) return X;return digit(x,1);} /* " %1 */
  1912	pnt digit2(pnt x){if(NO_INT(x)) return X;return digit(x,2);} /* " %2 */
  1913	pnt digit3(pnt x){if(NO_INT(x)) return X;return digit(x,3);} /* " %3 */
  1914	pnt digit4(pnt x){if(NO_INT(x)) return X;return digit(x,4);} /* " %4 */
  1915	pnt digit5(pnt x){if(NO_INT(x)) return X;return digit(x,5);} /* " %5 */
  1916	pnt digit6(pnt x){if(NO_INT(x)) return X;return digit(x,6);} /* " %6 */
  1917	pnt digit7(pnt x){if(NO_INT(x)) return X;return digit(x,7);} /* " %7 */
  1918	pnt digit8(pnt x){if(NO_INT(x)) return X;return digit(x,8);} /* " %8 */
  1919	pnt digit9(pnt x){if(NO_INT(x)) return X;return digit(x,9);} /* " %9 */
  1920	
  1921	pnt str2int1(char *str,pnt result){
  1922	  if(*str==0) return result;
  1923	  if(*str=='-') return unaryMinus(str2int1(str+1,result));
  1924	  if(*str<'0') return str2int1(str+1,result);
  1925	  if(*str>'9') return str2int1(str+1,result);
  1926	  return str2int1(str+1,digit(result,*str-'0'));}
  1927	
  1928	pnt str2int0(unsigned char *str){
  1929	  pnt result=store_find((pnt)2,str);
  1930	  if(result!=T) return result;
  1931	  return keep3((pnt)2,str,str2int1((char *)str,Z));}
  1932	
  1933	pnt str2int(char *str){
  1934	  return str2int0((unsigned char *)str);}
  1935	
  1936	pnt alloc1(pnt x){
  1937	  if(!x) return NIL;
  1938	  return icons(0,alloc1(TAIL(x)));}
  1939	
  1940	pnt alloc2(pnt x,pnt y){
  1941	  if(!x) return alloc1(y);
  1942	  return icons(0,alloc2(TAIL(x),y));}
  1943	
  1944	pnt normalize(pnt x){
  1945	  pnt u=HEAD(x);
  1946	  if(TAIL(x)) return intcons(u,normalize(TAIL(x)));
  1947	  if(u==0) return Z;
  1948	  if(u==~(pnt)0) return M;
  1949	  return x;}
  1950	
  1951	/*
  1952	x:  First factor
  1953	y:  Second factor
  1954	z:  Product
  1955	x1: Pointer which traverses x
  1956	y1: Pointer which traverses y
  1957	z1: Pointer which traverses z synchronously with x
  1958	z2: Pointer which traverses z synchronously with y
  1959	a:  Current word from x
  1960	b:  Current word from y
  1961	c1: Carry 1
  1962	c2: Carry 2
  1963	d0: Product, low half
  1964	d1: Product, high half
  1965	*/
  1966	pnt umul(pnt x,pnt y){
  1967	  pnt z,x1,y1,z1,z2,a,b,c1,c2,d0,d1,d2;
  1968	  z=alloc2(x,y);
  1969	  z1=z;
  1970	  for(x1=x;x1;x1=TAIL(x1)){
  1971	    c1=0;
  1972	    z2=z1;
  1973	    a=HEAD(x1);
  1974	    for(y1=y;y1;y1=TAIL(y1)){
  1975	      b=HEAD(y1);
  1976	      c2=HEAD(z2);
  1977	      d0=HALFHEAD(a)*HALFHEAD(b)+HALFHEAD(c1)+HALFHEAD(c2);
  1978	      d1=HALFHEAD(a)*HALFTAIL(b)+HALFTAIL(d0)+HALFTAIL(c1);
  1979	      d2=HALFTAIL(a)*HALFHEAD(b)+HALFHEAD(d1)+HALFTAIL(c2);
  1980	      c1=HALFTAIL(a)*HALFTAIL(b)+HALFTAIL(d1)+HALFTAIL(d2);
  1981	      HEAD(z2)=HALFCONS(d0,d2);
  1982	      z2=TAIL(z2);
  1983	    }
  1984	    HEAD(z2)=c1;
  1985	    z1=TAIL(z1);
  1986	  }
  1987	  return normalize(z);}
  1988	
  1989	pnt times(pnt x,pnt y){/* " * " */
  1990	  if(NO_INT(x)) return X;
  1991	  if(NO_INT(y)) return X;
  1992	  push(x);
  1993	  push(y);
  1994	  if(ge(x,Z)==T){
  1995	    if(ge(y,Z)==T) return ret(2,umul(x,y));
  1996	    push(unaryMinus(y));
  1997	    return ret(3,unaryMinus(umul(x,stack[sp])));}
  1998	  push(unaryMinus(x));
  1999	  if(ge(y,Z)==T) return ret(3,unaryMinus(umul(stack[sp],y)));
  2000	  push(unaryMinus(y));
  2001	  return ret(4,umul(stack[sp],stack[sp+1]));}
  2002	
  2003	pnt logbitp1(pnt x,pnt y){
  2004	  if(!y) die("logbitp internal error");
  2005	  if(x>=pntsize) return logbitp1(x-pntsize,TAIL(y));
  2006	  if((HEAD(y)>>x)&1) return T;
  2007	  return F;}
  2008	
  2009	pnt logbitp(pnt x,pnt y){/* logbitp ( " , " ) */
  2010	  if(NO_INT(x)) return X;
  2011	  if(NO_INT(y)) return X;
  2012	  if(lt(x,Z)==T) return X;
  2013	  if(le(integerLength(y),x)==T) return lt(y,Z);
  2014	  if(TAIL(x)) die("logbitp overflow");
  2015	  return logbitp1(HEAD(x),y);}
  2016	
  2017	pnt asll(pnt x,pnt y){
  2018	  if(y==0) return x;
  2019	  return intcons(0,asll(x,y-1));}
  2020	
  2021	pnt asrr(pnt x,pnt y){
  2022	  if(y==0) return x;
  2023	  return asrr(inttail(x),y-1);}
  2024	
  2025	pnt asl1(pnt x,pnt y,pnt c){
  2026	  pnt x1=HEAD(x);
  2027	  pnt x2=(x1<<y)+c;
  2028	  pnt c2=(x1>>(pntsize-y));
  2029	  if(x==Z) return intcons(x2,Z);
  2030	  if(x==M) return intcons(x2,M);
  2031	  return intcons(x2,asl1(inttail(x),y,c2));}
  2032	
  2033	pnt asl(pnt x,pnt y){
  2034	  if(y==0) return x;
  2035	  return asl1(x,y,0);}
  2036	
  2037	pnt asr(pnt x,pnt y){
  2038	  if(y==0) return x;
  2039	  return inttail(asl1(x,pntsize-y,0));}
  2040	
  2041	pnt ash(pnt x,pnt y){/* ash ( " , " ) */
  2042	  pnt z;
  2043	  if(NO_INT(x)) return X;
  2044	  if(NO_INT(y)) return X;
  2045	  if(TAIL(y)) die("ash overflow");
  2046	  z=HEAD(y);
  2047	  if(ge(y,Z)==T) return asll(asl(x,z%pntsize),z/pntsize);
  2048	  z=1+~z;
  2049	  return asrr(asr(x,z%pntsize),z/pntsize);}
  2050	
  2051	/*
  2052	The division algorithms below leave room for HUGE improvements.
  2053	*/
  2054	
  2055	/* Returns 2x */
  2056	pnt twice0(pnt x){
  2057	  return asl1(x,1,0);}
  2058	
  2059	/* Returns 2x+1 */
  2060	pnt twice1(pnt x){
  2061	  return asl1(x,1,1);}
  2062	
  2063	/* pairUnaryMinus(q::r)=(-q)::(-r) */
  2064	pnt pairUnaryMinus(pnt x){
  2065	  pnt y=HEAD(x);
  2066	  pnt z=TAIL(x);
  2067	  push(z);
  2068	  y=unaryMinus(y);
  2069	  push(y);
  2070	  return ret(2,pair(y,unaryMinus(z)));}
  2071	
  2072	/* divAdjust(q::r,d)=(q+1)::(r-d) */
  2073	pnt divAdjust(pnt x,pnt d){
  2074	  pnt q=HEAD(x);
  2075	  pnt r=TAIL(x);
  2076	  push(q);
  2077	  r=minus(r,d);
  2078	  push(r);
  2079	  return ret(2,pair(plus(q,I[1]),r));}
  2080	
  2081	/*
  2082	Divide non-negative remainder with positive divisor.
  2083	floor1(x,y) divides x by y and returns pair(quotient,remainder).
  2084	The remainder satisfies 0 <= remainder < y.
  2085	floor1 does not secure its first argument against GC.
  2086	*/
  2087	
  2088	pnt floor1(pnt dividend,pnt divisor){
  2089	  pnt result,quotient,remainder,remainder1;
  2090	  push(divisor);
  2091	  if(lt(dividend,divisor)==T) return ret(1,pair(Z,dividend));
  2092	  result=floor1(dividend,twice0(divisor));
  2093	  push(result);
  2094	  quotient=HEAD(result);
  2095	  remainder=TAIL(result);
  2096	  remainder1=minus(remainder,divisor);
  2097	  if(lt(remainder1,Z)==T) return ret(2,pair(twice0(quotient),remainder));
  2098	  push(remainder1);
  2099	  return ret(3,pair(twice1(quotient),remainder1));}
  2100	
  2101	/* Version of floor which secures both arguments against GC */
  2102	pnt floor0(pnt dividend,pnt divisor){
  2103	  push(dividend);
  2104	  return ret(1,floor1(dividend,divisor));}
  2105	
  2106	/* dividend>=0, divisor>0 */
  2107	pnt ceiling0(pnt dividend,pnt divisor){
  2108	  pnt result;
  2109	  result=floor0(dividend,divisor);
  2110	  if(TAIL(result)==Z) return result;
  2111	  return divAdjust(result,divisor);}
  2112	
  2113	/* dividend>=0, divisor>0 */
  2114	pnt round0(pnt dividend,pnt divisor){
  2115	  pnt result,result1;
  2116	  push(divisor);
  2117	  result=floor0(dividend,divisor);
  2118	  push(result);
  2119	  result1=cmp1(twice0(TAIL(result)),divisor);
  2120	  if(result1==0) return ret(2,result);
  2121	  if(result1==2) return ret(2,divAdjust(result,divisor));
  2122	  if(evenp(HEAD(result))==T) return ret(2,result);
  2123	  return ret(2,divAdjust(result,divisor));}
  2124	
  2125	pnt floorx(pnt x,pnt y){/* floor ( " , " ) */
  2126	  if(NO_INT(x)) return X;
  2127	  if(NO_INT(y)) return X;
  2128	  if(le(y,Z)==T) return X;
  2129	  if(ge(x,Z)==T) return floor0(x,y);
  2130	  push(y);
  2131	  return ret(1,pairUnaryMinus(ceiling0(unaryMinus(x),y)));}
  2132	
  2133	pnt ceilingx(pnt x,pnt y){/* ceiling ( " , " ) */
  2134	  if(NO_INT(x)) return X;
  2135	  if(NO_INT(y)) return X;
  2136	  if(le(y,Z)==T) return X;
  2137	  if(ge(x,Z)==T) return ceiling0(x,y);
  2138	  push(y);
  2139	  return ret(1,pairUnaryMinus(floor0(unaryMinus(x),y)));}
  2140	
  2141	pnt truncatex(pnt x,pnt y){/* truncate ( " , " ) */
  2142	  if(NO_INT(x)) return X;
  2143	  if(NO_INT(y)) return X;
  2144	  if(le(y,Z)==T) return X;
  2145	  if(ge(x,Z)==T) return floor0(x,y);
  2146	  push(y);
  2147	  return ret(1,pairUnaryMinus(floor0(unaryMinus(x),y)));}
  2148	
  2149	pnt roundx(pnt x,pnt y){/* round ( " , " ) */
  2150	  if(NO_INT(x)) return X;
  2151	  if(NO_INT(y)) return X;
  2152	  if(le(y,Z)==T) return X;
  2153	  if(ge(x,Z)==T) return round0(x,y);
  2154	  push(y);
  2155	  return ret(1,pairUnaryMinus(round0(unaryMinus(x),y)));}
  2156	
  2157	pnt divx(pnt x,pnt y){/* " div " */
  2158	  if(NO_INT(x)) return X;
  2159	  if(NO_INT(y)) return X;
  2160	  if(le(y,Z)==T) return X;
  2161	  if(ge(x,Z)==T) return HEAD(floor0(x,y));
  2162	  push(y);
  2163	  return ret(1,unaryMinus(HEAD(ceiling0(unaryMinus(x),y))));}
  2164	
  2165	pnt modx(pnt x,pnt y){/* " mod " */
  2166	  if(NO_INT(x)) return X;
  2167	  if(NO_INT(y)) return X;
  2168	  if(le(y,Z)==T) return X;
  2169	  if(ge(x,Z)==T) return TAIL(floor0(x,y));
  2170	  push(y);
  2171	  return ret(1,unaryMinus(TAIL(ceiling0(unaryMinus(x),y))));}
  2172	
  2173	
  2174	
  2175	pnt raise0(pnt x){/* " raise */
  2176	  return cons(TAG_EX,x,NIL);}
  2177	
  2178	pnt object(pnt x){/* object ( " ) */
  2179	  pnt tag,ref,idx,val,cmp;
  2180	  if(NO_PAIR(x)) return X;
  2181	  tag=HEAD(x);
  2182	  val=TAIL(x);
  2183	  if(NO_PAIR(tag)) return X;
  2184	  ref=HEAD(tag);
  2185	  idx=TAIL(tag);
  2186	  if(NO_INT(ref)) return X;
  2187	  if(NO_INT(idx)) return X;
  2188	  cmp=cmp1(ref,Z);
  2189	  if(cmp==0) return X;
  2190	  if(T==lt(idx,I[(cmp==1)?5:0])) return X;
  2191	  return cons(TAG_OBJ,tag,val);}
  2192	
  2193	pnt destruct(pnt x){/* destruct ( " ) */
  2194	  if(NO_OBJ(x)) return X;
  2195	  return pair(HEAD(x),TAIL(x));}
  2196	
  2197	pnt vector2(pnt x){
  2198	  if(x<256) return 1;
  2199	  return (x&0xFF)|(vector2(x>>8)<<8);}
  2200	
  2201	pnt vector1(pnt x){
  2202	  pnt u=HEAD(x);
  2203	  pnt y=TAIL(x);
  2204	  if(y==NIL||y==Z) return consvec(vector2(u),NIL);
  2205	  return consvec(u,vector1(y));}
  2206	
  2207	pnt vector(pnt x){/* vector ( " ) */
  2208	  if(x==T) return X;
  2209	  switch(ROOT(x)){
  2210	  case TAG_VECT: return x;
  2211	  case TAG_INT:
  2212	    if(le(x,Z)==T) return E;
  2213	    return vector1(x);
  2214	  default: return X;}}
  2215	
  2216	pnt endlength(pnt x){
  2217	  if(TAIL(x)) return endlength(TAIL(x));
  2218	  return integerLength3(HEAD(x));}
  2219	
  2220	pnt vectorNorm(pnt x){/* vector-norm ( " ) */
  2221	  if(x==T) return X;
  2222	  switch(ROOT(x)){
  2223	  case TAG_VECT: return x;
  2224	  case TAG_INT:
  2225	    if(le(x,Z)==T) return T;
  2226	    if(endlength(x)%8!=1) return T;
  2227	    return vector1(x);
  2228	  default: return X;}}
  2229	
  2230	pnt vectorEmpty(pnt x){/* vector-empty ( " ) */
  2231	  return le(x,I[255]);}
  2232	
  2233	pnt vectorLength2(pnt x){
  2234	  if(x<256) return 0;
  2235	  return 1+vectorLength2(x>>8);}
  2236	
  2237	pnt vectorLength1(pnt x){
  2238	  pnt y=TAIL(x);
  2239	  if((!y)||(y==Z)) return vectorLength2(HEAD(x));
  2240	  return bytesize+vectorLength1(y);}
  2241	
  2242	pnt negative(pnt x){
  2243	  if(ROOT(x)==TAG_VECT) return FALSE;
  2244	  for(;TAIL(x);x=TAIL(x));
  2245	  return (HEAD(x)&signmask)!=0;}
  2246	
  2247	pnt vectorLength(pnt x){/* vector-length ( " ) */
  2248	  if(NO_INT(x)) return X;
  2249	  if(negative(x)) return Z;
  2250	  return intcons(vectorLength1(x),Z);}
  2251	
  2252	pnt vectorIndex2(pnt x,pnt y){
  2253	  if(y==0) return x&0xFF;
  2254	  return vectorIndex2(x>>8,y-1);}
  2255	
  2256	pnt vectorIndex1(pnt x,pnt y){
  2257	  if(y<bytesize) return vectorIndex2(HEAD(x),y);
  2258	  return vectorIndex1(TAIL(x),y-bytesize);}
  2259	
  2260	pnt vectorIndex(pnt x,pnt y){/* vector-index ( " , " ) */
  2261	  if(NO_INT(x)) return X;
  2262	  if(NO_INT(y)) return X;
  2263	  if(negative(x)) return X;
  2264	  if(inttail(y)!=Z) return X;
  2265	  if(HEAD(y)>=vectorLength1(x)) return X;
  2266	  return intcons(vectorIndex1(x,HEAD(y)),Z);}
  2267	
  2268	pnt consvec1(pnt x,pnt y){
  2269	  if(y) return consvec(x,y);
  2270	  if(x==0) return NIL;
  2271	  return consvec(vector2(x),NIL);}
  2272	
  2273	pnt vectorSuffix2(pnt x,pnt y,pnt z){
  2274	  pnt u=HEAD(x);
  2275	  pnt v=TAIL(x);
  2276	  if(v) return consvec1((u>>y)|(HEAD(v)<<z),vectorSuffix2(v,y,z));
  2277	  return consvec1(u>>y,NIL);}
  2278	
  2279	pnt vectorSuffix1(pnt x,pnt y){
  2280	  if(y==0) return vector(x);
  2281	  if(y<bytesize) return vectorSuffix2(x,y*8,pntsize-y*8);
  2282	  return vectorSuffix1(TAIL(x),y-bytesize);}
  2283	
  2284	pnt vectorSuffix(pnt x,pnt y){/* vector-suffix ( " , " ) */
  2285	  if(NO_INT(x)) return X;
  2286	  if(NO_INT(y)) return X;
  2287	  if(negative(y)) return vector(x);
  2288	  if(cmp1(vectorLength(x),y)<=1) return E;
  2289	  if(inttail(y)!=Z) die("vectorSuffix overflow");
  2290	  return vectorSuffix1(x,HEAD(y));}
  2291	
  2292	pnt vectorPrefix2(pnt x,pnt y){
  2293	  if(y==0) return 1;
  2294	  return (x&0xFF)|(vectorPrefix2(x>>8,y-1)<<8);}
  2295	
  2296	pnt vectorPrefix1(pnt x,pnt y){
  2297	  pnt u=HEAD(x);
  2298	  if(y<bytesize) return consvec(vectorPrefix2(u,y),NIL);
  2299	  return consvec(u,vectorPrefix1(TAIL(x),y-bytesize));}
  2300	
  2301	pnt vectorPrefix(pnt x,pnt y){/* vector-prefix ( " , " ) */
  2302	  if(NO_INT(x)) return X;
  2303	  if(NO_INT(y)) return X;
  2304	  if(negative(y)) return E;
  2305	  if(cmp1(vectorLength(x),y)<=1) return vector(x);
  2306	  if(inttail(y)!=Z) die("vectorPrefix overflow");
  2307	  return vectorPrefix1(x,HEAD(y));}
  2308	
  2309	pnt vectorSubseq3(pnt x,pnt y1,pnt y2,pnt z){
  2310	  pnt u=HEAD(x);
  2311	  pnt v=TAIL(x);
  2312	  if(v) v=HEAD(v);
  2313	  return vectorPrefix2((u>>y1)|(v<<y2),z);}
  2314	
  2315	pnt vectorSubseq2(pnt x,pnt y1,pnt y2,pnt z){
  2316	  pnt u,v;
  2317	  if(z<bytesize) return consvec(vectorSubseq3(x,y1,y2,z),NIL);
  2318	  u=HEAD(x);
  2319	  v=TAIL(x);
  2320	  return consvec((u>>y1)|(HEAD(v)<<y2),vectorSubseq2(v,y1,y2,z-bytesize));}
  2321	
  2322	pnt vectorSubseq1(pnt x,pnt y,pnt z){
  2323	  if(y==0) return vectorPrefix1(x,z);
  2324	  if(y<bytesize) return vectorSubseq2(x,y*8,pntsize-y*8,z);
  2325	  return vectorSubseq1(TAIL(x),y-bytesize,z);}
  2326	
  2327	pnt vectorSubseq(pnt x,pnt y,pnt z){/* vector-subseq ( " , " , " ) */
  2328	  pnt len;
  2329	  if(NO_INT(x)) return X;
  2330	  if(NO_INT(y)) return X;
  2331	  if(NO_INT(z)) return X;
  2332	  if(negative(y)) return vectorPrefix(x,z);
  2333	  len=vectorLength(x);
  2334	  if(cmp1(len,y)<=1) return E;
  2335	  if(cmp1(z,y)<=1) return E;
  2336	  if(cmp1(len,z)<=1) return vectorSuffix(x,y);
  2337	  if(inttail(z)!=Z) die("vectorSubseq overflow");
  2338	  return vectorSubseq1(x,HEAD(y),HEAD(z)-HEAD(y));}
  2339	
  2340	pnt vector2bytes3(pnt x,pnt y){
  2341	  if(x<=255) return y;
  2342	  return pair(I[x&0xFF],vector2bytes3(x>>8,y));}
  2343	
  2344	pnt vector2bytes2(pnt x,pnt y,pnt z){
  2345	  if(!y) return z;
  2346	  return pair(I[x&0xFF],vector2bytes2(x>>8,y-1,z));}
  2347	
  2348	pnt vector2bytes1(pnt x,pnt y){
  2349	  if(!TAIL(x)) return vector2bytes3(HEAD(x),y);
  2350	  return vector2bytes2(HEAD(x),bytesize,vector2bytes1(TAIL(x),y));}
  2351	
  2352	pnt vector2bytes(pnt x){/* vector2byte* ( " ) */
  2353	  if(NO_INT(x)) return X;
  2354	  if(negative(x)) return T;
  2355	  return vector2bytes1(x,T);}
  2356	
  2357	pnt vector2vects3(pnt x,pnt y){
  2358	  if(x<=255) return y;
  2359	  return pair(bytevect[x&0xFF],vector2vects3(x>>8,y));}
  2360	
  2361	pnt vector2vects2(pnt x,pnt y,pnt z){
  2362	  if(!y) return z;
  2363	  return pair(bytevect[x&0xFF],vector2vects2(x>>8,y-1,z));}
  2364	
  2365	pnt vector2vects1(pnt x,pnt y){
  2366	  if(!TAIL(x)) return vector2vects3(HEAD(x),y);
  2367	  return vector2vects2(HEAD(x),bytesize,vector2vects1(TAIL(x),y));}
  2368	
  2369	pnt vector2vects(pnt x){/* vector2vector* ( " ) */
  2370	  if(NO_INT(x)) return X;
  2371	  if(negative(x)) return T;
  2372	  return vector2vects1(x,T);}
  2373	
  2374	pnt bt2bytes1(pnt x,pnt y){
  2375	  if(x==T) return y;
  2376	  switch(ROOT(x)){
  2377	  case TAG_FALSE:
  2378	  case TAG_MAP:
  2379	  case TAG_OBJ:
  2380	    return y;
  2381	  case TAG_INT:
  2382	  case TAG_VECT:
  2383	    if(TAIL(x)) return y;
  2384	    if(HEAD(x)>255) return y;
  2385	    return pair(x,y);
  2386	  case TAG_PAIR:
  2387	    push(x);
  2388	    return ret(1,bt2bytes1(HEAD(x),bt2bytes1(TAIL(x),y)));
  2389	  default:
  2390	    unexpected_tag("bt2bytes1",x);
  2391	    return T; /* This never happens */}}
  2392	
  2393	pnt bt2bytes(pnt x){/* bt2byte* ( " ) */
  2394	  return bt2bytes1(x,T);}
  2395	
  2396	pnt bt2vects1(pnt x,pnt y){
  2397	  if(x==T) return y;
  2398	  switch(ROOT(x)){
  2399	  case TAG_FALSE:
  2400	  case TAG_MAP:
  2401	  case TAG_OBJ:
  2402	    return y;
  2403	  case TAG_INT:
  2404	  case TAG_VECT:
  2405	    if(TAIL(x)) return y;
  2406	    if(HEAD(x)>255) return y;
  2407	    return pair(bytevect[HEAD(x)],y);
  2408	  case TAG_PAIR:
  2409	    push(x);
  2410	    return ret(1,bt2vects1(HEAD(x),bt2vects1(TAIL(x),y)));
  2411	  default:
  2412	    unexpected_tag("bt2vects1",x);
  2413	    return T; /* This never happens */}}
  2414	
  2415	pnt bt2vects(pnt x){/* bt2vector* ( " ) */
  2416	  return bt2vects1(x,T);}
  2417	
  2418	pnt vt2bytes1(pnt x,pnt y){
  2419	  if(x==T) return y;
  2420	  switch(ROOT(x)){
  2421	  case TAG_FALSE:
  2422	  case TAG_MAP:
  2423	  case TAG_OBJ:
  2424	    return y;
  2425	  case TAG_INT:
  2426	  case TAG_VECT:
  2427	    if(negative(x)) return y;
  2428	    return vector2bytes1(x,y);
  2429	  case TAG_PAIR:
  2430	    push(x);
  2431	    return ret(1,vt2bytes1(HEAD(x),vt2bytes1(TAIL(x),y)));
  2432	  default:
  2433	    unexpected_tag("bt2bytes1",x);
  2434	    return T; /* This never happens */}}
  2435	
  2436	pnt vt2bytes(pnt x){/* vt2byte* ( " ) */
  2437	  return vt2bytes1(x,T);}
  2438	
  2439	pnt vt2vects1(pnt x,pnt y){
  2440	  if(x==T) return y;
  2441	  switch(ROOT(x)){
  2442	  case TAG_FALSE:
  2443	  case TAG_MAP:
  2444	  case TAG_OBJ:
  2445	    return y;
  2446	  case TAG_INT:
  2447	  case TAG_VECT:
  2448	    if(negative(x)) return y;
  2449	    return vector2vects1(x,y);
  2450	  case TAG_PAIR:
  2451	    push(x);
  2452	    return ret(1,vt2vects1(HEAD(x),vt2vects1(TAIL(x),y)));
  2453	  default:
  2454	    unexpected_tag("vt2vects1",x);
  2455	    return T; /* This never happens */}}
  2456	
  2457	pnt vt2vects(pnt x){/* vt2vector* ( " ) */
  2458	  return vt2vects1(x,T);}
  2459	
  2460	pnt bytes2vector(pnt n,pnt x){
  2461	  pnt u,y;
  2462	  if(x==T) return consvec(1,NIL);
  2463	  u=HEAD(HEAD(x));
  2464	  if(n==bytesize) return consvec(u,bytes2vector(1,TAIL(x)));
  2465	  y=bytes2vector(n+1,TAIL(x));
  2466	  HEAD(y)=(HEAD(y)<<8)|u;
  2467	  return y;}
  2468	
  2469	pnt bt2vector(pnt x){/* bt2vector ( " ) */
  2470	  return bytes2vector(1,bt2bytes(x));}
  2471	
  2472	pnt vt2vector(pnt x){/* vt2vector ( " ) */
  2473	  return bytes2vector(1,vt2bytes(x));}
  2474	
  2475	pnt spy(pnt x){/* spy ( " ) */
  2476	  spyvar=x;
  2477	  return const_spy;}
  2478	
  2479	pnt trace(pnt x){/* trace ( " ) */
  2480	  spy0(x);
  2481	  return const_trace;}
  2482	
  2483	pnt print(pnt x){/* print ( " ) */
  2484	  print1(x);
  2485	  return const_print;}
  2486	
  2487	pnt timer(pnt x){/* timer ( " ) */
  2488	  if(x==T) setTimer(-1);
  2489	  else if(ROOT(x)!=TAG_INT&&ROOT(x)!=TAG_VECT) setTimer(-1);
  2490	  else if(TAIL(x)!=NIL) setTimer(-1);
  2491	  else if(HEAD(x)>TIMERS) setTimer(-1);
  2492	  else setTimer(HEAD(x));
  2493	  return const_timer;}
  2494	
  2495	
  2496	
  2497	/*********************
  2498	 * GENERAL FUNCTIONS *
  2499	 *********************/
  2500	
  2501	pnt term_apply(pnt fct,pnt arg){
  2502	  return cons(TTAG_APPLY,fct,arg);}
  2503	
  2504	pnt term_lambda(pnt body){
  2505	  return cons(TTAG_LAMBDA,body,NIL);}
  2506	
  2507	pnt term_lambdas(pnt arity,pnt body){
  2508	  if(arity==0) return body;
  2509	  return term_lambda(term_lambdas(arity-1,body));}
  2510	
  2511	pnt term_call(pnt fct,pnt arg){
  2512	  return cons(TTAG_CALL,fct,arg);}
  2513	
  2514	pnt term_ecall(pnt fct,pnt arg){
  2515	  return cons(TTAG_ECALL,fct,arg);}
  2516	
  2517	pnt term_var(pnt index){
  2518	  return cons2(TTAG_VAR,index,NIL);}
  2519	
  2520	pnt term_pair(pnt x,pnt y){
  2521	  return cons(TTAG_PAIR,x,y);}
  2522	
  2523	pnt term_const(pnt x){
  2524	  return cons(TTAG_CONST,x,NIL);}
  2525	
  2526	pnt closure(pnt term,pnt env){
  2527	  return cons(MTAG_CLOSURE,term,env);}
  2528	
  2529	pnt overwrite(pnt closure,pnt rnf){
  2530	  ROOT(closure)=MTAG_INDIR;
  2531	  TAIL(closure)=rnf;
  2532	  return rnf;}
  2533	
  2534	pnt map_pair(pnt x,pnt y){
  2535	  return cons(MTAG_PAIR,x,y);}
  2536	
  2537	pnt map_lambda(pnt term,pnt env){
  2538	  return cons(MTAG_LAMBDA,term,env);}
  2539	
  2540	pnt bit2map(pnt x){
  2541	  if(x&1) return map_f; else return map_t;}
  2542	
  2543	pnt small2rnf(pnt card){
  2544	  if(card==0) return T;
  2545	  return map_pair(bit2map(card),small2rnf(card>>1));}
  2546	
  2547	pnt card2rnf1(pnt card,pnt cnt,pnt result){
  2548	  if(cnt==0) return result;
  2549	  return map_pair(bit2map(card),card2rnf1(card>>1,cnt-1,result));}
  2550	
  2551	pnt card2rnf(pnt card){
  2552	  pnt tmp1;
  2553	  if(TAIL(card)==T) return small2rnf(HEAD(card));
  2554	  tmp1=HEAD(card);
  2555	  return card2rnf1(tmp1,pntsize,card2rnf(TAIL(card)));}
  2556	
  2557	pnt map2rnf(pnt map){
  2558	  if(map==T) return T;
  2559	  switch(ROOT(map)){
  2560	  case MTAG_INDIR: return TAIL(map);
  2561	  case MTAG_CLOSURE:
  2562	    push(map);
  2563	    return ret(1,overwrite(map,term2rnf(HEAD(map),TAIL(map))));
  2564	  case MTAG_PAIR:
  2565	  case MTAG_LAMBDA:
  2566	  case MTAG_FIX:
  2567	  case TAG_FALSE:
  2568	  case TAG_INT:
  2569	  case TAG_VECT:
  2570	  case TAG_PAIR:
  2571	  case TAG_EX:
  2572	  case TAG_MAP:
  2573	  case TAG_OBJ:
  2574	    return map;
  2575	  default:
  2576	    unexpected_tag("map2rnf",map);
  2577	    return T; /* This never happens */}}
  2578	
  2579	pnt fixpoint(pnt map){
  2580	  pnt env=map_pair(T,map_pair(map,T));
  2581	  pnt result=closure(term_fix,env);
  2582	  HEAD(env)=result;
  2583	  return map2rnf(result);}
  2584	
  2585	void spyenv(pnt env){for(;env;env=TAIL(env)) spy0(HEAD(env));}
  2586	
  2587	pnt terms2closures(pnt terms,pnt env){
  2588	  pnt closure0;
  2589	  if(terms==NIL) return NIL;
  2590	  closure0=closure(HEAD(terms),env);
  2591	  push(closure0);
  2592	  return ret(1,map_pair(closure0,terms2closures(TAIL(terms),env)));}
  2593	
  2594	pnt terms2tagged(pnt terms,pnt env){
  2595	  pnt tagged1,tagged2;
  2596	  if(terms==NIL) return NIL;
  2597	  tagged2=terms2tagged(TAIL(terms),env);
  2598	  if(IS_EX(tagged2)) return tagged2;
  2599	  push(tagged2);
  2600	  tagged1=untag1(term2rnf(HEAD(terms),env));
  2601	  if(IS_EX(tagged1)) return ret(1,tagged1);
  2602	  return ret(1,pair(tagged1,tagged2));}
  2603	
  2604	pnt map_apply(pnt map,pnt arg){
  2605	  pnt rnf;
  2606	  push(arg);
  2607	  push(rnf=map2rnf(map));
  2608	  if(rnf==T) return ret(2,rnf);
  2609	  switch(ROOT(rnf)){
  2610	  case MTAG_PAIR:
  2611	    if(map2rnf(arg)==T) return ret(2,map2rnf(HEAD(rnf)));
  2612	    return ret(2,map2rnf(TAIL(rnf)));
  2613	  case MTAG_LAMBDA:
  2614	    return ret(2,term2rnf(HEAD(rnf),map_pair(arg,TAIL(rnf))));
  2615	  case MTAG_FIX:
  2616	    return ret(2,fixpoint(arg));
  2617	  case TAG_FALSE:
  2618	    map2rnf(arg); /* ensure infinite looping when appropriate */
  2619	    return ret(2,T);
  2620	  case TAG_INT:
  2621	  case TAG_VECT:
  2622	    if(T==map2rnf(arg)) return ret(2,maptag_int);
  2623	    if(negative(rnf)) return ret(2,map_pair(map_f,card2rnf(unaryMinus(rnf))));
  2624	    return ret(2,map_pair(map_t,card2rnf(rnf)));
  2625	  case TAG_PAIR:
  2626	    if(T==map2rnf(arg)) return ret(2,maptag_pair);
  2627	    return ret(2,map_pair(HEAD(rnf),TAIL(rnf)));
  2628	  case TAG_EX:
  2629	    if(T==map2rnf(arg)) return ret(2,maptag_ex);
  2630	    return ret(2,HEAD(rnf));
  2631	  case TAG_MAP:
  2632	    if(T==map2rnf(arg)) return ret(2,maptag_map);
  2633	    return ret(2,map2rnf(HEAD(rnf)));
  2634	  case TAG_OBJ:
  2635	    if(map2rnf(arg)!=T) return ret(2,TAIL(rnf));
  2636	    return ret(2,
  2637	    MAP_PAIR(card2rnf(HEAD(HEAD(rnf))),card2rnf(TAIL(HEAD(rnf)))));
  2638	  default:
  2639	    unexpected_tag("map_apply",rnf);
  2640	    return T; /* This never happens */}}
  2641	
  2642	pnt term2rnf(pnt term,pnt env){
  2643	  push(term);
  2644	  push(env);
  2645	  switch(ROOT(term)){
  2646	  case TTAG_APPLY:{
  2647	    pnt rnf;
  2648	    rnf=term2rnf(HEAD(term),env);
  2649	    if(rnf==T) return ret(2,T);
  2650	    push(rnf);
  2651	    switch(ROOT(rnf)){
  2652	    case MTAG_PAIR:
  2653	      if(T==term2rnf(TAIL(term),env)) return ret(3,map2rnf(HEAD(rnf)));
  2654	      return ret(3,map2rnf(TAIL(rnf)));
  2655	    case MTAG_LAMBDA:
  2656	      return ret(3,
  2657	      term2rnf(HEAD(rnf),map_pair(closure(TAIL(term),env),TAIL(rnf))));
  2658	    case MTAG_FIX:
  2659	      return ret(3,fixpoint(term2rnf(TAIL(term),env)));
  2660	    case TAG_FALSE:
  2661	      term2rnf(TAIL(term),env); /* ensure infinite looping when appropriate */
  2662	      return ret(3,NIL);
  2663	    case TAG_INT:
  2664	    case TAG_VECT:
  2665	      if(T==term2rnf(TAIL(term),env)) return ret(3,maptag_int);
  2666	      if(negative(rnf)) return ret(3,map_pair(map_f,card2rnf(unaryMinus(rnf))));
  2667	      return ret(3,map_pair(map_t,card2rnf(rnf)));
  2668	    case TAG_PAIR:
  2669	      if(T==term2rnf(TAIL(term),env)) return ret(3,maptag_pair);
  2670	      return ret(3,map_pair(HEAD(rnf),TAIL(rnf)));
  2671	    case TAG_EX:
  2672	      if(T==term2rnf(TAIL(term),env)) return ret(3,maptag_ex);
  2673	      return ret(3,HEAD(rnf));
  2674	    case TAG_MAP:
  2675	      if(T==term2rnf(TAIL(term),env)) return ret(3,maptag_map);
  2676	      return ret(3,map2rnf(HEAD(rnf)));
  2677	    case TAG_OBJ:
  2678	      if(term2rnf(TAIL(term),env)) return ret(3,TAIL(rnf));
  2679	      return ret(3,
  2680	      MAP_PAIR(card2rnf(HEAD(HEAD(rnf))),card2rnf(TAIL(HEAD(rnf)))));
  2681	    default:
  2682	      unexpected_tag("term2rnf/apply",rnf);}}
  2683	  case TTAG_LAMBDA:
  2684	    return ret(2,map_lambda(HEAD(term),env));
  2685	  case TTAG_CALL:{
  2686	    /* current version allows call of n-ary CLOSED terms */
  2687	    return ret(2,term2rnf(HEAD(term),terms2closures(TAIL(term),env)));}
  2688	  case TTAG_ECALL:{
  2689	    pnt args;
  2690	    /* current version allows call of n-ary CLOSED terms */
  2691	    args=terms2tagged(TAIL(term),env);
  2692	    if(IS_EX(args)) return ret(2,args);
  2693	    push(args);
  2694	    return ret(3,eval(HEAD(term),args));}
  2695	  case TTAG_VAR:{
  2696	    pnt i;
  2697	    pnt n=HEAD(term);
  2698	    for(i=0;i<n;i++){env=TAIL(env);if(T==env) return ret(2,env);}
  2699	    return ret(2,map2rnf(HEAD(env)));}
  2700	  case TTAG_PAIR:
  2701	    return ret(2,MAP_PAIR(closure(HEAD(term),env),closure(TAIL(term),env)));
  2702	  case TTAG_CONST:
  2703	    return ret(2,map2rnf(HEAD(term)));
  2704	  default:
  2705	    unexpected_tag("term2rnf",term);
  2706	    return T; /* This never happens */}}
  2707	
  2708	
  2709	
  2710	/****************************
  2711	 * Tagged general functions *
  2712	 ****************************/
  2713	
  2714	pnt delay_apply(pnt fct,pnt arg){
  2715	  push(fct);
  2716	  return ret(1,closure(term_delay,pair(fct,pair(arg,NIL))));}
  2717	
  2718	pnt map_head(pnt rnf){
  2719	  return map_apply(rnf,map_t);}
  2720	
  2721	pnt map_tail(pnt rnf){
  2722	  return map_apply(rnf,map_f);}
  2723	
  2724	pnt mapcons2(pnt tag,pnt x){
  2725	  return cons1(TAG_MAP,x,tag);}
  2726	
  2727	pnt mapcons(pnt x){
  2728	  return mapcons2(CTAG_MAP,x);}
  2729	
  2730	pnt maptag(pnt x){/* " maptag */
  2731	  return mapcons(x);}
  2732	
  2733	pnt rnf2card(pnt rnf){
  2734	  pnt val=0;
  2735	  pnt pos;
  2736	  for(pos=0;pos<pntsize;pos++){
  2737	    if(rnf==T) return intcons(val,Z);
  2738	    if(map_head(rnf)!=T) val|=((pnt)1)<<pos;
  2739	    rnf=map_tail(rnf);}
  2740	  return intcons(val,rnf2card(rnf));}
  2741	
  2742	pnt rnf2int(pnt x){
  2743	  if(map_head(x)==T) return rnf2card(map_tail(x));
  2744	  return unaryMinus(rnf2card(map_tail(x)));}
  2745	
  2746	pnt objcons(pnt x,pnt y,pnt z){
  2747	  return cons(TAG_OBJ,pair(x,y),z);}
  2748	
  2749	pnt untag1(pnt x){
  2750	  pnt tag,val,ref,idx;
  2751	  if(x==T) return T;
  2752	  switch(ROOT(x)){
  2753	  case TAG_FALSE:
  2754	  case TAG_INT:
  2755	  case TAG_VECT:
  2756	  case TAG_PAIR:
  2757	  case TAG_EX:
  2758	  case TAG_MAP:
  2759	  case TAG_OBJ:
  2760	    return x;
  2761	  case MTAG_CLOSURE:
  2762	  case MTAG_INDIR:
  2763	  case MTAG_PAIR:
  2764	  case MTAG_LAMBDA:
  2765	  case MTAG_FIX:
  2766	    break;
  2767	  case TAG_GARB:
  2768	    die("untag1: Attempt to reduce garbage");
  2769	  case ETAG_bottom:
  2770	    bottom();
  2771	  default:
  2772	    unexpected_tag("untag1",x);}
  2773	  x=map2rnf(x);
  2774	  push(x);
  2775	  push(tag=map_head(x));
  2776	  push(ref=rnf2card(map_head(tag)));
  2777	  push(idx=rnf2card(map_tail(tag)));
  2778	  if(ref!=Z) return ret(4,objcons(ref,idx,untag1(map_tail(x))));
  2779	  if(TAIL(idx)) return ret(4,objcons(ref,idx,untag1(map_tail(x))));
  2780	  switch(HEAD(idx)){
  2781	  case 0: if(x==T) return ret(4,T); else return ret(4,F);
  2782	  case 1: return ret(4,rnf2int(map_tail(x)));
  2783	  case 2:
  2784	    push(val=map_tail(x));
  2785	    push(untag1(map_head(val)));
  2786	    push(untag1(map_tail(val)));
  2787	    return ret(7,pair(stack[sp+1],stack[sp]));
  2788	  case 3: return ret(4,raise0(untag1(map_tail(x))));
  2789	  case 4: return ret(4,mapcons(delay_apply(x,map_f)));
  2790	  default: return ret(4,objcons(ref,idx,untag1(map_tail(x))));}}
  2791	
  2792	pnt untag(pnt x){/* " untag */
  2793	  if(NO_MAP(x)) return X;
  2794	  return untag1(HEAD(x));}
  2795	
  2796	pnt apply(pnt x,pnt y){/* " apply " */
  2797	  if(NO_MAP(x)) return X;
  2798	  if(NO_MAP(y)) return X;
  2799	  return mapcons(delay_apply(HEAD(x),HEAD(y)));}
  2800	
  2801	pnt root(pnt x){/* " root */
  2802	  if(NO_MAP(x)) return X;
  2803	  if(map2rnf(HEAD(x))==T) return T;
  2804	  return F;}
  2805	
  2806	
  2807	
  2808	/********************
  2809	 * Eager evaluation *
  2810	 ********************/
  2811	
  2812	#define STACK0(tag,fct) \
  2813	  case tag: \
  2814	    result=fct(); \
  2815	    goto unstack;
  2816	
  2817	#define STACK1(tag) \
  2818	  case tag: \
  2819	    push(I[tag]); \
  2820	    term=TAIL(term); \
  2821	    goto resume;
  2822	#define UNSTACK1(tag,fct) \
  2823	  case tag: \
  2824	    if(IS_EX(result)) goto unstack; \
  2825	    result=fct(result); \
  2826	    goto unstack;
  2827	
  2828	#define STACK2(tag) \
  2829	  case tag: \
  2830	    push(TAIL(term)); \
  2831	    push(I[tag]); \
  2832	    term=HEAD(term); \
  2833	    goto resume;
  2834	#define UNSTACK2(tag,fct) \
  2835	  case tag: \
  2836	    term=pop(); \
  2837	    if(IS_EX(result)) goto unstack; \
  2838	    push(result); \
  2839	    push(bytevect[tag]); \
  2840	    goto resume; \
  2841	  case tag+256:  \
  2842	    term=pop(); \
  2843	    if(IS_EX(result)) goto unstack; \
  2844	    result=fct(term,result); \
  2845	    goto unstack;
  2846	
  2847	#define STOP 0
  2848	#define ETAG_vsubseq2 1
  2849	
  2850	pnt eval(pnt term,pnt env){
  2851	  pnt result=T;
  2852	  pnt cnt;
  2853	  push(I[STOP]);
  2854	resume:
  2855	  if(term==T){result=T;goto unstack;}
  2856	  switch(ROOT(term)){
  2857	  case TAG_FALSE:
  2858	  case TAG_INT:
  2859	  case TAG_VECT:
  2860	  case TAG_PAIR:
  2861	  case TAG_EX:
  2862	  case TAG_MAP:
  2863	  case TAG_OBJ:
  2864	    result=term;
  2865	    goto unstack;
  2866	  case ETAG_var:
  2867	    result=env;
  2868	    for(cnt=HEAD(term);cnt>0;cnt--) result=TAIL(result);
  2869	    result=HEAD(result);
  2870	    goto unstack;
  2871	  case ETAG_ecall:
  2872	    push(env);
  2873	    push(HEAD(term));
  2874	    term=TAIL(term);
  2875	    if(term==T){
  2876	      env=T;
  2877	      term=pop();
  2878	      push(env);
  2879	      push(bytevect[ETAG_ecall]);
  2880	      goto resume;}
  2881	    push(TAIL(term));
  2882	    push(T);
  2883	    push(I[ETAG_ecall]);
  2884	    term=HEAD(term);
  2885	    goto resume;
  2886	  STACK1(ETAG_digit0       )
  2887	  STACK1(ETAG_digit1       )
  2888	  STACK1(ETAG_digit2       )
  2889	  STACK1(ETAG_digit3       )
  2890	  STACK1(ETAG_digit4       )
  2891	  STACK1(ETAG_digit5       )
  2892	  STACK1(ETAG_digit6       )
  2893	  STACK1(ETAG_digit7       )
  2894	  STACK1(ETAG_digit8       )
  2895	  STACK1(ETAG_digit9       )
  2896	  STACK2(ETAG_times        )
  2897	  STACK2(ETAG_plus         )
  2898	  STACK2(ETAG_minus        )
  2899	  STACK2(ETAG_and          )
  2900	  STACK2(ETAG_or           )
  2901	  STACK2(ETAG_then         )
  2902	  STACK2(ETAG_pair         )
  2903	  STACK2(ETAG_lt           )
  2904	  STACK2(ETAG_le           )
  2905	  STACK2(ETAG_equal        )
  2906	  STACK2(ETAG_gt           )
  2907	  STACK2(ETAG_ge           )
  2908	  STACK2(ETAG_apply        )
  2909	  STACK1(ETAG_boolp        )
  2910	  STACK1(ETAG_catch        )
  2911	  STACK1(ETAG_maptag1      )
  2912	  STACK2(ETAG_div          )
  2913	  STACK1(ETAG_head         )
  2914	  STACK1(ETAG_intp         )
  2915	  STACK2(ETAG_boolg        )
  2916	  STACK2(ETAG_intg         )
  2917	  STACK2(ETAG_mapg         )
  2918	  STACK2(ETAG_objg         )
  2919	  STACK2(ETAG_pairg        )
  2920	  STACK1(ETAG_mapp         )
  2921	  STACK1(ETAG_maptag       )
  2922	  STACK2(ETAG_mod          )
  2923	  STACK1(ETAG_norm         )
  2924	  STACK1(ETAG_objp         )
  2925	  STACK1(ETAG_pairp        )
  2926	  STACK1(ETAG_raise        )
  2927	  STACK1(ETAG_root         )
  2928	  STACK1(ETAG_tail         )
  2929	  STACK1(ETAG_untag        )
  2930	  STACK0(ETAG_digitend     ,zero         )
  2931	  STACK1(ETAG_par          )
  2932	  STACK1(ETAG_uplus        )
  2933	  STACK1(ETAG_dplus        )
  2934	  STACK1(ETAG_uminus       )
  2935	  STACK1(ETAG_dminus       )
  2936	  STACK1(ETAG_not          )
  2937	  STACK0(ETAG_Base         ,base         )
  2938	  STACK2(ETAG_LET          )
  2939	  STACK2(ETAG_ash          )
  2940	  STACK0(ETAG_bottom       ,bottom       )
  2941	  STACK1(ETAG_bt2bytes     )
  2942	  STACK1(ETAG_bt2vects     )
  2943	  STACK1(ETAG_bt2vector    )
  2944	  STACK2(ETAG_ceiling      )
  2945	  STACK1(ETAG_destruct     )
  2946	  STACK1(ETAG_evenp        )
  2947	  STACK0(ETAG_exception    ,exception    )
  2948	  STACK0(ETAG_false        ,false        )
  2949	  STACK2(ETAG_floor        )
  2950	  STACK1(ETAG_half         )
  2951	  case ETAG_if:
  2952	    push(TAIL(term));
  2953	    push(I[ETAG_if]);
  2954	    term=HEAD(term);
  2955	    goto resume;
  2956	  STACK1(ETAG_intlength    )
  2957	  STACK2(ETAG_logand       )
  2958	  STACK2(ETAG_logandc1     )
  2959	  STACK2(ETAG_logandc2     )
  2960	  STACK2(ETAG_logbitp      )
  2961	  STACK1(ETAG_logcount     )
  2962	  STACK2(ETAG_logeqv       )
  2963	  STACK2(ETAG_logior       )
  2964	  STACK2(ETAG_lognand      )
  2965	  STACK2(ETAG_lognor       )
  2966	  STACK1(ETAG_lognot       )
  2967	  STACK2(ETAG_logorc1      )
  2968	  STACK2(ETAG_logorc2      )
  2969	  STACK2(ETAG_logtest      )
  2970	  STACK2(ETAG_logxor       )
  2971	  case ETAG_map:
  2972	    result=mapcons(TAIL(term));
  2973	    goto unstack;
  2974	  STACK1(ETAG_prenorm      )
  2975	  STACK1(ETAG_notnot       )
  2976	  STACK1(ETAG_object       )
  2977	  STACK1(ETAG_print        )
  2978	  STACK2(ETAG_round        )
  2979	  STACK1(ETAG_spy          )
  2980	  STACK1(ETAG_timer        )
  2981	  STACK1(ETAG_trace        )
  2982	  STACK2(ETAG_truncate     )
  2983	  STACK1(ETAG_vector       )
  2984	  STACK1(ETAG_vnorm        )
  2985	  STACK1(ETAG_vempty       )
  2986	  STACK2(ETAG_vindex       )
  2987	  STACK1(ETAG_vlength      )
  2988	  STACK2(ETAG_vprefix      )
  2989	  STACK2(ETAG_vsubseq      ) /* STACK2 also applicable for arity 3 */
  2990	  STACK2(ETAG_vsuffix      )
  2991	  STACK1(ETAG_v2bytes      )
  2992	  STACK1(ETAG_v2vects      )
  2993	  STACK1(ETAG_vt2bytes     )
  2994	  STACK1(ETAG_vt2vects     )
  2995	  STACK1(ETAG_vt2v         )
  2996	  STACK1(ETAG_compile      )
  2997	  STACK1(ETAG_ripemd       )
  2998	  STACK1(ETAG_sl2rack      )
  2999	  STACK1(ETAG_rack2sl      )
  3000	/* GRD-2009-04-19: Ensure eager constants evaluated once only. */
  3001	  case MTAG_INDIR:
  3002	    result=TAIL(term);
  3003	    goto unstack;
  3004	  case MTAG_CLOSURE:
  3005	    push(term);
  3006	    result=overwrite(term,term2rnf(HEAD(term),TAIL(term)));
  3007	    pop();
  3008	    goto unstack;
  3009	  default: unexpected_tag("eval",term);}
  3010	unstack:
  3011	  switch(HEAD(pop())){
  3012	  case STOP:
  3013	    return result;
  3014	  case ETAG_ecall:
  3015	    if(IS_EX(result)){sp+=4;goto unstack;}
  3016	    result=pair(result,pop());
  3017	    term=pop();
  3018	    if(term==T){
  3019	      env=result;
  3020	      term=pop();
  3021	      push(env);
  3022	      push(bytevect[ETAG_ecall]);
  3023	      goto resume;}
  3024	    push(TAIL(term));
  3025	    push(result);
  3026	    push(I[ETAG_ecall]);
  3027	    term=HEAD(term);
  3028	    goto resume;
  3029	  case ETAG_ecall+256:
  3030	    pop();
  3031	    env=pop();
  3032	    goto unstack;
  3033	  UNSTACK1(ETAG_digit0   ,digit0       )
  3034	  UNSTACK1(ETAG_digit1   ,digit1       )
  3035	  UNSTACK1(ETAG_digit2   ,digit2       )
  3036	  UNSTACK1(ETAG_digit3   ,digit3       )
  3037	  UNSTACK1(ETAG_digit4   ,digit4       )
  3038	  UNSTACK1(ETAG_digit5   ,digit5       )
  3039	  UNSTACK1(ETAG_digit6   ,digit6       )
  3040	  UNSTACK1(ETAG_digit7   ,digit7       )
  3041	  UNSTACK1(ETAG_digit8   ,digit8       )
  3042	  UNSTACK1(ETAG_digit9   ,digit9       )
  3043	  UNSTACK2(ETAG_times    ,times        )
  3044	  UNSTACK2(ETAG_plus     ,plus         )
  3045	  UNSTACK2(ETAG_minus    ,minus        )
  3046	  case ETAG_and:
  3047	    term=pop();
  3048	    if(result!=T) goto unstack;
  3049	    goto resume;
  3050	  case ETAG_or:
  3051	    term=pop();
  3052	    if(result==T) goto unstack;
  3053	    if(IS_EX(result)) goto unstack;
  3054	    goto resume;
  3055	  UNSTACK2(ETAG_then     ,then         )
  3056	  UNSTACK2(ETAG_pair     ,pair         )
  3057	  UNSTACK2(ETAG_lt       ,lt           )
  3058	  UNSTACK2(ETAG_le       ,le           )
  3059	  UNSTACK2(ETAG_equal    ,eq           )
  3060	  UNSTACK2(ETAG_gt       ,gt           )
  3061	  UNSTACK2(ETAG_ge       ,ge           )
  3062	  UNSTACK2(ETAG_apply    ,apply        )
  3063	  UNSTACK1(ETAG_boolp    ,boolp        )
  3064	  case ETAG_catch:
  3065	    result=IS_EX(result)?pair(T,HEAD(result)):pair(F,result);
  3066	    goto unstack;
  3067	  case ETAG_maptag1:
  3068	    result=mapcons(result);
  3069	    goto unstack;
  3070	  UNSTACK2(ETAG_div      ,divx         )
  3071	  UNSTACK1(ETAG_head     ,head         )
  3072	  UNSTACK1(ETAG_intp     ,intp         )
  3073	  UNSTACK2(ETAG_boolg    ,boolg        )
  3074	  UNSTACK2(ETAG_intg     ,intg         )
  3075	  UNSTACK2(ETAG_mapg     ,mapg         )
  3076	  UNSTACK2(ETAG_objg     ,objg         )
  3077	  UNSTACK2(ETAG_pairg    ,pairg        )
  3078	  UNSTACK1(ETAG_mapp     ,mapp         )
  3079	  UNSTACK1(ETAG_maptag   ,mapcons      )
  3080	  UNSTACK2(ETAG_mod      ,modx         )
  3081	  UNSTACK1(ETAG_norm     ,norm         )
  3082	  UNSTACK1(ETAG_objp     ,objp         )
  3083	  UNSTACK1(ETAG_pairp    ,pairp        )
  3084	  UNSTACK1(ETAG_raise    ,raise0       )
  3085	  UNSTACK1(ETAG_root     ,root         )
  3086	  UNSTACK1(ETAG_tail     ,tail         )
  3087	  UNSTACK1(ETAG_untag    ,untag        )
  3088	  UNSTACK1(ETAG_par      ,norm         )
  3089	  UNSTACK1(ETAG_uplus    ,unaryPlus    )
  3090	  UNSTACK1(ETAG_dplus    ,unaryPlus    )
  3091	  UNSTACK1(ETAG_uminus   ,unaryMinus   )
  3092	  UNSTACK1(ETAG_dminus   ,unaryMinus   )
  3093	  UNSTACK1(ETAG_not      ,not          )
  3094	  case ETAG_LET:
  3095	    term=pop();
  3096	    if(IS_EX(result)) goto unstack;
  3097	    env=pair(result,env);
  3098	    push(env);
  3099	    push(bytevect[ETAG_LET]);
  3100	    goto resume;
  3101	  case ETAG_LET+256:
  3102	    env=TAIL(pop());
  3103	    goto unstack;
  3104	  UNSTACK2(ETAG_ash      ,ash          )
  3105	  UNSTACK1(ETAG_bt2bytes ,bt2bytes     )
  3106	  UNSTACK1(ETAG_bt2vects ,bt2vects     )
  3107	  UNSTACK1(ETAG_bt2vector,bt2vector    )
  3108	  UNSTACK2(ETAG_ceiling  ,ceilingx     )
  3109	  UNSTACK1(ETAG_destruct ,destruct     )
  3110	  UNSTACK1(ETAG_evenp    ,evenp        )
  3111	  UNSTACK2(ETAG_floor    ,floorx       )
  3112	  UNSTACK1(ETAG_half     ,half         )
  3113	  case ETAG_if:
  3114	    if(result==T){term=HEAD(pop());goto resume;}
  3115	    if(IS_EX(result)){pop();goto unstack;}
  3116	    term=TAIL(pop());goto resume;
  3117	  UNSTACK1(ETAG_intlength,integerLength)
  3118	  UNSTACK2(ETAG_logand   ,logand       )
  3119	  UNSTACK2(ETAG_logandc1 ,logandc1     )
  3120	  UNSTACK2(ETAG_logandc2 ,logandc2     )
  3121	  UNSTACK2(ETAG_logbitp  ,logbitp      )
  3122	  UNSTACK1(ETAG_logcount ,logcount     )
  3123	  UNSTACK2(ETAG_logeqv   ,logeqv       )
  3124	  UNSTACK2(ETAG_logior   ,logior       )
  3125	  UNSTACK2(ETAG_lognand  ,lognand      )
  3126	  UNSTACK2(ETAG_lognor   ,lognor       )
  3127	  UNSTACK1(ETAG_lognot   ,lognot       )
  3128	  UNSTACK2(ETAG_logorc1  ,logorc1      )
  3129	  UNSTACK2(ETAG_logorc2  ,logorc2      )
  3130	  UNSTACK2(ETAG_logtest  ,logtest      )
  3131	  UNSTACK2(ETAG_logxor   ,logxor       )
  3132	  UNSTACK1(ETAG_prenorm  ,norm         )
  3133	  UNSTACK1(ETAG_notnot   ,notnot       )
  3134	  UNSTACK1(ETAG_object   ,object       )
  3135	  UNSTACK1(ETAG_print    ,print        )
  3136	  UNSTACK2(ETAG_round    ,roundx       )
  3137	  UNSTACK1(ETAG_spy      ,spy          )
  3138	  UNSTACK1(ETAG_timer    ,timer        )
  3139	  UNSTACK1(ETAG_trace    ,trace        )
  3140	  UNSTACK2(ETAG_truncate ,truncatex    )
  3141	  UNSTACK1(ETAG_vector   ,vector       )
  3142	  UNSTACK1(ETAG_vnorm    ,vectorNorm   )
  3143	  UNSTACK1(ETAG_vempty   ,vectorEmpty  )
  3144	  UNSTACK2(ETAG_vindex   ,vectorIndex  )
  3145	  UNSTACK1(ETAG_vlength  ,vectorLength )
  3146	  UNSTACK2(ETAG_vprefix  ,vectorPrefix )
  3147	  case ETAG_vsubseq:
  3148	    term=pop();
  3149	    if(IS_EX(result)) goto unstack;
  3150	    push(result);
  3151	    push(TAIL(term));
  3152	    push(bytevect[ETAG_vsubseq]);
  3153	    term=HEAD(term);
  3154	    goto resume;
  3155	  case ETAG_vsubseq+256:
  3156	    term=pop();
  3157	    if(IS_EX(result)){pop();goto unstack;}
  3158	    push(result);
  3159	    push(I[ETAG_vsubseq2]);
  3160	    goto resume;
  3161	  case ETAG_vsubseq2:
  3162	    term=pop();
  3163	    cnt=pop();
  3164	    if(IS_EX(result)) goto unstack;
  3165	    result=vectorSubseq(cnt,term,result);
  3166	    goto unstack;
  3167	  UNSTACK2(ETAG_vsuffix  ,vectorSuffix )
  3168	  UNSTACK1(ETAG_v2bytes  ,vector2bytes )
  3169	  UNSTACK1(ETAG_v2vects  ,vector2vects )
  3170	  UNSTACK1(ETAG_vt2bytes ,vt2bytes     )
  3171	  UNSTACK1(ETAG_vt2vects ,vt2vects     )
  3172	  UNSTACK1(ETAG_vt2v     ,vt2vector    )
  3173	  UNSTACK1(ETAG_compile  ,compile      )
  3174	  UNSTACK1(ETAG_ripemd   ,ripemd       )
  3175	  UNSTACK1(ETAG_sl2rack  ,sl2rack      )
  3176	  UNSTACK1(ETAG_rack2sl  ,rack2sl      )
  3177	  default:
  3178	    die("Internal error in eval: stack corrupted");
  3179	    return T; /* This never happens */}}
  3180	
  3181	/*
  3182	GRD-2009-07-20: The eval() below was replaced by the one above
  3183	to save a lot of C-stack. Here, the 'C-stack' is the one used
  3184	by C for function calls. The change of eval() does not save
  3185	space in the stack[] array. Saving C-stack is useful on Linux
  3186	and essential on Cygwin.
  3187	
  3188	pnt R0;
  3189	
  3190	#define EVAL0(fct) \
  3191	return fct();
  3192	
  3193	#define EVAL1(fct) \
  3194	R0=eval(TAIL(term),env); \
  3195	if(IS_EX(R0)) return R0; \
  3196	return fct(R0);
  3197	
  3198	#define EVAL2(fct) \
  3199	R0=eval(HEAD(term),env); \
  3200	if(IS_EX(R0)) return R0; \
  3201	push(R0); \
  3202	R0=eval(TAIL(term),env); \
  3203	if(IS_EX(R0)) return ret(1,R0); \
  3204	return ret(1,fct(TOP,R0));
  3205	
  3206	#define EVAL3(fct) \
  3207	R0=eval(HEAD(term),env); \
  3208	if(IS_EX(R0)) return R0; \
  3209	push(R0); \
  3210	R0=eval(HEAD(TAIL(term)),env); \
  3211	if(IS_EX(R0)) return ret(1,R0); \
  3212	push(R0); \
  3213	R0=eval(TAIL(TAIL(term)),env); \
  3214	if(IS_EX(R0)) return ret(2,R0); \
  3215	return ret(2,fct(stack[sp+1],TOP,R0));
  3216	
  3217	pnt eval(pnt term,pnt env){
  3218	  pnt u,v;
  3219	  if(term==T) return T;
  3220	  switch(ROOT(term)){
  3221	  case TAG_FALSE:
  3222	  case TAG_INT:
  3223	  case TAG_VECT:
  3224	  case TAG_PAIR:
  3225	  case TAG_EX:
  3226	  case TAG_MAP:
  3227	  case TAG_OBJ:
  3228	    return term;
  3229	  case ETAG_var      :
  3230	    for(R0=HEAD(term);R0>0;R0--) env=TAIL(env);
  3231	    return HEAD(env);
  3232	  case ETAG_ecall    :
  3233	    push(T);
  3234	    for(u=TAIL(term);u!=T;u=TAIL(u)){
  3235	      v=eval(HEAD(u),env);
  3236	      if(IS_EX(v)) return ret(1,v);
  3237	      TOP=cons(TAG_PAIR,v,TOP);}
  3238	    return ret(1,eval(HEAD(term),TOP));
  3239	  case ETAG_digit0   : EVAL1(digit0       )
  3240	  case ETAG_digit1   : EVAL1(digit1       )
  3241	  case ETAG_digit2   : EVAL1(digit2       )
  3242	  case ETAG_digit3   : EVAL1(digit3       )
  3243	  case ETAG_digit4   : EVAL1(digit4       )
  3244	  case ETAG_digit5   : EVAL1(digit5       )
  3245	  case ETAG_digit6   : EVAL1(digit6       )
  3246	  case ETAG_digit7   : EVAL1(digit7       )
  3247	  case ETAG_digit8   : EVAL1(digit8       )
  3248	  case ETAG_digit9   : EVAL1(digit9       )
  3249	  case ETAG_times    : EVAL2(times        )
  3250	  case ETAG_plus     : EVAL2(plus         )
  3251	  case ETAG_minus    : EVAL2(minus        )
  3252	  case ETAG_and      :
  3253	    R0=eval(HEAD(term),env);
  3254	    if(R0!=T) return R0;
  3255	    return eval(TAIL(term),env);
  3256	  case ETAG_or       :
  3257	    R0=eval(HEAD(term),env);
  3258	    if(R0==T) return T;
  3259	    if(IS_EX(R0)) return R0;
  3260	    return eval(TAIL(term),env);
  3261	  case ETAG_then     : EVAL2(then         )
  3262	  case ETAG_pair     : EVAL2(pair         )
  3263	  case ETAG_lt       : EVAL2(lt           )
  3264	  case ETAG_le       : EVAL2(le           )
  3265	  case ETAG_equal    : EVAL2(eq           )
  3266	  case ETAG_gt       : EVAL2(gt           )
  3267	  case ETAG_ge       : EVAL2(ge           )
  3268	  case ETAG_apply    : EVAL2(apply        )
  3269	  case ETAG_boolp    : EVAL1(boolp        )
  3270	  case ETAG_catch    :
  3271	    R0=eval(TAIL(term),env);
  3272	    if(IS_EX(R0)) return pair(T,HEAD(R0));
  3273	    return pair(F,R0);
  3274	  case ETAG_maptag1  :
  3275	    return mapcons(eval(TAIL(term),env));
  3276	  case ETAG_div      : EVAL2(divx         )
  3277	  case ETAG_head     : EVAL1(head         )
  3278	  case ETAG_intp     : EVAL1(intp         )
  3279	  case ETAG_boolg    : EVAL2(boolg        )
  3280	  case ETAG_intg     : EVAL2(intg         )
  3281	  case ETAG_mapg     : EVAL2(mapg         )
  3282	  case ETAG_objg     : EVAL2(objg         )
  3283	  case ETAG_pairg    : EVAL2(pairg        )
  3284	  case ETAG_mapp     : EVAL1(mapp         )
  3285	  case ETAG_maptag   :
  3286	    R0=eval(TAIL(term),env);
  3287	    if(IS_EX(R0)) return R0;
  3288	    return mapcons(R0);
  3289	  case ETAG_mod      : EVAL2(modx         )
  3290	  case ETAG_norm     : EVAL1(norm         )
  3291	  case ETAG_objp     : EVAL1(objp         )
  3292	  case ETAG_pairp    : EVAL1(pairp        )
  3293	  case ETAG_raise    : EVAL1(raise0       )
  3294	  case ETAG_root     : EVAL1(root         )
  3295	  case ETAG_tail     : EVAL1(tail         )
  3296	  case ETAG_untag    : EVAL1(untag        )
  3297	  case ETAG_digitend : EVAL0(zero         )
  3298	  case ETAG_par      : EVAL1(norm         )
  3299	  case ETAG_uplus    : EVAL1(unaryPlus    )
  3300	  case ETAG_dplus    : EVAL1(unaryPlus    )
  3301	  case ETAG_uminus   : EVAL1(unaryMinus   )
  3302	  case ETAG_dminus   : EVAL1(unaryMinus   )
  3303	  case ETAG_not      : EVAL1(not          )
  3304	  case ETAG_Base     : EVAL0(base         )
  3305	  case ETAG_LET      :
  3306	    R0=eval(HEAD(term),env);
  3307	    if(IS_EX(R0)) return R0;
  3308	    R0=pair(R0,env);
  3309	    push(R0);
  3310	    return ret(1,eval(TAIL(term),R0));
  3311	  case ETAG_ash      : EVAL2(ash          )
  3312	  case ETAG_bottom   : EVAL0(bottom       )
  3313	  case ETAG_bt2bytes : EVAL1(bt2bytes     )
  3314	  case ETAG_bt2vects : EVAL1(bt2vects     )
  3315	  case ETAG_bt2vector: EVAL1(bt2vector    )
  3316	  case ETAG_ceiling  : EVAL2(ceilingx     )
  3317	  case ETAG_destruct : EVAL1(destruct     )
  3318	  case ETAG_evenp    : EVAL1(evenp        )
  3319	  case ETAG_exception: EVAL0(exception    )
  3320	  case ETAG_false    : EVAL0(false        )
  3321	  case ETAG_floor    : EVAL2(floorx       )
  3322	  case ETAG_half     : EVAL1(half         )
  3323	  case ETAG_if       :
  3324	    R0=eval(HEAD(term),env);
  3325	    if(R0==T) return eval(HEAD(TAIL(term)),env);
  3326	    if(IS_EX(R0)) return R0;
  3327	    return eval(TAIL(TAIL(term)),env);
  3328	  case ETAG_intlength: EVAL1(integerLength)
  3329	  case ETAG_logand   : EVAL2(logand       )
  3330	  case ETAG_logandc1 : EVAL2(logandc1     )
  3331	  case ETAG_logandc2 : EVAL2(logandc2     )
  3332	  case ETAG_logbitp  : EVAL2(logbitp      )
  3333	  case ETAG_logcount : EVAL1(logcount     )
  3334	  case ETAG_logeqv   : EVAL2(logeqv       )
  3335	  case ETAG_logior   : EVAL2(logior       )
  3336	  case ETAG_lognand  : EVAL2(lognand      )
  3337	  case ETAG_lognor   : EVAL2(lognor       )
  3338	  case ETAG_lognot   : EVAL1(lognot       )
  3339	  case ETAG_logorc1  : EVAL2(logorc1      )
  3340	  case ETAG_logorc2  : EVAL2(logorc2      )
  3341	  case ETAG_logtest  : EVAL2(logtest      )
  3342	  case ETAG_logxor   : EVAL2(logxor       )
  3343	  case ETAG_map      :
  3344	    return mapcons(TAIL(term));
  3345	  case ETAG_prenorm  : EVAL1(norm         )
  3346	  case ETAG_notnot   : EVAL1(notnot       )
  3347	  case ETAG_object   : EVAL1(object       )
  3348	  case ETAG_print    : EVAL1(print        )
  3349	  case ETAG_round    : EVAL2(roundx       )
  3350	  case ETAG_spy      : EVAL1(spy          )
  3351	  case ETAG_timer    : EVAL1(timer        )
  3352	  case ETAG_trace    : EVAL1(trace        )
  3353	  case ETAG_truncate : EVAL2(truncatex    )
  3354	  case ETAG_vector   : EVAL1(vector       )
  3355	  case ETAG_vnorm    : EVAL1(vectorNorm   )
  3356	  case ETAG_vempty   : EVAL1(vectorEmpty  )
  3357	  case ETAG_vindex   : EVAL2(vectorIndex  )
  3358	  case ETAG_vlength  : EVAL1(vectorLength )
  3359	  case ETAG_vprefix  : EVAL2(vectorPrefix )
  3360	  case ETAG_vsubseq  : EVAL3(vectorSubseq )
  3361	  case ETAG_vsuffix  : EVAL2(vectorSuffix )
  3362	  case ETAG_v2bytes  : EVAL1(vector2bytes )
  3363	  case ETAG_v2vects  : EVAL1(vector2vects )
  3364	  case ETAG_vt2bytes : EVAL1(vt2bytes     )
  3365	  case ETAG_vt2vects : EVAL1(vt2vects     )
  3366	  case ETAG_vt2v     : EVAL1(vt2vector    )
  3367	  case ETAG_compile  : EVAL1(compile      )
  3368	  case ETAG_ripemd   : EVAL1(ripemd       )
  3369	  case ETAG_sl2rack  : EVAL1(sl2rack      )
  3370	  case ETAG_rack2sl  : EVAL1(rack2sl      )
  3371	// GRD-2009-04-19: Ensure eager constants evaluated once only.
  3372	  case MTAG_INDIR    :
  3373	    return TAIL(term);
  3374	  case MTAG_CLOSURE:
  3375	    push(term);
  3376	    return ret(1,overwrite(term,term2rnf(HEAD(term),TAIL(term))));
  3377	  default: unexpected_tag("eval",term);}}
  3378	*/
  3379	
  3380	
  3381	
  3382	/*******************
  3383	 * Array functions *
  3384	 *******************/
  3385	
  3386	void printdom(pnt a){
  3387	  pnt head;
  3388	  if(a==T) return;
  3389	  if(GD_PAIR(a)) die("Unexpected type in array");
  3390	  head=HEAD(a);
  3391	  if(!NO_INT(head)){
  3392	    spy0(head);
  3393	    return;}
  3394	  printdom(head);
  3395	  printdom(TAIL(a));}
  3396	
  3397	pnt aget(pnt a,pnt i){
  3398	  pnt head,i1,i2,bit;
  3399	  if(NO_INT(i)) return X;
  3400	  i2=i;
  3401	  i1=HEAD(i2);
  3402	  bit=0;
  3403	  for(;;){
  3404	    if(a==T) return T;
  3405	    if(GD_PAIR(a)) return X;
  3406	    head=HEAD(a);
  3407	    if(IS_INT(head)){if(eq0(head,i)) return TAIL(a); else return T;}
  3408	    if((i1>>bit)&1) a=TAIL(a); else a=head;
  3409	    bit++;
  3410	    if(bit<pntsize) continue;
  3411	    bit=0;
  3412	    i2=inttail(i2);
  3413	    i1=HEAD(i2);}}
  3414	
  3415	pnt mget1(pnt a,pnt i1){
  3416	  return aget(a,i1);}
  3417	
  3418	pnt mget2(pnt a,pnt i1,pnt i2){
  3419	  return mget1(aget(a,i1),i2);}
  3420	
  3421	pnt mget3(pnt a,pnt i1,pnt i2,pnt i3){
  3422	  return mget2(aget(a,i1),i2,i3);}
  3423	
  3424	pnt mget4(pnt a,pnt i1,pnt i2,pnt i3,pnt i4){
  3425	  return mget3(aget(a,i1),i2,i3,i4);}
  3426	
  3427	pnt mget5(pnt a,pnt i1,pnt i2,pnt i3,pnt i4,pnt i5){
  3428	  return mget4(aget(a,i1),i2,i3,i4,i5);}
  3429	
  3430	pnt mget6(pnt a,pnt i1,pnt i2,pnt i3,pnt i4,pnt i5,pnt i6){
  3431	  return mget5(aget(a,i1),i2,i3,i4,i5,i6);}
  3432	
  3433	pnt mget7(pnt a,pnt i1,pnt i2,pnt i3,pnt i4,pnt i5,pnt i6,pnt i7){
  3434	  return mget6(aget(a,i1),i2,i3,i4,i5,i6,i7);}
  3435	
  3436	pnt defget(pnt caches,pnt ref,pnt idx,pnt aspect){
  3437	  return mget7(caches,ref,ref,const_codex,ref,idx,Z,aspect);}
  3438	
  3439	pnt codeget(pnt caches,pnt ref,pnt idx){
  3440	  return mget4(caches,ref,ref,const_code,idx);}
  3441	
  3442	pnt codexget(pnt caches,pnt ref){
  3443	  return mget3(caches,ref,ref,const_codex);}
  3444	
  3445	pnt semipair1(pnt x,pnt y){
  3446	  if((x==T)&&(y==T)) return T;
  3447	  return pair(x,y);}
  3448	
  3449	pnt semipair2(pnt x,pnt y){
  3450	  if(y==T) return T;
  3451	  return pair(x,y);}
  3452	
  3453	pnt getbit(pnt x,pnt y){
  3454	  if(x>=pntsize) return getbit(x-pntsize,inttail(y));
  3455	  return (HEAD(y)>>x)&1;}
  3456	
  3457	pnt aput2(pnt i1,pnt a,pnt i2,pnt v2,pnt b){
  3458	  if(getbit(b,i1)==0){
  3459	    if(getbit(b,i2)==0) return pair(aput2(i1,a,i2,v2,b+1),T);
  3460	    return pair(a,pair(i2,v2));}
  3461	  else{
  3462	    if(getbit(b,i2)==1) return pair(T,aput2(i1,a,i2,v2,b+1));
  3463	    return pair(pair(i2,v2),a);}}
  3464	
  3465	pnt aput1(pnt a,pnt i,pnt v,pnt b){
  3466	  pnt head;
  3467	  pnt tail;
  3468	  if(a==T) return semipair2(i,v);
  3469	  if(GD_PAIR(a)) return a;
  3470	  head=HEAD(a);
  3471	  tail=TAIL(a);
  3472	  if(IS_INT(head)){
  3473	    if(eq0(head,i)) return semipair2(i,v);
  3474	    if(v==T) return a;
  3475	    if(tail==T) return pair(i,v);
  3476	    return aput2(head,a,i,v,b);}
  3477	  if(getbit(b,i)==0) return semipair1(aput1(head,i,v,b+1),tail);
  3478	  return semipair1(head,aput1(tail,i,v,b+1));}
  3479	
  3480	pnt aput0(pnt a,pnt i,pnt v){
  3481	  if(NO_INT(i)) return a;
  3482	  push(a);
  3483	  push(i);
  3484	  push(v);
  3485	  return ret(3,aput1(a,i,v,0));}
  3486	
  3487	pnt mput1(pnt array,pnt value,pnt index1){
  3488	  return aput0(array,index1,value);}
  3489	
  3490	pnt mput2(pnt array,pnt value,pnt index1,pnt index2){
  3491	  pnt subarray=aget(array,index1);
  3492	  push(array);
  3493	  push(index1);
  3494	  subarray=ret(2,mput1(subarray,value,index2));
  3495	  return mput1(array,subarray,index1);}
  3496	
  3497	pnt mput3(pnt array,pnt value,pnt index1,pnt index2,pnt index3){
  3498	  pnt subarray=aget(array,index1);
  3499	  push(array);
  3500	  push(index1);
  3501	  subarray=ret(2,mput2(subarray,value,index2,index3));
  3502	  return mput1(array,subarray,index1);}
  3503	
  3504	pnt mput4(pnt array,pnt value,pnt index1,pnt index2,pnt index3,pnt index4){
  3505	  pnt subarray=aget(array,index1);
  3506	  push(array);
  3507	  push(index1);
  3508	  subarray=ret(2,mput3(subarray,value,index2,index3,index4));
  3509	  return mput1(array,subarray,index1);}
  3510	
  3511	
  3512	
  3513	/*************
  3514	 * Scripting *
  3515	 *************/
  3516	
  3517	/*
  3518	In scripts, blank lines and lines starting with a hash mark
  3519	are ignored.
  3520	
  3521	LF (10) as well as CR (13) are considered as line terminators.
  3522	A CRLF is considered as two linebreaks, but nobody will notice
  3523	since blank lines are ignored.
  3524	
  3525	Sample scripts:
  3526	
  3527	#!/home/kgr/code/red/red/red.exe script
  3528	codex
  3529	017451CF6643931035C71796AC493D382EC8357EE9A390D5D6DBCDAA0806
  3530	017451CF6643931035C71796AC493D382EC8357EE9A390D5D6DBCDAA0806
  3531	0
  3532	0
  3533	execute
  3534	/home/kgr/code/red/lisp/cache
  3535	/home/kgr/code/red/lisp/cache1
  3536	
  3537	#!/home/kgr/code/red/red/red.exe script
  3538	assoc
  3539	017451CF6643931035C71796AC493D382EC8357EE9A390D5D6DBCDAA0806
  3540	017451CF6643931035C71796AC493D382EC8357EE9A390D5D6DBCDAA0806
  3541	0
  3542	0
  3543	executables
  3544	hello
  3545	/home/kgr/code/red/lisp/cache
  3546	/home/kgr/code/red/lisp/cache1
  3547	
  3548	#!/home/kgr/code/red/red/red.exe script
  3549	execute
  3550	017451CF6643931035C71796AC493D382EC8357EE9A390D5D6DBCDAA0806
  3551	/home/kgr/code/red/lisp/cache
  3552	/home/kgr/code/red/lisp/cache1
  3553	
  3554	#!/home/kgr/code/red/red/red.exe script
  3555	executables
  3556	017451CF6643931035C71796AC493D382EC8357EE9A390D5D6DBCDAA0806
  3557	hello
  3558	/home/kgr/code/red/lisp/cache
  3559	/home/kgr/code/red/lisp/cache1
  3560	
  3561	*/
  3562	
  3563	unsigned char *mbufstart;
  3564	unsigned char *mbufpnt;
  3565	unsigned char *mbufend;
  3566	off_t mbufsize;
  3567	
  3568	void mmapdie(char *caller,char *filename,char *fct){
  3569	  printf("%s trying to mmap %s:\n",caller,filename);
  3570	  pdie(fct);}
  3571	
  3572	int mmap1(char *caller,char *filename){
  3573	  int fd;
  3574	  struct stat stats;
  3575	  fd=open(filename,O_RDONLY);
  3576	  if(fd<0){if(errno==ENOENT) return -1; else mmapdie(caller,filename,"open");}
  3577	  if(fstat(fd,&stats)) mmapdie(caller,filename,"fstat");
  3578	  if(!S_ISREG(stats.st_mode)) return -1;
  3579	  mbufstart=mmap(0,stats.st_size,PROT_READ,MAP_SHARED,fd,0);
  3580	  if(mbufstart==MAP_FAILED) mmapdie(caller,filename,"mmap");
  3581	  if(close(fd)) mmapdie(caller,filename,"close");
  3582	  mbufsize=stats.st_size;
  3583	  mbufpnt=mbufstart;
  3584	  mbufend=mbufstart+mbufsize;
  3585	  return 0;}
  3586	
  3587	void munmap1(){
  3588	  if (munmap(mbufstart,mbufsize)) pdie("munmap");}
  3589	
  3590	/* Return next input byte or ENDFILE (256) */
  3591	pnt getch(){
  3592	  if(mbufpnt==mbufend) return ENDFILE;
  3593	  return *(mbufpnt++);}
  3594	
  3595	/* Return TRUE if line read or FALSE at ENDFILE
  3596	   Skip comment lines (lines starting with hash mark) */
  3597	pnt readln(unsigned char line[PATHSIZE]){
  3598	  pnt i;
  3599	  pnt c;
  3600	  i=0;
  3601	  for(;;){
  3602	    if(i>=PATHSIZE) die("Line too long");
  3603	    c=getch();
  3604	    line[i]=0;
  3605	    if(c==ENDFILE) return i!=0;
  3606	    if((c!=CR)&&(c!=LF)) line[i++]=c;
  3607	    else if((i>0)&&(line[0]!='#')) return TRUE;
  3608	    else i=0;}}
  3609	
  3610	/* Read one pnt, die on ENDFILE, die on overflow */
  3611	pnt readpnt(){
  3612	  pnt result;
  3613	  pnt byte=getch();
  3614	  if(byte==ENDFILE) die("Unexpected end of file");
  3615	  if(byte<128) return byte;
  3616	  result=readpnt();
  3617	  if(result&septetmask) die("Pnt overflow");
  3618	  return result*128+byte-128;}
  3619	
  3620	/*************
  3621	 * Read rack *
  3622	 *************/
  3623	
  3624	/*
  3625	Read one rack file and convert it into a structure with sharing.
  3626	The reference is given as a file descriptor.
  3627	
  3628	The input file is treated as a sequence of bytes.
  3629	
  3630	The output structure is composed of the constant NIL, cardinals,
  3631	and conses.
  3632	
  3633	In the input file, most cardinals are expressed base 128. Each such
  3634	cardinal is represented as a sequence of 'middle septets' followed
  3635	by an 'end septet'. Middle septets are represented by bytes in
  3636	the range 128..255. End septets are represented by bytes in the
  3637	range 0..127. Cardinals are expressed in little endian. As an example,
  3638	"129 130 003" represents 1+128*2+16384*3.
  3639	
  3640	An input file represents a sequence of values, the last of which is
  3641	the rack to be constructed.
  3642	
  3643	Each value in the sequence has an "index". The index of the first
  3644	value is RACK_START, the index of the next is RACK_START+1, and
  3645	so on.
  3646	
  3647	The constant NIL is represented by the cardinal RACK_NIL in base 128.
  3648	
  3649	A cardinal x is represented by the cardinal RACK_INT in base 128
  3650	followed by the cardinal x in base 128.
  3651	
  3652	A cons of two values y and z is represented by the index of y followed
  3653	by the index of z. The indices of y and z are smaller than the index
  3654	of the cons, so when scanning a rack file from start to end, the
  3655	arguments of a cons will be constructed before the cons is constructed.
  3656	
  3657	A vector x is represented by the cardinal RACK_ARRAY in base 128
  3658	followed by the number of bytes in x expressed in base 128 followed
  3659	by the bytes of x. Since a vector ultimately represents a cardinal,
  3660	this is just a slightly more compact and less CPU consuming way of
  3661	representing cardinals.
  3662	*/
  3663	pnt readrack1(){
  3664	  pnt sp1=sp;
  3665	  pnt sp2=sp+1;
  3666	  pnt card0;
  3667	  pnt card1;
  3668	  pnt index;
  3669	  pnt vector;
  3670	  pnt position;
  3671	  pnt *location;
  3672	  pnt result;
  3673	  push(T); /* stack[sp1-RACK_NIL] represents T */
  3674	  push(T); /* stack[sp1-RACK_ARRAY] is unused */
  3675	  for(;;){
  3676	    index=sp2-sp;
  3677	    card0=readpnt();
  3678	    if(card0==RACK_INT){
  3679	      vector=icons(0,0);
  3680	      push(vector);
  3681	      location=stack+sp;
  3682	      position=0;
  3683	      do{
  3684	        card1=getch();
  3685	        HEAD(vector)|=((card1&127)<<position);
  3686	        position+=7;
  3687	        if(position>=pntsize){
  3688	          position-=pntsize;
  3689	          TAIL(vector)=icons((card1&127)>>(7-position),0);
  3690	          location=&TAIL(vector);
  3691	          vector=TAIL(vector);}}
  3692	      while(card1>127);
  3693	      if(HEAD(vector)<256) *location=I[HEAD(vector)];}
  3694	    else if(card0==RACK_ARRAY){
  3695	      vector=consvec(0,0);
  3696	      push(vector);
  3697	      for(card1=readpnt();card1>=bytesize;card1-=bytesize){
  3698	        for(position=0;position<bytesize;position++)
  3699	        HEAD(vector)|=(getch()<<(position*8));
  3700	        TAIL(vector)=consvec(0,0);
  3701	        vector=TAIL(vector);}
  3702	      for(position=0;position<card1;position++)
  3703	      HEAD(vector)|=(getch()<<(position*8));
  3704	      HEAD(vector)|=((pnt)1)<<(card1*8);}
  3705	    else if(card0<index){
  3706	      card1=readpnt();
  3707	      if(card1>=index) die("Malformed rack (Pointer too large)");
  3708	      if(card1==RACK_INT) die("Malformed rack (Invalid tail)");
  3709	      if(card1==RACK_ARRAY) die("Malformed rack (Invalid tail)");
  3710	      push(pair(stack[sp1-card0],stack[sp1-card1]));}
  3711	    else if(card0==index) break;
  3712	    else die("Malformed rack (Pointer too large)");}
  3713	  result=stack[sp];
  3714	  sp=sp1;
  3715	  return result;}
  3716	
  3717	/*
  3718	Read one rack file and convert it into a structure with sharing.
  3719	The reference is given as a mixed endian hexadecimal string.
  3720	The readrack() function scans the path for a rack file with the
  3721	given name and then invokes readrack1 on the file found.
  3722	*/
  3723	
  3724	char *memcpy1(char *dest,char *src,size_t n){
  3725	  memcpy(dest,src,n);
  3726	  return dest+n;}
  3727	
  3728	/*
  3729	If p1="aa:bb", p2="cc", p3="dd", and p4="ee" construct aaccddee
  3730	If p1="aa:bb", p2="cc", p3="dd", and p4="" construct aaccddbb
  3731	*/
  3732	pnt make_path(char *result,pnt size,char *p1,char *p2,char *p3,char *p4){
  3733	  char *result1=result;
  3734	  char *match0=strchr(p1,';');
  3735	  pnt l0=match0?(pnt)(match0-p1):(pnt)strlen(p1);
  3736	  char *match1=memchr(p1,':',l0);
  3737	  pnt l1=match1?(pnt)(match1-p1):(pnt)strlen(p1);
  3738	  pnt l2=strlen(p2);
  3739	  pnt l3=strlen(p3);
  3740	  pnt l4=strlen(p4);
  3741	  if(match1==NULL) die("Missing colon in LGW_PATH element");
  3742	  if(l4==0){l4=l0-l1-1;p4=p1+l1+1;}
  3743	  if(l1+l2+l3+l4>=size) die("Path too long");
  3744	  result1=memcpy1(result1,p1,l1);
  3745	  result1=memcpy1(result1,p2,l2);
  3746	  result1=memcpy1(result1,p3,l3);
  3747	  result1=memcpy1(result1,p4,l4);
  3748	  result1=memcpy1(result1,"",1);
  3749	  return l0;}
  3750	
  3751	#define DEFAULT_LGW_PATH "/.logiweb/logiweb/:/rack.lgr"
  3752	char *get_lgw_path(){
  3753	  char *path;
  3754	  if(lgw_path) return lgw_path;
  3755	  path=getenv("LGW_PATH");
  3756	  if(path&&path[0]){
  3757	    make_path(lgw_path1,sizeof(lgw_path1),":","","",path);
  3758	    lgw_path=lgw_path1;
  3759	    return lgw_path;}
  3760	  path=getenv("HOME");
  3761	  if(path&&path[0]){
  3762	    make_path(lgw_path1,sizeof(lgw_path1),":","",path,DEFAULT_LGW_PATH);
  3763	    lgw_path=lgw_path1;
  3764	    return lgw_path;}
  3765	  die("Neither LGW_PATH nor HOME set");
  3766	  return T; /* This never happens */}
  3767	
  3768	pnt readrack(char *hexref){
  3769	  pnt result;
  3770	  char *path=get_lgw_path();
  3771	  pnt length;
  3772	  char filename[PATHSIZE];
  3773	  if(path==0) die("LGW_PATH not set");
  3774	  for(;;){
  3775	    length=make_path(filename,sizeof(filename),path,"",hexref,"");
  3776	    path+=(length+1);
  3777	    if(length==0) continue;
  3778	    if(mmap1("readrack",filename)==0){
  3779	      TRUSTGC;
  3780	      result=readrack1();
  3781	      UNTRUSTGC;
  3782	      if(getch()!=ENDFILE) die("Malformed rack (ENDFILE expected)");
  3783	      munmap1();
  3784	      return result;}
  3785	    if(errno!=ENOENT) pdie("lgwam: readrack: open()");
  3786	    if(*(path-1)==';') continue;
  3787	    printf("%s not found\n",hexref);
  3788	    printf("LGW_PATH=%s\n",get_lgw_path());
  3789	    die("Goodbye");}}
  3790	
  3791	
  3792	
  3793	/*********************************************
  3794	 * Optimized function sl2rack for rack input *
  3795	 *********************************************/
  3796	
  3797	pnt sl2rack_sl;
  3798	pnt sl2rack_X=(pnt)(-1);
  3799	
  3800	/* Essentially the same as getch() */
  3801	pnt sl2rack_getch(){
  3802	  pnt result;
  3803	  if(NO_PAIR(sl2rack_sl)) return sl2rack_X;
  3804	  result=HEAD(sl2rack_sl);
  3805	  sl2rack_sl=TAIL(sl2rack_sl);
  3806	  if(NO_INT(result)) return sl2rack_X;
  3807	  if(TAIL(result)!=NIL) return sl2rack_X;
  3808	  result=HEAD(result);
  3809	  if((result>>8)!=1) return sl2rack_X;
  3810	  return result&0xFF;}
  3811	
  3812	/* Essentially the same as readpnt() */
  3813	pnt sl2rack_readpnt(){
  3814	  pnt result;
  3815	  pnt byte=sl2rack_getch();
  3816	  if(byte==sl2rack_X) return sl2rack_X;
  3817	  if(byte<128) return byte;
  3818	  result=sl2rack_readpnt();
  3819	  if(result==sl2rack_X) return sl2rack_X;
  3820	  if(result&septetmask) die("sl2rack: Pnt overflow");
  3821	  result=result*128+byte-128;
  3822	  if(result==sl2rack_X) die("sl2rack: Pnt overflow");
  3823	  return result;}
  3824	
  3825	/* Essentially the same as readrack1() */
  3826	pnt sl2rack_readrack1(){
  3827	  pnt sp1=sp-1;
  3828	  pnt sp2=sp;
  3829	  pnt card0;
  3830	  pnt card1;
  3831	  pnt byte;
  3832	  pnt index;
  3833	  pnt vector;
  3834	  pnt position;
  3835	  pnt *location;
  3836	  push(T); /* stack[sp1-RACK_INT] is unused */
  3837	  push(T); /* stack[sp1-RACK_NIL] represents T */
  3838	  push(T); /* stack[sp1-RACK_ARRAY] is unused */
  3839	  for(;;){
  3840	    index=sp2-sp;
  3841	    card0=sl2rack_readpnt();
  3842	    if(card0==sl2rack_X) return X;
  3843	    if(card0==RACK_INT){
  3844	      vector=icons(0,0);
  3845	      push(vector);
  3846	      location=stack+sp;
  3847	      position=0;
  3848	      do{
  3849	        card1=sl2rack_getch();
  3850	        if(card1==sl2rack_X) return X;
  3851	        HEAD(vector)|=((card1&127)<<position);
  3852	        position+=7;
  3853	        if(position>=pntsize){
  3854	          position-=pntsize;
  3855	          TAIL(vector)=icons((card1&127)>>(7-position),0);
  3856	          location=&TAIL(vector);
  3857	          vector=TAIL(vector);}}
  3858	      while(card1>127);
  3859	      if(HEAD(vector)<256) *location=I[HEAD(vector)];}
  3860	    else if(card0==RACK_ARRAY){
  3861	      vector=consvec(0,0);
  3862	      push(vector);
  3863	      card1=sl2rack_readpnt();
  3864	      if(card1==sl2rack_X) return X;
  3865	      for(;card1>=bytesize;card1-=bytesize){
  3866	        for(position=0;position<bytesize;position++){
  3867	          byte=sl2rack_getch();
  3868	          if(byte==sl2rack_X) return X;
  3869	          HEAD(vector)|=(byte<<(position*8));}
  3870	        TAIL(vector)=consvec(0,0);
  3871	        vector=TAIL(vector);}
  3872	      for(position=0;position<card1;position++){
  3873	        byte=sl2rack_getch();
  3874	        if(byte==sl2rack_X) return X;
  3875	        HEAD(vector)|=(byte<<(position*8));}
  3876	      HEAD(vector)|=((pnt)1)<<(card1*8);}
  3877	    else if(card0<index){
  3878	      card1=sl2rack_readpnt();
  3879	      if(card1==sl2rack_X) return X;
  3880	      if(card1>=index) die("sl2rack: Malformed rack (Pointer too large)");
  3881	      if(card1==RACK_INT) die("sl2rack: Malformed rack (Invalid tail)");
  3882	      if(card1==RACK_ARRAY) die("sl2rack: Malformed rack (Invalid tail)");
  3883	      push(pair(stack[sp1-card0],stack[sp1-card1]));}
  3884	    else if(card0==index) break;
  3885	    else die("sl2rack: Malformed rack (Pointer too large)");}
  3886	  return stack[sp];}
  3887	
  3888	pnt sl2rack(pnt sl){/* sl2rack ( " ) */
  3889	  pnt result;
  3890	  pnt sp0=sp;
  3891	  push(sl);
  3892	  sl2rack_sl=sl;
  3893	  result=sl2rack_readrack1();
  3894	  sp=sp0;
  3895	  return result;}
  3896	
  3897	
  3898	
  3899	/**********************************************
  3900	 * Optimized function rack2sl for rack output *
  3901	 **********************************************/
  3902	
  3903	#define RACK2SL_KEY 19
  3904	pnt rack2sl_sp;
  3905	pnt rack2sl_size;
  3906	pnt rack2sl_pnt;
  3907	pnt rack2sl_index;
  3908	
  3909	/*
  3910	Compare the integers x and y for equality
  3911	This function also occurs inside eq0
  3912	*/
  3913	pnt rack_eq_int(pnt x,pnt y){
  3914	  for(;;){
  3915	    if(HEAD(x)!=HEAD(y)) return FALSE;
  3916	    x=TAIL(x);
  3917	    y=TAIL(y);
  3918	    if(x==0||y==0) return x==y;}}
  3919	
  3920	/*
  3921	During rack conversion, we use a hash table
  3922	The hash table is stored on the stack below stack[sp]
  3923	The garbarge collector does not see the hash table because it is below stack[sp]
  3924	rack_pnt2index(r) converts the pointer r to its index using the hash table
  3925	*/
  3926	pnt rack_pnt2index(pnt r){
  3927	  pnt root;
  3928	  pnt head;
  3929	  pnt tail;
  3930	  pnt hash;
  3931	  pnt s;
  3932	  if(r==T) return 1;
  3933	  root=ROOT(r);
  3934	  root=root&~markmask;
  3935	  if(root==TAG_INT||root==TAG_VECT){
  3936	    hash=HEAD(r);
  3937	    hash=hash%rack2sl_size;
  3938	    hash=hash*RACK2SL_KEY;
  3939	    hash=hash%rack2sl_size;
  3940	    for(;(s=stack[rack2sl_sp+hash*2])!=T;hash=(hash+1)%rack2sl_size){
  3941	      if((ROOT(s)&~markmask)==TAG_PAIR) continue;
  3942	      if(!rack_eq_int(r,s)) continue;
  3943	      return stack[rack2sl_sp+hash*2+1];}
  3944	    die("rack2sl: Internal error 1, cannot find cardinal");}
  3945	  if(root==TAG_PAIR){
  3946	    head=HEAD(r);
  3947	    tail=TAIL(r);
  3948	    hash=(head%rack2sl_size+tail%rack2sl_size)*RACK2SL_KEY;
  3949	    hash=hash%rack2sl_size;
  3950	    for(;(s=stack[rack2sl_sp+hash*2])!=T;hash=(hash+1)%rack2sl_size){
  3951	      if((ROOT(s)&~markmask)!=TAG_PAIR) continue;
  3952	      if(HEAD(s)!=head) continue;
  3953	      if(TAIL(s)!=tail) continue;
  3954	      return stack[rack2sl_sp+hash*2+1];}
  3955	    die("rack2sl: Internal error 2, cannot find pair");}
  3956	  unexpected_tag("Internal error 3 in rack2sl",r);
  3957	  return T; /* This never happens */}
  3958	
  3959	/*
  3960	Return size of rack measured in entities (pairs and integers)
  3961	T counts as zero entities, entities for one each.
  3962	Only count shared entities once.
  3963	Put a mark on each entity when counted.
  3964	Return sl2rack_X, i.e. (pnt)(-1) in case of unexpected data
  3965	*/
  3966	pnt rack_size(pnt r){
  3967	  pnt root;
  3968	  pnt head;
  3969	  pnt tail;
  3970	  if(r==T) return 0;
  3971	  root=ROOT(r);
  3972	  if(root&markmask) return 0;
  3973	  if(root==TAG_INT){
  3974	    if(lt(r,Z)==T){ROOT(r)=root|markmask;return sl2rack_X;}
  3975	    ROOT(r)=root|markmask;return 1;}
  3976	  ROOT(r)=root|markmask;
  3977	  if(root==TAG_VECT) return 1;
  3978	  if(root!=TAG_PAIR) return sl2rack_X;
  3979	  head=rack_size(HEAD(r));
  3980	  if(head==sl2rack_X) return sl2rack_X;
  3981	  tail=rack_size(TAIL(r));
  3982	  if(tail==sl2rack_X) return sl2rack_X;
  3983	  return 1+head+tail;}
  3984	
  3985	/*
  3986	Search rack for sharing.
  3987	Build a hash table which maps entities (pairs and integers) to indexes
  3988	Remove mark after processing an entity.
  3989	Turn duplicates into garbage and let the garbage point to its twin.
  3990	Link all duplicates into a list pointed at by rack2sl_pnt
  3991	*/
  3992	pnt rack_merge(pnt r){
  3993	  pnt root;
  3994	  pnt head;
  3995	  pnt tail;
  3996	  pnt hash;
  3997	  pnt s;
  3998	  if(r==T) return r;
  3999	  root=ROOT(r);
  4000	  if(!(root&markmask)) return (root==TAG_GARB)?HEAD(r):r;
  4001	  root=root&~markmask;
  4002	  ROOT(r)=root;
  4003	  if(root==TAG_GARB) return HEAD(r);
  4004	  if(root==TAG_INT||root==TAG_VECT){
  4005	    hash=HEAD(r);
  4006	    hash=hash%rack2sl_size;
  4007	    hash=hash*RACK2SL_KEY;
  4008	    hash=hash%rack2sl_size;
  4009	    for(;(s=stack[rack2sl_sp+hash*2])!=T;hash=(hash+1)%rack2sl_size){
  4010	      if(ROOT(s)==TAG_PAIR) continue;
  4011	      if(!rack_eq_int(r,s)) continue;
  4012	      ROOT(r)=TAG_GARB;
  4013	      HEAD(r)=s;
  4014	      TAIL(r)=rack2sl_pnt;
  4015	      rack2sl_pnt=r;
  4016	      return s;}
  4017	    stack[rack2sl_sp+hash*2]=r;
  4018	    stack[rack2sl_sp+hash*2+1]=rack2sl_index++;
  4019	    return r;}
  4020	  if(root==TAG_PAIR){
  4021	    head=rack_merge(HEAD(r));
  4022	    tail=rack_merge(TAIL(r));
  4023	    HEAD(r)=head;
  4024	    TAIL(r)=tail;
  4025	    hash=(head%rack2sl_size+tail%rack2sl_size)*RACK2SL_KEY;
  4026	    hash=hash%rack2sl_size;
  4027	    for(;(s=stack[rack2sl_sp+hash*2])!=T;hash=(hash+1)%rack2sl_size){
  4028	      if(ROOT(s)!=TAG_PAIR) continue;
  4029	      if(HEAD(s)!=head) continue;
  4030	      if(TAIL(s)!=tail) continue;
  4031	      ROOT(r)=TAG_GARB;
  4032	      HEAD(r)=s;
  4033	      TAIL(r)=rack2sl_pnt;
  4034	      rack2sl_pnt=r;
  4035	      return s;}
  4036	    stack[rack2sl_sp+hash*2]=r;
  4037	    stack[rack2sl_sp+hash*2+1]=rack2sl_index++;
  4038	    return r;}
  4039	  unexpected_tag("Internal error 4 in rack2sl",r);
  4040	  return T; /* This never happens */}
  4041	
  4042	/*
  4043	Turn duplicates back from garbage to duplicates
  4044	*/
  4045	void rack2sl_restore(){
  4046	  pnt r,s;
  4047	  while(rack2sl_pnt!=T){
  4048	    r=rack2sl_pnt;
  4049	    rack2sl_pnt=TAIL(rack2sl_pnt);
  4050	    s=HEAD(r);
  4051	    ROOT(r)=ROOT(s);
  4052	    HEAD(r)=HEAD(s);
  4053	    TAIL(r)=TAIL(s);}}
  4054	
  4055	/*
  4056	Push one byte onto the result
  4057	The result is pointed at by TAIL(stack[sp])
  4058	rack2sl_pnt points to the last cell of the result
  4059	*/
  4060	void rack_byte_dump(pnt r){
  4061	  pnt x=pair(bytevect[r],T);
  4062	  TAIL(rack2sl_pnt)=x;
  4063	  rack2sl_pnt=x;}
  4064	
  4065	/*
  4066	Push one small cardinal onto the result
  4067	*/
  4068	void rack_int_dump(pnt r){
  4069	  for(;r>=128;r=r/128) rack_byte_dump(r%128+128);
  4070	  rack_byte_dump(r);}
  4071	
  4072	/*
  4073	Find the integer-length of the cardinal x
  4074	Resembles integerLength(x)
  4075	*/
  4076	pnt rack_int_length(pnt x){
  4077	  pnt result=0;
  4078	  for(;TAIL(x);x=TAIL(x)) result+=pntsize;
  4079	  x=HEAD(x);
  4080	  if(x&signmask) return 0;
  4081	  for(;x;x=x>>1) result+=1;
  4082	  return result;}
  4083	
  4084	/*
  4085	Push the rack (excluding the end mark) onto the result
  4086	*/
  4087	void rack_dump(pnt r){
  4088	  pnt root;
  4089	  pnt head;
  4090	  pnt tail;
  4091	  pnt len;
  4092	  pnt i;
  4093	  if(r==T) return;
  4094	  root=ROOT(r);
  4095	  if(root&markmask) return;
  4096	  ROOT(r)=root|markmask;
  4097	  if(root==TAG_INT||root==TAG_VECT){
  4098	    len=rack_int_length(r);
  4099	    if(len%8==1){
  4100	      rack_int_dump(2);
  4101	      len=len/8;
  4102	      rack_int_dump(len);
  4103	      for(;TAIL(r);r=TAIL(r))
  4104	      for(i=0;i<bytesize;i++)
  4105	      rack_byte_dump((HEAD(r)>>(8*i))&0xFF);
  4106	      r=HEAD(r);
  4107	      for(;r>1;r=r>>8) rack_byte_dump(r&0xFF);
  4108	      return;}
  4109	    if(TAIL(r)) die("rack2sl conversion of non-vector bigints not implemented");
  4110	    rack_int_dump(0);
  4111	    rack_int_dump(HEAD(r));
  4112	    return;}
  4113	  if(root==TAG_PAIR){
  4114	    head=HEAD(r);
  4115	    tail=TAIL(r);
  4116	    rack_dump(head);
  4117	    rack_dump(tail);
  4118	    rack_int_dump(rack_pnt2index(head));
  4119	    rack_int_dump(rack_pnt2index(tail));
  4120	    return;}
  4121	  unexpected_tag("Internal error 5 in rack2sl",r);}
  4122	
  4123	
  4124	
  4125	/*
  4126	Scan the heap and remove marks on all entities
  4127	*/
  4128	void rack_unmark(pnt r){
  4129	  pnt root;
  4130	  if(r==T) return;
  4131	  root=ROOT(r);
  4132	  if(!(root&markmask)) return;
  4133	  root=root&~markmask;
  4134	  ROOT(r)=root;
  4135	  if(root!=TAG_PAIR) return;
  4136	  rack_unmark(HEAD(r));
  4137	  rack_unmark(TAIL(r));}
  4138	
  4139	/*
  4140	Clear the part of the stack used for the hash table
  4141	The hash table is stored below stack[sp] so that gc() does not note it
  4142	*/
  4143	void clear_hash(){
  4144	  pnt sp1;
  4145	  for(sp1=0;sp1<rack2sl_size;sp1++) stack[rack2sl_sp+sp1*2]=T;}
  4146	
  4147	/*
  4148	Convert the rack r to a singleton list
  4149	*/
  4150	pnt rack2sl(pnt r){/* rack2sl ( " ) */
  4151	  pnt size;
  4152	  push(r);
  4153	  size=rack_size(r);
  4154	  if(size==sl2rack_X){rack_unmark(r);return ret(1,X);}
  4155	  push(pair(T,T));
  4156	  rack2sl_size=size*2; /* Make hash twice as big as needed */
  4157	  rack2sl_size=(rack2sl_size/RACK2SL_KEY+1)*RACK2SL_KEY+1;
  4158	  if(sp<rack2sl_size*2) die("stack overflow in rack2sl");
  4159	  rack2sl_sp=sp-rack2sl_size*2;
  4160	  clear_hash();
  4161	  rack2sl_pnt=T;
  4162	  rack2sl_index=3;
  4163	  r=rack_merge(r);
  4164	  rack2sl_restore();
  4165	  rack2sl_pnt=stack[sp];
  4166	  rack_dump(r);
  4167	  rack_int_dump(rack2sl_index);
  4168	  rack_unmark(r);
  4169	  rack2sl_pnt=TAIL(stack[sp]);
  4170	  return ret(2,rack2sl_pnt);}
  4171	
  4172	
  4173	
  4174	/************************
  4175	 * Reference conversion *
  4176	 ************************/
  4177	
  4178	/* Functions for converting a reference to a mixed endian hexadecimal string
  4179	   and vice versa */
  4180	
  4181	unsigned char pnt2hex(pnt p){
  4182	  switch(p&15){
  4183	    case 0x00:return '0';
  4184	    case 0x01:return '1';
  4185	    case 0x02:return '2';
  4186	    case 0x03:return '3';
  4187	    case 0x04:return '4';
  4188	    case 0x05:return '5';
  4189	    case 0x06:return '6';
  4190	    case 0x07:return '7';
  4191	    case 0x08:return '8';
  4192	    case 0x09:return '9';
  4193	    case 0x0A:return 'A';
  4194	    case 0x0B:return 'B';
  4195	    case 0x0C:return 'C';
  4196	    case 0x0D:return 'D';
  4197	    case 0x0E:return 'E';
  4198	    case 0x0F:return 'F';
  4199	    default: return '?'; /* This never happens */}}
  4200	
  4201	pnt hex2pnt(unsigned char p){
  4202	  switch(p){
  4203	    case '0': return 0x00;
  4204	    case '1': return 0x01;
  4205	    case '2': return 0x02;
  4206	    case '3': return 0x03;
  4207	    case '4': return 0x04;
  4208	    case '5': return 0x05;
  4209	    case '6': return 0x06;
  4210	    case '7': return 0x07;
  4211	    case '8': return 0x08;
  4212	    case '9': return 0x09;
  4213	    case 'A': return 0x0A;
  4214	    case 'B': return 0x0B;
  4215	    case 'C': return 0x0C;
  4216	    case 'D': return 0x0D;
  4217	    case 'E': return 0x0E;
  4218	    case 'F': return 0x0F;
  4219	    default: die("Unexpected character in hex constant");
  4220	    return T; /* This never happens */}}
  4221	
  4222	/* Convert a vector to a mixed endian hexadecimal string.
  4223	   Store result in the "refname" global variable */
  4224	
  4225	unsigned char bufrefname[PATHSIZE];
  4226	void ref2string(pnt ref){
  4227	  pnt index=0;
  4228	  pnt i;
  4229	  pnt head,tail;
  4230	  if(NO_INT(ref)) die("ref2string called with non-integer\n");
  4231	  for(;;){
  4232	    head=HEAD(ref);
  4233	    tail=TAIL(ref);
  4234	    for(i=0;i<bytesize;i++){
  4235	      if(index+2>=PATHSIZE) die("ref2string overflow");
  4236	      if((head<256)&&(tail==NIL)){bufrefname[index]=0;return;}
  4237	      bufrefname[index++]=pnt2hex(head>>4);
  4238	      bufrefname[index++]=pnt2hex(head);
  4239	      head>>=8;}
  4240	    ref=tail;}}
  4241	
  4242	/* Convert a mixed endian hexadecimal string to a vector */
  4243	pnt string2ref2(unsigned char *str,pnt len){
  4244	  if(len==0) return 1;
  4245	  return (hex2pnt(*str)<<4)|hex2pnt(*(str+1))|(string2ref2(str+2,len-1)<<8);}
  4246	
  4247	pnt string2ref1(unsigned char *str,pnt len){
  4248	  if(len<bytesize) return icons(string2ref2(str,len),NIL);
  4249	  return 
  4250	  icons(string2ref2(str,bytesize),string2ref1(str+2*bytesize,len-bytesize));}
  4251	
  4252	pnt string2ref(unsigned char *str){
  4253	  pnt len=strlen((char *)str);
  4254	  if(len&1) die("string2ref: uneven string");
  4255	  return string2ref1(str,len/2);}
  4256	
  4257	
  4258	
  4259	/*****************
  4260	 * Introductions *
  4261	 *****************/
  4262	
  4263	#define init_name(tag,eager,name) init_name1(tag,eager,#tag,name)
  4264	
  4265	void init_name1(pnt tag,pnt eager,char *string,char *name){
  4266	  if(TAG_SIZE<=tag) die("init_name: Tag out of range");
  4267	  tag2string[tag]=string;
  4268	  tag2eager[tag]=eager;
  4269	  if(name==T) return;
  4270	  tag2name[tag]=str2vec(name);}
  4271	
  4272	void init_names(){
  4273	  pnt i;
  4274	  for(i=0;i<TAG_SIZE;i++){
  4275	    tag2string[i]=NIL;
  4276	    tag2eager[i]=F;
  4277	    tag2name[i]=T;
  4278	    tag2rhs[i]=T;
  4279	    tag2arg[i]=T;}
  4280	
  4281	  init_name(TAG_FALSE     ,F,T);
  4282	  init_name(TAG_INT       ,F,T);
  4283	  init_name(TAG_VECT      ,F,T);
  4284	  init_name(TAG_PAIR      ,F,T);
  4285	  init_name(TAG_EX        ,F,T);
  4286	  init_name(TAG_MAP       ,F,T);
  4287	  init_name(TAG_OBJ       ,F,T);
  4288	  init_name(TAG_GARB      ,F,T);
  4289	
  4290	  init_name(TTAG_APPLY    ,F,T);
  4291	  init_name(TTAG_LAMBDA   ,F,T);
  4292	  init_name(TTAG_VAR      ,F,T);
  4293	  init_name(TTAG_PAIR     ,F,T);
  4294	  init_name(TTAG_CONST    ,F,T);
  4295	  init_name(TTAG_CALL     ,F,T);
  4296	  init_name(TTAG_ECALL    ,F,T);
  4297	
  4298	  init_name(MTAG_CLOSURE  ,F,T);
  4299	  init_name(MTAG_INDIR    ,F,T);
  4300	  init_name(MTAG_PAIR     ,F,T);
  4301	  init_name(MTAG_LAMBDA   ,F,T);
  4302	  init_name(MTAG_FIX      ,F,T);
  4303	
  4304	  init_name(CTAG_MAP      ,F,T);
  4305	  init_name(CTAG_EMAP     ,F,T);
  4306	  init_name(CTAG_TRUE     ,F,T);
  4307	  init_name(CTAG_APPLY    ,F,T);
  4308	  init_name(CTAG_IF       ,F,T);
  4309	
  4310	  init_name(ETAG_var      ,F,T);
  4311	  init_name(ETAG_ecall    ,F,T);
  4312	  init_name(ETAG_digit0   ,T,"\" %0");
  4313	  init_name(ETAG_digit1   ,T,"\" %1");
  4314	  init_name(ETAG_digit2   ,T,"\" %2");
  4315	  init_name(ETAG_digit3   ,T,"\" %3");
  4316	  init_name(ETAG_digit4   ,T,"\" %4");
  4317	  init_name(ETAG_digit5   ,T,"\" %5");
  4318	  init_name(ETAG_digit6   ,T,"\" %6");
  4319	  init_name(ETAG_digit7   ,T,"\" %7");
  4320	  init_name(ETAG_digit8   ,T,"\" %8");
  4321	  init_name(ETAG_digit9   ,T,"\" %9");
  4322	  init_name(ETAG_times    ,T,"\" * \"");
  4323	  init_name(ETAG_plus     ,T,"\" + \"");
  4324	  init_name(ETAG_minus    ,T,"\" - \"");
  4325	  init_name(ETAG_and      ,F,"\" .and. \"");
  4326	  init_name(ETAG_or       ,F,"\" .or. \"");
  4327	  init_name(ETAG_then     ,F,"\" .then. \"");
  4328	  init_name(ETAG_pair     ,T,"\" :: \"");
  4329	  init_name(ETAG_lt       ,T,"\" < \"");
  4330	  init_name(ETAG_le       ,T,"\" <= \"");
  4331	  init_name(ETAG_equal    ,T,"\" = \"");
  4332	  init_name(ETAG_gt       ,T,"\" > \"");
  4333	  init_name(ETAG_ge       ,T,"\" >= \"");
  4334	  init_name(ETAG_apply    ,T,"\" apply \"");
  4335	  init_name(ETAG_boolp    ,T,"\" boolp");
  4336	  init_name(ETAG_catch    ,F,"\" catch");
  4337	  init_name(ETAG_maptag1  ,F,"\" catching maptag");
  4338	  init_name(ETAG_div      ,T,"\" div \"");
  4339	  init_name(ETAG_head     ,T,"\" head");
  4340	  init_name(ETAG_intp     ,T,"\" intp");
  4341	  init_name(ETAG_boolg    ,T,"\" is bool : \"");
  4342	  init_name(ETAG_intg     ,T,"\" is int : \"");
  4343	  init_name(ETAG_mapg     ,T,"\" is map : \"");
  4344	  init_name(ETAG_objg     ,T,"\" is object : \"");
  4345	  init_name(ETAG_pairg    ,T,"\" is pair : \"");
  4346	  init_name(ETAG_mapp     ,T,"\" mapp");
  4347	  init_name(ETAG_maptag   ,F,"\" maptag");
  4348	  init_name(ETAG_mod      ,T,"\" mod \"");
  4349	  init_name(ETAG_norm     ,T,"\" norm");
  4350	  init_name(ETAG_objp     ,T,"\" objectp");
  4351	  init_name(ETAG_pairp    ,T,"\" pairp");
  4352	  init_name(ETAG_raise    ,T,"\" raise");
  4353	  init_name(ETAG_root     ,T,"\" root");
  4354	  init_name(ETAG_tail     ,T,"\" tail");
  4355	  init_name(ETAG_untag    ,T,"\" untag");
  4356	  init_name(ETAG_digitend ,T,"%%");
  4357	  init_name(ETAG_par      ,F,"( \" )");
  4358	  init_name(ETAG_uplus    ,T,"+ \"");
  4359	  init_name(ETAG_dplus    ,T,"+\"");
  4360	  init_name(ETAG_uminus   ,T,"- \"");
  4361	  init_name(ETAG_dminus   ,T,"-\"");
  4362	  init_name(ETAG_not      ,T,".not. \"");
  4363	  init_name(ETAG_Base     ,T,"Base");
  4364	  init_name(ETAG_LET      ,F,"LET \" BE \"");
  4365	  init_name(ETAG_ash      ,T,"ash ( \" , \" )");
  4366	  init_name(ETAG_bottom   ,T,"bottom");
  4367	  init_name(ETAG_bt2bytes ,T,"bt2byte* ( \" )");
  4368	  init_name(ETAG_bt2vects ,T,"bt2vector* ( \" )");
  4369	  init_name(ETAG_bt2vector,T,"bt2vector ( \" )");
  4370	  init_name(ETAG_ceiling  ,T,"ceiling ( \" , \" )");
  4371	  init_name(ETAG_destruct ,T,"destruct ( \" )");
  4372	  init_name(ETAG_evenp    ,T,"evenp ( \" )");
  4373	  init_name(ETAG_exception,T,"exception");
  4374	  init_name(ETAG_false    ,T,"false");
  4375	  init_name(ETAG_floor    ,T,"floor ( \" , \" )");
  4376	  init_name(ETAG_half     ,T,"half ( \" )");
  4377	  init_name(ETAG_if       ,F,"if \" then \" else \"");
  4378	  init_name(ETAG_intlength,T,"integer-length ( \" )");
  4379	  init_name(ETAG_logand   ,T,"logand ( \" , \" )");
  4380	  init_name(ETAG_logandc1 ,T,"logandc1 ( \" , \" )");
  4381	  init_name(ETAG_logandc2 ,T,"logandc2 ( \" , \" )");
  4382	  init_name(ETAG_logbitp  ,T,"logbitp ( \" , \" )");
  4383	  init_name(ETAG_logcount ,T,"logcount ( \" )");
  4384	  init_name(ETAG_logeqv   ,T,"logeqv ( \" , \" )");
  4385	  init_name(ETAG_logior   ,T,"logior ( \" , \" )");
  4386	  init_name(ETAG_lognand  ,T,"lognand ( \" , \" )");
  4387	  init_name(ETAG_lognor   ,T,"lognor ( \" , \" )");
  4388	  init_name(ETAG_lognot   ,T,"lognot ( \" )");
  4389	  init_name(ETAG_logorc1  ,T,"logorc1 ( \" , \" )");
  4390	  init_name(ETAG_logorc2  ,T,"logorc2 ( \" , \" )");
  4391	  init_name(ETAG_logtest  ,T,"logtest ( \" , \" )");
  4392	  init_name(ETAG_logxor   ,T,"logxor ( \" , \" )");
  4393	  init_name(ETAG_map      ,F,"map ( \" )");
  4394	  init_name(ETAG_prenorm  ,T,"norm \"");
  4395	  init_name(ETAG_notnot   ,T,"notnot \"");
  4396	  init_name(ETAG_object   ,T,"object ( \" )");
  4397	  init_name(ETAG_print    ,T,"print ( \" )");
  4398	  init_name(ETAG_round    ,T,"round ( \" , \" )");
  4399	  init_name(ETAG_spy      ,T,"spy ( \" )");
  4400	  init_name(ETAG_timer    ,T,"timer ( \" )");
  4401	  init_name(ETAG_trace    ,T,"trace ( \" )");
  4402	  init_name(ETAG_truncate ,T,"truncate ( \" , \" )");
  4403	  init_name(ETAG_vector   ,T,"vector ( \" )");
  4404	  init_name(ETAG_vnorm    ,T,"vector-norm ( \" )");
  4405	  init_name(ETAG_vempty   ,T,"vector-empty ( \" )");
  4406	  init_name(ETAG_vindex   ,T,"vector-index ( \" , \" )");
  4407	  init_name(ETAG_vlength  ,T,"vector-length ( \" )");
  4408	  init_name(ETAG_vprefix  ,T,"vector-prefix ( \" , \" )");
  4409	  init_name(ETAG_vsubseq  ,T,"vector-subseq ( \" , \" , \" )");
  4410	  init_name(ETAG_vsuffix  ,T,"vector-suffix ( \" , \" )");
  4411	  init_name(ETAG_v2bytes  ,T,"vector2byte* ( \" )");
  4412	  init_name(ETAG_v2vects  ,T,"vector2vector* ( \" )");
  4413	  init_name(ETAG_vt2bytes ,T,"vt2byte* ( \" )");
  4414	  init_name(ETAG_vt2vects ,T,"vt2vector* ( \" )");
  4415	  init_name(ETAG_vt2v     ,T,"vt2vector ( \" )");
  4416	  init_name(ETAG_yy       ,F,"YY");
  4417	  init_name(ETAG_compile  ,T,"compile ( \" )");
  4418	  init_name(ETAG_ripemd   ,T,"ripemd ( \" )");
  4419	  init_name(ETAG_sl2rack  ,T,"sl2rack ( \" )");
  4420	  init_name(ETAG_rack2sl  ,T,"rack2sl ( \" )");
  4421	}
  4422	
  4423	
  4424	
  4425	/******************
  4426	 * Term accessors *
  4427	 ******************/
  4428	
  4429	pnt term2ref(pnt term){
  4430	  return head(head(term));}
  4431	pnt term2idx(pnt term){
  4432	  return head(tail(head(term)));}
  4433	pnt term2arg1(pnt term){
  4434	  return head(tail(term));}
  4435	pnt term2arg2(pnt term){
  4436	  return head(tail(tail(term)));}
  4437	pnt term2arg3(pnt term){
  4438	  return head(tail(tail(tail(term))));}
  4439	pnt def2lhs(pnt def){
  4440	  return term2arg2(def);}
  4441	pnt def2arg(pnt def){
  4442	  return tail(def2lhs(def));}
  4443	pnt def2rhs(pnt def){
  4444	  return term2arg3(def);}
  4445	
  4446	
  4447	
  4448	/*******************
  4449	 * Translate names *
  4450	 *******************/
  4451	
  4452	pnt name2sym4(pnt cache,pnt idx,pnt ref,pnt name){
  4453	  pnt cache1;
  4454	  cache1=mget2(cache,Z,const_name);
  4455	  if(cache1==T) return T;
  4456	  cache1=head(tail(tail(tail(cache1))));
  4457	  cache1=head(tail(head(cache1)));
  4458	  if(eq0(cache1,name)) return pair(ref,idx);
  4459	  return T;}
  4460	
  4461	pnt name2sym3(pnt cache,pnt ref,pnt name){
  4462	  pnt result;
  4463	  if(cache==T) return T;
  4464	  if(IS_INT(head(cache)))
  4465	  return name2sym4(TAIL(cache),HEAD(cache),ref,name);
  4466	  result=name2sym3(HEAD(cache),ref,name);
  4467	  if(result!=T) return result;
  4468	  return name2sym3(TAIL(cache),ref,name);}
  4469	
  4470	pnt name2sym2(pnt cache,pnt ref,pnt name){
  4471	  return name2sym3(mget3(cache,ref,const_codex,ref),ref,name);}
  4472	
  4473	pnt name2sym1(pnt cache,pnt name){
  4474	  pnt result;
  4475	  if(cache==T) return T;
  4476	  if(IS_INT(head(cache))) return name2sym2(TAIL(cache),HEAD(cache),name);
  4477	  result=name2sym1(HEAD(cache),name);
  4478	  if(result!=T) return result;
  4479	  return name2sym1(tail(cache),name);}
  4480	
  4481	pnt name2sym(char name1[]){
  4482	  pnt name;
  4483	  name=str2vec1((unsigned char *)name1,strlen(name1));
  4484	  return name2sym1(state,name);}
  4485	
  4486	pnt name2ref(char name1[]){
  4487	  pnt sym=name2sym(name1);
  4488	  if(sym==T) {printf("%s\n",name1);die("No code found");}
  4489	  return head(sym);}
  4490	
  4491	pnt name2idx(char name1[]){
  4492	  pnt sym=name2sym(name1);
  4493	  if(sym==T) {printf("%s\n",name1);die("No code found");}
  4494	  return tail(sym);}
  4495	
  4496	pnt name2code(char name1[]){
  4497	  pnt sym;
  4498	  pnt ref;
  4499	  pnt idx;
  4500	  sym=name2sym(name1);
  4501	  if(sym==T) {printf("%s\n",name1);die("No code found");}
  4502	  ref=HEAD(sym);
  4503	  idx=TAIL(sym);
  4504	  return mget4(state,ref,ref,const_code,idx);}
  4505	
  4506	pnt name2code1(pnt code,char name1[]){
  4507	  return mget1(code,name2idx(name1));}
  4508	
  4509	
  4510	
  4511	/************************
  4512	 * Compilation, stage 1 *
  4513	 ************************/
  4514	
  4515	/*
  4516	During stage 1, an initial value for the code array is constructed.
  4517	
  4518	The code array is constructed in the top element of the stack.
  4519	
  4520	The code array has one entry per construct with a non-empty value aspect.
  4521	
  4522	The code array is indexed by the index of each construct.
  4523	
  4524	For proclaimed constructs (lambda, quote, true, apply, and if),
  4525	code[idx] is set to the value code[idx] is eventually going to have.
  4526	(0 for lambda, 1 for quote, and various tagged maps for the other three).
  4527	
  4528	For defined and introduced constructs, code[idx] is set to a tagged map
  4529	whose 'hidden tag' is set to CTAG_EMAP because any definition is deemed
  4530	eager until the converse has been proved. During later stages, this hidden
  4531	tag is updated to reflect the outcome of various static analysis. The
  4532	hidden tag has no influence on the semantics of the entries.
  4533	
  4534	For defined and introduced constructs, the map part of code[idx] is set
  4535	to as many lambdas as the arity of the construct indicates followed by
  4536	a pair construct followed by the definition of the construct. During
  4537	stage 5 and 6, the pair is overwritten with the compiled version of the
  4538	definition. This allows to implement mutual recursion with circular
  4539	call structures.
  4540	*/
  4541	
  4542	pnt term2fct(pnt arity,pnt term){
  4543	  if(arity==0) return closure(term,NIL);
  4544	  return map_lambda(term_lambdas(arity-1,term),NIL);}
  4545	
  4546	void initcode(pnt codex){
  4547	  pnt hd;
  4548	  pnt tl;
  4549	  pnt def;
  4550	  pnt arg;
  4551	  pnt arity;
  4552	  if(codex==T) return;
  4553	  if(GD_PAIR(codex)) die("Unexpected type in codex");
  4554	  hd=HEAD(codex);
  4555	  tl=TAIL(codex);
  4556	  if(NO_INT(hd)){initcode(hd);initcode(tl);return;}
  4557	  def=mget2(tl,Z,const_value);
  4558	  if(def==T) return;
  4559	  if(!eq0(head(head(def)),Z)){
  4560	    arity=0;
  4561	    for(arg=tail(head(tail(tail(def))));arg!=T;arg=TAIL(arg)) arity++;
  4562	    TOP=aput0(TOP,hd,mapcons2(CTAG_EMAP,term2fct(arity,pair(def,T))));
  4563	    return;}
  4564	  def=head(tail(head(def)));
  4565	  if(eq0(def,const_lambda)){TOP=aput0(TOP,hd,fct_lambda); return;}
  4566	  if(eq0(def,const_apply)){TOP=aput0(TOP,hd,fct_apply); return;}
  4567	  if(eq0(def,const_if)){TOP=aput0(TOP,hd,fct_if); return;}
  4568	  if(eq0(def,const_true)){TOP=aput0(TOP,hd,fct_true); return;}
  4569	  if(eq0(def,const_quote)){TOP=aput0(TOP,hd,fct_quote); return;}
  4570	  spy0(int2vec(def));
  4571	  die("Unknown value proclamations");}
  4572	
  4573	
  4574	
  4575	/*****************************************
  4576	 * Compilation, stage 2, record patterns *
  4577	 *****************************************/
  4578	
  4579	/*
  4580	During the stage 2, the official definitions of optimized functions
  4581	are collected.
  4582	
  4583	This is done on basis of the cache of a reference page. The constructs
  4584	on the reference page are recognized using their Logiweb names.
  4585	
  4586	Optimized function i is supposed to have Logiweb name tag2name[i].
  4587	Once a construct with name tag2name[i] is located in the cache of
  4588	the reference page, the value definition of that construct is taken
  4589	to be the official definition of optimized function i.
  4590	
  4591	Stage 2 of the compilation is only performed when translating the
  4592	reference page. A complete compilation consists of compilation of the
  4593	reference page, including stage 2, followed by compilation of the
  4594	source page, excluding stage 2.
  4595	
  4596	Note that the source page can be identical to the reference page in
  4597	which case translation of the source page will be trivial since it
  4598	is already compiled.
  4599	
  4600	Also note that the source page may transitively reference to reference
  4601	page in which case the reference page is only compiled once.
  4602	
  4603	One could stop compilation of the reference page after stage 2 if it
  4604	is not transitively referenced by the source page, but the reference
  4605	page is translated to completion in all cases for simplicity.
  4606	
  4607	The algorithm uses the code array produced in stage 1.
  4608	One could have based the algorithm on the codex instead of the
  4609	code, leading to a cleaner but more complex algorithm. The algorithm
  4610	actually used is "unclean" in the sense that it depends on the
  4611	particular output from stage 1 even though it could have depended
  4612	only on the completely standardized format of the cache and codex.
  4613	*/
  4614	
  4615	pnt nameget(pnt caches,pnt ref,pnt idx){
  4616	  pnt def=defget(caches,ref,idx,const_name);
  4617	  if(def==T) return T;
  4618	  return term2idx(def2rhs(def));}
  4619	
  4620	void nameprint3(pnt x){
  4621	  x=x&0xFF;
  4622	  if(x<32) printesc(x); else
  4623	  if(x<127) printf("%c",(int)x); else
  4624	  printesc(x);}
  4625	
  4626	void nameprint2(pnt x){
  4627	  for(;TAIL(x);x=TAIL(x)){
  4628	    pnt i;
  4629	    pnt y=HEAD(x);
  4630	    for(i=0;i<bytesize;i++){nameprint3(y);y=y>>8;}}
  4631	  for(x=HEAD(x);x>1;x=x>>8) nameprint3(x);}
  4632	
  4633	void nameprint1(pnt caches,pnt term){
  4634	  pnt ref=term2ref(term);
  4635	  pnt idx=term2idx(term);
  4636	  pnt name;
  4637	  if(term==T) printf("    T");
  4638	  else if(ref==Z){printf("string ");spy2(1,idx);}
  4639	  else {
  4640	    printf("Index ");
  4641	    spy2(1,term2idx(term));
  4642	    name=nameget(caches,ref,idx);
  4643	    if(name==T) return;
  4644	    printf(": ");
  4645	    nameprint2(name);}}
  4646	
  4647	void nameprint0(pnt caches,pnt term){
  4648	  nameprint1(caches,term);
  4649	  printf("\n");}
  4650	
  4651	/*
  4652	Skip the mtag_closure, mtag_lambda, and ttag_lambda constructs
  4653	at the root of code entries and return the pair which is eventually
  4654	going to be overwritten with the compiled version of the code entry.
  4655	
  4656	The given term entry is supposed to be a mapcons so skiparg cannot
  4657	be used on lambdas and quotes.
  4658	*/
  4659	pnt code2pair(pnt term){
  4660	  for(term=HEAD(term);ROOT(term)!=TAG_PAIR;term=HEAD(term));
  4661	  return term;}
  4662	
  4663	/*
  4664	Same as above, but return the untranslated definition instead of the pair
  4665	*/
  4666	pnt code2def(pnt term){
  4667	  return HEAD(code2pair(term));}
  4668	
  4669	void record_pattern1(pnt caches,pnt code,pnt def){
  4670	  pnt lhs=term2arg2(def);
  4671	  pnt ref=term2ref(lhs);
  4672	  pnt idx=term2idx(lhs);
  4673	  pnt arg=tail(lhs);
  4674	  pnt rhs=term2arg3(def);
  4675	  pnt i;
  4676	  pnt name=nameget(caches,ref,idx);
  4677	  if(name==T) return;
  4678	  for(i=0;i<TAG_SIZE;i++)
  4679	  if(eq0(name,tag2name[i])){
  4680	    if(tag2rhs[i]!=T){
  4681	      printf("Multiple definitions. Name=");
  4682	      spy0(name);
  4683	      return;}
  4684	    tag2rhs[i]=rhs;
  4685	    tag2arg[i]=arg;
  4686	    TAIL(code)=i; /* Unnecessary, but saves time, c.f. recognize_intro */
  4687	    return;}
  4688	  return;}
  4689	
  4690	void record_pattern(pnt caches,pnt code,pnt def){
  4691	  pnt ref=term2ref(def);
  4692	  pnt idx=term2idx(def);
  4693	  pnt aspect=defget(caches,ref,idx,const_definition);
  4694	  if(!eq0(aspect,tree_introduce)) return;
  4695	  record_pattern1(caches,code,def);}
  4696	
  4697	void record_patterns(pnt caches,pnt code){
  4698	  pnt hd;
  4699	  pnt tl;
  4700	  if(code==T) return;
  4701	  if(GD_PAIR(code)) die("Unexpected type in code");
  4702	  hd=HEAD(code);
  4703	  tl=TAIL(code);
  4704	  if(NO_INT(hd)){
  4705	    record_patterns(caches,hd);
  4706	    record_patterns(caches,tl);
  4707	    return;}
  4708	  if(ROOT(tl)!=TAG_MAP) return; /* disregard quote and lambda */
  4709	  if(TAIL(tl)!=CTAG_EMAP) return; /* disregard true, apply, and if */
  4710	  record_pattern(caches,tl,code2def(tl));}
  4711	
  4712	
  4713	
  4714	/********************************************
  4715	 * Compilation, stage 3, pattern comparison *
  4716	 ********************************************/
  4717	
  4718	/*
  4719	sim_term(pnt c,pnt t1,pnt v1,pnt t2,pnt v2,pnt sim) checks whether or not
  4720	two terms, t1 and t2, have identical definitions except for names of
  4721	bound variables and except for names of auxiliary functions.
  4722	
  4723	When calling sim_term, v1 and v2 are lists of bound variables such that
  4724	an occurence of the n'th element of v1 in t1 is considered identical to
  4725	an occurence of the n'th element of v2 in t2.
  4726	
  4727	The c parameter must contain the loaded caches containing the definitions
  4728	of constructs in t1 and t2.
  4729	
  4730	The sim parameter contains function identifications such that an occurence
  4731	of sim[ref][idx] in t2 is considered identical to an occurrence of the
  4732	construct with the given reference and index in t1.
  4733	
  4734	sim_term accumulates function identifications in the sim parameter.
  4735	When calling sim_term, one should set sim to T.
  4736	
  4737	When calling sim_term, one would typically set t1 and v1 to the right
  4738	hand side and argument list, respectively, of a reference definition
  4739	and t2 and v2 to the right hand side and argument list, respectively,
  4740	of a definition which is being compared against the reference definition.
  4741	*/
  4742	
  4743	/* Term equality */
  4744	pnt tree_equal(pnt x,pnt y){
  4745	  if(!eq0(term2ref(x),term2ref(y))) return FALSE;
  4746	  if(!eq0(term2idx(x),term2idx(y))) return FALSE;
  4747	  for(;;){
  4748	    x=tail(x);
  4749	    y=tail(y);
  4750	    if(x==T) return y==T;
  4751	    if(y==T) return FALSE;
  4752	    if(!tree_equal(head(x),head(y))) return FALSE;}}
  4753	
  4754	/* List length comparison */
  4755	pnt same_length(pnt x,pnt y){
  4756	  for(;;){
  4757	    if(x==T) return y==T;
  4758	    if(y==T) return FALSE;
  4759	    x=TAIL(x);
  4760	    y=TAIL(y);}}
  4761	
  4762	/* True if the given definition defines a parenthesis */
  4763	pnt pardef(pnt d){
  4764	  pnt arg,rhs;
  4765	  if(d==T) return FALSE;/* Undefined */
  4766	  if(tail(tail(tail(d)))==T) return FALSE;/* Proclaimed */
  4767	  arg=def2arg(d);
  4768	  rhs=def2rhs(d);
  4769	  if(arg==T) return FALSE; /* Nulary construct */
  4770	  if(tail(arg)!=T) return FALSE; /* Arity two or more */
  4771	  return tree_equal(head(arg),rhs);}
  4772	
  4773	pnt sim_term(pnt c,pnt t1,pnt v1,pnt t2,pnt v2,pnt sim);
  4774	
  4775	pnt sim_terms(pnt c,pnt t1,pnt v1,pnt t2,pnt v2,pnt sim){
  4776	  t1=tail(t1);
  4777	  t2=tail(t2);
  4778	  for(;;){
  4779	    if(t1==T) return sim;
  4780	    TOP=sim=sim_term(c,head(t1),v1,head(t2),v2,sim);
  4781	    if(sim==F) return F;
  4782	    t1=tail(t1);
  4783	    t2=tail(t2);}}
  4784	
  4785	pnt sim_term(pnt c2,pnt t1,pnt v1,pnt t2,pnt v2,pnt sim){
  4786	  pnt r1,i1,r2,i2,t3,d1,d2;
  4787	  r1=term2ref(t1);
  4788	  i1=term2idx(t1);
  4789	  r2=term2ref(t2);
  4790	  i2=term2idx(t2);
  4791	  d1=defget(state,r1,i1,const_value);/* Remove parentheses from root of t1 */
  4792	  while(pardef(d1)){
  4793	    t1=term2arg1(t1);
  4794	    r1=term2ref(t1);
  4795	    i1=term2idx(t1);
  4796	    d1=defget(state,r1,i1,const_value);}
  4797	  d2=defget(c2,r2,i2,const_value);/* Remove parentheses from root of t2 */
  4798	  while(pardef(d2)){
  4799	    t2=term2arg1(t2);
  4800	    r2=term2ref(t2);
  4801	    i2=term2idx(t2);
  4802	    d2=defget(c2,r2,i2,const_value);}
  4803	  if(eq0(r1,Z)){/* If true, t1 must be a string */
  4804	    if(!eq0(r2,Z)) return F;
  4805	    if(!eq0(i1,i2)) return F;
  4806	    return sim;}
  4807	  if(eq0(r2,Z)) return F;
  4808	  if(d1==T){/* If true, t1 must be a variable */
  4809	    if(d2!=T) return F;
  4810	    for(;;){/* Traverse v1,v2 to see that t1,t2 have same deBruijn index */
  4811	      if(v1==T) return F;
  4812	      if(tree_equal(t1,head(v1))){
  4813	        if(!tree_equal(t2,head(v2))) return F;
  4814	        return sim;}
  4815	      if(tree_equal(t2,head(v2))) return F;
  4816	      v1=tail(v1);
  4817	      v2=tail(v2);}}
  4818	  if(d2==T) return F;
  4819	  if(term2ref(d1)==Z){/* If true, t1 must be a proclamation */
  4820	    if(term2ref(d1)!=Z) return F;
  4821	    d1=term2idx(d1);
  4822	    d2=term2idx(d2);
  4823	    if(!eq0(d1,d2)) return F;
  4824	    /* Now we know that t1 and t2 are proclaimed the same way */
  4825	    if(eq0(d1,const_apply)) return sim_terms(c2,t1,v1,t2,v2,sim);
  4826	    if(eq0(d1,const_if)) return sim_terms(c2,t1,v1,t2,v2,sim);
  4827	    if(eq0(d1,const_true)) return sim;
  4828	    if(eq0(d1,const_quote)){
  4829	      if(eq0(term2arg1(t1),term2arg1(t2))) return sim;
  4830	      return FALSE;}
  4831	    /* Now we know that t1 and t2 are lambdas */
  4832	    v1=pair(term2arg1(t1),v1);
  4833	    push(v1);
  4834	    v2=pair(term2arg1(t2),v2);
  4835	    push(v2);
  4836	    push(sim);
  4837	    t1=term2arg2(t1);
  4838	    t2=term2arg2(t2);
  4839	    return ret(3,sim_term(c2,t1,v1,t2,v2,sim));}
  4840	  if(term2ref(d2)==Z) return F;
  4841	  /* t1 and t2 are defined */
  4842	  t3=mget2(sim,r1,i1);
  4843	  if(t3!=T){/* If true, t1 is already matched against some construct */
  4844	    if(!eq0(r2,term2ref(t3))) return F;
  4845	    if(!eq0(i2,term2idx(t3))) return F;
  4846	    return sim_terms(c2,t1,v1,t2,v2,sim);}
  4847	  if(!same_length(def2arg(d1),def2arg(d2))) return F;
  4848	  TOP=sim=mput2(sim,t2,r1,i1);
  4849	  TOP=sim=sim_terms(c2,t1,v1,t2,v2,sim);
  4850	  if(sim==F) return F;
  4851	  t1=def2rhs(d1);
  4852	  v1=def2arg(d1);
  4853	  t2=def2rhs(d2);
  4854	  v2=def2arg(d2);
  4855	  return sim_term(c2,t1,v1,t2,v2,sim);}
  4856	
  4857	
  4858	
  4859	/********************************************
  4860	 * Compilation, stage 3, recognize patterns *
  4861	 ********************************************/
  4862	
  4863	/*
  4864	During stage 3, optimized functions are recognized.
  4865	
  4866	For each introduction, the right hand side and argument list of
  4867	the introduction are compared to all reference definitions to find
  4868	a match. If a match is found, the identity of the recognized function
  4869	is noted in the hidden tag of the code entry of the introduction.
  4870	
  4871	The hidden tag of unrecognized introductions remain unchanged so that
  4872	they are treated exactly like definitions.
  4873	*/
  4874	
  4875	void printesc_stderr(pnt x){
  4876	  fprintf(stderr,"\\%d%d",(int)(x/16),(int)(x%16));}
  4877	
  4878	void printchar_stderr(pnt x){
  4879	  x=x&0xFF;
  4880	  if(x=='"') fprintf(stderr,"\\\""); else
  4881	  if(x=='\\') fprintf(stderr,"\\\\"); else
  4882	  if(x==10) fprintf(stderr,"\n"); else
  4883	  if(x<32) printesc_stderr(x); else
  4884	  if(x<127) fprintf(stderr,"%c",(int)x); else
  4885	  printesc_stderr(x);}
  4886	
  4887	void spyvect_stderr(pnt x){
  4888	  fprintf(stderr,"\"");
  4889	  for(;TAIL(x);x=TAIL(x)){
  4890	    pnt i;
  4891	    pnt y=HEAD(x);
  4892	    for(i=0;i<bytesize;i++){
  4893	      printchar_stderr(y);
  4894	      y=y>>8;}}
  4895	  for(x=HEAD(x);x>1;x=x>>8) printchar_stderr(x);
  4896	  fprintf(stderr,"\"");}
  4897	
  4898	void recognize_intro3(pnt caches,pnt code,pnt def){
  4899	  pnt lhs=def2lhs(def);
  4900	  pnt arg=def2arg(def);
  4901	  pnt rhs=def2rhs(def);
  4902	  pnt ref=term2ref(lhs);
  4903	  pnt idx=term2idx(lhs);
  4904	  pnt i;
  4905	  for(i=0;i<TAG_SIZE;i++){
  4906	    push(T);
  4907	    if(F==ret(1,sim_term(caches,tag2rhs[i],tag2arg[i],rhs,arg,TOP))) continue;
  4908	/*  printf("%-14s ",safe_tag2string(i));
  4909	    spy0(nameget(caches,ref,idx)); */
  4910	    TAIL(code)=i;
  4911	    return;}
  4912	  fprintf(stderr,"%-14s ","No match");
  4913	/*spy0(nameget(caches,ref,idx));*/
  4914	  spyvect_stderr(nameget(caches,ref,idx));
  4915	  fprintf(stderr,"\n");}
  4916	
  4917	void recognize_intro2(pnt caches,pnt code,pnt def){
  4918	  pnt ref=term2ref(def);
  4919	  pnt idx=term2idx(def);
  4920	  pnt aspect=defget(caches,ref,idx,const_definition);
  4921	  if(!eq0(aspect,tree_introduce)) return;
  4922	  recognize_intro3(caches,code,def);}
  4923	
  4924	void recognize_intro1(pnt caches,pnt code){
  4925	  recognize_intro2(caches,code,code2def(code));}
  4926	
  4927	void recognize_intro(pnt caches,pnt code){
  4928	  pnt hd;
  4929	  pnt tl;
  4930	  if(code==T) return;
  4931	  if(GD_PAIR(code)) die("Unexpected type in code");
  4932	  hd=HEAD(code);
  4933	  tl=TAIL(code);
  4934	  if(NO_INT(hd)){
  4935	    recognize_intro(caches,hd);
  4936	    recognize_intro(caches,tl);
  4937	    return;}
  4938	  if(ROOT(tl)!=TAG_MAP) return;   /* disregard quote and lambda */
  4939	  if(TAIL(tl)!=CTAG_EMAP) return; /* disregard true, apply, if, and
  4940	                                   * constructs tagged by record_pattern1 */
  4941	  recognize_intro1(caches,tl);
  4942	  return;}
  4943	
  4944	
  4945	
  4946	/*********************************************
  4947	 * Compilation, stage 4, strictness analysis *
  4948	 *********************************************/
  4949	
  4950	/*
  4951	During stage 4, eager functions are recognized.
  4952	
  4953	To be eager, a function must evaluate its arguments left to right
  4954	and, if an argument raises and exception, return that exception
  4955	without evaluating the remaining arguments.
  4956	
  4957	Furthermore, eager functions must normalize their arguments and
  4958	thus force the arguments to be tagged values.
  4959	
  4960	The algorithm for recognizing eager functions is thus: Any function
  4961	is eager until the converse is proved. A function is non-eager in
  4962	the following situations:
  4963	
  4964	- The right hand side (rhs) of the definition does not start the
  4965	  required way, which is
  4966	  norm ( arg1 .then. arg2 .then. ... .then. term )
  4967	
  4968	- The rhs contains a construct which is neither value defined nor bound.
  4969	
  4970	- The rhs references a construct which is deemed non-eager.
  4971	
  4972	- The rhs references optimized/proclaimed functions in an unauthorized pattern.
  4973	*/
  4974	
  4975	/* Note that constructs in rhs call the construct with the given ref and idx */
  4976	void call_graph2(pnt caches,pnt ref,pnt idx,pnt rhs){
  4977	  pnt ref1=term2ref(rhs);
  4978	  pnt idx1=term2idx(rhs);
  4979	  pnt def=codeget(caches,ref1,idx1);
  4980	  if(def==T) return; /* disregard variables */
  4981	  if(def==Z) {call_graph2(caches,ref,idx,term2arg2(rhs)); return;} /* lamdba */
  4982	  if(ROOT(def)!=TAG_MAP) return; /* disregard quote */
  4983	  if(TAIL(def)==ETAG_map) return; /* disregard x in map(x) */
  4984	  if(eq0(ref,ref1)) TOP=aput0(TOP,idx1,pair(idx,aget(TOP,idx1)));
  4985	  for(rhs=tail(rhs);rhs!=T;rhs=tail(rhs))
  4986	  call_graph2(caches,ref,idx,head(rhs));}
  4987	
  4988	/* Construct mapping from called to calling function */
  4989	void call_graph1(pnt caches,pnt ref,pnt code){
  4990	  pnt hd;
  4991	  pnt tl;
  4992	  if(code==T) return;
  4993	  if(GD_PAIR(code)) die("Unexpected type in code");
  4994	  hd=HEAD(code);
  4995	  tl=TAIL(code);
  4996	  if(NO_INT(hd)){
  4997	    call_graph1(caches,ref,hd);
  4998	    call_graph1(caches,ref,tl);
  4999	    return;}
  5000	  if(ROOT(tl)!=TAG_MAP) return; /* disregard quote and lambda */
  5001	  if(TAIL(tl)!=CTAG_EMAP) return; /* disregard already classified maps */
  5002	  call_graph2(caches,ref,hd,def2rhs(code2def(tl)));
  5003	  return;}
  5004	
  5005	void mark_unstrict(pnt code,pnt graph,pnt idx){
  5006	  pnt code1=aget(code,idx);
  5007	  pnt idx1;
  5008	  if(TAIL(code1)!=CTAG_EMAP) return;
  5009	  TAIL(code1)=CTAG_MAP;
  5010	  for(idx1=aget(graph,idx);idx1!=T;idx1=TAIL(idx1))
  5011	  mark_unstrict(code,graph,HEAD(idx1));}
  5012	
  5013	/*
  5014	There are two norm constructs, "norm" and "prenorm". The prenorm construct
  5015	is a prefix version of the norm construct. The definition of prenorm
  5016	reads norm x = x norm so the two norms really do the same, but they have
  5017	different definition patterns. Only the prenorm is supposed to occur
  5018	in eager definitions, but normp below also recognizes the other one as
  5019	a norm construct.
  5020	*/
  5021	pnt normp(pnt caches,pnt term){
  5022	  pnt ref=term2ref(term);
  5023	  pnt idx=term2idx(term);
  5024	  pnt code=codeget(caches,ref,idx);
  5025	  if(code==T) return FALSE; /* string, page symbol, variable */
  5026	  if(ROOT(code)!=TAG_MAP) return FALSE; /* lambda, quote */
  5027	  if(TAIL(code)==ETAG_prenorm) return TRUE; /* norm, version 1 */
  5028	  if(TAIL(code)==ETAG_norm) return TRUE; /* norm, version 2 */
  5029	  return FALSE;}
  5030	
  5031	pnt thenp(pnt caches,pnt term){
  5032	  pnt ref=term2ref(term);
  5033	  pnt idx=term2idx(term);
  5034	  pnt code=codeget(caches,ref,idx);
  5035	  if(code==T) return FALSE; /* string, page symbol, variable */
  5036	  if(ROOT(code)!=TAG_MAP) return FALSE; /* lambda, quote */
  5037	  if(TAIL(code)==ETAG_then) return TRUE; /* then */
  5038	  return FALSE;}
  5039	
  5040	/*
  5041	If pref==T: test for strictness
  5042	If pref!=T: search for reason for being non-strict
  5043	When pref!=T, pref should be the reference of the caller.
  5044	In this case, disregard references to non-strict, local constructs with
  5045	norm in their root since they cannot be the ultimate reason for
  5046	non-strictness.
  5047	*/
  5048	pnt strict1(pnt caches,pnt rhs,pnt pref){
  5049	  pnt ref=term2ref(rhs);
  5050	  pnt idx=term2idx(rhs);
  5051	  pnt code;
  5052	  pnt result;
  5053	  pnt subterm;
  5054	  if(ref==Z) return T; /* string */
  5055	  if(idx==Z) return T; /* page symbol */
  5056	  code=codeget(caches,ref,idx);
  5057	  if(code==T) return T; /* Variable */
  5058	  if(code==Z) return rhs; /* Lambda */
  5059	  if(ROOT(code)!=TAG_MAP) return T; /* Quote */
  5060	  switch(TAIL(code)){
  5061	  case CTAG_MAP:
  5062	    if(pref==T) return rhs;
  5063	    if(!eq0(ref,pref)||!normp(caches,def2rhs(code2def(code)))) return rhs;
  5064	    for(rhs=TAIL(rhs);rhs!=T;rhs=TAIL(rhs)){
  5065	      result=strict1(caches,HEAD(rhs),pref);
  5066	      if(result!=T) return result;}
  5067	    return T;
  5068	  case CTAG_APPLY:
  5069	  case CTAG_IF:
  5070	    return rhs;
  5071	  case ETAG_LET:
  5072	    result=strict1(caches,term2arg1(rhs),pref);
  5073	    if(result!=T) return result;
  5074	    subterm=term2arg2(rhs);
  5075	    ref=term2ref(subterm);
  5076	    idx=term2idx(subterm);
  5077	    if(ref==T) return rhs; /* string */
  5078	    if(idx==T) return rhs; /* page symbol */
  5079	    code=codeget(caches,ref,idx);
  5080	    if(code!=Z) return rhs; /* Not lambda */
  5081	    return strict1(caches,term2arg2(subterm),pref);
  5082	  case ETAG_map:
  5083	    return T;
  5084	  case CTAG_EMAP:
  5085	  case CTAG_TRUE:
  5086	  case ETAG_digit0:
  5087	  case ETAG_digit1:
  5088	  case ETAG_digit2:
  5089	  case ETAG_digit3:
  5090	  case ETAG_digit4:
  5091	  case ETAG_digit5:
  5092	  case ETAG_digit6:
  5093	  case ETAG_digit7:
  5094	  case ETAG_digit8:
  5095	  case ETAG_digit9:
  5096	  case ETAG_times:
  5097	  case ETAG_plus:
  5098	  case ETAG_minus:
  5099	  case ETAG_and:
  5100	  case ETAG_or:
  5101	  case ETAG_then:
  5102	  case ETAG_pair:
  5103	  case ETAG_lt:
  5104	  case ETAG_le:
  5105	  case ETAG_equal:
  5106	  case ETAG_gt:
  5107	  case ETAG_ge:
  5108	  case ETAG_apply:
  5109	  case ETAG_boolp:
  5110	  case ETAG_catch:
  5111	  case ETAG_maptag1:
  5112	  case ETAG_div:
  5113	  case ETAG_head:
  5114	  case ETAG_intp:
  5115	  case ETAG_boolg:
  5116	  case ETAG_intg:
  5117	  case ETAG_mapg:
  5118	  case ETAG_objg:
  5119	  case ETAG_pairg:
  5120	  case ETAG_mapp:
  5121	  case ETAG_maptag:
  5122	  case ETAG_mod:
  5123	  case ETAG_norm:
  5124	  case ETAG_objp:
  5125	  case ETAG_pairp:
  5126	  case ETAG_raise:
  5127	  case ETAG_root:
  5128	  case ETAG_tail:
  5129	  case ETAG_untag:
  5130	  case ETAG_digitend:
  5131	  case ETAG_par:
  5132	  case ETAG_uplus:
  5133	  case ETAG_dplus:
  5134	  case ETAG_uminus:
  5135	  case ETAG_dminus:
  5136	  case ETAG_not:
  5137	  case ETAG_Base:
  5138	  case ETAG_ash:
  5139	  case ETAG_bottom:
  5140	  case ETAG_bt2bytes:
  5141	  case ETAG_bt2vects:
  5142	  case ETAG_bt2vector:
  5143	  case ETAG_ceiling:
  5144	  case ETAG_destruct:
  5145	  case ETAG_evenp:
  5146	  case ETAG_exception:
  5147	  case ETAG_false:
  5148	  case ETAG_floor:
  5149	  case ETAG_half:
  5150	  case ETAG_if:
  5151	  case ETAG_intlength:
  5152	  case ETAG_logand:
  5153	  case ETAG_logandc1:
  5154	  case ETAG_logandc2:
  5155	  case ETAG_logbitp:
  5156	  case ETAG_logcount:
  5157	  case ETAG_logeqv:
  5158	  case ETAG_logior:
  5159	  case ETAG_lognand:
  5160	  case ETAG_lognor:
  5161	  case ETAG_lognot:
  5162	  case ETAG_logorc1:
  5163	  case ETAG_logorc2:
  5164	  case ETAG_logtest:
  5165	  case ETAG_logxor:
  5166	  case ETAG_prenorm:
  5167	  case ETAG_notnot:
  5168	  case ETAG_object:
  5169	  case ETAG_print:
  5170	  case ETAG_round:
  5171	  case ETAG_spy:
  5172	  case ETAG_timer:
  5173	  case ETAG_trace:
  5174	  case ETAG_truncate:
  5175	  case ETAG_vector:
  5176	  case ETAG_vnorm:
  5177	  case ETAG_vempty:
  5178	  case ETAG_vindex:
  5179	  case ETAG_vlength:
  5180	  case ETAG_vprefix:
  5181	  case ETAG_vsubseq:
  5182	  case ETAG_vsuffix:
  5183	  case ETAG_v2bytes:
  5184	  case ETAG_v2vects:
  5185	  case ETAG_vt2bytes:
  5186	  case ETAG_vt2vects:
  5187	  case ETAG_vt2v:
  5188	  case ETAG_compile:
  5189	  case ETAG_ripemd:
  5190	  case ETAG_sl2rack:
  5191	  case ETAG_rack2sl:
  5192	    for(rhs=TAIL(rhs);rhs!=T;rhs=TAIL(rhs)){
  5193	      result=strict1(caches,HEAD(rhs),pref);
  5194	      if(result!=T) return result;}
  5195	    return T;
  5196	  default:die("strict1: unexpected tag");
  5197	  return T; /* This never happens */}}
  5198	
  5199	pnt strict(pnt caches,pnt def,pnt pref){
  5200	/*pnt lhs=def2lhs(def);*/
  5201	  pnt arg;
  5202	  pnt rhs=def2rhs(def);
  5203	  if(!normp(caches,rhs)) return F;
  5204	  rhs=term2arg1(rhs);
  5205	  for(arg=def2arg(def);arg!=T;arg=TAIL(arg)){
  5206	    if(!thenp(caches,rhs)) return Z;
  5207	    if(!tree_equal(HEAD(arg),term2arg1(rhs))) return Z;
  5208	    rhs=term2arg2(rhs);}
  5209	  return strict1(caches,rhs,pref);}
  5210	
  5211	void strictness2(pnt caches,pnt code1,pnt code2,pnt graph){
  5212	  pnt hd;
  5213	  pnt tl;
  5214	  pnt strictness;
  5215	  if(code2==T) return;
  5216	  if(GD_PAIR(code2)) die("Unexpected type in code");
  5217	  hd=HEAD(code2);
  5218	  tl=TAIL(code2);
  5219	  if(NO_INT(hd)){
  5220	    strictness2(caches,code1,hd,graph);
  5221	    strictness2(caches,code1,tl,graph);
  5222	    return;}
  5223	  if(hd==Z) return; /* disregard strictness of page symbol */
  5224	  if(ROOT(tl)!=TAG_MAP) return; /* disregard quote and lambda */
  5225	  if(TAIL(tl)!=CTAG_EMAP) return;  /* disregard already classified maps */
  5226	  strictness=strict(caches,code2def(tl),T);
  5227	  if(strictness==T) return;
  5228	  mark_unstrict(code1,graph,hd);
  5229	  return;}
  5230	
  5231	void strictness_report(pnt caches,pnt code){
  5232	  pnt hd;
  5233	  pnt tl;
  5234	  pnt def;
  5235	  pnt lhs;
  5236	  pnt strictness;
  5237	  if(code==T) return;
  5238	  if(GD_PAIR(code)) die("Unexpected type in code");
  5239	  hd=HEAD(code);
  5240	  tl=TAIL(code);
  5241	  if(NO_INT(hd)){
  5242	    strictness_report(caches,hd);
  5243	    strictness_report(caches,tl);
  5244	    return;}
  5245	  if(ROOT(tl)!=TAG_MAP) return; /* disregard quote and lambda */
  5246	  if(TAIL(tl)!=CTAG_MAP) return;  /* only consider lazy maps */
  5247	  def=code2def(tl);
  5248	  lhs=def2lhs(def);
  5249	  strictness=strict(caches,def,term2ref(lhs));
  5250	  if(strictness==F) return;
  5251	  if(strictness==T){
  5252	    printf("lgwam: Probably mistakenly unfit due to problem elsewhere:\n");
  5253	    printf("lgwam: ");
  5254	    nameprint0(caches,lhs);
  5255	    return;}
  5256	  if(strictness==Z){
  5257	    printf("lgwam: Probably mistakenly unfit due to header:\n");
  5258	    printf("lgwam: ");
  5259	    nameprint0(caches,lhs);
  5260	    return;}
  5261	  printf("lgwam: Probably mistakenly unfit:\n");
  5262	  printf("lgwam: ");
  5263	  nameprint0(caches,lhs);
  5264	  printf("lgwam: Caused by call to:\n");
  5265	  printf("lgwam: ");
  5266	  nameprint0(caches,strictness);}
  5267	
  5268	void strictness_analysis(pnt caches,pnt ref,pnt code){
  5269	  push(T);
  5270	  call_graph1(caches,ref,code);
  5271	  strictness2(caches,code,code,TOP);
  5272	  pop();
  5273	  strictness_report(caches,code);
  5274	  return;}
  5275	
  5276	
  5277	
  5278	/*************************************************
  5279	 * Compilation, stage 5, change eager definition *
  5280	 *************************************************/
  5281	
  5282	/*
  5283	The given code is a code entry containing zero, one, or more
  5284	lambdas (depending on the arity of the construct) followed
  5285	by a a pair which is intended to be overwritten with the
  5286	compiled version of the entry. The uncompiled definition
  5287	of the entry was stored as the head of the pair in stage 1.
  5288	After stage 4 we know which definitions are eager. In stage 5,
  5289	each eager definition is modified by replacing the pair
  5290	with a ttag_ecall construct whose head is a new pair to be
  5291	overwritten in stage 6. The head of the new pair is the
  5292	uncompiled definition. The tail of the ttag_ecall construct
  5293	contains as many lazy variables as indicated by the arity
  5294	of the construct. This allows lazy functions to call eager
  5295	functions.
  5296	*/
  5297	
  5298	void compile_overwrite(pnt dst,pnt src){
  5299	  ROOT(dst)=ROOT(src);
  5300	  HEAD(dst)=HEAD(src);
  5301	  TAIL(dst)=TAIL(src);}
  5302	
  5303	pnt listlength(pnt list){
  5304	  pnt result=0;
  5305	  for(;list!=T;list=TAIL(list)) result++;
  5306	  return result;}
  5307	
  5308	pnt varlist(pnt arity){
  5309	  push(T);
  5310	  for(;arity>0;arity--) TOP=pair(term_var(arity-1),TOP);
  5311	  return pop();}
  5312	
  5313	void change_eager(pnt caches,pnt code){
  5314	  pnt hd;
  5315	  pnt tl;
  5316	  pnt tag;
  5317	  pnt root;
  5318	  pnt def;
  5319	  pnt vars;
  5320	  if(code==T) return;
  5321	  if(GD_PAIR(code)) die("Unexpected type in code");
  5322	  hd=HEAD(code);
  5323	  tl=TAIL(code);
  5324	  if(NO_INT(hd)){
  5325	    change_eager(caches,hd);
  5326	    change_eager(caches,tl);
  5327	    return;}
  5328	  if(ROOT(tl)!=TAG_MAP) return;    /* disregard quote and lambda */
  5329	  tag=TAIL(tl);
  5330	  if(tag!=CTAG_EMAP) return;    /* only consider eager definitions */
  5331	  root=code2pair(tl);
  5332	  def=HEAD(root);
  5333	  vars=varlist(listlength(def2arg(def)));
  5334	  push(vars);
  5335	  compile_overwrite(root,ret(1,term_ecall(pair(def,T),vars)));}
  5336	
  5337	
  5338	
  5339	/*******************************************
  5340	 * Compilation, stage 6, compile lazy term *
  5341	 *******************************************/
  5342	
  5343	/*
  5344	Optimize individual code entries
  5345	arg1 is the list of variables bound by lambdas in deBruijn index order.
  5346	arg2 is the list of arguments in order of appearance which is
  5347	opposite to the deBruijn index order.
  5348	*/
  5349	
  5350	pnt compile_term(pnt caches,pnt arg1,pnt arg2,pnt term);
  5351	
  5352	pnt compile_lambda(pnt caches,pnt arg1,pnt arg2,pnt term){
  5353	  arg1=pair(head(tail(term)),arg1);
  5354	  push(arg1);
  5355	  term=head(tail(tail(term)));
  5356	  return ret(1,term_lambda(compile_term(caches,arg1,arg2,term)));}
  5357	
  5358	pnt compile_var(pnt arg1,pnt arg2,pnt term){
  5359	  pnt index;
  5360	  for(index=0;arg1!=T;index++,arg1=TAIL(arg1)){
  5361	    if(tree_equal(HEAD(arg1),term)) return term_var(index);}
  5362	  for(;arg2!=T;arg2=TAIL(arg2))
  5363	  if(tree_equal(HEAD(arg2),term)){
  5364	    for(arg2=TAIL(arg2);arg2!=T;arg2=TAIL(arg2)) index++;
  5365	    return term_var(index);}
  5366	  return term_t;}
  5367	
  5368	pnt compile_terms(pnt caches,pnt arg1,pnt arg2,pnt terms){
  5369	  push(NIL);
  5370	  for(;terms!=T;terms=tail(terms))
  5371	  TOP=pair(compile_term(caches,arg1,arg2,head(terms)),TOP);
  5372	  return pop();}
  5373	
  5374	pnt compile_other(pnt code,pnt caches,pnt arg1,pnt arg2,pnt terms){
  5375	  pnt terms1;
  5376	  if(ROOT(code)!=MTAG_LAMBDA) die("compile_other: parameter mismatch 1");
  5377	  code=HEAD(code);
  5378	  for(terms1=tail(terms);!eq0(terms1,T);terms1=tail(terms1)){
  5379	    if(ROOT(code)!=TTAG_LAMBDA) die("compile_other: parameter mismatch 2");
  5380	    code=HEAD(code);}
  5381	  return term_call(code,compile_terms(caches,arg1,arg2,terms));}
  5382	
  5383	pnt compile_term(pnt caches,pnt arg1,pnt arg2,pnt term){
  5384	  pnt root=head(term);
  5385	  pnt ref=head(root);
  5386	  pnt idx=head(tail(root));
  5387	  pnt code;
  5388	  if(eq0(ref,Z)) return term_const(idx);
  5389	  if(eq0(idx,Z)) return term_const(aget(caches,ref));
  5390	  code=mget4(caches,ref,ref,const_code,idx);
  5391	  if(code==T) return compile_var(arg1,arg2,term);
  5392	  if(eq0(code,fct_lambda)) return compile_lambda(caches,arg1,arg2,term);
  5393	  if(eq0(code,fct_quote)) return term_const(term2arg1(term));
  5394	  code=HEAD(code); /* Remove M tag */
  5395	  term=tail(term); /* Set term to parameter list */
  5396	  if(eq0(term,T)) return term_const(code);
  5397	  return compile_other(code,caches,arg1,arg2,term);}
  5398	
  5399	
  5400	
  5401	/**************************************************
  5402	 * Compilation, stage 6, compile lazy definition *
  5403	 **************************************************/
  5404	
  5405	/*
  5406	The given code is a code entry containing zero, one, or more
  5407	lambdas (depending on the arity of the construct) followed
  5408	by a pair which is intended to be overwritten with the
  5409	compiled version of the entry. The uncompiled definition of
  5410	the entry was stored as the head of the pair in stage 1.
  5411	*/
  5412	
  5413	void compile_lazy_def(pnt caches,pnt code){
  5414	  pnt root=code2pair(code);
  5415	  pnt def=HEAD(root);
  5416	  pnt arg=def2arg(def);
  5417	  pnt rhs=def2rhs(def);
  5418	  compile_overwrite(root,compile_term(caches,T,arg,rhs));}
  5419	
  5420	
  5421	
  5422	/****************************************************
  5423	 * Compilation, stage 6, compile eager introduction *
  5424	 ****************************************************/
  5425	
  5426	pnt compile_eager_intro1(pnt tag){
  5427	  pnt arg=tag2arg[tag];
  5428	  if(arg==T) return term_ecall(cons(tag,T,T),T);
  5429	  arg=TAIL(arg);
  5430	  if(arg==T) return term_ecall(cons(tag,T,V0),varlist_1);
  5431	  arg=TAIL(arg);
  5432	  if(arg==T) return term_ecall(cons(tag,V1,V0),varlist_2);
  5433	  arg=TAIL(arg);
  5434	  if(arg==T) return term_ecall(cons(tag,V2,pair(V1,V0)),varlist_3);
  5435	  die("compile_eager_intro1: unexpected arity>3");
  5436	  return T; /* This never happens */}
  5437	
  5438	void compile_eager_intro(pnt code,pnt tag){
  5439	  pnt root=code2pair(code);
  5440	  pnt code1=compile_eager_intro1(tag);
  5441	  compile_overwrite(root,code1);}
  5442	
  5443	
  5444	
  5445	/********************************************
  5446	 * Compilation, stage 6, compile eager term *
  5447	 ********************************************/
  5448	
  5449	pnt compile_eterm(pnt caches,pnt arg1,pnt arg2,pnt term);
  5450	
  5451	pnt term_evar(pnt index){
  5452	  return cons2(ETAG_var,index,NIL);}
  5453	
  5454	pnt compile_evar(pnt arg1,pnt arg2,pnt term){
  5455	  pnt index;
  5456	  for(index=0;arg1!=T;index++,arg1=TAIL(arg1)){
  5457	    if(tree_equal(HEAD(arg1),term)) return term_evar(index);}
  5458	  for(;arg2!=T;arg2=TAIL(arg2))
  5459	  if(tree_equal(HEAD(arg2),term)){
  5460	    for(arg2=TAIL(arg2);arg2!=T;arg2=TAIL(arg2)) index++;
  5461	    return term_evar(index);}
  5462	  return T;}
  5463	
  5464	pnt compile_eterms(pnt caches,pnt arg1,pnt arg2,pnt terms){
  5465	  pnt term;
  5466	  if(terms==T) return T;
  5467	  term=compile_eterm(caches,arg1,arg2,HEAD(terms));
  5468	  push(term);
  5469	  return ret(1,pair(term,compile_eterms(caches,arg1,arg2,TAIL(terms))));}
  5470	
  5471	pnt remove_lambdas(pnt code,pnt subterms){
  5472	  if(subterms==T) die("remove_lambdas: too few arguments of function");
  5473	  subterms=TAIL(subterms);
  5474	  for(code=HEAD(code);ROOT(code)==TTAG_LAMBDA;code=HEAD(code)){
  5475	    if(subterms==T) die("remove_lambdas: too few arguments of function");
  5476	    subterms=TAIL(subterms);}
  5477	  if(subterms!=T) die("remove_lambdas: too many arguments of function");
  5478	  return code;}
  5479	
  5480	pnt compile_eterm(pnt caches,pnt arg1,pnt arg2,pnt term){
  5481	  pnt subterms; /* Uncompiled subterms of given term */
  5482	  pnt subterm0,subterm1,subterm2; /* d versions of subterms */
  5483	  pnt ref=term2ref(term);
  5484	  pnt idx=term2idx(term);
  5485	  pnt code; /* Code associated to root of given term */
  5486	  pnt tag; /* Hidden tag of root of given term */
  5487	  if(eq0(ref,Z)) return idx; /* string */
  5488	  if(eq0(idx,Z)) return aget(caches,ref); /* page symbol */
  5489	  code=mget4(caches,ref,ref,const_code,idx);
  5490	  if(code==T) return compile_evar(arg1,arg2,term); /* variable */
  5491	  if(ROOT(code)!=TAG_MAP) return term2arg1(term); /* quote */
  5492	  tag=TAIL(code);
  5493	  switch(tag){ /*dispatch on hidden tag */
  5494	  case CTAG_EMAP:
  5495	    code=HEAD(code); /* Get rid of TAG_MAP */
  5496	    subterms=TAIL(term);
  5497	    switch(ROOT(code)){
  5498	    case MTAG_CLOSURE:
  5499	      if(subterms!=T) die("compile_eterm: constant applied to arguments");
  5500	      return code;
  5501	/* GRD-2009-04-19: Ensure eager constants evaluated once only.
  5502	      code=HEAD(code);
  5503	      break;
  5504	*/
  5505	    case MTAG_INDIR:
  5506	      if(subterms!=T) die("compile_eterm: constant applied to arguments");
  5507	      return TAIL(code);
  5508	    case MTAG_LAMBDA:
  5509	      code=remove_lambdas(code,subterms);
  5510	      break;
  5511	    default:
  5512	      unexpected_tag("compile_eterm",code);}
  5513	    if(ROOT(code)!=TTAG_ECALL) unexpected_tag("compile_eterm",code);
  5514	    code=HEAD(code);
  5515	    return cons(ETAG_ecall,code,compile_eterms(caches,arg1,arg2,subterms));
  5516	/*
  5517	    subterms=TAIL(term);
  5518	    code=remove_lambdas(code,subterms);
  5519	    if(code==T) return T;
  5520	    switch(ROOT(code)){
  5521	    case TTAG_ECALL:
  5522	      code=HEAD(code);
  5523	      return cons(ETAG_ecall,code,compile_eterms(caches,arg1,arg2,subterms));
  5524	    case TAG_FALSE:
  5525	    case TAG_INT:
  5526	    case TAG_VECT:
  5527	    case TAG_PAIR:
  5528	    case TAG_EX:
  5529	    case TAG_MAP:
  5530	    case TAG_OBJ:
  5531	      if(subterms!=T) die("compile_eterm: unexpected tag");
  5532	      return code;
  5533	    default:
  5534	      spytagroot0(code);
  5535	      die("compile_eterm: unexpected tag");}
  5536	*/
  5537	  case CTAG_TRUE:
  5538	    return T;
  5539	  case ETAG_LET:
  5540	    subterm0=compile_eterm(caches,arg1,arg2,term2arg1(term));
  5541	    push(subterm0);
  5542	    term=term2arg2(term);
  5543	    arg1=pair(term2arg1(term),arg1);
  5544	    push(arg1);
  5545	    subterm1=compile_eterm(caches,arg1,arg2,term2arg2(term));
  5546	    return ret(2,cons(ETAG_LET,subterm0,subterm1));
  5547	  case ETAG_map:
  5548	    return cons(ETAG_map,T,closure(compile_term(caches,T,T,term2arg1(term)),T));
  5549	  case ETAG_digit0:
  5550	  case ETAG_digit1:
  5551	  case ETAG_digit2:
  5552	  case ETAG_digit3:
  5553	  case ETAG_digit4:
  5554	  case ETAG_digit5:
  5555	  case ETAG_digit6:
  5556	  case ETAG_digit7:
  5557	  case ETAG_digit8:
  5558	  case ETAG_digit9:
  5559	  case ETAG_times:
  5560	  case ETAG_plus:
  5561	  case ETAG_minus:
  5562	  case ETAG_and:
  5563	  case ETAG_or:
  5564	  case ETAG_then:
  5565	  case ETAG_pair:
  5566	  case ETAG_lt:
  5567	  case ETAG_le:
  5568	  case ETAG_equal:
  5569	  case ETAG_gt:
  5570	  case ETAG_ge:
  5571	  case ETAG_apply:
  5572	  case ETAG_boolp:
  5573	  case ETAG_catch:
  5574	  case ETAG_maptag1:
  5575	  case ETAG_div:
  5576	  case ETAG_head:
  5577	  case ETAG_intp:
  5578	  case ETAG_boolg:
  5579	  case ETAG_intg:
  5580	  case ETAG_mapg:
  5581	  case ETAG_objg:
  5582	  case ETAG_pairg:
  5583	  case ETAG_mapp:
  5584	  case ETAG_maptag:
  5585	  case ETAG_mod:
  5586	  case ETAG_norm:
  5587	  case ETAG_objp:
  5588	  case ETAG_pairp:
  5589	  case ETAG_raise:
  5590	  case ETAG_root:
  5591	  case ETAG_tail:
  5592	  case ETAG_untag:
  5593	  case ETAG_digitend:
  5594	  case ETAG_par:
  5595	  case ETAG_uplus:
  5596	  case ETAG_dplus:
  5597	  case ETAG_uminus:
  5598	  case ETAG_dminus:
  5599	  case ETAG_not:
  5600	  case ETAG_Base:
  5601	  case ETAG_ash:
  5602	  case ETAG_bottom:
  5603	  case ETAG_bt2bytes:
  5604	  case ETAG_bt2vects:
  5605	  case ETAG_bt2vector:
  5606	  case ETAG_ceiling:
  5607	  case ETAG_destruct:
  5608	  case ETAG_evenp:
  5609	  case ETAG_exception:
  5610	  case ETAG_false:
  5611	  case ETAG_floor:
  5612	  case ETAG_half:
  5613	  case ETAG_if:
  5614	  case ETAG_intlength:
  5615	  case ETAG_logand:
  5616	  case ETAG_logandc1:
  5617	  case ETAG_logandc2:
  5618	  case ETAG_logbitp:
  5619	  case ETAG_logcount:
  5620	  case ETAG_logeqv:
  5621	  case ETAG_logior:
  5622	  case ETAG_lognand:
  5623	  case ETAG_lognor:
  5624	  case ETAG_lognot:
  5625	  case ETAG_logorc1:
  5626	  case ETAG_logorc2:
  5627	  case ETAG_logtest:
  5628	  case ETAG_logxor:
  5629	  case ETAG_prenorm:
  5630	  case ETAG_notnot:
  5631	  case ETAG_object:
  5632	  case ETAG_print:
  5633	  case ETAG_round:
  5634	  case ETAG_spy:
  5635	  case ETAG_timer:
  5636	  case ETAG_trace:
  5637	  case ETAG_truncate:
  5638	  case ETAG_vector:
  5639	  case ETAG_vnorm:
  5640	  case ETAG_vempty:
  5641	  case ETAG_vindex:
  5642	  case ETAG_vlength:
  5643	  case ETAG_vprefix:
  5644	  case ETAG_vsubseq:
  5645	  case ETAG_vsuffix:
  5646	  case ETAG_v2bytes:
  5647	  case ETAG_v2vects:
  5648	  case ETAG_vt2bytes:
  5649	  case ETAG_vt2vects:
  5650	  case ETAG_vt2v:
  5651	  case ETAG_compile:
  5652	  case ETAG_ripemd:
  5653	  case ETAG_sl2rack:
  5654	  case ETAG_rack2sl:
  5655	    subterms=TAIL(term);
  5656	    if(subterms==T) return cons(tag,T,T);
  5657	    subterm0=compile_eterm(caches,arg1,arg2,HEAD(subterms));
  5658	    subterms=TAIL(subterms);
  5659	    if(subterms==T) return cons(tag,T,subterm0);
  5660	    push(subterm0);
  5661	    subterm1=compile_eterm(caches,arg1,arg2,HEAD(subterms));
  5662	    subterms=TAIL(subterms);
  5663	    if(subterms==T) return ret(1,cons(tag,subterm0,subterm1));
  5664	    push(subterm1);
  5665	    subterm2=compile_eterm(caches,arg1,arg2,HEAD(subterms));
  5666	    subterms=TAIL(subterms);
  5667	    if(subterms==T) return ret(2,cons(tag,subterm0,pair(subterm1,subterm2)));
  5668	    die("compile_eager_intro1: unexpected arity>3");
  5669	  default:
  5670	    die("compile_eterm: unexpected tag");
  5671	    return T; /* This never happens */}}
  5672	
  5673	
  5674	
  5675	/**************************************************
  5676	 * Compilation, stage 6, compile eager definition *
  5677	 **************************************************/
  5678	
  5679	/*
  5680	The given code is a code entry containing zero, one, or more
  5681	lambdas (depending on the arity of the construct) followed
  5682	by a ttag_ecall construct followed by a pair which is intended
  5683	to be overwritten with the compiled version of the entry.
  5684	The uncompiled definition of the entry was stored as the head
  5685	of the pair in stage 1. The entry was modified in stage 5.
  5686	*/
  5687	
  5688	void compile_eager_def(pnt caches,pnt code){
  5689	  pnt root=code2pair(code);
  5690	  pnt def=HEAD(root);
  5691	  pnt arg=def2arg(def);
  5692	  pnt rhs=def2rhs(def);
  5693	  compile_overwrite(root,compile_eterm(caches,T,arg,rhs));}
  5694	
  5695	
  5696	
  5697	/*********************************************
  5698	 * Compilation, stage 6, compile definitions *
  5699	 *********************************************/
  5700	
  5701	void compile_code(pnt caches,pnt code){
  5702	  pnt hd;
  5703	  pnt tl;
  5704	  pnt tag;
  5705	  if(code==T) return;
  5706	  if(GD_PAIR(code)) die("Unexpected type in code");
  5707	  hd=HEAD(code);
  5708	  tl=TAIL(code);
  5709	  if(NO_INT(hd)){
  5710	    compile_code(caches,hd);
  5711	    compile_code(caches,tl);
  5712	    return;}
  5713	  if(ROOT(tl)!=TAG_MAP) return;    /* disregard quote and lambda */
  5714	  tag=TAIL(tl);
  5715	  if(tag==CTAG_TRUE) return;  /* disregard true */
  5716	  if(tag==CTAG_APPLY) return; /* disregard apply */
  5717	  if(tag==CTAG_IF) return;    /* disregard if */
  5718	  if(tag==ETAG_yy){HEAD(tl)=map_fix;return;}
  5719	  if(tag==CTAG_EMAP){compile_eager_def(caches,tl);return;}
  5720	  if(tag2eager[tag]==T){compile_eager_intro(tl,tag);return;}
  5721	  compile_lazy_def(caches,tl);}
  5722	
  5723	
  5724	
  5725	/******************************
  5726	 * Compilation, invoke stages *
  5727	 ******************************/
  5728	
  5729	/*  the value part of the codex */
  5730	
  5731	void progress(char *msg,pnt ref){
  5732	  ref2string(ref);
  5733	  printf("%s %s\n",msg,bufrefname);}
  5734	
  5735	pnt compile_cache(pnt ref,pnt cache){
  5736	  pnt rack=aget(cache,ref);
  5737	  pnt codex=mget2(rack,const_codex,ref);
  5738	  pnt code;
  5739	  pnt caches;
  5740	  pnt diagnose=maptag(cons(ETAG_bottom,T,T));
  5741	  pnt diagnose1;
  5742	  push(diagnose);
  5743	  push(T);
  5744	  TRUSTGC;
  5745	  initcode(codex);
  5746	  code=pop();
  5747	  rack=aput0(rack,const_code,code);
  5748	  rack=aput0(rack,const_diagnose,diagnose);
  5749	  cache=aput0(cache,ref,rack);
  5750	  caches=aget(rack,const_cache);
  5751	  caches=aput0(caches,ref,cache);
  5752	  push(caches);
  5753	  if(record){
  5754	    record=FALSE;
  5755	    record_patterns(caches,code);
  5756	    code_cclaim=name2code1(code,"compile-claim ( \" , \" , \" )");}
  5757	  recognize_intro(caches,code);
  5758	  strictness_analysis(caches,ref,code);
  5759	  change_eager(caches,code);
  5760	  compile_code(caches,code);
  5761	  UNTRUSTGC;
  5762	  diagnose1=map_apply(HEAD(code_cclaim),ref);
  5763	  diagnose1=map_apply(diagnose1,cache);
  5764	  push(diagnose1);
  5765	  diagnose1=ret(1,map_apply(diagnose1,maptag(cache)));
  5766	  HEAD(diagnose)=HEAD(diagnose1);
  5767	  pop();
  5768	  pop();
  5769	  return cache;}
  5770	
  5771	pnt compile(pnt x){/* compile ( " ) */
  5772	  return compile_cache(mget1(x,Z),x);}
  5773	
  5774	
  5775	
  5776	/*********************************
  5777	 * Read and compile transitively *
  5778	 *********************************/
  5779	
  5780	/*
  5781	Load the cache with the given reference and all its transitively
  5782	referenced caches. The ref must be given as a vector (i.e. integer).
  5783	*/
  5784	
  5785	void loadcache1(pnt ref){
  5786	  pnt bib;
  5787	  pnt bibref;
  5788	  pnt bibcache;
  5789	  pnt bibrack;
  5790	  pnt rack;
  5791	  pnt cache;
  5792	  pnt diagnose;
  5793	  ref2string(ref);
  5794	/*printf("Loading %s\n",bufrefname);*/
  5795	  if(aget(state,ref)!=T){/*printf("Already loaded\n");*/return;}
  5796	  state=mput2(state,ref,ref,Z);
  5797	  rack=readrack((char *)bufrefname);
  5798	  state=mput2(state,rack,ref,ref);
  5799	  bib=aget(rack,const_bib);
  5800	  if(bib==T) die("loadcache1: empty bibliography");
  5801	  if(NO_PAIR(bib)) die("loadcache1: unexpected type of bibliography");
  5802	  if(!eq0(ref,HEAD(bib))) die("loadcache1: cache corrupted");
  5803	  for(bib=TAIL(bib);bib!=T;bib=TAIL(bib)){
  5804	    if(GD_PAIR(bib)) die("loadcache1: unexpected type in bibliography");
  5805	    bibref=HEAD(bib);
  5806	    loadcache1(bibref);
  5807	    bibcache=aget(state,bibref);
  5808	    bibrack=aget(bibcache,bibref);
  5809	    state=mput2(state,bibrack,ref,bibref);
  5810	    state=mput4(state,bibcache,ref,ref,const_cache,bibref);}
  5811	  cache=aget(state,ref);
  5812	  diagnose=mget2(cache,ref,const_diagnose);
  5813	  push(diagnose);
  5814	  cache=compile_cache(ref,cache);
  5815	  HEAD(mget2(cache,ref,const_diagnose))=ret(1,diagnose);
  5816	  state=mput1(state,cache,ref);}
  5817	
  5818	pnt loadcache(pnt ref){
  5819	  push(ref);
  5820	  loadcache1(ref);
  5821	  return ret(1,aget(state,ref));}
  5822	
  5823	void preload(pnt verbose){
  5824	  pnt rack;
  5825	  pnt bib;
  5826	  pnt ref;
  5827	  pnt bibref;
  5828	  pnt bibcache;
  5829	  pnt bibrack;
  5830	  pnt cache;
  5831	  pnt diagnose;
  5832	  mbufstart=pages;
  5833	  mbufsize=pages_len;
  5834	  mbufpnt=pages;
  5835	  mbufend=pages+pages_len;
  5836	  while(mbufpnt!=mbufend){
  5837	    TRUSTGC;
  5838	    rack=readrack1();
  5839	    UNTRUSTGC;
  5840	    push(rack);
  5841	    bib=aget(rack,const_bib);
  5842	    if(bib==T) die("preload: empty bibliography");
  5843	    if(NO_PAIR(bib)) die("preload: unexpected type of bibliography");
  5844	    ref=HEAD(bib);
  5845	    if(NO_INT(ref)) die("preload: cache corrupted");
  5846	    state=mput2(state,ref,ref,Z);
  5847	    state=ret(1,mput2(state,rack,ref,ref));
  5848	    for(bib=TAIL(bib);bib!=T;bib=TAIL(bib)){
  5849	      if(GD_PAIR(bib)) die("preload: unexpected type in bibliography");
  5850	      bibref=HEAD(bib);
  5851	      if(aget(state,bibref)==T)
  5852	      die("preloaded pages can only reference previously preloaded pages");
  5853	      bibcache=aget(state,bibref);
  5854	      bibrack=aget(bibcache,bibref);
  5855	      state=mput2(state,bibrack,ref,bibref);
  5856	      state=mput4(state,bibcache,ref,ref,const_cache,bibref);}
  5857	    cache=aget(state,ref);
  5858	    diagnose=mget2(cache,ref,const_diagnose);
  5859	    push(diagnose);
  5860	    cache=compile_cache(ref,cache);
  5861	    HEAD(mget2(cache,ref,const_diagnose))=ret(1,diagnose);
  5862	    state=mput1(state,cache,ref);
  5863	    if(verbose){
  5864	      pnt name=nameget(state,ref,Z);
  5865	      if(name!=T) nameprint2(name);
  5866	      printf("\n");
  5867	      ref2string(ref);
  5868	      printf("%s\n",bufrefname);}}}
  5869	
  5870	
  5871	
  5872	/**************
  5873	 * RIPEMD-160 *
  5874	 **************/
  5875	
  5876	/* Taken from http://homes.esat.kuleuven.be/~bosselae/ripemd160.html */
  5877	
  5878	/********************************************************************\
  5879	 *
  5880	 *      FILE:     rmd160.h
  5881	 *
  5882	 *      CONTENTS: Header file for a sample C-implementation of the
  5883	 *                RIPEMD-160 hash-function. 
  5884	 *      TARGET:   any computer with an ANSI C compiler
  5885	 *
  5886	 *      AUTHOR:   Antoon Bosselaers, ESAT-COSIC
  5887	 *      DATE:     1 March 1996
  5888	 *      VERSION:  1.0
  5889	 *
  5890	 *      Copyright (c) Katholieke Universiteit Leuven
  5891	 *      1996, All Rights Reserved
  5892	 *
  5893	 *  Conditions for use of the RIPEMD-160 Software
  5894	 *
  5895	 *  The RIPEMD-160 software is freely available for use under the terms and
  5896	 *  conditions described hereunder, which shall be deemed to be accepted by
  5897	 *  any user of the software and applicable on any use of the software:
  5898	 * 
  5899	 *  1. K.U.Leuven Department of Electrical Engineering-ESAT/COSIC shall for
  5900	 *     all purposes be considered the owner of the RIPEMD-160 software and of
  5901	 *     all copyright, trade secret, patent or other intellectual property
  5902	 *     rights therein.
  5903	 *  2. The RIPEMD-160 software is provided on an "as is" basis without
  5904	 *     warranty of any sort, express or implied. K.U.Leuven makes no
  5905	 *     representation that the use of the software will not infringe any
  5906	 *     patent or proprietary right of third parties. User will indemnify
  5907	 *     K.U.Leuven and hold K.U.Leuven harmless from any claims or liabilities
  5908	 *     which may arise as a result of its use of the software. In no
  5909	 *     circumstances K.U.Leuven R&D will be held liable for any deficiency,
  5910	 *     fault or other mishappening with regard to the use or performance of
  5911	 *     the software.
  5912	 *  3. User agrees to give due credit to K.U.Leuven in scientific publications 
  5913	 *     or communications in relation with the use of the RIPEMD-160 software 
  5914	 *     as follows: RIPEMD-160 software written by Antoon Bosselaers, 
  5915	 *     available at http://www.esat.kuleuven.be/~cosicart/ps/AB-9601/.
  5916	 *
  5917	\********************************************************************/
  5918	
  5919	#ifndef  RMD160H           /* make sure this file is read only once */
  5920	#define  RMD160H
  5921	
  5922	/********************************************************************/
  5923	
  5924	/* typedef 8 and 32 bit types, resp.  */
  5925	/* adapt these, if necessary, 
  5926	   for your operating system and compiler */
  5927	typedef uint8_t  byte;
  5928	typedef uint32_t dword;
  5929	
  5930	
  5931	/********************************************************************/
  5932	
  5933	/* macro definitions */
  5934	
  5935	/* collect four bytes into one word: */
  5936	#define BYTES_TO_DWORD(strptr)                    \
  5937	            (((dword) *((strptr)+3) << 24) | \
  5938	             ((dword) *((strptr)+2) << 16) | \
  5939	             ((dword) *((strptr)+1) <<  8) | \
  5940	             ((dword) *(strptr)))
  5941	
  5942	/* ROL(x, n) cyclically rotates x over n bits to the left */
  5943	/* x must be of an unsigned 32 bits type and 0 <= n < 32. */
  5944	#define ROL(x, n)        (((x) << (n)) | ((x) >> (32-(n))))
  5945	
  5946	/* the five basic functions F(), G() and H() */
  5947	#define F(x, y, z)        ((x) ^ (y) ^ (z)) 
  5948	#define G(x, y, z)        (((x) & (y)) | (~(x) & (z))) 
  5949	#define H(x, y, z)        (((x) | ~(y)) ^ (z))
  5950	#define I(x, y, z)        (((x) & (z)) | ((y) & ~(z))) 
  5951	#define J(x, y, z)        ((x) ^ ((y) | ~(z)))
  5952	  
  5953	/* the ten basic operations FF() through III() */
  5954	#define FF(a, b, c, d, e, x, s)        {\
  5955	      (a) += F((b), (c), (d)) + (x);\
  5956	      (a) = ROL((a), (s)) + (e);\
  5957	      (c) = ROL((c), 10);\
  5958	   }
  5959	#define GG(a, b, c, d, e, x, s)        {\
  5960	      (a) += G((b), (c), (d)) + (x) + 0x5a827999UL;\
  5961	      (a) = ROL((a), (s)) + (e);\
  5962	      (c) = ROL((c), 10);\
  5963	   }
  5964	#define HH(a, b, c, d, e, x, s)        {\
  5965	      (a) += H((b), (c), (d)) + (x) + 0x6ed9eba1UL;\
  5966	      (a) = ROL((a), (s)) + (e);\
  5967	      (c) = ROL((c), 10);\
  5968	   }
  5969	#define II(a, b, c, d, e, x, s)        {\
  5970	      (a) += I((b), (c), (d)) + (x) + 0x8f1bbcdcUL;\
  5971	      (a) = ROL((a), (s)) + (e);\
  5972	      (c) = ROL((c), 10);\
  5973	   }
  5974	#define JJ(a, b, c, d, e, x, s)        {\
  5975	      (a) += J((b), (c), (d)) + (x) + 0xa953fd4eUL;\
  5976	      (a) = ROL((a), (s)) + (e);\
  5977	      (c) = ROL((c), 10);\
  5978	   }
  5979	#define FFF(a, b, c, d, e, x, s)        {\
  5980	      (a) += F((b), (c), (d)) + (x);\
  5981	      (a) = ROL((a), (s)) + (e);\
  5982	      (c) = ROL((c), 10);\
  5983	   }
  5984	#define GGG(a, b, c, d, e, x, s)        {\
  5985	      (a) += G((b), (c), (d)) + (x) + 0x7a6d76e9UL;\
  5986	      (a) = ROL((a), (s)) + (e);\
  5987	      (c) = ROL((c), 10);\
  5988	   }
  5989	#define HHH(a, b, c, d, e, x, s)        {\
  5990	      (a) += H((b), (c), (d)) + (x) + 0x6d703ef3UL;\
  5991	      (a) = ROL((a), (s)) + (e);\
  5992	      (c) = ROL((c), 10);\
  5993	   }
  5994	#define III(a, b, c, d, e, x, s)        {\
  5995	      (a) += I((b), (c), (d)) + (x) + 0x5c4dd124UL;\
  5996	      (a) = ROL((a), (s)) + (e);\
  5997	      (c) = ROL((c), 10);\
  5998	   }
  5999	#define JJJ(a, b, c, d, e, x, s)        {\
  6000	      (a) += J((b), (c), (d)) + (x) + 0x50a28be6UL;\
  6001	      (a) = ROL((a), (s)) + (e);\
  6002	      (c) = ROL((c), 10);\
  6003	   }
  6004	
  6005	/********************************************************************/
  6006	
  6007	/* function prototypes */
  6008	
  6009	void MDinit(dword *MDbuf);
  6010	/*
  6011	 *  initializes MDbuffer to "magic constants"
  6012	 */
  6013	
  6014	void compress(dword *MDbuf, dword *X);
  6015	/*
  6016	 *  the compression function.
  6017	 *  transforms MDbuf using message bytes X[0] through X[15]
  6018	 */
  6019	
  6020	void MDfinish(dword *MDbuf, byte *strptr, dword lswlen, dword mswlen);
  6021	/*
  6022	 *  puts bytes from strptr into X and pad out; appends length 
  6023	 *  and finally, compresses the last block(s)
  6024	 *  note: length in bits == 8 * (lswlen + 2^32 mswlen).
  6025	 *  note: there are (lswlen mod 64) bytes left in strptr.
  6026	 */
  6027	
  6028	#endif  /* RMD160H */
  6029	
  6030	/*********************** end of file rmd160.h ***********************/
  6031	
  6032	
  6033	
  6034	/********************************************************************\
  6035	 *
  6036	 *      FILE:     rmd160.c
  6037	 *
  6038	 *      CONTENTS: A sample C-implementation of the RIPEMD-160
  6039	 *                hash-function.
  6040	 *      TARGET:   any computer with an ANSI C compiler
  6041	 *
  6042	 *      AUTHOR:   Antoon Bosselaers, ESAT-COSIC
  6043	 *      DATE:     1 March 1996
  6044	 *      VERSION:  1.0
  6045	 *
  6046	 *      Copyright (c) Katholieke Universiteit Leuven
  6047	 *      1996, All Rights Reserved
  6048	 *
  6049	 *  Conditions for use of the RIPEMD-160 Software
  6050	 *
  6051	 *  The RIPEMD-160 software is freely available for use under the terms and
  6052	 *  conditions described hereunder, which shall be deemed to be accepted by
  6053	 *  any user of the software and applicable on any use of the software:
  6054	 * 
  6055	 *  1. K.U.Leuven Department of Electrical Engineering-ESAT/COSIC shall for
  6056	 *     all purposes be considered the owner of the RIPEMD-160 software and of
  6057	 *     all copyright, trade secret, patent or other intellectual property
  6058	 *     rights therein.
  6059	 *  2. The RIPEMD-160 software is provided on an "as is" basis without
  6060	 *     warranty of any sort, express or implied. K.U.Leuven makes no
  6061	 *     representation that the use of the software will not infringe any
  6062	 *     patent or proprietary right of third parties. User will indemnify
  6063	 *     K.U.Leuven and hold K.U.Leuven harmless from any claims or liabilities
  6064	 *     which may arise as a result of its use of the software. In no
  6065	 *     circumstances K.U.Leuven R&D will be held liable for any deficiency,
  6066	 *     fault or other mishappening with regard to the use or performance of
  6067	 *     the software.
  6068	 *  3. User agrees to give due credit to K.U.Leuven in scientific publications 
  6069	 *     or communications in relation with the use of the RIPEMD-160 software 
  6070	 *     as follows: RIPEMD-160 software written by Antoon Bosselaers, 
  6071	 *     available at http://www.esat.kuleuven.be/~cosicart/ps/AB-9601/.
  6072	 *
  6073	\********************************************************************/
  6074	
  6075	/*  header files */
  6076	#include <stdio.h>
  6077	#include <stdlib.h>
  6078	#include <string.h>
  6079	
  6080	/********************************************************************/
  6081	
  6082	void MDinit(dword *MDbuf)
  6083	{
  6084	   MDbuf[0] = 0x67452301UL;
  6085	   MDbuf[1] = 0xefcdab89UL;
  6086	   MDbuf[2] = 0x98badcfeUL;
  6087	   MDbuf[3] = 0x10325476UL;
  6088	   MDbuf[4] = 0xc3d2e1f0UL;
  6089	
  6090	   return;
  6091	}
  6092	
  6093	/********************************************************************/
  6094	
  6095	void compress(dword *MDbuf, dword *X)
  6096	{
  6097	   dword aa = MDbuf[0],  bb = MDbuf[1],  cc = MDbuf[2],
  6098	         dd = MDbuf[3],  ee = MDbuf[4];
  6099	   dword aaa = MDbuf[0], bbb = MDbuf[1], ccc = MDbuf[2],
  6100	         ddd = MDbuf[3], eee = MDbuf[4];
  6101	
  6102	   /* round 1 */
  6103	   FF(aa, bb, cc, dd, ee, X[ 0], 11);
  6104	   FF(ee, aa, bb, cc, dd, X[ 1], 14);
  6105	   FF(dd, ee, aa, bb, cc, X[ 2], 15);
  6106	   FF(cc, dd, ee, aa, bb, X[ 3], 12);
  6107	   FF(bb, cc, dd, ee, aa, X[ 4],  5);
  6108	   FF(aa, bb, cc, dd, ee, X[ 5],  8);
  6109	   FF(ee, aa, bb, cc, dd, X[ 6],  7);
  6110	   FF(dd, ee, aa, bb, cc, X[ 7],  9);
  6111	   FF(cc, dd, ee, aa, bb, X[ 8], 11);
  6112	   FF(bb, cc, dd, ee, aa, X[ 9], 13);
  6113	   FF(aa, bb, cc, dd, ee, X[10], 14);
  6114	   FF(ee, aa, bb, cc, dd, X[11], 15);
  6115	   FF(dd, ee, aa, bb, cc, X[12],  6);
  6116	   FF(cc, dd, ee, aa, bb, X[13],  7);
  6117	   FF(bb, cc, dd, ee, aa, X[14],  9);
  6118	   FF(aa, bb, cc, dd, ee, X[15],  8);
  6119	                             
  6120	   /* round 2 */
  6121	   GG(ee, aa, bb, cc, dd, X[ 7],  7);
  6122	   GG(dd, ee, aa, bb, cc, X[ 4],  6);
  6123	   GG(cc, dd, ee, aa, bb, X[13],  8);
  6124	   GG(bb, cc, dd, ee, aa, X[ 1], 13);
  6125	   GG(aa, bb, cc, dd, ee, X[10], 11);
  6126	   GG(ee, aa, bb, cc, dd, X[ 6],  9);
  6127	   GG(dd, ee, aa, bb, cc, X[15],  7);
  6128	   GG(cc, dd, ee, aa, bb, X[ 3], 15);
  6129	   GG(bb, cc, dd, ee, aa, X[12],  7);
  6130	   GG(aa, bb, cc, dd, ee, X[ 0], 12);
  6131	   GG(ee, aa, bb, cc, dd, X[ 9], 15);
  6132	   GG(dd, ee, aa, bb, cc, X[ 5],  9);
  6133	   GG(cc, dd, ee, aa, bb, X[ 2], 11);
  6134	   GG(bb, cc, dd, ee, aa, X[14],  7);
  6135	   GG(aa, bb, cc, dd, ee, X[11], 13);
  6136	   GG(ee, aa, bb, cc, dd, X[ 8], 12);
  6137	
  6138	   /* round 3 */
  6139	   HH(dd, ee, aa, bb, cc, X[ 3], 11);
  6140	   HH(cc, dd, ee, aa, bb, X[10], 13);
  6141	   HH(bb, cc, dd, ee, aa, X[14],  6);
  6142	   HH(aa, bb, cc, dd, ee, X[ 4],  7);
  6143	   HH(ee, aa, bb, cc, dd, X[ 9], 14);
  6144	   HH(dd, ee, aa, bb, cc, X[15],  9);
  6145	   HH(cc, dd, ee, aa, bb, X[ 8], 13);
  6146	   HH(bb, cc, dd, ee, aa, X[ 1], 15);
  6147	   HH(aa, bb, cc, dd, ee, X[ 2], 14);
  6148	   HH(ee, aa, bb, cc, dd, X[ 7],  8);
  6149	   HH(dd, ee, aa, bb, cc, X[ 0], 13);
  6150	   HH(cc, dd, ee, aa, bb, X[ 6],  6);
  6151	   HH(bb, cc, dd, ee, aa, X[13],  5);
  6152	   HH(aa, bb, cc, dd, ee, X[11], 12);
  6153	   HH(ee, aa, bb, cc, dd, X[ 5],  7);
  6154	   HH(dd, ee, aa, bb, cc, X[12],  5);
  6155	
  6156	   /* round 4 */
  6157	   II(cc, dd, ee, aa, bb, X[ 1], 11);
  6158	   II(bb, cc, dd, ee, aa, X[ 9], 12);
  6159	   II(aa, bb, cc, dd, ee, X[11], 14);
  6160	   II(ee, aa, bb, cc, dd, X[10], 15);
  6161	   II(dd, ee, aa, bb, cc, X[ 0], 14);
  6162	   II(cc, dd, ee, aa, bb, X[ 8], 15);
  6163	   II(bb, cc, dd, ee, aa, X[12],  9);
  6164	   II(aa, bb, cc, dd, ee, X[ 4],  8);
  6165	   II(ee, aa, bb, cc, dd, X[13],  9);
  6166	   II(dd, ee, aa, bb, cc, X[ 3], 14);
  6167	   II(cc, dd, ee, aa, bb, X[ 7],  5);
  6168	   II(bb, cc, dd, ee, aa, X[15],  6);
  6169	   II(aa, bb, cc, dd, ee, X[14],  8);
  6170	   II(ee, aa, bb, cc, dd, X[ 5],  6);
  6171	   II(dd, ee, aa, bb, cc, X[ 6],  5);
  6172	   II(cc, dd, ee, aa, bb, X[ 2], 12);
  6173	
  6174	   /* round 5 */
  6175	   JJ(bb, cc, dd, ee, aa, X[ 4],  9);
  6176	   JJ(aa, bb, cc, dd, ee, X[ 0], 15);
  6177	   JJ(ee, aa, bb, cc, dd, X[ 5],  5);
  6178	   JJ(dd, ee, aa, bb, cc, X[ 9], 11);
  6179	   JJ(cc, dd, ee, aa, bb, X[ 7],  6);
  6180	   JJ(bb, cc, dd, ee, aa, X[12],  8);
  6181	   JJ(aa, bb, cc, dd, ee, X[ 2], 13);
  6182	   JJ(ee, aa, bb, cc, dd, X[10], 12);
  6183	   JJ(dd, ee, aa, bb, cc, X[14],  5);
  6184	   JJ(cc, dd, ee, aa, bb, X[ 1], 12);
  6185	   JJ(bb, cc, dd, ee, aa, X[ 3], 13);
  6186	   JJ(aa, bb, cc, dd, ee, X[ 8], 14);
  6187	   JJ(ee, aa, bb, cc, dd, X[11], 11);
  6188	   JJ(dd, ee, aa, bb, cc, X[ 6],  8);
  6189	   JJ(cc, dd, ee, aa, bb, X[15],  5);
  6190	   JJ(bb, cc, dd, ee, aa, X[13],  6);
  6191	
  6192	   /* parallel round 1 */
  6193	   JJJ(aaa, bbb, ccc, ddd, eee, X[ 5],  8);
  6194	   JJJ(eee, aaa, bbb, ccc, ddd, X[14],  9);
  6195	   JJJ(ddd, eee, aaa, bbb, ccc, X[ 7],  9);
  6196	   JJJ(ccc, ddd, eee, aaa, bbb, X[ 0], 11);
  6197	   JJJ(bbb, ccc, ddd, eee, aaa, X[ 9], 13);
  6198	   JJJ(aaa, bbb, ccc, ddd, eee, X[ 2], 15);
  6199	   JJJ(eee, aaa, bbb, ccc, ddd, X[11], 15);
  6200	   JJJ(ddd, eee, aaa, bbb, ccc, X[ 4],  5);
  6201	   JJJ(ccc, ddd, eee, aaa, bbb, X[13],  7);
  6202	   JJJ(bbb, ccc, ddd, eee, aaa, X[ 6],  7);
  6203	   JJJ(aaa, bbb, ccc, ddd, eee, X[15],  8);
  6204	   JJJ(eee, aaa, bbb, ccc, ddd, X[ 8], 11);
  6205	   JJJ(ddd, eee, aaa, bbb, ccc, X[ 1], 14);
  6206	   JJJ(ccc, ddd, eee, aaa, bbb, X[10], 14);
  6207	   JJJ(bbb, ccc, ddd, eee, aaa, X[ 3], 12);
  6208	   JJJ(aaa, bbb, ccc, ddd, eee, X[12],  6);
  6209	
  6210	   /* parallel round 2 */
  6211	   III(eee, aaa, bbb, ccc, ddd, X[ 6],  9); 
  6212	   III(ddd, eee, aaa, bbb, ccc, X[11], 13);
  6213	   III(ccc, ddd, eee, aaa, bbb, X[ 3], 15);
  6214	   III(bbb, ccc, ddd, eee, aaa, X[ 7],  7);
  6215	   III(aaa, bbb, ccc, ddd, eee, X[ 0], 12);
  6216	   III(eee, aaa, bbb, ccc, ddd, X[13],  8);
  6217	   III(ddd, eee, aaa, bbb, ccc, X[ 5],  9);
  6218	   III(ccc, ddd, eee, aaa, bbb, X[10], 11);
  6219	   III(bbb, ccc, ddd, eee, aaa, X[14],  7);
  6220	   III(aaa, bbb, ccc, ddd, eee, X[15],  7);
  6221	   III(eee, aaa, bbb, ccc, ddd, X[ 8], 12);
  6222	   III(ddd, eee, aaa, bbb, ccc, X[12],  7);
  6223	   III(ccc, ddd, eee, aaa, bbb, X[ 4],  6);
  6224	   III(bbb, ccc, ddd, eee, aaa, X[ 9], 15);
  6225	   III(aaa, bbb, ccc, ddd, eee, X[ 1], 13);
  6226	   III(eee, aaa, bbb, ccc, ddd, X[ 2], 11);
  6227	
  6228	   /* parallel round 3 */
  6229	   HHH(ddd, eee, aaa, bbb, ccc, X[15],  9);
  6230	   HHH(ccc, ddd, eee, aaa, bbb, X[ 5],  7);
  6231	   HHH(bbb, ccc, ddd, eee, aaa, X[ 1], 15);
  6232	   HHH(aaa, bbb, ccc, ddd, eee, X[ 3], 11);
  6233	   HHH(eee, aaa, bbb, ccc, ddd, X[ 7],  8);
  6234	   HHH(ddd, eee, aaa, bbb, ccc, X[14],  6);
  6235	   HHH(ccc, ddd, eee, aaa, bbb, X[ 6],  6);
  6236	   HHH(bbb, ccc, ddd, eee, aaa, X[ 9], 14);
  6237	   HHH(aaa, bbb, ccc, ddd, eee, X[11], 12);
  6238	   HHH(eee, aaa, bbb, ccc, ddd, X[ 8], 13);
  6239	   HHH(ddd, eee, aaa, bbb, ccc, X[12],  5);
  6240	   HHH(ccc, ddd, eee, aaa, bbb, X[ 2], 14);
  6241	   HHH(bbb, ccc, ddd, eee, aaa, X[10], 13);
  6242	   HHH(aaa, bbb, ccc, ddd, eee, X[ 0], 13);
  6243	   HHH(eee, aaa, bbb, ccc, ddd, X[ 4],  7);
  6244	   HHH(ddd, eee, aaa, bbb, ccc, X[13],  5);
  6245	
  6246	   /* parallel round 4 */   
  6247	   GGG(ccc, ddd, eee, aaa, bbb, X[ 8], 15);
  6248	   GGG(bbb, ccc, ddd, eee, aaa, X[ 6],  5);
  6249	   GGG(aaa, bbb, ccc, ddd, eee, X[ 4],  8);
  6250	   GGG(eee, aaa, bbb, ccc, ddd, X[ 1], 11);
  6251	   GGG(ddd, eee, aaa, bbb, ccc, X[ 3], 14);
  6252	   GGG(ccc, ddd, eee, aaa, bbb, X[11], 14);
  6253	   GGG(bbb, ccc, ddd, eee, aaa, X[15],  6);
  6254	   GGG(aaa, bbb, ccc, ddd, eee, X[ 0], 14);
  6255	   GGG(eee, aaa, bbb, ccc, ddd, X[ 5],  6);
  6256	   GGG(ddd, eee, aaa, bbb, ccc, X[12],  9);
  6257	   GGG(ccc, ddd, eee, aaa, bbb, X[ 2], 12);
  6258	   GGG(bbb, ccc, ddd, eee, aaa, X[13],  9);
  6259	   GGG(aaa, bbb, ccc, ddd, eee, X[ 9], 12);
  6260	   GGG(eee, aaa, bbb, ccc, ddd, X[ 7],  5);
  6261	   GGG(ddd, eee, aaa, bbb, ccc, X[10], 15);
  6262	   GGG(ccc, ddd, eee, aaa, bbb, X[14],  8);
  6263	
  6264	   /* parallel round 5 */
  6265	   FFF(bbb, ccc, ddd, eee, aaa, X[12] ,  8);
  6266	   FFF(aaa, bbb, ccc, ddd, eee, X[15] ,  5);
  6267	   FFF(eee, aaa, bbb, ccc, ddd, X[10] , 12);
  6268	   FFF(ddd, eee, aaa, bbb, ccc, X[ 4] ,  9);
  6269	   FFF(ccc, ddd, eee, aaa, bbb, X[ 1] , 12);
  6270	   FFF(bbb, ccc, ddd, eee, aaa, X[ 5] ,  5);
  6271	   FFF(aaa, bbb, ccc, ddd, eee, X[ 8] , 14);
  6272	   FFF(eee, aaa, bbb, ccc, ddd, X[ 7] ,  6);
  6273	   FFF(ddd, eee, aaa, bbb, ccc, X[ 6] ,  8);
  6274	   FFF(ccc, ddd, eee, aaa, bbb, X[ 2] , 13);
  6275	   FFF(bbb, ccc, ddd, eee, aaa, X[13] ,  6);
  6276	   FFF(aaa, bbb, ccc, ddd, eee, X[14] ,  5);
  6277	   FFF(eee, aaa, bbb, ccc, ddd, X[ 0] , 15);
  6278	   FFF(ddd, eee, aaa, bbb, ccc, X[ 3] , 13);
  6279	   FFF(ccc, ddd, eee, aaa, bbb, X[ 9] , 11);
  6280	   FFF(bbb, ccc, ddd, eee, aaa, X[11] , 11);
  6281	
  6282	   /* combine results */
  6283	   ddd += cc + MDbuf[1];               /* final result for MDbuf[0] */
  6284	   MDbuf[1] = MDbuf[2] + dd + eee;
  6285	   MDbuf[2] = MDbuf[3] + ee + aaa;
  6286	   MDbuf[3] = MDbuf[4] + aa + bbb;
  6287	   MDbuf[4] = MDbuf[0] + bb + ccc;
  6288	   MDbuf[0] = ddd;
  6289	
  6290	   return;
  6291	}
  6292	
  6293	/********************************************************************/
  6294	
  6295	void MDfinish(dword *MDbuf, byte *strptr, dword lswlen, dword mswlen)
  6296	{
  6297	   unsigned int i;                                 /* counter       */
  6298	   dword        X[16];                             /* message words */
  6299	
  6300	   memset(X, 0, 16*sizeof(dword));
  6301	
  6302	   /* put bytes from strptr into X */
  6303	   for (i=0; i<(lswlen&63); i++) {
  6304	      /* byte i goes into word X[i div 4] at pos.  8*(i mod 4)  */
  6305	      X[i>>2] ^= (dword) *strptr++ << (8 * (i&3));
  6306	   }
  6307	
  6308	   /* append the bit m_n == 1 */
  6309	   X[(lswlen>>2)&15] ^= (dword)1 << (8*(lswlen&3) + 7);
  6310	
  6311	   if ((lswlen & 63) > 55) {
  6312	      /* length goes to next block */
  6313	      compress(MDbuf, X);
  6314	      memset(X, 0, 16*sizeof(dword));
  6315	   }
  6316	
  6317	   /* append length in bits*/
  6318	   X[14] = lswlen << 3;
  6319	   X[15] = (lswlen >> 29) | (mswlen << 3);
  6320	   compress(MDbuf, X);
  6321	
  6322	   return;
  6323	}
  6324	
  6325	/************************ end of file rmd160.c **********************/
  6326	
  6327	
  6328	
  6329	/********************************************************************\
  6330	 *
  6331	 *      FILE:     hashtest.c
  6332	 *
  6333	 *      CONTENTS: test file for sample C-implementation of
  6334	 *                RIPEMD-160 and RIPEMD128
  6335	 *        * command line arguments:                                         
  6336	 *           filename  -- compute hash code of file read binary     
  6337	 *           -sstring  -- print string & hashcode                   
  6338	 *           -t        -- perform time trial                        
  6339	 *           -x        -- execute standard test suite, ASCII input
  6340	 *        * for linkage with rmd128.c: define RMDsize as 128
  6341	 *          for linkage with rmd160.c: define RMDsize as 160 (default)
  6342	 *      TARGET:   any computer with an ANSI C compiler
  6343	 *
  6344	 *      AUTHOR:   Antoon Bosselaers, ESAT-COSIC
  6345	 *      DATE:     18 April 1996
  6346	 *      VERSION:  1.1
  6347	 *      HISTORY:  bug in RMDonemillion() corrected
  6348	 *
  6349	 *      Copyright (c) Katholieke Universiteit Leuven
  6350	 *      1996, All Rights Reserved
  6351	 *
  6352	 *  Conditions for use of the RIPEMD-160 Software
  6353	 *
  6354	 *  The RIPEMD-160 software is freely available for use under the terms and
  6355	 *  conditions described hereunder, which shall be deemed to be accepted by
  6356	 *  any user of the software and applicable on any use of the software:
  6357	 * 
  6358	 *  1. K.U.Leuven Department of Electrical Engineering-ESAT/COSIC shall for
  6359	 *     all purposes be considered the owner of the RIPEMD-160 software and of
  6360	 *     all copyright, trade secret, patent or other intellectual property
  6361	 *     rights therein.
  6362	 *  2. The RIPEMD-160 software is provided on an "as is" basis without
  6363	 *     warranty of any sort, express or implied. K.U.Leuven makes no
  6364	 *     representation that the use of the software will not infringe any
  6365	 *     patent or proprietary right of third parties. User will indemnify
  6366	 *     K.U.Leuven and hold K.U.Leuven harmless from any claims or liabilities
  6367	 *     which may arise as a result of its use of the software. In no
  6368	 *     circumstances K.U.Leuven R&D will be held liable for any deficiency,
  6369	 *     fault or other mishappening with regard to the use or performance of
  6370	 *     the software.
  6371	 *  3. User agrees to give due credit to K.U.Leuven in scientific publications 
  6372	 *     or communications in relation with the use of the RIPEMD-160 software 
  6373	 *     as follows: RIPEMD-160 software written by Antoon Bosselaers, 
  6374	 *     available at http://www.esat.kuleuven.be/~cosicart/ps/AB-9601/.
  6375	 *
  6376	\********************************************************************/
  6377	#ifndef RMDsize
  6378	#define RMDsize 160
  6379	#endif
  6380	
  6381	#include <stdio.h>
  6382	#include <stdlib.h>
  6383	#include <time.h>
  6384	#include <string.h>
  6385	
  6386	#define TEST_BLOCK_SIZE 8000
  6387	#define TEST_BLOCKS 1250
  6388	#define TEST_BYTES ((long)TEST_BLOCK_SIZE * (long)TEST_BLOCKS)
  6389	
  6390	/********************************************************************/
  6391	
  6392	byte *RMD(byte *message)
  6393	/*
  6394	 * returns RMD(message)
  6395	 * message should be a string terminated by '\0'
  6396	 */
  6397	{
  6398	   dword         MDbuf[RMDsize/32];   /* contains (A, B, C, D(, E))   */
  6399	   static byte   hashcode[RMDsize/8]; /* for final hash-value         */
  6400	   dword         X[16];               /* current 16-word chunk        */
  6401	   unsigned int  i;                   /* counter                      */
  6402	   dword         length;              /* length in bytes of message   */
  6403	   dword         nbytes;              /* # of bytes not yet processed */
  6404	
  6405	   /* initialize */
  6406	   MDinit(MDbuf);
  6407	   length = (dword)strlen((char *)message);
  6408	
  6409	   /* process message in 16-word chunks */
  6410	   for (nbytes=length; nbytes > 63; nbytes-=64) {
  6411	      for (i=0; i<16; i++) {
  6412	         X[i] = BYTES_TO_DWORD(message);
  6413	         message += 4;
  6414	      }
  6415	      compress(MDbuf, X);
  6416	   }                                    /* length mod 64 bytes left */
  6417	
  6418	   /* finish: */
  6419	   MDfinish(MDbuf, message, length, 0);
  6420	
  6421	   for (i=0; i<RMDsize/8; i+=4) {
  6422	      hashcode[i]   =  MDbuf[i>>2];         /* implicit cast to byte  */
  6423	      hashcode[i+1] = (MDbuf[i>>2] >>  8);  /*  extracts the 8 least  */
  6424	      hashcode[i+2] = (MDbuf[i>>2] >> 16);  /*  significant bits.     */
  6425	      hashcode[i+3] = (MDbuf[i>>2] >> 24);
  6426	   }
  6427	
  6428	   return (byte *)hashcode;
  6429	}
  6430	
  6431	/********************************************************************/
  6432	
  6433	void RMDstring(char *message)
  6434	{
  6435	   unsigned int  i;
  6436	   byte         *hashcode;
  6437	
  6438	   hashcode = RMD((byte *)message);
  6439	   printf("%s\n",message);
  6440	   for (i=0; i<RMDsize/8; i++)
  6441	      printf("%02X", hashcode[i]);
  6442	   printf("\n");
  6443	}
  6444	
  6445	
  6446	
  6447	/*********************
  6448	 * RIPEMD conversion *
  6449	 *********************/
  6450	
  6451	unsigned char hashkey[RMDsize/4+1];
  6452	
  6453	unsigned char *msg2hash(char *message){
  6454	  pnt i;
  6455	  byte *hashcode;
  6456	  hashcode=RMD((byte *)message);
  6457	  for (i=0;i<RMDsize/8;i++){
  6458	    hashkey[2*i+0]=pnt2hex(hashcode[i]>>4);
  6459	    hashkey[2*i+1]=pnt2hex(hashcode[i]>>0);}
  6460	  hashkey[RMDsize/4]=0;
  6461	  return hashkey;}
  6462	
  6463	pnt vt2length(pnt x){
  6464	  if(x==T) return 0;
  6465	  switch(ROOT(x)){
  6466	  case TAG_FALSE:
  6467	  case TAG_MAP:
  6468	  case TAG_OBJ:
  6469	    return 0;
  6470	  case TAG_INT:
  6471	  case TAG_VECT:
  6472	    if(negative(x)) return 0;
  6473	    return vectorLength1(x);
  6474	  case TAG_PAIR:
  6475	    return vt2length(HEAD(x))+vt2length(TAIL(x));
  6476	  default:
  6477	    unexpected_tag("vt2length",x);
  6478	    return T; /* This never happens*/}}
  6479	
  6480	dword RipemdBuf[RMDsize/32]; /* contains (A, B, C, D, E) */
  6481	dword RipemdChunk[16];       /* current 16-word chunk    */
  6482	pnt   RipemdIndex1;          /* index into RipemdChunk   */
  6483	pnt   RipemdIndex2;          /* index into RipemdChunk   */
  6484	
  6485	void vt2hash_finish(dword lswlen,dword mswlen){
  6486	   /* append the bit m_n == 1 */
  6487	   RipemdChunk[(lswlen>>2)&15] ^= (dword)1 << (8*(lswlen&3) + 7);
  6488	   if ((lswlen & 63) > 55) {
  6489	      /* length goes to next block */
  6490	      compress(RipemdBuf, RipemdChunk);
  6491	      memset(RipemdChunk, 0, 16*sizeof(dword));}
  6492	   /* append length in bits*/
  6493	   RipemdChunk[14] = lswlen << 3;
  6494	   RipemdChunk[15] = (lswlen >> 29) | (mswlen << 3);
  6495	   compress(RipemdBuf, RipemdChunk);
  6496	   return;}
  6497	
  6498	void byte2hash(pnt x){
  6499	  RipemdChunk[RipemdIndex1]|=(x&0xFF)<<RipemdIndex2;
  6500	  RipemdIndex2+=8;
  6501	  if(RipemdIndex2<32) return;
  6502	  RipemdIndex2=0;
  6503	  RipemdIndex1++;
  6504	  if(RipemdIndex1<16) return;
  6505	  RipemdIndex1=0;
  6506	  compress(RipemdBuf,RipemdChunk);
  6507	  memset(RipemdChunk,0,16*sizeof(dword));}
  6508	
  6509	void vector2hash(pnt x){
  6510	  pnt i;
  6511	  for(;TAIL(x);x=TAIL(x))
  6512	  for(i=0;i<bytesize;i++)
  6513	  byte2hash(HEAD(x)>>(8*i));
  6514	  for(x=HEAD(x);x>255;x=x>>8)
  6515	  byte2hash(x);}
  6516	
  6517	void vt2hash2(pnt x){
  6518	  if(x==T) return;
  6519	  switch(ROOT(x)){
  6520	  case TAG_FALSE:
  6521	  case TAG_MAP:
  6522	  case TAG_OBJ:
  6523	    return;
  6524	  case TAG_INT:
  6525	  case TAG_VECT:
  6526	    if(negative(x)) return;
  6527	    vector2hash(x);
  6528	    return;
  6529	  case TAG_PAIR:
  6530	    vt2hash2(HEAD(x));
  6531	    vt2hash2(TAIL(x));
  6532	    return;
  6533	  default:
  6534	    unexpected_tag("vt2length",x);}}
  6535	
  6536	void vt2hash1(pnt source){
  6537	  pnt length=vt2length(source);
  6538	  RipemdIndex1=0;
  6539	  RipemdIndex2=0;
  6540	  MDinit(RipemdBuf);
  6541	  memset(RipemdChunk,0,16*sizeof(dword));
  6542	  vt2hash2(source);
  6543	  /* On Cygwin, length>>32 gives warning: right shift count >= width of type
  6544	     and compiles incorrectly */
  6545	  vt2hash_finish((dword)length,(dword)((length>>16)>>16));}
  6546	
  6547	unsigned char *vt2hash(pnt source){
  6548	  pnt i;
  6549	  vt2hash1(source);
  6550	  for(i=0;i<RMDsize/8;i++){
  6551	    hashkey[2*i+0]=pnt2hex(RipemdBuf[i>>2]>>(8*(i&3)+4));
  6552	    hashkey[2*i+1]=pnt2hex(RipemdBuf[i>>2]>>(8*(i&3)+0));}
  6553	  hashkey[RMDsize/4]=0;
  6554	  return hashkey;}
  6555	
  6556	
  6557	
  6558	/*****************************
  6559	 * Ripemd optimized function *
  6560	 *****************************/
  6561	
  6562	pnt ripemd(pnt source){ /* ripemd ( " ) */
  6563	  pnt result,byte;
  6564	  int index;
  6565	  vt2hash1(source);
  6566	  result=T;
  6567	  for(index=RMDsize/8-1;index>=0;index--){
  6568	    byte=RipemdBuf[index>>2];
  6569	    byte=byte>>(8*(index&3));
  6570	    result=pair(bytevect[byte&0xFF],result);}
  6571	  return result;}
  6572	
  6573	
  6574	
  6575	/* Essentially the same as vt2hash, but only accepts singleton
  6576	 * lists as input and produces a singleton list as output
  6577	
  6578	pnt ripemd(pnt source){
  6579	  pnt i,j;
  6580	  int k;
  6581	  pnt length=vt2length(source);
  6582	  RipemdIndex1=0;
  6583	  RipemdIndex2=0;
  6584	  MDinit(RipemdBuf);
  6585	  memset(RipemdChunk,0,16*sizeof(dword));
  6586	  for(i=source;i!=T;i=TAIL(i)){
  6587	    if(NO_PAIR(i)) return X;
  6588	    j=HEAD(i);
  6589	    if(NO_INT(j)) return X;
  6590	    if(TAIL(j)!=NIL) return X;
  6591	    j=HEAD(j);
  6592	    if((j>>8)!=1) return X;
  6593	    byte2hash(j);}
  6594	  vt2hash_finish((dword)length,(dword)((length>>16)>>16));
  6595	  i=T;
  6596	  for(k=RMDsize/8-1;k>=0;k--){
  6597	    j=RipemdBuf[k>>2];
  6598	    j=j>>(8*(k&3));
  6599	    i=pair(bytevect[j&0xFF],i);}
  6600	  return i;}
  6601	*/
  6602	
  6603	
  6604	
  6605	/***************************
  6606	 * Boot event construction *
  6607	 ***************************/
  6608	
  6609	pnt strings2pnt(char **strings){
  6610	  pnt string;
  6611	  if(*strings==0) return T;
  6612	  string=str2vec(*strings);
  6613	  return pair(string,strings2pnt(strings+1));}
  6614	
  6615	pnt fd_strings2pnt(){
  6616	  unsigned char line[PATHSIZE]; /* input line */
  6617	  pnt string;
  6618	  if(!readln(line)) return T;
  6619	  string=str2vec0(line);
  6620	  return pair(string,fd_strings2pnt());}
  6621	
  6622	void add_boot_event(char *argv[],char *env[],pnt cache,pnt defaults){
  6623	  pnt argv1,env1,event1;
  6624	  push(argv1=strings2pnt(argv+2));/* argv[0]=/usr/bin/lgwam argv[1]=script */
  6625	  push(env1=strings2pnt(env));
  6626	  event1=pair(sym_boot,pair(argv1,pair(env1,pair(cache,pair(defaults,T)))));
  6627	  inputs=ret(3,pair(event1,inputs));/* unstack argv1, env1, and defaults */}
  6628	
  6629	
  6630	
  6631	/*********************
  6632	 * MACHINE EXECUTION *
  6633	 *********************/
  6634	
  6635	/*
  6636	As mentioned on the Logiweb "base" page, a Logiweb machine comprises
  6637	a Logiweb computing engine, an interface, a boot handler, and a cache.
  6638	The engine and interface is common to all Logiweb machines whereas
  6639	the boot handler h and cache c distinguishes one machine from the other.
  6640	
  6641	The map2rnf and eval functions defined above implement the engine.
  6642	The interface is implemented in the following.
  6643	
  6644	The architecture of the Logiweb machine is described in more detail
  6645	on the base page. But, in short, the handler h of a machine is an
  6646	executable function which can run on the engine. The return value
  6647	from h is piped to the interface. This return value is supposed to
  6648	be a list. The elements of that list are called "requests" and we
  6649	shall refer to the list as the "request list". The interface
  6650	"executes" each request, one at a time, and produces "replies" which
  6651	it collects into a "reply list" in opposite order of the associated
  6652	requests. If the interface meets an "exec" request then it discards
  6653	all further requests in the request list and instead applies the
  6654	handler to the reply list. There is more to it that this, but the
  6655	explanation above should give the picture.
  6656	
  6657	A "virgin" Logiweb machine is able to execute read, write, extend,
  6658	exec, and quit requests. The exec and quit requests are special in
  6659	that they affect further request processing. Both requests make
  6660	the interface discard further requests in the request list, but they
  6661	differ in that the exec request makes the interface re-invoke the
  6662	handler whereas the quit request makes the interface return to the
  6663	operating system. A quit request contains a value to be returned to
  6664	the operating system using exit(). If the request list becomes empty,
  6665	the interface performs an implicit quit with return value 0.
  6666	
  6667	A read request makes the interface read one byte from standard input
  6668	and push a read reply on the reply list. A write request makes the
  6669	interface write a vector-tree to standard output. The interface also
  6670	pushes a write reply onto the reply list, but the write reply contains
  6671	no information.
  6672	
  6673	An extend request is much more complex than the other requests.
  6674	The semantics of extend requests is left implementation dependent, but
  6675	the intension of extend requests is that it allows to define new requests,
  6676	new so-called "interrupts", and new optimized functions. The present
  6677	implementation, however, only supports definition of new requests.
  6678	
  6679	An extend request takes two arguments: a request and a vector-tree.
  6680	The interface flattens the vector-tree and pipes it to the C-compiler,
  6681	producing a dynamic link library (dll) which the interface then loads.
  6682	Then the interface stores an association from the given request to
  6683	the dll such that future instances of the given request makes the
  6684	interface call the dll. A Logiweb machine is said to be "virgin"
  6685	until first time it executes an extend request.
  6686	
  6687	Dynamic link libraries communicate with the Logiweb machine using
  6688	"trigger functions" of type Trigger, i.e. of type (int *trigger(int)).
  6689	
  6690	Trigger functions are exported from dynamic link libraries and are
  6691	called from the Logiweb machine. Each dynamic link library loaded
  6692	by the Logiweb machine must export a trigger function named "trigger".
  6693	
  6694	The protocol for communication between Logiweb machine and dynamic
  6695	link library is described in the following.
  6696	
  6697	We shall refer to the argument of a trigger function as the "input"
  6698	of the function and the return value as the "output". Input as well
  6699	as output is of type int, but input as well as output merely take
  6700	values in the range -1..255.
  6701	
  6702	Communication between Logiweb machine and dynamic link library
  6703	comprises a sequence of "exchanges". One exchange cannot start before
  6704	the previous exchange is completed.
  6705	
  6706	Exchanges between Logiweb machine and dynamic link library always
  6707	occur on the initiative of the Logiweb machine.
  6708	
  6709	Exchanges occur in two phases named lgw2dll and dll2lgw. During the
  6710	lgw2dll phase, a sequence of bytes is passed from Logiweb machine to
  6711	dynamic link library. During the dll2lgw phase, a sequence of bytes is
  6712	passed the other way. The dll2lgw phase starts when the lgw2dll
  6713	phase ends. The whole exchange starts with the start of the
  6714	lgw2dll phase and ends with the end of the dll2lgw phase.
  6715	
  6716	Each lgw2dll phase consists of a sequence of calls to the trigger
  6717	function. At each call, one byte (in the range 0..255) is passed as
  6718	input to the trigger function. The lgw2dll phase ends when the
  6719	Logiweb machine passes -1 to the trigger function. The output
  6720	from the trigger function is ignored during the lgw2dll phase,
  6721	but the trigger function should return 0, reserving other values
  6722	for possible, future extensions.
  6723	
  6724	Each dll2lgw phase also consists of a sequence of calls to the
  6725	trigger function. At each call, -1 is passed as input to the
  6726	trigger functino. At each call, one byte (in the range 0..255)
  6727	is passed as output from the trigger function. The dll2lgw
  6728	phases ends when the trigger function outputs -1.
  6729	*/
  6730	
  6731	
  6732	
  6733	/***************************
  6734	 * Read reply construction *
  6735	 ***************************/
  6736	
  6737	void add_read_reply(){
  6738	  int c=getchar();
  6739	  if(c<0) return;
  6740	  if(c>255) return;
  6741	  inputs=pair(pair(sym_read,pair(bytevect[c],T)),inputs);}
  6742	
  6743	
  6744	
  6745	/***************************
  6746	 * Exec reply construction *
  6747	 ***************************/
  6748	
  6749	void add_exec_reply(pnt id,pnt process){
  6750	  push(id);
  6751	  push(process);
  6752	  inputs=ret(2,pair(pair(sym_exec,pair(id,pair(process,T))),inputs));}
  6753	
  6754	void add_exit_reply(pnt process){
  6755	  add_exec_reply(tree_exit,process);}
  6756	
  6757	void add_time_reply(pnt process){
  6758	  add_exec_reply(tree_time,process);}
  6759	
  6760	void add_mem_reply(pnt process){
  6761	  add_exec_reply(tree_memory,process);}
  6762	
  6763	
  6764	
  6765	/*****************************
  6766	 * Extend reply construction *
  6767	 *****************************/
  6768	
  6769	void add_extend_reply(pnt s){
  6770	  inputs=pair(pair(sym_extend,pair(s,T)),inputs);}
  6771	
  6772	void extend_success(){
  6773	  add_extend_reply(E);}
  6774	
  6775	void extend_failure(){
  6776	  add_extend_reply(bytevect[0]);}
  6777	
  6778	
  6779	
  6780	/***************************
  6781	 * Write request execution *
  6782	 ***************************/
  6783	
  6784	void machine_write_char(pnt x){
  6785	  printf("%c",(unsigned char)x);}
  6786	
  6787	void machine_write_string(pnt x){
  6788	  for(;TAIL(x);x=TAIL(x)){
  6789	    pnt i;
  6790	    pnt y=HEAD(x);
  6791	    for(i=0;i<bytesize;i++){
  6792	      machine_write_char(y);
  6793	      y=y>>8;}}
  6794	  for(x=HEAD(x);x>1;x=x>>8) machine_write_char(x);}
  6795	
  6796	void machine_write(pnt x){
  6797	  if(x==T) return;
  6798	  switch(ROOT(x)){
  6799	  case TAG_FALSE:
  6800	  case TAG_EX:
  6801	  case TAG_MAP:
  6802	  case TAG_OBJ:
  6803	    return;
  6804	  case TAG_INT:
  6805	  case TAG_VECT:
  6806	    machine_write_string(x);
  6807	    return;
  6808	  case TAG_PAIR:
  6809	    machine_write(HEAD(x));
  6810	    machine_write(TAIL(x));
  6811	    return;
  6812	  default:
  6813	    printf("machine_write: unknown tag\n");
  6814	    spy0(x);
  6815	    backtrace(x,100);
  6816	    die("Goodbye");}}
  6817	
  6818	void exec_write_request(){
  6819	  pnt arg;
  6820	  arg=TAIL(event);
  6821	  if(NO_PAIR(arg)) return;
  6822	  machine_write(HEAD(arg));}
  6823	
  6824	
  6825	
  6826	/**************************
  6827	 * Quit request execution *
  6828	 **************************/
  6829	
  6830	void exec_quit_request(){
  6831	  pnt arg;
  6832	  return_value=0;
  6833	  outputs=F;
  6834	  arg=TAIL(event);
  6835	  if(NO_PAIR(arg)) return;
  6836	  arg=HEAD(arg);
  6837	  if(NO_INT(arg)) return;
  6838	  return_value=(int)(spnt)(HEAD(arg));}
  6839	
  6840	
  6841	
  6842	/**************************
  6843	 * Exec Request execution *
  6844	 **************************/
  6845	
  6846	void exec_exec_request(){
  6847	  pnt arg;
  6848	  pnt process;
  6849	  pnt handler;
  6850	  arg=TAIL(event);
  6851	  if(NO_PAIR(arg)) die("exec_exec_request: malformed exec_request");
  6852	  process=HEAD(arg);
  6853	  arg=TAIL(arg);
  6854	  if(NO_PAIR(arg)) die("exec_exec_request: malformed exec_request");
  6855	  handler=HEAD(arg);
  6856	  add_exit_reply(process);
  6857	  outputs=untag(apply(handler,mapcons(inputs)));
  6858	  inputs=T;}
  6859	
  6860	
  6861	
  6862	/**************************
  6863	 * Read request execution *
  6864	 **************************/
  6865	
  6866	void exec_read_request(){
  6867	  add_read_reply();}
  6868	
  6869	
  6870	
  6871	/****************************
  6872	 * Extend request execution *
  6873	 ****************************/
  6874	
  6875	#define BUFSIZE 1000000
  6876	unsigned char buf[BUFSIZE];
  6877	int bufpnt=0;
  6878	int bufcnt=0;
  6879	
  6880	void dldie(char *msg){
  6881	  printf("%s: %s\n",msg,dlerror());
  6882	  deathReport();
  6883	  exit(1);}
  6884	
  6885	void bufferflush(int fd){
  6886	  ssize_t written;
  6887	  bufcnt=0;
  6888	  while(bufcnt<bufpnt){
  6889	    written=write(fd,&(buf[bufcnt]),bufpnt-bufcnt);
  6890	    if(written<0) pdie("write()");
  6891	    bufcnt+=written;}
  6892	  bufpnt=0;}
  6893	
  6894	void putch(int fd,pnt c){
  6895	  if(bufpnt>=BUFSIZE) bufferflush(fd);
  6896	  buf[bufpnt++]=c;}
  6897	
  6898	void vector2file(int fd,pnt x){
  6899	  pnt i;
  6900	  for(;TAIL(x);x=TAIL(x))
  6901	  for(i=0;i<bytesize;i++)
  6902	  putch(fd,HEAD(x)>>(8*i));
  6903	  for(x=HEAD(x);x>255;x=x>>8)
  6904	  putch(fd,x);}
  6905	
  6906	void vt2file1(int fd,pnt x){
  6907	  if(x==T) return;
  6908	  switch(ROOT(x)){
  6909	  case TAG_FALSE:
  6910	  case TAG_MAP:
  6911	  case TAG_OBJ:
  6912	    return;
  6913	  case TAG_INT:
  6914	  case TAG_VECT:
  6915	    if(negative(x)) return;
  6916	    vector2file(fd,x);
  6917	    return;
  6918	  case TAG_PAIR:
  6919	    vt2file1(fd,HEAD(x));
  6920	    vt2file1(fd,TAIL(x));
  6921	    return;
  6922	  default:
  6923	    unexpected_tag("vt2file",x);}}
  6924	
  6925	void vt2file(int fd,pnt x){
  6926	  bufpnt=0;
  6927	  vt2file1(fd,x);
  6928	  bufferflush(fd);}
  6929	
  6930	/*
  6931	Create directories containing given path. Examples:
  6932	Given path abc/def/ghi create abc/ and abc/def/.
  6933	Given path abc/def/ghi/ create abc/, abc/def/, and abc/def/ghi/.
  6934	*/
  6935	void mkdir_p(char *path){
  6936	  char *bufpnt;
  6937	  int result=0;
  6938	  if(*path==0) return;
  6939	  for(bufpnt=path+1;*bufpnt!=0;bufpnt++)
  6940	  if(*bufpnt=='/'){*bufpnt=0;result=mkdir(path,0777);*bufpnt='/';}
  6941	  if(result==0||errno==EEXIST) return;
  6942	  printf("mkdir -p %s\n",path);
  6943	  pdie("mkdir()");}
  6944	
  6945	void *vt2dl(pnt vt){
  6946	  char *path=get_lgw_path();
  6947	  char filename_so[PATHSIZE];
  6948	  char filename_c[PATHSIZE];
  6949	  char *hash=(char *)vt2hash(vt);
  6950	  int fd;
  6951	  pid_t pid;
  6952	  int status;
  6953	  void *dl;
  6954	  make_path(filename_so,PATHSIZE,path,"dll/",hash,".so");
  6955	  dl=dlopen(filename_so,RTLD_NOW);
  6956	  if(dl) return dl;
  6957	  make_path(filename_c,PATHSIZE,path,"dll/",hash,".c");
  6958	  mkdir_p(filename_c);
  6959	/*
  6960	  unsigned char filename_dir[PATHSIZE];
  6961	  make_path((char *)filename_dir,PATHSIZE,path,"","","dll/");
  6962	  if(mkdir(filename_dir,0777)<0) if(errno!=EEXIST){
  6963	    perror("mkdir()");
  6964	    return NIL;}
  6965	*/
  6966	  fd=open(filename_c,O_WRONLY|O_CREAT|O_EXCL,0666);
  6967	  if(fd>=0){vt2file(fd,vt);close(fd);}
  6968	  else if(errno!=EEXIST){printf("%s\n",filename_c);perror("open()");return NIL;}
  6969	  pid=fork();
  6970	  if(pid<0){perror("fork()");return NIL;}
  6971	  if(pid==0){
  6972	    execl("/usr/bin/gcc","/usr/bin/gcc","-x","c","-pipe",filename_c,
  6973	#ifndef __CYGWIN__
  6974	    "-fPIC",
  6975	#endif /* __CYGWIN__ */
  6976	    "-shared","-Wl,-soname,dl.so","-o",filename_so,(char *)NULL);
  6977	    perror("execl()");
  6978	    return NIL;}
  6979	  if(wait(&status)<0){perror("wait()");return NIL;}
  6980	  if(!WIFEXITED(status)){printf("Abnormal termination of gcc()\n");return NIL;}
  6981	  if(WEXITSTATUS(status)!=0){printf("gcc() exited due to error\n");return NIL;}
  6982	  dl=dlopen(filename_so,RTLD_NOW);
  6983	  if(!dl){printf("dlopen(): %s\n",dlerror());return NIL;}
  6984	  return dl;}
  6985	
  6986	pnt exec_extend_request1(){
  6987	  pnt arg;
  6988	  pnt arg1;
  6989	  pnt arg2;
  6990	  pnt ref;
  6991	  pnt idx;
  6992	  Trigger trigger;
  6993	  void *dl;
  6994	  arg=TAIL(event);
  6995	  if(NO_PAIR(arg)) return FALSE;
  6996	  arg1=HEAD(arg);
  6997	  arg=TAIL(arg);
  6998	  if(NO_PAIR(arg)) return FALSE; 
  6999	  arg2=HEAD(arg);
  7000	  if(NO_PAIR(arg1)) return FALSE;
  7001	  arg=HEAD(arg1);
  7002	  if(NO_PAIR(arg)) return FALSE;
  7003	  ref=HEAD(arg);
  7004	  if(NO_INT(ref)) return FALSE;
  7005	  arg=TAIL(arg);
  7006	  if(NO_PAIR(arg)) return FALSE;
  7007	  idx=HEAD(arg);
  7008	  if(NO_INT(idx)) return FALSE;
  7009	  dl=vt2dl(arg2);
  7010	  if(!dl) return FALSE;
  7011	  trigger=dlsym(dl,"trigger");
  7012	  if(!trigger){printf("dlsym(): %s\n",dlerror());return FALSE;}
  7013	  extensions=mput2(extensions,cons2(TAG_FALSE,(pnt)trigger,NIL),ref,idx);
  7014	  return TRUE;}
  7015	
  7016	void exec_extend_request(){
  7017	  if(exec_extend_request1())
  7018	  extend_success();
  7019	  else
  7020	  extend_failure();}
  7021	
  7022	
  7023	
  7024	/*****************************
  7025	 * Execution of other events *
  7026	 *****************************/
  7027	
  7028	void dll_write_string(Trigger trigger,pnt x){
  7029	  pnt i;
  7030	  pnt y;
  7031	  for(;TAIL(x);x=TAIL(x)){
  7032	    y=HEAD(x);
  7033	    for(i=0;i<bytesize;i++){
  7034	      (*trigger)((int)(y&0xFF));
  7035	      y=y>>8;}}
  7036	  for(y=HEAD(x);y>1;y=y>>8) (*trigger)((int)(y&0xFF));}
  7037	
  7038	void dll_write(Trigger trigger,pnt x){
  7039	  if(x==T) return;
  7040	  switch(ROOT(x)){
  7041	  case TAG_FALSE:
  7042	  case TAG_EX:
  7043	  case TAG_MAP:
  7044	  case TAG_OBJ:
  7045	    return;
  7046	  case TAG_INT:
  7047	  case TAG_VECT:
  7048	    dll_write_string(trigger,x);
  7049	    return;
  7050	  case TAG_PAIR:
  7051	    dll_write(trigger,HEAD(x));
  7052	    dll_write(trigger,TAIL(x));
  7053	    return;
  7054	  default:
  7055	    printf("dll_write: unknown tag\n");
  7056	    spy0(x);
  7057	    backtrace(x,100);
  7058	    die("Goodbye");}}
  7059	
  7060	void exec_other_request(pnt root,pnt ref,pnt idx){
  7061	  pnt trigger1=mget2(extensions,ref,idx);
  7062	  Trigger trigger;
  7063	  pnt arg;
  7064	  int c;
  7065	  pnt list;
  7066	  if(trigger1==T){
  7067	    printf("Unknown event:\n");
  7068	    printf("ref=");
  7069	    spy0(ref);
  7070	    printf("idx=");
  7071	    spy0(idx);
  7072	    return;}
  7073	  trigger=(Trigger)(HEAD(trigger1));
  7074	  arg=TAIL(event);
  7075	  if(NO_PAIR(arg)) return;
  7076	  dll_write(trigger,HEAD(arg));
  7077	  list=T;
  7078	  for(;;){
  7079	    c=(*trigger)(-1);
  7080	    if(c<0) break;
  7081	    list=pair(bytevect[c],list);}
  7082	  if(list!=T){
  7083	    pnt before=T;
  7084	    pnt after=TAIL(list);
  7085	    for(;;){
  7086	      TAIL(list)=before;
  7087	      if(after==T) break;
  7088	      before=list;
  7089	      list=after;
  7090	      after=TAIL(list);}}
  7091	  inputs=pair(pair(root,pair(list,T)),inputs);}
  7092	
  7093	
  7094	
  7095	/*********************
  7096	 * Machine execution *
  7097	 *********************/
  7098	
  7099	pnt apply_handler1(pnt handler,pnt inputs){
  7100	  return untag1(map_apply(untag1(untag(handler)),inputs));}
  7101	
  7102	pnt apply_handler(pnt handler,pnt inputs){
  7103	  return ret(2,untag(apply(save(untag(handler)),save(mapcons(inputs)))));}
  7104	
  7105	int runmachine(pnt handler,char *argv[],char *env[],pnt cache,pnt defaults){
  7106	  pnt root;
  7107	  pnt ref;
  7108	  pnt idx;
  7109	  if(NO_MAP(handler)) die("runmachine: no handler found");
  7110	  inputs=T;
  7111	  add_boot_event(argv,env,cache,defaults);
  7112	  outputs=apply_handler(handler,inputs);
  7113	  inputs=T;
  7114	  while(outputs!=F){
  7115	    if(outputs==T) return 0;
  7116	    if(IS_EX(outputs)) die("runmachine: unhandled exception");
  7117	    if(GD_PAIR(outputs)) die("runmachine: output events do not form a list");
  7118	    event=head(outputs);
  7119	    outputs=tail(outputs);
  7120	    if(NO_PAIR(event)) die("runmachine: output events must be pairs");
  7121	    root=head(event);
  7122	    if(NO_PAIR(event)) die("runmachine: event roots must be pairs");
  7123	    ref=HEAD(root);
  7124	    if(NO_INT(ref)) die("runmachine: event references must be integers");
  7125	    idx=TAIL(root);
  7126	    if(NO_PAIR(idx)) die("runmachine: event root tails must be pairs");
  7127	    idx=HEAD(idx);
  7128	    if(NO_INT(idx)) die("runmachine: event indexes must be integers");
  7129	    if(ref!=Z) exec_other_request(root,ref,idx);
  7130	    else if(eq0(idx,const_quit)) exec_quit_request();
  7131	    else if(eq0(idx,const_write)) exec_write_request();
  7132	    else if(eq0(idx,const_exec)) exec_exec_request();
  7133	    else if(eq0(idx,const_read)) exec_read_request();
  7134	    else if(eq0(idx,const_extend)) exec_extend_request();
  7135	    else exec_other_request(root,ref,idx);}
  7136	  return return_value;}
  7137	
  7138	
  7139	
  7140	/********************
  7141	 * Script execution *
  7142	 ********************/
  7143	
  7144	pnt get_handler(pnt assoc,pnt index){
  7145	  if(tail(assoc)==T) return T;
  7146	  if(eq0(index,term2idx(term2arg1(term2arg1(assoc)))))
  7147	  return term2arg1(term2arg2(term2arg1(assoc)));
  7148	  return get_handler(term2arg2(assoc),index);}
  7149	
  7150	pnt term2code(pnt caches,pnt term){
  7151	  pnt ref=term2ref(term);
  7152	  pnt idx=term2idx(term);
  7153	  pnt code;
  7154	  if(NO_INT(ref)) return T;
  7155	  if(NO_INT(idx)) return T;
  7156	  code=codeget(caches,ref,idx);
  7157	  if(NO_MAP(code)) return T;
  7158	  return code;}
  7159	
  7160	/*
  7161	Interpret argv[2] as a script.
  7162	*/
  7163	int runscript(int argc,char *argv[],char *env[]){
  7164	  pnt ref;
  7165	  pnt cache;
  7166	  pnt handler;
  7167	  pnt defaults;
  7168	  unsigned char type[PATHSIZE]; /* script type */
  7169	  unsigned char pref[PATHSIZE]; /* page reference */
  7170	  unsigned char sref[PATHSIZE]; /* symbol reference */
  7171	  unsigned char sidx[PATHSIZE]; /* symbol index */
  7172	  unsigned char aref[PATHSIZE]; /* aspect reference */
  7173	  unsigned char aidx[PATHSIZE]; /* aspect index */
  7174	  unsigned char name[PATHSIZE]; /* machine name */
  7175	  preload(FALSE);
  7176	  pagereuse();
  7177	  if(argc<=2) xdie("Usage: lgwam script <filename>");
  7178	  if(mmap1("runscript",argv[2])) die("runscript: cannot open script file");
  7179	  readln(type);
  7180	  if(STREQ(argv[1],"testrun")){
  7181	    readln(pref);
  7182	    munmap1();
  7183	    ref=string2ref(pref);
  7184	    cache=loadcache(ref);
  7185	    testsuite();
  7186	    return 0;}
  7187	  else if(STREQ(type,"string")){
  7188	    readln(pref);
  7189	    readln(sidx);
  7190	    readln(aidx);
  7191	    push(defaults=fd_strings2pnt());
  7192	    munmap1();
  7193	    ref=string2ref(pref);
  7194	    cache=loadcache(ref);
  7195	    handler=codexget(state,ref);
  7196	    handler=aget(handler,Z);
  7197	    handler=aget(handler,str2vec0(sidx));
  7198	    handler=aget(handler,Z);
  7199	    handler=aget(handler,str2vec0(aidx));
  7200	    handler=def2rhs(handler);
  7201	    handler=term2arg1(handler);
  7202	    handler=term2code(state,handler);}
  7203	  else if(STREQ(type,"execute")){
  7204	    readln(pref);
  7205	    push(defaults=fd_strings2pnt());
  7206	    munmap1();
  7207	    ref=string2ref(pref);
  7208	    cache=loadcache(ref);
  7209	    handler=defget(state,ref,Z,const_execute);
  7210	    handler=def2rhs(handler);
  7211	    handler=term2code(state,handler);}
  7212	  else if(STREQ(type,"executables")){
  7213	    readln(pref);
  7214	    readln(name);
  7215	    push(defaults=fd_strings2pnt());
  7216	    munmap1();
  7217	    ref=string2ref(pref);
  7218	    cache=loadcache(ref);
  7219	    handler=defget(state,ref,Z,const_executables);
  7220	    handler=def2rhs(handler);
  7221	    handler=get_handler(handler,str2vec0(name));
  7222	    handler=term2code(state,handler);}
  7223	  else if(STREQ(type,"codex")){
  7224	    readln(pref);
  7225	    readln(sref);
  7226	    readln(sidx);
  7227	    readln(aref);
  7228	    readln(aidx);
  7229	    push(defaults=fd_strings2pnt());
  7230	    munmap1();
  7231	    ref=string2ref(pref);
  7232	    cache=loadcache(ref);
  7233	    handler=codexget(state,ref);
  7234	    handler=aget(handler,string2ref(sref));
  7235	    handler=aget(handler,str2int0(sidx));
  7236	    handler=aget(handler,string2ref(aref));
  7237	    handler=aget(handler,str2int0(aidx));
  7238	    handler=def2rhs(handler);
  7239	    handler=term2code(state,handler);}
  7240	  else if(STREQ(type,"assoc")){
  7241	    readln(pref);
  7242	    readln(sref);
  7243	    readln(sidx);
  7244	    readln(aref);
  7245	    readln(aidx);
  7246	    readln(name);
  7247	    push(defaults=fd_strings2pnt());
  7248	    munmap1();
  7249	    ref=string2ref(pref);
  7250	    cache=loadcache(ref);
  7251	    handler=codexget(state,ref);
  7252	    handler=aget(handler,string2ref(sref));
  7253	    handler=aget(handler,str2int0(sidx));
  7254	    handler=aget(handler,string2ref(aref));
  7255	    handler=aget(handler,str2int0(aidx));
  7256	    handler=def2rhs(handler);
  7257	    handler=get_handler(handler,str2vec0(name));
  7258	    handler=term2code(state,handler);}
  7259	  else{
  7260	    die("runscript: Unknown method");
  7261	    return 0; /* This never happens */}
  7262	  return runmachine(handler,argv,env,cache,defaults);}
  7263	
  7264	
  7265	
  7266	/**************
  7267	 * TEST SUITE *
  7268	 **************/
  7269	
  7270	/***********************
  7271	 * Auxiliary functions *
  7272	 ***********************/
  7273	
  7274	/* Apply untagged function */
  7275	#define U_0(f)         U_0x(f)
  7276	#define U_1(f,x)       U_1x(f,save(x))
  7277	#define U_2(f,x,y)     U_2x(f,save(x),save(y))
  7278	#define U_3(f,x,y,z)   U_3x(f,save(x),save(y),save(z))
  7279	#define U_4(f,x,y,z,v) U_4x(f,save(x),save(y),save(z),save(v))
  7280	pnt U_0x(pnt f){
  7281	  return HEAD(f);}
  7282	pnt U_1x(pnt f,pnt x){
  7283	  return ret(1,map_apply(HEAD(f),x));}
  7284	pnt U_2x(pnt f,pnt x,pnt y){
  7285	  return ret(2,map_apply(map_apply(HEAD(f),x),y));}
  7286	pnt U_3x(pnt f,pnt x,pnt y,pnt z){
  7287	  return ret(3,map_apply(map_apply(map_apply(HEAD(f),x),y),z));}
  7288	pnt U_4x(pnt f,pnt x,pnt y,pnt z,pnt v){
  7289	  return ret(4,map_apply(map_apply(map_apply(map_apply(HEAD(f),x),y),z),v));}
  7290	
  7291	/* Apply tagged function */
  7292	#define M_0(f)       M_0x(f)
  7293	#define M_1(f,x)     M_1x(f,save(x))
  7294	#define M_2(f,x,y)   M_2x(f,save(x),save(y))
  7295	#define M_3(f,x,y,z) M_3x(f,save(x),save(y),save(z))
  7296	pnt M_0x(pnt f)                  {return f;}
  7297	pnt M_1x(pnt f,pnt x)            {return ret(1,apply(f,x));}
  7298	pnt M_2x(pnt f,pnt x,pnt y)      {return ret(2,apply(apply(f,x),y));}
  7299	pnt M_3x(pnt f,pnt x,pnt y,pnt z){return ret(3,apply(apply(apply(f,x),y),z));}
  7300	
  7301	/* Safe versions of functions */
  7302	/*#define PAIR(x,y) SCONS(TAG_PAIR,x,y)*/
  7303	/*#define EQ(x,y) (push(x),push(y),ret(2,eq(stack[sp],stack[sp+1])))*/
  7304	#define PAIR(x,y) ret(2,pair(save(x),save(y)))
  7305	#define EQ(x,y) ret(2,eq(save(x),save(y)))
  7306	#define APPLY(x,y) ret(2,apply(save(x),save(y)))
  7307	
  7308	/* Term constructors */
  7309	pnt map_arg1(pnt x){
  7310	  return map_pair(closure(x,NIL),NIL);}
  7311	pnt map_arg2(pnt x,pnt y){
  7312	  return MAP_PAIR(closure(x,NIL),map_arg1(y));}
  7313	pnt map_arg3(pnt x,pnt y,pnt z){
  7314	  return MAP_PAIR(closure(x,NIL),map_arg2(y,z));}
  7315	pnt term_eval(pnt x){
  7316	  return term2rnf(x,NIL);}
  7317	pnt term_eval1(pnt x,pnt a){
  7318	  push(x);
  7319	  return ret(1,term2rnf(x,map_arg1(a)));}
  7320	pnt term_eval2(pnt x,pnt a,pnt b){
  7321	  push(x);
  7322	  return ret(1,term2rnf(x,map_arg2(a,b)));}
  7323	pnt term_eval3(pnt x,pnt a,pnt b,pnt c){
  7324	  push(x);
  7325	  return ret(1,term2rnf(x,map_arg3(a,b,c)));}
  7326	pnt term_if(pnt x,pnt y,pnt z){
  7327	  return term_apply(term_pair(y,z),x);}
  7328	pnt term_p(pnt head,pnt tail){
  7329	  return term_lambda(term_if(var_0,head,tail));}
  7330	pnt term_hd(pnt pair){
  7331	  return term_apply(pair,term_t);}
  7332	pnt term_tl(pnt pair){
  7333	  return term_apply(pair,term_f);}
  7334	
  7335	/* Untagged cardinals */
  7336	#define UCARD(x) str2ucard(#x)
  7337	pnt str2ucard(char *str){
  7338	  return map_tail(map_tail(str2int(str)));}
  7339	
  7340	/* Eager functions */
  7341	#define E0(fct) cons(ETAG_##fct,T,T)
  7342	#define E1(fct,x) cons(ETAG_##fct,T,x)
  7343	#define E2(fct,x,y) SCONS(ETAG_##fct,x,y)
  7344	#define E3(fct,x,y,z) SCONS(ETAG_##fct,x,PAIR(y,z))
  7345	
  7346	pnt eval0(pnt term){
  7347	  push(term);
  7348	  return ret(1,eval(term,T));}
  7349	
  7350	pnt eval1(pnt term,pnt x){
  7351	  push(term);
  7352	  push(pair(x,T));
  7353	  return ret(2,eval(term,TOP));}
  7354	
  7355	pnt eval2(pnt term,pnt x,pnt y){
  7356	  push(term);
  7357	  push(x);
  7358	  push(pair(y,T));
  7359	  TOP=pair(x,TOP);
  7360	  return ret(3,eval(term,TOP));}
  7361	
  7362	pnt term_ecall2(pnt fct,pnt arg1,pnt arg2){
  7363	  push(fct);
  7364	  push(arg1);
  7365	  push(pair(arg2,T));
  7366	  TOP=pair(arg1,TOP);
  7367	  return ret(3,term_ecall(fct,TOP));}
  7368	
  7369	
  7370	
  7371	/***********************
  7372	 * Debugging functions *
  7373	 ***********************/
  7374	
  7375	void diffdie(pnt x,pnt y,pnt z){
  7376	  spy0(x);
  7377	  spy0(y);
  7378	  spy0(z);
  7379	  die("diff");}
  7380	
  7381	void diff0(pnt x,pnt y,pnt z){
  7382	  pnt x1;
  7383	  pnt y1;
  7384	spy0(z);
  7385	  if(x==T){if(y==T) return; else diffdie(x,y,z);}
  7386	  if(y==T) diffdie(x,y,z);
  7387	  x1=ROOT(x);
  7388	  y1=ROOT(y);
  7389	  x1=(x1==TAG_VECT)?TAG_INT:x1;
  7390	  y1=(y1==TAG_VECT)?TAG_INT:y1;
  7391	  if(x1!=y1) diffdie(x,y,z);
  7392	  switch(x1){
  7393	  case TAG_FALSE:
  7394	  case TAG_MAP:
  7395	    return;
  7396	  case TAG_INT:
  7397	    while(TRUE){
  7398	      if(HEAD(x)!=HEAD(y)) diffdie(x,y,z);
  7399	      x=TAIL(x);
  7400	      y=TAIL(y);
  7401	      if(!x){if(!y) return; else diffdie(x,y,z);}
  7402	      if(!y) diffdie(x,y,z);}
  7403	  case TAG_EX:
  7404	    diffdie(x,y,z);
  7405	  case TAG_PAIR:
  7406	  case TAG_OBJ:
  7407	    diff0(HEAD(x),HEAD(y),pair(N(0),z));
  7408	    diff0(TAIL(x),TAIL(y),pair(N(1),z));
  7409	    return;
  7410	  default:
  7411	    unexpected_tag("diff0",x);}}
  7412	
  7413	void diff(pnt x,pnt y){
  7414	  push(x);
  7415	  push(y);
  7416	  diff0(x,y,T);
  7417	  pop();
  7418	  pop();}
  7419	
  7420	#define EQFAIL {spy0(x);spy0(y);return FALSE;}
  7421	#define EQSUCC {return TRUE;}
  7422	#define EQCALL(n,z,x,y) (result=eq1(x,y),(result?0:eqspy(n,z)),result)
  7423	
  7424	pnt eqspy(char *n,pnt z){
  7425	  printf("%s ",n);
  7426	  if(z==T){printf("T\n");return 0;}
  7427	  switch(ROOT(z)){
  7428	  case TAG_FALSE:
  7429	  case TAG_INT:
  7430	  case TAG_VECT:
  7431	    spy0(z);
  7432	    return 0;
  7433	  case TAG_MAP:
  7434	    printf("map\n");
  7435	    return 0;
  7436	  case TAG_PAIR:
  7437	    printf("pair\n");
  7438	    return 0;
  7439	  case TAG_OBJ:
  7440	    printf("object\n");
  7441	    return 0;
  7442	  default:
  7443	    unexpected_tag("eqspy",z);
  7444	    return T;}}
  7445	
  7446	pnt eq1(pnt x,pnt y){
  7447	  pnt x1;
  7448	  pnt y1;
  7449	  pnt result;
  7450	  if(x==T){if(y==T) EQSUCC else EQFAIL}
  7451	  if(y==T) EQFAIL
  7452	  x1=ROOT(x);
  7453	  y1=ROOT(y);
  7454	  x1=(x1==TAG_VECT)?TAG_INT:x1;
  7455	  y1=(y1==TAG_VECT)?TAG_INT:y1;
  7456	  if(x1!=y1) EQFAIL
  7457	  switch(x1){
  7458	  case TAG_FALSE:
  7459	  case TAG_MAP:
  7460	    EQSUCC
  7461	  case TAG_INT:
  7462	    while(TRUE){
  7463	      if(HEAD(x)!=HEAD(y)) EQFAIL
  7464	      x=TAIL(x);
  7465	      y=TAIL(y);
  7466	      if(!x){if(!y) EQSUCC else EQFAIL}
  7467	      if(!y) EQFAIL}
  7468	  case TAG_EX: /* only for the sake of etst */
  7469	    if(eq1(HEAD(x),HEAD(y))) EQSUCC else EQFAIL
  7470	  case TAG_PAIR:
  7471	  case TAG_OBJ:
  7472	    return EQCALL("head",T,HEAD(x),HEAD(y))
  7473	    && EQCALL("tail",HEAD(x),TAIL(x),TAIL(y));
  7474	  default:
  7475	    unexpected_tag("eq1",x);
  7476	    return T;}}
  7477	
  7478	pnt eq2(pnt x,pnt y){
  7479	  push(x);
  7480	  push(y);
  7481	  return ret(2,eq1(x,y));}
  7482	
  7483	
  7484	
  7485	/************************
  7486	 * The testsuite itself *
  7487	 ************************/
  7488	
  7489	#ifndef FULL_TESTSUITE
  7490	void testsuite(){
  7491	  testcnt=0;
  7492	  printf("This version of lgwam is compiled with a small testsuite\n");
  7493	  printf("which just contains a few test cases. To get the big one\n");
  7494	  printf("with thousands of tests, recompile lgwam.c using 'make full'.\n");
  7495	  etst(plus(N(-1000000000000),N(1000000)),N(-0999999000000))
  7496	  etst(times(N(-1000000000000),N(-100)),N(100000000000000))
  7497	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 7)),V(cdefg))
  7498	  printf("%s tests succeeded.\n",ptoa(testcnt));}
  7499	#else
  7500	void testsuite(){
  7501	  pnt Z0000= 0;
  7502	  pnt Z0001= 1;
  7503	  pnt Z0010= 2;
  7504	  pnt Z0011= 3;
  7505	  pnt Z0100= 4;
  7506	  pnt Z0101= 5;
  7507	  pnt Z0110= 6;
  7508	  pnt Z0111= 7;
  7509	  pnt Z1000= 8;
  7510	/*pnt Z1001= 9; Happens to be unused */
  7511	  pnt Z1010=10;
  7512	/*pnt Z1011=11; Happens to be unused */
  7513	  pnt Z1100=12;
  7514	/*pnt Z1101=13; Happens to be unused */
  7515	  pnt Z1110=14;
  7516	/*pnt Z1111=15; Happens to be unused */
  7517	/*pnt M0000= 0-16; Happens to be unused */
  7518	  pnt M0001= 1-16;
  7519	/*pnt M0010= 2-16; Happens to be unused */
  7520	  pnt M0011= 3-16;
  7521	/*pnt M0100= 4-16; Happens to be unused */
  7522	  pnt M0101= 5-16;
  7523	  pnt M0110= 6-16;
  7524	  pnt M0111= 7-16;
  7525	  pnt M1000= 8-16;
  7526	/*pnt M1001= 9-16; Happens to be unused */
  7527	  pnt M1010=10-16;
  7528	  pnt M1011=11-16;
  7529	  pnt M1100=12-16;
  7530	  pnt M1101=13-16;
  7531	  pnt M1110=14-16;
  7532	/*pnt M1111=15-16; Happens to be unused */
  7533	  DEFC(TT,T);
  7534	  DEFC(FF,F);
  7535	  DEFC(XX,X);
  7536	  DEFC(I0,Z);
  7537	  DEFC(J1,M);
  7538	  DEFC(J2,JN(-2));
  7539	  DEFC(EE,E);
  7540	  DEFC(I0000,I[Z0000]);
  7541	  DEFC(I0001,I[Z0001]);
  7542	  DEFC(I0010,I[Z0010]);
  7543	  DEFC(I0011,I[Z0011]);
  7544	  DEFC(I0100,I[Z0100]);
  7545	  DEFC(I0101,I[Z0101]);
  7546	  DEFC(I0110,I[Z0110]);
  7547	  DEFC(I0111,I[Z0111]);
  7548	  DEFC(I1000,I[Z1000]);
  7549	/*DEFC(I1001,I[Z1001]); Happens to be unused */
  7550	  DEFC(I1010,I[Z1010]);
  7551	/*DEFC(I1011,I[Z1011]); Happens to be unused */
  7552	  DEFC(I1100,I[Z1100]);
  7553	/*DEFC(I1101,I[Z1101]); Happens to be unused */
  7554	  DEFC(I1110,I[Z1110]);
  7555	/*DEFC(I1111,I[Z1111]); Happens to be unused */
  7556	/*DEFC(J0000,JN(M0000)); Happens to be unused */
  7557	  DEFC(J0001,JN(M0001));
  7558	/*DEFC(J0010,JN(M0010)); Happens to be unused */
  7559	  DEFC(J0011,JN(M0011));
  7560	/*DEFC(J0100,JN(M0100)); Happens to be unused */
  7561	  DEFC(J0101,JN(M0101));
  7562	  DEFC(J0110,JN(M0110));
  7563	  DEFC(J0111,JN(M0111));
  7564	  DEFC(J1000,JN(M1000));
  7565	/*DEFC(J1001,JN(M1001)); Happens to be unused */
  7566	  DEFC(J1010,JN(M1010));
  7567	/*DEFC(J1011,JN(M1011)); Happens to be unused */
  7568	  DEFC(J1100,JN(M1100));
  7569	  DEFC(J1101,JN(M1101));
  7570	  DEFC(J1110,JN(M1110));
  7571	/*DEFC(J1111,JN(M1111)); Happens to be unused */
  7572	/*DEFC(I0000_0000,intcons(Z0000,I0000)); Happens to be unused */
  7573	  DEFC(I0001_1000,intcons(Z0001,I1000));
  7574	/*DEFC(I0010_0100,intcons(Z0010,I0100)); Happens to be unused */
  7575	  DEFC(I0011_1100,intcons(Z0011,I1100));
  7576	  DEFC(I0100_0010,intcons(Z0100,I0010));
  7577	  DEFC(I0101_1010,intcons(Z0101,I1010));
  7578	  DEFC(I0110_0110,intcons(Z0110,I0110));
  7579	  DEFC(I0111_1110,intcons(Z0111,I1110));
  7580	  DEFC(I1000_0001,intcons(Z1000,I0001));
  7581	/*DEFC(I1001_1001,intcons(Z1001,I1001)); Happens to be unused */
  7582	  DEFC(I1010_0101,intcons(Z1010,I0101));
  7583	/*DEFC(I1011_1101,intcons(Z1011,I1101)); Happens to be unused */
  7584	  DEFC(I1100_0011,intcons(Z1100,I0011));
  7585	/*DEFC(I1101_1011,intcons(Z1101,I1011)); Happens to be unused */
  7586	/*DEFC(I1110_0111,intcons(Z1110,I0111)); Happens to be unused */
  7587	/*DEFC(I1111_1111,intcons(Z1111,I1111)); Happens to be unused */
  7588	/*DEFC(J0000_0000,intcons(M0000,J0000)); Happens to be unused */
  7589	  DEFC(J0001_1000,intcons(M0001,J1000));
  7590	/*DEFC(J0010_0100,intcons(M0010,J0100)); Happens to be unused */
  7591	  DEFC(J0011_1100,intcons(M0011,J1100));
  7592	/*DEFC(J0100_0010,intcons(M0100,J0010)); Happens to be unused */
  7593	  DEFC(J0101_1010,intcons(M0101,J1010));
  7594	  DEFC(J0110_0110,intcons(M0110,J0110));
  7595	  DEFC(J0111_1110,intcons(M0111,J1110));
  7596	  DEFC(J1000_0001,intcons(M1000,J0001));
  7597	/*DEFC(J1001_1001,intcons(M1001,J1001)); Happens to be unused */
  7598	  DEFC(J1010_0101,intcons(M1010,J0101));
  7599	  DEFC(J1011_1101,intcons(M1011,J1101));
  7600	  DEFC(J1100_0011,intcons(M1100,J0011));
  7601	/*DEFC(J1101_1011,intcons(M1101,J1011)); Happens to be unused */
  7602	  DEFC(J1110_0111,intcons(M1110,J0111));
  7603	/*DEFC(J1111_1111,intcons(M1111,J1111)); Happens to be unused */
  7604	  DEFC(I12 ,intcons(1,intcons(2,Z)));
  7605	  DEFC(I123,intcons(1,intcons(2,intcons(3,Z))));
  7606	  DEFC(I923,intcons(9,intcons(2,intcons(3,Z))));
  7607	/*DEFC(I193,intcons(1,intcons(9,intcons(3,Z)))); Happens to be unused */
  7608	  DEFC(I129,intcons(1,intcons(2,intcons(9,Z))));
  7609	  DEFC(J12 ,intcons(1,intcons(2,J1)));
  7610	  DEFC(J123,intcons(1,intcons(2,intcons(3,J1))));
  7611	  DEFC(J923,intcons(9,intcons(2,intcons(3,J1))));
  7612	/*DEFC(J193,intcons(1,intcons(9,intcons(3,J1)))); Happens to be unused */
  7613	  DEFC(J129,intcons(1,intcons(2,intcons(9,J1))));
  7614	  DEFC(Z0,Z);
  7615	  DEFC(Z1,M);
  7616	  DEFC(Z2,I1000_0001);
  7617	  DEFC(Z3,J1000_0001);
  7618	  DEFC(P0,pair(T,T));
  7619	  DEFC(P1,pair(T,F));
  7620	  DEFC(P2,pair(F,T));
  7621	  DEFC(P3,pair(F,F));
  7622	  DEFC(X0,raise0(I[0]));
  7623	  DEFC(X1,raise0(I[1]));
  7624	  DEFC(X2,raise0(I[2]));
  7625	  DEFC(X3,raise0(I[3]));
  7626	  DEFC(B0,objcons(I[1],I[2],I[3]));
  7627	  DEFC(B1,objcons(I[9],I[2],I[3]));
  7628	  DEFC(B2,objcons(I[1],I[9],I[3]));
  7629	  DEFC(B3,objcons(I[1],I[2],I[9]));
  7630	  DEFC(B,E0(bottom));
  7631	  DEFC(BB,B);
  7632	
  7633	  DEFC(UT            ,map_t);
  7634	  DEFC(UF            ,map_f);
  7635	  DEFC(UPTT          ,map_pair(map_t,map_t));
  7636	  DEFC(UPTF          ,map_pair(map_t,map_f));
  7637	  DEFC(UPFT          ,map_pair(map_f,map_t));
  7638	  DEFC(UPFF          ,map_pair(map_f,map_f));
  7639	  DEFC(UPPTTPTT      ,map_pair(UPTT,UPTT));
  7640	  DEFC(UPPTTPTF      ,map_pair(UPTT,UPTF));
  7641	  DEFC(UPPTTPFT      ,map_pair(UPTT,UPFT));
  7642	  DEFC(UPPTTPFF      ,map_pair(UPTT,UPFF));
  7643	  DEFC(UPPTFPTT      ,map_pair(UPTF,UPTT));
  7644	  DEFC(UPPTFPTF      ,map_pair(UPTF,UPTF));
  7645	  DEFC(UPPTFPFT      ,map_pair(UPTF,UPFT));
  7646	  DEFC(UPPTFPFF      ,map_pair(UPTF,UPFF));
  7647	  DEFC(UPPFTPTT      ,map_pair(UPFT,UPTT));
  7648	  DEFC(UPPFTPTF      ,map_pair(UPFT,UPTF));
  7649	  DEFC(UPPFTPFT      ,map_pair(UPFT,UPFT));
  7650	  DEFC(UPPFTPFF      ,map_pair(UPFT,UPFF));
  7651	  DEFC(UPPFFPTT      ,map_pair(UPFF,UPTT));
  7652	  DEFC(UPPFFPTF      ,map_pair(UPFF,UPTF));
  7653	  DEFC(UPPFFPFT      ,map_pair(UPFF,UPFT));
  7654	  DEFC(UPPFFPFF      ,map_pair(UPFF,UPFF));
  7655	
  7656	  DEFC(term_i  ,term_lambda(var_0));
  7657	  DEFC(term_k  ,term_lambda(term_lambda(var_1)));
  7658	  DEFC(term_ki ,term_lambda(term_lambda(var_0)));
  7659	  DEFC(term_y1 ,term_lambda(term_apply(var_1,term_apply(var_0,var_0))));
  7660	  DEFC(term_y  ,term_lambda(term_apply(term_y1,term_y1)));
  7661	  DEFC(term_yk ,term_apply(term_y,term_k));
  7662	  DEFC(term_yki,term_apply(term_y,term_ki));
  7663	  DEFC(term_ptx,term_lambda(term_pair(term_t,var_0)));
  7664	  DEFC(term_pxt,term_lambda(term_pair(var_0,term_t)));
  7665	  DEFC(term_pxy,term_lambda(term_lambda(term_pair(var_1,var_0))));
  7666	  DEFC(term_pyx,term_lambda(term_lambda(term_pair(var_0,var_1))));
  7667	
  7668	  DEFC(UI  ,term_eval(term_i  ));
  7669	  DEFC(UK  ,term_eval(term_k  ));
  7670	  DEFC(UKI ,term_eval(term_ki ));
  7671	/*DEFC(UY1 ,term_eval(term_y1 )); Happens to be unused */
  7672	  DEFC(UY  ,term_eval(term_y  ));
  7673	  DEFC(UYK ,term_eval(term_yk ));
  7674	  DEFC(UYKI,term_eval(term_yki));
  7675	  DEFC(UPTX,term_eval(term_ptx));
  7676	  DEFC(UPXT,term_eval(term_pxt));
  7677	  DEFC(UPXY,term_eval(term_pxy));
  7678	  DEFC(UPYX,term_eval(term_pyx));
  7679	
  7680	  DEFC(MT            ,mapcons(UT      ));
  7681	  DEFC(MF            ,mapcons(UF      ));
  7682	  DEFC(MPTT          ,mapcons(UPTT    ));
  7683	  DEFC(MPTF          ,mapcons(UPTF    ));
  7684	  DEFC(MPFT          ,mapcons(UPFT    ));
  7685	  DEFC(MPFF          ,mapcons(UPFF    ));
  7686	  DEFC(MPPTTPTT      ,mapcons(UPPTTPTT));
  7687	  DEFC(MPPTTPTF      ,mapcons(UPPTTPTF));
  7688	  DEFC(MPPTTPFT      ,mapcons(UPPTTPFT));
  7689	  DEFC(MPPTTPFF      ,mapcons(UPPTTPFF));
  7690	  DEFC(MPPTFPTT      ,mapcons(UPPTFPTT));
  7691	  DEFC(MPPTFPTF      ,mapcons(UPPTFPTF));
  7692	  DEFC(MPPTFPFT      ,mapcons(UPPTFPFT));
  7693	  DEFC(MPPTFPFF      ,mapcons(UPPTFPFF));
  7694	  DEFC(MPPFTPTT      ,mapcons(UPPFTPTT));
  7695	  DEFC(MPPFTPTF      ,mapcons(UPPFTPTF));
  7696	  DEFC(MPPFTPFT      ,mapcons(UPPFTPFT));
  7697	  DEFC(MPPFTPFF      ,mapcons(UPPFTPFF));
  7698	  DEFC(MPPFFPTT      ,mapcons(UPPFFPTT));
  7699	  DEFC(MPPFFPTF      ,mapcons(UPPFFPTF));
  7700	  DEFC(MPPFFPFT      ,mapcons(UPPFFPFT));
  7701	  DEFC(MPPFFPFF      ,mapcons(UPPFFPFF));
  7702	
  7703	  DEFC(MI  ,mapcons(UI  ));
  7704	  DEFC(MK  ,mapcons(UK  ));
  7705	  DEFC(MKI ,mapcons(UKI ));
  7706	/*DEFC(MY1 ,mapcons(UY1 )); Happens to be unused */
  7707	  DEFC(MY  ,mapcons(UY  ));
  7708	  DEFC(MYK ,mapcons(UYK ));
  7709	  DEFC(MYKI,mapcons(UYKI));
  7710	  DEFC(MPTX,mapcons(UPTX));
  7711	  DEFC(MPXT,mapcons(UPXT));
  7712	  DEFC(MPXY,mapcons(UPXY));
  7713	  DEFC(MPYX,mapcons(UPYX));
  7714	
  7715	  DEFC(M0,MT);
  7716	  DEFC(M1,MF);
  7717	  DEFC(M2,MK);
  7718	  DEFC(M3,MKI);
  7719	
  7720	/* UB is Bottom: map2rnf(UB) runs forever */
  7721	  DEFC(term_b1,term_lambda(term_apply(var_0,var_0)));
  7722	  DEFC(term_b ,term_apply(term_b1,term_b1));
  7723	  DEFC(UB,closure(term_b,T));
  7724	  DEFC(MB,mapcons(UB));
  7725	
  7726	  DEFC(call_if,term_if(var_0,var_1,var_2));
  7727	  DEFC(call_apply,term_apply(var_1,var_0));
  7728	#define CALL_HEAD(x) term_call(call_apply,pair(term_t,pair(x,NIL)))
  7729	  DEFC(lambda_head,map_lambda(CALL_HEAD(var_0),NIL));
  7730	
  7731	  printf("Testsuite\n");
  7732	
  7733	  ttst(true())
  7734	
  7735	  ftst(false())
  7736	
  7737	  ttst(eq(TT,TT))
  7738	  ftst(eq(TT,FF))
  7739	  ftst(eq(TT,I0))
  7740	  ftst(eq(TT,EE))
  7741	  ftst(eq(TT,P0))
  7742	  ftst(eq(TT,M0))
  7743	  ftst(eq(TT,B0))
  7744	  ftst(eq(FF,TT))
  7745	  ttst(eq(FF,FF))
  7746	  ftst(eq(FF,I0))
  7747	  ftst(eq(FF,EE))
  7748	  ftst(eq(FF,P0))
  7749	  ftst(eq(FF,M0))
  7750	  ftst(eq(FF,B0))
  7751	  ftst(eq(I0,TT))
  7752	  ftst(eq(I0,FF))
  7753	  ttst(eq(I0,I0))
  7754	  ftst(eq(I0,EE))
  7755	  ftst(eq(I0,P0))
  7756	  ftst(eq(I0,M0))
  7757	  ftst(eq(I0,B0))
  7758	  ftst(eq(EE,TT))
  7759	  ftst(eq(EE,FF))
  7760	  ftst(eq(EE,I0))
  7761	  ttst(eq(EE,EE))
  7762	  ftst(eq(EE,P0))
  7763	  ftst(eq(EE,M0))
  7764	  ftst(eq(EE,B0))
  7765	  ftst(eq(P0,TT))
  7766	  ftst(eq(P0,FF))
  7767	  ftst(eq(P0,I0))
  7768	  ftst(eq(P0,EE))
  7769	  ttst(eq(P0,P0))
  7770	  ftst(eq(P0,M0))
  7771	  ftst(eq(P0,B0))
  7772	  ftst(eq(M0,TT))
  7773	  ftst(eq(M0,FF))
  7774	  ftst(eq(M0,I0))
  7775	  ftst(eq(M0,EE))
  7776	  ftst(eq(M0,P0))
  7777	  ttst(eq(M0,M0))
  7778	  ftst(eq(M0,B0))
  7779	  ftst(eq(B0,TT))
  7780	  ftst(eq(B0,FF))
  7781	  ftst(eq(B0,I0))
  7782	  ftst(eq(B0,EE))
  7783	  ftst(eq(B0,P0))
  7784	  ftst(eq(B0,M0))
  7785	  ttst(eq(B0,B0))
  7786	
  7787	  ttst(eq(I12 ,I12 ))
  7788	  ftst(eq(I12 ,I123))
  7789	  ftst(eq(I12 ,I923))
  7790	  ftst(eq(I12 ,I129))
  7791	  ftst(eq(I123,I12 ))
  7792	  ttst(eq(I123,I123))
  7793	  ftst(eq(I123,I923))
  7794	  ftst(eq(I123,I129))
  7795	  ftst(eq(I923,I12 ))
  7796	  ftst(eq(I923,I123))
  7797	  ttst(eq(I923,I923))
  7798	  ftst(eq(I923,I129))
  7799	  ftst(eq(I129,I12 ))
  7800	  ftst(eq(I129,I123))
  7801	  ftst(eq(I129,I923))
  7802	  ttst(eq(I129,I129))
  7803	
  7804	  ttst(eq(J12 ,J12 ))
  7805	  ftst(eq(J12 ,J123))
  7806	  ftst(eq(J12 ,J923))
  7807	  ftst(eq(J12 ,J129))
  7808	  ftst(eq(J123,J12 ))
  7809	  ttst(eq(J123,J123))
  7810	  ftst(eq(J123,J923))
  7811	  ftst(eq(J123,J129))
  7812	  ftst(eq(J923,J12 ))
  7813	  ftst(eq(J923,J123))
  7814	  ttst(eq(J923,J923))
  7815	  ftst(eq(J923,J129))
  7816	  ftst(eq(J129,J12 ))
  7817	  ftst(eq(J129,J123))
  7818	  ftst(eq(J129,J923))
  7819	  ttst(eq(J129,J129))
  7820	
  7821	  ttst(eq(EE,I[1]))
  7822	
  7823	  ttst(eq(P0,P0))
  7824	  ftst(eq(P0,P1))
  7825	  ftst(eq(P0,P2))
  7826	  ftst(eq(P0,P3))
  7827	  ftst(eq(P1,P0))
  7828	  ttst(eq(P1,P1))
  7829	  ftst(eq(P1,P2))
  7830	  ftst(eq(P1,P3))
  7831	  ftst(eq(P2,P0))
  7832	  ftst(eq(P2,P1))
  7833	  ttst(eq(P2,P2))
  7834	  ftst(eq(P2,P3))
  7835	  ftst(eq(P3,P0))
  7836	  ftst(eq(P3,P1))
  7837	  ftst(eq(P3,P2))
  7838	  ttst(eq(P3,P3))
  7839	
  7840	  ttst(eq(B0,B0))
  7841	  ftst(eq(B0,B1))
  7842	  ftst(eq(B0,B2))
  7843	  ftst(eq(B0,B3))
  7844	  ftst(eq(B1,B0))
  7845	  ttst(eq(B1,B1))
  7846	  ftst(eq(B1,B2))
  7847	  ftst(eq(B1,B3))
  7848	  ftst(eq(B2,B0))
  7849	  ftst(eq(B2,B1))
  7850	  ttst(eq(B2,B2))
  7851	  ftst(eq(B2,B3))
  7852	  ftst(eq(B3,B0))
  7853	  ftst(eq(B3,B1))
  7854	  ftst(eq(B3,B2))
  7855	  ttst(eq(B3,B3))
  7856	
  7857	  ttst(EQ(PAIR(PAIR(T,F),PAIR(Z,M)),PAIR(PAIR(T,F),PAIR(Z,M))))
  7858	  ftst(EQ(PAIR(PAIR(T,F),PAIR(Z,M)),PAIR(PAIR(F,F),PAIR(Z,M))))
  7859	  ftst(EQ(PAIR(PAIR(T,F),PAIR(Z,M)),PAIR(PAIR(T,T),PAIR(Z,M))))
  7860	  ftst(EQ(PAIR(PAIR(T,F),PAIR(Z,M)),PAIR(PAIR(T,F),PAIR(T,M))))
  7861	  ftst(EQ(PAIR(PAIR(T,F),PAIR(Z,M)),PAIR(PAIR(T,F),PAIR(Z,F))))
  7862	
  7863	  xtst(lognot(TT))
  7864	  xtst(lognot(FF))
  7865	  xtst(lognot(P0))
  7866	  xtst(lognot(M0))
  7867	  xtst(lognot(B0))
  7868	  etst(lognot(Z),M)
  7869	  etst(lognot(M),Z)
  7870	  etst(lognot(I0011),J1100)
  7871	  etst(lognot(J1010_0101),I0101_1010)
  7872	
  7873	  xtst(logand(TT,TT))
  7874	  xtst(logand(TT,FF))
  7875	  xtst(logand(TT,I0))
  7876	  xtst(logand(TT,P0))
  7877	  xtst(logand(TT,M0))
  7878	  xtst(logand(TT,B0))
  7879	  xtst(logand(FF,TT))
  7880	  xtst(logand(FF,FF))
  7881	  xtst(logand(FF,I0))
  7882	  xtst(logand(FF,P0))
  7883	  xtst(logand(FF,M0))
  7884	  xtst(logand(FF,B0))
  7885	  xtst(logand(I0,TT))
  7886	  xtst(logand(I0,FF))
  7887	  xtst(logand(I0,P0))
  7888	  xtst(logand(I0,M0))
  7889	  xtst(logand(I0,B0))
  7890	  xtst(logand(P0,TT))
  7891	  xtst(logand(P0,FF))
  7892	  xtst(logand(P0,I0))
  7893	  xtst(logand(P0,P0))
  7894	  xtst(logand(P0,M0))
  7895	  xtst(logand(P0,B0))
  7896	  xtst(logand(M0,TT))
  7897	  xtst(logand(M0,FF))
  7898	  xtst(logand(M0,I0))
  7899	  xtst(logand(M0,P0))
  7900	  xtst(logand(M0,M0))
  7901	  xtst(logand(M0,B0))
  7902	  xtst(logand(B0,TT))
  7903	  xtst(logand(B0,FF))
  7904	  xtst(logand(B0,I0))
  7905	  xtst(logand(B0,P0))
  7906	  xtst(logand(B0,M0))
  7907	  xtst(logand(B0,B0))
  7908	  etst(logand(I0011     ,I0101     ),I0001     )
  7909	  etst(logand(I1100     ,I1010     ),I1000     )
  7910	  etst(logand(I0011_1100,I0101_1010),I0001_1000)
  7911	  etst(logand(I0011     ,I0101_1010),I0001     )
  7912	  etst(logand(I0101_1010,I0011     ),I0001     )
  7913	  etst(logand(I0011     ,J0101     ),I0001     )
  7914	  etst(logand(I1100     ,J1010     ),I1000     )
  7915	  etst(logand(I0011_1100,J0101_1010),I0001_1000)
  7916	  etst(logand(I0011     ,J0101_1010),I0001     )
  7917	  etst(logand(I0101_1010,J0011     ),intcons(Z0001,I1010))
  7918	  etst(logand(J0011     ,I0101     ),I0001     )
  7919	  etst(logand(J1100     ,I1010     ),I1000     )
  7920	  etst(logand(J0011_1100,I0101_1010),I0001_1000)
  7921	  etst(logand(J0011     ,I0101_1010),intcons(Z0001,I1010))
  7922	  etst(logand(J0101_1010,I0011     ),I0001     )
  7923	  etst(logand(J0011     ,J0101     ),J0001     )
  7924	  etst(logand(J1100     ,J1010     ),J1000     )
  7925	  etst(logand(J0011_1100,J0101_1010),J0001_1000)
  7926	  etst(logand(J0011     ,J0101_1010),intcons(M0001,J1010))
  7927	  etst(logand(J0101_1010,J0011     ),intcons(M0001,J1010))
  7928	  etst(logand(I0011_1100,I1000_0001),Z)
  7929	  etst(logand(EE,I0),I0)
  7930	  etst(logand(EE,J1),EE)
  7931	  etst(logand(I0,EE),I0)
  7932	  etst(logand(J1,EE),EE)
  7933	
  7934	  xtst(logior(TT,TT))
  7935	  xtst(logior(TT,FF))
  7936	  xtst(logior(TT,I0))
  7937	  xtst(logior(TT,P0))
  7938	  xtst(logior(TT,M0))
  7939	  xtst(logior(TT,B0))
  7940	  xtst(logior(FF,TT))
  7941	  xtst(logior(FF,FF))
  7942	  xtst(logior(FF,I0))
  7943	  xtst(logior(FF,P0))
  7944	  xtst(logior(FF,M0))
  7945	  xtst(logior(FF,B0))
  7946	  xtst(logior(I0,TT))
  7947	  xtst(logior(I0,FF))
  7948	  xtst(logior(I0,P0))
  7949	  xtst(logior(I0,M0))
  7950	  xtst(logior(I0,B0))
  7951	  xtst(logior(P0,TT))
  7952	  xtst(logior(P0,FF))
  7953	  xtst(logior(P0,I0))
  7954	  xtst(logior(P0,P0))
  7955	  xtst(logior(P0,M0))
  7956	  xtst(logior(P0,B0))
  7957	  xtst(logior(M0,TT))
  7958	  xtst(logior(M0,FF))
  7959	  xtst(logior(M0,I0))
  7960	  xtst(logior(M0,P0))
  7961	  xtst(logior(M0,M0))
  7962	  xtst(logior(M0,B0))
  7963	  xtst(logior(B0,TT))
  7964	  xtst(logior(B0,FF))
  7965	  xtst(logior(B0,I0))
  7966	  xtst(logior(B0,P0))
  7967	  xtst(logior(B0,M0))
  7968	  xtst(logior(B0,B0))
  7969	  etst(logior(I0011     ,I0101     ),I0111     )
  7970	  etst(logior(I1100     ,I1010     ),I1110     )
  7971	  etst(logior(I0011_1100,I0101_1010),I0111_1110)
  7972	  etst(logior(I0011     ,I0101_1010),intcons(Z0111,I1010))
  7973	  etst(logior(I0101_1010,I0011     ),intcons(Z0111,I1010))
  7974	  etst(logior(I0011     ,J0101     ),J0111     )
  7975	  etst(logior(I1100     ,J1010     ),J1110     )
  7976	  etst(logior(I0011_1100,J0101_1010),J0111_1110)
  7977	  etst(logior(I0011     ,J0101_1010),intcons(M0111,J1010))
  7978	  etst(logior(I0101_1010,J0011     ),J0111     )
  7979	  etst(logior(J0011     ,I0101     ),J0111     )
  7980	  etst(logior(J1100     ,I1010     ),J1110     )
  7981	  etst(logior(J0011_1100,I0101_1010),J0111_1110)
  7982	  etst(logior(J0011     ,I0101_1010),J0111     )
  7983	  etst(logior(J0101_1010,I0011     ),intcons(M0111,J1010))
  7984	  etst(logior(J0011     ,J0101     ),J0111     )
  7985	  etst(logior(J1100     ,J1010     ),J1110     )
  7986	  etst(logior(J0011_1100,J0101_1010),J0111_1110)
  7987	  etst(logior(J0011     ,J0101_1010),J0111     )
  7988	  etst(logior(J0101_1010,J0011     ),J0111     )
  7989	  etst(logior(J0011_1100,J1110_0111),M)
  7990	  etst(logior(EE,I0),EE)
  7991	  etst(logior(EE,J1),J1)
  7992	  etst(logior(I0,EE),EE)
  7993	  etst(logior(J1,EE),J1)
  7994	
  7995	  xtst(logxor(TT,TT))
  7996	  xtst(logxor(TT,FF))
  7997	  xtst(logxor(TT,I0))
  7998	  xtst(logxor(TT,P0))
  7999	  xtst(logxor(TT,M0))
  8000	  xtst(logxor(TT,B0))
  8001	  xtst(logxor(FF,TT))
  8002	  xtst(logxor(FF,FF))
  8003	  xtst(logxor(FF,I0))
  8004	  xtst(logxor(FF,P0))
  8005	  xtst(logxor(FF,M0))
  8006	  xtst(logxor(FF,B0))
  8007	  xtst(logxor(I0,TT))
  8008	  xtst(logxor(I0,FF))
  8009	  xtst(logxor(I0,P0))
  8010	  xtst(logxor(I0,M0))
  8011	  xtst(logxor(I0,B0))
  8012	  xtst(logxor(P0,TT))
  8013	  xtst(logxor(P0,FF))
  8014	  xtst(logxor(P0,I0))
  8015	  xtst(logxor(P0,P0))
  8016	  xtst(logxor(P0,M0))
  8017	  xtst(logxor(P0,B0))
  8018	  xtst(logxor(M0,TT))
  8019	  xtst(logxor(M0,FF))
  8020	  xtst(logxor(M0,I0))
  8021	  xtst(logxor(M0,P0))
  8022	  xtst(logxor(M0,M0))
  8023	  xtst(logxor(M0,B0))
  8024	  xtst(logxor(B0,TT))
  8025	  xtst(logxor(B0,FF))
  8026	  xtst(logxor(B0,I0))
  8027	  xtst(logxor(B0,P0))
  8028	  xtst(logxor(B0,M0))
  8029	  xtst(logxor(B0,B0))
  8030	  etst(logxor(I0011     ,I0101     ),I0110     )
  8031	  etst(logxor(I1100     ,I1010     ),I0110     )
  8032	  etst(logxor(I0011_1100,I0101_1010),I0110_0110)
  8033	  etst(logxor(I0011     ,I0101_1010),intcons(Z0110,I1010))
  8034	  etst(logxor(I0101_1010,I0011     ),intcons(Z0110,I1010))
  8035	  etst(logxor(I0011     ,J0101     ),J0110     )
  8036	  etst(logxor(I1100     ,J1010     ),J0110     )
  8037	  etst(logxor(I0011_1100,J0101_1010),J0110_0110)
  8038	  etst(logxor(I0011     ,J0101_1010),intcons(M0110,J1010))
  8039	  etst(logxor(I0101_1010,J0011     ),intcons(M0110,J0101))
  8040	  etst(logxor(J0011     ,I0101     ),J0110     )
  8041	  etst(logxor(J1100     ,I1010     ),J0110     )
  8042	  etst(logxor(J0011_1100,I0101_1010),J0110_0110)
  8043	  etst(logxor(J0011     ,I0101_1010),intcons(M0110,J0101))
  8044	  etst(logxor(J0101_1010,I0011     ),intcons(M0110,J1010))
  8045	  etst(logxor(J0011     ,J0101     ),I0110     )
  8046	  etst(logxor(J1100     ,J1010     ),I0110     )
  8047	  etst(logxor(J0011_1100,J0101_1010),I0110_0110)
  8048	  etst(logxor(J0011     ,J0101_1010),intcons(Z0110,I0101))
  8049	  etst(logxor(J0101_1010,J0011     ),intcons(Z0110,I0101))
  8050	  etst(logxor(J0101_1010,J0101_1010),Z)
  8051	  etst(logxor(J0101_1010,I1010_0101),M)
  8052	  etst(logxor(EE,I0),EE)
  8053	  etst(logxor(EE,J1),J2)
  8054	  etst(logxor(I0,EE),EE)
  8055	  etst(logxor(J1,EE),J2)
  8056	
  8057	  xtst(logandc1(TT,TT))
  8058	  xtst(logandc1(TT,FF))
  8059	  xtst(logandc1(TT,I0))
  8060	  xtst(logandc1(TT,P0))
  8061	  xtst(logandc1(TT,M0))
  8062	  xtst(logandc1(TT,B0))
  8063	  xtst(logandc1(FF,TT))
  8064	  xtst(logandc1(FF,FF))
  8065	  xtst(logandc1(FF,I0))
  8066	  xtst(logandc1(FF,P0))
  8067	  xtst(logandc1(FF,M0))
  8068	  xtst(logandc1(FF,B0))
  8069	  xtst(logandc1(I0,TT))
  8070	  xtst(logandc1(I0,FF))
  8071	  xtst(logandc1(I0,P0))
  8072	  xtst(logandc1(I0,M0))
  8073	  xtst(logandc1(I0,B0))
  8074	  xtst(logandc1(P0,TT))
  8075	  xtst(logandc1(P0,FF))
  8076	  xtst(logandc1(P0,I0))
  8077	  xtst(logandc1(P0,P0))
  8078	  xtst(logandc1(P0,M0))
  8079	  xtst(logandc1(P0,B0))
  8080	  xtst(logandc1(M0,TT))
  8081	  xtst(logandc1(M0,FF))
  8082	  xtst(logandc1(M0,I0))
  8083	  xtst(logandc1(M0,P0))
  8084	  xtst(logandc1(M0,M0))
  8085	  xtst(logandc1(M0,B0))
  8086	  xtst(logandc1(B0,TT))
  8087	  xtst(logandc1(B0,FF))
  8088	  xtst(logandc1(B0,I0))
  8089	  xtst(logandc1(B0,P0))
  8090	  xtst(logandc1(B0,M0))
  8091	  xtst(logandc1(B0,B0))
  8092	  etst(logandc1(lognot(I0011     ),I0101     ),I0001     )
  8093	  etst(logandc1(lognot(I1100     ),I1010     ),I1000     )
  8094	  etst(logandc1(lognot(I0011_1100),I0101_1010),I0001_1000)
  8095	  etst(logandc1(lognot(I0011     ),I0101_1010),I0001     )
  8096	  etst(logandc1(lognot(I0101_1010),I0011     ),I0001     )
  8097	  etst(logandc1(lognot(I0011     ),J0101     ),I0001     )
  8098	  etst(logandc1(lognot(I1100     ),J1010     ),I1000     )
  8099	  etst(logandc1(lognot(I0011_1100),J0101_1010),I0001_1000)
  8100	  etst(logandc1(lognot(I0011     ),J0101_1010),I0001     )
  8101	  etst(logandc1(lognot(I0101_1010),J0011     ),intcons(Z0001,I1010))
  8102	  etst(logandc1(lognot(J0011     ),I0101     ),I0001     )
  8103	  etst(logandc1(lognot(J1100     ),I1010     ),I1000     )
  8104	  etst(logandc1(lognot(J0011_1100),I0101_1010),I0001_1000)
  8105	  etst(logandc1(lognot(J0011     ),I0101_1010),intcons(Z0001,I1010))
  8106	  etst(logandc1(lognot(J0101_1010),I0011     ),I0001     )
  8107	  etst(logandc1(lognot(J0011     ),J0101     ),J0001     )
  8108	  etst(logandc1(lognot(J1100     ),J1010     ),J1000     )
  8109	  etst(logandc1(lognot(J0011_1100),J0101_1010),J0001_1000)
  8110	  etst(logandc1(lognot(J0011     ),J0101_1010),intcons(M0001,J1010))
  8111	  etst(logandc1(lognot(J0101_1010),J0011     ),intcons(M0001,J1010))
  8112	  etst(logandc1(EE,I0),I0)
  8113	  etst(logandc1(EE,J1),J2)
  8114	  etst(logandc1(I0,EE),EE)
  8115	  etst(logandc1(J1,EE),I0)
  8116	
  8117	  xtst(logandc2(TT,TT))
  8118	  xtst(logandc2(TT,FF))
  8119	  xtst(logandc2(TT,I0))
  8120	  xtst(logandc2(TT,P0))
  8121	  xtst(logandc2(TT,M0))
  8122	  xtst(logandc2(TT,B0))
  8123	  xtst(logandc2(FF,TT))
  8124	  xtst(logandc2(FF,FF))
  8125	  xtst(logandc2(FF,I0))
  8126	  xtst(logandc2(FF,P0))
  8127	  xtst(logandc2(FF,M0))
  8128	  xtst(logandc2(FF,B0))
  8129	  xtst(logandc2(I0,TT))
  8130	  xtst(logandc2(I0,FF))
  8131	  xtst(logandc2(I0,P0))
  8132	  xtst(logandc2(I0,M0))
  8133	  xtst(logandc2(I0,B0))
  8134	  xtst(logandc2(P0,TT))
  8135	  xtst(logandc2(P0,FF))
  8136	  xtst(logandc2(P0,I0))
  8137	  xtst(logandc2(P0,P0))
  8138	  xtst(logandc2(P0,M0))
  8139	  xtst(logandc2(P0,B0))
  8140	  xtst(logandc2(M0,TT))
  8141	  xtst(logandc2(M0,FF))
  8142	  xtst(logandc2(M0,I0))
  8143	  xtst(logandc2(M0,P0))
  8144	  xtst(logandc2(M0,M0))
  8145	  xtst(logandc2(M0,B0))
  8146	  xtst(logandc2(B0,TT))
  8147	  xtst(logandc2(B0,FF))
  8148	  xtst(logandc2(B0,I0))
  8149	  xtst(logandc2(B0,P0))
  8150	  xtst(logandc2(B0,M0))
  8151	  xtst(logandc2(B0,B0))
  8152	  etst(logandc2(I0011     ,lognot(I0101     )),I0001     )
  8153	  etst(logandc2(I1100     ,lognot(I1010     )),I1000     )
  8154	  etst(logandc2(I0011_1100,lognot(I0101_1010)),I0001_1000)
  8155	  etst(logandc2(I0011     ,lognot(I0101_1010)),I0001     )
  8156	  etst(logandc2(I0101_1010,lognot(I0011     )),I0001     )
  8157	  etst(logandc2(I0011     ,lognot(J0101     )),I0001     )
  8158	  etst(logandc2(I1100     ,lognot(J1010     )),I1000     )
  8159	  etst(logandc2(I0011_1100,lognot(J0101_1010)),I0001_1000)
  8160	  etst(logandc2(I0011     ,lognot(J0101_1010)),I0001     )
  8161	  etst(logandc2(I0101_1010,lognot(J0011     )),intcons(Z0001,I1010))
  8162	  etst(logandc2(J0011     ,lognot(I0101     )),I0001     )
  8163	  etst(logandc2(J1100     ,lognot(I1010     )),I1000     )
  8164	  etst(logandc2(J0011_1100,lognot(I0101_1010)),I0001_1000)
  8165	  etst(logandc2(J0011     ,lognot(I0101_1010)),intcons(Z0001,I1010))
  8166	  etst(logandc2(J0101_1010,lognot(I0011     )),I0001     )
  8167	  etst(logandc2(J0011     ,lognot(J0101     )),J0001     )
  8168	  etst(logandc2(J1100     ,lognot(J1010     )),J1000     )
  8169	  etst(logandc2(J0011_1100,lognot(J0101_1010)),J0001_1000)
  8170	  etst(logandc2(J0011     ,lognot(J0101_1010)),intcons(M0001,J1010))
  8171	  etst(logandc2(J0101_1010,lognot(J0011     )),intcons(M0001,J1010))
  8172	  etst(logandc2(EE,I0),EE)
  8173	  etst(logandc2(EE,J1),I0)
  8174	  etst(logandc2(I0,EE),I0)
  8175	  etst(logandc2(J1,EE),J2)
  8176	
  8177	  xtst(lognand(TT,TT))
  8178	  xtst(lognand(TT,FF))
  8179	  xtst(lognand(TT,I0))
  8180	  xtst(lognand(TT,P0))
  8181	  xtst(lognand(TT,M0))
  8182	  xtst(lognand(TT,B0))
  8183	  xtst(lognand(FF,TT))
  8184	  xtst(lognand(FF,FF))
  8185	  xtst(lognand(FF,I0))
  8186	  xtst(lognand(FF,P0))
  8187	  xtst(lognand(FF,M0))
  8188	  xtst(lognand(FF,B0))
  8189	  xtst(lognand(I0,TT))
  8190	  xtst(lognand(I0,FF))
  8191	  xtst(lognand(I0,P0))
  8192	  xtst(lognand(I0,M0))
  8193	  xtst(lognand(I0,B0))
  8194	  xtst(lognand(P0,TT))
  8195	  xtst(lognand(P0,FF))
  8196	  xtst(lognand(P0,I0))
  8197	  xtst(lognand(P0,P0))
  8198	  xtst(lognand(P0,M0))
  8199	  xtst(lognand(P0,B0))
  8200	  xtst(lognand(M0,TT))
  8201	  xtst(lognand(M0,FF))
  8202	  xtst(lognand(M0,I0))
  8203	  xtst(lognand(M0,P0))
  8204	  xtst(lognand(M0,M0))
  8205	  xtst(lognand(M0,B0))
  8206	  xtst(lognand(B0,TT))
  8207	  xtst(lognand(B0,FF))
  8208	  xtst(lognand(B0,I0))
  8209	  xtst(lognand(B0,P0))
  8210	  xtst(lognand(B0,M0))
  8211	  xtst(lognand(B0,B0))
  8212	  etst(lognand(I0011     ,I0101     ),lognot(I0001     ))
  8213	  etst(lognand(I1100     ,I1010     ),lognot(I1000     ))
  8214	  etst(lognand(I0011_1100,I0101_1010),lognot(I0001_1000))
  8215	  etst(lognand(I0011     ,I0101_1010),lognot(I0001     ))
  8216	  etst(lognand(I0101_1010,I0011     ),lognot(I0001     ))
  8217	  etst(lognand(I0011     ,J0101     ),lognot(I0001     ))
  8218	  etst(lognand(I1100     ,J1010     ),lognot(I1000     ))
  8219	  etst(lognand(I0011_1100,J0101_1010),lognot(I0001_1000))
  8220	  etst(lognand(I0011     ,J0101_1010),lognot(I0001     ))
  8221	  etst(lognand(I0101_1010,J0011     ),lognot(intcons(Z0001,I1010)))
  8222	  etst(lognand(J0011     ,I0101     ),lognot(I0001     ))
  8223	  etst(lognand(J1100     ,I1010     ),lognot(I1000     ))
  8224	  etst(lognand(J0011_1100,I0101_1010),lognot(I0001_1000))
  8225	  etst(lognand(J0011     ,I0101_1010),lognot(intcons(Z0001,I1010)))
  8226	  etst(lognand(J0101_1010,I0011     ),lognot(I0001     ))
  8227	  etst(lognand(J0011     ,J0101     ),lognot(J0001     ))
  8228	  etst(lognand(J1100     ,J1010     ),lognot(J1000     ))
  8229	  etst(lognand(J0011_1100,J0101_1010),lognot(J0001_1000))
  8230	  etst(lognand(J0011     ,J0101_1010),lognot(intcons(M0001,J1010)))
  8231	  etst(lognand(J0101_1010,J0011     ),lognot(intcons(M0001,J1010)))
  8232	  etst(lognand(EE,I0),J1)
  8233	  etst(lognand(EE,J1),J2)
  8234	  etst(lognand(I0,EE),J1)
  8235	  etst(lognand(J1,EE),J2)
  8236	
  8237	  xtst(logorc1(TT,TT))
  8238	  xtst(logorc1(TT,FF))
  8239	  xtst(logorc1(TT,I0))
  8240	  xtst(logorc1(TT,P0))
  8241	  xtst(logorc1(TT,M0))
  8242	  xtst(logorc1(TT,B0))
  8243	  xtst(logorc1(FF,TT))
  8244	  xtst(logorc1(FF,FF))
  8245	  xtst(logorc1(FF,I0))
  8246	  xtst(logorc1(FF,P0))
  8247	  xtst(logorc1(FF,M0))
  8248	  xtst(logorc1(FF,B0))
  8249	  xtst(logorc1(I0,TT))
  8250	  xtst(logorc1(I0,FF))
  8251	  xtst(logorc1(I0,P0))
  8252	  xtst(logorc1(I0,M0))
  8253	  xtst(logorc1(I0,B0))
  8254	  xtst(logorc1(P0,TT))
  8255	  xtst(logorc1(P0,FF))
  8256	  xtst(logorc1(P0,I0))
  8257	  xtst(logorc1(P0,P0))
  8258	  xtst(logorc1(P0,M0))
  8259	  xtst(logorc1(P0,B0))
  8260	  xtst(logorc1(M0,TT))
  8261	  xtst(logorc1(M0,FF))
  8262	  xtst(logorc1(M0,I0))
  8263	  xtst(logorc1(M0,P0))
  8264	  xtst(logorc1(M0,M0))
  8265	  xtst(logorc1(M0,B0))
  8266	  xtst(logorc1(B0,TT))
  8267	  xtst(logorc1(B0,FF))
  8268	  xtst(logorc1(B0,I0))
  8269	  xtst(logorc1(B0,P0))
  8270	  xtst(logorc1(B0,M0))
  8271	  xtst(logorc1(B0,B0))
  8272	  etst(logorc1(lognot(I0011     ),I0101     ),I0111     )
  8273	  etst(logorc1(lognot(I1100     ),I1010     ),I1110     )
  8274	  etst(logorc1(lognot(I0011_1100),I0101_1010),I0111_1110)
  8275	  etst(logorc1(lognot(I0011     ),I0101_1010),intcons(Z0111,I1010))
  8276	  etst(logorc1(lognot(I0101_1010),I0011     ),intcons(Z0111,I1010))
  8277	  etst(logorc1(lognot(I0011     ),J0101     ),J0111     )
  8278	  etst(logorc1(lognot(I1100     ),J1010     ),J1110     )
  8279	  etst(logorc1(lognot(I0011_1100),J0101_1010),J0111_1110)
  8280	  etst(logorc1(lognot(I0011     ),J0101_1010),intcons(M0111,J1010))
  8281	  etst(logorc1(lognot(I0101_1010),J0011     ),J0111     )
  8282	  etst(logorc1(lognot(J0011     ),I0101     ),J0111     )
  8283	  etst(logorc1(lognot(J1100     ),I1010     ),J1110     )
  8284	  etst(logorc1(lognot(J0011_1100),I0101_1010),J0111_1110)
  8285	  etst(logorc1(lognot(J0011     ),I0101_1010),J0111     )
  8286	  etst(logorc1(lognot(J0101_1010),I0011     ),intcons(M0111,J1010))
  8287	  etst(logorc1(lognot(J0011     ),J0101     ),J0111     )
  8288	  etst(logorc1(lognot(J1100     ),J1010     ),J1110     )
  8289	  etst(logorc1(lognot(J0011_1100),J0101_1010),J0111_1110)
  8290	  etst(logorc1(lognot(J0011     ),J0101_1010),J0111     )
  8291	  etst(logorc1(lognot(J0101_1010),J0011     ),J0111     )
  8292	  etst(logorc1(EE,I0),J2)
  8293	  etst(logorc1(EE,J1),J1)
  8294	  etst(logorc1(I0,EE),J1)
  8295	  etst(logorc1(J1,EE),EE)
  8296	
  8297	  xtst(logorc2(TT,TT))
  8298	  xtst(logorc2(TT,FF))
  8299	  xtst(logorc2(TT,I0))
  8300	  xtst(logorc2(TT,P0))
  8301	  xtst(logorc2(TT,M0))
  8302	  xtst(logorc2(TT,B0))
  8303	  xtst(logorc2(FF,TT))
  8304	  xtst(logorc2(FF,FF))
  8305	  xtst(logorc2(FF,I0))
  8306	  xtst(logorc2(FF,P0))
  8307	  xtst(logorc2(FF,M0))
  8308	  xtst(logorc2(FF,B0))
  8309	  xtst(logorc2(I0,TT))
  8310	  xtst(logorc2(I0,FF))
  8311	  xtst(logorc2(I0,P0))
  8312	  xtst(logorc2(I0,M0))
  8313	  xtst(logorc2(I0,B0))
  8314	  xtst(logorc2(P0,TT))
  8315	  xtst(logorc2(P0,FF))
  8316	  xtst(logorc2(P0,I0))
  8317	  xtst(logorc2(P0,P0))
  8318	  xtst(logorc2(P0,M0))
  8319	  xtst(logorc2(P0,B0))
  8320	  xtst(logorc2(M0,TT))
  8321	  xtst(logorc2(M0,FF))
  8322	  xtst(logorc2(M0,I0))
  8323	  xtst(logorc2(M0,P0))
  8324	  xtst(logorc2(M0,M0))
  8325	  xtst(logorc2(M0,B0))
  8326	  xtst(logorc2(B0,TT))
  8327	  xtst(logorc2(B0,FF))
  8328	  xtst(logorc2(B0,I0))
  8329	  xtst(logorc2(B0,P0))
  8330	  xtst(logorc2(B0,M0))
  8331	  xtst(logorc2(B0,B0))
  8332	  etst(logorc2(I0011     ,lognot(I0101     )),I0111     )
  8333	  etst(logorc2(I1100     ,lognot(I1010     )),I1110     )
  8334	  etst(logorc2(I0011_1100,lognot(I0101_1010)),I0111_1110)
  8335	  etst(logorc2(I0011     ,lognot(I0101_1010)),intcons(Z0111,I1010))
  8336	  etst(logorc2(I0101_1010,lognot(I0011     )),intcons(Z0111,I1010))
  8337	  etst(logorc2(I0011     ,lognot(J0101     )),J0111     )
  8338	  etst(logorc2(I1100     ,lognot(J1010     )),J1110     )
  8339	  etst(logorc2(I0011_1100,lognot(J0101_1010)),J0111_1110)
  8340	  etst(logorc2(I0011     ,lognot(J0101_1010)),intcons(M0111,J1010))
  8341	  etst(logorc2(I0101_1010,lognot(J0011     )),J0111     )
  8342	  etst(logorc2(J0011     ,lognot(I0101     )),J0111     )
  8343	  etst(logorc2(J1100     ,lognot(I1010     )),J1110     )
  8344	  etst(logorc2(J0011_1100,lognot(I0101_1010)),J0111_1110)
  8345	  etst(logorc2(J0011     ,lognot(I0101_1010)),J0111     )
  8346	  etst(logorc2(J0101_1010,lognot(I0011     )),intcons(M0111,J1010))
  8347	  etst(logorc2(J0011     ,lognot(J0101     )),J0111     )
  8348	  etst(logorc2(J1100     ,lognot(J1010     )),J1110     )
  8349	  etst(logorc2(J0011_1100,lognot(J0101_1010)),J0111_1110)
  8350	  etst(logorc2(J0011     ,lognot(J0101_1010)),J0111     )
  8351	  etst(logorc2(J0101_1010,lognot(J0011     )),J0111     )
  8352	  etst(logorc2(EE,I0),J1)
  8353	  etst(logorc2(EE,J1),EE)
  8354	  etst(logorc2(I0,EE),J2)
  8355	  etst(logorc2(J1,EE),J1)
  8356	
  8357	  xtst(lognor(TT,TT))
  8358	  xtst(lognor(TT,FF))
  8359	  xtst(lognor(TT,I0))
  8360	  xtst(lognor(TT,P0))
  8361	  xtst(lognor(TT,M0))
  8362	  xtst(lognor(TT,B0))
  8363	  xtst(lognor(FF,TT))
  8364	  xtst(lognor(FF,FF))
  8365	  xtst(lognor(FF,I0))
  8366	  xtst(lognor(FF,P0))
  8367	  xtst(lognor(FF,M0))
  8368	  xtst(lognor(FF,B0))
  8369	  xtst(lognor(I0,TT))
  8370	  xtst(lognor(I0,FF))
  8371	  xtst(lognor(I0,P0))
  8372	  xtst(lognor(I0,M0))
  8373	  xtst(lognor(I0,B0))
  8374	  xtst(lognor(P0,TT))
  8375	  xtst(lognor(P0,FF))
  8376	  xtst(lognor(P0,I0))
  8377	  xtst(lognor(P0,P0))
  8378	  xtst(lognor(P0,M0))
  8379	  xtst(lognor(P0,B0))
  8380	  xtst(lognor(M0,TT))
  8381	  xtst(lognor(M0,FF))
  8382	  xtst(lognor(M0,I0))
  8383	  xtst(lognor(M0,P0))
  8384	  xtst(lognor(M0,M0))
  8385	  xtst(lognor(M0,B0))
  8386	  xtst(lognor(B0,TT))
  8387	  xtst(lognor(B0,FF))
  8388	  xtst(lognor(B0,I0))
  8389	  xtst(lognor(B0,P0))
  8390	  xtst(lognor(B0,M0))
  8391	  xtst(lognor(B0,B0))
  8392	  etst(lognor(I0011     ,I0101     ),lognot(I0111     ))
  8393	  etst(lognor(I1100     ,I1010     ),lognot(I1110     ))
  8394	  etst(lognor(I0011_1100,I0101_1010),lognot(I0111_1110))
  8395	  etst(lognor(I0011     ,I0101_1010),lognot(intcons(Z0111,I1010)))
  8396	  etst(lognor(I0101_1010,I0011     ),lognot(intcons(Z0111,I1010)))
  8397	  etst(lognor(I0011     ,J0101     ),lognot(J0111     ))
  8398	  etst(lognor(I1100     ,J1010     ),lognot(J1110     ))
  8399	  etst(lognor(I0011_1100,J0101_1010),lognot(J0111_1110))
  8400	  etst(lognor(I0011     ,J0101_1010),lognot(intcons(M0111,J1010)))
  8401	  etst(lognor(I0101_1010,J0011     ),lognot(J0111     ))
  8402	  etst(lognor(J0011     ,I0101     ),lognot(J0111     ))
  8403	  etst(lognor(J1100     ,I1010     ),lognot(J1110     ))
  8404	  etst(lognor(J0011_1100,I0101_1010),lognot(J0111_1110))
  8405	  etst(lognor(J0011     ,I0101_1010),lognot(J0111     ))
  8406	  etst(lognor(J0101_1010,I0011     ),lognot(intcons(M0111,J1010)))
  8407	  etst(lognor(J0011     ,J0101     ),lognot(J0111     ))
  8408	  etst(lognor(J1100     ,J1010     ),lognot(J1110     ))
  8409	  etst(lognor(J0011_1100,J0101_1010),lognot(J0111_1110))
  8410	  etst(lognor(J0011     ,J0101_1010),lognot(J0111     ))
  8411	  etst(lognor(J0101_1010,J0011     ),lognot(J0111     ))
  8412	  etst(lognor(EE,I0),J2)
  8413	  etst(lognor(EE,J1),I0)
  8414	  etst(lognor(I0,EE),J2)
  8415	  etst(lognor(J1,EE),I0)
  8416	
  8417	  xtst(logeqv(TT,TT))
  8418	  xtst(logeqv(TT,FF))
  8419	  xtst(logeqv(TT,I0))
  8420	  xtst(logeqv(TT,P0))
  8421	  xtst(logeqv(TT,M0))
  8422	  xtst(logeqv(TT,B0))
  8423	  xtst(logeqv(FF,TT))
  8424	  xtst(logeqv(FF,FF))
  8425	  xtst(logeqv(FF,I0))
  8426	  xtst(logeqv(FF,P0))
  8427	  xtst(logeqv(FF,M0))
  8428	  xtst(logeqv(FF,B0))
  8429	  xtst(logeqv(I0,TT))
  8430	  xtst(logeqv(I0,FF))
  8431	  xtst(logeqv(I0,P0))
  8432	  xtst(logeqv(I0,M0))
  8433	  xtst(logeqv(I0,B0))
  8434	  xtst(logeqv(P0,TT))
  8435	  xtst(logeqv(P0,FF))
  8436	  xtst(logeqv(P0,I0))
  8437	  xtst(logeqv(P0,P0))
  8438	  xtst(logeqv(P0,M0))
  8439	  xtst(logeqv(P0,B0))
  8440	  xtst(logeqv(M0,TT))
  8441	  xtst(logeqv(M0,FF))
  8442	  xtst(logeqv(M0,I0))
  8443	  xtst(logeqv(M0,P0))
  8444	  xtst(logeqv(M0,M0))
  8445	  xtst(logeqv(M0,B0))
  8446	  xtst(logeqv(B0,TT))
  8447	  xtst(logeqv(B0,FF))
  8448	  xtst(logeqv(B0,I0))
  8449	  xtst(logeqv(B0,P0))
  8450	  xtst(logeqv(B0,M0))
  8451	  xtst(logeqv(B0,B0))
  8452	  etst(logeqv(lognot(I0011     ),I0101     ),I0110     )
  8453	  etst(logeqv(lognot(I1100     ),I1010     ),I0110     )
  8454	  etst(logeqv(lognot(I0011_1100),I0101_1010),I0110_0110)
  8455	  etst(logeqv(lognot(I0011     ),I0101_1010),intcons(Z0110,I1010))
  8456	  etst(logeqv(lognot(I0101_1010),I0011     ),intcons(Z0110,I1010))
  8457	  etst(logeqv(lognot(I0011     ),J0101     ),J0110     )
  8458	  etst(logeqv(lognot(I1100     ),J1010     ),J0110     )
  8459	  etst(logeqv(lognot(I0011_1100),J0101_1010),J0110_0110)
  8460	  etst(logeqv(lognot(I0011     ),J0101_1010),intcons(M0110,J1010))
  8461	  etst(logeqv(lognot(I0101_1010),J0011     ),intcons(M0110,J0101))
  8462	  etst(logeqv(lognot(J0011     ),I0101     ),J0110     )
  8463	  etst(logeqv(lognot(J1100     ),I1010     ),J0110     )
  8464	  etst(logeqv(lognot(J0011_1100),I0101_1010),J0110_0110)
  8465	  etst(logeqv(lognot(J0011     ),I0101_1010),intcons(M0110,J0101))
  8466	  etst(logeqv(lognot(J0101_1010),I0011     ),intcons(M0110,J1010))
  8467	  etst(logeqv(lognot(J0011     ),J0101     ),I0110     )
  8468	  etst(logeqv(lognot(J1100     ),J1010     ),I0110     )
  8469	  etst(logeqv(lognot(J0011_1100),J0101_1010),I0110_0110)
  8470	  etst(logeqv(lognot(J0011     ),J0101_1010),intcons(Z0110,I0101))
  8471	  etst(logeqv(lognot(J0101_1010),J0011     ),intcons(Z0110,I0101))
  8472	  etst(logeqv(EE,I0),J2)
  8473	  etst(logeqv(EE,J1),EE)
  8474	  etst(logeqv(I0,EE),J2)
  8475	  etst(logeqv(J1,EE),EE)
  8476	
  8477	  xtst(logtest(TT,TT))
  8478	  xtst(logtest(TT,FF))
  8479	  xtst(logtest(TT,I0))
  8480	  xtst(logtest(TT,P0))
  8481	  xtst(logtest(TT,M0))
  8482	  xtst(logtest(TT,B0))
  8483	  xtst(logtest(FF,TT))
  8484	  xtst(logtest(FF,FF))
  8485	  xtst(logtest(FF,I0))
  8486	  xtst(logtest(FF,P0))
  8487	  xtst(logtest(FF,M0))
  8488	  xtst(logtest(FF,B0))
  8489	  xtst(logtest(I0,TT))
  8490	  xtst(logtest(I0,FF))
  8491	  xtst(logtest(I0,P0))
  8492	  xtst(logtest(I0,M0))
  8493	  xtst(logtest(I0,B0))
  8494	  xtst(logtest(P0,TT))
  8495	  xtst(logtest(P0,FF))
  8496	  xtst(logtest(P0,I0))
  8497	  xtst(logtest(P0,P0))
  8498	  xtst(logtest(P0,M0))
  8499	  xtst(logtest(P0,B0))
  8500	  xtst(logtest(M0,TT))
  8501	  xtst(logtest(M0,FF))
  8502	  xtst(logtest(M0,I0))
  8503	  xtst(logtest(M0,P0))
  8504	  xtst(logtest(M0,M0))
  8505	  xtst(logtest(M0,B0))
  8506	  xtst(logtest(B0,TT))
  8507	  xtst(logtest(B0,FF))
  8508	  xtst(logtest(B0,I0))
  8509	  xtst(logtest(B0,P0))
  8510	  xtst(logtest(B0,M0))
  8511	  xtst(logtest(B0,B0))
  8512	  ttst(logtest(I0011     ,I0101     ))
  8513	  ttst(logtest(I1100     ,I1010     ))
  8514	  ttst(logtest(I0011_1100,I0101_1010))
  8515	  ttst(logtest(I0011     ,I0101_1010))
  8516	  ttst(logtest(I0101_1010,I0011     ))
  8517	  ttst(logtest(I0011     ,J0101     ))
  8518	  ttst(logtest(I1100     ,J1010     ))
  8519	  ttst(logtest(I0011_1100,J0101_1010))
  8520	  ttst(logtest(I0011     ,J0101_1010))
  8521	  ttst(logtest(I0101_1010,J0011     ))
  8522	  ttst(logtest(J0011     ,I0101     ))
  8523	  ttst(logtest(J1100     ,I1010     ))
  8524	  ttst(logtest(J0011_1100,I0101_1010))
  8525	  ttst(logtest(J0011     ,I0101_1010))
  8526	  ttst(logtest(J0101_1010,I0011     ))
  8527	  ttst(logtest(J0011     ,J0101     ))
  8528	  ttst(logtest(J1100     ,J1010     ))
  8529	  ttst(logtest(J0011_1100,J0101_1010))
  8530	  ttst(logtest(J0011     ,J0101_1010))
  8531	  ttst(logtest(J0101_1010,J0011     ))
  8532	
  8533	  ftst(logtest(I0011     ,I1100     ))
  8534	  ftst(logtest(I1100     ,I0001     ))
  8535	  ftst(logtest(I0011_1100,I1000_0001))
  8536	  ftst(logtest(I0011     ,I1100_0011))
  8537	  ftst(logtest(I0101_1010,I0010     ))
  8538	  ftst(logtest(I0011     ,J1000     ))
  8539	  ftst(logtest(I1100     ,J0011     ))
  8540	  ftst(logtest(I0011_1100,J1000_0001))
  8541	  ftst(logtest(I0011     ,J1100_0011))
  8542	  ftst(logtest(J0011     ,I0100     ))
  8543	  ftst(logtest(J1100     ,I0010     ))
  8544	  ftst(logtest(J0011_1100,I0100_0010))
  8545	  ftst(logtest(J0101_1010,I1010     ))
  8546	  ftst(logtest(EE,I0))
  8547	  ttst(logtest(EE,J1))
  8548	  ftst(logtest(I0,EE))
  8549	  ttst(logtest(J1,EE))
  8550	  ftst(logtest(EE,J1010_0101))
  8551	  ttst(logtest(EE,I0011_1100))
  8552	  ftst(logtest(J1010_0101,EE))
  8553	  ttst(logtest(I0011_1100,EE))
  8554	
  8555	  xtst(lt(TT,TT))
  8556	  xtst(lt(TT,FF))
  8557	  xtst(lt(TT,I0))
  8558	  xtst(lt(TT,P0))
  8559	  xtst(lt(TT,M0))
  8560	  xtst(lt(TT,B0))
  8561	  xtst(lt(FF,TT))
  8562	  xtst(lt(FF,FF))
  8563	  xtst(lt(FF,I0))
  8564	  xtst(lt(FF,P0))
  8565	  xtst(lt(FF,M0))
  8566	  xtst(lt(FF,B0))
  8567	  xtst(lt(I0,TT))
  8568	  xtst(lt(I0,FF))
  8569	  xtst(lt(I0,P0))
  8570	  xtst(lt(I0,M0))
  8571	  xtst(lt(I0,B0))
  8572	  xtst(lt(P0,TT))
  8573	  xtst(lt(P0,FF))
  8574	  xtst(lt(P0,I0))
  8575	  xtst(lt(P0,P0))
  8576	  xtst(lt(P0,M0))
  8577	  xtst(lt(P0,B0))
  8578	  xtst(lt(M0,TT))
  8579	  xtst(lt(M0,FF))
  8580	  xtst(lt(M0,I0))
  8581	  xtst(lt(M0,P0))
  8582	  xtst(lt(M0,M0))
  8583	  xtst(lt(M0,B0))
  8584	  xtst(lt(B0,TT))
  8585	  xtst(lt(B0,FF))
  8586	  xtst(lt(B0,I0))
  8587	  xtst(lt(B0,P0))
  8588	  xtst(lt(B0,M0))
  8589	  xtst(lt(B0,B0))
  8590	  ftst(lt(I0011     ,I0011     ))
  8591	  ttst(lt(I0011     ,I0101     ))
  8592	  ftst(lt(I1100     ,I1010     ))
  8593	  ftst(lt(I0011_1100,I0011_1100))
  8594	  ftst(lt(I0011_1100,I0101_1010))
  8595	  ttst(lt(I1100_0011,I1010_0101))
  8596	  ttst(lt(I0011     ,I0101_1010))
  8597	  ftst(lt(I0101_1010,I0011     ))
  8598	  ftst(lt(I0011     ,J0101     ))
  8599	  ftst(lt(I1100     ,J1010     ))
  8600	  ftst(lt(I0011_1100,J0101_1010))
  8601	  ftst(lt(I0011     ,J0101_1010))
  8602	  ftst(lt(I0101_1010,J0011     ))
  8603	  ttst(lt(J0011     ,I0101     ))
  8604	  ttst(lt(J1100     ,I1010     ))
  8605	  ttst(lt(J0011_1100,I0101_1010))
  8606	  ttst(lt(J0011     ,I0101_1010))
  8607	  ttst(lt(J0101_1010,I0011     ))
  8608	  ftst(lt(J0011     ,J0011     ))
  8609	  ttst(lt(J0011     ,J0101     ))
  8610	  ftst(lt(J1100     ,J1010     ))
  8611	  ftst(lt(J0011_1100,J0011_1100))
  8612	  ftst(lt(J0011_1100,J0101_1010))
  8613	  ttst(lt(J1100_0011,J1010_0101))
  8614	  ftst(lt(J0011     ,J0101_1010))
  8615	  ttst(lt(J0101_1010,J0011     ))
  8616	
  8617	  xtst(le(TT,TT))
  8618	  xtst(le(TT,FF))
  8619	  xtst(le(TT,I0))
  8620	  xtst(le(TT,P0))
  8621	  xtst(le(TT,M0))
  8622	  xtst(le(TT,B0))
  8623	  xtst(le(FF,TT))
  8624	  xtst(le(FF,FF))
  8625	  xtst(le(FF,I0))
  8626	  xtst(le(FF,P0))
  8627	  xtst(le(FF,M0))
  8628	  xtst(le(FF,B0))
  8629	  xtst(le(I0,TT))
  8630	  xtst(le(I0,FF))
  8631	  xtst(le(I0,P0))
  8632	  xtst(le(I0,M0))
  8633	  xtst(le(I0,B0))
  8634	  xtst(le(P0,TT))
  8635	  xtst(le(P0,FF))
  8636	  xtst(le(P0,I0))
  8637	  xtst(le(P0,P0))
  8638	  xtst(le(P0,M0))
  8639	  xtst(le(P0,B0))
  8640	  xtst(le(M0,TT))
  8641	  xtst(le(M0,FF))
  8642	  xtst(le(M0,I0))
  8643	  xtst(le(M0,P0))
  8644	  xtst(le(M0,M0))
  8645	  xtst(le(M0,B0))
  8646	  xtst(le(B0,TT))
  8647	  xtst(le(B0,FF))
  8648	  xtst(le(B0,I0))
  8649	  xtst(le(B0,P0))
  8650	  xtst(le(B0,M0))
  8651	  xtst(le(B0,B0))
  8652	  ttst(le(I0011     ,I0011     ))
  8653	  ttst(le(I0011     ,I0101     ))
  8654	  ftst(le(I1100     ,I1010     ))
  8655	  ttst(le(I0011_1100,I0011_1100))
  8656	  ftst(le(I0011_1100,I0101_1010))
  8657	  ttst(le(I1100_0011,I1010_0101))
  8658	  ttst(le(I0011     ,I0101_1010))
  8659	  ftst(le(I0101_1010,I0011     ))
  8660	  ftst(le(I0011     ,J0101     ))
  8661	  ftst(le(I1100     ,J1010     ))
  8662	  ftst(le(I0011_1100,J0101_1010))
  8663	  ftst(le(I0011     ,J0101_1010))
  8664	  ftst(le(I0101_1010,J0011     ))
  8665	  ttst(le(J0011     ,I0101     ))
  8666	  ttst(le(J1100     ,I1010     ))
  8667	  ttst(le(J0011_1100,I0101_1010))
  8668	  ttst(le(J0011     ,I0101_1010))
  8669	  ttst(le(J0101_1010,I0011     ))
  8670	  ttst(le(J0011     ,J0011     ))
  8671	  ttst(le(J0011     ,J0101     ))
  8672	  ftst(le(J1100     ,J1010     ))
  8673	  ttst(le(J0011_1100,J0011_1100))
  8674	  ftst(le(J0011_1100,J0101_1010))
  8675	  ttst(le(J1100_0011,J1010_0101))
  8676	  ftst(le(J0011     ,J0101_1010))
  8677	  ttst(le(J0101_1010,J0011     ))
  8678	
  8679	  xtst(gt(TT,TT))
  8680	  xtst(gt(TT,FF))
  8681	  xtst(gt(TT,I0))
  8682	  xtst(gt(TT,P0))
  8683	  xtst(gt(TT,M0))
  8684	  xtst(gt(TT,B0))
  8685	  xtst(gt(FF,TT))
  8686	  xtst(gt(FF,FF))
  8687	  xtst(gt(FF,I0))
  8688	  xtst(gt(FF,P0))
  8689	  xtst(gt(FF,M0))
  8690	  xtst(gt(FF,B0))
  8691	  xtst(gt(I0,TT))
  8692	  xtst(gt(I0,FF))
  8693	  xtst(gt(I0,P0))
  8694	  xtst(gt(I0,M0))
  8695	  xtst(gt(I0,B0))
  8696	  xtst(gt(P0,TT))
  8697	  xtst(gt(P0,FF))
  8698	  xtst(gt(P0,I0))
  8699	  xtst(gt(P0,P0))
  8700	  xtst(gt(P0,M0))
  8701	  xtst(gt(P0,B0))
  8702	  xtst(gt(M0,TT))
  8703	  xtst(gt(M0,FF))
  8704	  xtst(gt(M0,I0))
  8705	  xtst(gt(M0,P0))
  8706	  xtst(gt(M0,M0))
  8707	  xtst(gt(M0,B0))
  8708	  xtst(gt(B0,TT))
  8709	  xtst(gt(B0,FF))
  8710	  xtst(gt(B0,I0))
  8711	  xtst(gt(B0,P0))
  8712	  xtst(gt(B0,M0))
  8713	  xtst(gt(B0,B0))
  8714	  ftst(gt(I0011     ,I0011     ))
  8715	  ftst(gt(I0011     ,I0101     ))
  8716	  ttst(gt(I1100     ,I1010     ))
  8717	  ftst(gt(I0011_1100,I0011_1100))
  8718	  ttst(gt(I0011_1100,I0101_1010))
  8719	  ftst(gt(I1100_0011,I1010_0101))
  8720	  ftst(gt(I0011     ,I0101_1010))
  8721	  ttst(gt(I0101_1010,I0011     ))
  8722	  ttst(gt(I0011     ,J0101     ))
  8723	  ttst(gt(I1100     ,J1010     ))
  8724	  ttst(gt(I0011_1100,J0101_1010))
  8725	  ttst(gt(I0011     ,J0101_1010))
  8726	  ttst(gt(I0101_1010,J0011     ))
  8727	  ftst(gt(J0011     ,I0101     ))
  8728	  ftst(gt(J1100     ,I1010     ))
  8729	  ftst(gt(J0011_1100,I0101_1010))
  8730	  ftst(gt(J0011     ,I0101_1010))
  8731	  ftst(gt(J0101_1010,I0011     ))
  8732	  ftst(gt(J0011     ,J0011     ))
  8733	  ftst(gt(J0011     ,J0101     ))
  8734	  ttst(gt(J1100     ,J1010     ))
  8735	  ftst(gt(J0011_1100,J0011_1100))
  8736	  ttst(gt(J0011_1100,J0101_1010))
  8737	  ftst(gt(J1100_0011,J1010_0101))
  8738	  ttst(gt(J0011     ,J0101_1010))
  8739	  ftst(gt(J0101_1010,J0011     ))
  8740	
  8741	  xtst(ge(TT,TT))
  8742	  xtst(ge(TT,FF))
  8743	  xtst(ge(TT,I0))
  8744	  xtst(ge(TT,P0))
  8745	  xtst(ge(TT,M0))
  8746	  xtst(ge(TT,B0))
  8747	  xtst(ge(FF,TT))
  8748	  xtst(ge(FF,FF))
  8749	  xtst(ge(FF,I0))
  8750	  xtst(ge(FF,P0))
  8751	  xtst(ge(FF,M0))
  8752	  xtst(ge(FF,B0))
  8753	  xtst(ge(I0,TT))
  8754	  xtst(ge(I0,FF))
  8755	  xtst(ge(I0,P0))
  8756	  xtst(ge(I0,M0))
  8757	  xtst(ge(I0,B0))
  8758	  xtst(ge(P0,TT))
  8759	  xtst(ge(P0,FF))
  8760	  xtst(ge(P0,I0))
  8761	  xtst(ge(P0,P0))
  8762	  xtst(ge(P0,M0))
  8763	  xtst(ge(P0,B0))
  8764	  xtst(ge(M0,TT))
  8765	  xtst(ge(M0,FF))
  8766	  xtst(ge(M0,I0))
  8767	  xtst(ge(M0,P0))
  8768	  xtst(ge(M0,M0))
  8769	  xtst(ge(M0,B0))
  8770	  xtst(ge(B0,TT))
  8771	  xtst(ge(B0,FF))
  8772	  xtst(ge(B0,I0))
  8773	  xtst(ge(B0,P0))
  8774	  xtst(ge(B0,M0))
  8775	  xtst(ge(B0,B0))
  8776	  ttst(ge(I0011     ,I0011     ))
  8777	  ftst(ge(I0011     ,I0101     ))
  8778	  ttst(ge(I1100     ,I1010     ))
  8779	  ttst(ge(I0011_1100,I0011_1100))
  8780	  ttst(ge(I0011_1100,I0101_1010))
  8781	  ftst(ge(I1100_0011,I1010_0101))
  8782	  ftst(ge(I0011     ,I0101_1010))
  8783	  ttst(ge(I0101_1010,I0011     ))
  8784	  ttst(ge(I0011     ,J0101     ))
  8785	  ttst(ge(I1100     ,J1010     ))
  8786	  ttst(ge(I0011_1100,J0101_1010))
  8787	  ttst(ge(I0011     ,J0101_1010))
  8788	  ttst(ge(I0101_1010,J0011     ))
  8789	  ftst(ge(J0011     ,I0101     ))
  8790	  ftst(ge(J1100     ,I1010     ))
  8791	  ftst(ge(J0011_1100,I0101_1010))
  8792	  ftst(ge(J0011     ,I0101_1010))
  8793	  ftst(ge(J0101_1010,I0011     ))
  8794	  ttst(ge(J0011     ,J0011     ))
  8795	  ftst(ge(J0011     ,J0101     ))
  8796	  ttst(ge(J1100     ,J1010     ))
  8797	  ttst(ge(J0011_1100,J0011_1100))
  8798	  ttst(ge(J0011_1100,J0101_1010))
  8799	  ftst(ge(J1100_0011,J1010_0101))
  8800	  ttst(ge(J0011     ,J0101_1010))
  8801	  ftst(ge(J0101_1010,J0011     ))
  8802	
  8803	  xtst(evenp(TT))
  8804	  xtst(evenp(FF))
  8805	  xtst(evenp(P0))
  8806	  xtst(evenp(M0))
  8807	  xtst(evenp(B0))
  8808	  ttst(evenp(Z))
  8809	  ftst(evenp(M))
  8810	  ftst(evenp(I0011))
  8811	  ttst(evenp(J1010_0101))
  8812	
  8813	  xtst(half(TT))
  8814	  xtst(half(FF))
  8815	  xtst(half(P0))
  8816	  xtst(half(M0))
  8817	  xtst(half(B0))
  8818	  etst(half(Z),Z)
  8819	  etst(half(M),M)
  8820	  etst(half(I[1]),I[0])
  8821	  etst(half(I[2]),I[1])
  8822	  etst(half(I[3]),I[1])
  8823	  etst(half(I[4]),I[2])
  8824	  etst(half(I[5]),I[2])
  8825	  etst(half(I[6]),I[3])
  8826	  etst(half(JN(-2)),M)
  8827	  etst(half(JN(-3)),JN(-2))
  8828	  etst(half(JN(-4)),JN(-2))
  8829	  etst(half(JN(-5)),JN(-3))
  8830	  etst(half(JN(-6)),JN(-3))
  8831	  etst(half(JN(-7)),JN(-4))
  8832	
  8833	  xtst(small(TT))
  8834	  xtst(small(FF))
  8835	  xtst(small(P0))
  8836	  xtst(small(M0))
  8837	  xtst(small(B0))
  8838	  ttst(small(Z))
  8839	  ttst(small(M))
  8840	  ftst(small(I0011))
  8841	  ftst(small(J1010_0101))
  8842	
  8843	  etst(base(),I[10])
  8844	
  8845	  etst(zero(),I[0])
  8846	
  8847	  xtst(plus(TT,TT))
  8848	  xtst(plus(TT,FF))
  8849	  xtst(plus(TT,I0))
  8850	  xtst(plus(TT,P0))
  8851	  xtst(plus(TT,M0))
  8852	  xtst(plus(TT,B0))
  8853	  xtst(plus(FF,TT))
  8854	  xtst(plus(FF,FF))
  8855	  xtst(plus(FF,I0))
  8856	  xtst(plus(FF,P0))
  8857	  xtst(plus(FF,M0))
  8858	  xtst(plus(FF,B0))
  8859	  xtst(plus(I0,TT))
  8860	  xtst(plus(I0,FF))
  8861	  xtst(plus(I0,P0))
  8862	  xtst(plus(I0,M0))
  8863	  xtst(plus(I0,B0))
  8864	  xtst(plus(P0,TT))
  8865	  xtst(plus(P0,FF))
  8866	  xtst(plus(P0,I0))
  8867	  xtst(plus(P0,P0))
  8868	  xtst(plus(P0,M0))
  8869	  xtst(plus(P0,B0))
  8870	  xtst(plus(M0,TT))
  8871	  xtst(plus(M0,FF))
  8872	  xtst(plus(M0,I0))
  8873	  xtst(plus(M0,P0))
  8874	  xtst(plus(M0,M0))
  8875	  xtst(plus(M0,B0))
  8876	  xtst(plus(B0,TT))
  8877	  xtst(plus(B0,FF))
  8878	  xtst(plus(B0,I0))
  8879	  xtst(plus(B0,P0))
  8880	  xtst(plus(B0,M0))
  8881	  xtst(plus(B0,B0))
  8882	  etst(plus(JN(-3),JN(-3)),JN(-6))
  8883	  etst(plus(JN(-3),JN(-2)),JN(-5))
  8884	  etst(plus(JN(-3),JN(-1)),JN(-4))
  8885	  etst(plus(JN(-3),JN( 0)),JN(-3))
  8886	  etst(plus(JN(-3),JN( 1)),JN(-2))
  8887	  etst(plus(JN(-3),JN( 2)),JN(-1))
  8888	  etst(plus(JN(-2),JN(-3)),JN(-5))
  8889	  etst(plus(JN(-2),JN(-2)),JN(-4))
  8890	  etst(plus(JN(-2),JN(-1)),JN(-3))
  8891	  etst(plus(JN(-2),JN( 0)),JN(-2))
  8892	  etst(plus(JN(-2),JN( 1)),JN(-1))
  8893	  etst(plus(JN(-2),JN( 2)),JN( 0))
  8894	  etst(plus(JN(-1),JN(-3)),JN(-4))
  8895	  etst(plus(JN(-1),JN(-2)),JN(-3))
  8896	  etst(plus(JN(-1),JN(-1)),JN(-2))
  8897	  etst(plus(JN(-1),JN( 0)),JN(-1))
  8898	  etst(plus(JN(-1),JN( 1)),JN( 0))
  8899	  etst(plus(JN(-1),JN( 2)),JN( 1))
  8900	  etst(plus(JN( 0),JN(-3)),JN(-3))
  8901	  etst(plus(JN( 0),JN(-2)),JN(-2))
  8902	  etst(plus(JN( 0),JN(-1)),JN(-1))
  8903	  etst(plus(JN( 0),JN( 0)),JN( 0))
  8904	  etst(plus(JN( 0),JN( 1)),JN( 1))
  8905	  etst(plus(JN( 0),JN( 2)),JN( 2))
  8906	  etst(plus(JN( 1),JN(-3)),JN(-2))
  8907	  etst(plus(JN( 1),JN(-2)),JN(-1))
  8908	  etst(plus(JN( 1),JN(-1)),JN( 0))
  8909	  etst(plus(JN( 1),JN( 0)),JN( 1))
  8910	  etst(plus(JN( 1),JN( 1)),JN( 2))
  8911	  etst(plus(JN( 1),JN( 2)),JN( 3))
  8912	  etst(plus(JN( 2),JN(-3)),JN(-1))
  8913	  etst(plus(JN( 2),JN(-2)),JN( 0))
  8914	  etst(plus(JN( 2),JN(-1)),JN( 1))
  8915	  etst(plus(JN( 2),JN( 0)),JN( 2))
  8916	  etst(plus(JN( 2),JN( 1)),JN( 3))
  8917	  etst(plus(JN( 2),JN( 2)),JN( 4))
  8918	  etst(plus(K2( 0, 0),K2( 0, 0)),K2( 0, 0))
  8919	  etst(plus(K2( 0, 0),K2( 0,-1)),K2( 0,-1))
  8920	  etst(plus(K2( 0, 0),K2(-1, 0)),K2(-1, 0))
  8921	  etst(plus(K2( 0, 0),K2(-1,-1)),K2(-1,-1))
  8922	  etst(plus(K2( 0,-1),K2( 0, 0)),K2( 0,-1))
  8923	  etst(plus(K2( 0,-1),K2( 0,-1)),K2( 0,-2))
  8924	  etst(plus(K2( 0,-1),K2(-1, 0)),K2(-1,-1))
  8925	  etst(plus(K2( 0,-1),K2(-1,-1)),K2(-1,-2))
  8926	  etst(plus(K2(-1, 0),K2( 0, 0)),K2(-1, 0))
  8927	  etst(plus(K2(-1, 0),K2( 0,-1)),K2(-1,-1))
  8928	  etst(plus(K2(-1, 0),K2(-1, 0)),K2(-2, 1))
  8929	  etst(plus(K2(-1, 0),K2(-1,-1)),K2(-2, 0))
  8930	  etst(plus(K2(-1,-1),K2( 0, 0)),K2(-1,-1))
  8931	  etst(plus(K2(-1,-1),K2( 0,-1)),K2(-1,-2))
  8932	  etst(plus(K2(-1,-1),K2(-1, 0)),K2(-2, 0))
  8933	  etst(plus(K2(-1,-1),K2(-1,-1)),K2(-2,-1))
  8934	
  8935	  etst(plus(N(-1000000000000),N(-1000000000000)),N(-2000000000000))
  8936	  etst(plus(N(-1000000000000),N(   -1000000000)),N(-1001000000000))
  8937	  etst(plus(N(-1000000000000),N(      -1000000)),N(-1000001000000))
  8938	  etst(plus(N(-1000000000000),N(         -1000)),N(-1000000001000))
  8939	  etst(plus(N(-1000000000000),N(          -100)),N(-1000000000100))
  8940	  etst(plus(N(-1000000000000),N(           -10)),N(-1000000000010))
  8941	  etst(plus(N(-1000000000000),N(            -1)),N(-1000000000001))
  8942	  etst(plus(N(-1000000000000),N(             0)),N(-1000000000000))
  8943	  etst(plus(N(-1000000000000),N(             1)),N(-0999999999999))
  8944	  etst(plus(N(-1000000000000),N(            10)),N(-0999999999990))
  8945	  etst(plus(N(-1000000000000),N(           100)),N(-0999999999900))
  8946	  etst(plus(N(-1000000000000),N(          1000)),N(-0999999999000))
  8947	  etst(plus(N(-1000000000000),N(       1000000)),N(-0999999000000))
  8948	  etst(plus(N(-1000000000000),N(    1000000000)),N(-0999000000000))
  8949	  etst(plus(N(-1000000000000),N( 1000000000000)),N(-0000000000000))
  8950	
  8951	  etst(plus(N(   -1000000000),N(-1000000000000)),N(-1001000000000))
  8952	  etst(plus(N(   -1000000000),N(   -1000000000)),N(-0002000000000))
  8953	  etst(plus(N(   -1000000000),N(      -1000000)),N(-0001001000000))
  8954	  etst(plus(N(   -1000000000),N(         -1000)),N(-0001000001000))
  8955	  etst(plus(N(   -1000000000),N(          -100)),N(-0001000000100))
  8956	  etst(plus(N(   -1000000000),N(           -10)),N(-0001000000010))
  8957	  etst(plus(N(   -1000000000),N(            -1)),N(-0001000000001))
  8958	  etst(plus(N(   -1000000000),N(             0)),N(-0001000000000))
  8959	  etst(plus(N(   -1000000000),N(             1)),N(-0000999999999))
  8960	  etst(plus(N(   -1000000000),N(            10)),N(-0000999999990))
  8961	  etst(plus(N(   -1000000000),N(           100)),N(-0000999999900))
  8962	  etst(plus(N(   -1000000000),N(          1000)),N(-0000999999000))
  8963	  etst(plus(N(   -1000000000),N(       1000000)),N(-0000999000000))
  8964	  etst(plus(N(   -1000000000),N(    1000000000)),N(-0000000000000))
  8965	  etst(plus(N(   -1000000000),N( 1000000000000)),N( 0999000000000))
  8966	
  8967	  etst(plus(N(      -1000000),N(-1000000000000)),N(-1000001000000))
  8968	  etst(plus(N(      -1000000),N(   -1000000000)),N(-0001001000000))
  8969	  etst(plus(N(      -1000000),N(      -1000000)),N(-0000002000000))
  8970	  etst(plus(N(      -1000000),N(         -1000)),N(-0000001001000))
  8971	  etst(plus(N(      -1000000),N(          -100)),N(-0000001000100))
  8972	  etst(plus(N(      -1000000),N(           -10)),N(-0000001000010))
  8973	  etst(plus(N(      -1000000),N(            -1)),N(-0000001000001))
  8974	  etst(plus(N(      -1000000),N(             0)),N(-0000001000000))
  8975	  etst(plus(N(      -1000000),N(             1)),N(-0000000999999))
  8976	  etst(plus(N(      -1000000),N(            10)),N(-0000000999990))
  8977	  etst(plus(N(      -1000000),N(           100)),N(-0000000999900))
  8978	  etst(plus(N(      -1000000),N(          1000)),N(-0000000999000))
  8979	  etst(plus(N(      -1000000),N(       1000000)),N(-0000000000000))
  8980	  etst(plus(N(      -1000000),N(    1000000000)),N( 0000999000000))
  8981	  etst(plus(N(      -1000000),N( 1000000000000)),N( 0999999000000))
  8982	
  8983	  etst(plus(N(         -1000),N(-1000000000000)),N(-1000000001000))
  8984	  etst(plus(N(         -1000),N(   -1000000000)),N(-0001000001000))
  8985	  etst(plus(N(         -1000),N(      -1000000)),N(-0000001001000))
  8986	  etst(plus(N(         -1000),N(         -1000)),N(-0000000002000))
  8987	  etst(plus(N(         -1000),N(          -100)),N(-0000000001100))
  8988	  etst(plus(N(         -1000),N(           -10)),N(-0000000001010))
  8989	  etst(plus(N(         -1000),N(            -1)),N(-0000000001001))
  8990	  etst(plus(N(         -1000),N(             0)),N(-0000000001000))
  8991	  etst(plus(N(         -1000),N(             1)),N(-0000000000999))
  8992	  etst(plus(N(         -1000),N(            10)),N(-0000000000990))
  8993	  etst(plus(N(         -1000),N(           100)),N(-0000000000900))
  8994	  etst(plus(N(         -1000),N(          1000)),N( 0000000000000))
  8995	  etst(plus(N(         -1000),N(       1000000)),N( 0000000999000))
  8996	  etst(plus(N(         -1000),N(    1000000000)),N( 0000999999000))
  8997	  etst(plus(N(         -1000),N( 1000000000000)),N( 0999999999000))
  8998	
  8999	  etst(plus(N(          -100),N(-1000000000000)),N(-1000000000100))
  9000	  etst(plus(N(          -100),N(   -1000000000)),N(-0001000000100))
  9001	  etst(plus(N(          -100),N(      -1000000)),N(-0000001000100))
  9002	  etst(plus(N(          -100),N(         -1000)),N(-0000000001100))
  9003	  etst(plus(N(          -100),N(          -100)),N(-0000000000200))
  9004	  etst(plus(N(          -100),N(           -10)),N(-0000000000110))
  9005	  etst(plus(N(          -100),N(            -1)),N(-0000000000101))
  9006	  etst(plus(N(          -100),N(             0)),N(-0000000000100))
  9007	  etst(plus(N(          -100),N(             1)),N(-0000000000099))
  9008	  etst(plus(N(          -100),N(            10)),N(-0000000000090))
  9009	  etst(plus(N(          -100),N(           100)),N( 0000000000000))
  9010	  etst(plus(N(          -100),N(          1000)),N( 0000000000900))
  9011	  etst(plus(N(          -100),N(       1000000)),N( 0000000999900))
  9012	  etst(plus(N(          -100),N(    1000000000)),N( 0000999999900))
  9013	  etst(plus(N(          -100),N( 1000000000000)),N( 0999999999900))
  9014	
  9015	  etst(plus(N(           -10),N(-1000000000000)),N(-1000000000010))
  9016	  etst(plus(N(           -10),N(   -1000000000)),N(-0001000000010))
  9017	  etst(plus(N(           -10),N(      -1000000)),N(-0000001000010))
  9018	  etst(plus(N(           -10),N(         -1000)),N(-0000000001010))
  9019	  etst(plus(N(           -10),N(          -100)),N(-0000000000110))
  9020	  etst(plus(N(           -10),N(           -10)),N(-0000000000020))
  9021	  etst(plus(N(           -10),N(            -1)),N(-0000000000011))
  9022	  etst(plus(N(           -10),N(             0)),N(-0000000000010))
  9023	  etst(plus(N(           -10),N(             1)),N(-0000000000009))
  9024	  etst(plus(N(           -10),N(            10)),N( 0000000000000))
  9025	  etst(plus(N(           -10),N(           100)),N( 0000000000090))
  9026	  etst(plus(N(           -10),N(          1000)),N( 0000000000990))
  9027	  etst(plus(N(           -10),N(       1000000)),N( 0000000999990))
  9028	  etst(plus(N(           -10),N(    1000000000)),N( 0000999999990))
  9029	  etst(plus(N(           -10),N( 1000000000000)),N( 0999999999990))
  9030	
  9031	  etst(plus(N(            -1),N(-1000000000000)),N(-1000000000001))
  9032	  etst(plus(N(            -1),N(   -1000000000)),N(-0001000000001))
  9033	  etst(plus(N(            -1),N(      -1000000)),N(-0000001000001))
  9034	  etst(plus(N(            -1),N(         -1000)),N(-0000000001001))
  9035	  etst(plus(N(            -1),N(          -100)),N(-0000000000101))
  9036	  etst(plus(N(            -1),N(           -10)),N(-0000000000011))
  9037	  etst(plus(N(            -1),N(            -1)),N(-0000000000002))
  9038	  etst(plus(N(            -1),N(             0)),N(-0000000000001))
  9039	  etst(plus(N(            -1),N(             1)),N( 0000000000000))
  9040	  etst(plus(N(            -1),N(            10)),N( 0000000000009))
  9041	  etst(plus(N(            -1),N(           100)),N( 0000000000099))
  9042	  etst(plus(N(            -1),N(          1000)),N( 0000000000999))
  9043	  etst(plus(N(            -1),N(       1000000)),N( 0000000999999))
  9044	  etst(plus(N(            -1),N(    1000000000)),N( 0000999999999))
  9045	  etst(plus(N(            -1),N( 1000000000000)),N( 0999999999999))
  9046	
  9047	  etst(plus(N(             0),N(-1000000000000)),N(-1000000000000))
  9048	  etst(plus(N(             0),N(   -1000000000)),N(-0001000000000))
  9049	  etst(plus(N(             0),N(      -1000000)),N(-0000001000000))
  9050	  etst(plus(N(             0),N(         -1000)),N(-0000000001000))
  9051	  etst(plus(N(             0),N(          -100)),N(-0000000000100))
  9052	  etst(plus(N(             0),N(           -10)),N(-0000000000010))
  9053	  etst(plus(N(             0),N(            -1)),N(-0000000000001))
  9054	  etst(plus(N(             0),N(             0)),N( 0000000000000))
  9055	  etst(plus(N(             0),N(             1)),N( 0000000000001))
  9056	  etst(plus(N(             0),N(            10)),N( 0000000000010))
  9057	  etst(plus(N(             0),N(           100)),N( 0000000000100))
  9058	  etst(plus(N(             0),N(          1000)),N( 0000000001000))
  9059	  etst(plus(N(             0),N(       1000000)),N( 0000001000000))
  9060	  etst(plus(N(             0),N(    1000000000)),N( 0001000000000))
  9061	  etst(plus(N(             0),N( 1000000000000)),N( 1000000000000))
  9062	
  9063	  etst(plus(N( 1000000000000),N( 1000000000000)),N( 2000000000000))
  9064	  etst(plus(N( 1000000000000),N(    1000000000)),N( 1001000000000))
  9065	  etst(plus(N( 1000000000000),N(       1000000)),N( 1000001000000))
  9066	  etst(plus(N( 1000000000000),N(          1000)),N( 1000000001000))
  9067	  etst(plus(N( 1000000000000),N(           100)),N( 1000000000100))
  9068	  etst(plus(N( 1000000000000),N(            10)),N( 1000000000010))
  9069	  etst(plus(N( 1000000000000),N(             1)),N( 1000000000001))
  9070	  etst(plus(N( 1000000000000),N(             0)),N( 1000000000000))
  9071	  etst(plus(N( 1000000000000),N(            -1)),N( 0999999999999))
  9072	  etst(plus(N( 1000000000000),N(           -10)),N( 0999999999990))
  9073	  etst(plus(N( 1000000000000),N(          -100)),N( 0999999999900))
  9074	  etst(plus(N( 1000000000000),N(         -1000)),N( 0999999999000))
  9075	  etst(plus(N( 1000000000000),N(      -1000000)),N( 0999999000000))
  9076	  etst(plus(N( 1000000000000),N(   -1000000000)),N( 0999000000000))
  9077	  etst(plus(N( 1000000000000),N(-1000000000000)),N( 0000000000000))
  9078	
  9079	  etst(plus(N(    1000000000),N( 1000000000000)),N( 1001000000000))
  9080	  etst(plus(N(    1000000000),N(    1000000000)),N( 0002000000000))
  9081	  etst(plus(N(    1000000000),N(       1000000)),N( 0001001000000))
  9082	  etst(plus(N(    1000000000),N(          1000)),N( 0001000001000))
  9083	  etst(plus(N(    1000000000),N(           100)),N( 0001000000100))
  9084	  etst(plus(N(    1000000000),N(            10)),N( 0001000000010))
  9085	  etst(plus(N(    1000000000),N(             1)),N( 0001000000001))
  9086	  etst(plus(N(    1000000000),N(             0)),N( 0001000000000))
  9087	  etst(plus(N(    1000000000),N(            -1)),N( 0000999999999))
  9088	  etst(plus(N(    1000000000),N(           -10)),N( 0000999999990))
  9089	  etst(plus(N(    1000000000),N(          -100)),N( 0000999999900))
  9090	  etst(plus(N(    1000000000),N(         -1000)),N( 0000999999000))
  9091	  etst(plus(N(    1000000000),N(      -1000000)),N( 0000999000000))
  9092	  etst(plus(N(    1000000000),N(   -1000000000)),N( 0000000000000))
  9093	  etst(plus(N(    1000000000),N(-1000000000000)),N(-0999000000000))
  9094	
  9095	  etst(plus(N(       1000000),N( 1000000000000)),N( 1000001000000))
  9096	  etst(plus(N(       1000000),N(    1000000000)),N( 0001001000000))
  9097	  etst(plus(N(       1000000),N(       1000000)),N( 0000002000000))
  9098	  etst(plus(N(       1000000),N(          1000)),N( 0000001001000))
  9099	  etst(plus(N(       1000000),N(           100)),N( 0000001000100))
  9100	  etst(plus(N(       1000000),N(            10)),N( 0000001000010))
  9101	  etst(plus(N(       1000000),N(             1)),N( 0000001000001))
  9102	  etst(plus(N(       1000000),N(             0)),N( 0000001000000))
  9103	  etst(plus(N(       1000000),N(            -1)),N( 0000000999999))
  9104	  etst(plus(N(       1000000),N(           -10)),N( 0000000999990))
  9105	  etst(plus(N(       1000000),N(          -100)),N( 0000000999900))
  9106	  etst(plus(N(       1000000),N(         -1000)),N( 0000000999000))
  9107	  etst(plus(N(       1000000),N(      -1000000)),N( 0000000000000))
  9108	  etst(plus(N(       1000000),N(   -1000000000)),N(-0000999000000))
  9109	  etst(plus(N(       1000000),N(-1000000000000)),N(-0999999000000))
  9110	
  9111	  etst(plus(N(          1000),N( 1000000000000)),N( 1000000001000))
  9112	  etst(plus(N(          1000),N(    1000000000)),N( 0001000001000))
  9113	  etst(plus(N(          1000),N(       1000000)),N( 0000001001000))
  9114	  etst(plus(N(          1000),N(          1000)),N( 0000000002000))
  9115	  etst(plus(N(          1000),N(           100)),N( 0000000001100))
  9116	  etst(plus(N(          1000),N(            10)),N( 0000000001010))
  9117	  etst(plus(N(          1000),N(             1)),N( 0000000001001))
  9118	  etst(plus(N(          1000),N(             0)),N( 0000000001000))
  9119	  etst(plus(N(          1000),N(            -1)),N( 0000000000999))
  9120	  etst(plus(N(          1000),N(           -10)),N( 0000000000990))
  9121	  etst(plus(N(          1000),N(          -100)),N( 0000000000900))
  9122	  etst(plus(N(          1000),N(         -1000)),N(-0000000000000))
  9123	  etst(plus(N(          1000),N(      -1000000)),N(-0000000999000))
  9124	  etst(plus(N(          1000),N(   -1000000000)),N(-0000999999000))
  9125	  etst(plus(N(          1000),N(-1000000000000)),N(-0999999999000))
  9126	
  9127	  etst(plus(N(           100),N( 1000000000000)),N( 1000000000100))
  9128	  etst(plus(N(           100),N(    1000000000)),N( 0001000000100))
  9129	  etst(plus(N(           100),N(       1000000)),N( 0000001000100))
  9130	  etst(plus(N(           100),N(          1000)),N( 0000000001100))
  9131	  etst(plus(N(           100),N(           100)),N( 0000000000200))
  9132	  etst(plus(N(           100),N(            10)),N( 0000000000110))
  9133	  etst(plus(N(           100),N(             1)),N( 0000000000101))
  9134	  etst(plus(N(           100),N(             0)),N( 0000000000100))
  9135	  etst(plus(N(           100),N(            -1)),N( 0000000000099))
  9136	  etst(plus(N(           100),N(           -10)),N( 0000000000090))
  9137	  etst(plus(N(           100),N(          -100)),N(-0000000000000))
  9138	  etst(plus(N(           100),N(         -1000)),N(-0000000000900))
  9139	  etst(plus(N(           100),N(      -1000000)),N(-0000000999900))
  9140	  etst(plus(N(           100),N(   -1000000000)),N(-0000999999900))
  9141	  etst(plus(N(           100),N(-1000000000000)),N(-0999999999900))
  9142	
  9143	  etst(plus(N(            10),N( 1000000000000)),N( 1000000000010))
  9144	  etst(plus(N(            10),N(    1000000000)),N( 0001000000010))
  9145	  etst(plus(N(            10),N(       1000000)),N( 0000001000010))
  9146	  etst(plus(N(            10),N(          1000)),N( 0000000001010))
  9147	  etst(plus(N(            10),N(           100)),N( 0000000000110))
  9148	  etst(plus(N(            10),N(            10)),N( 0000000000020))
  9149	  etst(plus(N(            10),N(             1)),N( 0000000000011))
  9150	  etst(plus(N(            10),N(             0)),N( 0000000000010))
  9151	  etst(plus(N(            10),N(            -1)),N( 0000000000009))
  9152	  etst(plus(N(            10),N(           -10)),N(-0000000000000))
  9153	  etst(plus(N(            10),N(          -100)),N(-0000000000090))
  9154	  etst(plus(N(            10),N(         -1000)),N(-0000000000990))
  9155	  etst(plus(N(            10),N(      -1000000)),N(-0000000999990))
  9156	  etst(plus(N(            10),N(   -1000000000)),N(-0000999999990))
  9157	  etst(plus(N(            10),N(-1000000000000)),N(-0999999999990))
  9158	
  9159	  etst(plus(N(             1),N( 1000000000000)),N( 1000000000001))
  9160	  etst(plus(N(             1),N(    1000000000)),N( 0001000000001))
  9161	  etst(plus(N(             1),N(       1000000)),N( 0000001000001))
  9162	  etst(plus(N(             1),N(          1000)),N( 0000000001001))
  9163	  etst(plus(N(             1),N(           100)),N( 0000000000101))
  9164	  etst(plus(N(             1),N(            10)),N( 0000000000011))
  9165	  etst(plus(N(             1),N(             1)),N( 0000000000002))
  9166	  etst(plus(N(             1),N(             0)),N( 0000000000001))
  9167	  etst(plus(N(             1),N(            -1)),N(-0000000000000))
  9168	  etst(plus(N(             1),N(           -10)),N(-0000000000009))
  9169	  etst(plus(N(             1),N(          -100)),N(-0000000000099))
  9170	  etst(plus(N(             1),N(         -1000)),N(-0000000000999))
  9171	  etst(plus(N(             1),N(      -1000000)),N(-0000000999999))
  9172	  etst(plus(N(             1),N(   -1000000000)),N(-0000999999999))
  9173	  etst(plus(N(             1),N(-1000000000000)),N(-0999999999999))
  9174	
  9175	  xtst(minus(TT,TT))
  9176	  xtst(minus(TT,FF))
  9177	  xtst(minus(TT,I0))
  9178	  xtst(minus(TT,P0))
  9179	  xtst(minus(TT,M0))
  9180	  xtst(minus(TT,B0))
  9181	  xtst(minus(FF,TT))
  9182	  xtst(minus(FF,FF))
  9183	  xtst(minus(FF,I0))
  9184	  xtst(minus(FF,P0))
  9185	  xtst(minus(FF,M0))
  9186	  xtst(minus(FF,B0))
  9187	  xtst(minus(I0,TT))
  9188	  xtst(minus(I0,FF))
  9189	  xtst(minus(I0,P0))
  9190	  xtst(minus(I0,M0))
  9191	  xtst(minus(I0,B0))
  9192	  xtst(minus(P0,TT))
  9193	  xtst(minus(P0,FF))
  9194	  xtst(minus(P0,I0))
  9195	  xtst(minus(P0,P0))
  9196	  xtst(minus(P0,M0))
  9197	  xtst(minus(P0,B0))
  9198	  xtst(minus(M0,TT))
  9199	  xtst(minus(M0,FF))
  9200	  xtst(minus(M0,I0))
  9201	  xtst(minus(M0,P0))
  9202	  xtst(minus(M0,M0))
  9203	  xtst(minus(M0,B0))
  9204	  xtst(minus(B0,TT))
  9205	  xtst(minus(B0,FF))
  9206	  xtst(minus(B0,I0))
  9207	  xtst(minus(B0,P0))
  9208	  xtst(minus(B0,M0))
  9209	  xtst(minus(B0,B0))
  9210	  etst(minus(JN(-3),JN(-3)),JN( 0))
  9211	  etst(minus(JN(-3),JN(-2)),JN(-1))
  9212	  etst(minus(JN(-3),JN(-1)),JN(-2))
  9213	  etst(minus(JN(-3),JN( 0)),JN(-3))
  9214	  etst(minus(JN(-3),JN( 1)),JN(-4))
  9215	  etst(minus(JN(-3),JN( 2)),JN(-5))
  9216	  etst(minus(JN(-2),JN(-3)),JN( 1))
  9217	  etst(minus(JN(-2),JN(-2)),JN( 0))
  9218	  etst(minus(JN(-2),JN(-1)),JN(-1))
  9219	  etst(minus(JN(-2),JN( 0)),JN(-2))
  9220	  etst(minus(JN(-2),JN( 1)),JN(-3))
  9221	  etst(minus(JN(-2),JN( 2)),JN(-4))
  9222	  etst(minus(JN(-1),JN(-3)),JN( 2))
  9223	  etst(minus(JN(-1),JN(-2)),JN( 1))
  9224	  etst(minus(JN(-1),JN(-1)),JN( 0))
  9225	  etst(minus(JN(-1),JN( 0)),JN(-1))
  9226	  etst(minus(JN(-1),JN( 1)),JN(-2))
  9227	  etst(minus(JN(-1),JN( 2)),JN(-3))
  9228	  etst(minus(JN( 0),JN(-3)),JN( 3))
  9229	  etst(minus(JN( 0),JN(-2)),JN( 2))
  9230	  etst(minus(JN( 0),JN(-1)),JN( 1))
  9231	  etst(minus(JN( 0),JN( 0)),JN( 0))
  9232	  etst(minus(JN( 0),JN( 1)),JN(-1))
  9233	  etst(minus(JN( 0),JN( 2)),JN(-2))
  9234	  etst(minus(JN( 1),JN(-3)),JN( 4))
  9235	  etst(minus(JN( 1),JN(-2)),JN( 3))
  9236	  etst(minus(JN( 1),JN(-1)),JN( 2))
  9237	  etst(minus(JN( 1),JN( 0)),JN( 1))
  9238	  etst(minus(JN( 1),JN( 1)),JN( 0))
  9239	  etst(minus(JN( 1),JN( 2)),JN(-1))
  9240	  etst(minus(JN( 2),JN(-3)),JN( 5))
  9241	  etst(minus(JN( 2),JN(-2)),JN( 4))
  9242	  etst(minus(JN( 2),JN(-1)),JN( 3))
  9243	  etst(minus(JN( 2),JN( 0)),JN( 2))
  9244	  etst(minus(JN( 2),JN( 1)),JN( 1))
  9245	  etst(minus(JN( 2),JN( 2)),JN( 0))
  9246	  etst(minus(K2( 0, 0),K2( 0, 0)),K2( 0, 0))
  9247	  etst(minus(K2( 0, 0),K2( 0, 1)),K2( 0,-1))
  9248	  etst(minus(K2( 0, 0),K2( 1,-1)),K2(-1, 0))
  9249	  etst(minus(K2( 0, 0),K2( 1, 0)),K2(-1,-1))
  9250	  etst(minus(K2( 0,-1),K2( 0, 0)),K2( 0,-1))
  9251	  etst(minus(K2( 0,-1),K2( 0, 1)),K2( 0,-2))
  9252	  etst(minus(K2( 0,-1),K2( 1,-1)),K2(-1,-1))
  9253	  etst(minus(K2( 0,-1),K2( 1, 0)),K2(-1,-2))
  9254	  etst(minus(K2(-1, 0),K2( 0, 0)),K2(-1, 0))
  9255	  etst(minus(K2(-1, 0),K2( 0, 1)),K2(-1,-1))
  9256	  etst(minus(K2(-1, 0),K2( 1,-1)),K2(-2, 1))
  9257	  etst(minus(K2(-1, 0),K2( 1, 0)),K2(-2, 0))
  9258	  etst(minus(K2(-1,-1),K2( 0, 0)),K2(-1,-1))
  9259	  etst(minus(K2(-1,-1),K2( 0, 1)),K2(-1,-2))
  9260	  etst(minus(K2(-1,-1),K2( 1,-1)),K2(-2, 0))
  9261	  etst(minus(K2(-1,-1),K2( 1, 0)),K2(-2,-1))
  9262	
  9263	  xtst(unaryPlus(TT))
  9264	  xtst(unaryPlus(FF))
  9265	  xtst(unaryPlus(P0))
  9266	  xtst(unaryPlus(M0))
  9267	  xtst(unaryPlus(B0))
  9268	  etst(unaryPlus(Z),Z)
  9269	  etst(unaryPlus(M),M)
  9270	  etst(unaryPlus(I0011),I0011)
  9271	  etst(unaryPlus(J1010_0101),J1010_0101)
  9272	
  9273	  xtst(unaryMinus(TT))
  9274	  xtst(unaryMinus(FF))
  9275	  xtst(unaryMinus(P0))
  9276	  xtst(unaryMinus(M0))
  9277	  xtst(unaryMinus(B0))
  9278	  etst(unaryMinus(JN(-2)),JN( 2))
  9279	  etst(unaryMinus(JN(-1)),JN( 1))
  9280	  etst(unaryMinus(JN( 0)),JN( 0))
  9281	  etst(unaryMinus(JN( 1)),JN(-1))
  9282	  etst(unaryMinus(JN( 2)),JN(-2))
  9283	  etst(unaryMinus(K2(-1,-1)),K2( 1, 0))
  9284	  etst(unaryMinus(K2(-1, 0)),K2( 1,-1))
  9285	  etst(unaryMinus(K2(-1, 1)),K2( 1,-2))
  9286	  etst(unaryMinus(K2( 0,-1)),K2( 0, 1))
  9287	  etst(unaryMinus(K2( 0, 0)),K2( 0, 0))
  9288	  etst(unaryMinus(K2( 0, 1)),K2( 0,-1))
  9289	  etst(unaryMinus(K2( 1,-1)),K2(-1, 0))
  9290	  etst(unaryMinus(K2( 1, 0)),K2(-1,-1))
  9291	  etst(unaryMinus(K2( 1, 1)),K2(-1,-2))
  9292	
  9293	  xtst(integerLength(TT))
  9294	  xtst(integerLength(FF))
  9295	  xtst(integerLength(P0))
  9296	  xtst(integerLength(M0))
  9297	  xtst(integerLength(B0))
  9298	  etst(integerLength(Z),Z)
  9299	  etst(integerLength(M),Z)
  9300	  etst(integerLength(JN(1)),JN(1))
  9301	  etst(integerLength(JN(2)),JN(2))
  9302	  etst(integerLength(JN(3)),JN(2))
  9303	  etst(integerLength(JN(4)),JN(3))
  9304	  etst(integerLength(JN(5)),JN(3))
  9305	  etst(integerLength(JN(6)),JN(3))
  9306	  etst(integerLength(JN(7)),JN(3))
  9307	  etst(integerLength(JN(8)),JN(4))
  9308	  etst(integerLength(JN(-2)),JN(1))
  9309	  etst(integerLength(JN(-3)),JN(2))
  9310	  etst(integerLength(JN(-4)),JN(2))
  9311	  etst(integerLength(JN(-5)),JN(3))
  9312	  etst(integerLength(JN(-6)),JN(3))
  9313	  etst(integerLength(JN(-7)),JN(3))
  9314	  etst(integerLength(JN(-8)),JN(3))
  9315	  etst(integerLength(JN(-9)),JN(4))
  9316	  etst(integerLength(I0011_1100),JN(4+1*pntsize))
  9317	  etst(integerLength(J1011_1101),JN(2+1*pntsize))
  9318	  etst(integerLength(intcons(0,I0011_1100)),JN(4+2*pntsize))
  9319	  etst(integerLength(intcons(0,J1011_1101)),JN(2+2*pntsize))
  9320	  etst(integerLength(K2(0,-1)),JN(0+1*pntsize))
  9321	  etst(integerLength(K2(-1,0)),JN(0+1*pntsize))
  9322	
  9323	  xtst(logcount(TT))
  9324	  xtst(logcount(FF))
  9325	  xtst(logcount(P0))
  9326	  xtst(logcount(M0))
  9327	  xtst(logcount(B0))
  9328	  etst(logcount(Z),Z)
  9329	  etst(logcount(M),Z)
  9330	  etst(logcount(JN(1)),JN(1))
  9331	  etst(logcount(JN(2)),JN(1))
  9332	  etst(logcount(JN(3)),JN(2))
  9333	  etst(logcount(JN(4)),JN(1))
  9334	  etst(logcount(JN(5)),JN(2))
  9335	  etst(logcount(JN(6)),JN(2))
  9336	  etst(logcount(JN(7)),JN(3))
  9337	  etst(logcount(JN(8)),JN(1))
  9338	  etst(logcount(JN(-2)),JN(1))
  9339	  etst(logcount(JN(-3)),JN(1))
  9340	  etst(logcount(JN(-4)),JN(2))
  9341	  etst(logcount(JN(-5)),JN(1))
  9342	  etst(logcount(JN(-6)),JN(2))
  9343	  etst(logcount(JN(-7)),JN(2))
  9344	  etst(logcount(JN(-8)),JN(3))
  9345	  etst(logcount(JN(-9)),JN(1))
  9346	  etst(logcount(I0011_1100),JN(4))
  9347	  etst(logcount(J1011_1101),JN(2))
  9348	  etst(logcount(intcons(0,I0011_1100)),JN(4))
  9349	  etst(logcount(intcons(0,J1011_1101)),JN(2+1*pntsize))
  9350	  etst(logcount(K2(0,-1)),JN(0+1*pntsize))
  9351	  etst(logcount(K2(-1,0)),JN(0+1*pntsize))
  9352	
  9353	  xtst(digit0(TT))
  9354	  xtst(digit0(FF))
  9355	  xtst(digit0(P0))
  9356	  xtst(digit0(M0))
  9357	  xtst(digit0(B0))
  9358	  etst(digit0(JN( 0)),JN(  0))
  9359	  etst(digit0(JN( 1)),JN( 10))
  9360	  etst(digit0(JN( 2)),JN( 20))
  9361	  etst(digit0(JN( 3)),JN( 30))
  9362	  etst(digit0(JN( 4)),JN( 40))
  9363	  etst(digit0(JN( 5)),JN( 50))
  9364	  etst(digit0(JN( 6)),JN( 60))
  9365	  etst(digit0(JN( 7)),JN( 70))
  9366	  etst(digit0(JN( 8)),JN( 80))
  9367	  etst(digit0(JN( 9)),JN( 90))
  9368	  etst(digit0(JN(-1)),JN(-10))
  9369	  etst(digit0(JN(-2)),JN(-20))
  9370	  etst(digit0(JN(-3)),JN(-30))
  9371	  etst(digit0(JN(-4)),JN(-40))
  9372	  etst(digit0(JN(-5)),JN(-50))
  9373	  etst(digit0(JN(-6)),JN(-60))
  9374	  etst(digit0(JN(-7)),JN(-70))
  9375	  etst(digit0(JN(-8)),JN(-80))
  9376	  etst(digit0(JN(-9)),JN(-90))
  9377	
  9378	  xtst(digit1(TT))
  9379	  xtst(digit1(FF))
  9380	  xtst(digit1(P0))
  9381	  xtst(digit1(M0))
  9382	  xtst(digit1(B0))
  9383	  etst(digit1(JN( 0)),JN(  1))
  9384	  etst(digit1(JN( 1)),JN( 11))
  9385	  etst(digit1(JN( 2)),JN( 21))
  9386	  etst(digit1(JN( 3)),JN( 31))
  9387	  etst(digit1(JN( 4)),JN( 41))
  9388	  etst(digit1(JN( 5)),JN( 51))
  9389	  etst(digit1(JN( 6)),JN( 61))
  9390	  etst(digit1(JN( 7)),JN( 71))
  9391	  etst(digit1(JN( 8)),JN( 81))
  9392	  etst(digit1(JN( 9)),JN( 91))
  9393	  etst(digit1(JN(-1)),JN(- 9))
  9394	  etst(digit1(JN(-2)),JN(-19))
  9395	  etst(digit1(JN(-3)),JN(-29))
  9396	  etst(digit1(JN(-4)),JN(-39))
  9397	  etst(digit1(JN(-5)),JN(-49))
  9398	  etst(digit1(JN(-6)),JN(-59))
  9399	  etst(digit1(JN(-7)),JN(-69))
  9400	  etst(digit1(JN(-8)),JN(-79))
  9401	  etst(digit1(JN(-9)),JN(-89))
  9402	
  9403	  xtst(digit2(TT))
  9404	  xtst(digit2(FF))
  9405	  xtst(digit2(P0))
  9406	  xtst(digit2(M0))
  9407	  xtst(digit2(B0))
  9408	  etst(digit2(JN( 0)),JN(  2))
  9409	  etst(digit2(JN( 1)),JN( 12))
  9410	  etst(digit2(JN( 2)),JN( 22))
  9411	  etst(digit2(JN( 3)),JN( 32))
  9412	  etst(digit2(JN( 4)),JN( 42))
  9413	  etst(digit2(JN( 5)),JN( 52))
  9414	  etst(digit2(JN( 6)),JN( 62))
  9415	  etst(digit2(JN( 7)),JN( 72))
  9416	  etst(digit2(JN( 8)),JN( 82))
  9417	  etst(digit2(JN( 9)),JN( 92))
  9418	  etst(digit2(JN(-1)),JN(- 8))
  9419	  etst(digit2(JN(-2)),JN(-18))
  9420	  etst(digit2(JN(-3)),JN(-28))
  9421	  etst(digit2(JN(-4)),JN(-38))
  9422	  etst(digit2(JN(-5)),JN(-48))
  9423	  etst(digit2(JN(-6)),JN(-58))
  9424	  etst(digit2(JN(-7)),JN(-68))
  9425	  etst(digit2(JN(-8)),JN(-78))
  9426	  etst(digit2(JN(-9)),JN(-88))
  9427	
  9428	  xtst(digit3(TT))
  9429	  xtst(digit3(FF))
  9430	  xtst(digit3(P0))
  9431	  xtst(digit3(M0))
  9432	  xtst(digit3(B0))
  9433	  etst(digit3(JN( 0)),JN(  3))
  9434	  etst(digit3(JN( 1)),JN( 13))
  9435	  etst(digit3(JN( 2)),JN( 23))
  9436	  etst(digit3(JN( 3)),JN( 33))
  9437	  etst(digit3(JN( 4)),JN( 43))
  9438	  etst(digit3(JN( 5)),JN( 53))
  9439	  etst(digit3(JN( 6)),JN( 63))
  9440	  etst(digit3(JN( 7)),JN( 73))
  9441	  etst(digit3(JN( 8)),JN( 83))
  9442	  etst(digit3(JN( 9)),JN( 93))
  9443	  etst(digit3(JN(-1)),JN(- 7))
  9444	  etst(digit3(JN(-2)),JN(-17))
  9445	  etst(digit3(JN(-3)),JN(-27))
  9446	  etst(digit3(JN(-4)),JN(-37))
  9447	  etst(digit3(JN(-5)),JN(-47))
  9448	  etst(digit3(JN(-6)),JN(-57))
  9449	  etst(digit3(JN(-7)),JN(-67))
  9450	  etst(digit3(JN(-8)),JN(-77))
  9451	  etst(digit3(JN(-9)),JN(-87))
  9452	
  9453	  xtst(digit4(TT))
  9454	  xtst(digit4(FF))
  9455	  xtst(digit4(P0))
  9456	  xtst(digit4(M0))
  9457	  xtst(digit4(B0))
  9458	  etst(digit4(JN( 0)),JN(  4))
  9459	  etst(digit4(JN( 1)),JN( 14))
  9460	  etst(digit4(JN( 2)),JN( 24))
  9461	  etst(digit4(JN( 3)),JN( 34))
  9462	  etst(digit4(JN( 4)),JN( 44))
  9463	  etst(digit4(JN( 5)),JN( 54))
  9464	  etst(digit4(JN( 6)),JN( 64))
  9465	  etst(digit4(JN( 7)),JN( 74))
  9466	  etst(digit4(JN( 8)),JN( 84))
  9467	  etst(digit4(JN( 9)),JN( 94))
  9468	  etst(digit4(JN(-1)),JN(- 6))
  9469	  etst(digit4(JN(-2)),JN(-16))
  9470	  etst(digit4(JN(-3)),JN(-26))
  9471	  etst(digit4(JN(-4)),JN(-36))
  9472	  etst(digit4(JN(-5)),JN(-46))
  9473	  etst(digit4(JN(-6)),JN(-56))
  9474	  etst(digit4(JN(-7)),JN(-66))
  9475	  etst(digit4(JN(-8)),JN(-76))
  9476	  etst(digit4(JN(-9)),JN(-86))
  9477	
  9478	  xtst(digit5(TT))
  9479	  xtst(digit5(FF))
  9480	  xtst(digit5(P0))
  9481	  xtst(digit5(M0))
  9482	  xtst(digit5(B0))
  9483	  etst(digit5(JN( 0)),JN(  5))
  9484	  etst(digit5(JN( 1)),JN( 15))
  9485	  etst(digit5(JN( 2)),JN( 25))
  9486	  etst(digit5(JN( 3)),JN( 35))
  9487	  etst(digit5(JN( 4)),JN( 45))
  9488	  etst(digit5(JN( 5)),JN( 55))
  9489	  etst(digit5(JN( 6)),JN( 65))
  9490	  etst(digit5(JN( 7)),JN( 75))
  9491	  etst(digit5(JN( 8)),JN( 85))
  9492	  etst(digit5(JN( 9)),JN( 95))
  9493	  etst(digit5(JN(-1)),JN(- 5))
  9494	  etst(digit5(JN(-2)),JN(-15))
  9495	  etst(digit5(JN(-3)),JN(-25))
  9496	  etst(digit5(JN(-4)),JN(-35))
  9497	  etst(digit5(JN(-5)),JN(-45))
  9498	  etst(digit5(JN(-6)),JN(-55))
  9499	  etst(digit5(JN(-7)),JN(-65))
  9500	  etst(digit5(JN(-8)),JN(-75))
  9501	  etst(digit5(JN(-9)),JN(-85))
  9502	
  9503	  xtst(digit6(TT))
  9504	  xtst(digit6(FF))
  9505	  xtst(digit6(P0))
  9506	  xtst(digit6(M0))
  9507	  xtst(digit6(B0))
  9508	  etst(digit6(JN( 0)),JN(  6))
  9509	  etst(digit6(JN( 1)),JN( 16))
  9510	  etst(digit6(JN( 2)),JN( 26))
  9511	  etst(digit6(JN( 3)),JN( 36))
  9512	  etst(digit6(JN( 4)),JN( 46))
  9513	  etst(digit6(JN( 5)),JN( 56))
  9514	  etst(digit6(JN( 6)),JN( 66))
  9515	  etst(digit6(JN( 7)),JN( 76))
  9516	  etst(digit6(JN( 8)),JN( 86))
  9517	  etst(digit6(JN( 9)),JN( 96))
  9518	  etst(digit6(JN(-1)),JN(- 4))
  9519	  etst(digit6(JN(-2)),JN(-14))
  9520	  etst(digit6(JN(-3)),JN(-24))
  9521	  etst(digit6(JN(-4)),JN(-34))
  9522	  etst(digit6(JN(-5)),JN(-44))
  9523	  etst(digit6(JN(-6)),JN(-54))
  9524	  etst(digit6(JN(-7)),JN(-64))
  9525	  etst(digit6(JN(-8)),JN(-74))
  9526	  etst(digit6(JN(-9)),JN(-84))
  9527	
  9528	  xtst(digit7(TT))
  9529	  xtst(digit7(FF))
  9530	  xtst(digit7(P0))
  9531	  xtst(digit7(M0))
  9532	  xtst(digit7(B0))
  9533	  etst(digit7(JN( 0)),JN(  7))
  9534	  etst(digit7(JN( 1)),JN( 17))
  9535	  etst(digit7(JN( 2)),JN( 27))
  9536	  etst(digit7(JN( 3)),JN( 37))
  9537	  etst(digit7(JN( 4)),JN( 47))
  9538	  etst(digit7(JN( 5)),JN( 57))
  9539	  etst(digit7(JN( 6)),JN( 67))
  9540	  etst(digit7(JN( 7)),JN( 77))
  9541	  etst(digit7(JN( 8)),JN( 87))
  9542	  etst(digit7(JN( 9)),JN( 97))
  9543	  etst(digit7(JN(-1)),JN(- 3))
  9544	  etst(digit7(JN(-2)),JN(-13))
  9545	  etst(digit7(JN(-3)),JN(-23))
  9546	  etst(digit7(JN(-4)),JN(-33))
  9547	  etst(digit7(JN(-5)),JN(-43))
  9548	  etst(digit7(JN(-6)),JN(-53))
  9549	  etst(digit7(JN(-7)),JN(-63))
  9550	  etst(digit7(JN(-8)),JN(-73))
  9551	  etst(digit7(JN(-9)),JN(-83))
  9552	
  9553	  xtst(digit8(TT))
  9554	  xtst(digit8(FF))
  9555	  xtst(digit8(P0))
  9556	  xtst(digit8(M0))
  9557	  xtst(digit8(B0))
  9558	  etst(digit8(JN( 0)),JN(  8))
  9559	  etst(digit8(JN( 1)),JN( 18))
  9560	  etst(digit8(JN( 2)),JN( 28))
  9561	  etst(digit8(JN( 3)),JN( 38))
  9562	  etst(digit8(JN( 4)),JN( 48))
  9563	  etst(digit8(JN( 5)),JN( 58))
  9564	  etst(digit8(JN( 6)),JN( 68))
  9565	  etst(digit8(JN( 7)),JN( 78))
  9566	  etst(digit8(JN( 8)),JN( 88))
  9567	  etst(digit8(JN( 9)),JN( 98))
  9568	  etst(digit8(JN(-1)),JN(- 2))
  9569	  etst(digit8(JN(-2)),JN(-12))
  9570	  etst(digit8(JN(-3)),JN(-22))
  9571	  etst(digit8(JN(-4)),JN(-32))
  9572	  etst(digit8(JN(-5)),JN(-42))
  9573	  etst(digit8(JN(-6)),JN(-52))
  9574	  etst(digit8(JN(-7)),JN(-62))
  9575	  etst(digit8(JN(-8)),JN(-72))
  9576	  etst(digit8(JN(-9)),JN(-82))
  9577	
  9578	  xtst(digit9(TT))
  9579	  xtst(digit9(FF))
  9580	  xtst(digit9(P0))
  9581	  xtst(digit9(M0))
  9582	  xtst(digit9(B0))
  9583	  etst(digit9(JN( 0)),JN(  9))
  9584	  etst(digit9(JN( 1)),JN( 19))
  9585	  etst(digit9(JN( 2)),JN( 29))
  9586	  etst(digit9(JN( 3)),JN( 39))
  9587	  etst(digit9(JN( 4)),JN( 49))
  9588	  etst(digit9(JN( 5)),JN( 59))
  9589	  etst(digit9(JN( 6)),JN( 69))
  9590	  etst(digit9(JN( 7)),JN( 79))
  9591	  etst(digit9(JN( 8)),JN( 89))
  9592	  etst(digit9(JN( 9)),JN( 99))
  9593	  etst(digit9(JN(-1)),JN(- 1))
  9594	  etst(digit9(JN(-2)),JN(-11))
  9595	  etst(digit9(JN(-3)),JN(-21))
  9596	  etst(digit9(JN(-4)),JN(-31))
  9597	  etst(digit9(JN(-5)),JN(-41))
  9598	  etst(digit9(JN(-6)),JN(-51))
  9599	  etst(digit9(JN(-7)),JN(-61))
  9600	  etst(digit9(JN(-8)),JN(-71))
  9601	  etst(digit9(JN(-9)),JN(-81))
  9602	
  9603	  etst(N( 0),JN( 0))
  9604	  etst(N( 1),JN( 1))
  9605	  etst(N( 2),JN( 2))
  9606	  etst(N( 3),JN( 3))
  9607	  etst(N( 4),JN( 4))
  9608	  etst(N( 5),JN( 5))
  9609	  etst(N( 6),JN( 6))
  9610	  etst(N( 7),JN( 7))
  9611	  etst(N( 8),JN( 8))
  9612	  etst(N( 9),JN( 9))
  9613	  etst(N(-1),JN(-1))
  9614	  etst(N(-2),JN(-2))
  9615	  etst(N(-3),JN(-3))
  9616	  etst(N(-4),JN(-4))
  9617	  etst(N(-5),JN(-5))
  9618	  etst(N(-6),JN(-6))
  9619	  etst(N(-7),JN(-7))
  9620	  etst(N(-8),JN(-8))
  9621	  etst(N(-9),JN(-9))
  9622	
  9623	  xtst(times(TT,TT))
  9624	  xtst(times(TT,FF))
  9625	  xtst(times(TT,I0))
  9626	  xtst(times(TT,P0))
  9627	  xtst(times(TT,M0))
  9628	  xtst(times(TT,B0))
  9629	  xtst(times(FF,TT))
  9630	  xtst(times(FF,FF))
  9631	  xtst(times(FF,I0))
  9632	  xtst(times(FF,P0))
  9633	  xtst(times(FF,M0))
  9634	  xtst(times(FF,B0))
  9635	  xtst(times(I0,TT))
  9636	  xtst(times(I0,FF))
  9637	  xtst(times(I0,P0))
  9638	  xtst(times(I0,M0))
  9639	  xtst(times(I0,B0))
  9640	  xtst(times(P0,TT))
  9641	  xtst(times(P0,FF))
  9642	  xtst(times(P0,I0))
  9643	  xtst(times(P0,P0))
  9644	  xtst(times(P0,M0))
  9645	  xtst(times(P0,B0))
  9646	  xtst(times(M0,TT))
  9647	  xtst(times(M0,FF))
  9648	  xtst(times(M0,I0))
  9649	  xtst(times(M0,P0))
  9650	  xtst(times(M0,M0))
  9651	  xtst(times(M0,B0))
  9652	  xtst(times(B0,TT))
  9653	  xtst(times(B0,FF))
  9654	  xtst(times(B0,I0))
  9655	  xtst(times(B0,P0))
  9656	  xtst(times(B0,M0))
  9657	  xtst(times(B0,B0))
  9658	  etst(times(JN(-3),JN(-3)),JN( 9))
  9659	  etst(times(JN(-3),JN(-2)),JN( 6))
  9660	  etst(times(JN(-3),JN(-1)),JN( 3))
  9661	  etst(times(JN(-3),JN( 0)),JN( 0))
  9662	  etst(times(JN(-3),JN( 1)),JN(-3))
  9663	  etst(times(JN(-3),JN( 2)),JN(-6))
  9664	  etst(times(JN(-2),JN(-3)),JN( 6))
  9665	  etst(times(JN(-2),JN(-2)),JN( 4))
  9666	  etst(times(JN(-2),JN(-1)),JN( 2))
  9667	  etst(times(JN(-2),JN( 0)),JN( 0))
  9668	  etst(times(JN(-2),JN( 1)),JN(-2))
  9669	  etst(times(JN(-2),JN( 2)),JN(-4))
  9670	  etst(times(JN(-1),JN(-3)),JN( 3))
  9671	  etst(times(JN(-1),JN(-2)),JN( 2))
  9672	  etst(times(JN(-1),JN(-1)),JN( 1))
  9673	  etst(times(JN(-1),JN( 0)),JN( 0))
  9674	  etst(times(JN(-1),JN( 1)),JN(-1))
  9675	  etst(times(JN(-1),JN( 2)),JN(-2))
  9676	  etst(times(JN( 0),JN(-3)),JN( 0))
  9677	  etst(times(JN( 0),JN(-2)),JN( 0))
  9678	  etst(times(JN( 0),JN(-1)),JN( 0))
  9679	  etst(times(JN( 0),JN( 0)),JN( 0))
  9680	  etst(times(JN( 0),JN( 1)),JN( 0))
  9681	  etst(times(JN( 0),JN( 2)),JN( 0))
  9682	  etst(times(JN( 1),JN(-3)),JN(-3))
  9683	  etst(times(JN( 1),JN(-2)),JN(-2))
  9684	  etst(times(JN( 1),JN(-1)),JN(-1))
  9685	  etst(times(JN( 1),JN( 0)),JN( 0))
  9686	  etst(times(JN( 1),JN( 1)),JN( 1))
  9687	  etst(times(JN( 1),JN( 2)),JN( 2))
  9688	  etst(times(JN( 2),JN(-3)),JN(-6))
  9689	  etst(times(JN( 2),JN(-2)),JN(-4))
  9690	  etst(times(JN( 2),JN(-1)),JN(-2))
  9691	  etst(times(JN( 2),JN( 0)),JN( 0))
  9692	  etst(times(JN( 2),JN( 1)),JN( 2))
  9693	  etst(times(JN( 2),JN( 2)),JN( 4))
  9694	
  9695	  etst(times(N(-1000000000000),N(-1000000000000)),N( 1000000000000000000000000))
  9696	  etst(times(N(-1000000000000),N(   -1000000000)),N(    1000000000000000000000))
  9697	  etst(times(N(-1000000000000),N(      -1000000)),N(       1000000000000000000))
  9698	  etst(times(N(-1000000000000),N(         -1000)),N(          1000000000000000))
  9699	  etst(times(N(-1000000000000),N(          -100)),N(           100000000000000))
  9700	  etst(times(N(-1000000000000),N(           -10)),N(            10000000000000))
  9701	  etst(times(N(-1000000000000),N(            -1)),N(             1000000000000))
  9702	  etst(times(N(-1000000000000),N(             0)),N(                         0))
  9703	  etst(times(N(-1000000000000),N(             1)),N(            -1000000000000))
  9704	  etst(times(N(-1000000000000),N(            10)),N(           -10000000000000))
  9705	  etst(times(N(-1000000000000),N(           100)),N(          -100000000000000))
  9706	  etst(times(N(-1000000000000),N(          1000)),N(         -1000000000000000))
  9707	  etst(times(N(-1000000000000),N(       1000000)),N(      -1000000000000000000))
  9708	  etst(times(N(-1000000000000),N(    1000000000)),N(   -1000000000000000000000))
  9709	  etst(times(N(-1000000000000),N( 1000000000000)),N(-1000000000000000000000000))
  9710	
  9711	  etst(times(N(-1000000000),N(-1000000000000)),N( 1000000000000000000000))
  9712	  etst(times(N(-1000000000),N(   -1000000000)),N(    1000000000000000000))
  9713	  etst(times(N(-1000000000),N(      -1000000)),N(       1000000000000000))
  9714	  etst(times(N(-1000000000),N(         -1000)),N(          1000000000000))
  9715	  etst(times(N(-1000000000),N(          -100)),N(           100000000000))
  9716	  etst(times(N(-1000000000),N(           -10)),N(            10000000000))
  9717	  etst(times(N(-1000000000),N(            -1)),N(             1000000000))
  9718	  etst(times(N(-1000000000),N(             0)),N(                      0))
  9719	  etst(times(N(-1000000000),N(             1)),N(            -1000000000))
  9720	  etst(times(N(-1000000000),N(            10)),N(           -10000000000))
  9721	  etst(times(N(-1000000000),N(           100)),N(          -100000000000))
  9722	  etst(times(N(-1000000000),N(          1000)),N(         -1000000000000))
  9723	  etst(times(N(-1000000000),N(       1000000)),N(      -1000000000000000))
  9724	  etst(times(N(-1000000000),N(    1000000000)),N(   -1000000000000000000))
  9725	  etst(times(N(-1000000000),N( 1000000000000)),N(-1000000000000000000000))
  9726	
  9727	  etst(times(N(-1000000),N(-1000000000000)),N( 1000000000000000000))
  9728	  etst(times(N(-1000000),N(   -1000000000)),N(    1000000000000000))
  9729	  etst(times(N(-1000000),N(      -1000000)),N(       1000000000000))
  9730	  etst(times(N(-1000000),N(         -1000)),N(          1000000000))
  9731	  etst(times(N(-1000000),N(          -100)),N(           100000000))
  9732	  etst(times(N(-1000000),N(           -10)),N(            10000000))
  9733	  etst(times(N(-1000000),N(            -1)),N(             1000000))
  9734	  etst(times(N(-1000000),N(             0)),N(                   0))
  9735	  etst(times(N(-1000000),N(             1)),N(            -1000000))
  9736	  etst(times(N(-1000000),N(            10)),N(           -10000000))
  9737	  etst(times(N(-1000000),N(           100)),N(          -100000000))
  9738	  etst(times(N(-1000000),N(          1000)),N(         -1000000000))
  9739	  etst(times(N(-1000000),N(       1000000)),N(      -1000000000000))
  9740	  etst(times(N(-1000000),N(    1000000000)),N(   -1000000000000000))
  9741	  etst(times(N(-1000000),N( 1000000000000)),N(-1000000000000000000))
  9742	
  9743	  etst(times(N(-1000),N(-1000000000000)),N( 1000000000000000))
  9744	  etst(times(N(-1000),N(   -1000000000)),N(    1000000000000))
  9745	  etst(times(N(-1000),N(      -1000000)),N(       1000000000))
  9746	  etst(times(N(-1000),N(         -1000)),N(          1000000))
  9747	  etst(times(N(-1000),N(          -100)),N(           100000))
  9748	  etst(times(N(-1000),N(           -10)),N(            10000))
  9749	  etst(times(N(-1000),N(            -1)),N(             1000))
  9750	  etst(times(N(-1000),N(             0)),N(                0))
  9751	  etst(times(N(-1000),N(             1)),N(            -1000))
  9752	  etst(times(N(-1000),N(            10)),N(           -10000))
  9753	  etst(times(N(-1000),N(           100)),N(          -100000))
  9754	  etst(times(N(-1000),N(          1000)),N(         -1000000))
  9755	  etst(times(N(-1000),N(       1000000)),N(      -1000000000))
  9756	  etst(times(N(-1000),N(    1000000000)),N(   -1000000000000))
  9757	  etst(times(N(-1000),N( 1000000000000)),N(-1000000000000000))
  9758	
  9759	  etst(times(N(-100),N(-1000000000000)),N( 100000000000000))
  9760	  etst(times(N(-100),N(   -1000000000)),N(    100000000000))
  9761	  etst(times(N(-100),N(      -1000000)),N(       100000000))
  9762	  etst(times(N(-100),N(         -1000)),N(          100000))
  9763	  etst(times(N(-100),N(          -100)),N(           10000))
  9764	  etst(times(N(-100),N(           -10)),N(            1000))
  9765	  etst(times(N(-100),N(            -1)),N(             100))
  9766	  etst(times(N(-100),N(             0)),N(               0))
  9767	  etst(times(N(-100),N(             1)),N(            -100))
  9768	  etst(times(N(-100),N(            10)),N(           -1000))
  9769	  etst(times(N(-100),N(           100)),N(          -10000))
  9770	  etst(times(N(-100),N(          1000)),N(         -100000))
  9771	  etst(times(N(-100),N(       1000000)),N(      -100000000))
  9772	  etst(times(N(-100),N(    1000000000)),N(   -100000000000))
  9773	  etst(times(N(-100),N( 1000000000000)),N(-100000000000000))
  9774	
  9775	  etst(times(N(-10),N(-1000000000000)),N( 10000000000000))
  9776	  etst(times(N(-10),N(   -1000000000)),N(    10000000000))
  9777	  etst(times(N(-10),N(      -1000000)),N(       10000000))
  9778	  etst(times(N(-10),N(         -1000)),N(          10000))
  9779	  etst(times(N(-10),N(          -100)),N(           1000))
  9780	  etst(times(N(-10),N(           -10)),N(            100))
  9781	  etst(times(N(-10),N(            -1)),N(             10))
  9782	  etst(times(N(-10),N(             0)),N(              0))
  9783	  etst(times(N(-10),N(             1)),N(            -10))
  9784	  etst(times(N(-10),N(            10)),N(           -100))
  9785	  etst(times(N(-10),N(           100)),N(          -1000))
  9786	  etst(times(N(-10),N(          1000)),N(         -10000))
  9787	  etst(times(N(-10),N(       1000000)),N(      -10000000))
  9788	  etst(times(N(-10),N(    1000000000)),N(   -10000000000))
  9789	  etst(times(N(-10),N( 1000000000000)),N(-10000000000000))
  9790	
  9791	  etst(times(N(-1),N(-1000000000000)),N( 1000000000000))
  9792	  etst(times(N(-1),N(   -1000000000)),N(    1000000000))
  9793	  etst(times(N(-1),N(      -1000000)),N(       1000000))
  9794	  etst(times(N(-1),N(         -1000)),N(          1000))
  9795	  etst(times(N(-1),N(          -100)),N(           100))
  9796	  etst(times(N(-1),N(           -10)),N(            10))
  9797	  etst(times(N(-1),N(            -1)),N(             1))
  9798	  etst(times(N(-1),N(             0)),N(             0))
  9799	  etst(times(N(-1),N(             1)),N(            -1))
  9800	  etst(times(N(-1),N(            10)),N(           -10))
  9801	  etst(times(N(-1),N(           100)),N(          -100))
  9802	  etst(times(N(-1),N(          1000)),N(         -1000))
  9803	  etst(times(N(-1),N(       1000000)),N(      -1000000))
  9804	  etst(times(N(-1),N(    1000000000)),N(   -1000000000))
  9805	  etst(times(N(-1),N( 1000000000000)),N(-1000000000000))
  9806	
  9807	  etst(times(N(0),N(-1000000000000)),N(0))
  9808	  etst(times(N(0),N(   -1000000000)),N(0))
  9809	  etst(times(N(0),N(      -1000000)),N(0))
  9810	  etst(times(N(0),N(         -1000)),N(0))
  9811	  etst(times(N(0),N(          -100)),N(0))
  9812	  etst(times(N(0),N(           -10)),N(0))
  9813	  etst(times(N(0),N(            -1)),N(0))
  9814	  etst(times(N(0),N(             0)),N(0))
  9815	  etst(times(N(0),N(             1)),N(0))
  9816	  etst(times(N(0),N(            10)),N(0))
  9817	  etst(times(N(0),N(           100)),N(0))
  9818	  etst(times(N(0),N(          1000)),N(0))
  9819	  etst(times(N(0),N(       1000000)),N(0))
  9820	  etst(times(N(0),N(    1000000000)),N(0))
  9821	  etst(times(N(0),N( 1000000000000)),N(0))
  9822	
  9823	  etst(times(N(1000000000000),N( 1000000000000)),N( 1000000000000000000000000))
  9824	  etst(times(N(1000000000000),N(    1000000000)),N(    1000000000000000000000))
  9825	  etst(times(N(1000000000000),N(       1000000)),N(       1000000000000000000))
  9826	  etst(times(N(1000000000000),N(          1000)),N(          1000000000000000))
  9827	  etst(times(N(1000000000000),N(           100)),N(           100000000000000))
  9828	  etst(times(N(1000000000000),N(            10)),N(            10000000000000))
  9829	  etst(times(N(1000000000000),N(             1)),N(             1000000000000))
  9830	  etst(times(N(1000000000000),N(             0)),N(                         0))
  9831	  etst(times(N(1000000000000),N(            -1)),N(            -1000000000000))
  9832	  etst(times(N(1000000000000),N(           -10)),N(           -10000000000000))
  9833	  etst(times(N(1000000000000),N(          -100)),N(          -100000000000000))
  9834	  etst(times(N(1000000000000),N(         -1000)),N(         -1000000000000000))
  9835	  etst(times(N(1000000000000),N(      -1000000)),N(      -1000000000000000000))
  9836	  etst(times(N(1000000000000),N(   -1000000000)),N(   -1000000000000000000000))
  9837	  etst(times(N(1000000000000),N(-1000000000000)),N(-1000000000000000000000000))
  9838	
  9839	  etst(times(N(1000000000),N( 1000000000000)),N( 1000000000000000000000))
  9840	  etst(times(N(1000000000),N(    1000000000)),N(    1000000000000000000))
  9841	  etst(times(N(1000000000),N(       1000000)),N(       1000000000000000))
  9842	  etst(times(N(1000000000),N(          1000)),N(          1000000000000))
  9843	  etst(times(N(1000000000),N(           100)),N(           100000000000))
  9844	  etst(times(N(1000000000),N(            10)),N(            10000000000))
  9845	  etst(times(N(1000000000),N(             1)),N(             1000000000))
  9846	  etst(times(N(1000000000),N(             0)),N(                      0))
  9847	  etst(times(N(1000000000),N(            -1)),N(            -1000000000))
  9848	  etst(times(N(1000000000),N(           -10)),N(           -10000000000))
  9849	  etst(times(N(1000000000),N(          -100)),N(          -100000000000))
  9850	  etst(times(N(1000000000),N(         -1000)),N(         -1000000000000))
  9851	  etst(times(N(1000000000),N(      -1000000)),N(      -1000000000000000))
  9852	  etst(times(N(1000000000),N(   -1000000000)),N(   -1000000000000000000))
  9853	  etst(times(N(1000000000),N(-1000000000000)),N(-1000000000000000000000))
  9854	
  9855	  etst(times(N(1000000),N( 1000000000000)),N( 1000000000000000000))
  9856	  etst(times(N(1000000),N(    1000000000)),N(    1000000000000000))
  9857	  etst(times(N(1000000),N(       1000000)),N(       1000000000000))
  9858	  etst(times(N(1000000),N(          1000)),N(          1000000000))
  9859	  etst(times(N(1000000),N(           100)),N(           100000000))
  9860	  etst(times(N(1000000),N(            10)),N(            10000000))
  9861	  etst(times(N(1000000),N(             1)),N(             1000000))
  9862	  etst(times(N(1000000),N(             0)),N(                   0))
  9863	  etst(times(N(1000000),N(            -1)),N(            -1000000))
  9864	  etst(times(N(1000000),N(           -10)),N(           -10000000))
  9865	  etst(times(N(1000000),N(          -100)),N(          -100000000))
  9866	  etst(times(N(1000000),N(         -1000)),N(         -1000000000))
  9867	  etst(times(N(1000000),N(      -1000000)),N(      -1000000000000))
  9868	  etst(times(N(1000000),N(   -1000000000)),N(   -1000000000000000))
  9869	  etst(times(N(1000000),N(-1000000000000)),N(-1000000000000000000))
  9870	
  9871	  etst(times(N(1000),N( 1000000000000)),N( 1000000000000000))
  9872	  etst(times(N(1000),N(    1000000000)),N(    1000000000000))
  9873	  etst(times(N(1000),N(       1000000)),N(       1000000000))
  9874	  etst(times(N(1000),N(          1000)),N(          1000000))
  9875	  etst(times(N(1000),N(           100)),N(           100000))
  9876	  etst(times(N(1000),N(            10)),N(            10000))
  9877	  etst(times(N(1000),N(             1)),N(             1000))
  9878	  etst(times(N(1000),N(             0)),N(                0))
  9879	  etst(times(N(1000),N(            -1)),N(            -1000))
  9880	  etst(times(N(1000),N(           -10)),N(           -10000))
  9881	  etst(times(N(1000),N(          -100)),N(          -100000))
  9882	  etst(times(N(1000),N(         -1000)),N(         -1000000))
  9883	  etst(times(N(1000),N(      -1000000)),N(      -1000000000))
  9884	  etst(times(N(1000),N(   -1000000000)),N(   -1000000000000))
  9885	  etst(times(N(1000),N(-1000000000000)),N(-1000000000000000))
  9886	
  9887	  etst(times(N(100),N( 1000000000000)),N( 100000000000000))
  9888	  etst(times(N(100),N(    1000000000)),N(    100000000000))
  9889	  etst(times(N(100),N(       1000000)),N(       100000000))
  9890	  etst(times(N(100),N(          1000)),N(          100000))
  9891	  etst(times(N(100),N(           100)),N(           10000))
  9892	  etst(times(N(100),N(            10)),N(            1000))
  9893	  etst(times(N(100),N(             1)),N(             100))
  9894	  etst(times(N(100),N(             0)),N(               0))
  9895	  etst(times(N(100),N(            -1)),N(            -100))
  9896	  etst(times(N(100),N(           -10)),N(           -1000))
  9897	  etst(times(N(100),N(          -100)),N(          -10000))
  9898	  etst(times(N(100),N(         -1000)),N(         -100000))
  9899	  etst(times(N(100),N(      -1000000)),N(      -100000000))
  9900	  etst(times(N(100),N(   -1000000000)),N(   -100000000000))
  9901	  etst(times(N(100),N(-1000000000000)),N(-100000000000000))
  9902	
  9903	  etst(times(N(10),N( 1000000000000)),N( 10000000000000))
  9904	  etst(times(N(10),N(    1000000000)),N(    10000000000))
  9905	  etst(times(N(10),N(       1000000)),N(       10000000))
  9906	  etst(times(N(10),N(          1000)),N(          10000))
  9907	  etst(times(N(10),N(           100)),N(           1000))
  9908	  etst(times(N(10),N(            10)),N(            100))
  9909	  etst(times(N(10),N(             1)),N(             10))
  9910	  etst(times(N(10),N(             0)),N(              0))
  9911	  etst(times(N(10),N(            -1)),N(            -10))
  9912	  etst(times(N(10),N(           -10)),N(           -100))
  9913	  etst(times(N(10),N(          -100)),N(          -1000))
  9914	  etst(times(N(10),N(         -1000)),N(         -10000))
  9915	  etst(times(N(10),N(      -1000000)),N(      -10000000))
  9916	  etst(times(N(10),N(   -1000000000)),N(   -10000000000))
  9917	  etst(times(N(10),N(-1000000000000)),N(-10000000000000))
  9918	
  9919	  etst(times(N(1),N( 1000000000000)),N( 1000000000000))
  9920	  etst(times(N(1),N(    1000000000)),N(    1000000000))
  9921	  etst(times(N(1),N(       1000000)),N(       1000000))
  9922	  etst(times(N(1),N(          1000)),N(          1000))
  9923	  etst(times(N(1),N(           100)),N(           100))
  9924	  etst(times(N(1),N(            10)),N(            10))
  9925	  etst(times(N(1),N(             1)),N(             1))
  9926	  etst(times(N(1),N(             0)),N(             0))
  9927	  etst(times(N(1),N(            -1)),N(            -1))
  9928	  etst(times(N(1),N(           -10)),N(           -10))
  9929	  etst(times(N(1),N(          -100)),N(          -100))
  9930	  etst(times(N(1),N(         -1000)),N(         -1000))
  9931	  etst(times(N(1),N(      -1000000)),N(      -1000000))
  9932	  etst(times(N(1),N(   -1000000000)),N(   -1000000000))
  9933	  etst(times(N(1),N(-1000000000000)),N(-1000000000000))
  9934	
  9935	  xtst(logbitp(TT,TT))
  9936	  xtst(logbitp(TT,FF))
  9937	  xtst(logbitp(TT,I0))
  9938	  xtst(logbitp(TT,P0))
  9939	  xtst(logbitp(TT,M0))
  9940	  xtst(logbitp(TT,B0))
  9941	  xtst(logbitp(FF,TT))
  9942	  xtst(logbitp(FF,FF))
  9943	  xtst(logbitp(FF,I0))
  9944	  xtst(logbitp(FF,P0))
  9945	  xtst(logbitp(FF,M0))
  9946	  xtst(logbitp(FF,B0))
  9947	  xtst(logbitp(I0,TT))
  9948	  xtst(logbitp(I0,FF))
  9949	  xtst(logbitp(I0,P0))
  9950	  xtst(logbitp(I0,M0))
  9951	  xtst(logbitp(I0,B0))
  9952	  xtst(logbitp(P0,TT))
  9953	  xtst(logbitp(P0,FF))
  9954	  xtst(logbitp(P0,I0))
  9955	  xtst(logbitp(P0,P0))
  9956	  xtst(logbitp(P0,M0))
  9957	  xtst(logbitp(P0,B0))
  9958	  xtst(logbitp(M0,TT))
  9959	  xtst(logbitp(M0,FF))
  9960	  xtst(logbitp(M0,I0))
  9961	  xtst(logbitp(M0,P0))
  9962	  xtst(logbitp(M0,M0))
  9963	  xtst(logbitp(M0,B0))
  9964	  xtst(logbitp(B0,TT))
  9965	  xtst(logbitp(B0,FF))
  9966	  xtst(logbitp(B0,I0))
  9967	  xtst(logbitp(B0,P0))
  9968	  xtst(logbitp(B0,M0))
  9969	  xtst(logbitp(B0,B0))
  9970	  xtst(logbitp(JN(-3),JN(-3)))
  9971	  xtst(logbitp(JN(-3),JN(-2)))
  9972	  xtst(logbitp(JN(-3),JN(-1)))
  9973	  xtst(logbitp(JN(-3),JN( 0)))
  9974	  xtst(logbitp(JN(-3),JN( 1)))
  9975	  xtst(logbitp(JN(-3),JN( 2)))
  9976	  xtst(logbitp(JN(-2),JN(-3)))
  9977	  xtst(logbitp(JN(-2),JN(-2)))
  9978	  xtst(logbitp(JN(-2),JN(-1)))
  9979	  xtst(logbitp(JN(-2),JN( 0)))
  9980	  xtst(logbitp(JN(-2),JN( 1)))
  9981	  xtst(logbitp(JN(-2),JN( 2)))
  9982	  xtst(logbitp(JN(-1),JN(-3)))
  9983	  xtst(logbitp(JN(-1),JN(-2)))
  9984	  xtst(logbitp(JN(-1),JN(-1)))
  9985	  xtst(logbitp(JN(-1),JN( 0)))
  9986	  xtst(logbitp(JN(-1),JN( 1)))
  9987	  xtst(logbitp(JN(-1),JN( 2)))
  9988	  ttst(logbitp(JN( 0),JN(-3)))
  9989	  ftst(logbitp(JN( 0),JN(-2)))
  9990	  ttst(logbitp(JN( 0),JN(-1)))
  9991	  ftst(logbitp(JN( 0),JN( 0)))
  9992	  ttst(logbitp(JN( 0),JN( 1)))
  9993	  ftst(logbitp(JN( 0),JN( 2)))
  9994	  ftst(logbitp(JN( 1),JN(-3)))
  9995	  ttst(logbitp(JN( 1),JN(-2)))
  9996	  ttst(logbitp(JN( 1),JN(-1)))
  9997	  ftst(logbitp(JN( 1),JN( 0)))
  9998	  ftst(logbitp(JN( 1),JN( 1)))
  9999	  ttst(logbitp(JN( 1),JN( 2)))
 10000	  ttst(logbitp(JN( 2),JN(-3)))
 10001	  ttst(logbitp(JN( 2),JN(-2)))
 10002	  ttst(logbitp(JN( 2),JN(-1)))
 10003	  ftst(logbitp(JN( 2),JN( 0)))
 10004	  ftst(logbitp(JN( 2),JN( 1)))
 10005	  ftst(logbitp(JN( 2),JN( 2)))
 10006	  ttst(logbitp(JN( 0+0*pntsize),I0011_1100))
 10007	  ttst(logbitp(JN( 1+0*pntsize),I0011_1100))
 10008	  ftst(logbitp(JN( 2+0*pntsize),I0011_1100))
 10009	  ftst(logbitp(JN( 3+0*pntsize),I0011_1100))
 10010	  ftst(logbitp(JN( 4+0*pntsize),I0011_1100))
 10011	  ftst(logbitp(JN( 0+1*pntsize),I0011_1100))
 10012	  ftst(logbitp(JN( 1+1*pntsize),I0011_1100))
 10013	  ttst(logbitp(JN( 2+1*pntsize),I0011_1100))
 10014	  ttst(logbitp(JN( 3+1*pntsize),I0011_1100))
 10015	  ftst(logbitp(JN( 4+1*pntsize),I0011_1100))
 10016	  ftst(logbitp(JN( 0+2*pntsize),I0011_1100))
 10017	  ftst(logbitp(JN( 1+2*pntsize),I0011_1100))
 10018	  ftst(logbitp(JN( 2+2*pntsize),I0011_1100))
 10019	  ftst(logbitp(JN( 3+2*pntsize),I0011_1100))
 10020	  ftst(logbitp(JN( 4+2*pntsize),I0011_1100))
 10021	  ttst(logbitp(JN( 0+0*pntsize),J1011_1101))
 10022	  ttst(logbitp(JN( 1+0*pntsize),J1011_1101))
 10023	  ftst(logbitp(JN( 2+0*pntsize),J1011_1101))
 10024	  ttst(logbitp(JN( 3+0*pntsize),J1011_1101))
 10025	  ttst(logbitp(JN( 4+0*pntsize),J1011_1101))
 10026	  ttst(logbitp(JN( 0+1*pntsize),J1011_1101))
 10027	  ftst(logbitp(JN( 1+1*pntsize),J1011_1101))
 10028	  ttst(logbitp(JN( 2+1*pntsize),J1011_1101))
 10029	  ttst(logbitp(JN( 3+1*pntsize),J1011_1101))
 10030	  ttst(logbitp(JN( 4+1*pntsize),J1011_1101))
 10031	  ttst(logbitp(JN( 0+2*pntsize),J1011_1101))
 10032	  ttst(logbitp(JN( 1+2*pntsize),J1011_1101))
 10033	  ttst(logbitp(JN( 2+2*pntsize),J1011_1101))
 10034	  ttst(logbitp(JN( 3+2*pntsize),J1011_1101))
 10035	  ttst(logbitp(JN( 4+2*pntsize),J1011_1101))
 10036	
 10037	  xtst(ash(TT,TT))
 10038	  xtst(ash(TT,FF))
 10039	  xtst(ash(TT,I0))
 10040	  xtst(ash(TT,P0))
 10041	  xtst(ash(TT,M0))
 10042	  xtst(ash(TT,B0))
 10043	  xtst(ash(FF,TT))
 10044	  xtst(ash(FF,FF))
 10045	  xtst(ash(FF,I0))
 10046	  xtst(ash(FF,P0))
 10047	  xtst(ash(FF,M0))
 10048	  xtst(ash(FF,B0))
 10049	  xtst(ash(I0,TT))
 10050	  xtst(ash(I0,FF))
 10051	  xtst(ash(I0,P0))
 10052	  xtst(ash(I0,M0))
 10053	  xtst(ash(I0,B0))
 10054	  xtst(ash(P0,TT))
 10055	  xtst(ash(P0,FF))
 10056	  xtst(ash(P0,I0))
 10057	  xtst(ash(P0,P0))
 10058	  xtst(ash(P0,M0))
 10059	  xtst(ash(P0,B0))
 10060	  xtst(ash(M0,TT))
 10061	  xtst(ash(M0,FF))
 10062	  xtst(ash(M0,I0))
 10063	  xtst(ash(M0,P0))
 10064	  xtst(ash(M0,M0))
 10065	  xtst(ash(M0,B0))
 10066	  xtst(ash(B0,TT))
 10067	  xtst(ash(B0,FF))
 10068	  xtst(ash(B0,I0))
 10069	  xtst(ash(B0,P0))
 10070	  xtst(ash(B0,M0))
 10071	  xtst(ash(B0,B0))
 10072	
 10073	  etst(ash(N(-1000000000000),N(-65)),N(-1))
 10074	  etst(ash(N(   -1000000000),N(-65)),N(-1))
 10075	  etst(ash(N(      -1000000),N(-65)),N(-1))
 10076	  etst(ash(N(         -1000),N(-65)),N(-1))
 10077	  etst(ash(N(          -100),N(-65)),N(-1))
 10078	  etst(ash(N(           -10),N(-65)),N(-1))
 10079	  etst(ash(N(            -1),N(-65)),N(-1))
 10080	  etst(ash(N(             0),N(-65)),N( 0))
 10081	  etst(ash(N(             1),N(-65)),N( 0))
 10082	  etst(ash(N(            10),N(-65)),N( 0))
 10083	  etst(ash(N(           100),N(-65)),N( 0))
 10084	  etst(ash(N(          1000),N(-65)),N( 0))
 10085	  etst(ash(N(       1000000),N(-65)),N( 0))
 10086	  etst(ash(N(    1000000000),N(-65)),N( 0))
 10087	  etst(ash(N( 1000000000000),N(-65)),N( 0))
 10088	
 10089	  etst(ash(N(-1000000000000),N(-64)),N(-1))
 10090	  etst(ash(N(   -1000000000),N(-64)),N(-1))
 10091	  etst(ash(N(      -1000000),N(-64)),N(-1))
 10092	  etst(ash(N(         -1000),N(-64)),N(-1))
 10093	  etst(ash(N(          -100),N(-64)),N(-1))
 10094	  etst(ash(N(           -10),N(-64)),N(-1))
 10095	  etst(ash(N(            -1),N(-64)),N(-1))
 10096	  etst(ash(N(             0),N(-64)),N( 0))
 10097	  etst(ash(N(             1),N(-64)),N( 0))
 10098	  etst(ash(N(            10),N(-64)),N( 0))
 10099	  etst(ash(N(           100),N(-64)),N( 0))
 10100	  etst(ash(N(          1000),N(-64)),N( 0))
 10101	  etst(ash(N(       1000000),N(-64)),N( 0))
 10102	  etst(ash(N(    1000000000),N(-64)),N( 0))
 10103	  etst(ash(N( 1000000000000),N(-64)),N( 0))
 10104	
 10105	  etst(ash(N(-1000000000000),N(-63)),N(-1))
 10106	  etst(ash(N(   -1000000000),N(-63)),N(-1))
 10107	  etst(ash(N(      -1000000),N(-63)),N(-1))
 10108	  etst(ash(N(         -1000),N(-63)),N(-1))
 10109	  etst(ash(N(          -100),N(-63)),N(-1))
 10110	  etst(ash(N(           -10),N(-63)),N(-1))
 10111	  etst(ash(N(            -1),N(-63)),N(-1))
 10112	  etst(ash(N(             0),N(-63)),N( 0))
 10113	  etst(ash(N(             1),N(-63)),N( 0))
 10114	  etst(ash(N(            10),N(-63)),N( 0))
 10115	  etst(ash(N(           100),N(-63)),N( 0))
 10116	  etst(ash(N(          1000),N(-63)),N( 0))
 10117	  etst(ash(N(       1000000),N(-63)),N( 0))
 10118	  etst(ash(N(    1000000000),N(-63)),N( 0))
 10119	  etst(ash(N( 1000000000000),N(-63)),N( 0))
 10120	
 10121	  etst(ash(N(-1000000000000),N( -4)),N(-62500000000))
 10122	  etst(ash(N(   -1000000000),N( -4)),N(   -62500000))
 10123	  etst(ash(N(      -1000000),N( -4)),N(      -62500))
 10124	  etst(ash(N(         -1000),N( -4)),N(         -63))
 10125	  etst(ash(N(          -100),N( -4)),N(          -7))
 10126	  etst(ash(N(           -10),N( -4)),N(          -1))
 10127	  etst(ash(N(            -1),N( -4)),N(          -1))
 10128	  etst(ash(N(             0),N( -4)),N(           0))
 10129	  etst(ash(N(             1),N( -4)),N(           0))
 10130	  etst(ash(N(            10),N( -4)),N(           0))
 10131	  etst(ash(N(           100),N( -4)),N(           6))
 10132	  etst(ash(N(          1000),N( -4)),N(          62))
 10133	  etst(ash(N(       1000000),N( -4)),N(       62500))
 10134	  etst(ash(N(    1000000000),N( -4)),N(    62500000))
 10135	  etst(ash(N( 1000000000000),N( -4)),N( 62500000000))
 10136	
 10137	  etst(ash(N(-1000000000000),N( -3)),N(-125000000000))
 10138	  etst(ash(N(   -1000000000),N( -3)),N(   -125000000))
 10139	  etst(ash(N(      -1000000),N( -3)),N(      -125000))
 10140	  etst(ash(N(         -1000),N( -3)),N(         -125))
 10141	  etst(ash(N(          -100),N( -3)),N(          -13))
 10142	  etst(ash(N(           -10),N( -3)),N(           -2))
 10143	  etst(ash(N(            -1),N( -3)),N(           -1))
 10144	  etst(ash(N(             0),N( -3)),N(            0))
 10145	  etst(ash(N(             1),N( -3)),N(            0))
 10146	  etst(ash(N(            10),N( -3)),N(            1))
 10147	  etst(ash(N(           100),N( -3)),N(           12))
 10148	  etst(ash(N(          1000),N( -3)),N(          125))
 10149	  etst(ash(N(       1000000),N( -3)),N(       125000))
 10150	  etst(ash(N(    1000000000),N( -3)),N(    125000000))
 10151	  etst(ash(N( 1000000000000),N( -3)),N( 125000000000))
 10152	
 10153	  etst(ash(N(-1000000000000),N( -2)),N(-250000000000))
 10154	  etst(ash(N(   -1000000000),N( -2)),N(   -250000000))
 10155	  etst(ash(N(      -1000000),N( -2)),N(      -250000))
 10156	  etst(ash(N(         -1000),N( -2)),N(         -250))
 10157	  etst(ash(N(          -100),N( -2)),N(          -25))
 10158	  etst(ash(N(           -10),N( -2)),N(           -3))
 10159	  etst(ash(N(            -1),N( -2)),N(           -1))
 10160	  etst(ash(N(             0),N( -2)),N(            0))
 10161	  etst(ash(N(             1),N( -2)),N(            0))
 10162	  etst(ash(N(            10),N( -2)),N(            2))
 10163	  etst(ash(N(           100),N( -2)),N(           25))
 10164	  etst(ash(N(          1000),N( -2)),N(          250))
 10165	  etst(ash(N(       1000000),N( -2)),N(       250000))
 10166	  etst(ash(N(    1000000000),N( -2)),N(    250000000))
 10167	  etst(ash(N( 1000000000000),N( -2)),N( 250000000000))
 10168	
 10169	  etst(ash(N(-1000000000000),N( -1)),N(-500000000000))
 10170	  etst(ash(N(   -1000000000),N( -1)),N(   -500000000))
 10171	  etst(ash(N(      -1000000),N( -1)),N(      -500000))
 10172	  etst(ash(N(         -1000),N( -1)),N(         -500))
 10173	  etst(ash(N(          -100),N( -1)),N(          -50))
 10174	  etst(ash(N(           -10),N( -1)),N(           -5))
 10175	  etst(ash(N(            -1),N( -1)),N(           -1))
 10176	  etst(ash(N(             0),N( -1)),N(            0))
 10177	  etst(ash(N(             1),N( -1)),N(            0))
 10178	  etst(ash(N(            10),N( -1)),N(            5))
 10179	  etst(ash(N(           100),N( -1)),N(           50))
 10180	  etst(ash(N(          1000),N( -1)),N(          500))
 10181	  etst(ash(N(       1000000),N( -1)),N(       500000))
 10182	  etst(ash(N(    1000000000),N( -1)),N(    500000000))
 10183	  etst(ash(N( 1000000000000),N( -1)),N( 500000000000))
 10184	
 10185	  etst(ash(N(-1000000000000),N(  0)),N(-1000000000000))
 10186	  etst(ash(N(   -1000000000),N(  0)),N(   -1000000000))
 10187	  etst(ash(N(      -1000000),N(  0)),N(      -1000000))
 10188	  etst(ash(N(         -1000),N(  0)),N(         -1000))
 10189	  etst(ash(N(          -100),N(  0)),N(          -100))
 10190	  etst(ash(N(           -10),N(  0)),N(           -10))
 10191	  etst(ash(N(            -1),N(  0)),N(            -1))
 10192	  etst(ash(N(             0),N(  0)),N(             0))
 10193	  etst(ash(N(             1),N(  0)),N(             1))
 10194	  etst(ash(N(            10),N(  0)),N(            10))
 10195	  etst(ash(N(           100),N(  0)),N(           100))
 10196	  etst(ash(N(          1000),N(  0)),N(          1000))
 10197	  etst(ash(N(       1000000),N(  0)),N(       1000000))
 10198	  etst(ash(N(    1000000000),N(  0)),N(    1000000000))
 10199	  etst(ash(N( 1000000000000),N(  0)),N( 1000000000000))
 10200	
 10201	  etst(ash(N( 1000000000000),N( 65)),N( 36893488147419103232000000000000))
 10202	  etst(ash(N(    1000000000),N( 65)),N(    36893488147419103232000000000))
 10203	  etst(ash(N(       1000000),N( 65)),N(       36893488147419103232000000))
 10204	  etst(ash(N(          1000),N( 65)),N(          36893488147419103232000))
 10205	  etst(ash(N(           100),N( 65)),N(           3689348814741910323200))
 10206	  etst(ash(N(            10),N( 65)),N(            368934881474191032320))
 10207	  etst(ash(N(             1),N( 65)),N(             36893488147419103232))
 10208	  etst(ash(N(             0),N( 65)),N(                                0))
 10209	  etst(ash(N(            -1),N( 65)),N(            -36893488147419103232))
 10210	  etst(ash(N(           -10),N( 65)),N(           -368934881474191032320))
 10211	  etst(ash(N(          -100),N( 65)),N(          -3689348814741910323200))
 10212	  etst(ash(N(         -1000),N( 65)),N(         -36893488147419103232000))
 10213	  etst(ash(N(      -1000000),N( 65)),N(      -36893488147419103232000000))
 10214	  etst(ash(N(   -1000000000),N( 65)),N(   -36893488147419103232000000000))
 10215	  etst(ash(N(-1000000000000),N( 65)),N(-36893488147419103232000000000000))
 10216	
 10217	  etst(ash(N( 1000000000000),N( 64)),N( 18446744073709551616000000000000))
 10218	  etst(ash(N(    1000000000),N( 64)),N(    18446744073709551616000000000))
 10219	  etst(ash(N(       1000000),N( 64)),N(       18446744073709551616000000))
 10220	  etst(ash(N(          1000),N( 64)),N(          18446744073709551616000))
 10221	  etst(ash(N(           100),N( 64)),N(           1844674407370955161600))
 10222	  etst(ash(N(            10),N( 64)),N(            184467440737095516160))
 10223	  etst(ash(N(             1),N( 64)),N(             18446744073709551616))
 10224	  etst(ash(N(             0),N( 64)),N(                                0))
 10225	  etst(ash(N(            -1),N( 64)),N(            -18446744073709551616))
 10226	  etst(ash(N(           -10),N( 64)),N(           -184467440737095516160))
 10227	  etst(ash(N(          -100),N( 64)),N(          -1844674407370955161600))
 10228	  etst(ash(N(         -1000),N( 64)),N(         -18446744073709551616000))
 10229	  etst(ash(N(      -1000000),N( 64)),N(      -18446744073709551616000000))
 10230	  etst(ash(N(   -1000000000),N( 64)),N(   -18446744073709551616000000000))
 10231	  etst(ash(N(-1000000000000),N( 64)),N(-18446744073709551616000000000000))
 10232	
 10233	  etst(ash(N( 1000000000000),N( 63)),N( 9223372036854775808000000000000))
 10234	  etst(ash(N(    1000000000),N( 63)),N(    9223372036854775808000000000))
 10235	  etst(ash(N(       1000000),N( 63)),N(       9223372036854775808000000))
 10236	  etst(ash(N(          1000),N( 63)),N(          9223372036854775808000))
 10237	  etst(ash(N(           100),N( 63)),N(           922337203685477580800))
 10238	  etst(ash(N(            10),N( 63)),N(            92233720368547758080))
 10239	  etst(ash(N(             1),N( 63)),N(             9223372036854775808))
 10240	  etst(ash(N(             0),N( 63)),N(                               0))
 10241	  etst(ash(N(            -1),N( 63)),N(            -9223372036854775808))
 10242	  etst(ash(N(           -10),N( 63)),N(           -92233720368547758080))
 10243	  etst(ash(N(          -100),N( 63)),N(          -922337203685477580800))
 10244	  etst(ash(N(         -1000),N( 63)),N(         -9223372036854775808000))
 10245	  etst(ash(N(      -1000000),N( 63)),N(      -9223372036854775808000000))
 10246	  etst(ash(N(   -1000000000),N( 63)),N(   -9223372036854775808000000000))
 10247	  etst(ash(N(-1000000000000),N( 63)),N(-9223372036854775808000000000000))
 10248	
 10249	  etst(ash(N( 1000000000000),N(  4)),N( 16000000000000))
 10250	  etst(ash(N(    1000000000),N(  4)),N(    16000000000))
 10251	  etst(ash(N(       1000000),N(  4)),N(       16000000))
 10252	  etst(ash(N(          1000),N(  4)),N(          16000))
 10253	  etst(ash(N(           100),N(  4)),N(           1600))
 10254	  etst(ash(N(            10),N(  4)),N(            160))
 10255	  etst(ash(N(             1),N(  4)),N(             16))
 10256	  etst(ash(N(             0),N(  4)),N(              0))
 10257	  etst(ash(N(            -1),N(  4)),N(            -16))
 10258	  etst(ash(N(           -10),N(  4)),N(           -160))
 10259	  etst(ash(N(          -100),N(  4)),N(          -1600))
 10260	  etst(ash(N(         -1000),N(  4)),N(         -16000))
 10261	  etst(ash(N(      -1000000),N(  4)),N(      -16000000))
 10262	  etst(ash(N(   -1000000000),N(  4)),N(   -16000000000))
 10263	  etst(ash(N(-1000000000000),N(  4)),N(-16000000000000))
 10264	
 10265	  etst(ash(N( 1000000000000),N(  3)),N( 8000000000000))
 10266	  etst(ash(N(    1000000000),N(  3)),N(    8000000000))
 10267	  etst(ash(N(       1000000),N(  3)),N(       8000000))
 10268	  etst(ash(N(          1000),N(  3)),N(          8000))
 10269	  etst(ash(N(           100),N(  3)),N(           800))
 10270	  etst(ash(N(            10),N(  3)),N(            80))
 10271	  etst(ash(N(             1),N(  3)),N(             8))
 10272	  etst(ash(N(             0),N(  3)),N(             0))
 10273	  etst(ash(N(            -1),N(  3)),N(            -8))
 10274	  etst(ash(N(           -10),N(  3)),N(           -80))
 10275	  etst(ash(N(          -100),N(  3)),N(          -800))
 10276	  etst(ash(N(         -1000),N(  3)),N(         -8000))
 10277	  etst(ash(N(      -1000000),N(  3)),N(      -8000000))
 10278	  etst(ash(N(   -1000000000),N(  3)),N(   -8000000000))
 10279	  etst(ash(N(-1000000000000),N(  3)),N(-8000000000000))
 10280	
 10281	  etst(ash(N( 1000000000000),N(  2)),N( 4000000000000))
 10282	  etst(ash(N(    1000000000),N(  2)),N(    4000000000))
 10283	  etst(ash(N(       1000000),N(  2)),N(       4000000))
 10284	  etst(ash(N(          1000),N(  2)),N(          4000))
 10285	  etst(ash(N(           100),N(  2)),N(           400))
 10286	  etst(ash(N(            10),N(  2)),N(            40))
 10287	  etst(ash(N(             1),N(  2)),N(             4))
 10288	  etst(ash(N(             0),N(  2)),N(             0))
 10289	  etst(ash(N(            -1),N(  2)),N(            -4))
 10290	  etst(ash(N(           -10),N(  2)),N(           -40))
 10291	  etst(ash(N(          -100),N(  2)),N(          -400))
 10292	  etst(ash(N(         -1000),N(  2)),N(         -4000))
 10293	  etst(ash(N(      -1000000),N(  2)),N(      -4000000))
 10294	  etst(ash(N(   -1000000000),N(  2)),N(   -4000000000))
 10295	  etst(ash(N(-1000000000000),N(  2)),N(-4000000000000))
 10296	
 10297	  etst(ash(N( 1000000000000),N(  1)),N( 2000000000000))
 10298	  etst(ash(N(    1000000000),N(  1)),N(    2000000000))
 10299	  etst(ash(N(       1000000),N(  1)),N(       2000000))
 10300	  etst(ash(N(          1000),N(  1)),N(          2000))
 10301	  etst(ash(N(           100),N(  1)),N(           200))
 10302	  etst(ash(N(            10),N(  1)),N(            20))
 10303	  etst(ash(N(             1),N(  1)),N(             2))
 10304	  etst(ash(N(             0),N(  1)),N(             0))
 10305	  etst(ash(N(            -1),N(  1)),N(            -2))
 10306	  etst(ash(N(           -10),N(  1)),N(           -20))
 10307	  etst(ash(N(          -100),N(  1)),N(          -200))
 10308	  etst(ash(N(         -1000),N(  1)),N(         -2000))
 10309	  etst(ash(N(      -1000000),N(  1)),N(      -2000000))
 10310	  etst(ash(N(   -1000000000),N(  1)),N(   -2000000000))
 10311	  etst(ash(N(-1000000000000),N(  1)),N(-2000000000000))
 10312	
 10313	  etst(ash(N( 36893488147419103232000000000000),N(-65)),N( 1000000000000))
 10314	  etst(ash(N(    36893488147419103232000000000),N(-65)),N(    1000000000))
 10315	  etst(ash(N(       36893488147419103232000000),N(-65)),N(       1000000))
 10316	  etst(ash(N(          36893488147419103232000),N(-65)),N(          1000))
 10317	  etst(ash(N(           3689348814741910323200),N(-65)),N(           100))
 10318	  etst(ash(N(            368934881474191032320),N(-65)),N(            10))
 10319	  etst(ash(N(             36893488147419103232),N(-65)),N(             1))
 10320	  etst(ash(N(                                0),N(-65)),N(             0))
 10321	  etst(ash(N(            -36893488147419103232),N(-65)),N(            -1))
 10322	  etst(ash(N(           -368934881474191032320),N(-65)),N(           -10))
 10323	  etst(ash(N(          -3689348814741910323200),N(-65)),N(          -100))
 10324	  etst(ash(N(         -36893488147419103232000),N(-65)),N(         -1000))
 10325	  etst(ash(N(      -36893488147419103232000000),N(-65)),N(      -1000000))
 10326	  etst(ash(N(   -36893488147419103232000000000),N(-65)),N(   -1000000000))
 10327	  etst(ash(N(-36893488147419103232000000000000),N(-65)),N(-1000000000000))
 10328	
 10329	  etst(ash(N( 18446744073709551616000000000000),N(-64)),N( 1000000000000))
 10330	  etst(ash(N(    18446744073709551616000000000),N(-64)),N(    1000000000))
 10331	  etst(ash(N(       18446744073709551616000000),N(-64)),N(       1000000))
 10332	  etst(ash(N(          18446744073709551616000),N(-64)),N(          1000))
 10333	  etst(ash(N(           1844674407370955161600),N(-64)),N(           100))
 10334	  etst(ash(N(            184467440737095516160),N(-64)),N(            10))
 10335	  etst(ash(N(             18446744073709551616),N(-64)),N(             1))
 10336	  etst(ash(N(                                0),N(-64)),N(             0))
 10337	  etst(ash(N(            -18446744073709551616),N(-64)),N(            -1))
 10338	  etst(ash(N(           -184467440737095516160),N(-64)),N(           -10))
 10339	  etst(ash(N(          -1844674407370955161600),N(-64)),N(          -100))
 10340	  etst(ash(N(         -18446744073709551616000),N(-64)),N(         -1000))
 10341	  etst(ash(N(      -18446744073709551616000000),N(-64)),N(      -1000000))
 10342	  etst(ash(N(   -18446744073709551616000000000),N(-64)),N(   -1000000000))
 10343	  etst(ash(N(-18446744073709551616000000000000),N(-64)),N(-1000000000000))
 10344	
 10345	  etst(ash(N(  9223372036854775808000000000000),N(-63)),N( 1000000000000))
 10346	  etst(ash(N(     9223372036854775808000000000),N(-63)),N(    1000000000))
 10347	  etst(ash(N(        9223372036854775808000000),N(-63)),N(       1000000))
 10348	  etst(ash(N(           9223372036854775808000),N(-63)),N(          1000))
 10349	  etst(ash(N(            922337203685477580800),N(-63)),N(           100))
 10350	  etst(ash(N(             92233720368547758080),N(-63)),N(            10))
 10351	  etst(ash(N(              9223372036854775808),N(-63)),N(             1))
 10352	  etst(ash(N(                                0),N(-63)),N(             0))
 10353	  etst(ash(N(             -9223372036854775808),N(-63)),N(            -1))
 10354	  etst(ash(N(            -92233720368547758080),N(-63)),N(           -10))
 10355	  etst(ash(N(           -922337203685477580800),N(-63)),N(          -100))
 10356	  etst(ash(N(          -9223372036854775808000),N(-63)),N(         -1000))
 10357	  etst(ash(N(       -9223372036854775808000000),N(-63)),N(      -1000000))
 10358	  etst(ash(N(    -9223372036854775808000000000),N(-63)),N(   -1000000000))
 10359	  etst(ash(N( -9223372036854775808000000000000),N(-63)),N(-1000000000000))
 10360	
 10361	  etst(twice0(N(-2)),N(-4))
 10362	  etst(twice0(N(-1)),N(-2))
 10363	  etst(twice0(N( 0)),N( 0))
 10364	  etst(twice0(N( 1)),N( 2))
 10365	  etst(twice0(N( 2)),N( 4))
 10366	
 10367	  etst(twice1(N(-2)),N(-3))
 10368	  etst(twice1(N(-1)),N(-1))
 10369	  etst(twice1(N( 0)),N( 1))
 10370	  etst(twice1(N( 1)),N( 3))
 10371	  etst(twice1(N( 2)),N( 5))
 10372	
 10373	  etst(pairUnaryMinus(PAIR(N(-1),N(-1))),PAIR(N( 1),N( 1)))
 10374	  etst(pairUnaryMinus(PAIR(N(-1),N( 0))),PAIR(N( 1),N( 0)))
 10375	  etst(pairUnaryMinus(PAIR(N(-1),N( 1))),PAIR(N( 1),N(-1)))
 10376	  etst(pairUnaryMinus(PAIR(N( 0),N(-1))),PAIR(N( 0),N( 1)))
 10377	  etst(pairUnaryMinus(PAIR(N( 0),N( 0))),PAIR(N( 0),N( 0)))
 10378	  etst(pairUnaryMinus(PAIR(N( 0),N( 1))),PAIR(N( 0),N(-1)))
 10379	  etst(pairUnaryMinus(PAIR(N( 1),N(-1))),PAIR(N(-1),N( 1)))
 10380	  etst(pairUnaryMinus(PAIR(N( 1),N( 0))),PAIR(N(-1),N( 0)))
 10381	  etst(pairUnaryMinus(PAIR(N( 1),N( 1))),PAIR(N(-1),N(-1)))
 10382	
 10383	  etst(divAdjust(PAIR(N(3),N(7)),N(10)),PAIR(N(4),N(-3)))
 10384	
 10385	  etst(floor0(N( 0),N(1)),PAIR(N( 0),N(0)))
 10386	  etst(floor0(N( 1),N(1)),PAIR(N( 1),N(0)))
 10387	  etst(floor0(N( 2),N(1)),PAIR(N( 2),N(0)))
 10388	  etst(floor0(N( 3),N(1)),PAIR(N( 3),N(0)))
 10389	  etst(floor0(N( 4),N(1)),PAIR(N( 4),N(0)))
 10390	  etst(floor0(N( 5),N(1)),PAIR(N( 5),N(0)))
 10391	  etst(floor0(N( 6),N(1)),PAIR(N( 6),N(0)))
 10392	  etst(floor0(N( 7),N(1)),PAIR(N( 7),N(0)))
 10393	  etst(floor0(N( 8),N(1)),PAIR(N( 8),N(0)))
 10394	  etst(floor0(N( 9),N(1)),PAIR(N( 9),N(0)))
 10395	
 10396	  etst(floor0(N( 0),N(2)),PAIR(N( 0),N(0)))
 10397	  etst(floor0(N( 1),N(2)),PAIR(N( 0),N(1)))
 10398	  etst(floor0(N( 2),N(2)),PAIR(N( 1),N(0)))
 10399	  etst(floor0(N( 3),N(2)),PAIR(N( 1),N(1)))
 10400	  etst(floor0(N( 4),N(2)),PAIR(N( 2),N(0)))
 10401	  etst(floor0(N( 5),N(2)),PAIR(N( 2),N(1)))
 10402	  etst(floor0(N( 6),N(2)),PAIR(N( 3),N(0)))
 10403	  etst(floor0(N( 7),N(2)),PAIR(N( 3),N(1)))
 10404	  etst(floor0(N( 8),N(2)),PAIR(N( 4),N(0)))
 10405	  etst(floor0(N( 9),N(2)),PAIR(N( 4),N(1)))
 10406	
 10407	  etst(floor0(N( 0),N(3)),PAIR(N( 0),N(0)))
 10408	  etst(floor0(N( 1),N(3)),PAIR(N( 0),N(1)))
 10409	  etst(floor0(N( 2),N(3)),PAIR(N( 0),N(2)))
 10410	  etst(floor0(N( 3),N(3)),PAIR(N( 1),N(0)))
 10411	  etst(floor0(N( 4),N(3)),PAIR(N( 1),N(1)))
 10412	  etst(floor0(N( 5),N(3)),PAIR(N( 1),N(2)))
 10413	  etst(floor0(N( 6),N(3)),PAIR(N( 2),N(0)))
 10414	  etst(floor0(N( 7),N(3)),PAIR(N( 2),N(1)))
 10415	  etst(floor0(N( 8),N(3)),PAIR(N( 2),N(2)))
 10416	  etst(floor0(N( 9),N(3)),PAIR(N( 3),N(0)))
 10417	
 10418	  etst(floor0(N( 0),N(4)),PAIR(N( 0),N(0)))
 10419	  etst(floor0(N( 1),N(4)),PAIR(N( 0),N(1)))
 10420	  etst(floor0(N( 2),N(4)),PAIR(N( 0),N(2)))
 10421	  etst(floor0(N( 3),N(4)),PAIR(N( 0),N(3)))
 10422	  etst(floor0(N( 4),N(4)),PAIR(N( 1),N(0)))
 10423	  etst(floor0(N( 5),N(4)),PAIR(N( 1),N(1)))
 10424	  etst(floor0(N( 6),N(4)),PAIR(N( 1),N(2)))
 10425	  etst(floor0(N( 7),N(4)),PAIR(N( 1),N(3)))
 10426	  etst(floor0(N( 8),N(4)),PAIR(N( 2),N(0)))
 10427	  etst(floor0(N( 9),N(4)),PAIR(N( 2),N(1)))
 10428	
 10429	  etst(floor0(N( 0),N(5)),PAIR(N( 0),N(0)))
 10430	  etst(floor0(N( 1),N(5)),PAIR(N( 0),N(1)))
 10431	  etst(floor0(N( 2),N(5)),PAIR(N( 0),N(2)))
 10432	  etst(floor0(N( 3),N(5)),PAIR(N( 0),N(3)))
 10433	  etst(floor0(N( 4),N(5)),PAIR(N( 0),N(4)))
 10434	  etst(floor0(N( 5),N(5)),PAIR(N( 1),N(0)))
 10435	  etst(floor0(N( 6),N(5)),PAIR(N( 1),N(1)))
 10436	  etst(floor0(N( 7),N(5)),PAIR(N( 1),N(2)))
 10437	  etst(floor0(N( 8),N(5)),PAIR(N( 1),N(3)))
 10438	  etst(floor0(N( 9),N(5)),PAIR(N( 1),N(4)))
 10439	
 10440	  etst(floor0(N( 0),N(6)),PAIR(N( 0),N(0)))
 10441	  etst(floor0(N( 1),N(6)),PAIR(N( 0),N(1)))
 10442	  etst(floor0(N( 2),N(6)),PAIR(N( 0),N(2)))
 10443	  etst(floor0(N( 3),N(6)),PAIR(N( 0),N(3)))
 10444	  etst(floor0(N( 4),N(6)),PAIR(N( 0),N(4)))
 10445	  etst(floor0(N( 5),N(6)),PAIR(N( 0),N(5)))
 10446	  etst(floor0(N( 6),N(6)),PAIR(N( 1),N(0)))
 10447	  etst(floor0(N( 7),N(6)),PAIR(N( 1),N(1)))
 10448	  etst(floor0(N( 8),N(6)),PAIR(N( 1),N(2)))
 10449	  etst(floor0(N( 9),N(6)),PAIR(N( 1),N(3)))
 10450	
 10451	  etst(floor0(N( 0),N(7)),PAIR(N( 0),N(0)))
 10452	  etst(floor0(N( 1),N(7)),PAIR(N( 0),N(1)))
 10453	  etst(floor0(N( 2),N(7)),PAIR(N( 0),N(2)))
 10454	  etst(floor0(N( 3),N(7)),PAIR(N( 0),N(3)))
 10455	  etst(floor0(N( 4),N(7)),PAIR(N( 0),N(4)))
 10456	  etst(floor0(N( 5),N(7)),PAIR(N( 0),N(5)))
 10457	  etst(floor0(N( 6),N(7)),PAIR(N( 0),N(6)))
 10458	  etst(floor0(N( 7),N(7)),PAIR(N( 1),N(0)))
 10459	  etst(floor0(N( 8),N(7)),PAIR(N( 1),N(1)))
 10460	  etst(floor0(N( 9),N(7)),PAIR(N( 1),N(2)))
 10461	
 10462	  etst(floor0(N( 0),N(8)),PAIR(N( 0),N(0)))
 10463	  etst(floor0(N( 1),N(8)),PAIR(N( 0),N(1)))
 10464	  etst(floor0(N( 2),N(8)),PAIR(N( 0),N(2)))
 10465	  etst(floor0(N( 3),N(8)),PAIR(N( 0),N(3)))
 10466	  etst(floor0(N( 4),N(8)),PAIR(N( 0),N(4)))
 10467	  etst(floor0(N( 5),N(8)),PAIR(N( 0),N(5)))
 10468	  etst(floor0(N( 6),N(8)),PAIR(N( 0),N(6)))
 10469	  etst(floor0(N( 7),N(8)),PAIR(N( 0),N(7)))
 10470	  etst(floor0(N( 8),N(8)),PAIR(N( 1),N(0)))
 10471	  etst(floor0(N( 9),N(8)),PAIR(N( 1),N(1)))
 10472	
 10473	  etst(floor0(N( 0),N(9)),PAIR(N( 0),N(0)))
 10474	  etst(floor0(N( 1),N(9)),PAIR(N( 0),N(1)))
 10475	  etst(floor0(N( 2),N(9)),PAIR(N( 0),N(2)))
 10476	  etst(floor0(N( 3),N(9)),PAIR(N( 0),N(3)))
 10477	  etst(floor0(N( 4),N(9)),PAIR(N( 0),N(4)))
 10478	  etst(floor0(N( 5),N(9)),PAIR(N( 0),N(5)))
 10479	  etst(floor0(N( 6),N(9)),PAIR(N( 0),N(6)))
 10480	  etst(floor0(N( 7),N(9)),PAIR(N( 0),N(7)))
 10481	  etst(floor0(N( 8),N(9)),PAIR(N( 0),N(8)))
 10482	  etst(floor0(N( 9),N(9)),PAIR(N( 1),N(0)))
 10483	
 10484	  etst(ceiling0(N( 9),N(1)),PAIR(N( 9),N( 0)))
 10485	  etst(ceiling0(N( 8),N(1)),PAIR(N( 8),N( 0)))
 10486	  etst(ceiling0(N( 7),N(1)),PAIR(N( 7),N( 0)))
 10487	  etst(ceiling0(N( 6),N(1)),PAIR(N( 6),N( 0)))
 10488	  etst(ceiling0(N( 5),N(1)),PAIR(N( 5),N( 0)))
 10489	  etst(ceiling0(N( 4),N(1)),PAIR(N( 4),N( 0)))
 10490	  etst(ceiling0(N( 3),N(1)),PAIR(N( 3),N( 0)))
 10491	  etst(ceiling0(N( 2),N(1)),PAIR(N( 2),N( 0)))
 10492	  etst(ceiling0(N( 1),N(1)),PAIR(N( 1),N( 0)))
 10493	  etst(ceiling0(N( 0),N(1)),PAIR(N( 0),N( 0)))
 10494	
 10495	  etst(ceiling0(N( 9),N(2)),PAIR(N( 5),N(-1)))
 10496	  etst(ceiling0(N( 8),N(2)),PAIR(N( 4),N( 0)))
 10497	  etst(ceiling0(N( 7),N(2)),PAIR(N( 4),N(-1)))
 10498	  etst(ceiling0(N( 6),N(2)),PAIR(N( 3),N( 0)))
 10499	  etst(ceiling0(N( 5),N(2)),PAIR(N( 3),N(-1)))
 10500	  etst(ceiling0(N( 4),N(2)),PAIR(N( 2),N( 0)))
 10501	  etst(ceiling0(N( 3),N(2)),PAIR(N( 2),N(-1)))
 10502	  etst(ceiling0(N( 2),N(2)),PAIR(N( 1),N( 0)))
 10503	  etst(ceiling0(N( 1),N(2)),PAIR(N( 1),N(-1)))
 10504	  etst(ceiling0(N( 0),N(2)),PAIR(N( 0),N( 0)))
 10505	
 10506	  etst(ceiling0(N( 9),N(3)),PAIR(N( 3),N( 0)))
 10507	  etst(ceiling0(N( 8),N(3)),PAIR(N( 3),N(-1)))
 10508	  etst(ceiling0(N( 7),N(3)),PAIR(N( 3),N(-2)))
 10509	  etst(ceiling0(N( 6),N(3)),PAIR(N( 2),N( 0)))
 10510	  etst(ceiling0(N( 5),N(3)),PAIR(N( 2),N(-1)))
 10511	  etst(ceiling0(N( 4),N(3)),PAIR(N( 2),N(-2)))
 10512	  etst(ceiling0(N( 3),N(3)),PAIR(N( 1),N( 0)))
 10513	  etst(ceiling0(N( 2),N(3)),PAIR(N( 1),N(-1)))
 10514	  etst(ceiling0(N( 1),N(3)),PAIR(N( 1),N(-2)))
 10515	  etst(ceiling0(N( 0),N(3)),PAIR(N( 0),N( 0)))
 10516	
 10517	  etst(ceiling0(N( 9),N(4)),PAIR(N( 3),N(-3)))
 10518	  etst(ceiling0(N( 8),N(4)),PAIR(N( 2),N( 0)))
 10519	  etst(ceiling0(N( 7),N(4)),PAIR(N( 2),N(-1)))
 10520	  etst(ceiling0(N( 6),N(4)),PAIR(N( 2),N(-2)))
 10521	  etst(ceiling0(N( 5),N(4)),PAIR(N( 2),N(-3)))
 10522	  etst(ceiling0(N( 4),N(4)),PAIR(N( 1),N( 0)))
 10523	  etst(ceiling0(N( 3),N(4)),PAIR(N( 1),N(-1)))
 10524	  etst(ceiling0(N( 2),N(4)),PAIR(N( 1),N(-2)))
 10525	  etst(ceiling0(N( 1),N(4)),PAIR(N( 1),N(-3)))
 10526	  etst(ceiling0(N( 0),N(4)),PAIR(N( 0),N( 0)))
 10527	
 10528	  etst(ceiling0(N( 9),N(5)),PAIR(N( 2),N(-1)))
 10529	  etst(ceiling0(N( 8),N(5)),PAIR(N( 2),N(-2)))
 10530	  etst(ceiling0(N( 7),N(5)),PAIR(N( 2),N(-3)))
 10531	  etst(ceiling0(N( 6),N(5)),PAIR(N( 2),N(-4)))
 10532	  etst(ceiling0(N( 5),N(5)),PAIR(N( 1),N( 0)))
 10533	  etst(ceiling0(N( 4),N(5)),PAIR(N( 1),N(-1)))
 10534	  etst(ceiling0(N( 3),N(5)),PAIR(N( 1),N(-2)))
 10535	  etst(ceiling0(N( 2),N(5)),PAIR(N( 1),N(-3)))
 10536	  etst(ceiling0(N( 1),N(5)),PAIR(N( 1),N(-4)))
 10537	  etst(ceiling0(N( 0),N(5)),PAIR(N( 0),N( 0)))
 10538	
 10539	  etst(ceiling0(N( 9),N(6)),PAIR(N( 2),N(-3)))
 10540	  etst(ceiling0(N( 8),N(6)),PAIR(N( 2),N(-4)))
 10541	  etst(ceiling0(N( 7),N(6)),PAIR(N( 2),N(-5)))
 10542	  etst(ceiling0(N( 6),N(6)),PAIR(N( 1),N( 0)))
 10543	  etst(ceiling0(N( 5),N(6)),PAIR(N( 1),N(-1)))
 10544	  etst(ceiling0(N( 4),N(6)),PAIR(N( 1),N(-2)))
 10545	  etst(ceiling0(N( 3),N(6)),PAIR(N( 1),N(-3)))
 10546	  etst(ceiling0(N( 2),N(6)),PAIR(N( 1),N(-4)))
 10547	  etst(ceiling0(N( 1),N(6)),PAIR(N( 1),N(-5)))
 10548	  etst(ceiling0(N( 0),N(6)),PAIR(N( 0),N( 0)))
 10549	
 10550	  etst(ceiling0(N( 9),N(7)),PAIR(N( 2),N(-5)))
 10551	  etst(ceiling0(N( 8),N(7)),PAIR(N( 2),N(-6)))
 10552	  etst(ceiling0(N( 7),N(7)),PAIR(N( 1),N( 0)))
 10553	  etst(ceiling0(N( 6),N(7)),PAIR(N( 1),N(-1)))
 10554	  etst(ceiling0(N( 5),N(7)),PAIR(N( 1),N(-2)))
 10555	  etst(ceiling0(N( 4),N(7)),PAIR(N( 1),N(-3)))
 10556	  etst(ceiling0(N( 3),N(7)),PAIR(N( 1),N(-4)))
 10557	  etst(ceiling0(N( 2),N(7)),PAIR(N( 1),N(-5)))
 10558	  etst(ceiling0(N( 1),N(7)),PAIR(N( 1),N(-6)))
 10559	  etst(ceiling0(N( 0),N(7)),PAIR(N( 0),N( 0)))
 10560	
 10561	  etst(ceiling0(N( 9),N(8)),PAIR(N( 2),N(-7)))
 10562	  etst(ceiling0(N( 8),N(8)),PAIR(N( 1),N( 0)))
 10563	  etst(ceiling0(N( 7),N(8)),PAIR(N( 1),N(-1)))
 10564	  etst(ceiling0(N( 6),N(8)),PAIR(N( 1),N(-2)))
 10565	  etst(ceiling0(N( 5),N(8)),PAIR(N( 1),N(-3)))
 10566	  etst(ceiling0(N( 4),N(8)),PAIR(N( 1),N(-4)))
 10567	  etst(ceiling0(N( 3),N(8)),PAIR(N( 1),N(-5)))
 10568	  etst(ceiling0(N( 2),N(8)),PAIR(N( 1),N(-6)))
 10569	  etst(ceiling0(N( 1),N(8)),PAIR(N( 1),N(-7)))
 10570	  etst(ceiling0(N( 0),N(8)),PAIR(N( 0),N( 0)))
 10571	
 10572	  etst(ceiling0(N( 9),N(9)),PAIR(N( 1),N( 0)))
 10573	  etst(ceiling0(N( 8),N(9)),PAIR(N( 1),N(-1)))
 10574	  etst(ceiling0(N( 7),N(9)),PAIR(N( 1),N(-2)))
 10575	  etst(ceiling0(N( 6),N(9)),PAIR(N( 1),N(-3)))
 10576	  etst(ceiling0(N( 5),N(9)),PAIR(N( 1),N(-4)))
 10577	  etst(ceiling0(N( 4),N(9)),PAIR(N( 1),N(-5)))
 10578	  etst(ceiling0(N( 3),N(9)),PAIR(N( 1),N(-6)))
 10579	  etst(ceiling0(N( 2),N(9)),PAIR(N( 1),N(-7)))
 10580	  etst(ceiling0(N( 1),N(9)),PAIR(N( 1),N(-8)))
 10581	  etst(ceiling0(N( 0),N(9)),PAIR(N( 0),N( 0)))
 10582	
 10583	  etst(round0(N( 9),N(1)),PAIR(N( 9),N( 0)))
 10584	  etst(round0(N( 8),N(1)),PAIR(N( 8),N( 0)))
 10585	  etst(round0(N( 7),N(1)),PAIR(N( 7),N( 0)))
 10586	  etst(round0(N( 6),N(1)),PAIR(N( 6),N( 0)))
 10587	  etst(round0(N( 5),N(1)),PAIR(N( 5),N( 0)))
 10588	  etst(round0(N( 4),N(1)),PAIR(N( 4),N( 0)))
 10589	  etst(round0(N( 3),N(1)),PAIR(N( 3),N( 0)))
 10590	  etst(round0(N( 2),N(1)),PAIR(N( 2),N( 0)))
 10591	  etst(round0(N( 1),N(1)),PAIR(N( 1),N( 0)))
 10592	  etst(round0(N( 0),N(1)),PAIR(N( 0),N( 0)))
 10593	
 10594	  etst(round0(N( 9),N(2)),PAIR(N( 4),N( 1)))
 10595	  etst(round0(N( 8),N(2)),PAIR(N( 4),N( 0)))
 10596	  etst(round0(N( 7),N(2)),PAIR(N( 4),N(-1)))
 10597	  etst(round0(N( 6),N(2)),PAIR(N( 3),N( 0)))
 10598	  etst(round0(N( 5),N(2)),PAIR(N( 2),N( 1)))
 10599	  etst(round0(N( 4),N(2)),PAIR(N( 2),N( 0)))
 10600	  etst(round0(N( 3),N(2)),PAIR(N( 2),N(-1)))
 10601	  etst(round0(N( 2),N(2)),PAIR(N( 1),N( 0)))
 10602	  etst(round0(N( 1),N(2)),PAIR(N( 0),N( 1)))
 10603	  etst(round0(N( 0),N(2)),PAIR(N( 0),N( 0)))
 10604	
 10605	  etst(round0(N( 9),N(3)),PAIR(N( 3),N( 0)))
 10606	  etst(round0(N( 8),N(3)),PAIR(N( 3),N(-1)))
 10607	  etst(round0(N( 7),N(3)),PAIR(N( 2),N( 1)))
 10608	  etst(round0(N( 6),N(3)),PAIR(N( 2),N( 0)))
 10609	  etst(round0(N( 5),N(3)),PAIR(N( 2),N(-1)))
 10610	  etst(round0(N( 4),N(3)),PAIR(N( 1),N( 1)))
 10611	  etst(round0(N( 3),N(3)),PAIR(N( 1),N( 0)))
 10612	  etst(round0(N( 2),N(3)),PAIR(N( 1),N(-1)))
 10613	  etst(round0(N( 1),N(3)),PAIR(N( 0),N( 1)))
 10614	  etst(round0(N( 0),N(3)),PAIR(N( 0),N( 0)))
 10615	
 10616	  etst(round0(N( 9),N(4)),PAIR(N( 2),N( 1)))
 10617	  etst(round0(N( 8),N(4)),PAIR(N( 2),N( 0)))
 10618	  etst(round0(N( 7),N(4)),PAIR(N( 2),N(-1)))
 10619	  etst(round0(N( 6),N(4)),PAIR(N( 2),N(-2)))
 10620	  etst(round0(N( 5),N(4)),PAIR(N( 1),N( 1)))
 10621	  etst(round0(N( 4),N(4)),PAIR(N( 1),N( 0)))
 10622	  etst(round0(N( 3),N(4)),PAIR(N( 1),N(-1)))
 10623	  etst(round0(N( 2),N(4)),PAIR(N( 0),N( 2)))
 10624	  etst(round0(N( 1),N(4)),PAIR(N( 0),N( 1)))
 10625	  etst(round0(N( 0),N(4)),PAIR(N( 0),N( 0)))
 10626	
 10627	  etst(round0(N( 9),N(5)),PAIR(N( 2),N(-1)))
 10628	  etst(round0(N( 8),N(5)),PAIR(N( 2),N(-2)))
 10629	  etst(round0(N( 7),N(5)),PAIR(N( 1),N( 2)))
 10630	  etst(round0(N( 6),N(5)),PAIR(N( 1),N( 1)))
 10631	  etst(round0(N( 5),N(5)),PAIR(N( 1),N( 0)))
 10632	  etst(round0(N( 4),N(5)),PAIR(N( 1),N(-1)))
 10633	  etst(round0(N( 3),N(5)),PAIR(N( 1),N(-2)))
 10634	  etst(round0(N( 2),N(5)),PAIR(N( 0),N( 2)))
 10635	  etst(round0(N( 1),N(5)),PAIR(N( 0),N( 1)))
 10636	  etst(round0(N( 0),N(5)),PAIR(N( 0),N( 0)))
 10637	
 10638	  etst(round0(N( 9),N(6)),PAIR(N( 2),N(-3)))
 10639	  etst(round0(N( 8),N(6)),PAIR(N( 1),N( 2)))
 10640	  etst(round0(N( 7),N(6)),PAIR(N( 1),N( 1)))
 10641	  etst(round0(N( 6),N(6)),PAIR(N( 1),N( 0)))
 10642	  etst(round0(N( 5),N(6)),PAIR(N( 1),N(-1)))
 10643	  etst(round0(N( 4),N(6)),PAIR(N( 1),N(-2)))
 10644	  etst(round0(N( 3),N(6)),PAIR(N( 0),N( 3)))
 10645	  etst(round0(N( 2),N(6)),PAIR(N( 0),N( 2)))
 10646	  etst(round0(N( 1),N(6)),PAIR(N( 0),N( 1)))
 10647	  etst(round0(N( 0),N(6)),PAIR(N( 0),N( 0)))
 10648	
 10649	  etst(round0(N( 9),N(7)),PAIR(N( 1),N( 2)))
 10650	  etst(round0(N( 8),N(7)),PAIR(N( 1),N( 1)))
 10651	  etst(round0(N( 7),N(7)),PAIR(N( 1),N( 0)))
 10652	  etst(round0(N( 6),N(7)),PAIR(N( 1),N(-1)))
 10653	  etst(round0(N( 5),N(7)),PAIR(N( 1),N(-2)))
 10654	  etst(round0(N( 4),N(7)),PAIR(N( 1),N(-3)))
 10655	  etst(round0(N( 3),N(7)),PAIR(N( 0),N(3 )))
 10656	  etst(round0(N( 2),N(7)),PAIR(N( 0),N( 2)))
 10657	  etst(round0(N( 1),N(7)),PAIR(N( 0),N( 1)))
 10658	  etst(round0(N( 0),N(7)),PAIR(N( 0),N( 0)))
 10659	
 10660	  etst(round0(N( 9),N(8)),PAIR(N( 1),N( 1)))
 10661	  etst(round0(N( 8),N(8)),PAIR(N( 1),N( 0)))
 10662	  etst(round0(N( 7),N(8)),PAIR(N( 1),N(-1)))
 10663	  etst(round0(N( 6),N(8)),PAIR(N( 1),N(-2)))
 10664	  etst(round0(N( 5),N(8)),PAIR(N( 1),N(-3)))
 10665	  etst(round0(N( 4),N(8)),PAIR(N( 0),N( 4)))
 10666	  etst(round0(N( 3),N(8)),PAIR(N( 0),N( 3)))
 10667	  etst(round0(N( 2),N(8)),PAIR(N( 0),N( 2)))
 10668	  etst(round0(N( 1),N(8)),PAIR(N( 0),N( 1)))
 10669	  etst(round0(N( 0),N(8)),PAIR(N( 0),N( 0)))
 10670	
 10671	  etst(round0(N( 9),N(9)),PAIR(N( 1),N( 0)))
 10672	  etst(round0(N( 8),N(9)),PAIR(N( 1),N(-1)))
 10673	  etst(round0(N( 7),N(9)),PAIR(N( 1),N(-2)))
 10674	  etst(round0(N( 6),N(9)),PAIR(N( 1),N(-3)))
 10675	  etst(round0(N( 5),N(9)),PAIR(N( 1),N(-4)))
 10676	  etst(round0(N( 4),N(9)),PAIR(N( 0),N( 4)))
 10677	  etst(round0(N( 3),N(9)),PAIR(N( 0),N( 3)))
 10678	  etst(round0(N( 2),N(9)),PAIR(N( 0),N( 2)))
 10679	  etst(round0(N( 1),N(9)),PAIR(N( 0),N( 1)))
 10680	  etst(round0(N( 0),N(9)),PAIR(N( 0),N( 0)))
 10681	
 10682	  xtst(floorx(TT,TT))
 10683	  xtst(floorx(TT,FF))
 10684	  xtst(floorx(TT,I0))
 10685	  xtst(floorx(TT,P0))
 10686	  xtst(floorx(TT,M0))
 10687	  xtst(floorx(TT,B0))
 10688	  xtst(floorx(FF,TT))
 10689	  xtst(floorx(FF,FF))
 10690	  xtst(floorx(FF,I0))
 10691	  xtst(floorx(FF,P0))
 10692	  xtst(floorx(FF,M0))
 10693	  xtst(floorx(FF,B0))
 10694	  xtst(floorx(I0,TT))
 10695	  xtst(floorx(I0,FF))
 10696	  xtst(floorx(I0,P0))
 10697	  xtst(floorx(I0,M0))
 10698	  xtst(floorx(I0,B0))
 10699	  xtst(floorx(P0,TT))
 10700	  xtst(floorx(P0,FF))
 10701	  xtst(floorx(P0,I0))
 10702	  xtst(floorx(P0,P0))
 10703	  xtst(floorx(P0,M0))
 10704	  xtst(floorx(P0,B0))
 10705	  xtst(floorx(M0,TT))
 10706	  xtst(floorx(M0,FF))
 10707	  xtst(floorx(M0,I0))
 10708	  xtst(floorx(M0,P0))
 10709	  xtst(floorx(M0,M0))
 10710	  xtst(floorx(M0,B0))
 10711	  xtst(floorx(B0,TT))
 10712	  xtst(floorx(B0,FF))
 10713	  xtst(floorx(B0,I0))
 10714	  xtst(floorx(B0,P0))
 10715	  xtst(floorx(B0,M0))
 10716	  xtst(floorx(B0,B0))
 10717	  xtst(floorx(I0,Z))
 10718	  xtst(floorx(I0,M))
 10719	
 10720	  etst(floorx(N(-9),N(1)),PAIR(N(-9),N(0)))
 10721	  etst(floorx(N(-8),N(1)),PAIR(N(-8),N(0)))
 10722	  etst(floorx(N(-7),N(1)),PAIR(N(-7),N(0)))
 10723	  etst(floorx(N(-6),N(1)),PAIR(N(-6),N(0)))
 10724	  etst(floorx(N(-5),N(1)),PAIR(N(-5),N(0)))
 10725	  etst(floorx(N(-4),N(1)),PAIR(N(-4),N(0)))
 10726	  etst(floorx(N(-3),N(1)),PAIR(N(-3),N(0)))
 10727	  etst(floorx(N(-2),N(1)),PAIR(N(-2),N(0)))
 10728	  etst(floorx(N(-1),N(1)),PAIR(N(-1),N(0)))
 10729	  etst(floorx(N( 0),N(1)),PAIR(N( 0),N(0)))
 10730	  etst(floorx(N( 1),N(1)),PAIR(N( 1),N(0)))
 10731	  etst(floorx(N( 2),N(1)),PAIR(N( 2),N(0)))
 10732	  etst(floorx(N( 3),N(1)),PAIR(N( 3),N(0)))
 10733	  etst(floorx(N( 4),N(1)),PAIR(N( 4),N(0)))
 10734	  etst(floorx(N( 5),N(1)),PAIR(N( 5),N(0)))
 10735	  etst(floorx(N( 6),N(1)),PAIR(N( 6),N(0)))
 10736	  etst(floorx(N( 7),N(1)),PAIR(N( 7),N(0)))
 10737	  etst(floorx(N( 8),N(1)),PAIR(N( 8),N(0)))
 10738	  etst(floorx(N( 9),N(1)),PAIR(N( 9),N(0)))
 10739	
 10740	  etst(floorx(N(-9),N(2)),PAIR(N(-5),N(1)))
 10741	  etst(floorx(N(-8),N(2)),PAIR(N(-4),N(0)))
 10742	  etst(floorx(N(-7),N(2)),PAIR(N(-4),N(1)))
 10743	  etst(floorx(N(-6),N(2)),PAIR(N(-3),N(0)))
 10744	  etst(floorx(N(-5),N(2)),PAIR(N(-3),N(1)))
 10745	  etst(floorx(N(-4),N(2)),PAIR(N(-2),N(0)))
 10746	  etst(floorx(N(-3),N(2)),PAIR(N(-2),N(1)))
 10747	  etst(floorx(N(-2),N(2)),PAIR(N(-1),N(0)))
 10748	  etst(floorx(N(-1),N(2)),PAIR(N(-1),N(1)))
 10749	  etst(floorx(N( 0),N(2)),PAIR(N( 0),N(0)))
 10750	  etst(floorx(N( 1),N(2)),PAIR(N( 0),N(1)))
 10751	  etst(floorx(N( 2),N(2)),PAIR(N( 1),N(0)))
 10752	  etst(floorx(N( 3),N(2)),PAIR(N( 1),N(1)))
 10753	  etst(floorx(N( 4),N(2)),PAIR(N( 2),N(0)))
 10754	  etst(floorx(N( 5),N(2)),PAIR(N( 2),N(1)))
 10755	  etst(floorx(N( 6),N(2)),PAIR(N( 3),N(0)))
 10756	  etst(floorx(N( 7),N(2)),PAIR(N( 3),N(1)))
 10757	  etst(floorx(N( 8),N(2)),PAIR(N( 4),N(0)))
 10758	  etst(floorx(N( 9),N(2)),PAIR(N( 4),N(1)))
 10759	
 10760	  etst(floorx(N(-9),N(3)),PAIR(N(-3),N(0)))
 10761	  etst(floorx(N(-8),N(3)),PAIR(N(-3),N(1)))
 10762	  etst(floorx(N(-7),N(3)),PAIR(N(-3),N(2)))
 10763	  etst(floorx(N(-6),N(3)),PAIR(N(-2),N(0)))
 10764	  etst(floorx(N(-5),N(3)),PAIR(N(-2),N(1)))
 10765	  etst(floorx(N(-4),N(3)),PAIR(N(-2),N(2)))
 10766	  etst(floorx(N(-3),N(3)),PAIR(N(-1),N(0)))
 10767	  etst(floorx(N(-2),N(3)),PAIR(N(-1),N(1)))
 10768	  etst(floorx(N(-1),N(3)),PAIR(N(-1),N(2)))
 10769	  etst(floorx(N( 0),N(3)),PAIR(N( 0),N(0)))
 10770	  etst(floorx(N( 1),N(3)),PAIR(N( 0),N(1)))
 10771	  etst(floorx(N( 2),N(3)),PAIR(N( 0),N(2)))
 10772	  etst(floorx(N( 3),N(3)),PAIR(N( 1),N(0)))
 10773	  etst(floorx(N( 4),N(3)),PAIR(N( 1),N(1)))
 10774	  etst(floorx(N( 5),N(3)),PAIR(N( 1),N(2)))
 10775	  etst(floorx(N( 6),N(3)),PAIR(N( 2),N(0)))
 10776	  etst(floorx(N( 7),N(3)),PAIR(N( 2),N(1)))
 10777	  etst(floorx(N( 8),N(3)),PAIR(N( 2),N(2)))
 10778	  etst(floorx(N( 9),N(3)),PAIR(N( 3),N(0)))
 10779	
 10780	  etst(floorx(N(-9),N(4)),PAIR(N(-3),N(3)))
 10781	  etst(floorx(N(-8),N(4)),PAIR(N(-2),N(0)))
 10782	  etst(floorx(N(-7),N(4)),PAIR(N(-2),N(1)))
 10783	  etst(floorx(N(-6),N(4)),PAIR(N(-2),N(2)))
 10784	  etst(floorx(N(-5),N(4)),PAIR(N(-2),N(3)))
 10785	  etst(floorx(N(-4),N(4)),PAIR(N(-1),N(0)))
 10786	  etst(floorx(N(-3),N(4)),PAIR(N(-1),N(1)))
 10787	  etst(floorx(N(-2),N(4)),PAIR(N(-1),N(2)))
 10788	  etst(floorx(N(-1),N(4)),PAIR(N(-1),N(3)))
 10789	  etst(floorx(N( 0),N(4)),PAIR(N( 0),N(0)))
 10790	  etst(floorx(N( 1),N(4)),PAIR(N( 0),N(1)))
 10791	  etst(floorx(N( 2),N(4)),PAIR(N( 0),N(2)))
 10792	  etst(floorx(N( 3),N(4)),PAIR(N( 0),N(3)))
 10793	  etst(floorx(N( 4),N(4)),PAIR(N( 1),N(0)))
 10794	  etst(floorx(N( 5),N(4)),PAIR(N( 1),N(1)))
 10795	  etst(floorx(N( 6),N(4)),PAIR(N( 1),N(2)))
 10796	  etst(floorx(N( 7),N(4)),PAIR(N( 1),N(3)))
 10797	  etst(floorx(N( 8),N(4)),PAIR(N( 2),N(0)))
 10798	  etst(floorx(N( 9),N(4)),PAIR(N( 2),N(1)))
 10799	
 10800	  etst(floorx(N(-9),N(5)),PAIR(N(-2),N(1)))
 10801	  etst(floorx(N(-8),N(5)),PAIR(N(-2),N(2)))
 10802	  etst(floorx(N(-7),N(5)),PAIR(N(-2),N(3)))
 10803	  etst(floorx(N(-6),N(5)),PAIR(N(-2),N(4)))
 10804	  etst(floorx(N(-5),N(5)),PAIR(N(-1),N(0)))
 10805	  etst(floorx(N(-4),N(5)),PAIR(N(-1),N(1)))
 10806	  etst(floorx(N(-3),N(5)),PAIR(N(-1),N(2)))
 10807	  etst(floorx(N(-2),N(5)),PAIR(N(-1),N(3)))
 10808	  etst(floorx(N(-1),N(5)),PAIR(N(-1),N(4)))
 10809	  etst(floorx(N( 0),N(5)),PAIR(N( 0),N(0)))
 10810	  etst(floorx(N( 1),N(5)),PAIR(N( 0),N(1)))
 10811	  etst(floorx(N( 2),N(5)),PAIR(N( 0),N(2)))
 10812	  etst(floorx(N( 3),N(5)),PAIR(N( 0),N(3)))
 10813	  etst(floorx(N( 4),N(5)),PAIR(N( 0),N(4)))
 10814	  etst(floorx(N( 5),N(5)),PAIR(N( 1),N(0)))
 10815	  etst(floorx(N( 6),N(5)),PAIR(N( 1),N(1)))
 10816	  etst(floorx(N( 7),N(5)),PAIR(N( 1),N(2)))
 10817	  etst(floorx(N( 8),N(5)),PAIR(N( 1),N(3)))
 10818	  etst(floorx(N( 9),N(5)),PAIR(N( 1),N(4)))
 10819	
 10820	  etst(floorx(N(-9),N(6)),PAIR(N(-2),N(3)))
 10821	  etst(floorx(N(-8),N(6)),PAIR(N(-2),N(4)))
 10822	  etst(floorx(N(-7),N(6)),PAIR(N(-2),N(5)))
 10823	  etst(floorx(N(-6),N(6)),PAIR(N(-1),N(0)))
 10824	  etst(floorx(N(-5),N(6)),PAIR(N(-1),N(1)))
 10825	  etst(floorx(N(-4),N(6)),PAIR(N(-1),N(2)))
 10826	  etst(floorx(N(-3),N(6)),PAIR(N(-1),N(3)))
 10827	  etst(floorx(N(-2),N(6)),PAIR(N(-1),N(4)))
 10828	  etst(floorx(N(-1),N(6)),PAIR(N(-1),N(5)))
 10829	  etst(floorx(N( 0),N(6)),PAIR(N( 0),N(0)))
 10830	  etst(floorx(N( 1),N(6)),PAIR(N( 0),N(1)))
 10831	  etst(floorx(N( 2),N(6)),PAIR(N( 0),N(2)))
 10832	  etst(floorx(N( 3),N(6)),PAIR(N( 0),N(3)))
 10833	  etst(floorx(N( 4),N(6)),PAIR(N( 0),N(4)))
 10834	  etst(floorx(N( 5),N(6)),PAIR(N( 0),N(5)))
 10835	  etst(floorx(N( 6),N(6)),PAIR(N( 1),N(0)))
 10836	  etst(floorx(N( 7),N(6)),PAIR(N( 1),N(1)))
 10837	  etst(floorx(N( 8),N(6)),PAIR(N( 1),N(2)))
 10838	  etst(floorx(N( 9),N(6)),PAIR(N( 1),N(3)))
 10839	
 10840	  etst(floorx(N(-9),N(7)),PAIR(N(-2),N(5)))
 10841	  etst(floorx(N(-8),N(7)),PAIR(N(-2),N(6)))
 10842	  etst(floorx(N(-7),N(7)),PAIR(N(-1),N(0)))
 10843	  etst(floorx(N(-6),N(7)),PAIR(N(-1),N(1)))
 10844	  etst(floorx(N(-5),N(7)),PAIR(N(-1),N(2)))
 10845	  etst(floorx(N(-4),N(7)),PAIR(N(-1),N(3)))
 10846	  etst(floorx(N(-3),N(7)),PAIR(N(-1),N(4)))
 10847	  etst(floorx(N(-2),N(7)),PAIR(N(-1),N(5)))
 10848	  etst(floorx(N(-1),N(7)),PAIR(N(-1),N(6)))
 10849	  etst(floorx(N( 0),N(7)),PAIR(N( 0),N(0)))
 10850	  etst(floorx(N( 1),N(7)),PAIR(N( 0),N(1)))
 10851	  etst(floorx(N( 2),N(7)),PAIR(N( 0),N(2)))
 10852	  etst(floorx(N( 3),N(7)),PAIR(N( 0),N(3)))
 10853	  etst(floorx(N( 4),N(7)),PAIR(N( 0),N(4)))
 10854	  etst(floorx(N( 5),N(7)),PAIR(N( 0),N(5)))
 10855	  etst(floorx(N( 6),N(7)),PAIR(N( 0),N(6)))
 10856	  etst(floorx(N( 7),N(7)),PAIR(N( 1),N(0)))
 10857	  etst(floorx(N( 8),N(7)),PAIR(N( 1),N(1)))
 10858	  etst(floorx(N( 9),N(7)),PAIR(N( 1),N(2)))
 10859	
 10860	  etst(floorx(N(-9),N(8)),PAIR(N(-2),N(7)))
 10861	  etst(floorx(N(-8),N(8)),PAIR(N(-1),N(0)))
 10862	  etst(floorx(N(-7),N(8)),PAIR(N(-1),N(1)))
 10863	  etst(floorx(N(-6),N(8)),PAIR(N(-1),N(2)))
 10864	  etst(floorx(N(-5),N(8)),PAIR(N(-1),N(3)))
 10865	  etst(floorx(N(-4),N(8)),PAIR(N(-1),N(4)))
 10866	  etst(floorx(N(-3),N(8)),PAIR(N(-1),N(5)))
 10867	  etst(floorx(N(-2),N(8)),PAIR(N(-1),N(6)))
 10868	  etst(floorx(N(-1),N(8)),PAIR(N(-1),N(7)))
 10869	  etst(floorx(N( 0),N(8)),PAIR(N( 0),N(0)))
 10870	  etst(floorx(N( 1),N(8)),PAIR(N( 0),N(1)))
 10871	  etst(floorx(N( 2),N(8)),PAIR(N( 0),N(2)))
 10872	  etst(floorx(N( 3),N(8)),PAIR(N( 0),N(3)))
 10873	  etst(floorx(N( 4),N(8)),PAIR(N( 0),N(4)))
 10874	  etst(floorx(N( 5),N(8)),PAIR(N( 0),N(5)))
 10875	  etst(floorx(N( 6),N(8)),PAIR(N( 0),N(6)))
 10876	  etst(floorx(N( 7),N(8)),PAIR(N( 0),N(7)))
 10877	  etst(floorx(N( 8),N(8)),PAIR(N( 1),N(0)))
 10878	  etst(floorx(N( 9),N(8)),PAIR(N( 1),N(1)))
 10879	
 10880	  etst(floorx(N(-9),N(9)),PAIR(N(-1),N(0)))
 10881	  etst(floorx(N(-8),N(9)),PAIR(N(-1),N(1)))
 10882	  etst(floorx(N(-7),N(9)),PAIR(N(-1),N(2)))
 10883	  etst(floorx(N(-6),N(9)),PAIR(N(-1),N(3)))
 10884	  etst(floorx(N(-5),N(9)),PAIR(N(-1),N(4)))
 10885	  etst(floorx(N(-4),N(9)),PAIR(N(-1),N(5)))
 10886	  etst(floorx(N(-3),N(9)),PAIR(N(-1),N(6)))
 10887	  etst(floorx(N(-2),N(9)),PAIR(N(-1),N(7)))
 10888	  etst(floorx(N(-1),N(9)),PAIR(N(-1),N(8)))
 10889	  etst(floorx(N( 0),N(9)),PAIR(N( 0),N(0)))
 10890	  etst(floorx(N( 1),N(9)),PAIR(N( 0),N(1)))
 10891	  etst(floorx(N( 2),N(9)),PAIR(N( 0),N(2)))
 10892	  etst(floorx(N( 3),N(9)),PAIR(N( 0),N(3)))
 10893	  etst(floorx(N( 4),N(9)),PAIR(N( 0),N(4)))
 10894	  etst(floorx(N( 5),N(9)),PAIR(N( 0),N(5)))
 10895	  etst(floorx(N( 6),N(9)),PAIR(N( 0),N(6)))
 10896	  etst(floorx(N( 7),N(9)),PAIR(N( 0),N(7)))
 10897	  etst(floorx(N( 8),N(9)),PAIR(N( 0),N(8)))
 10898	  etst(floorx(N( 9),N(9)),PAIR(N( 1),N(0)))
 10899	
 10900	  xtst(ceilingx(TT,TT))
 10901	  xtst(ceilingx(TT,FF))
 10902	  xtst(ceilingx(TT,I0))
 10903	  xtst(ceilingx(TT,P0))
 10904	  xtst(ceilingx(TT,M0))
 10905	  xtst(ceilingx(TT,B0))
 10906	  xtst(ceilingx(FF,TT))
 10907	  xtst(ceilingx(FF,FF))
 10908	  xtst(ceilingx(FF,I0))
 10909	  xtst(ceilingx(FF,P0))
 10910	  xtst(ceilingx(FF,M0))
 10911	  xtst(ceilingx(FF,B0))
 10912	  xtst(ceilingx(I0,TT))
 10913	  xtst(ceilingx(I0,FF))
 10914	  xtst(ceilingx(I0,P0))
 10915	  xtst(ceilingx(I0,M0))
 10916	  xtst(ceilingx(I0,B0))
 10917	  xtst(ceilingx(P0,TT))
 10918	  xtst(ceilingx(P0,FF))
 10919	  xtst(ceilingx(P0,I0))
 10920	  xtst(ceilingx(P0,P0))
 10921	  xtst(ceilingx(P0,M0))
 10922	  xtst(ceilingx(P0,B0))
 10923	  xtst(ceilingx(M0,TT))
 10924	  xtst(ceilingx(M0,FF))
 10925	  xtst(ceilingx(M0,I0))
 10926	  xtst(ceilingx(M0,P0))
 10927	  xtst(ceilingx(M0,M0))
 10928	  xtst(ceilingx(M0,B0))
 10929	  xtst(ceilingx(B0,TT))
 10930	  xtst(ceilingx(B0,FF))
 10931	  xtst(ceilingx(B0,I0))
 10932	  xtst(ceilingx(B0,P0))
 10933	  xtst(ceilingx(B0,M0))
 10934	  xtst(ceilingx(B0,B0))
 10935	  xtst(ceilingx(I0,Z))
 10936	  xtst(ceilingx(I0,M))
 10937	
 10938	  etst(ceilingx(N( 9),N(1)),PAIR(N( 9),N( 0)))
 10939	  etst(ceilingx(N( 8),N(1)),PAIR(N( 8),N( 0)))
 10940	  etst(ceilingx(N( 7),N(1)),PAIR(N( 7),N( 0)))
 10941	  etst(ceilingx(N( 6),N(1)),PAIR(N( 6),N( 0)))
 10942	  etst(ceilingx(N( 5),N(1)),PAIR(N( 5),N( 0)))
 10943	  etst(ceilingx(N( 4),N(1)),PAIR(N( 4),N( 0)))
 10944	  etst(ceilingx(N( 3),N(1)),PAIR(N( 3),N( 0)))
 10945	  etst(ceilingx(N( 2),N(1)),PAIR(N( 2),N( 0)))
 10946	  etst(ceilingx(N( 1),N(1)),PAIR(N( 1),N( 0)))
 10947	  etst(ceilingx(N( 0),N(1)),PAIR(N( 0),N( 0)))
 10948	  etst(ceilingx(N(-1),N(1)),PAIR(N(-1),N( 0)))
 10949	  etst(ceilingx(N(-2),N(1)),PAIR(N(-2),N( 0)))
 10950	  etst(ceilingx(N(-3),N(1)),PAIR(N(-3),N( 0)))
 10951	  etst(ceilingx(N(-4),N(1)),PAIR(N(-4),N( 0)))
 10952	  etst(ceilingx(N(-5),N(1)),PAIR(N(-5),N( 0)))
 10953	  etst(ceilingx(N(-6),N(1)),PAIR(N(-6),N( 0)))
 10954	  etst(ceilingx(N(-7),N(1)),PAIR(N(-7),N( 0)))
 10955	  etst(ceilingx(N(-8),N(1)),PAIR(N(-8),N( 0)))
 10956	  etst(ceilingx(N(-9),N(1)),PAIR(N(-9),N( 0)))
 10957	
 10958	  etst(ceilingx(N( 9),N(2)),PAIR(N( 5),N(-1)))
 10959	  etst(ceilingx(N( 8),N(2)),PAIR(N( 4),N( 0)))
 10960	  etst(ceilingx(N( 7),N(2)),PAIR(N( 4),N(-1)))
 10961	  etst(ceilingx(N( 6),N(2)),PAIR(N( 3),N( 0)))
 10962	  etst(ceilingx(N( 5),N(2)),PAIR(N( 3),N(-1)))
 10963	  etst(ceilingx(N( 4),N(2)),PAIR(N( 2),N( 0)))
 10964	  etst(ceilingx(N( 3),N(2)),PAIR(N( 2),N(-1)))
 10965	  etst(ceilingx(N( 2),N(2)),PAIR(N( 1),N( 0)))
 10966	  etst(ceilingx(N( 1),N(2)),PAIR(N( 1),N(-1)))
 10967	  etst(ceilingx(N( 0),N(2)),PAIR(N( 0),N( 0)))
 10968	  etst(ceilingx(N(-1),N(2)),PAIR(N( 0),N(-1)))
 10969	  etst(ceilingx(N(-2),N(2)),PAIR(N(-1),N( 0)))
 10970	  etst(ceilingx(N(-3),N(2)),PAIR(N(-1),N(-1)))
 10971	  etst(ceilingx(N(-4),N(2)),PAIR(N(-2),N( 0)))
 10972	  etst(ceilingx(N(-5),N(2)),PAIR(N(-2),N(-1)))
 10973	  etst(ceilingx(N(-6),N(2)),PAIR(N(-3),N( 0)))
 10974	  etst(ceilingx(N(-7),N(2)),PAIR(N(-3),N(-1)))
 10975	  etst(ceilingx(N(-8),N(2)),PAIR(N(-4),N( 0)))
 10976	  etst(ceilingx(N(-9),N(2)),PAIR(N(-4),N(-1)))
 10977	
 10978	  etst(ceilingx(N( 9),N(3)),PAIR(N( 3),N( 0)))
 10979	  etst(ceilingx(N( 8),N(3)),PAIR(N( 3),N(-1)))
 10980	  etst(ceilingx(N( 7),N(3)),PAIR(N( 3),N(-2)))
 10981	  etst(ceilingx(N( 6),N(3)),PAIR(N( 2),N( 0)))
 10982	  etst(ceilingx(N( 5),N(3)),PAIR(N( 2),N(-1)))
 10983	  etst(ceilingx(N( 4),N(3)),PAIR(N( 2),N(-2)))
 10984	  etst(ceilingx(N( 3),N(3)),PAIR(N( 1),N( 0)))
 10985	  etst(ceilingx(N( 2),N(3)),PAIR(N( 1),N(-1)))
 10986	  etst(ceilingx(N( 1),N(3)),PAIR(N( 1),N(-2)))
 10987	  etst(ceilingx(N( 0),N(3)),PAIR(N( 0),N( 0)))
 10988	  etst(ceilingx(N(-1),N(3)),PAIR(N( 0),N(-1)))
 10989	  etst(ceilingx(N(-2),N(3)),PAIR(N( 0),N(-2)))
 10990	  etst(ceilingx(N(-3),N(3)),PAIR(N(-1),N( 0)))
 10991	  etst(ceilingx(N(-4),N(3)),PAIR(N(-1),N(-1)))
 10992	  etst(ceilingx(N(-5),N(3)),PAIR(N(-1),N(-2)))
 10993	  etst(ceilingx(N(-6),N(3)),PAIR(N(-2),N( 0)))
 10994	  etst(ceilingx(N(-7),N(3)),PAIR(N(-2),N(-1)))
 10995	  etst(ceilingx(N(-8),N(3)),PAIR(N(-2),N(-2)))
 10996	  etst(ceilingx(N(-9),N(3)),PAIR(N(-3),N( 0)))
 10997	
 10998	  etst(ceilingx(N( 9),N(4)),PAIR(N( 3),N(-3)))
 10999	  etst(ceilingx(N( 8),N(4)),PAIR(N( 2),N( 0)))
 11000	  etst(ceilingx(N( 7),N(4)),PAIR(N( 2),N(-1)))
 11001	  etst(ceilingx(N( 6),N(4)),PAIR(N( 2),N(-2)))
 11002	  etst(ceilingx(N( 5),N(4)),PAIR(N( 2),N(-3)))
 11003	  etst(ceilingx(N( 4),N(4)),PAIR(N( 1),N( 0)))
 11004	  etst(ceilingx(N( 3),N(4)),PAIR(N( 1),N(-1)))
 11005	  etst(ceilingx(N( 2),N(4)),PAIR(N( 1),N(-2)))
 11006	  etst(ceilingx(N( 1),N(4)),PAIR(N( 1),N(-3)))
 11007	  etst(ceilingx(N( 0),N(4)),PAIR(N( 0),N( 0)))
 11008	  etst(ceilingx(N(-1),N(4)),PAIR(N( 0),N(-1)))
 11009	  etst(ceilingx(N(-2),N(4)),PAIR(N( 0),N(-2)))
 11010	  etst(ceilingx(N(-3),N(4)),PAIR(N( 0),N(-3)))
 11011	  etst(ceilingx(N(-4),N(4)),PAIR(N(-1),N( 0)))
 11012	  etst(ceilingx(N(-5),N(4)),PAIR(N(-1),N(-1)))
 11013	  etst(ceilingx(N(-6),N(4)),PAIR(N(-1),N(-2)))
 11014	  etst(ceilingx(N(-7),N(4)),PAIR(N(-1),N(-3)))
 11015	  etst(ceilingx(N(-8),N(4)),PAIR(N(-2),N( 0)))
 11016	  etst(ceilingx(N(-9),N(4)),PAIR(N(-2),N(-1)))
 11017	
 11018	  etst(ceilingx(N( 9),N(5)),PAIR(N( 2),N(-1)))
 11019	  etst(ceilingx(N( 8),N(5)),PAIR(N( 2),N(-2)))
 11020	  etst(ceilingx(N( 7),N(5)),PAIR(N( 2),N(-3)))
 11021	  etst(ceilingx(N( 6),N(5)),PAIR(N( 2),N(-4)))
 11022	  etst(ceilingx(N( 5),N(5)),PAIR(N( 1),N( 0)))
 11023	  etst(ceilingx(N( 4),N(5)),PAIR(N( 1),N(-1)))
 11024	  etst(ceilingx(N( 3),N(5)),PAIR(N( 1),N(-2)))
 11025	  etst(ceilingx(N( 2),N(5)),PAIR(N( 1),N(-3)))
 11026	  etst(ceilingx(N( 1),N(5)),PAIR(N( 1),N(-4)))
 11027	  etst(ceilingx(N( 0),N(5)),PAIR(N( 0),N( 0)))
 11028	  etst(ceilingx(N(-1),N(5)),PAIR(N( 0),N(-1)))
 11029	  etst(ceilingx(N(-2),N(5)),PAIR(N( 0),N(-2)))
 11030	  etst(ceilingx(N(-3),N(5)),PAIR(N( 0),N(-3)))
 11031	  etst(ceilingx(N(-4),N(5)),PAIR(N( 0),N(-4)))
 11032	  etst(ceilingx(N(-5),N(5)),PAIR(N(-1),N( 0)))
 11033	  etst(ceilingx(N(-6),N(5)),PAIR(N(-1),N(-1)))
 11034	  etst(ceilingx(N(-7),N(5)),PAIR(N(-1),N(-2)))
 11035	  etst(ceilingx(N(-8),N(5)),PAIR(N(-1),N(-3)))
 11036	  etst(ceilingx(N(-9),N(5)),PAIR(N(-1),N(-4)))
 11037	
 11038	  etst(ceilingx(N( 9),N(6)),PAIR(N( 2),N(-3)))
 11039	  etst(ceilingx(N( 8),N(6)),PAIR(N( 2),N(-4)))
 11040	  etst(ceilingx(N( 7),N(6)),PAIR(N( 2),N(-5)))
 11041	  etst(ceilingx(N( 6),N(6)),PAIR(N( 1),N( 0)))
 11042	  etst(ceilingx(N( 5),N(6)),PAIR(N( 1),N(-1)))
 11043	  etst(ceilingx(N( 4),N(6)),PAIR(N( 1),N(-2)))
 11044	  etst(ceilingx(N( 3),N(6)),PAIR(N( 1),N(-3)))
 11045	  etst(ceilingx(N( 2),N(6)),PAIR(N( 1),N(-4)))
 11046	  etst(ceilingx(N( 1),N(6)),PAIR(N( 1),N(-5)))
 11047	  etst(ceilingx(N( 0),N(6)),PAIR(N( 0),N( 0)))
 11048	  etst(ceilingx(N(-1),N(6)),PAIR(N( 0),N(-1)))
 11049	  etst(ceilingx(N(-2),N(6)),PAIR(N( 0),N(-2)))
 11050	  etst(ceilingx(N(-3),N(6)),PAIR(N( 0),N(-3)))
 11051	  etst(ceilingx(N(-4),N(6)),PAIR(N( 0),N(-4)))
 11052	  etst(ceilingx(N(-5),N(6)),PAIR(N( 0),N(-5)))
 11053	  etst(ceilingx(N(-6),N(6)),PAIR(N(-1),N( 0)))
 11054	  etst(ceilingx(N(-7),N(6)),PAIR(N(-1),N(-1)))
 11055	  etst(ceilingx(N(-8),N(6)),PAIR(N(-1),N(-2)))
 11056	  etst(ceilingx(N(-9),N(6)),PAIR(N(-1),N(-3)))
 11057	
 11058	  etst(ceilingx(N( 9),N(7)),PAIR(N( 2),N(-5)))
 11059	  etst(ceilingx(N( 8),N(7)),PAIR(N( 2),N(-6)))
 11060	  etst(ceilingx(N( 7),N(7)),PAIR(N( 1),N( 0)))
 11061	  etst(ceilingx(N( 6),N(7)),PAIR(N( 1),N(-1)))
 11062	  etst(ceilingx(N( 5),N(7)),PAIR(N( 1),N(-2)))
 11063	  etst(ceilingx(N( 4),N(7)),PAIR(N( 1),N(-3)))
 11064	  etst(ceilingx(N( 3),N(7)),PAIR(N( 1),N(-4)))
 11065	  etst(ceilingx(N( 2),N(7)),PAIR(N( 1),N(-5)))
 11066	  etst(ceilingx(N( 1),N(7)),PAIR(N( 1),N(-6)))
 11067	  etst(ceilingx(N( 0),N(7)),PAIR(N( 0),N( 0)))
 11068	  etst(ceilingx(N(-1),N(7)),PAIR(N( 0),N(-1)))
 11069	  etst(ceilingx(N(-2),N(7)),PAIR(N( 0),N(-2)))
 11070	  etst(ceilingx(N(-3),N(7)),PAIR(N( 0),N(-3)))
 11071	  etst(ceilingx(N(-4),N(7)),PAIR(N( 0),N(-4)))
 11072	  etst(ceilingx(N(-5),N(7)),PAIR(N( 0),N(-5)))
 11073	  etst(ceilingx(N(-6),N(7)),PAIR(N( 0),N(-6)))
 11074	  etst(ceilingx(N(-7),N(7)),PAIR(N(-1),N( 0)))
 11075	  etst(ceilingx(N(-8),N(7)),PAIR(N(-1),N(-1)))
 11076	  etst(ceilingx(N(-9),N(7)),PAIR(N(-1),N(-2)))
 11077	
 11078	  etst(ceilingx(N( 9),N(8)),PAIR(N( 2),N(-7)))
 11079	  etst(ceilingx(N( 8),N(8)),PAIR(N( 1),N( 0)))
 11080	  etst(ceilingx(N( 7),N(8)),PAIR(N( 1),N(-1)))
 11081	  etst(ceilingx(N( 6),N(8)),PAIR(N( 1),N(-2)))
 11082	  etst(ceilingx(N( 5),N(8)),PAIR(N( 1),N(-3)))
 11083	  etst(ceilingx(N( 4),N(8)),PAIR(N( 1),N(-4)))
 11084	  etst(ceilingx(N( 3),N(8)),PAIR(N( 1),N(-5)))
 11085	  etst(ceilingx(N( 2),N(8)),PAIR(N( 1),N(-6)))
 11086	  etst(ceilingx(N( 1),N(8)),PAIR(N( 1),N(-7)))
 11087	  etst(ceilingx(N( 0),N(8)),PAIR(N( 0),N( 0)))
 11088	  etst(ceilingx(N(-1),N(8)),PAIR(N( 0),N(-1)))
 11089	  etst(ceilingx(N(-2),N(8)),PAIR(N( 0),N(-2)))
 11090	  etst(ceilingx(N(-3),N(8)),PAIR(N( 0),N(-3)))
 11091	  etst(ceilingx(N(-4),N(8)),PAIR(N( 0),N(-4)))
 11092	  etst(ceilingx(N(-5),N(8)),PAIR(N( 0),N(-5)))
 11093	  etst(ceilingx(N(-6),N(8)),PAIR(N( 0),N(-6)))
 11094	  etst(ceilingx(N(-7),N(8)),PAIR(N( 0),N(-7)))
 11095	  etst(ceilingx(N(-8),N(8)),PAIR(N(-1),N( 0)))
 11096	  etst(ceilingx(N(-9),N(8)),PAIR(N(-1),N(-1)))
 11097	
 11098	  etst(ceilingx(N( 9),N(9)),PAIR(N( 1),N( 0)))
 11099	  etst(ceilingx(N( 8),N(9)),PAIR(N( 1),N(-1)))
 11100	  etst(ceilingx(N( 7),N(9)),PAIR(N( 1),N(-2)))
 11101	  etst(ceilingx(N( 6),N(9)),PAIR(N( 1),N(-3)))
 11102	  etst(ceilingx(N( 5),N(9)),PAIR(N( 1),N(-4)))
 11103	  etst(ceilingx(N( 4),N(9)),PAIR(N( 1),N(-5)))
 11104	  etst(ceilingx(N( 3),N(9)),PAIR(N( 1),N(-6)))
 11105	  etst(ceilingx(N( 2),N(9)),PAIR(N( 1),N(-7)))
 11106	  etst(ceilingx(N( 1),N(9)),PAIR(N( 1),N(-8)))
 11107	  etst(ceilingx(N( 0),N(9)),PAIR(N( 0),N( 0)))
 11108	  etst(ceilingx(N(-1),N(9)),PAIR(N( 0),N(-1)))
 11109	  etst(ceilingx(N(-2),N(9)),PAIR(N( 0),N(-2)))
 11110	  etst(ceilingx(N(-3),N(9)),PAIR(N( 0),N(-3)))
 11111	  etst(ceilingx(N(-4),N(9)),PAIR(N( 0),N(-4)))
 11112	  etst(ceilingx(N(-5),N(9)),PAIR(N( 0),N(-5)))
 11113	  etst(ceilingx(N(-6),N(9)),PAIR(N( 0),N(-6)))
 11114	  etst(ceilingx(N(-7),N(9)),PAIR(N( 0),N(-7)))
 11115	  etst(ceilingx(N(-8),N(9)),PAIR(N( 0),N(-8)))
 11116	  etst(ceilingx(N(-9),N(9)),PAIR(N(-1),N( 0)))
 11117	
 11118	  xtst(truncatex(TT,TT))
 11119	  xtst(truncatex(TT,FF))
 11120	  xtst(truncatex(TT,I0))
 11121	  xtst(truncatex(TT,P0))
 11122	  xtst(truncatex(TT,M0))
 11123	  xtst(truncatex(TT,B0))
 11124	  xtst(truncatex(FF,TT))
 11125	  xtst(truncatex(FF,FF))
 11126	  xtst(truncatex(FF,I0))
 11127	  xtst(truncatex(FF,P0))
 11128	  xtst(truncatex(FF,M0))
 11129	  xtst(truncatex(FF,B0))
 11130	  xtst(truncatex(I0,TT))
 11131	  xtst(truncatex(I0,FF))
 11132	  xtst(truncatex(I0,P0))
 11133	  xtst(truncatex(I0,M0))
 11134	  xtst(truncatex(I0,B0))
 11135	  xtst(truncatex(P0,TT))
 11136	  xtst(truncatex(P0,FF))
 11137	  xtst(truncatex(P0,I0))
 11138	  xtst(truncatex(P0,P0))
 11139	  xtst(truncatex(P0,M0))
 11140	  xtst(truncatex(P0,B0))
 11141	  xtst(truncatex(M0,TT))
 11142	  xtst(truncatex(M0,FF))
 11143	  xtst(truncatex(M0,I0))
 11144	  xtst(truncatex(M0,P0))
 11145	  xtst(truncatex(M0,M0))
 11146	  xtst(truncatex(M0,B0))
 11147	  xtst(truncatex(B0,TT))
 11148	  xtst(truncatex(B0,FF))
 11149	  xtst(truncatex(B0,I0))
 11150	  xtst(truncatex(B0,P0))
 11151	  xtst(truncatex(B0,M0))
 11152	  xtst(truncatex(B0,B0))
 11153	  xtst(truncatex(I0,Z))
 11154	  xtst(truncatex(I0,M))
 11155	
 11156	  etst(truncatex(N(-9),N(1)),PAIR(N(-9),N( 0)))
 11157	  etst(truncatex(N(-8),N(1)),PAIR(N(-8),N( 0)))
 11158	  etst(truncatex(N(-7),N(1)),PAIR(N(-7),N( 0)))
 11159	  etst(truncatex(N(-6),N(1)),PAIR(N(-6),N( 0)))
 11160	  etst(truncatex(N(-5),N(1)),PAIR(N(-5),N( 0)))
 11161	  etst(truncatex(N(-4),N(1)),PAIR(N(-4),N( 0)))
 11162	  etst(truncatex(N(-3),N(1)),PAIR(N(-3),N( 0)))
 11163	  etst(truncatex(N(-2),N(1)),PAIR(N(-2),N( 0)))
 11164	  etst(truncatex(N(-1),N(1)),PAIR(N(-1),N( 0)))
 11165	  etst(truncatex(N( 0),N(1)),PAIR(N( 0),N( 0)))
 11166	  etst(truncatex(N( 1),N(1)),PAIR(N( 1),N( 0)))
 11167	  etst(truncatex(N( 2),N(1)),PAIR(N( 2),N( 0)))
 11168	  etst(truncatex(N( 3),N(1)),PAIR(N( 3),N( 0)))
 11169	  etst(truncatex(N( 4),N(1)),PAIR(N( 4),N( 0)))
 11170	  etst(truncatex(N( 5),N(1)),PAIR(N( 5),N( 0)))
 11171	  etst(truncatex(N( 6),N(1)),PAIR(N( 6),N( 0)))
 11172	  etst(truncatex(N( 7),N(1)),PAIR(N( 7),N( 0)))
 11173	  etst(truncatex(N( 8),N(1)),PAIR(N( 8),N( 0)))
 11174	  etst(truncatex(N( 9),N(1)),PAIR(N( 9),N( 0)))
 11175	
 11176	  etst(truncatex(N(-9),N(2)),PAIR(N(-4),N(-1)))
 11177	  etst(truncatex(N(-8),N(2)),PAIR(N(-4),N( 0)))
 11178	  etst(truncatex(N(-7),N(2)),PAIR(N(-3),N(-1)))
 11179	  etst(truncatex(N(-6),N(2)),PAIR(N(-3),N( 0)))
 11180	  etst(truncatex(N(-5),N(2)),PAIR(N(-2),N(-1)))
 11181	  etst(truncatex(N(-4),N(2)),PAIR(N(-2),N( 0)))
 11182	  etst(truncatex(N(-3),N(2)),PAIR(N(-1),N(-1)))
 11183	  etst(truncatex(N(-2),N(2)),PAIR(N(-1),N( 0)))
 11184	  etst(truncatex(N(-1),N(2)),PAIR(N( 0),N(-1)))
 11185	  etst(truncatex(N( 0),N(2)),PAIR(N( 0),N( 0)))
 11186	  etst(truncatex(N( 1),N(2)),PAIR(N( 0),N( 1)))
 11187	  etst(truncatex(N( 2),N(2)),PAIR(N( 1),N( 0)))
 11188	  etst(truncatex(N( 3),N(2)),PAIR(N( 1),N( 1)))
 11189	  etst(truncatex(N( 4),N(2)),PAIR(N( 2),N( 0)))
 11190	  etst(truncatex(N( 5),N(2)),PAIR(N( 2),N( 1)))
 11191	  etst(truncatex(N( 6),N(2)),PAIR(N( 3),N( 0)))
 11192	  etst(truncatex(N( 7),N(2)),PAIR(N( 3),N( 1)))
 11193	  etst(truncatex(N( 8),N(2)),PAIR(N( 4),N( 0)))
 11194	  etst(truncatex(N( 9),N(2)),PAIR(N( 4),N( 1)))
 11195	
 11196	  etst(truncatex(N(-9),N(3)),PAIR(N(-3),N( 0)))
 11197	  etst(truncatex(N(-8),N(3)),PAIR(N(-2),N(-2)))
 11198	  etst(truncatex(N(-7),N(3)),PAIR(N(-2),N(-1)))
 11199	  etst(truncatex(N(-6),N(3)),PAIR(N(-2),N( 0)))
 11200	  etst(truncatex(N(-5),N(3)),PAIR(N(-1),N(-2)))
 11201	  etst(truncatex(N(-4),N(3)),PAIR(N(-1),N(-1)))
 11202	  etst(truncatex(N(-3),N(3)),PAIR(N(-1),N( 0)))
 11203	  etst(truncatex(N(-2),N(3)),PAIR(N( 0),N(-2)))
 11204	  etst(truncatex(N(-1),N(3)),PAIR(N( 0),N(-1)))
 11205	  etst(truncatex(N( 0),N(3)),PAIR(N( 0),N( 0)))
 11206	  etst(truncatex(N( 1),N(3)),PAIR(N( 0),N( 1)))
 11207	  etst(truncatex(N( 2),N(3)),PAIR(N( 0),N( 2)))
 11208	  etst(truncatex(N( 3),N(3)),PAIR(N( 1),N( 0)))
 11209	  etst(truncatex(N( 4),N(3)),PAIR(N( 1),N( 1)))
 11210	  etst(truncatex(N( 5),N(3)),PAIR(N( 1),N( 2)))
 11211	  etst(truncatex(N( 6),N(3)),PAIR(N( 2),N( 0)))
 11212	  etst(truncatex(N( 7),N(3)),PAIR(N( 2),N( 1)))
 11213	  etst(truncatex(N( 8),N(3)),PAIR(N( 2),N( 2)))
 11214	  etst(truncatex(N( 9),N(3)),PAIR(N( 3),N( 0)))
 11215	
 11216	  etst(truncatex(N(-9),N(4)),PAIR(N(-2),N(-1)))
 11217	  etst(truncatex(N(-8),N(4)),PAIR(N(-2),N( 0)))
 11218	  etst(truncatex(N(-7),N(4)),PAIR(N(-1),N(-3)))
 11219	  etst(truncatex(N(-6),N(4)),PAIR(N(-1),N(-2)))
 11220	  etst(truncatex(N(-5),N(4)),PAIR(N(-1),N(-1)))
 11221	  etst(truncatex(N(-4),N(4)),PAIR(N(-1),N( 0)))
 11222	  etst(truncatex(N(-3),N(4)),PAIR(N( 0),N(-3)))
 11223	  etst(truncatex(N(-2),N(4)),PAIR(N( 0),N(-2)))
 11224	  etst(truncatex(N(-1),N(4)),PAIR(N( 0),N(-1)))
 11225	  etst(truncatex(N( 0),N(4)),PAIR(N( 0),N( 0)))
 11226	  etst(truncatex(N( 1),N(4)),PAIR(N( 0),N( 1)))
 11227	  etst(truncatex(N( 2),N(4)),PAIR(N( 0),N( 2)))
 11228	  etst(truncatex(N( 3),N(4)),PAIR(N( 0),N( 3)))
 11229	  etst(truncatex(N( 4),N(4)),PAIR(N( 1),N( 0)))
 11230	  etst(truncatex(N( 5),N(4)),PAIR(N( 1),N( 1)))
 11231	  etst(truncatex(N( 6),N(4)),PAIR(N( 1),N( 2)))
 11232	  etst(truncatex(N( 7),N(4)),PAIR(N( 1),N( 3)))
 11233	  etst(truncatex(N( 8),N(4)),PAIR(N( 2),N( 0)))
 11234	  etst(truncatex(N( 9),N(4)),PAIR(N( 2),N( 1)))
 11235	
 11236	  etst(truncatex(N(-9),N(5)),PAIR(N(-1),N(-4)))
 11237	  etst(truncatex(N(-8),N(5)),PAIR(N(-1),N(-3)))
 11238	  etst(truncatex(N(-7),N(5)),PAIR(N(-1),N(-2)))
 11239	  etst(truncatex(N(-6),N(5)),PAIR(N(-1),N(-1)))
 11240	  etst(truncatex(N(-5),N(5)),PAIR(N(-1),N( 0)))
 11241	  etst(truncatex(N(-4),N(5)),PAIR(N( 0),N(-4)))
 11242	  etst(truncatex(N(-3),N(5)),PAIR(N( 0),N(-3)))
 11243	  etst(truncatex(N(-2),N(5)),PAIR(N( 0),N(-2)))
 11244	  etst(truncatex(N(-1),N(5)),PAIR(N( 0),N(-1)))
 11245	  etst(truncatex(N( 0),N(5)),PAIR(N( 0),N( 0)))
 11246	  etst(truncatex(N( 1),N(5)),PAIR(N( 0),N( 1)))
 11247	  etst(truncatex(N( 2),N(5)),PAIR(N( 0),N( 2)))
 11248	  etst(truncatex(N( 3),N(5)),PAIR(N( 0),N( 3)))
 11249	  etst(truncatex(N( 4),N(5)),PAIR(N( 0),N( 4)))
 11250	  etst(truncatex(N( 5),N(5)),PAIR(N( 1),N( 0)))
 11251	  etst(truncatex(N( 6),N(5)),PAIR(N( 1),N( 1)))
 11252	  etst(truncatex(N( 7),N(5)),PAIR(N( 1),N( 2)))
 11253	  etst(truncatex(N( 8),N(5)),PAIR(N( 1),N( 3)))
 11254	  etst(truncatex(N( 9),N(5)),PAIR(N( 1),N( 4)))
 11255	
 11256	  etst(truncatex(N(-9),N(6)),PAIR(N(-1),N(-3)))
 11257	  etst(truncatex(N(-8),N(6)),PAIR(N(-1),N(-2)))
 11258	  etst(truncatex(N(-7),N(6)),PAIR(N(-1),N(-1)))
 11259	  etst(truncatex(N(-6),N(6)),PAIR(N(-1),N( 0)))
 11260	  etst(truncatex(N(-5),N(6)),PAIR(N( 0),N(-5)))
 11261	  etst(truncatex(N(-4),N(6)),PAIR(N( 0),N(-4)))
 11262	  etst(truncatex(N(-3),N(6)),PAIR(N( 0),N(-3)))
 11263	  etst(truncatex(N(-2),N(6)),PAIR(N( 0),N(-2)))
 11264	  etst(truncatex(N(-1),N(6)),PAIR(N( 0),N(-1)))
 11265	  etst(truncatex(N( 0),N(6)),PAIR(N( 0),N( 0)))
 11266	  etst(truncatex(N( 1),N(6)),PAIR(N( 0),N( 1)))
 11267	  etst(truncatex(N( 2),N(6)),PAIR(N( 0),N( 2)))
 11268	  etst(truncatex(N( 3),N(6)),PAIR(N( 0),N( 3)))
 11269	  etst(truncatex(N( 4),N(6)),PAIR(N( 0),N( 4)))
 11270	  etst(truncatex(N( 5),N(6)),PAIR(N( 0),N( 5)))
 11271	  etst(truncatex(N( 6),N(6)),PAIR(N( 1),N( 0)))
 11272	  etst(truncatex(N( 7),N(6)),PAIR(N( 1),N( 1)))
 11273	  etst(truncatex(N( 8),N(6)),PAIR(N( 1),N( 2)))
 11274	  etst(truncatex(N( 9),N(6)),PAIR(N( 1),N( 3)))
 11275	
 11276	  etst(truncatex(N(-9),N(7)),PAIR(N(-1),N(-2)))
 11277	  etst(truncatex(N(-8),N(7)),PAIR(N(-1),N(-1)))
 11278	  etst(truncatex(N(-7),N(7)),PAIR(N(-1),N( 0)))
 11279	  etst(truncatex(N(-6),N(7)),PAIR(N( 0),N(-6)))
 11280	  etst(truncatex(N(-5),N(7)),PAIR(N( 0),N(-5)))
 11281	  etst(truncatex(N(-4),N(7)),PAIR(N( 0),N(-4)))
 11282	  etst(truncatex(N(-3),N(7)),PAIR(N( 0),N(-3)))
 11283	  etst(truncatex(N(-2),N(7)),PAIR(N( 0),N(-2)))
 11284	  etst(truncatex(N(-1),N(7)),PAIR(N( 0),N(-1)))
 11285	  etst(truncatex(N( 0),N(7)),PAIR(N( 0),N( 0)))
 11286	  etst(truncatex(N( 1),N(7)),PAIR(N( 0),N( 1)))
 11287	  etst(truncatex(N( 2),N(7)),PAIR(N( 0),N( 2)))
 11288	  etst(truncatex(N( 3),N(7)),PAIR(N( 0),N( 3)))
 11289	  etst(truncatex(N( 4),N(7)),PAIR(N( 0),N( 4)))
 11290	  etst(truncatex(N( 5),N(7)),PAIR(N( 0),N( 5)))
 11291	  etst(truncatex(N( 6),N(7)),PAIR(N( 0),N( 6)))
 11292	  etst(truncatex(N( 7),N(7)),PAIR(N( 1),N( 0)))
 11293	  etst(truncatex(N( 8),N(7)),PAIR(N( 1),N( 1)))
 11294	  etst(truncatex(N( 9),N(7)),PAIR(N( 1),N( 2)))
 11295	
 11296	  etst(truncatex(N(-9),N(8)),PAIR(N(-1),N(-1)))
 11297	  etst(truncatex(N(-8),N(8)),PAIR(N(-1),N( 0)))
 11298	  etst(truncatex(N(-7),N(8)),PAIR(N( 0),N(-7)))
 11299	  etst(truncatex(N(-6),N(8)),PAIR(N( 0),N(-6)))
 11300	  etst(truncatex(N(-5),N(8)),PAIR(N( 0),N(-5)))
 11301	  etst(truncatex(N(-4),N(8)),PAIR(N( 0),N(-4)))
 11302	  etst(truncatex(N(-3),N(8)),PAIR(N( 0),N(-3)))
 11303	  etst(truncatex(N(-2),N(8)),PAIR(N( 0),N(-2)))
 11304	  etst(truncatex(N(-1),N(8)),PAIR(N( 0),N(-1)))
 11305	  etst(truncatex(N( 0),N(8)),PAIR(N( 0),N( 0)))
 11306	  etst(truncatex(N( 1),N(8)),PAIR(N( 0),N( 1)))
 11307	  etst(truncatex(N( 2),N(8)),PAIR(N( 0),N( 2)))
 11308	  etst(truncatex(N( 3),N(8)),PAIR(N( 0),N( 3)))
 11309	  etst(truncatex(N( 4),N(8)),PAIR(N( 0),N( 4)))
 11310	  etst(truncatex(N( 5),N(8)),PAIR(N( 0),N( 5)))
 11311	  etst(truncatex(N( 6),N(8)),PAIR(N( 0),N( 6)))
 11312	  etst(truncatex(N( 7),N(8)),PAIR(N( 0),N( 7)))
 11313	  etst(truncatex(N( 8),N(8)),PAIR(N( 1),N( 0)))
 11314	  etst(truncatex(N( 9),N(8)),PAIR(N( 1),N( 1)))
 11315	
 11316	  etst(truncatex(N(-9),N(9)),PAIR(N(-1),N( 0)))
 11317	  etst(truncatex(N(-8),N(9)),PAIR(N( 0),N(-8)))
 11318	  etst(truncatex(N(-7),N(9)),PAIR(N( 0),N(-7)))
 11319	  etst(truncatex(N(-6),N(9)),PAIR(N( 0),N(-6)))
 11320	  etst(truncatex(N(-5),N(9)),PAIR(N( 0),N(-5)))
 11321	  etst(truncatex(N(-4),N(9)),PAIR(N( 0),N(-4)))
 11322	  etst(truncatex(N(-3),N(9)),PAIR(N( 0),N(-3)))
 11323	  etst(truncatex(N(-2),N(9)),PAIR(N( 0),N(-2)))
 11324	  etst(truncatex(N(-1),N(9)),PAIR(N( 0),N(-1)))
 11325	  etst(truncatex(N( 0),N(9)),PAIR(N( 0),N( 0)))
 11326	  etst(truncatex(N( 1),N(9)),PAIR(N( 0),N( 1)))
 11327	  etst(truncatex(N( 2),N(9)),PAIR(N( 0),N( 2)))
 11328	  etst(truncatex(N( 3),N(9)),PAIR(N( 0),N( 3)))
 11329	  etst(truncatex(N( 4),N(9)),PAIR(N( 0),N( 4)))
 11330	  etst(truncatex(N( 5),N(9)),PAIR(N( 0),N( 5)))
 11331	  etst(truncatex(N( 6),N(9)),PAIR(N( 0),N( 6)))
 11332	  etst(truncatex(N( 7),N(9)),PAIR(N( 0),N( 7)))
 11333	  etst(truncatex(N( 8),N(9)),PAIR(N( 0),N( 8)))
 11334	  etst(truncatex(N( 9),N(9)),PAIR(N( 1),N( 0)))
 11335	
 11336	  xtst(roundx(TT,TT))
 11337	  xtst(roundx(TT,FF))
 11338	  xtst(roundx(TT,I0))
 11339	  xtst(roundx(TT,P0))
 11340	  xtst(roundx(TT,M0))
 11341	  xtst(roundx(TT,B0))
 11342	  xtst(roundx(FF,TT))
 11343	  xtst(roundx(FF,FF))
 11344	  xtst(roundx(FF,I0))
 11345	  xtst(roundx(FF,P0))
 11346	  xtst(roundx(FF,M0))
 11347	  xtst(roundx(FF,B0))
 11348	  xtst(roundx(I0,TT))
 11349	  xtst(roundx(I0,FF))
 11350	  xtst(roundx(I0,P0))
 11351	  xtst(roundx(I0,M0))
 11352	  xtst(roundx(I0,B0))
 11353	  xtst(roundx(P0,TT))
 11354	  xtst(roundx(P0,FF))
 11355	  xtst(roundx(P0,I0))
 11356	  xtst(roundx(P0,P0))
 11357	  xtst(roundx(P0,M0))
 11358	  xtst(roundx(P0,B0))
 11359	  xtst(roundx(M0,TT))
 11360	  xtst(roundx(M0,FF))
 11361	  xtst(roundx(M0,I0))
 11362	  xtst(roundx(M0,P0))
 11363	  xtst(roundx(M0,M0))
 11364	  xtst(roundx(M0,B0))
 11365	  xtst(roundx(B0,TT))
 11366	  xtst(roundx(B0,FF))
 11367	  xtst(roundx(B0,I0))
 11368	  xtst(roundx(B0,P0))
 11369	  xtst(roundx(B0,M0))
 11370	  xtst(roundx(B0,B0))
 11371	  xtst(roundx(I0,Z))
 11372	  xtst(roundx(I0,M))
 11373	
 11374	  etst(roundx(N(-9),N(1)),PAIR(N(-9),N( 0)))
 11375	  etst(roundx(N(-8),N(1)),PAIR(N(-8),N( 0)))
 11376	  etst(roundx(N(-7),N(1)),PAIR(N(-7),N( 0)))
 11377	  etst(roundx(N(-6),N(1)),PAIR(N(-6),N( 0)))
 11378	  etst(roundx(N(-5),N(1)),PAIR(N(-5),N( 0)))
 11379	  etst(roundx(N(-4),N(1)),PAIR(N(-4),N( 0)))
 11380	  etst(roundx(N(-3),N(1)),PAIR(N(-3),N( 0)))
 11381	  etst(roundx(N(-2),N(1)),PAIR(N(-2),N( 0)))
 11382	  etst(roundx(N(-1),N(1)),PAIR(N(-1),N( 0)))
 11383	  etst(roundx(N( 9),N(1)),PAIR(N( 9),N( 0)))
 11384	  etst(roundx(N( 8),N(1)),PAIR(N( 8),N( 0)))
 11385	  etst(roundx(N( 7),N(1)),PAIR(N( 7),N( 0)))
 11386	  etst(roundx(N( 6),N(1)),PAIR(N( 6),N( 0)))
 11387	  etst(roundx(N( 5),N(1)),PAIR(N( 5),N( 0)))
 11388	  etst(roundx(N( 4),N(1)),PAIR(N( 4),N( 0)))
 11389	  etst(roundx(N( 3),N(1)),PAIR(N( 3),N( 0)))
 11390	  etst(roundx(N( 2),N(1)),PAIR(N( 2),N( 0)))
 11391	  etst(roundx(N( 1),N(1)),PAIR(N( 1),N( 0)))
 11392	  etst(roundx(N( 0),N(1)),PAIR(N( 0),N( 0)))
 11393	
 11394	  etst(roundx(N(-9),N(2)),PAIR(N(-4),N(-1)))
 11395	  etst(roundx(N(-8),N(2)),PAIR(N(-4),N( 0)))
 11396	  etst(roundx(N(-7),N(2)),PAIR(N(-4),N( 1)))
 11397	  etst(roundx(N(-6),N(2)),PAIR(N(-3),N( 0)))
 11398	  etst(roundx(N(-5),N(2)),PAIR(N(-2),N(-1)))
 11399	  etst(roundx(N(-4),N(2)),PAIR(N(-2),N( 0)))
 11400	  etst(roundx(N(-3),N(2)),PAIR(N(-2),N( 1)))
 11401	  etst(roundx(N(-2),N(2)),PAIR(N(-1),N( 0)))
 11402	  etst(roundx(N(-1),N(2)),PAIR(N(-0),N(-1)))
 11403	  etst(roundx(N( 9),N(2)),PAIR(N( 4),N( 1)))
 11404	  etst(roundx(N( 8),N(2)),PAIR(N( 4),N( 0)))
 11405	  etst(roundx(N( 7),N(2)),PAIR(N( 4),N(-1)))
 11406	  etst(roundx(N( 6),N(2)),PAIR(N( 3),N( 0)))
 11407	  etst(roundx(N( 5),N(2)),PAIR(N( 2),N( 1)))
 11408	  etst(roundx(N( 4),N(2)),PAIR(N( 2),N( 0)))
 11409	  etst(roundx(N( 3),N(2)),PAIR(N( 2),N(-1)))
 11410	  etst(roundx(N( 2),N(2)),PAIR(N( 1),N( 0)))
 11411	  etst(roundx(N( 1),N(2)),PAIR(N( 0),N( 1)))
 11412	  etst(roundx(N( 0),N(2)),PAIR(N( 0),N( 0)))
 11413	
 11414	  etst(roundx(N(-9),N(3)),PAIR(N(-3),N( 0)))
 11415	  etst(roundx(N(-8),N(3)),PAIR(N(-3),N( 1)))
 11416	  etst(roundx(N(-7),N(3)),PAIR(N(-2),N(-1)))
 11417	  etst(roundx(N(-6),N(3)),PAIR(N(-2),N( 0)))
 11418	  etst(roundx(N(-5),N(3)),PAIR(N(-2),N( 1)))
 11419	  etst(roundx(N(-4),N(3)),PAIR(N(-1),N(-1)))
 11420	  etst(roundx(N(-3),N(3)),PAIR(N(-1),N( 0)))
 11421	  etst(roundx(N(-2),N(3)),PAIR(N(-1),N( 1)))
 11422	  etst(roundx(N(-1),N(3)),PAIR(N(-0),N(-1)))
 11423	  etst(roundx(N( 9),N(3)),PAIR(N( 3),N( 0)))
 11424	  etst(roundx(N( 8),N(3)),PAIR(N( 3),N(-1)))
 11425	  etst(roundx(N( 7),N(3)),PAIR(N( 2),N( 1)))
 11426	  etst(roundx(N( 6),N(3)),PAIR(N( 2),N( 0)))
 11427	  etst(roundx(N( 5),N(3)),PAIR(N( 2),N(-1)))
 11428	  etst(roundx(N( 4),N(3)),PAIR(N( 1),N( 1)))
 11429	  etst(roundx(N( 3),N(3)),PAIR(N( 1),N( 0)))
 11430	  etst(roundx(N( 2),N(3)),PAIR(N( 1),N(-1)))
 11431	  etst(roundx(N( 1),N(3)),PAIR(N( 0),N( 1)))
 11432	  etst(roundx(N( 0),N(3)),PAIR(N( 0),N( 0)))
 11433	
 11434	  etst(roundx(N(-9),N(4)),PAIR(N(-2),N(-1)))
 11435	  etst(roundx(N(-8),N(4)),PAIR(N(-2),N( 0)))
 11436	  etst(roundx(N(-7),N(4)),PAIR(N(-2),N( 1)))
 11437	  etst(roundx(N(-6),N(4)),PAIR(N(-2),N( 2)))
 11438	  etst(roundx(N(-5),N(4)),PAIR(N(-1),N(-1)))
 11439	  etst(roundx(N(-4),N(4)),PAIR(N(-1),N( 0)))
 11440	  etst(roundx(N(-3),N(4)),PAIR(N(-1),N( 1)))
 11441	  etst(roundx(N(-2),N(4)),PAIR(N(-0),N(-2)))
 11442	  etst(roundx(N(-1),N(4)),PAIR(N(-0),N(-1)))
 11443	  etst(roundx(N( 9),N(4)),PAIR(N( 2),N( 1)))
 11444	  etst(roundx(N( 8),N(4)),PAIR(N( 2),N( 0)))
 11445	  etst(roundx(N( 7),N(4)),PAIR(N( 2),N(-1)))
 11446	  etst(roundx(N( 6),N(4)),PAIR(N( 2),N(-2)))
 11447	  etst(roundx(N( 5),N(4)),PAIR(N( 1),N( 1)))
 11448	  etst(roundx(N( 4),N(4)),PAIR(N( 1),N( 0)))
 11449	  etst(roundx(N( 3),N(4)),PAIR(N( 1),N(-1)))
 11450	  etst(roundx(N( 2),N(4)),PAIR(N( 0),N( 2)))
 11451	  etst(roundx(N( 1),N(4)),PAIR(N( 0),N( 1)))
 11452	  etst(roundx(N( 0),N(4)),PAIR(N( 0),N( 0)))
 11453	
 11454	  etst(roundx(N(-9),N(5)),PAIR(N(-2),N( 1)))
 11455	  etst(roundx(N(-8),N(5)),PAIR(N(-2),N( 2)))
 11456	  etst(roundx(N(-7),N(5)),PAIR(N(-1),N(-2)))
 11457	  etst(roundx(N(-6),N(5)),PAIR(N(-1),N(-1)))
 11458	  etst(roundx(N(-5),N(5)),PAIR(N(-1),N( 0)))
 11459	  etst(roundx(N(-4),N(5)),PAIR(N(-1),N( 1)))
 11460	  etst(roundx(N(-3),N(5)),PAIR(N(-1),N( 2)))
 11461	  etst(roundx(N(-2),N(5)),PAIR(N(-0),N(-2)))
 11462	  etst(roundx(N(-1),N(5)),PAIR(N(-0),N(-1)))
 11463	  etst(roundx(N( 9),N(5)),PAIR(N( 2),N(-1)))
 11464	  etst(roundx(N( 8),N(5)),PAIR(N( 2),N(-2)))
 11465	  etst(roundx(N( 7),N(5)),PAIR(N( 1),N( 2)))
 11466	  etst(roundx(N( 6),N(5)),PAIR(N( 1),N( 1)))
 11467	  etst(roundx(N( 5),N(5)),PAIR(N( 1),N( 0)))
 11468	  etst(roundx(N( 4),N(5)),PAIR(N( 1),N(-1)))
 11469	  etst(roundx(N( 3),N(5)),PAIR(N( 1),N(-2)))
 11470	  etst(roundx(N( 2),N(5)),PAIR(N( 0),N( 2)))
 11471	  etst(roundx(N( 1),N(5)),PAIR(N( 0),N( 1)))
 11472	  etst(roundx(N( 0),N(5)),PAIR(N( 0),N( 0)))
 11473	
 11474	  etst(roundx(N(-9),N(6)),PAIR(N(-2),N( 3)))
 11475	  etst(roundx(N(-8),N(6)),PAIR(N(-1),N(-2)))
 11476	  etst(roundx(N(-7),N(6)),PAIR(N(-1),N(-1)))
 11477	  etst(roundx(N(-6),N(6)),PAIR(N(-1),N( 0)))
 11478	  etst(roundx(N(-5),N(6)),PAIR(N(-1),N( 1)))
 11479	  etst(roundx(N(-4),N(6)),PAIR(N(-1),N( 2)))
 11480	  etst(roundx(N(-3),N(6)),PAIR(N(-0),N(-3)))
 11481	  etst(roundx(N(-2),N(6)),PAIR(N(-0),N(-2)))
 11482	  etst(roundx(N(-1),N(6)),PAIR(N(-0),N(-1)))
 11483	  etst(roundx(N( 9),N(6)),PAIR(N( 2),N(-3)))
 11484	  etst(roundx(N( 8),N(6)),PAIR(N( 1),N( 2)))
 11485	  etst(roundx(N( 7),N(6)),PAIR(N( 1),N( 1)))
 11486	  etst(roundx(N( 6),N(6)),PAIR(N( 1),N( 0)))
 11487	  etst(roundx(N( 5),N(6)),PAIR(N( 1),N(-1)))
 11488	  etst(roundx(N( 4),N(6)),PAIR(N( 1),N(-2)))
 11489	  etst(roundx(N( 3),N(6)),PAIR(N( 0),N( 3)))
 11490	  etst(roundx(N( 2),N(6)),PAIR(N( 0),N( 2)))
 11491	  etst(roundx(N( 1),N(6)),PAIR(N( 0),N( 1)))
 11492	  etst(roundx(N( 0),N(6)),PAIR(N( 0),N( 0)))
 11493	
 11494	  etst(roundx(N(-9),N(7)),PAIR(N(-1),N(-2)))
 11495	  etst(roundx(N(-8),N(7)),PAIR(N(-1),N(-1)))
 11496	  etst(roundx(N(-7),N(7)),PAIR(N(-1),N( 0)))
 11497	  etst(roundx(N(-6),N(7)),PAIR(N(-1),N( 1)))
 11498	  etst(roundx(N(-5),N(7)),PAIR(N(-1),N( 2)))
 11499	  etst(roundx(N(-4),N(7)),PAIR(N(-1),N( 3)))
 11500	  etst(roundx(N(-3),N(7)),PAIR(N(-0),N(3-)))
 11501	  etst(roundx(N(-2),N(7)),PAIR(N(-0),N(-2)))
 11502	  etst(roundx(N(-1),N(7)),PAIR(N(-0),N(-1)))
 11503	  etst(roundx(N( 9),N(7)),PAIR(N( 1),N( 2)))
 11504	  etst(roundx(N( 8),N(7)),PAIR(N( 1),N( 1)))
 11505	  etst(roundx(N( 7),N(7)),PAIR(N( 1),N( 0)))
 11506	  etst(roundx(N( 6),N(7)),PAIR(N( 1),N(-1)))
 11507	  etst(roundx(N( 5),N(7)),PAIR(N( 1),N(-2)))
 11508	  etst(roundx(N( 4),N(7)),PAIR(N( 1),N(-3)))
 11509	  etst(roundx(N( 3),N(7)),PAIR(N( 0),N(3 )))
 11510	  etst(roundx(N( 2),N(7)),PAIR(N( 0),N( 2)))
 11511	  etst(roundx(N( 1),N(7)),PAIR(N( 0),N( 1)))
 11512	  etst(roundx(N( 0),N(7)),PAIR(N( 0),N( 0)))
 11513	
 11514	  etst(roundx(N(-9),N(8)),PAIR(N(-1),N(-1)))
 11515	  etst(roundx(N(-8),N(8)),PAIR(N(-1),N( 0)))
 11516	  etst(roundx(N(-7),N(8)),PAIR(N(-1),N( 1)))
 11517	  etst(roundx(N(-6),N(8)),PAIR(N(-1),N( 2)))
 11518	  etst(roundx(N(-5),N(8)),PAIR(N(-1),N( 3)))
 11519	  etst(roundx(N(-4),N(8)),PAIR(N(-0),N(-4)))
 11520	  etst(roundx(N(-3),N(8)),PAIR(N(-0),N(-3)))
 11521	  etst(roundx(N(-2),N(8)),PAIR(N(-0),N(-2)))
 11522	  etst(roundx(N(-1),N(8)),PAIR(N(-0),N(-1)))
 11523	  etst(roundx(N( 9),N(8)),PAIR(N( 1),N( 1)))
 11524	  etst(roundx(N( 8),N(8)),PAIR(N( 1),N( 0)))
 11525	  etst(roundx(N( 7),N(8)),PAIR(N( 1),N(-1)))
 11526	  etst(roundx(N( 6),N(8)),PAIR(N( 1),N(-2)))
 11527	  etst(roundx(N( 5),N(8)),PAIR(N( 1),N(-3)))
 11528	  etst(roundx(N( 4),N(8)),PAIR(N( 0),N( 4)))
 11529	  etst(roundx(N( 3),N(8)),PAIR(N( 0),N( 3)))
 11530	  etst(roundx(N( 2),N(8)),PAIR(N( 0),N( 2)))
 11531	  etst(roundx(N( 1),N(8)),PAIR(N( 0),N( 1)))
 11532	  etst(roundx(N( 0),N(8)),PAIR(N( 0),N( 0)))
 11533	
 11534	  etst(roundx(N(-9),N(9)),PAIR(N(-1),N( 0)))
 11535	  etst(roundx(N(-8),N(9)),PAIR(N(-1),N( 1)))
 11536	  etst(roundx(N(-7),N(9)),PAIR(N(-1),N( 2)))
 11537	  etst(roundx(N(-6),N(9)),PAIR(N(-1),N( 3)))
 11538	  etst(roundx(N(-5),N(9)),PAIR(N(-1),N( 4)))
 11539	  etst(roundx(N(-4),N(9)),PAIR(N(-0),N(-4)))
 11540	  etst(roundx(N(-3),N(9)),PAIR(N(-0),N(-3)))
 11541	  etst(roundx(N(-2),N(9)),PAIR(N(-0),N(-2)))
 11542	  etst(roundx(N(-1),N(9)),PAIR(N(-0),N(-1)))
 11543	  etst(roundx(N( 9),N(9)),PAIR(N( 1),N( 0)))
 11544	  etst(roundx(N( 8),N(9)),PAIR(N( 1),N(-1)))
 11545	  etst(roundx(N( 7),N(9)),PAIR(N( 1),N(-2)))
 11546	  etst(roundx(N( 6),N(9)),PAIR(N( 1),N(-3)))
 11547	  etst(roundx(N( 5),N(9)),PAIR(N( 1),N(-4)))
 11548	  etst(roundx(N( 4),N(9)),PAIR(N( 0),N( 4)))
 11549	  etst(roundx(N( 3),N(9)),PAIR(N( 0),N( 3)))
 11550	  etst(roundx(N( 2),N(9)),PAIR(N( 0),N( 2)))
 11551	  etst(roundx(N( 1),N(9)),PAIR(N( 0),N( 1)))
 11552	  etst(roundx(N( 0),N(9)),PAIR(N( 0),N( 0)))
 11553	
 11554	  xtst(divx(TT,TT))
 11555	  xtst(divx(TT,FF))
 11556	  xtst(divx(TT,I0))
 11557	  xtst(divx(TT,P0))
 11558	  xtst(divx(TT,M0))
 11559	  xtst(divx(TT,B0))
 11560	  xtst(divx(FF,TT))
 11561	  xtst(divx(FF,FF))
 11562	  xtst(divx(FF,I0))
 11563	  xtst(divx(FF,P0))
 11564	  xtst(divx(FF,M0))
 11565	  xtst(divx(FF,B0))
 11566	  xtst(divx(I0,TT))
 11567	  xtst(divx(I0,FF))
 11568	  xtst(divx(I0,P0))
 11569	  xtst(divx(I0,M0))
 11570	  xtst(divx(I0,B0))
 11571	  xtst(divx(P0,TT))
 11572	  xtst(divx(P0,FF))
 11573	  xtst(divx(P0,I0))
 11574	  xtst(divx(P0,P0))
 11575	  xtst(divx(P0,M0))
 11576	  xtst(divx(P0,B0))
 11577	  xtst(divx(M0,TT))
 11578	  xtst(divx(M0,FF))
 11579	  xtst(divx(M0,I0))
 11580	  xtst(divx(M0,P0))
 11581	  xtst(divx(M0,M0))
 11582	  xtst(divx(M0,B0))
 11583	  xtst(divx(B0,TT))
 11584	  xtst(divx(B0,FF))
 11585	  xtst(divx(B0,I0))
 11586	  xtst(divx(B0,P0))
 11587	  xtst(divx(B0,M0))
 11588	  xtst(divx(B0,B0))
 11589	  xtst(divx(I0,Z))
 11590	  xtst(divx(I0,M))
 11591	
 11592	  etst(divx(N(-9),N(1)),N(-9))
 11593	  etst(divx(N(-8),N(1)),N(-8))
 11594	  etst(divx(N(-7),N(1)),N(-7))
 11595	  etst(divx(N(-6),N(1)),N(-6))
 11596	  etst(divx(N(-5),N(1)),N(-5))
 11597	  etst(divx(N(-4),N(1)),N(-4))
 11598	  etst(divx(N(-3),N(1)),N(-3))
 11599	  etst(divx(N(-2),N(1)),N(-2))
 11600	  etst(divx(N(-1),N(1)),N(-1))
 11601	  etst(divx(N( 0),N(1)),N( 0))
 11602	  etst(divx(N( 1),N(1)),N( 1))
 11603	  etst(divx(N( 2),N(1)),N( 2))
 11604	  etst(divx(N( 3),N(1)),N( 3))
 11605	  etst(divx(N( 4),N(1)),N( 4))
 11606	  etst(divx(N( 5),N(1)),N( 5))
 11607	  etst(divx(N( 6),N(1)),N( 6))
 11608	  etst(divx(N( 7),N(1)),N( 7))
 11609	  etst(divx(N( 8),N(1)),N( 8))
 11610	  etst(divx(N( 9),N(1)),N( 9))
 11611	
 11612	  etst(divx(N(-9),N(2)),N(-5))
 11613	  etst(divx(N(-8),N(2)),N(-4))
 11614	  etst(divx(N(-7),N(2)),N(-4))
 11615	  etst(divx(N(-6),N(2)),N(-3))
 11616	  etst(divx(N(-5),N(2)),N(-3))
 11617	  etst(divx(N(-4),N(2)),N(-2))
 11618	  etst(divx(N(-3),N(2)),N(-2))
 11619	  etst(divx(N(-2),N(2)),N(-1))
 11620	  etst(divx(N(-1),N(2)),N(-1))
 11621	  etst(divx(N( 0),N(2)),N( 0))
 11622	  etst(divx(N( 1),N(2)),N( 0))
 11623	  etst(divx(N( 2),N(2)),N( 1))
 11624	  etst(divx(N( 3),N(2)),N( 1))
 11625	  etst(divx(N( 4),N(2)),N( 2))
 11626	  etst(divx(N( 5),N(2)),N( 2))
 11627	  etst(divx(N( 6),N(2)),N( 3))
 11628	  etst(divx(N( 7),N(2)),N( 3))
 11629	  etst(divx(N( 8),N(2)),N( 4))
 11630	  etst(divx(N( 9),N(2)),N( 4))
 11631	
 11632	  etst(divx(N(-9),N(3)),N(-3))
 11633	  etst(divx(N(-8),N(3)),N(-3))
 11634	  etst(divx(N(-7),N(3)),N(-3))
 11635	  etst(divx(N(-6),N(3)),N(-2))
 11636	  etst(divx(N(-5),N(3)),N(-2))
 11637	  etst(divx(N(-4),N(3)),N(-2))
 11638	  etst(divx(N(-3),N(3)),N(-1))
 11639	  etst(divx(N(-2),N(3)),N(-1))
 11640	  etst(divx(N(-1),N(3)),N(-1))
 11641	  etst(divx(N( 0),N(3)),N( 0))
 11642	  etst(divx(N( 1),N(3)),N( 0))
 11643	  etst(divx(N( 2),N(3)),N( 0))
 11644	  etst(divx(N( 3),N(3)),N( 1))
 11645	  etst(divx(N( 4),N(3)),N( 1))
 11646	  etst(divx(N( 5),N(3)),N( 1))
 11647	  etst(divx(N( 6),N(3)),N( 2))
 11648	  etst(divx(N( 7),N(3)),N( 2))
 11649	  etst(divx(N( 8),N(3)),N( 2))
 11650	  etst(divx(N( 9),N(3)),N( 3))
 11651	
 11652	  etst(divx(N(-9),N(4)),N(-3))
 11653	  etst(divx(N(-8),N(4)),N(-2))
 11654	  etst(divx(N(-7),N(4)),N(-2))
 11655	  etst(divx(N(-6),N(4)),N(-2))
 11656	  etst(divx(N(-5),N(4)),N(-2))
 11657	  etst(divx(N(-4),N(4)),N(-1))
 11658	  etst(divx(N(-3),N(4)),N(-1))
 11659	  etst(divx(N(-2),N(4)),N(-1))
 11660	  etst(divx(N(-1),N(4)),N(-1))
 11661	  etst(divx(N( 0),N(4)),N( 0))
 11662	  etst(divx(N( 1),N(4)),N( 0))
 11663	  etst(divx(N( 2),N(4)),N( 0))
 11664	  etst(divx(N( 3),N(4)),N( 0))
 11665	  etst(divx(N( 4),N(4)),N( 1))
 11666	  etst(divx(N( 5),N(4)),N( 1))
 11667	  etst(divx(N( 6),N(4)),N( 1))
 11668	  etst(divx(N( 7),N(4)),N( 1))
 11669	  etst(divx(N( 8),N(4)),N( 2))
 11670	  etst(divx(N( 9),N(4)),N( 2))
 11671	
 11672	  etst(divx(N(-9),N(5)),N(-2))
 11673	  etst(divx(N(-8),N(5)),N(-2))
 11674	  etst(divx(N(-7),N(5)),N(-2))
 11675	  etst(divx(N(-6),N(5)),N(-2))
 11676	  etst(divx(N(-5),N(5)),N(-1))
 11677	  etst(divx(N(-4),N(5)),N(-1))
 11678	  etst(divx(N(-3),N(5)),N(-1))
 11679	  etst(divx(N(-2),N(5)),N(-1))
 11680	  etst(divx(N(-1),N(5)),N(-1))
 11681	  etst(divx(N( 0),N(5)),N( 0))
 11682	  etst(divx(N( 1),N(5)),N( 0))
 11683	  etst(divx(N( 2),N(5)),N( 0))
 11684	  etst(divx(N( 3),N(5)),N( 0))
 11685	  etst(divx(N( 4),N(5)),N( 0))
 11686	  etst(divx(N( 5),N(5)),N( 1))
 11687	  etst(divx(N( 6),N(5)),N( 1))
 11688	  etst(divx(N( 7),N(5)),N( 1))
 11689	  etst(divx(N( 8),N(5)),N( 1))
 11690	  etst(divx(N( 9),N(5)),N( 1))
 11691	
 11692	  etst(divx(N(-9),N(6)),N(-2))
 11693	  etst(divx(N(-8),N(6)),N(-2))
 11694	  etst(divx(N(-7),N(6)),N(-2))
 11695	  etst(divx(N(-6),N(6)),N(-1))
 11696	  etst(divx(N(-5),N(6)),N(-1))
 11697	  etst(divx(N(-4),N(6)),N(-1))
 11698	  etst(divx(N(-3),N(6)),N(-1))
 11699	  etst(divx(N(-2),N(6)),N(-1))
 11700	  etst(divx(N(-1),N(6)),N(-1))
 11701	  etst(divx(N( 0),N(6)),N( 0))
 11702	  etst(divx(N( 1),N(6)),N( 0))
 11703	  etst(divx(N( 2),N(6)),N( 0))
 11704	  etst(divx(N( 3),N(6)),N( 0))
 11705	  etst(divx(N( 4),N(6)),N( 0))
 11706	  etst(divx(N( 5),N(6)),N( 0))
 11707	  etst(divx(N( 6),N(6)),N( 1))
 11708	  etst(divx(N( 7),N(6)),N( 1))
 11709	  etst(divx(N( 8),N(6)),N( 1))
 11710	  etst(divx(N( 9),N(6)),N( 1))
 11711	
 11712	  etst(divx(N(-9),N(7)),N(-2))
 11713	  etst(divx(N(-8),N(7)),N(-2))
 11714	  etst(divx(N(-7),N(7)),N(-1))
 11715	  etst(divx(N(-6),N(7)),N(-1))
 11716	  etst(divx(N(-5),N(7)),N(-1))
 11717	  etst(divx(N(-4),N(7)),N(-1))
 11718	  etst(divx(N(-3),N(7)),N(-1))
 11719	  etst(divx(N(-2),N(7)),N(-1))
 11720	  etst(divx(N(-1),N(7)),N(-1))
 11721	  etst(divx(N( 0),N(7)),N( 0))
 11722	  etst(divx(N( 1),N(7)),N( 0))
 11723	  etst(divx(N( 2),N(7)),N( 0))
 11724	  etst(divx(N( 3),N(7)),N( 0))
 11725	  etst(divx(N( 4),N(7)),N( 0))
 11726	  etst(divx(N( 5),N(7)),N( 0))
 11727	  etst(divx(N( 6),N(7)),N( 0))
 11728	  etst(divx(N( 7),N(7)),N( 1))
 11729	  etst(divx(N( 8),N(7)),N( 1))
 11730	  etst(divx(N( 9),N(7)),N( 1))
 11731	
 11732	  etst(divx(N(-9),N(8)),N(-2))
 11733	  etst(divx(N(-8),N(8)),N(-1))
 11734	  etst(divx(N(-7),N(8)),N(-1))
 11735	  etst(divx(N(-6),N(8)),N(-1))
 11736	  etst(divx(N(-5),N(8)),N(-1))
 11737	  etst(divx(N(-4),N(8)),N(-1))
 11738	  etst(divx(N(-3),N(8)),N(-1))
 11739	  etst(divx(N(-2),N(8)),N(-1))
 11740	  etst(divx(N(-1),N(8)),N(-1))
 11741	  etst(divx(N( 0),N(8)),N( 0))
 11742	  etst(divx(N( 1),N(8)),N( 0))
 11743	  etst(divx(N( 2),N(8)),N( 0))
 11744	  etst(divx(N( 3),N(8)),N( 0))
 11745	  etst(divx(N( 4),N(8)),N( 0))
 11746	  etst(divx(N( 5),N(8)),N( 0))
 11747	  etst(divx(N( 6),N(8)),N( 0))
 11748	  etst(divx(N( 7),N(8)),N( 0))
 11749	  etst(divx(N( 8),N(8)),N( 1))
 11750	  etst(divx(N( 9),N(8)),N( 1))
 11751	
 11752	  etst(divx(N(-9),N(9)),N(-1))
 11753	  etst(divx(N(-8),N(9)),N(-1))
 11754	  etst(divx(N(-7),N(9)),N(-1))
 11755	  etst(divx(N(-6),N(9)),N(-1))
 11756	  etst(divx(N(-5),N(9)),N(-1))
 11757	  etst(divx(N(-4),N(9)),N(-1))
 11758	  etst(divx(N(-3),N(9)),N(-1))
 11759	  etst(divx(N(-2),N(9)),N(-1))
 11760	  etst(divx(N(-1),N(9)),N(-1))
 11761	  etst(divx(N( 0),N(9)),N( 0))
 11762	  etst(divx(N( 1),N(9)),N( 0))
 11763	  etst(divx(N( 2),N(9)),N( 0))
 11764	  etst(divx(N( 3),N(9)),N( 0))
 11765	  etst(divx(N( 4),N(9)),N( 0))
 11766	  etst(divx(N( 5),N(9)),N( 0))
 11767	  etst(divx(N( 6),N(9)),N( 0))
 11768	  etst(divx(N( 7),N(9)),N( 0))
 11769	  etst(divx(N( 8),N(9)),N( 0))
 11770	  etst(divx(N( 9),N(9)),N( 1))
 11771	
 11772	  xtst(modx(TT,TT))
 11773	  xtst(modx(TT,FF))
 11774	  xtst(modx(TT,I0))
 11775	  xtst(modx(TT,P0))
 11776	  xtst(modx(TT,M0))
 11777	  xtst(modx(TT,B0))
 11778	  xtst(modx(FF,TT))
 11779	  xtst(modx(FF,FF))
 11780	  xtst(modx(FF,I0))
 11781	  xtst(modx(FF,P0))
 11782	  xtst(modx(FF,M0))
 11783	  xtst(modx(FF,B0))
 11784	  xtst(modx(I0,TT))
 11785	  xtst(modx(I0,FF))
 11786	  xtst(modx(I0,P0))
 11787	  xtst(modx(I0,M0))
 11788	  xtst(modx(I0,B0))
 11789	  xtst(modx(P0,TT))
 11790	  xtst(modx(P0,FF))
 11791	  xtst(modx(P0,I0))
 11792	  xtst(modx(P0,P0))
 11793	  xtst(modx(P0,M0))
 11794	  xtst(modx(P0,B0))
 11795	  xtst(modx(M0,TT))
 11796	  xtst(modx(M0,FF))
 11797	  xtst(modx(M0,I0))
 11798	  xtst(modx(M0,P0))
 11799	  xtst(modx(M0,M0))
 11800	  xtst(modx(M0,B0))
 11801	  xtst(modx(B0,TT))
 11802	  xtst(modx(B0,FF))
 11803	  xtst(modx(B0,I0))
 11804	  xtst(modx(B0,P0))
 11805	  xtst(modx(B0,M0))
 11806	  xtst(modx(B0,B0))
 11807	  xtst(modx(I0,Z))
 11808	  xtst(modx(I0,M))
 11809	
 11810	  etst(modx(N(-9),N(1)),N(0))
 11811	  etst(modx(N(-8),N(1)),N(0))
 11812	  etst(modx(N(-7),N(1)),N(0))
 11813	  etst(modx(N(-6),N(1)),N(0))
 11814	  etst(modx(N(-5),N(1)),N(0))
 11815	  etst(modx(N(-4),N(1)),N(0))
 11816	  etst(modx(N(-3),N(1)),N(0))
 11817	  etst(modx(N(-2),N(1)),N(0))
 11818	  etst(modx(N(-1),N(1)),N(0))
 11819	  etst(modx(N( 0),N(1)),N(0))
 11820	  etst(modx(N( 1),N(1)),N(0))
 11821	  etst(modx(N( 2),N(1)),N(0))
 11822	  etst(modx(N( 3),N(1)),N(0))
 11823	  etst(modx(N( 4),N(1)),N(0))
 11824	  etst(modx(N( 5),N(1)),N(0))
 11825	  etst(modx(N( 6),N(1)),N(0))
 11826	  etst(modx(N( 7),N(1)),N(0))
 11827	  etst(modx(N( 8),N(1)),N(0))
 11828	  etst(modx(N( 9),N(1)),N(0))
 11829	
 11830	  etst(modx(N(-9),N(2)),N(1))
 11831	  etst(modx(N(-8),N(2)),N(0))
 11832	  etst(modx(N(-7),N(2)),N(1))
 11833	  etst(modx(N(-6),N(2)),N(0))
 11834	  etst(modx(N(-5),N(2)),N(1))
 11835	  etst(modx(N(-4),N(2)),N(0))
 11836	  etst(modx(N(-3),N(2)),N(1))
 11837	  etst(modx(N(-2),N(2)),N(0))
 11838	  etst(modx(N(-1),N(2)),N(1))
 11839	  etst(modx(N( 0),N(2)),N(0))
 11840	  etst(modx(N( 1),N(2)),N(1))
 11841	  etst(modx(N( 2),N(2)),N(0))
 11842	  etst(modx(N( 3),N(2)),N(1))
 11843	  etst(modx(N( 4),N(2)),N(0))
 11844	  etst(modx(N( 5),N(2)),N(1))
 11845	  etst(modx(N( 6),N(2)),N(0))
 11846	  etst(modx(N( 7),N(2)),N(1))
 11847	  etst(modx(N( 8),N(2)),N(0))
 11848	  etst(modx(N( 9),N(2)),N(1))
 11849	
 11850	  etst(modx(N(-9),N(3)),N(0))
 11851	  etst(modx(N(-8),N(3)),N(1))
 11852	  etst(modx(N(-7),N(3)),N(2))
 11853	  etst(modx(N(-6),N(3)),N(0))
 11854	  etst(modx(N(-5),N(3)),N(1))
 11855	  etst(modx(N(-4),N(3)),N(2))
 11856	  etst(modx(N(-3),N(3)),N(0))
 11857	  etst(modx(N(-2),N(3)),N(1))
 11858	  etst(modx(N(-1),N(3)),N(2))
 11859	  etst(modx(N( 0),N(3)),N(0))
 11860	  etst(modx(N( 1),N(3)),N(1))
 11861	  etst(modx(N( 2),N(3)),N(2))
 11862	  etst(modx(N( 3),N(3)),N(0))
 11863	  etst(modx(N( 4),N(3)),N(1))
 11864	  etst(modx(N( 5),N(3)),N(2))
 11865	  etst(modx(N( 6),N(3)),N(0))
 11866	  etst(modx(N( 7),N(3)),N(1))
 11867	  etst(modx(N( 8),N(3)),N(2))
 11868	  etst(modx(N( 9),N(3)),N(0))
 11869	
 11870	  etst(modx(N(-9),N(4)),N(3))
 11871	  etst(modx(N(-8),N(4)),N(0))
 11872	  etst(modx(N(-7),N(4)),N(1))
 11873	  etst(modx(N(-6),N(4)),N(2))
 11874	  etst(modx(N(-5),N(4)),N(3))
 11875	  etst(modx(N(-4),N(4)),N(0))
 11876	  etst(modx(N(-3),N(4)),N(1))
 11877	  etst(modx(N(-2),N(4)),N(2))
 11878	  etst(modx(N(-1),N(4)),N(3))
 11879	  etst(modx(N( 0),N(4)),N(0))
 11880	  etst(modx(N( 1),N(4)),N(1))
 11881	  etst(modx(N( 2),N(4)),N(2))
 11882	  etst(modx(N( 3),N(4)),N(3))
 11883	  etst(modx(N( 4),N(4)),N(0))
 11884	  etst(modx(N( 5),N(4)),N(1))
 11885	  etst(modx(N( 6),N(4)),N(2))
 11886	  etst(modx(N( 7),N(4)),N(3))
 11887	  etst(modx(N( 8),N(4)),N(0))
 11888	  etst(modx(N( 9),N(4)),N(1))
 11889	
 11890	  etst(modx(N(-9),N(5)),N(1))
 11891	  etst(modx(N(-8),N(5)),N(2))
 11892	  etst(modx(N(-7),N(5)),N(3))
 11893	  etst(modx(N(-6),N(5)),N(4))
 11894	  etst(modx(N(-5),N(5)),N(0))
 11895	  etst(modx(N(-4),N(5)),N(1))
 11896	  etst(modx(N(-3),N(5)),N(2))
 11897	  etst(modx(N(-2),N(5)),N(3))
 11898	  etst(modx(N(-1),N(5)),N(4))
 11899	  etst(modx(N( 0),N(5)),N(0))
 11900	  etst(modx(N( 1),N(5)),N(1))
 11901	  etst(modx(N( 2),N(5)),N(2))
 11902	  etst(modx(N( 3),N(5)),N(3))
 11903	  etst(modx(N( 4),N(5)),N(4))
 11904	  etst(modx(N( 5),N(5)),N(0))
 11905	  etst(modx(N( 6),N(5)),N(1))
 11906	  etst(modx(N( 7),N(5)),N(2))
 11907	  etst(modx(N( 8),N(5)),N(3))
 11908	  etst(modx(N( 9),N(5)),N(4))
 11909	
 11910	  etst(modx(N(-9),N(6)),N(3))
 11911	  etst(modx(N(-8),N(6)),N(4))
 11912	  etst(modx(N(-7),N(6)),N(5))
 11913	  etst(modx(N(-6),N(6)),N(0))
 11914	  etst(modx(N(-5),N(6)),N(1))
 11915	  etst(modx(N(-4),N(6)),N(2))
 11916	  etst(modx(N(-3),N(6)),N(3))
 11917	  etst(modx(N(-2),N(6)),N(4))
 11918	  etst(modx(N(-1),N(6)),N(5))
 11919	  etst(modx(N( 0),N(6)),N(0))
 11920	  etst(modx(N( 1),N(6)),N(1))
 11921	  etst(modx(N( 2),N(6)),N(2))
 11922	  etst(modx(N( 3),N(6)),N(3))
 11923	  etst(modx(N( 4),N(6)),N(4))
 11924	  etst(modx(N( 5),N(6)),N(5))
 11925	  etst(modx(N( 6),N(6)),N(0))
 11926	  etst(modx(N( 7),N(6)),N(1))
 11927	  etst(modx(N( 8),N(6)),N(2))
 11928	  etst(modx(N( 9),N(6)),N(3))
 11929	
 11930	  etst(modx(N(-9),N(7)),N(5))
 11931	  etst(modx(N(-8),N(7)),N(6))
 11932	  etst(modx(N(-7),N(7)),N(0))
 11933	  etst(modx(N(-6),N(7)),N(1))
 11934	  etst(modx(N(-5),N(7)),N(2))
 11935	  etst(modx(N(-4),N(7)),N(3))
 11936	  etst(modx(N(-3),N(7)),N(4))
 11937	  etst(modx(N(-2),N(7)),N(5))
 11938	  etst(modx(N(-1),N(7)),N(6))
 11939	  etst(modx(N( 0),N(7)),N(0))
 11940	  etst(modx(N( 1),N(7)),N(1))
 11941	  etst(modx(N( 2),N(7)),N(2))
 11942	  etst(modx(N( 3),N(7)),N(3))
 11943	  etst(modx(N( 4),N(7)),N(4))
 11944	  etst(modx(N( 5),N(7)),N(5))
 11945	  etst(modx(N( 6),N(7)),N(6))
 11946	  etst(modx(N( 7),N(7)),N(0))
 11947	  etst(modx(N( 8),N(7)),N(1))
 11948	  etst(modx(N( 9),N(7)),N(2))
 11949	
 11950	  etst(modx(N(-9),N(8)),N(7))
 11951	  etst(modx(N(-8),N(8)),N(0))
 11952	  etst(modx(N(-7),N(8)),N(1))
 11953	  etst(modx(N(-6),N(8)),N(2))
 11954	  etst(modx(N(-5),N(8)),N(3))
 11955	  etst(modx(N(-4),N(8)),N(4))
 11956	  etst(modx(N(-3),N(8)),N(5))
 11957	  etst(modx(N(-2),N(8)),N(6))
 11958	  etst(modx(N(-1),N(8)),N(7))
 11959	  etst(modx(N( 0),N(8)),N(0))
 11960	  etst(modx(N( 1),N(8)),N(1))
 11961	  etst(modx(N( 2),N(8)),N(2))
 11962	  etst(modx(N( 3),N(8)),N(3))
 11963	  etst(modx(N( 4),N(8)),N(4))
 11964	  etst(modx(N( 5),N(8)),N(5))
 11965	  etst(modx(N( 6),N(8)),N(6))
 11966	  etst(modx(N( 7),N(8)),N(7))
 11967	  etst(modx(N( 8),N(8)),N(0))
 11968	  etst(modx(N( 9),N(8)),N(1))
 11969	
 11970	  etst(modx(N(-9),N(9)),N(0))
 11971	  etst(modx(N(-8),N(9)),N(1))
 11972	  etst(modx(N(-7),N(9)),N(2))
 11973	  etst(modx(N(-6),N(9)),N(3))
 11974	  etst(modx(N(-5),N(9)),N(4))
 11975	  etst(modx(N(-4),N(9)),N(5))
 11976	  etst(modx(N(-3),N(9)),N(6))
 11977	  etst(modx(N(-2),N(9)),N(7))
 11978	  etst(modx(N(-1),N(9)),N(8))
 11979	  etst(modx(N( 0),N(9)),N(0))
 11980	  etst(modx(N( 1),N(9)),N(1))
 11981	  etst(modx(N( 2),N(9)),N(2))
 11982	  etst(modx(N( 3),N(9)),N(3))
 11983	  etst(modx(N( 4),N(9)),N(4))
 11984	  etst(modx(N( 5),N(9)),N(5))
 11985	  etst(modx(N( 6),N(9)),N(6))
 11986	  etst(modx(N( 7),N(9)),N(7))
 11987	  etst(modx(N( 8),N(9)),N(8))
 11988	  etst(modx(N( 9),N(9)),N(0))
 11989	
 11990	  ttst(boolp(TT))
 11991	  ttst(boolp(FF))
 11992	  ftst(boolp(I0))
 11993	  ftst(boolp(P0))
 11994	  ftst(boolp(M0))
 11995	  ftst(boolp(B0))
 11996	
 11997	  ftst(intp(TT))
 11998	  ftst(intp(FF))
 11999	  ttst(intp(I0))
 12000	  ftst(intp(P0))
 12001	  ftst(intp(M0))
 12002	  ftst(intp(B0))
 12003	
 12004	  ftst(pairp(TT))
 12005	  ftst(pairp(FF))
 12006	  ftst(pairp(I0))
 12007	  ttst(pairp(P0))
 12008	  ftst(pairp(M0))
 12009	  ftst(pairp(B0))
 12010	
 12011	  ttst(eq(X,raise0(TT)))
 12012	  ftst(eq(X,raise0(FF)))
 12013	  ftst(eq(X,raise0(I0)))
 12014	  ftst(eq(X,raise0(P0)))
 12015	  ftst(eq(X,raise0(M0)))
 12016	  ftst(eq(X,raise0(B0)))
 12017	  ftst(eq(TT,raise0(FF)))
 12018	  ftst(eq(FF,raise0(FF)))
 12019	  ftst(eq(I0,raise0(FF)))
 12020	  ftst(eq(P0,raise0(FF)))
 12021	  ftst(eq(M0,raise0(FF)))
 12022	  ftst(eq(B0,raise0(FF)))
 12023	  etst(raise0(pair(TT,TT)),raise0(pair(TT,TT)))
 12024	  utst(raise0(pair(TT,TT)),raise0(pair(TT,FF)))
 12025	  utst(raise0(pair(TT,FF)),raise0(pair(TT,TT)))
 12026	  etst(raise0(pair(TT,FF)),raise0(pair(TT,FF)))
 12027	
 12028	  ftst(mapp(TT))
 12029	  ftst(mapp(FF))
 12030	  ftst(mapp(I0))
 12031	  ftst(mapp(P0))
 12032	  ttst(mapp(M0))
 12033	  ftst(mapp(B0))
 12034	
 12035	  ftst(objp(TT))
 12036	  ftst(objp(FF))
 12037	  ftst(objp(I0))
 12038	  ftst(objp(P0))
 12039	  ftst(objp(M0))
 12040	  ttst(objp(B0))
 12041	
 12042	  xtst(object(TT))
 12043	  xtst(object(FF))
 12044	  xtst(object(I0))
 12045	  xtst(object(M0))
 12046	  xtst(object(B0))
 12047	  xtst(object(pair(TT,P0)))
 12048	  xtst(object(pair(FF,P0)))
 12049	  xtst(object(pair(I0,P0)))
 12050	  xtst(object(pair(M0,P0)))
 12051	  xtst(object(pair(B0,P0)))
 12052	  xtst(object(pair(pair(I[1],TT),P0)))
 12053	  xtst(object(pair(pair(I[1],FF),P0)))
 12054	  xtst(object(pair(pair(I[1],P0),P0)))
 12055	  xtst(object(pair(pair(I[1],M0),P0)))
 12056	  xtst(object(pair(pair(I[1],B0),P0)))
 12057	  xtst(object(pair(pair(TT,I[1]),P0)))
 12058	  xtst(object(pair(pair(FF,I[1]),P0)))
 12059	  xtst(object(pair(pair(P0,I[1]),P0)))
 12060	  xtst(object(pair(pair(M0,I[1]),P0)))
 12061	  xtst(object(pair(pair(B0,I[1]),P0)))
 12062	  xtst(object(pair(pair(M,I[1]),P0)))
 12063	  xtst(object(pair(pair(I[1],M),P0)))
 12064	  xtst(object(pair(pair(Z,I[0]),P0)))
 12065	  xtst(object(pair(pair(Z,I[1]),P0)))
 12066	  xtst(object(pair(pair(Z,I[2]),P0)))
 12067	  xtst(object(pair(pair(Z,I[3]),P0)))
 12068	  xtst(object(pair(pair(Z,I[4]),P0)))
 12069	  ttst(objp(object(pair(pair(I[0],I[5]),P0))))
 12070	  ftst(pairp(object(pair(pair(I[0],I[5]),P0))))
 12071	  ttst(objp(object(pair(pair(I[0],I[6]),P0))))
 12072	  ttst(objp(object(pair(pair(I[0],I[7]),P0))))
 12073	  ttst(objp(object(pair(pair(I[1],I[0]),P0))))
 12074	  ttst(objp(object(pair(pair(I[1],I[4]),P0))))
 12075	  ttst(objp(object(pair(pair(I[1],I[7]),TT))))
 12076	  ttst(objp(object(pair(pair(I[1],I[7]),FF))))
 12077	  ttst(objp(object(pair(pair(I[1],I[7]),I0))))
 12078	  ttst(objp(object(pair(pair(I[1],I[7]),P0))))
 12079	  ttst(objp(object(pair(pair(I[1],I[7]),M0))))
 12080	  ttst(objp(object(pair(pair(I[1],I[7]),B0))))
 12081	
 12082	  xtst(destruct(TT))
 12083	  xtst(destruct(FF))
 12084	  xtst(destruct(P0))
 12085	  xtst(destruct(M0))
 12086	  xtst(destruct(Z))
 12087	  xtst(destruct(M))
 12088	  xtst(destruct(I0011))
 12089	  xtst(destruct(J1010_0101))
 12090	  etst(destruct(object(pair(pair(I[0],I[5]),P0))),pair(pair(I[0],I[5]),P0))
 12091	  etst(destruct(object(pair(pair(I[0],I[6]),P0))),pair(pair(I[0],I[6]),P0))
 12092	  etst(destruct(object(pair(pair(I[0],I[7]),P0))),pair(pair(I[0],I[7]),P0))
 12093	  etst(destruct(object(pair(pair(I[1],I[0]),P0))),pair(pair(I[1],I[0]),P0))
 12094	  etst(destruct(object(pair(pair(I[1],I[4]),P0))),pair(pair(I[1],I[4]),P0))
 12095	  etst(destruct(object(pair(pair(I[1],I[7]),TT))),pair(pair(I[1],I[7]),TT))
 12096	  etst(destruct(object(pair(pair(I[1],I[7]),FF))),pair(pair(I[1],I[7]),FF))
 12097	  etst(destruct(object(pair(pair(I[1],I[7]),I0))),pair(pair(I[1],I[7]),I0))
 12098	  etst(destruct(object(pair(pair(I[1],I[7]),P0))),pair(pair(I[1],I[7]),P0))
 12099	  etst(destruct(object(pair(pair(I[1],I[7]),M0))),pair(pair(I[1],I[7]),M0))
 12100	  etst(destruct(object(pair(pair(I[1],I[7]),B0))),pair(pair(I[1],I[7]),B0))
 12101	
 12102	  etst(str2vec(""),N(1))
 12103	  etst(str2vec("a"),N(353))
 12104	  etst(str2vec("ab"),N(90721))
 12105	  etst(str2vec("abc"),N(23290465))
 12106	  etst(str2vec("abcd"),N(5979202145))
 12107	  etst(str2vec("abcdefg"),N(101162102301090401))
 12108	  etst(str2vec("abcdefgh"),N(25969838361917219425))
 12109	  etst(str2vec("abcdefghi"),N(6666797704897355801185))
 12110	
 12111	  etst(V(),N(1))
 12112	  etst(V(a),N(353))
 12113	  etst(V(ab),N(90721))
 12114	  etst(V(abc),N(23290465))
 12115	  etst(V(abcd),N(5979202145))
 12116	  etst(V(abcdefg),N(101162102301090401))
 12117	  etst(V(abcdefgh),N(25969838361917219425))
 12118	  etst(V(abcdefghi),N(6666797704897355801185))
 12119	
 12120	  etst(W(1,),V())
 12121	  etst(W(1,a),V(a))
 12122	  etst(W(1,ab),V(ab))
 12123	  etst(W(1,abc),V(abc))
 12124	  etst(W(1,abcd),V(abcd))
 12125	  etst(W(1,abcde),V(abcde))
 12126	  etst(W(1,abcdef),V(abcdef))
 12127	  etst(W(1,abcdefg),V(abcdefg))
 12128	  etst(W(1,abcdefgh),V(abcdefgh))
 12129	  etst(W(1,abcdefghi),V(abcdefghi))
 12130	
 12131	  utst(W(2,),V())
 12132	  utst(W(2,a),V(a))
 12133	  utst(W(2,ab),V(ab))
 12134	  utst(W(2,abc),V(abc))
 12135	  utst(W(2,abcd),V(abcd))
 12136	  utst(W(2,abcde),V(abcde))
 12137	  utst(W(2,abcdef),V(abcdef))
 12138	  utst(W(2,abcdefg),V(abcdefg))
 12139	  utst(W(2,abcdefgh),V(abcdefgh))
 12140	  utst(W(2,abcdefghi),V(abcdefghi))
 12141	
 12142	  xtst(vector(TT))
 12143	  xtst(vector(FF))
 12144	  xtst(vector(P0))
 12145	  xtst(vector(M0))
 12146	  xtst(vector(B0))
 12147	  etst(vector(N(0)),N(1))
 12148	  etst(vector(N(1)),N(1))
 12149	  etst(vector(N(2)),N(1))
 12150	  etst(vector(N(255)),N(1))
 12151	  etst(vector(N(256)),N(256))
 12152	  etst(vector(N(257)),N(257))
 12153	  etst(vector(N(511)),N(511))
 12154	  etst(vector(N(512)),N(256))
 12155	  etst(vector(N(513)),N(257))
 12156	  etst(vector(N(767)),N(511))
 12157	  etst(vector(intcons(123,intcons(456,I[2]))),intcons(123,intcons(456,I[1])))
 12158	  etst(vector(intcons(123,intcons(456,N(767)))),
 12159	       intcons(123,intcons(456,N(511))))
 12160	  etst(vector(W(2,)),V())
 12161	  etst(vector(W(2,a)),V(a))
 12162	  etst(vector(W(2,ab)),V(ab))
 12163	  etst(vector(W(2,abc)),V(abc))
 12164	  etst(vector(W(2,abcd)),V(abcd))
 12165	  etst(vector(W(2,abcde)),V(abcde))
 12166	  etst(vector(W(2,abcdef)),V(abcdef))
 12167	  etst(vector(W(2,abcdefg)),V(abcdefg))
 12168	  etst(vector(W(2,abcdefgh)),V(abcdefgh))
 12169	  etst(vector(W(2,abcdefghi)),V(abcdefghi))
 12170	  etst(vector(W(255,)),V())
 12171	  etst(vector(W(255,a)),V(a))
 12172	  etst(vector(W(255,ab)),V(ab))
 12173	  etst(vector(W(255,abc)),V(abc))
 12174	  etst(vector(W(255,abcd)),V(abcd))
 12175	  etst(vector(W(255,abcde)),V(abcde))
 12176	  etst(vector(W(255,abcdef)),V(abcdef))
 12177	  etst(vector(W(255,abcdefg)),V(abcdefg))
 12178	  etst(vector(W(255,abcdefgh)),V(abcdefgh))
 12179	  etst(vector(W(255,abcdefghi)),V(abcdefghi))
 12180	
 12181	  xtst(vectorNorm(TT))
 12182	  xtst(vectorNorm(FF))
 12183	  xtst(vectorNorm(P0))
 12184	  xtst(vectorNorm(M0))
 12185	  xtst(vectorNorm(B0))
 12186	  etst(vectorNorm(N(0)),TT)
 12187	  etst(vectorNorm(N(1)),N(1))
 12188	  etst(vectorNorm(N(2)),TT)
 12189	  etst(vectorNorm(N(255)),TT)
 12190	  etst(vectorNorm(N(256)),N(256))
 12191	  etst(vectorNorm(N(257)),N(257))
 12192	  etst(vectorNorm(N(511)),N(511))
 12193	  etst(vectorNorm(N(512)),TT)
 12194	  etst(vectorNorm(N(513)),TT)
 12195	  etst(vectorNorm(N(767)),TT)
 12196	  ttst(vectorNorm(intcons(123,intcons(456,I[2]))))
 12197	  ttst(vectorNorm(intcons(123,intcons(456,N(767)))))
 12198	  ttst(vectorNorm(W(2,)))
 12199	  ttst(vectorNorm(W(2,a)))
 12200	  ttst(vectorNorm(W(2,ab)))
 12201	  ttst(vectorNorm(W(2,abc)))
 12202	  ttst(vectorNorm(W(2,abcd)))
 12203	  ttst(vectorNorm(W(2,abcde)))
 12204	  ttst(vectorNorm(W(2,abcdef)))
 12205	  ttst(vectorNorm(W(2,abcdefg)))
 12206	  ttst(vectorNorm(W(2,abcdefgh)))
 12207	  ttst(vectorNorm(W(2,abcdefghi)))
 12208	  ttst(vectorNorm(W(255,)))
 12209	  ttst(vectorNorm(W(255,a)))
 12210	  ttst(vectorNorm(W(255,ab)))
 12211	  ttst(vectorNorm(W(255,abc)))
 12212	  ttst(vectorNorm(W(255,abcd)))
 12213	  ttst(vectorNorm(W(255,abcde)))
 12214	  ttst(vectorNorm(W(255,abcdef)))
 12215	  ttst(vectorNorm(W(255,abcdefg)))
 12216	  ttst(vectorNorm(W(255,abcdefgh)))
 12217	  ttst(vectorNorm(W(255,abcdefghi)))
 12218	
 12219	  xtst(vectorEmpty(TT))
 12220	  xtst(vectorEmpty(FF))
 12221	  xtst(vectorEmpty(P0))
 12222	  xtst(vectorEmpty(M0))
 12223	  xtst(vectorEmpty(B0))
 12224	  ttst(vectorEmpty(N(0)))
 12225	  ttst(vectorEmpty(N(1)))
 12226	  ttst(vectorEmpty(N(2)))
 12227	  ttst(vectorEmpty(N(255)))
 12228	  ftst(vectorEmpty(N(256)))
 12229	  ftst(vectorEmpty(N(257)))
 12230	  ftst(vectorEmpty(N(511)))
 12231	  ftst(vectorEmpty(N(512)))
 12232	  ftst(vectorEmpty(N(513)))
 12233	  ftst(vectorEmpty(N(767)))
 12234	  ftst(vectorEmpty(intcons(123,intcons(456,I[2]))))
 12235	  ftst(vectorEmpty(intcons(123,intcons(456,N(767)))))
 12236	  ttst(vectorEmpty(intcons(123,intcons(456,M))))
 12237	
 12238	  xtst(vectorLength(TT))
 12239	  xtst(vectorLength(FF))
 12240	  xtst(vectorLength(P0))
 12241	  xtst(vectorLength(M0))
 12242	  xtst(vectorLength(B0))
 12243	  etst(N(0),vectorLength(N(0)))
 12244	  etst(N(0),vectorLength(N(1)))
 12245	  etst(N(0),vectorLength(N(2)))
 12246	  etst(N(0),vectorLength(N(255)))
 12247	  etst(N(1),vectorLength(N(256)))
 12248	  etst(N(1),vectorLength(N(257)))
 12249	  etst(N(1),vectorLength(N(511)))
 12250	  etst(N(1),vectorLength(N(512)))
 12251	  etst(N(1),vectorLength(N(513)))
 12252	  etst(N(1),vectorLength(N(767)))
 12253	  etst(N(1),vectorLength(N(65535)))
 12254	  etst(N(2),vectorLength(N(65536)))
 12255	  etst(N(3),vectorLength(N(4294967295)))
 12256	  etst(N(4),vectorLength(N(4294967296)))
 12257	  etst(N(7),vectorLength(N(18446744073709551615)))
 12258	  etst(N(8),vectorLength(N(18446744073709551616)))
 12259	  etst(N(15),vectorLength(N(340282366920938463463374607431768211455)))
 12260	  etst(N(16),vectorLength(N(340282366920938463463374607431768211456)))
 12261	  etst(N(0),vectorLength(intcons(123,intcons(456,M))))
 12262	
 12263	  xtst(vectorIndex(TT,TT))
 12264	  xtst(vectorIndex(TT,FF))
 12265	  xtst(vectorIndex(TT,I0))
 12266	  xtst(vectorIndex(TT,P0))
 12267	  xtst(vectorIndex(TT,M0))
 12268	  xtst(vectorIndex(TT,B0))
 12269	  xtst(vectorIndex(FF,TT))
 12270	  xtst(vectorIndex(FF,FF))
 12271	  xtst(vectorIndex(FF,I0))
 12272	  xtst(vectorIndex(FF,P0))
 12273	  xtst(vectorIndex(FF,M0))
 12274	  xtst(vectorIndex(FF,B0))
 12275	  xtst(vectorIndex(I0,TT))
 12276	  xtst(vectorIndex(I0,FF))
 12277	  xtst(vectorIndex(I0,P0))
 12278	  xtst(vectorIndex(I0,M0))
 12279	  xtst(vectorIndex(I0,B0))
 12280	  xtst(vectorIndex(P0,TT))
 12281	  xtst(vectorIndex(P0,FF))
 12282	  xtst(vectorIndex(P0,I0))
 12283	  xtst(vectorIndex(P0,P0))
 12284	  xtst(vectorIndex(P0,M0))
 12285	  xtst(vectorIndex(P0,B0))
 12286	  xtst(vectorIndex(M0,TT))
 12287	  xtst(vectorIndex(M0,FF))
 12288	  xtst(vectorIndex(M0,I0))
 12289	  xtst(vectorIndex(M0,P0))
 12290	  xtst(vectorIndex(M0,M0))
 12291	  xtst(vectorIndex(M0,B0))
 12292	  xtst(vectorIndex(B0,TT))
 12293	  xtst(vectorIndex(B0,FF))
 12294	  xtst(vectorIndex(B0,I0))
 12295	  xtst(vectorIndex(B0,P0))
 12296	  xtst(vectorIndex(B0,M0))
 12297	  xtst(vectorIndex(B0,B0))
 12298	  xtst(vectorIndex(N(-1),N(-1)))
 12299	  xtst(vectorIndex(N(-1),N( 0)))
 12300	  xtst(vectorIndex(N(-1),N( 1)))
 12301	  xtst(vectorIndex(N(0),N(-1)))
 12302	  xtst(vectorIndex(N(0),N( 0)))
 12303	  xtst(vectorIndex(N(0),N( 1)))
 12304	  xtst(vectorIndex(N(255),N(-1)))
 12305	  xtst(vectorIndex(N(255),N( 0)))
 12306	  xtst(vectorIndex(N(255),N( 1)))
 12307	  xtst(vectorIndex(N(256),N(-1)))
 12308	  etst(vectorIndex(N(256),N( 0)),N(0))
 12309	  xtst(vectorIndex(N(256),N( 1)))
 12310	  xtst(vectorIndex(N(257),N(-1)))
 12311	  etst(vectorIndex(N(257),N( 0)),N(1))
 12312	  xtst(vectorIndex(N(257),N( 1)))
 12313	  xtst(vectorIndex(N(66049),N(-1)))
 12314	  etst(vectorIndex(N(66049),N( 0)),N(1))
 12315	  etst(vectorIndex(N(66049),N( 1)),N(2))
 12316	  xtst(vectorIndex(N(66049),N( 2)))
 12317	  xtst(vectorIndex(N(19025181769461858817),N(-1)))
 12318	  etst(vectorIndex(N(19025181769461858817),N( 0)),N(1))
 12319	  etst(vectorIndex(N(19025181769461858817),N( 1)),N(2))
 12320	  etst(vectorIndex(N(19025181769461858817),N( 2)),N(3))
 12321	  etst(vectorIndex(N(19025181769461858817),N( 3)),N(4))
 12322	  etst(vectorIndex(N(19025181769461858817),N( 4)),N(5))
 12323	  etst(vectorIndex(N(19025181769461858817),N( 5)),N(6))
 12324	  etst(vectorIndex(N(19025181769461858817),N( 6)),N(7))
 12325	  etst(vectorIndex(N(19025181769461858817),N( 7)),N(8))
 12326	  xtst(vectorIndex(N(19025181769461858817),N( 8)))
 12327	  xtst(vectorIndex(N(4888965617228783485441),N(-1)))
 12328	  etst(vectorIndex(N(4888965617228783485441),N( 0)),N(1))
 12329	  etst(vectorIndex(N(4888965617228783485441),N( 1)),N(2))
 12330	  etst(vectorIndex(N(4888965617228783485441),N( 2)),N(3))
 12331	  etst(vectorIndex(N(4888965617228783485441),N( 3)),N(4))
 12332	  etst(vectorIndex(N(4888965617228783485441),N( 4)),N(5))
 12333	  etst(vectorIndex(N(4888965617228783485441),N( 5)),N(6))
 12334	  etst(vectorIndex(N(4888965617228783485441),N( 6)),N(7))
 12335	  etst(vectorIndex(N(4888965617228783485441),N( 7)),N(8))
 12336	  etst(vectorIndex(N(4888965617228783485441),N( 8)),N(9))
 12337	  xtst(vectorIndex(N(4888965617228783485441),N( 9)))
 12338	  xtst(vectorIndex(V(abc),N(-1)))
 12339	  etst(vectorIndex(V(abc),N(0)),N(97))
 12340	  etst(vectorIndex(V(abc),N(1)),N(98))
 12341	  etst(vectorIndex(V(abc),N(2)),N(99))
 12342	  xtst(vectorIndex(V(abc),N(3)))
 12343	  xtst(vectorIndex(W(2,abc),N(-1)))
 12344	  etst(vectorIndex(W(2,abc),N(0)),N(97))
 12345	  etst(vectorIndex(W(2,abc),N(1)),N(98))
 12346	  etst(vectorIndex(W(2,abc),N(2)),N(99))
 12347	  xtst(vectorIndex(W(2,abc),N(3)))
 12348	  xtst(vectorIndex(W(255,abc),N(-1)))
 12349	  etst(vectorIndex(W(255,abc),N(0)),N(97))
 12350	  etst(vectorIndex(W(255,abc),N(1)),N(98))
 12351	  etst(vectorIndex(W(255,abc),N(2)),N(99))
 12352	  xtst(vectorIndex(W(255,abc),N(3)))
 12353	  xtst(vectorIndex(V(abcdefghi),N(-1)))
 12354	  xtst(vectorIndex(V(abcdefgh) ,N(-1)))
 12355	  xtst(vectorIndex(V(abcdefg)  ,N(-1)))
 12356	  xtst(vectorIndex(V(abcdef)   ,N(-1)))
 12357	  xtst(vectorIndex(V(abcde)    ,N(-1)))
 12358	  xtst(vectorIndex(V(abcd)     ,N(-1)))
 12359	  xtst(vectorIndex(V(abc)      ,N(-1)))
 12360	  xtst(vectorIndex(V(ab)       ,N(-1)))
 12361	  xtst(vectorIndex(V(a)        ,N(-1)))
 12362	  xtst(vectorIndex(V()         ,N(-1)))
 12363	  etst(vectorIndex(V(abcdefghi),N(0)),N(97))
 12364	  etst(vectorIndex(V(abcdefgh) ,N(0)),N(97))
 12365	  etst(vectorIndex(V(abcdefg)  ,N(0)),N(97))
 12366	  etst(vectorIndex(V(abcdef)   ,N(0)),N(97))
 12367	  etst(vectorIndex(V(abcde)    ,N(0)),N(97))
 12368	  etst(vectorIndex(V(abcd)     ,N(0)),N(97))
 12369	  etst(vectorIndex(V(abc)      ,N(0)),N(97))
 12370	  etst(vectorIndex(V(ab)       ,N(0)),N(97))
 12371	  etst(vectorIndex(V(a)        ,N(0)),N(97))
 12372	  xtst(vectorIndex(V()         ,N(0)))
 12373	  etst(vectorIndex(V(abcdefghi),N(1)),N(98))
 12374	  etst(vectorIndex(V(abcdefgh) ,N(1)),N(98))
 12375	  etst(vectorIndex(V(abcdefg)  ,N(1)),N(98))
 12376	  etst(vectorIndex(V(abcdef)   ,N(1)),N(98))
 12377	  etst(vectorIndex(V(abcde)    ,N(1)),N(98))
 12378	  etst(vectorIndex(V(abcd)     ,N(1)),N(98))
 12379	  etst(vectorIndex(V(abc)      ,N(1)),N(98))
 12380	  etst(vectorIndex(V(ab)       ,N(1)),N(98))
 12381	  xtst(vectorIndex(V(a)        ,N(1)))
 12382	  xtst(vectorIndex(V()         ,N(1)))
 12383	  etst(vectorIndex(V(abcdefghi),N(2)),N(99))
 12384	  etst(vectorIndex(V(abcdefgh) ,N(2)),N(99))
 12385	  etst(vectorIndex(V(abcdefg)  ,N(2)),N(99))
 12386	  etst(vectorIndex(V(abcdef)   ,N(2)),N(99))
 12387	  etst(vectorIndex(V(abcde)    ,N(2)),N(99))
 12388	  etst(vectorIndex(V(abcd)     ,N(2)),N(99))
 12389	  etst(vectorIndex(V(abc)      ,N(2)),N(99))
 12390	  xtst(vectorIndex(V(ab)       ,N(2)))
 12391	  xtst(vectorIndex(V(a)        ,N(2)))
 12392	  xtst(vectorIndex(V()         ,N(2)))
 12393	  etst(vectorIndex(V(abcdefghi),N(3)),N(100))
 12394	  etst(vectorIndex(V(abcdefgh) ,N(3)),N(100))
 12395	  etst(vectorIndex(V(abcdefg)  ,N(3)),N(100))
 12396	  etst(vectorIndex(V(abcdef)   ,N(3)),N(100))
 12397	  etst(vectorIndex(V(abcde)    ,N(3)),N(100))
 12398	  etst(vectorIndex(V(abcd)     ,N(3)),N(100))
 12399	  xtst(vectorIndex(V(abc)      ,N(3)))
 12400	  xtst(vectorIndex(V(ab)       ,N(3)))
 12401	  xtst(vectorIndex(V(a)        ,N(3)))
 12402	  xtst(vectorIndex(V()         ,N(3)))
 12403	  etst(vectorIndex(V(abcdefghi),N(4)),N(101))
 12404	  etst(vectorIndex(V(abcdefgh) ,N(4)),N(101))
 12405	  etst(vectorIndex(V(abcdefg)  ,N(4)),N(101))
 12406	  etst(vectorIndex(V(abcdef)   ,N(4)),N(101))
 12407	  etst(vectorIndex(V(abcde)    ,N(4)),N(101))
 12408	  xtst(vectorIndex(V(abcd)     ,N(4)))
 12409	  xtst(vectorIndex(V(abc)      ,N(4)))
 12410	  xtst(vectorIndex(V(ab)       ,N(4)))
 12411	  xtst(vectorIndex(V(a)        ,N(4)))
 12412	  xtst(vectorIndex(V()         ,N(4)))
 12413	  etst(vectorIndex(V(abcdefghi),N(5)),N(102))
 12414	  etst(vectorIndex(V(abcdefgh) ,N(5)),N(102))
 12415	  etst(vectorIndex(V(abcdefg)  ,N(5)),N(102))
 12416	  etst(vectorIndex(V(abcdef)   ,N(5)),N(102))
 12417	  xtst(vectorIndex(V(abcde)    ,N(5)))
 12418	  xtst(vectorIndex(V(abcd)     ,N(5)))
 12419	  xtst(vectorIndex(V(abc)      ,N(5)))
 12420	  xtst(vectorIndex(V(ab)       ,N(5)))
 12421	  xtst(vectorIndex(V(a)        ,N(5)))
 12422	  xtst(vectorIndex(V()         ,N(5)))
 12423	  etst(vectorIndex(V(abcdefghi),N(6)),N(103))
 12424	  etst(vectorIndex(V(abcdefgh) ,N(6)),N(103))
 12425	  etst(vectorIndex(V(abcdefg)  ,N(6)),N(103))
 12426	  xtst(vectorIndex(V(abcdef)   ,N(6)))
 12427	  xtst(vectorIndex(V(abcde)    ,N(6)))
 12428	  xtst(vectorIndex(V(abcd)     ,N(6)))
 12429	  xtst(vectorIndex(V(abc)      ,N(6)))
 12430	  xtst(vectorIndex(V(ab)       ,N(6)))
 12431	  xtst(vectorIndex(V(a)        ,N(6)))
 12432	  xtst(vectorIndex(V()         ,N(6)))
 12433	  etst(vectorIndex(V(abcdefghi),N(7)),N(104))
 12434	  etst(vectorIndex(V(abcdefgh) ,N(7)),N(104))
 12435	  xtst(vectorIndex(V(abcdefg)  ,N(7)))
 12436	  xtst(vectorIndex(V(abcdef)   ,N(7)))
 12437	  xtst(vectorIndex(V(abcde)    ,N(7)))
 12438	  xtst(vectorIndex(V(abcd)     ,N(7)))
 12439	  xtst(vectorIndex(V(abc)      ,N(7)))
 12440	  xtst(vectorIndex(V(ab)       ,N(7)))
 12441	  xtst(vectorIndex(V(a)        ,N(7)))
 12442	  xtst(vectorIndex(V()         ,N(7)))
 12443	  etst(vectorIndex(V(abcdefghi),N(8)),N(105))
 12444	  xtst(vectorIndex(V(abcdefgh) ,N(8)))
 12445	  xtst(vectorIndex(V(abcdefg)  ,N(8)))
 12446	  xtst(vectorIndex(V(abcdef)   ,N(8)))
 12447	  xtst(vectorIndex(V(abcde)    ,N(8)))
 12448	  xtst(vectorIndex(V(abcd)     ,N(8)))
 12449	  xtst(vectorIndex(V(abc)      ,N(8)))
 12450	  xtst(vectorIndex(V(ab)       ,N(8)))
 12451	  xtst(vectorIndex(V(a)        ,N(8)))
 12452	  xtst(vectorIndex(V()         ,N(8)))
 12453	  xtst(vectorIndex(V(abcdefghi),N(9)))
 12454	  xtst(vectorIndex(V(abcdefgh) ,N(9)))
 12455	  xtst(vectorIndex(V(abcdefg)  ,N(9)))
 12456	  xtst(vectorIndex(V(abcdef)   ,N(9)))
 12457	  xtst(vectorIndex(V(abcde)    ,N(9)))
 12458	  xtst(vectorIndex(V(abcd)     ,N(9)))
 12459	  xtst(vectorIndex(V(abc)      ,N(9)))
 12460	  xtst(vectorIndex(V(ab)       ,N(9)))
 12461	  xtst(vectorIndex(V(a)        ,N(9)))
 12462	  xtst(vectorIndex(V()         ,N(9)))
 12463	  xtst(vectorIndex(W(2,abcdefghi),N(-1)))
 12464	  xtst(vectorIndex(W(2,abcdefgh) ,N(-1)))
 12465	  xtst(vectorIndex(W(2,abcdefg)  ,N(-1)))
 12466	  xtst(vectorIndex(W(2,abcdef)   ,N(-1)))
 12467	  xtst(vectorIndex(W(2,abcde)    ,N(-1)))
 12468	  xtst(vectorIndex(W(2,abcd)     ,N(-1)))
 12469	  xtst(vectorIndex(W(2,abc)      ,N(-1)))
 12470	  xtst(vectorIndex(W(2,ab)       ,N(-1)))
 12471	  xtst(vectorIndex(W(2,a)        ,N(-1)))
 12472	  xtst(vectorIndex(W(2,)         ,N(-1)))
 12473	  etst(vectorIndex(W(2,abcdefghi),N(0)),N(97))
 12474	  etst(vectorIndex(W(2,abcdefgh) ,N(0)),N(97))
 12475	  etst(vectorIndex(W(2,abcdefg)  ,N(0)),N(97))
 12476	  etst(vectorIndex(W(2,abcdef)   ,N(0)),N(97))
 12477	  etst(vectorIndex(W(2,abcde)    ,N(0)),N(97))
 12478	  etst(vectorIndex(W(2,abcd)     ,N(0)),N(97))
 12479	  etst(vectorIndex(W(2,abc)      ,N(0)),N(97))
 12480	  etst(vectorIndex(W(2,ab)       ,N(0)),N(97))
 12481	  etst(vectorIndex(W(2,a)        ,N(0)),N(97))
 12482	  xtst(vectorIndex(W(2,)         ,N(0)))
 12483	  etst(vectorIndex(W(2,abcdefghi),N(1)),N(98))
 12484	  etst(vectorIndex(W(2,abcdefgh) ,N(1)),N(98))
 12485	  etst(vectorIndex(W(2,abcdefg)  ,N(1)),N(98))
 12486	  etst(vectorIndex(W(2,abcdef)   ,N(1)),N(98))
 12487	  etst(vectorIndex(W(2,abcde)    ,N(1)),N(98))
 12488	  etst(vectorIndex(W(2,abcd)     ,N(1)),N(98))
 12489	  etst(vectorIndex(W(2,abc)      ,N(1)),N(98))
 12490	  etst(vectorIndex(W(2,ab)       ,N(1)),N(98))
 12491	  xtst(vectorIndex(W(2,a)        ,N(1)))
 12492	  xtst(vectorIndex(W(2,)         ,N(1)))
 12493	  etst(vectorIndex(W(2,abcdefghi),N(2)),N(99))
 12494	  etst(vectorIndex(W(2,abcdefgh) ,N(2)),N(99))
 12495	  etst(vectorIndex(W(2,abcdefg)  ,N(2)),N(99))
 12496	  etst(vectorIndex(W(2,abcdef)   ,N(2)),N(99))
 12497	  etst(vectorIndex(W(2,abcde)    ,N(2)),N(99))
 12498	  etst(vectorIndex(W(2,abcd)     ,N(2)),N(99))
 12499	  etst(vectorIndex(W(2,abc)      ,N(2)),N(99))
 12500	  xtst(vectorIndex(W(2,ab)       ,N(2)))
 12501	  xtst(vectorIndex(W(2,a)        ,N(2)))
 12502	  xtst(vectorIndex(W(2,)         ,N(2)))
 12503	  etst(vectorIndex(W(2,abcdefghi),N(3)),N(100))
 12504	  etst(vectorIndex(W(2,abcdefgh) ,N(3)),N(100))
 12505	  etst(vectorIndex(W(2,abcdefg)  ,N(3)),N(100))
 12506	  etst(vectorIndex(W(2,abcdef)   ,N(3)),N(100))
 12507	  etst(vectorIndex(W(2,abcde)    ,N(3)),N(100))
 12508	  etst(vectorIndex(W(2,abcd)     ,N(3)),N(100))
 12509	  xtst(vectorIndex(W(2,abc)      ,N(3)))
 12510	  xtst(vectorIndex(W(2,ab)       ,N(3)))
 12511	  xtst(vectorIndex(W(2,a)        ,N(3)))
 12512	  xtst(vectorIndex(W(2,)         ,N(3)))
 12513	  etst(vectorIndex(W(2,abcdefghi),N(4)),N(101))
 12514	  etst(vectorIndex(W(2,abcdefgh) ,N(4)),N(101))
 12515	  etst(vectorIndex(W(2,abcdefg)  ,N(4)),N(101))
 12516	  etst(vectorIndex(W(2,abcdef)   ,N(4)),N(101))
 12517	  etst(vectorIndex(W(2,abcde)    ,N(4)),N(101))
 12518	  xtst(vectorIndex(W(2,abcd)     ,N(4)))
 12519	  xtst(vectorIndex(W(2,abc)      ,N(4)))
 12520	  xtst(vectorIndex(W(2,ab)       ,N(4)))
 12521	  xtst(vectorIndex(W(2,a)        ,N(4)))
 12522	  xtst(vectorIndex(W(2,)         ,N(4)))
 12523	  etst(vectorIndex(W(2,abcdefghi),N(5)),N(102))
 12524	  etst(vectorIndex(W(2,abcdefgh) ,N(5)),N(102))
 12525	  etst(vectorIndex(W(2,abcdefg)  ,N(5)),N(102))
 12526	  etst(vectorIndex(W(2,abcdef)   ,N(5)),N(102))
 12527	  xtst(vectorIndex(W(2,abcde)    ,N(5)))
 12528	  xtst(vectorIndex(W(2,abcd)     ,N(5)))
 12529	  xtst(vectorIndex(W(2,abc)      ,N(5)))
 12530	  xtst(vectorIndex(W(2,ab)       ,N(5)))
 12531	  xtst(vectorIndex(W(2,a)        ,N(5)))
 12532	  xtst(vectorIndex(W(2,)         ,N(5)))
 12533	  etst(vectorIndex(W(2,abcdefghi),N(6)),N(103))
 12534	  etst(vectorIndex(W(2,abcdefgh) ,N(6)),N(103))
 12535	  etst(vectorIndex(W(2,abcdefg)  ,N(6)),N(103))
 12536	  xtst(vectorIndex(W(2,abcdef)   ,N(6)))
 12537	  xtst(vectorIndex(W(2,abcde)    ,N(6)))
 12538	  xtst(vectorIndex(W(2,abcd)     ,N(6)))
 12539	  xtst(vectorIndex(W(2,abc)      ,N(6)))
 12540	  xtst(vectorIndex(W(2,ab)       ,N(6)))
 12541	  xtst(vectorIndex(W(2,a)        ,N(6)))
 12542	  xtst(vectorIndex(W(2,)         ,N(6)))
 12543	  etst(vectorIndex(W(2,abcdefghi),N(7)),N(104))
 12544	  etst(vectorIndex(W(2,abcdefgh) ,N(7)),N(104))
 12545	  xtst(vectorIndex(W(2,abcdefg)  ,N(7)))
 12546	  xtst(vectorIndex(W(2,abcdef)   ,N(7)))
 12547	  xtst(vectorIndex(W(2,abcde)    ,N(7)))
 12548	  xtst(vectorIndex(W(2,abcd)     ,N(7)))
 12549	  xtst(vectorIndex(W(2,abc)      ,N(7)))
 12550	  xtst(vectorIndex(W(2,ab)       ,N(7)))
 12551	  xtst(vectorIndex(W(2,a)        ,N(7)))
 12552	  xtst(vectorIndex(W(2,)         ,N(7)))
 12553	  etst(vectorIndex(W(2,abcdefghi),N(8)),N(105))
 12554	  xtst(vectorIndex(W(2,abcdefgh) ,N(8)))
 12555	  xtst(vectorIndex(W(2,abcdefg)  ,N(8)))
 12556	  xtst(vectorIndex(W(2,abcdef)   ,N(8)))
 12557	  xtst(vectorIndex(W(2,abcde)    ,N(8)))
 12558	  xtst(vectorIndex(W(2,abcd)     ,N(8)))
 12559	  xtst(vectorIndex(W(2,abc)      ,N(8)))
 12560	  xtst(vectorIndex(W(2,ab)       ,N(8)))
 12561	  xtst(vectorIndex(W(2,a)        ,N(8)))
 12562	  xtst(vectorIndex(W(2,)         ,N(8)))
 12563	  xtst(vectorIndex(W(2,abcdefghi),N(9)))
 12564	  xtst(vectorIndex(W(2,abcdefgh) ,N(9)))
 12565	  xtst(vectorIndex(W(2,abcdefg)  ,N(9)))
 12566	  xtst(vectorIndex(W(2,abcdef)   ,N(9)))
 12567	  xtst(vectorIndex(W(2,abcde)    ,N(9)))
 12568	  xtst(vectorIndex(W(2,abcd)     ,N(9)))
 12569	  xtst(vectorIndex(W(2,abc)      ,N(9)))
 12570	  xtst(vectorIndex(W(2,ab)       ,N(9)))
 12571	  xtst(vectorIndex(W(2,a)        ,N(9)))
 12572	  xtst(vectorIndex(W(2,)         ,N(9)))
 12573	  xtst(vectorIndex(W(255,abcdefghi),N(-1)))
 12574	  xtst(vectorIndex(W(255,abcdefgh) ,N(-1)))
 12575	  xtst(vectorIndex(W(255,abcdefg)  ,N(-1)))
 12576	  xtst(vectorIndex(W(255,abcdef)   ,N(-1)))
 12577	  xtst(vectorIndex(W(255,abcde)    ,N(-1)))
 12578	  xtst(vectorIndex(W(255,abcd)     ,N(-1)))
 12579	  xtst(vectorIndex(W(255,abc)      ,N(-1)))
 12580	  xtst(vectorIndex(W(255,ab)       ,N(-1)))
 12581	  xtst(vectorIndex(W(255,a)        ,N(-1)))
 12582	  xtst(vectorIndex(W(255,)         ,N(-1)))
 12583	  etst(vectorIndex(W(255,abcdefghi),N(0)),N(97))
 12584	  etst(vectorIndex(W(255,abcdefgh) ,N(0)),N(97))
 12585	  etst(vectorIndex(W(255,abcdefg)  ,N(0)),N(97))
 12586	  etst(vectorIndex(W(255,abcdef)   ,N(0)),N(97))
 12587	  etst(vectorIndex(W(255,abcde)    ,N(0)),N(97))
 12588	  etst(vectorIndex(W(255,abcd)     ,N(0)),N(97))
 12589	  etst(vectorIndex(W(255,abc)      ,N(0)),N(97))
 12590	  etst(vectorIndex(W(255,ab)       ,N(0)),N(97))
 12591	  etst(vectorIndex(W(255,a)        ,N(0)),N(97))
 12592	  xtst(vectorIndex(W(255,)         ,N(0)))
 12593	  etst(vectorIndex(W(255,abcdefghi),N(1)),N(98))
 12594	  etst(vectorIndex(W(255,abcdefgh) ,N(1)),N(98))
 12595	  etst(vectorIndex(W(255,abcdefg)  ,N(1)),N(98))
 12596	  etst(vectorIndex(W(255,abcdef)   ,N(1)),N(98))
 12597	  etst(vectorIndex(W(255,abcde)    ,N(1)),N(98))
 12598	  etst(vectorIndex(W(255,abcd)     ,N(1)),N(98))
 12599	  etst(vectorIndex(W(255,abc)      ,N(1)),N(98))
 12600	  etst(vectorIndex(W(255,ab)       ,N(1)),N(98))
 12601	  xtst(vectorIndex(W(255,a)        ,N(1)))
 12602	  xtst(vectorIndex(W(255,)         ,N(1)))
 12603	  etst(vectorIndex(W(255,abcdefghi),N(2)),N(99))
 12604	  etst(vectorIndex(W(255,abcdefgh) ,N(2)),N(99))
 12605	  etst(vectorIndex(W(255,abcdefg)  ,N(2)),N(99))
 12606	  etst(vectorIndex(W(255,abcdef)   ,N(2)),N(99))
 12607	  etst(vectorIndex(W(255,abcde)    ,N(2)),N(99))
 12608	  etst(vectorIndex(W(255,abcd)     ,N(2)),N(99))
 12609	  etst(vectorIndex(W(255,abc)      ,N(2)),N(99))
 12610	  xtst(vectorIndex(W(255,ab)       ,N(2)))
 12611	  xtst(vectorIndex(W(255,a)        ,N(2)))
 12612	  xtst(vectorIndex(W(255,)         ,N(2)))
 12613	  etst(vectorIndex(W(255,abcdefghi),N(3)),N(100))
 12614	  etst(vectorIndex(W(255,abcdefgh) ,N(3)),N(100))
 12615	  etst(vectorIndex(W(255,abcdefg)  ,N(3)),N(100))
 12616	  etst(vectorIndex(W(255,abcdef)   ,N(3)),N(100))
 12617	  etst(vectorIndex(W(255,abcde)    ,N(3)),N(100))
 12618	  etst(vectorIndex(W(255,abcd)     ,N(3)),N(100))
 12619	  xtst(vectorIndex(W(255,abc)      ,N(3)))
 12620	  xtst(vectorIndex(W(255,ab)       ,N(3)))
 12621	  xtst(vectorIndex(W(255,a)        ,N(3)))
 12622	  xtst(vectorIndex(W(255,)         ,N(3)))
 12623	  etst(vectorIndex(W(255,abcdefghi),N(4)),N(101))
 12624	  etst(vectorIndex(W(255,abcdefgh) ,N(4)),N(101))
 12625	  etst(vectorIndex(W(255,abcdefg)  ,N(4)),N(101))
 12626	  etst(vectorIndex(W(255,abcdef)   ,N(4)),N(101))
 12627	  etst(vectorIndex(W(255,abcde)    ,N(4)),N(101))
 12628	  xtst(vectorIndex(W(255,abcd)     ,N(4)))
 12629	  xtst(vectorIndex(W(255,abc)      ,N(4)))
 12630	  xtst(vectorIndex(W(255,ab)       ,N(4)))
 12631	  xtst(vectorIndex(W(255,a)        ,N(4)))
 12632	  xtst(vectorIndex(W(255,)         ,N(4)))
 12633	  etst(vectorIndex(W(255,abcdefghi),N(5)),N(102))
 12634	  etst(vectorIndex(W(255,abcdefgh) ,N(5)),N(102))
 12635	  etst(vectorIndex(W(255,abcdefg)  ,N(5)),N(102))
 12636	  etst(vectorIndex(W(255,abcdef)   ,N(5)),N(102))
 12637	  xtst(vectorIndex(W(255,abcde)    ,N(5)))
 12638	  xtst(vectorIndex(W(255,abcd)     ,N(5)))
 12639	  xtst(vectorIndex(W(255,abc)      ,N(5)))
 12640	  xtst(vectorIndex(W(255,ab)       ,N(5)))
 12641	  xtst(vectorIndex(W(255,a)        ,N(5)))
 12642	  xtst(vectorIndex(W(255,)         ,N(5)))
 12643	  etst(vectorIndex(W(255,abcdefghi),N(6)),N(103))
 12644	  etst(vectorIndex(W(255,abcdefgh) ,N(6)),N(103))
 12645	  etst(vectorIndex(W(255,abcdefg)  ,N(6)),N(103))
 12646	  xtst(vectorIndex(W(255,abcdef)   ,N(6)))
 12647	  xtst(vectorIndex(W(255,abcde)    ,N(6)))
 12648	  xtst(vectorIndex(W(255,abcd)     ,N(6)))
 12649	  xtst(vectorIndex(W(255,abc)      ,N(6)))
 12650	  xtst(vectorIndex(W(255,ab)       ,N(6)))
 12651	  xtst(vectorIndex(W(255,a)        ,N(6)))
 12652	  xtst(vectorIndex(W(255,)         ,N(6)))
 12653	  etst(vectorIndex(W(255,abcdefghi),N(7)),N(104))
 12654	  etst(vectorIndex(W(255,abcdefgh) ,N(7)),N(104))
 12655	  xtst(vectorIndex(W(255,abcdefg)  ,N(7)))
 12656	  xtst(vectorIndex(W(255,abcdef)   ,N(7)))
 12657	  xtst(vectorIndex(W(255,abcde)    ,N(7)))
 12658	  xtst(vectorIndex(W(255,abcd)     ,N(7)))
 12659	  xtst(vectorIndex(W(255,abc)      ,N(7)))
 12660	  xtst(vectorIndex(W(255,ab)       ,N(7)))
 12661	  xtst(vectorIndex(W(255,a)        ,N(7)))
 12662	  xtst(vectorIndex(W(255,)         ,N(7)))
 12663	  etst(vectorIndex(W(255,abcdefghi),N(8)),N(105))
 12664	  xtst(vectorIndex(W(255,abcdefgh) ,N(8)))
 12665	  xtst(vectorIndex(W(255,abcdefg)  ,N(8)))
 12666	  xtst(vectorIndex(W(255,abcdef)   ,N(8)))
 12667	  xtst(vectorIndex(W(255,abcde)    ,N(8)))
 12668	  xtst(vectorIndex(W(255,abcd)     ,N(8)))
 12669	  xtst(vectorIndex(W(255,abc)      ,N(8)))
 12670	  xtst(vectorIndex(W(255,ab)       ,N(8)))
 12671	  xtst(vectorIndex(W(255,a)        ,N(8)))
 12672	  xtst(vectorIndex(W(255,)         ,N(8)))
 12673	  xtst(vectorIndex(W(255,abcdefghi),N(9)))
 12674	  xtst(vectorIndex(W(255,abcdefgh) ,N(9)))
 12675	  xtst(vectorIndex(W(255,abcdefg)  ,N(9)))
 12676	  xtst(vectorIndex(W(255,abcdef)   ,N(9)))
 12677	  xtst(vectorIndex(W(255,abcde)    ,N(9)))
 12678	  xtst(vectorIndex(W(255,abcd)     ,N(9)))
 12679	  xtst(vectorIndex(W(255,abc)      ,N(9)))
 12680	  xtst(vectorIndex(W(255,ab)       ,N(9)))
 12681	  xtst(vectorIndex(W(255,a)        ,N(9)))
 12682	  xtst(vectorIndex(W(255,)         ,N(9)))
 12683	
 12684	  xtst(vectorSuffix(TT,TT))
 12685	  xtst(vectorSuffix(TT,FF))
 12686	  xtst(vectorSuffix(TT,I0))
 12687	  xtst(vectorSuffix(TT,P0))
 12688	  xtst(vectorSuffix(TT,M0))
 12689	  xtst(vectorSuffix(TT,B0))
 12690	  xtst(vectorSuffix(FF,TT))
 12691	  xtst(vectorSuffix(FF,FF))
 12692	  xtst(vectorSuffix(FF,I0))
 12693	  xtst(vectorSuffix(FF,P0))
 12694	  xtst(vectorSuffix(FF,M0))
 12695	  xtst(vectorSuffix(FF,B0))
 12696	  xtst(vectorSuffix(I0,TT))
 12697	  xtst(vectorSuffix(I0,FF))
 12698	  xtst(vectorSuffix(I0,P0))
 12699	  xtst(vectorSuffix(I0,M0))
 12700	  xtst(vectorSuffix(I0,B0))
 12701	  xtst(vectorSuffix(P0,TT))
 12702	  xtst(vectorSuffix(P0,FF))
 12703	  xtst(vectorSuffix(P0,I0))
 12704	  xtst(vectorSuffix(P0,P0))
 12705	  xtst(vectorSuffix(P0,M0))
 12706	  xtst(vectorSuffix(P0,B0))
 12707	  xtst(vectorSuffix(M0,TT))
 12708	  xtst(vectorSuffix(M0,FF))
 12709	  xtst(vectorSuffix(M0,I0))
 12710	  xtst(vectorSuffix(M0,P0))
 12711	  xtst(vectorSuffix(M0,M0))
 12712	  xtst(vectorSuffix(M0,B0))
 12713	  xtst(vectorSuffix(B0,TT))
 12714	  xtst(vectorSuffix(B0,FF))
 12715	  xtst(vectorSuffix(B0,I0))
 12716	  xtst(vectorSuffix(B0,P0))
 12717	  xtst(vectorSuffix(B0,M0))
 12718	  xtst(vectorSuffix(B0,B0))
 12719	  etst(vectorSuffix(V(abc),N(-1)),V(abc))
 12720	  etst(vectorSuffix(V(abc),N( 0)),V(abc))
 12721	  etst(vectorSuffix(V(abc),N( 1)),V(bc))
 12722	  etst(vectorSuffix(V(abc),N( 2)),V(c))
 12723	  etst(vectorSuffix(V(abc),N( 3)),E)
 12724	  etst(vectorSuffix(V(abc),N( 4)),E)
 12725	  etst(vectorSuffix(V(abcdefg),N(-1)),V(abcdefg))
 12726	  etst(vectorSuffix(V(abcdefg),N( 0)),V(abcdefg))
 12727	  etst(vectorSuffix(V(abcdefg),N( 1)),V(bcdefg))
 12728	  etst(vectorSuffix(V(abcdefg),N( 2)),V(cdefg))
 12729	  etst(vectorSuffix(V(abcdefg),N( 3)),V(defg))
 12730	  etst(vectorSuffix(V(abcdefg),N( 4)),V(efg))
 12731	  etst(vectorSuffix(V(abcdefg),N( 5)),V(fg))
 12732	  etst(vectorSuffix(V(abcdefg),N( 6)),V(g))
 12733	  etst(vectorSuffix(V(abcdefg),N( 7)),V())
 12734	  etst(vectorSuffix(V(abcdefg),N( 8)),V())
 12735	  etst(vectorSuffix(V(abcdefg),N( 9)),V())
 12736	  etst(vectorSuffix(V(abcdefg),N(10)),V())
 12737	  etst(vectorSuffix(V(abcdefgh),N(-1)),V(abcdefgh))
 12738	  etst(vectorSuffix(V(abcdefgh),N( 0)),V(abcdefgh))
 12739	  etst(vectorSuffix(V(abcdefgh),N( 1)),V(bcdefgh))
 12740	  etst(vectorSuffix(V(abcdefgh),N( 2)),V(cdefgh))
 12741	  etst(vectorSuffix(V(abcdefgh),N( 3)),V(defgh))
 12742	  etst(vectorSuffix(V(abcdefgh),N( 4)),V(efgh))
 12743	  etst(vectorSuffix(V(abcdefgh),N( 5)),V(fgh))
 12744	  etst(vectorSuffix(V(abcdefgh),N( 6)),V(gh))
 12745	  etst(vectorSuffix(V(abcdefgh),N( 7)),V(h))
 12746	  etst(vectorSuffix(V(abcdefgh),N( 8)),V())
 12747	  etst(vectorSuffix(V(abcdefgh),N( 9)),V())
 12748	  etst(vectorSuffix(V(abcdefgh),N(10)),V())
 12749	  etst(vectorSuffix(V(abcdefghi),N(-1)),V(abcdefghi))
 12750	  etst(vectorSuffix(V(abcdefghi),N( 0)),V(abcdefghi))
 12751	  etst(vectorSuffix(V(abcdefghi),N( 1)),V(bcdefghi))
 12752	  etst(vectorSuffix(V(abcdefghi),N( 2)),V(cdefghi))
 12753	  etst(vectorSuffix(V(abcdefghi),N( 3)),V(defghi))
 12754	  etst(vectorSuffix(V(abcdefghi),N( 4)),V(efghi))
 12755	  etst(vectorSuffix(V(abcdefghi),N( 5)),V(fghi))
 12756	  etst(vectorSuffix(V(abcdefghi),N( 6)),V(ghi))
 12757	  etst(vectorSuffix(V(abcdefghi),N( 7)),V(hi))
 12758	  etst(vectorSuffix(V(abcdefghi),N( 8)),V(i))
 12759	  etst(vectorSuffix(V(abcdefghi),N( 9)),V())
 12760	  etst(vectorSuffix(V(abcdefghi),N(10)),V())
 12761	  etst(vectorSuffix(N(256),N(-1)),N(256))
 12762	  etst(vectorSuffix(N(256),N( 0)),N(256))
 12763	  etst(vectorSuffix(N(256),N( 1)),E)
 12764	  etst(vectorSuffix(N(256),N( 2)),E)
 12765	  etst(vectorSuffix(N(512),N(-1)),N(256))
 12766	  etst(vectorSuffix(N(512),N( 0)),N(256))
 12767	  etst(vectorSuffix(N(512),N( 1)),E)
 12768	  etst(vectorSuffix(N(512),N( 2)),E)
 12769	  etst(vectorSuffix(W(2,abcdefg),N(-1)),V(abcdefg))
 12770	  etst(vectorSuffix(W(2,abcdefg),N( 0)),V(abcdefg))
 12771	  etst(vectorSuffix(W(2,abcdefg),N( 1)),V(bcdefg))
 12772	  etst(vectorSuffix(W(2,abcdefg),N( 2)),V(cdefg))
 12773	  etst(vectorSuffix(W(2,abcdefg),N( 3)),V(defg))
 12774	  etst(vectorSuffix(W(2,abcdefg),N( 4)),V(efg))
 12775	  etst(vectorSuffix(W(2,abcdefg),N( 5)),V(fg))
 12776	  etst(vectorSuffix(W(2,abcdefg),N( 6)),V(g))
 12777	  etst(vectorSuffix(W(2,abcdefg),N( 7)),V())
 12778	  etst(vectorSuffix(W(2,abcdefg),N( 8)),V())
 12779	  etst(vectorSuffix(W(2,abcdefg),N( 9)),V())
 12780	  etst(vectorSuffix(W(2,abcdefg),N(10)),V())
 12781	  etst(vectorSuffix(W(2,abcdefgh),N(-1)),V(abcdefgh))
 12782	  etst(vectorSuffix(W(2,abcdefgh),N( 0)),V(abcdefgh))
 12783	  etst(vectorSuffix(W(2,abcdefgh),N( 1)),V(bcdefgh))
 12784	  etst(vectorSuffix(W(2,abcdefgh),N( 2)),V(cdefgh))
 12785	  etst(vectorSuffix(W(2,abcdefgh),N( 3)),V(defgh))
 12786	  etst(vectorSuffix(W(2,abcdefgh),N( 4)),V(efgh))
 12787	  etst(vectorSuffix(W(2,abcdefgh),N( 5)),V(fgh))
 12788	  etst(vectorSuffix(W(2,abcdefgh),N( 6)),V(gh))
 12789	  etst(vectorSuffix(W(2,abcdefgh),N( 7)),V(h))
 12790	  etst(vectorSuffix(W(2,abcdefgh),N( 8)),V())
 12791	  etst(vectorSuffix(W(2,abcdefgh),N( 9)),V())
 12792	  etst(vectorSuffix(W(2,abcdefgh),N(10)),V())
 12793	  etst(vectorSuffix(W(2,abcdefghi),N(-1)),V(abcdefghi))
 12794	  etst(vectorSuffix(W(2,abcdefghi),N( 0)),V(abcdefghi))
 12795	  etst(vectorSuffix(W(2,abcdefghi),N( 1)),V(bcdefghi))
 12796	  etst(vectorSuffix(W(2,abcdefghi),N( 2)),V(cdefghi))
 12797	  etst(vectorSuffix(W(2,abcdefghi),N( 3)),V(defghi))
 12798	  etst(vectorSuffix(W(2,abcdefghi),N( 4)),V(efghi))
 12799	  etst(vectorSuffix(W(2,abcdefghi),N( 5)),V(fghi))
 12800	  etst(vectorSuffix(W(2,abcdefghi),N( 6)),V(ghi))
 12801	  etst(vectorSuffix(W(2,abcdefghi),N( 7)),V(hi))
 12802	  etst(vectorSuffix(W(2,abcdefghi),N( 8)),V(i))
 12803	  etst(vectorSuffix(W(2,abcdefghi),N( 9)),V())
 12804	  etst(vectorSuffix(W(2,abcdefghi),N(10)),V())
 12805	  etst(vectorSuffix(W(255,abcdefg),N(-1)),V(abcdefg))
 12806	  etst(vectorSuffix(W(255,abcdefg),N( 0)),V(abcdefg))
 12807	  etst(vectorSuffix(W(255,abcdefg),N( 1)),V(bcdefg))
 12808	  etst(vectorSuffix(W(255,abcdefg),N( 2)),V(cdefg))
 12809	  etst(vectorSuffix(W(255,abcdefg),N( 3)),V(defg))
 12810	  etst(vectorSuffix(W(255,abcdefg),N( 4)),V(efg))
 12811	  etst(vectorSuffix(W(255,abcdefg),N( 5)),V(fg))
 12812	  etst(vectorSuffix(W(255,abcdefg),N( 6)),V(g))
 12813	  etst(vectorSuffix(W(255,abcdefg),N( 7)),V())
 12814	  etst(vectorSuffix(W(255,abcdefg),N( 8)),V())
 12815	  etst(vectorSuffix(W(255,abcdefg),N( 9)),V())
 12816	  etst(vectorSuffix(W(255,abcdefg),N(10)),V())
 12817	  etst(vectorSuffix(W(255,abcdefgh),N(-1)),V(abcdefgh))
 12818	  etst(vectorSuffix(W(255,abcdefgh),N( 0)),V(abcdefgh))
 12819	  etst(vectorSuffix(W(255,abcdefgh),N( 1)),V(bcdefgh))
 12820	  etst(vectorSuffix(W(255,abcdefgh),N( 2)),V(cdefgh))
 12821	  etst(vectorSuffix(W(255,abcdefgh),N( 3)),V(defgh))
 12822	  etst(vectorSuffix(W(255,abcdefgh),N( 4)),V(efgh))
 12823	  etst(vectorSuffix(W(255,abcdefgh),N( 5)),V(fgh))
 12824	  etst(vectorSuffix(W(255,abcdefgh),N( 6)),V(gh))
 12825	  etst(vectorSuffix(W(255,abcdefgh),N( 7)),V(h))
 12826	  etst(vectorSuffix(W(255,abcdefgh),N( 8)),V())
 12827	  etst(vectorSuffix(W(255,abcdefgh),N( 9)),V())
 12828	  etst(vectorSuffix(W(255,abcdefgh),N(10)),V())
 12829	  etst(vectorSuffix(W(255,abcdefghi),N(-1)),V(abcdefghi))
 12830	  etst(vectorSuffix(W(255,abcdefghi),N( 0)),V(abcdefghi))
 12831	  etst(vectorSuffix(W(255,abcdefghi),N( 1)),V(bcdefghi))
 12832	  etst(vectorSuffix(W(255,abcdefghi),N( 2)),V(cdefghi))
 12833	  etst(vectorSuffix(W(255,abcdefghi),N( 3)),V(defghi))
 12834	  etst(vectorSuffix(W(255,abcdefghi),N( 4)),V(efghi))
 12835	  etst(vectorSuffix(W(255,abcdefghi),N( 5)),V(fghi))
 12836	  etst(vectorSuffix(W(255,abcdefghi),N( 6)),V(ghi))
 12837	  etst(vectorSuffix(W(255,abcdefghi),N( 7)),V(hi))
 12838	  etst(vectorSuffix(W(255,abcdefghi),N( 8)),V(i))
 12839	  etst(vectorSuffix(W(255,abcdefghi),N( 9)),V())
 12840	  etst(vectorSuffix(W(255,abcdefghi),N(10)),V())
 12841	
 12842	  xtst(vectorPrefix(TT,TT))
 12843	  xtst(vectorPrefix(TT,FF))
 12844	  xtst(vectorPrefix(TT,I0))
 12845	  xtst(vectorPrefix(TT,P0))
 12846	  xtst(vectorPrefix(TT,M0))
 12847	  xtst(vectorPrefix(TT,B0))
 12848	  xtst(vectorPrefix(FF,TT))
 12849	  xtst(vectorPrefix(FF,FF))
 12850	  xtst(vectorPrefix(FF,I0))
 12851	  xtst(vectorPrefix(FF,P0))
 12852	  xtst(vectorPrefix(FF,M0))
 12853	  xtst(vectorPrefix(FF,B0))
 12854	  xtst(vectorPrefix(I0,TT))
 12855	  xtst(vectorPrefix(I0,FF))
 12856	  xtst(vectorPrefix(I0,P0))
 12857	  xtst(vectorPrefix(I0,M0))
 12858	  xtst(vectorPrefix(I0,B0))
 12859	  xtst(vectorPrefix(P0,TT))
 12860	  xtst(vectorPrefix(P0,FF))
 12861	  xtst(vectorPrefix(P0,I0))
 12862	  xtst(vectorPrefix(P0,P0))
 12863	  xtst(vectorPrefix(P0,M0))
 12864	  xtst(vectorPrefix(P0,B0))
 12865	  xtst(vectorPrefix(M0,TT))
 12866	  xtst(vectorPrefix(M0,FF))
 12867	  xtst(vectorPrefix(M0,I0))
 12868	  xtst(vectorPrefix(M0,P0))
 12869	  xtst(vectorPrefix(M0,M0))
 12870	  xtst(vectorPrefix(M0,B0))
 12871	  xtst(vectorPrefix(B0,TT))
 12872	  xtst(vectorPrefix(B0,FF))
 12873	  xtst(vectorPrefix(B0,I0))
 12874	  xtst(vectorPrefix(B0,P0))
 12875	  xtst(vectorPrefix(B0,M0))
 12876	  xtst(vectorPrefix(B0,B0))
 12877	  etst(vectorPrefix(V(abc),N(-1)),E)
 12878	  etst(vectorPrefix(V(abc),N( 0)),E)
 12879	  etst(vectorPrefix(V(abc),N( 1)),V(a))
 12880	  etst(vectorPrefix(V(abc),N( 2)),V(ab))
 12881	  etst(vectorPrefix(V(abc),N( 3)),V(abc))
 12882	  etst(vectorPrefix(V(abc),N( 4)),V(abc))
 12883	  etst(vectorPrefix(V(abcdefg),N(-1)),E)
 12884	  etst(vectorPrefix(V(abcdefg),N( 0)),E)
 12885	  etst(vectorPrefix(V(abcdefg),N( 1)),V(a))
 12886	  etst(vectorPrefix(V(abcdefg),N( 2)),V(ab))
 12887	  etst(vectorPrefix(V(abcdefg),N( 3)),V(abc))
 12888	  etst(vectorPrefix(V(abcdefg),N( 4)),V(abcd))
 12889	  etst(vectorPrefix(V(abcdefg),N( 5)),V(abcde))
 12890	  etst(vectorPrefix(V(abcdefg),N( 6)),V(abcdef))
 12891	  etst(vectorPrefix(V(abcdefg),N( 7)),V(abcdefg))
 12892	  etst(vectorPrefix(V(abcdefg),N( 8)),V(abcdefg))
 12893	  etst(vectorPrefix(V(abcdefg),N( 9)),V(abcdefg))
 12894	  etst(vectorPrefix(V(abcdefg),N(10)),V(abcdefg))
 12895	  etst(vectorPrefix(V(abcdefgh),N(-1)),E)
 12896	  etst(vectorPrefix(V(abcdefgh),N( 0)),E)
 12897	  etst(vectorPrefix(V(abcdefgh),N( 1)),V(a))
 12898	  etst(vectorPrefix(V(abcdefgh),N( 2)),V(ab))
 12899	  etst(vectorPrefix(V(abcdefgh),N( 3)),V(abc))
 12900	  etst(vectorPrefix(V(abcdefgh),N( 4)),V(abcd))
 12901	  etst(vectorPrefix(V(abcdefgh),N( 5)),V(abcde))
 12902	  etst(vectorPrefix(V(abcdefgh),N( 6)),V(abcdef))
 12903	  etst(vectorPrefix(V(abcdefgh),N( 7)),V(abcdefg))
 12904	  etst(vectorPrefix(V(abcdefgh),N( 8)),V(abcdefgh))
 12905	  etst(vectorPrefix(V(abcdefgh),N( 9)),V(abcdefgh))
 12906	  etst(vectorPrefix(V(abcdefgh),N(10)),V(abcdefgh))
 12907	  etst(vectorPrefix(V(abcdefghi),N(-1)),E)
 12908	  etst(vectorPrefix(V(abcdefghi),N( 0)),E)
 12909	  etst(vectorPrefix(V(abcdefghi),N( 1)),V(a))
 12910	  etst(vectorPrefix(V(abcdefghi),N( 2)),V(ab))
 12911	  etst(vectorPrefix(V(abcdefghi),N( 3)),V(abc))
 12912	  etst(vectorPrefix(V(abcdefghi),N( 4)),V(abcd))
 12913	  etst(vectorPrefix(V(abcdefghi),N( 5)),V(abcde))
 12914	  etst(vectorPrefix(V(abcdefghi),N( 6)),V(abcdef))
 12915	  etst(vectorPrefix(V(abcdefghi),N( 7)),V(abcdefg))
 12916	  etst(vectorPrefix(V(abcdefghi),N( 8)),V(abcdefgh))
 12917	  etst(vectorPrefix(V(abcdefghi),N( 9)),V(abcdefghi))
 12918	  etst(vectorPrefix(V(abcdefghi),N(10)),V(abcdefghi))
 12919	  etst(vectorPrefix(N(256),N(-1)),E)
 12920	  etst(vectorPrefix(N(256),N( 0)),E)
 12921	  etst(vectorPrefix(N(256),N( 1)),N(256))
 12922	  etst(vectorPrefix(N(256),N( 2)),N(256))
 12923	  etst(vectorPrefix(N(512),N(-1)),E)
 12924	  etst(vectorPrefix(N(512),N( 0)),E)
 12925	  etst(vectorPrefix(N(512),N( 1)),N(256))
 12926	  etst(vectorPrefix(N(512),N( 2)),N(256))
 12927	
 12928	  etst(vectorPrefix(W(2,abc),N(-1)),E)
 12929	  etst(vectorPrefix(W(2,abc),N( 0)),E)
 12930	  etst(vectorPrefix(W(2,abc),N( 1)),V(a))
 12931	  etst(vectorPrefix(W(2,abc),N( 2)),V(ab))
 12932	  etst(vectorPrefix(W(2,abc),N( 3)),V(abc))
 12933	  etst(vectorPrefix(W(2,abc),N( 4)),V(abc))
 12934	  etst(vectorPrefix(W(2,abcdefg),N(-1)),E)
 12935	  etst(vectorPrefix(W(2,abcdefg),N( 0)),E)
 12936	  etst(vectorPrefix(W(2,abcdefg),N( 1)),V(a))
 12937	  etst(vectorPrefix(W(2,abcdefg),N( 2)),V(ab))
 12938	  etst(vectorPrefix(W(2,abcdefg),N( 3)),V(abc))
 12939	  etst(vectorPrefix(W(2,abcdefg),N( 4)),V(abcd))
 12940	  etst(vectorPrefix(W(2,abcdefg),N( 5)),V(abcde))
 12941	  etst(vectorPrefix(W(2,abcdefg),N( 6)),V(abcdef))
 12942	  etst(vectorPrefix(W(2,abcdefg),N( 7)),V(abcdefg))
 12943	  etst(vectorPrefix(W(2,abcdefg),N( 8)),V(abcdefg))
 12944	  etst(vectorPrefix(W(2,abcdefg),N( 9)),V(abcdefg))
 12945	  etst(vectorPrefix(W(2,abcdefg),N(10)),V(abcdefg))
 12946	  etst(vectorPrefix(W(2,abcdefgh),N(-1)),E)
 12947	  etst(vectorPrefix(W(2,abcdefgh),N( 0)),E)
 12948	  etst(vectorPrefix(W(2,abcdefgh),N( 1)),V(a))
 12949	  etst(vectorPrefix(W(2,abcdefgh),N( 2)),V(ab))
 12950	  etst(vectorPrefix(W(2,abcdefgh),N( 3)),V(abc))
 12951	  etst(vectorPrefix(W(2,abcdefgh),N( 4)),V(abcd))
 12952	  etst(vectorPrefix(W(2,abcdefgh),N( 5)),V(abcde))
 12953	  etst(vectorPrefix(W(2,abcdefgh),N( 6)),V(abcdef))
 12954	  etst(vectorPrefix(W(2,abcdefgh),N( 7)),V(abcdefg))
 12955	  etst(vectorPrefix(W(2,abcdefgh),N( 8)),V(abcdefgh))
 12956	  etst(vectorPrefix(W(2,abcdefgh),N( 9)),V(abcdefgh))
 12957	  etst(vectorPrefix(W(2,abcdefgh),N(10)),V(abcdefgh))
 12958	  etst(vectorPrefix(W(2,abcdefghi),N(-1)),E)
 12959	  etst(vectorPrefix(W(2,abcdefghi),N( 0)),E)
 12960	  etst(vectorPrefix(W(2,abcdefghi),N( 1)),V(a))
 12961	  etst(vectorPrefix(W(2,abcdefghi),N( 2)),V(ab))
 12962	  etst(vectorPrefix(W(2,abcdefghi),N( 3)),V(abc))
 12963	  etst(vectorPrefix(W(2,abcdefghi),N( 4)),V(abcd))
 12964	  etst(vectorPrefix(W(2,abcdefghi),N( 5)),V(abcde))
 12965	  etst(vectorPrefix(W(2,abcdefghi),N( 6)),V(abcdef))
 12966	  etst(vectorPrefix(W(2,abcdefghi),N( 7)),V(abcdefg))
 12967	  etst(vectorPrefix(W(2,abcdefghi),N( 8)),V(abcdefgh))
 12968	  etst(vectorPrefix(W(2,abcdefghi),N( 9)),V(abcdefghi))
 12969	  etst(vectorPrefix(W(2,abcdefghi),N(10)),V(abcdefghi))
 12970	
 12971	  etst(vectorPrefix(W(255,abc),N(-1)),E)
 12972	  etst(vectorPrefix(W(255,abc),N( 0)),E)
 12973	  etst(vectorPrefix(W(255,abc),N( 1)),V(a))
 12974	  etst(vectorPrefix(W(255,abc),N( 2)),V(ab))
 12975	  etst(vectorPrefix(W(255,abc),N( 3)),V(abc))
 12976	  etst(vectorPrefix(W(255,abc),N( 4)),V(abc))
 12977	  etst(vectorPrefix(W(255,abcdefg),N(-1)),E)
 12978	  etst(vectorPrefix(W(255,abcdefg),N( 0)),E)
 12979	  etst(vectorPrefix(W(255,abcdefg),N( 1)),V(a))
 12980	  etst(vectorPrefix(W(255,abcdefg),N( 2)),V(ab))
 12981	  etst(vectorPrefix(W(255,abcdefg),N( 3)),V(abc))
 12982	  etst(vectorPrefix(W(255,abcdefg),N( 4)),V(abcd))
 12983	  etst(vectorPrefix(W(255,abcdefg),N( 5)),V(abcde))
 12984	  etst(vectorPrefix(W(255,abcdefg),N( 6)),V(abcdef))
 12985	  etst(vectorPrefix(W(255,abcdefg),N( 7)),V(abcdefg))
 12986	  etst(vectorPrefix(W(255,abcdefg),N( 8)),V(abcdefg))
 12987	  etst(vectorPrefix(W(255,abcdefg),N( 9)),V(abcdefg))
 12988	  etst(vectorPrefix(W(255,abcdefg),N(10)),V(abcdefg))
 12989	  etst(vectorPrefix(W(255,abcdefgh),N(-1)),E)
 12990	  etst(vectorPrefix(W(255,abcdefgh),N( 0)),E)
 12991	  etst(vectorPrefix(W(255,abcdefgh),N( 1)),V(a))
 12992	  etst(vectorPrefix(W(255,abcdefgh),N( 2)),V(ab))
 12993	  etst(vectorPrefix(W(255,abcdefgh),N( 3)),V(abc))
 12994	  etst(vectorPrefix(W(255,abcdefgh),N( 4)),V(abcd))
 12995	  etst(vectorPrefix(W(255,abcdefgh),N( 5)),V(abcde))
 12996	  etst(vectorPrefix(W(255,abcdefgh),N( 6)),V(abcdef))
 12997	  etst(vectorPrefix(W(255,abcdefgh),N( 7)),V(abcdefg))
 12998	  etst(vectorPrefix(W(255,abcdefgh),N( 8)),V(abcdefgh))
 12999	  etst(vectorPrefix(W(255,abcdefgh),N( 9)),V(abcdefgh))
 13000	  etst(vectorPrefix(W(255,abcdefgh),N(10)),V(abcdefgh))
 13001	  etst(vectorPrefix(W(255,abcdefghi),N(-1)),E)
 13002	  etst(vectorPrefix(W(255,abcdefghi),N( 0)),E)
 13003	  etst(vectorPrefix(W(255,abcdefghi),N( 1)),V(a))
 13004	  etst(vectorPrefix(W(255,abcdefghi),N( 2)),V(ab))
 13005	  etst(vectorPrefix(W(255,abcdefghi),N( 3)),V(abc))
 13006	  etst(vectorPrefix(W(255,abcdefghi),N( 4)),V(abcd))
 13007	  etst(vectorPrefix(W(255,abcdefghi),N( 5)),V(abcde))
 13008	  etst(vectorPrefix(W(255,abcdefghi),N( 6)),V(abcdef))
 13009	  etst(vectorPrefix(W(255,abcdefghi),N( 7)),V(abcdefg))
 13010	  etst(vectorPrefix(W(255,abcdefghi),N( 8)),V(abcdefgh))
 13011	  etst(vectorPrefix(W(255,abcdefghi),N( 9)),V(abcdefghi))
 13012	  etst(vectorPrefix(W(255,abcdefghi),N(10)),V(abcdefghi))
 13013	
 13014	  xtst(vectorSubseq(V(abc),TT,TT))
 13015	  xtst(vectorSubseq(V(abc),TT,FF))
 13016	  xtst(vectorSubseq(V(abc),TT,I0))
 13017	  xtst(vectorSubseq(V(abc),TT,P0))
 13018	  xtst(vectorSubseq(V(abc),TT,M0))
 13019	  xtst(vectorSubseq(V(abc),TT,B0))
 13020	  xtst(vectorSubseq(V(abc),FF,TT))
 13021	  xtst(vectorSubseq(V(abc),FF,FF))
 13022	  xtst(vectorSubseq(V(abc),FF,I0))
 13023	  xtst(vectorSubseq(V(abc),FF,P0))
 13024	  xtst(vectorSubseq(V(abc),FF,M0))
 13025	  xtst(vectorSubseq(V(abc),FF,B0))
 13026	  xtst(vectorSubseq(V(abc),I0,TT))
 13027	  xtst(vectorSubseq(V(abc),I0,FF))
 13028	  xtst(vectorSubseq(V(abc),I0,P0))
 13029	  xtst(vectorSubseq(V(abc),I0,M0))
 13030	  xtst(vectorSubseq(V(abc),I0,B0))
 13031	  xtst(vectorSubseq(V(abc),P0,TT))
 13032	  xtst(vectorSubseq(V(abc),P0,FF))
 13033	  xtst(vectorSubseq(V(abc),P0,I0))
 13034	  xtst(vectorSubseq(V(abc),P0,P0))
 13035	  xtst(vectorSubseq(V(abc),P0,M0))
 13036	  xtst(vectorSubseq(V(abc),P0,B0))
 13037	  xtst(vectorSubseq(V(abc),M0,TT))
 13038	  xtst(vectorSubseq(V(abc),M0,FF))
 13039	  xtst(vectorSubseq(V(abc),M0,I0))
 13040	  xtst(vectorSubseq(V(abc),M0,P0))
 13041	  xtst(vectorSubseq(V(abc),M0,M0))
 13042	  xtst(vectorSubseq(V(abc),M0,B0))
 13043	  xtst(vectorSubseq(V(abc),B0,TT))
 13044	  xtst(vectorSubseq(V(abc),B0,FF))
 13045	  xtst(vectorSubseq(V(abc),B0,I0))
 13046	  xtst(vectorSubseq(V(abc),B0,P0))
 13047	  xtst(vectorSubseq(V(abc),B0,M0))
 13048	  xtst(vectorSubseq(V(abc),B0,B0))
 13049	  xtst(vectorSubseq(TT,N(0),TT))
 13050	  xtst(vectorSubseq(TT,N(0),FF))
 13051	  xtst(vectorSubseq(TT,N(0),I0))
 13052	  xtst(vectorSubseq(TT,N(0),P0))
 13053	  xtst(vectorSubseq(TT,N(0),M0))
 13054	  xtst(vectorSubseq(TT,N(0),B0))
 13055	  xtst(vectorSubseq(FF,N(0),TT))
 13056	  xtst(vectorSubseq(FF,N(0),FF))
 13057	  xtst(vectorSubseq(FF,N(0),I0))
 13058	  xtst(vectorSubseq(FF,N(0),P0))
 13059	  xtst(vectorSubseq(FF,N(0),M0))
 13060	  xtst(vectorSubseq(FF,N(0),B0))
 13061	  xtst(vectorSubseq(I0,N(0),TT))
 13062	  xtst(vectorSubseq(I0,N(0),FF))
 13063	  xtst(vectorSubseq(I0,N(0),P0))
 13064	  xtst(vectorSubseq(I0,N(0),M0))
 13065	  xtst(vectorSubseq(I0,N(0),B0))
 13066	  xtst(vectorSubseq(P0,N(0),TT))
 13067	  xtst(vectorSubseq(P0,N(0),FF))
 13068	  xtst(vectorSubseq(P0,N(0),I0))
 13069	  xtst(vectorSubseq(P0,N(0),P0))
 13070	  xtst(vectorSubseq(P0,N(0),M0))
 13071	  xtst(vectorSubseq(P0,N(0),B0))
 13072	  xtst(vectorSubseq(M0,N(0),TT))
 13073	  xtst(vectorSubseq(M0,N(0),FF))
 13074	  xtst(vectorSubseq(M0,N(0),I0))
 13075	  xtst(vectorSubseq(M0,N(0),P0))
 13076	  xtst(vectorSubseq(M0,N(0),M0))
 13077	  xtst(vectorSubseq(M0,N(0),B0))
 13078	  xtst(vectorSubseq(B0,N(0),TT))
 13079	  xtst(vectorSubseq(B0,N(0),FF))
 13080	  xtst(vectorSubseq(B0,N(0),I0))
 13081	  xtst(vectorSubseq(B0,N(0),P0))
 13082	  xtst(vectorSubseq(B0,N(0),M0))
 13083	  xtst(vectorSubseq(B0,N(0),B0))
 13084	  xtst(vectorSubseq(TT,TT,N(2)))
 13085	  xtst(vectorSubseq(TT,FF,N(2)))
 13086	  xtst(vectorSubseq(TT,I0,N(2)))
 13087	  xtst(vectorSubseq(TT,P0,N(2)))
 13088	  xtst(vectorSubseq(TT,M0,N(2)))
 13089	  xtst(vectorSubseq(TT,B0,N(2)))
 13090	  xtst(vectorSubseq(FF,TT,N(2)))
 13091	  xtst(vectorSubseq(FF,FF,N(2)))
 13092	  xtst(vectorSubseq(FF,I0,N(2)))
 13093	  xtst(vectorSubseq(FF,P0,N(2)))
 13094	  xtst(vectorSubseq(FF,M0,N(2)))
 13095	  xtst(vectorSubseq(FF,B0,N(2)))
 13096	  xtst(vectorSubseq(I0,TT,N(2)))
 13097	  xtst(vectorSubseq(I0,FF,N(2)))
 13098	  xtst(vectorSubseq(I0,P0,N(2)))
 13099	  xtst(vectorSubseq(I0,M0,N(2)))
 13100	  xtst(vectorSubseq(I0,B0,N(2)))
 13101	  xtst(vectorSubseq(P0,TT,N(2)))
 13102	  xtst(vectorSubseq(P0,FF,N(2)))
 13103	  xtst(vectorSubseq(P0,I0,N(2)))
 13104	  xtst(vectorSubseq(P0,P0,N(2)))
 13105	  xtst(vectorSubseq(P0,M0,N(2)))
 13106	  xtst(vectorSubseq(P0,B0,N(2)))
 13107	  xtst(vectorSubseq(M0,TT,N(2)))
 13108	  xtst(vectorSubseq(M0,FF,N(2)))
 13109	  xtst(vectorSubseq(M0,I0,N(2)))
 13110	  xtst(vectorSubseq(M0,P0,N(2)))
 13111	  xtst(vectorSubseq(M0,M0,N(2)))
 13112	  xtst(vectorSubseq(M0,B0,N(2)))
 13113	  xtst(vectorSubseq(B0,TT,N(2)))
 13114	  xtst(vectorSubseq(B0,FF,N(2)))
 13115	  xtst(vectorSubseq(B0,I0,N(2)))
 13116	  xtst(vectorSubseq(B0,P0,N(2)))
 13117	  xtst(vectorSubseq(B0,M0,N(2)))
 13118	  xtst(vectorSubseq(B0,B0,N(2)))
 13119	
 13120	  etst(vectorSubseq(V(),N(-1),N(-1)),V())
 13121	  etst(vectorSubseq(V(),N(-1),N( 0)),V())
 13122	  etst(vectorSubseq(V(),N(-1),N( 1)),V())
 13123	  etst(vectorSubseq(V(),N(-1),N( 2)),V())
 13124	  etst(vectorSubseq(V(),N(-1),N( 3)),V())
 13125	  etst(vectorSubseq(V(),N(-1),N( 4)),V())
 13126	  etst(vectorSubseq(V(),N(-1),N( 5)),V())
 13127	  etst(vectorSubseq(V(),N(-1),N( 6)),V())
 13128	  etst(vectorSubseq(V(),N(-1),N( 7)),V())
 13129	  etst(vectorSubseq(V(),N(-1),N( 8)),V())
 13130	  etst(vectorSubseq(V(),N(-1),N( 9)),V())
 13131	  etst(vectorSubseq(V(),N(-1),N(10)),V())
 13132	
 13133	  etst(vectorSubseq(V(),N( 0),N(-1)),V())
 13134	  etst(vectorSubseq(V(),N( 0),N( 0)),V())
 13135	  etst(vectorSubseq(V(),N( 0),N( 1)),V())
 13136	  etst(vectorSubseq(V(),N( 0),N( 2)),V())
 13137	  etst(vectorSubseq(V(),N( 0),N( 3)),V())
 13138	  etst(vectorSubseq(V(),N( 0),N( 4)),V())
 13139	  etst(vectorSubseq(V(),N( 0),N( 5)),V())
 13140	  etst(vectorSubseq(V(),N( 0),N( 6)),V())
 13141	  etst(vectorSubseq(V(),N( 0),N( 7)),V())
 13142	  etst(vectorSubseq(V(),N( 0),N( 8)),V())
 13143	  etst(vectorSubseq(V(),N( 0),N( 9)),V())
 13144	  etst(vectorSubseq(V(),N( 0),N(10)),V())
 13145	
 13146	  etst(vectorSubseq(V(),N( 1),N(-1)),V())
 13147	  etst(vectorSubseq(V(),N( 1),N( 0)),V())
 13148	  etst(vectorSubseq(V(),N( 1),N( 1)),V())
 13149	  etst(vectorSubseq(V(),N( 1),N( 2)),V())
 13150	  etst(vectorSubseq(V(),N( 1),N( 3)),V())
 13151	  etst(vectorSubseq(V(),N( 1),N( 4)),V())
 13152	  etst(vectorSubseq(V(),N( 1),N( 5)),V())
 13153	  etst(vectorSubseq(V(),N( 1),N( 6)),V())
 13154	  etst(vectorSubseq(V(),N( 1),N( 7)),V())
 13155	  etst(vectorSubseq(V(),N( 1),N( 8)),V())
 13156	  etst(vectorSubseq(V(),N( 1),N( 9)),V())
 13157	  etst(vectorSubseq(V(),N( 1),N(10)),V())
 13158	
 13159	  etst(vectorSubseq(V(),N( 2),N(-1)),V())
 13160	  etst(vectorSubseq(V(),N( 2),N( 0)),V())
 13161	  etst(vectorSubseq(V(),N( 2),N( 1)),V())
 13162	  etst(vectorSubseq(V(),N( 2),N( 2)),V())
 13163	  etst(vectorSubseq(V(),N( 2),N( 3)),V())
 13164	  etst(vectorSubseq(V(),N( 2),N( 4)),V())
 13165	  etst(vectorSubseq(V(),N( 2),N( 5)),V())
 13166	  etst(vectorSubseq(V(),N( 2),N( 6)),V())
 13167	  etst(vectorSubseq(V(),N( 2),N( 7)),V())
 13168	  etst(vectorSubseq(V(),N( 2),N( 8)),V())
 13169	  etst(vectorSubseq(V(),N( 2),N( 9)),V())
 13170	  etst(vectorSubseq(V(),N( 2),N(10)),V())
 13171	
 13172	  etst(vectorSubseq(V(),N( 3),N(-1)),V())
 13173	  etst(vectorSubseq(V(),N( 3),N( 0)),V())
 13174	  etst(vectorSubseq(V(),N( 3),N( 1)),V())
 13175	  etst(vectorSubseq(V(),N( 3),N( 2)),V())
 13176	  etst(vectorSubseq(V(),N( 3),N( 3)),V())
 13177	  etst(vectorSubseq(V(),N( 3),N( 4)),V())
 13178	  etst(vectorSubseq(V(),N( 3),N( 5)),V())
 13179	  etst(vectorSubseq(V(),N( 3),N( 6)),V())
 13180	  etst(vectorSubseq(V(),N( 3),N( 7)),V())
 13181	  etst(vectorSubseq(V(),N( 3),N( 8)),V())
 13182	  etst(vectorSubseq(V(),N( 3),N( 9)),V())
 13183	  etst(vectorSubseq(V(),N( 3),N(10)),V())
 13184	
 13185	  etst(vectorSubseq(V(),N( 4),N(-1)),V())
 13186	  etst(vectorSubseq(V(),N( 4),N( 0)),V())
 13187	  etst(vectorSubseq(V(),N( 4),N( 1)),V())
 13188	  etst(vectorSubseq(V(),N( 4),N( 2)),V())
 13189	  etst(vectorSubseq(V(),N( 4),N( 3)),V())
 13190	  etst(vectorSubseq(V(),N( 4),N( 4)),V())
 13191	  etst(vectorSubseq(V(),N( 4),N( 5)),V())
 13192	  etst(vectorSubseq(V(),N( 4),N( 6)),V())
 13193	  etst(vectorSubseq(V(),N( 4),N( 7)),V())
 13194	  etst(vectorSubseq(V(),N( 4),N( 8)),V())
 13195	  etst(vectorSubseq(V(),N( 4),N( 9)),V())
 13196	  etst(vectorSubseq(V(),N( 4),N(10)),V())
 13197	
 13198	  etst(vectorSubseq(V(),N( 5),N(-1)),V())
 13199	  etst(vectorSubseq(V(),N( 5),N( 0)),V())
 13200	  etst(vectorSubseq(V(),N( 5),N( 1)),V())
 13201	  etst(vectorSubseq(V(),N( 5),N( 2)),V())
 13202	  etst(vectorSubseq(V(),N( 5),N( 3)),V())
 13203	  etst(vectorSubseq(V(),N( 5),N( 4)),V())
 13204	  etst(vectorSubseq(V(),N( 5),N( 5)),V())
 13205	  etst(vectorSubseq(V(),N( 5),N( 6)),V())
 13206	  etst(vectorSubseq(V(),N( 5),N( 7)),V())
 13207	  etst(vectorSubseq(V(),N( 5),N( 8)),V())
 13208	  etst(vectorSubseq(V(),N( 5),N( 9)),V())
 13209	  etst(vectorSubseq(V(),N( 5),N(10)),V())
 13210	
 13211	  etst(vectorSubseq(V(),N( 6),N(-1)),V())
 13212	  etst(vectorSubseq(V(),N( 6),N( 0)),V())
 13213	  etst(vectorSubseq(V(),N( 6),N( 1)),V())
 13214	  etst(vectorSubseq(V(),N( 6),N( 2)),V())
 13215	  etst(vectorSubseq(V(),N( 6),N( 3)),V())
 13216	  etst(vectorSubseq(V(),N( 6),N( 4)),V())
 13217	  etst(vectorSubseq(V(),N( 6),N( 5)),V())
 13218	  etst(vectorSubseq(V(),N( 6),N( 6)),V())
 13219	  etst(vectorSubseq(V(),N( 6),N( 7)),V())
 13220	  etst(vectorSubseq(V(),N( 6),N( 8)),V())
 13221	  etst(vectorSubseq(V(),N( 6),N( 9)),V())
 13222	  etst(vectorSubseq(V(),N( 6),N(10)),V())
 13223	
 13224	  etst(vectorSubseq(V(),N( 7),N(-1)),V())
 13225	  etst(vectorSubseq(V(),N( 7),N( 0)),V())
 13226	  etst(vectorSubseq(V(),N( 7),N( 1)),V())
 13227	  etst(vectorSubseq(V(),N( 7),N( 2)),V())
 13228	  etst(vectorSubseq(V(),N( 7),N( 3)),V())
 13229	  etst(vectorSubseq(V(),N( 7),N( 4)),V())
 13230	  etst(vectorSubseq(V(),N( 7),N( 5)),V())
 13231	  etst(vectorSubseq(V(),N( 7),N( 6)),V())
 13232	  etst(vectorSubseq(V(),N( 7),N( 7)),V())
 13233	  etst(vectorSubseq(V(),N( 7),N( 8)),V())
 13234	  etst(vectorSubseq(V(),N( 7),N( 9)),V())
 13235	  etst(vectorSubseq(V(),N( 7),N(10)),V())
 13236	
 13237	  etst(vectorSubseq(V(),N( 8),N(-1)),V())
 13238	  etst(vectorSubseq(V(),N( 8),N( 0)),V())
 13239	  etst(vectorSubseq(V(),N( 8),N( 1)),V())
 13240	  etst(vectorSubseq(V(),N( 8),N( 2)),V())
 13241	  etst(vectorSubseq(V(),N( 8),N( 3)),V())
 13242	  etst(vectorSubseq(V(),N( 8),N( 4)),V())
 13243	  etst(vectorSubseq(V(),N( 8),N( 5)),V())
 13244	  etst(vectorSubseq(V(),N( 8),N( 6)),V())
 13245	  etst(vectorSubseq(V(),N( 8),N( 7)),V())
 13246	  etst(vectorSubseq(V(),N( 8),N( 8)),V())
 13247	  etst(vectorSubseq(V(),N( 8),N( 9)),V())
 13248	  etst(vectorSubseq(V(),N( 8),N(10)),V())
 13249	
 13250	  etst(vectorSubseq(V(),N( 9),N(-1)),V())
 13251	  etst(vectorSubseq(V(),N( 9),N( 0)),V())
 13252	  etst(vectorSubseq(V(),N( 9),N( 1)),V())
 13253	  etst(vectorSubseq(V(),N( 9),N( 2)),V())
 13254	  etst(vectorSubseq(V(),N( 9),N( 3)),V())
 13255	  etst(vectorSubseq(V(),N( 9),N( 4)),V())
 13256	  etst(vectorSubseq(V(),N( 9),N( 5)),V())
 13257	  etst(vectorSubseq(V(),N( 9),N( 6)),V())
 13258	  etst(vectorSubseq(V(),N( 9),N( 7)),V())
 13259	  etst(vectorSubseq(V(),N( 9),N( 8)),V())
 13260	  etst(vectorSubseq(V(),N( 9),N( 9)),V())
 13261	  etst(vectorSubseq(V(),N( 9),N(10)),V())
 13262	
 13263	  etst(vectorSubseq(V(),N(10),N(-1)),V())
 13264	  etst(vectorSubseq(V(),N(10),N( 0)),V())
 13265	  etst(vectorSubseq(V(),N(10),N( 1)),V())
 13266	  etst(vectorSubseq(V(),N(10),N( 2)),V())
 13267	  etst(vectorSubseq(V(),N(10),N( 3)),V())
 13268	  etst(vectorSubseq(V(),N(10),N( 4)),V())
 13269	  etst(vectorSubseq(V(),N(10),N( 5)),V())
 13270	  etst(vectorSubseq(V(),N(10),N( 6)),V())
 13271	  etst(vectorSubseq(V(),N(10),N( 7)),V())
 13272	  etst(vectorSubseq(V(),N(10),N( 8)),V())
 13273	  etst(vectorSubseq(V(),N(10),N( 9)),V())
 13274	  etst(vectorSubseq(V(),N(10),N(10)),V())
 13275	
 13276	  etst(vectorSubseq(V(abcdefghi),N(-1),N(-1)),V())
 13277	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 0)),V())
 13278	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 1)),V(a))
 13279	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 2)),V(ab))
 13280	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 3)),V(abc))
 13281	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 4)),V(abcd))
 13282	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 5)),V(abcde))
 13283	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 6)),V(abcdef))
 13284	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 7)),V(abcdefg))
 13285	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 8)),V(abcdefgh))
 13286	  etst(vectorSubseq(V(abcdefghi),N(-1),N( 9)),V(abcdefghi))
 13287	  etst(vectorSubseq(V(abcdefghi),N(-1),N(10)),V(abcdefghi))
 13288	  etst(vectorSubseq(V(abcdefghi),N( 0),N(-1)),V())
 13289	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 0)),V())
 13290	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 1)),V(a))
 13291	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 2)),V(ab))
 13292	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 3)),V(abc))
 13293	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 4)),V(abcd))
 13294	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 5)),V(abcde))
 13295	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 6)),V(abcdef))
 13296	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 7)),V(abcdefg))
 13297	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 8)),V(abcdefgh))
 13298	  etst(vectorSubseq(V(abcdefghi),N( 0),N( 9)),V(abcdefghi))
 13299	  etst(vectorSubseq(V(abcdefghi),N( 0),N(10)),V(abcdefghi))
 13300	  etst(vectorSubseq(V(abcdefghi),N( 1),N(-1)),V())
 13301	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 0)),V())
 13302	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 1)),V())
 13303	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 2)),V(b))
 13304	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 3)),V(bc))
 13305	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 4)),V(bcd))
 13306	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 5)),V(bcde))
 13307	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 6)),V(bcdef))
 13308	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 7)),V(bcdefg))
 13309	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 8)),V(bcdefgh))
 13310	  etst(vectorSubseq(V(abcdefghi),N( 1),N( 9)),V(bcdefghi))
 13311	  etst(vectorSubseq(V(abcdefghi),N( 1),N(10)),V(bcdefghi))
 13312	  etst(vectorSubseq(V(abcdefghi),N( 2),N(-1)),V())
 13313	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 0)),V())
 13314	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 1)),V())
 13315	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 2)),V())
 13316	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 3)),V(c))
 13317	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 4)),V(cd))
 13318	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 5)),V(cde))
 13319	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 6)),V(cdef))
 13320	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 7)),V(cdefg))
 13321	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 8)),V(cdefgh))
 13322	  etst(vectorSubseq(V(abcdefghi),N( 2),N( 9)),V(cdefghi))
 13323	  etst(vectorSubseq(V(abcdefghi),N( 2),N(10)),V(cdefghi))
 13324	  etst(vectorSubseq(V(abcdefghi),N( 3),N(-1)),V())
 13325	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 0)),V())
 13326	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 1)),V())
 13327	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 2)),V())
 13328	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 3)),V())
 13329	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 4)),V(d))
 13330	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 5)),V(de))
 13331	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 6)),V(def))
 13332	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 7)),V(defg))
 13333	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 8)),V(defgh))
 13334	  etst(vectorSubseq(V(abcdefghi),N( 3),N( 9)),V(defghi))
 13335	  etst(vectorSubseq(V(abcdefghi),N( 3),N(10)),V(defghi))
 13336	  etst(vectorSubseq(V(abcdefghi),N( 4),N(-1)),V())
 13337	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 0)),V())
 13338	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 1)),V())
 13339	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 2)),V())
 13340	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 3)),V())
 13341	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 4)),V())
 13342	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 5)),V(e))
 13343	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 6)),V(ef))
 13344	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 7)),V(efg))
 13345	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 8)),V(efgh))
 13346	  etst(vectorSubseq(V(abcdefghi),N( 4),N( 9)),V(efghi))
 13347	  etst(vectorSubseq(V(abcdefghi),N( 4),N(10)),V(efghi))
 13348	  etst(vectorSubseq(V(abcdefghi),N( 5),N(-1)),V())
 13349	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 0)),V())
 13350	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 1)),V())
 13351	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 2)),V())
 13352	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 3)),V())
 13353	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 4)),V())
 13354	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 5)),V())
 13355	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 6)),V(f))
 13356	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 7)),V(fg))
 13357	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 8)),V(fgh))
 13358	  etst(vectorSubseq(V(abcdefghi),N( 5),N( 9)),V(fghi))
 13359	  etst(vectorSubseq(V(abcdefghi),N( 5),N(10)),V(fghi))
 13360	  etst(vectorSubseq(V(abcdefghi),N( 6),N(-1)),V())
 13361	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 0)),V())
 13362	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 1)),V())
 13363	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 2)),V())
 13364	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 3)),V())
 13365	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 4)),V())
 13366	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 5)),V())
 13367	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 6)),V())
 13368	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 7)),V(g))
 13369	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 8)),V(gh))
 13370	  etst(vectorSubseq(V(abcdefghi),N( 6),N( 9)),V(ghi))
 13371	  etst(vectorSubseq(V(abcdefghi),N( 6),N(10)),V(ghi))
 13372	  etst(vectorSubseq(V(abcdefghi),N( 7),N(-1)),V())
 13373	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 0)),V())
 13374	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 1)),V())
 13375	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 2)),V())
 13376	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 3)),V())
 13377	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 4)),V())
 13378	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 5)),V())
 13379	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 6)),V())
 13380	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 7)),V())
 13381	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 8)),V(h))
 13382	  etst(vectorSubseq(V(abcdefghi),N( 7),N( 9)),V(hi))
 13383	  etst(vectorSubseq(V(abcdefghi),N( 7),N(10)),V(hi))
 13384	  etst(vectorSubseq(V(abcdefghi),N( 8),N(-1)),V())
 13385	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 0)),V())
 13386	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 1)),V())
 13387	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 2)),V())
 13388	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 3)),V())
 13389	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 4)),V())
 13390	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 5)),V())
 13391	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 6)),V())
 13392	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 7)),V())
 13393	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 8)),V())
 13394	  etst(vectorSubseq(V(abcdefghi),N( 8),N( 9)),V(i))
 13395	  etst(vectorSubseq(V(abcdefghi),N( 8),N(10)),V(i))
 13396	  etst(vectorSubseq(V(abcdefghi),N( 9),N(-1)),V())
 13397	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 0)),V())
 13398	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 1)),V())
 13399	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 2)),V())
 13400	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 3)),V())
 13401	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 4)),V())
 13402	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 5)),V())
 13403	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 6)),V())
 13404	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 7)),V())
 13405	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 8)),V())
 13406	  etst(vectorSubseq(V(abcdefghi),N( 9),N( 9)),V())
 13407	  etst(vectorSubseq(V(abcdefghi),N( 9),N(10)),V())
 13408	  etst(vectorSubseq(V(abcdefghi),N(10),N(-1)),V())
 13409	  etst(vectorSubseq(V(abcdefghi),N(10),N( 0)),V())
 13410	  etst(vectorSubseq(V(abcdefghi),N(10),N( 1)),V())
 13411	  etst(vectorSubseq(V(abcdefghi),N(10),N( 2)),V())
 13412	  etst(vectorSubseq(V(abcdefghi),N(10),N( 3)),V())
 13413	  etst(vectorSubseq(V(abcdefghi),N(10),N( 4)),V())
 13414	  etst(vectorSubseq(V(abcdefghi),N(10),N( 5)),V())
 13415	  etst(vectorSubseq(V(abcdefghi),N(10),N( 6)),V())
 13416	  etst(vectorSubseq(V(abcdefghi),N(10),N( 7)),V())
 13417	  etst(vectorSubseq(V(abcdefghi),N(10),N( 8)),V())
 13418	  etst(vectorSubseq(V(abcdefghi),N(10),N( 9)),V())
 13419	  etst(vectorSubseq(V(abcdefghi),N(10),N(10)),V())
 13420	  etst(vectorSubseq(V(abcdefgh),N(-1),N(-1)),V())
 13421	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 0)),V())
 13422	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 1)),V(a))
 13423	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 2)),V(ab))
 13424	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 3)),V(abc))
 13425	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 4)),V(abcd))
 13426	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 5)),V(abcde))
 13427	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 6)),V(abcdef))
 13428	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 7)),V(abcdefg))
 13429	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 8)),V(abcdefgh))
 13430	  etst(vectorSubseq(V(abcdefgh),N(-1),N( 9)),V(abcdefgh))
 13431	  etst(vectorSubseq(V(abcdefgh),N(-1),N(10)),V(abcdefgh))
 13432	  etst(vectorSubseq(V(abcdefgh),N( 0),N(-1)),V())
 13433	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 0)),V())
 13434	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 1)),V(a))
 13435	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 2)),V(ab))
 13436	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 3)),V(abc))
 13437	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 4)),V(abcd))
 13438	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 5)),V(abcde))
 13439	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 6)),V(abcdef))
 13440	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 7)),V(abcdefg))
 13441	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 8)),V(abcdefgh))
 13442	  etst(vectorSubseq(V(abcdefgh),N( 0),N( 9)),V(abcdefgh))
 13443	  etst(vectorSubseq(V(abcdefgh),N( 0),N(10)),V(abcdefgh))
 13444	  etst(vectorSubseq(V(abcdefgh),N( 1),N(-1)),V())
 13445	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 0)),V())
 13446	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 1)),V())
 13447	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 2)),V(b))
 13448	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 3)),V(bc))
 13449	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 4)),V(bcd))
 13450	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 5)),V(bcde))
 13451	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 6)),V(bcdef))
 13452	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 7)),V(bcdefg))
 13453	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 8)),V(bcdefgh))
 13454	  etst(vectorSubseq(V(abcdefgh),N( 1),N( 9)),V(bcdefgh))
 13455	  etst(vectorSubseq(V(abcdefgh),N( 1),N(10)),V(bcdefgh))
 13456	  etst(vectorSubseq(V(abcdefgh),N( 2),N(-1)),V())
 13457	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 0)),V())
 13458	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 1)),V())
 13459	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 2)),V())
 13460	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 3)),V(c))
 13461	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 4)),V(cd))
 13462	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 5)),V(cde))
 13463	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 6)),V(cdef))
 13464	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 7)),V(cdefg))
 13465	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 8)),V(cdefgh))
 13466	  etst(vectorSubseq(V(abcdefgh),N( 2),N( 9)),V(cdefgh))
 13467	  etst(vectorSubseq(V(abcdefgh),N( 2),N(10)),V(cdefgh))
 13468	  etst(vectorSubseq(V(abcdefgh),N( 3),N(-1)),V())
 13469	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 0)),V())
 13470	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 1)),V())
 13471	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 2)),V())
 13472	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 3)),V())
 13473	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 4)),V(d))
 13474	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 5)),V(de))
 13475	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 6)),V(def))
 13476	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 7)),V(defg))
 13477	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 8)),V(defgh))
 13478	  etst(vectorSubseq(V(abcdefgh),N( 3),N( 9)),V(defgh))
 13479	  etst(vectorSubseq(V(abcdefgh),N( 3),N(10)),V(defgh))
 13480	  etst(vectorSubseq(V(abcdefgh),N( 4),N(-1)),V())
 13481	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 0)),V())
 13482	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 1)),V())
 13483	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 2)),V())
 13484	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 3)),V())
 13485	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 4)),V())
 13486	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 5)),V(e))
 13487	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 6)),V(ef))
 13488	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 7)),V(efg))
 13489	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 8)),V(efgh))
 13490	  etst(vectorSubseq(V(abcdefgh),N( 4),N( 9)),V(efgh))
 13491	  etst(vectorSubseq(V(abcdefgh),N( 4),N(10)),V(efgh))
 13492	  etst(vectorSubseq(V(abcdefgh),N( 5),N(-1)),V())
 13493	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 0)),V())
 13494	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 1)),V())
 13495	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 2)),V())
 13496	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 3)),V())
 13497	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 4)),V())
 13498	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 5)),V())
 13499	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 6)),V(f))
 13500	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 7)),V(fg))
 13501	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 8)),V(fgh))
 13502	  etst(vectorSubseq(V(abcdefgh),N( 5),N( 9)),V(fgh))
 13503	  etst(vectorSubseq(V(abcdefgh),N( 5),N(10)),V(fgh))
 13504	  etst(vectorSubseq(V(abcdefgh),N( 6),N(-1)),V())
 13505	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 0)),V())
 13506	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 1)),V())
 13507	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 2)),V())
 13508	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 3)),V())
 13509	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 4)),V())
 13510	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 5)),V())
 13511	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 6)),V())
 13512	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 7)),V(g))
 13513	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 8)),V(gh))
 13514	  etst(vectorSubseq(V(abcdefgh),N( 6),N( 9)),V(gh))
 13515	  etst(vectorSubseq(V(abcdefgh),N( 6),N(10)),V(gh))
 13516	  etst(vectorSubseq(V(abcdefgh),N( 7),N(-1)),V())
 13517	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 0)),V())
 13518	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 1)),V())
 13519	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 2)),V())
 13520	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 3)),V())
 13521	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 4)),V())
 13522	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 5)),V())
 13523	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 6)),V())
 13524	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 7)),V())
 13525	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 8)),V(h))
 13526	  etst(vectorSubseq(V(abcdefgh),N( 7),N( 9)),V(h))
 13527	  etst(vectorSubseq(V(abcdefgh),N( 7),N(10)),V(h))
 13528	  etst(vectorSubseq(V(abcdefgh),N( 8),N(-1)),V())
 13529	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 0)),V())
 13530	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 1)),V())
 13531	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 2)),V())
 13532	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 3)),V())
 13533	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 4)),V())
 13534	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 5)),V())
 13535	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 6)),V())
 13536	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 7)),V())
 13537	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 8)),V())
 13538	  etst(vectorSubseq(V(abcdefgh),N( 8),N( 9)),V())
 13539	  etst(vectorSubseq(V(abcdefgh),N( 8),N(10)),V())
 13540	  etst(vectorSubseq(V(abcdefgh),N( 9),N(-1)),V())
 13541	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 0)),V())
 13542	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 1)),V())
 13543	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 2)),V())
 13544	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 3)),V())
 13545	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 4)),V())
 13546	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 5)),V())
 13547	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 6)),V())
 13548	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 7)),V())
 13549	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 8)),V())
 13550	  etst(vectorSubseq(V(abcdefgh),N( 9),N( 9)),V())
 13551	  etst(vectorSubseq(V(abcdefgh),N( 9),N(10)),V())
 13552	  etst(vectorSubseq(V(abcdefgh),N(10),N(-1)),V())
 13553	  etst(vectorSubseq(V(abcdefgh),N(10),N( 0)),V())
 13554	  etst(vectorSubseq(V(abcdefgh),N(10),N( 1)),V())
 13555	  etst(vectorSubseq(V(abcdefgh),N(10),N( 2)),V())
 13556	  etst(vectorSubseq(V(abcdefgh),N(10),N( 3)),V())
 13557	  etst(vectorSubseq(V(abcdefgh),N(10),N( 4)),V())
 13558	  etst(vectorSubseq(V(abcdefgh),N(10),N( 5)),V())
 13559	  etst(vectorSubseq(V(abcdefgh),N(10),N( 6)),V())
 13560	  etst(vectorSubseq(V(abcdefgh),N(10),N( 7)),V())
 13561	  etst(vectorSubseq(V(abcdefgh),N(10),N( 8)),V())
 13562	  etst(vectorSubseq(V(abcdefgh),N(10),N( 9)),V())
 13563	  etst(vectorSubseq(V(abcdefgh),N(10),N(10)),V())
 13564	  etst(vectorSubseq(V(abcdefg),N(-1),N(-1)),V())
 13565	  etst(vectorSubseq(V(abcdefg),N(-1),N( 0)),V())
 13566	  etst(vectorSubseq(V(abcdefg),N(-1),N( 1)),V(a))
 13567	  etst(vectorSubseq(V(abcdefg),N(-1),N( 2)),V(ab))
 13568	  etst(vectorSubseq(V(abcdefg),N(-1),N( 3)),V(abc))
 13569	  etst(vectorSubseq(V(abcdefg),N(-1),N( 4)),V(abcd))
 13570	  etst(vectorSubseq(V(abcdefg),N(-1),N( 5)),V(abcde))
 13571	  etst(vectorSubseq(V(abcdefg),N(-1),N( 6)),V(abcdef))
 13572	  etst(vectorSubseq(V(abcdefg),N(-1),N( 7)),V(abcdefg))
 13573	  etst(vectorSubseq(V(abcdefg),N(-1),N( 8)),V(abcdefg))
 13574	  etst(vectorSubseq(V(abcdefg),N(-1),N( 9)),V(abcdefg))
 13575	  etst(vectorSubseq(V(abcdefg),N(-1),N(10)),V(abcdefg))
 13576	  etst(vectorSubseq(V(abcdefg),N( 0),N(-1)),V())
 13577	  etst(vectorSubseq(V(abcdefg),N( 0),N( 0)),V())
 13578	  etst(vectorSubseq(V(abcdefg),N( 0),N( 1)),V(a))
 13579	  etst(vectorSubseq(V(abcdefg),N( 0),N( 2)),V(ab))
 13580	  etst(vectorSubseq(V(abcdefg),N( 0),N( 3)),V(abc))
 13581	  etst(vectorSubseq(V(abcdefg),N( 0),N( 4)),V(abcd))
 13582	  etst(vectorSubseq(V(abcdefg),N( 0),N( 5)),V(abcde))
 13583	  etst(vectorSubseq(V(abcdefg),N( 0),N( 6)),V(abcdef))
 13584	  etst(vectorSubseq(V(abcdefg),N( 0),N( 7)),V(abcdefg))
 13585	  etst(vectorSubseq(V(abcdefg),N( 0),N( 8)),V(abcdefg))
 13586	  etst(vectorSubseq(V(abcdefg),N( 0),N( 9)),V(abcdefg))
 13587	  etst(vectorSubseq(V(abcdefg),N( 0),N(10)),V(abcdefg))
 13588	  etst(vectorSubseq(V(abcdefg),N( 1),N(-1)),V())
 13589	  etst(vectorSubseq(V(abcdefg),N( 1),N( 0)),V())
 13590	  etst(vectorSubseq(V(abcdefg),N( 1),N( 1)),V())
 13591	  etst(vectorSubseq(V(abcdefg),N( 1),N( 2)),V(b))
 13592	  etst(vectorSubseq(V(abcdefg),N( 1),N( 3)),V(bc))
 13593	  etst(vectorSubseq(V(abcdefg),N( 1),N( 4)),V(bcd))
 13594	  etst(vectorSubseq(V(abcdefg),N( 1),N( 5)),V(bcde))
 13595	  etst(vectorSubseq(V(abcdefg),N( 1),N( 6)),V(bcdef))
 13596	  etst(vectorSubseq(V(abcdefg),N( 1),N( 7)),V(bcdefg))
 13597	  etst(vectorSubseq(V(abcdefg),N( 1),N( 8)),V(bcdefg))
 13598	  etst(vectorSubseq(V(abcdefg),N( 1),N( 9)),V(bcdefg))
 13599	  etst(vectorSubseq(V(abcdefg),N( 1),N(10)),V(bcdefg))
 13600	  etst(vectorSubseq(V(abcdefg),N( 2),N(-1)),V())
 13601	  etst(vectorSubseq(V(abcdefg),N( 2),N( 0)),V())
 13602	  etst(vectorSubseq(V(abcdefg),N( 2),N( 1)),V())
 13603	  etst(vectorSubseq(V(abcdefg),N( 2),N( 2)),V())
 13604	  etst(vectorSubseq(V(abcdefg),N( 2),N( 3)),V(c))
 13605	  etst(vectorSubseq(V(abcdefg),N( 2),N( 4)),V(cd))
 13606	  etst(vectorSubseq(V(abcdefg),N( 2),N( 5)),V(cde))
 13607	  etst(vectorSubseq(V(abcdefg),N( 2),N( 6)),V(cdef))
 13608	  etst(vectorSubseq(V(abcdefg),N( 2),N( 7)),V(cdefg))
 13609	  etst(vectorSubseq(V(abcdefg),N( 2),N( 8)),V(cdefg))
 13610	  etst(vectorSubseq(V(abcdefg),N( 2),N( 9)),V(cdefg))
 13611	  etst(vectorSubseq(V(abcdefg),N( 2),N(10)),V(cdefg))
 13612	  etst(vectorSubseq(V(abcdefg),N( 3),N(-1)),V())
 13613	  etst(vectorSubseq(V(abcdefg),N( 3),N( 0)),V())
 13614	  etst(vectorSubseq(V(abcdefg),N( 3),N( 1)),V())
 13615	  etst(vectorSubseq(V(abcdefg),N( 3),N( 2)),V())
 13616	  etst(vectorSubseq(V(abcdefg),N( 3),N( 3)),V())
 13617	  etst(vectorSubseq(V(abcdefg),N( 3),N( 4)),V(d))
 13618	  etst(vectorSubseq(V(abcdefg),N( 3),N( 5)),V(de))
 13619	  etst(vectorSubseq(V(abcdefg),N( 3),N( 6)),V(def))
 13620	  etst(vectorSubseq(V(abcdefg),N( 3),N( 7)),V(defg))
 13621	  etst(vectorSubseq(V(abcdefg),N( 3),N( 8)),V(defg))
 13622	  etst(vectorSubseq(V(abcdefg),N( 3),N( 9)),V(defg))
 13623	  etst(vectorSubseq(V(abcdefg),N( 3),N(10)),V(defg))
 13624	  etst(vectorSubseq(V(abcdefg),N( 4),N(-1)),V())
 13625	  etst(vectorSubseq(V(abcdefg),N( 4),N( 0)),V())
 13626	  etst(vectorSubseq(V(abcdefg),N( 4),N( 1)),V())
 13627	  etst(vectorSubseq(V(abcdefg),N( 4),N( 2)),V())
 13628	  etst(vectorSubseq(V(abcdefg),N( 4),N( 3)),V())
 13629	  etst(vectorSubseq(V(abcdefg),N( 4),N( 4)),V())
 13630	  etst(vectorSubseq(V(abcdefg),N( 4),N( 5)),V(e))
 13631	  etst(vectorSubseq(V(abcdefg),N( 4),N( 6)),V(ef))
 13632	  etst(vectorSubseq(V(abcdefg),N( 4),N( 7)),V(efg))
 13633	  etst(vectorSubseq(V(abcdefg),N( 4),N( 8)),V(efg))
 13634	  etst(vectorSubseq(V(abcdefg),N( 4),N( 9)),V(efg))
 13635	  etst(vectorSubseq(V(abcdefg),N( 4),N(10)),V(efg))
 13636	  etst(vectorSubseq(V(abcdefg),N( 5),N(-1)),V())
 13637	  etst(vectorSubseq(V(abcdefg),N( 5),N( 0)),V())
 13638	  etst(vectorSubseq(V(abcdefg),N( 5),N( 1)),V())
 13639	  etst(vectorSubseq(V(abcdefg),N( 5),N( 2)),V())
 13640	  etst(vectorSubseq(V(abcdefg),N( 5),N( 3)),V())
 13641	  etst(vectorSubseq(V(abcdefg),N( 5),N( 4)),V())
 13642	  etst(vectorSubseq(V(abcdefg),N( 5),N( 5)),V())
 13643	  etst(vectorSubseq(V(abcdefg),N( 5),N( 6)),V(f))
 13644	  etst(vectorSubseq(V(abcdefg),N( 5),N( 7)),V(fg))
 13645	  etst(vectorSubseq(V(abcdefg),N( 5),N( 8)),V(fg))
 13646	  etst(vectorSubseq(V(abcdefg),N( 5),N( 9)),V(fg))
 13647	  etst(vectorSubseq(V(abcdefg),N( 5),N(10)),V(fg))
 13648	  etst(vectorSubseq(V(abcdefg),N( 6),N(-1)),V())
 13649	  etst(vectorSubseq(V(abcdefg),N( 6),N( 0)),V())
 13650	  etst(vectorSubseq(V(abcdefg),N( 6),N( 1)),V())
 13651	  etst(vectorSubseq(V(abcdefg),N( 6),N( 2)),V())
 13652	  etst(vectorSubseq(V(abcdefg),N( 6),N( 3)),V())
 13653	  etst(vectorSubseq(V(abcdefg),N( 6),N( 4)),V())
 13654	  etst(vectorSubseq(V(abcdefg),N( 6),N( 5)),V())
 13655	  etst(vectorSubseq(V(abcdefg),N( 6),N( 6)),V())
 13656	  etst(vectorSubseq(V(abcdefg),N( 6),N( 7)),V(g))
 13657	  etst(vectorSubseq(V(abcdefg),N( 6),N( 8)),V(g))
 13658	  etst(vectorSubseq(V(abcdefg),N( 6),N( 9)),V(g))
 13659	  etst(vectorSubseq(V(abcdefg),N( 6),N(10)),V(g))
 13660	  etst(vectorSubseq(V(abcdefg),N( 7),N(-1)),V())
 13661	  etst(vectorSubseq(V(abcdefg),N( 7),N( 0)),V())
 13662	  etst(vectorSubseq(V(abcdefg),N( 7),N( 1)),V())
 13663	  etst(vectorSubseq(V(abcdefg),N( 7),N( 2)),V())
 13664	  etst(vectorSubseq(V(abcdefg),N( 7),N( 3)),V())
 13665	  etst(vectorSubseq(V(abcdefg),N( 7),N( 4)),V())
 13666	  etst(vectorSubseq(V(abcdefg),N( 7),N( 5)),V())
 13667	  etst(vectorSubseq(V(abcdefg),N( 7),N( 6)),V())
 13668	  etst(vectorSubseq(V(abcdefg),N( 7),N( 7)),V())
 13669	  etst(vectorSubseq(V(abcdefg),N( 7),N( 8)),V())
 13670	  etst(vectorSubseq(V(abcdefg),N( 7),N( 9)),V())
 13671	  etst(vectorSubseq(V(abcdefg),N( 7),N(10)),V())
 13672	  etst(vectorSubseq(V(abcdefg),N( 8),N(-1)),V())
 13673	  etst(vectorSubseq(V(abcdefg),N( 8),N( 0)),V())
 13674	  etst(vectorSubseq(V(abcdefg),N( 8),N( 1)),V())
 13675	  etst(vectorSubseq(V(abcdefg),N( 8),N( 2)),V())
 13676	  etst(vectorSubseq(V(abcdefg),N( 8),N( 3)),V())
 13677	  etst(vectorSubseq(V(abcdefg),N( 8),N( 4)),V())
 13678	  etst(vectorSubseq(V(abcdefg),N( 8),N( 5)),V())
 13679	  etst(vectorSubseq(V(abcdefg),N( 8),N( 6)),V())
 13680	  etst(vectorSubseq(V(abcdefg),N( 8),N( 7)),V())
 13681	  etst(vectorSubseq(V(abcdefg),N( 8),N( 8)),V())
 13682	  etst(vectorSubseq(V(abcdefg),N( 8),N( 9)),V())
 13683	  etst(vectorSubseq(V(abcdefg),N( 8),N(10)),V())
 13684	  etst(vectorSubseq(V(abcdefg),N( 9),N(-1)),V())
 13685	  etst(vectorSubseq(V(abcdefg),N( 9),N( 0)),V())
 13686	  etst(vectorSubseq(V(abcdefg),N( 9),N( 1)),V())
 13687	  etst(vectorSubseq(V(abcdefg),N( 9),N( 2)),V())
 13688	  etst(vectorSubseq(V(abcdefg),N( 9),N( 3)),V())
 13689	  etst(vectorSubseq(V(abcdefg),N( 9),N( 4)),V())
 13690	  etst(vectorSubseq(V(abcdefg),N( 9),N( 5)),V())
 13691	  etst(vectorSubseq(V(abcdefg),N( 9),N( 6)),V())
 13692	  etst(vectorSubseq(V(abcdefg),N( 9),N( 7)),V())
 13693	  etst(vectorSubseq(V(abcdefg),N( 9),N( 8)),V())
 13694	  etst(vectorSubseq(V(abcdefg),N( 9),N( 9)),V())
 13695	  etst(vectorSubseq(V(abcdefg),N( 9),N(10)),V())
 13696	  etst(vectorSubseq(V(abcdefg),N(10),N(-1)),V())
 13697	  etst(vectorSubseq(V(abcdefg),N(10),N( 0)),V())
 13698	  etst(vectorSubseq(V(abcdefg),N(10),N( 1)),V())
 13699	  etst(vectorSubseq(V(abcdefg),N(10),N( 2)),V())
 13700	  etst(vectorSubseq(V(abcdefg),N(10),N( 3)),V())
 13701	  etst(vectorSubseq(V(abcdefg),N(10),N( 4)),V())
 13702	  etst(vectorSubseq(V(abcdefg),N(10),N( 5)),V())
 13703	  etst(vectorSubseq(V(abcdefg),N(10),N( 6)),V())
 13704	  etst(vectorSubseq(V(abcdefg),N(10),N( 7)),V())
 13705	  etst(vectorSubseq(V(abcdefg),N(10),N( 8)),V())
 13706	  etst(vectorSubseq(V(abcdefg),N(10),N( 9)),V())
 13707	  etst(vectorSubseq(V(abcdefg),N(10),N(10)),V())
 13708	
 13709	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N(-1)),V())
 13710	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 0)),V())
 13711	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 1)),V(a))
 13712	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 2)),V(ab))
 13713	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 3)),V(abc))
 13714	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 4)),V(abcd))
 13715	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 5)),V(abcde))
 13716	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 6)),V(abcdef))
 13717	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 7)),V(abcdefg))
 13718	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 8)),V(abcdefgh))
 13719	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N( 9)),V(abcdefghi))
 13720	  etst(vectorSubseq(W(2,abcdefghi),N(-1),N(10)),V(abcdefghi))
 13721	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N(-1)),V())
 13722	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 0)),V())
 13723	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 1)),V(a))
 13724	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 2)),V(ab))
 13725	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 3)),V(abc))
 13726	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 4)),V(abcd))
 13727	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 5)),V(abcde))
 13728	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 6)),V(abcdef))
 13729	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 7)),V(abcdefg))
 13730	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 8)),V(abcdefgh))
 13731	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N( 9)),V(abcdefghi))
 13732	  etst(vectorSubseq(W(2,abcdefghi),N( 0),N(10)),V(abcdefghi))
 13733	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N(-1)),V())
 13734	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 0)),V())
 13735	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 1)),V())
 13736	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 2)),V(b))
 13737	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 3)),V(bc))
 13738	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 4)),V(bcd))
 13739	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 5)),V(bcde))
 13740	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 6)),V(bcdef))
 13741	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 7)),V(bcdefg))
 13742	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 8)),V(bcdefgh))
 13743	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N( 9)),V(bcdefghi))
 13744	  etst(vectorSubseq(W(2,abcdefghi),N( 1),N(10)),V(bcdefghi))
 13745	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N(-1)),V())
 13746	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 0)),V())
 13747	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 1)),V())
 13748	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 2)),V())
 13749	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 3)),V(c))
 13750	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 4)),V(cd))
 13751	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 5)),V(cde))
 13752	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 6)),V(cdef))
 13753	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 7)),V(cdefg))
 13754	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 8)),V(cdefgh))
 13755	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N( 9)),V(cdefghi))
 13756	  etst(vectorSubseq(W(2,abcdefghi),N( 2),N(10)),V(cdefghi))
 13757	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N(-1)),V())
 13758	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 0)),V())
 13759	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 1)),V())
 13760	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 2)),V())
 13761	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 3)),V())
 13762	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 4)),V(d))
 13763	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 5)),V(de))
 13764	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 6)),V(def))
 13765	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 7)),V(defg))
 13766	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 8)),V(defgh))
 13767	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N( 9)),V(defghi))
 13768	  etst(vectorSubseq(W(2,abcdefghi),N( 3),N(10)),V(defghi))
 13769	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N(-1)),V())
 13770	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 0)),V())
 13771	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 1)),V())
 13772	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 2)),V())
 13773	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 3)),V())
 13774	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 4)),V())
 13775	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 5)),V(e))
 13776	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 6)),V(ef))
 13777	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 7)),V(efg))
 13778	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 8)),V(efgh))
 13779	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N( 9)),V(efghi))
 13780	  etst(vectorSubseq(W(2,abcdefghi),N( 4),N(10)),V(efghi))
 13781	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N(-1)),V())
 13782	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 0)),V())
 13783	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 1)),V())
 13784	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 2)),V())
 13785	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 3)),V())
 13786	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 4)),V())
 13787	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 5)),V())
 13788	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 6)),V(f))
 13789	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 7)),V(fg))
 13790	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 8)),V(fgh))
 13791	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N( 9)),V(fghi))
 13792	  etst(vectorSubseq(W(2,abcdefghi),N( 5),N(10)),V(fghi))
 13793	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N(-1)),V())
 13794	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 0)),V())
 13795	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 1)),V())
 13796	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 2)),V())
 13797	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 3)),V())
 13798	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 4)),V())
 13799	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 5)),V())
 13800	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 6)),V())
 13801	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 7)),V(g))
 13802	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 8)),V(gh))
 13803	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N( 9)),V(ghi))
 13804	  etst(vectorSubseq(W(2,abcdefghi),N( 6),N(10)),V(ghi))
 13805	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N(-1)),V())
 13806	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 0)),V())
 13807	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 1)),V())
 13808	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 2)),V())
 13809	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 3)),V())
 13810	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 4)),V())
 13811	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 5)),V())
 13812	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 6)),V())
 13813	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 7)),V())
 13814	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 8)),V(h))
 13815	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N( 9)),V(hi))
 13816	  etst(vectorSubseq(W(2,abcdefghi),N( 7),N(10)),V(hi))
 13817	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N(-1)),V())
 13818	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 0)),V())
 13819	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 1)),V())
 13820	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 2)),V())
 13821	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 3)),V())
 13822	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 4)),V())
 13823	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 5)),V())
 13824	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 6)),V())
 13825	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 7)),V())
 13826	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 8)),V())
 13827	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N( 9)),V(i))
 13828	  etst(vectorSubseq(W(2,abcdefghi),N( 8),N(10)),V(i))
 13829	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N(-1)),V())
 13830	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 0)),V())
 13831	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 1)),V())
 13832	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 2)),V())
 13833	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 3)),V())
 13834	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 4)),V())
 13835	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 5)),V())
 13836	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 6)),V())
 13837	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 7)),V())
 13838	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 8)),V())
 13839	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N( 9)),V())
 13840	  etst(vectorSubseq(W(2,abcdefghi),N( 9),N(10)),V())
 13841	  etst(vectorSubseq(W(2,abcdefghi),N(10),N(-1)),V())
 13842	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 0)),V())
 13843	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 1)),V())
 13844	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 2)),V())
 13845	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 3)),V())
 13846	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 4)),V())
 13847	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 5)),V())
 13848	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 6)),V())
 13849	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 7)),V())
 13850	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 8)),V())
 13851	  etst(vectorSubseq(W(2,abcdefghi),N(10),N( 9)),V())
 13852	  etst(vectorSubseq(W(2,abcdefghi),N(10),N(10)),V())
 13853	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N(-1)),V())
 13854	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 0)),V())
 13855	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 1)),V(a))
 13856	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 2)),V(ab))
 13857	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 3)),V(abc))
 13858	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 4)),V(abcd))
 13859	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 5)),V(abcde))
 13860	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 6)),V(abcdef))
 13861	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 7)),V(abcdefg))
 13862	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 8)),V(abcdefgh))
 13863	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N( 9)),V(abcdefgh))
 13864	  etst(vectorSubseq(W(2,abcdefgh),N(-1),N(10)),V(abcdefgh))
 13865	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N(-1)),V())
 13866	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 0)),V())
 13867	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 1)),V(a))
 13868	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 2)),V(ab))
 13869	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 3)),V(abc))
 13870	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 4)),V(abcd))
 13871	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 5)),V(abcde))
 13872	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 6)),V(abcdef))
 13873	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 7)),V(abcdefg))
 13874	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 8)),V(abcdefgh))
 13875	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N( 9)),V(abcdefgh))
 13876	  etst(vectorSubseq(W(2,abcdefgh),N( 0),N(10)),V(abcdefgh))
 13877	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N(-1)),V())
 13878	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 0)),V())
 13879	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 1)),V())
 13880	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 2)),V(b))
 13881	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 3)),V(bc))
 13882	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 4)),V(bcd))
 13883	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 5)),V(bcde))
 13884	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 6)),V(bcdef))
 13885	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 7)),V(bcdefg))
 13886	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 8)),V(bcdefgh))
 13887	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N( 9)),V(bcdefgh))
 13888	  etst(vectorSubseq(W(2,abcdefgh),N( 1),N(10)),V(bcdefgh))
 13889	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N(-1)),V())
 13890	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 0)),V())
 13891	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 1)),V())
 13892	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 2)),V())
 13893	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 3)),V(c))
 13894	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 4)),V(cd))
 13895	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 5)),V(cde))
 13896	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 6)),V(cdef))
 13897	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 7)),V(cdefg))
 13898	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 8)),V(cdefgh))
 13899	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N( 9)),V(cdefgh))
 13900	  etst(vectorSubseq(W(2,abcdefgh),N( 2),N(10)),V(cdefgh))
 13901	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N(-1)),V())
 13902	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 0)),V())
 13903	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 1)),V())
 13904	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 2)),V())
 13905	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 3)),V())
 13906	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 4)),V(d))
 13907	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 5)),V(de))
 13908	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 6)),V(def))
 13909	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 7)),V(defg))
 13910	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 8)),V(defgh))
 13911	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N( 9)),V(defgh))
 13912	  etst(vectorSubseq(W(2,abcdefgh),N( 3),N(10)),V(defgh))
 13913	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N(-1)),V())
 13914	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 0)),V())
 13915	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 1)),V())
 13916	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 2)),V())
 13917	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 3)),V())
 13918	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 4)),V())
 13919	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 5)),V(e))
 13920	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 6)),V(ef))
 13921	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 7)),V(efg))
 13922	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 8)),V(efgh))
 13923	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N( 9)),V(efgh))
 13924	  etst(vectorSubseq(W(2,abcdefgh),N( 4),N(10)),V(efgh))
 13925	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N(-1)),V())
 13926	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 0)),V())
 13927	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 1)),V())
 13928	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 2)),V())
 13929	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 3)),V())
 13930	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 4)),V())
 13931	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 5)),V())
 13932	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 6)),V(f))
 13933	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 7)),V(fg))
 13934	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 8)),V(fgh))
 13935	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N( 9)),V(fgh))
 13936	  etst(vectorSubseq(W(2,abcdefgh),N( 5),N(10)),V(fgh))
 13937	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N(-1)),V())
 13938	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 0)),V())
 13939	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 1)),V())
 13940	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 2)),V())
 13941	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 3)),V())
 13942	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 4)),V())
 13943	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 5)),V())
 13944	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 6)),V())
 13945	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 7)),V(g))
 13946	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 8)),V(gh))
 13947	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N( 9)),V(gh))
 13948	  etst(vectorSubseq(W(2,abcdefgh),N( 6),N(10)),V(gh))
 13949	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N(-1)),V())
 13950	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 0)),V())
 13951	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 1)),V())
 13952	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 2)),V())
 13953	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 3)),V())
 13954	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 4)),V())
 13955	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 5)),V())
 13956	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 6)),V())
 13957	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 7)),V())
 13958	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 8)),V(h))
 13959	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N( 9)),V(h))
 13960	  etst(vectorSubseq(W(2,abcdefgh),N( 7),N(10)),V(h))
 13961	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N(-1)),V())
 13962	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 0)),V())
 13963	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 1)),V())
 13964	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 2)),V())
 13965	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 3)),V())
 13966	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 4)),V())
 13967	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 5)),V())
 13968	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 6)),V())
 13969	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 7)),V())
 13970	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 8)),V())
 13971	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N( 9)),V())
 13972	  etst(vectorSubseq(W(2,abcdefgh),N( 8),N(10)),V())
 13973	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N(-1)),V())
 13974	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 0)),V())
 13975	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 1)),V())
 13976	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 2)),V())
 13977	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 3)),V())
 13978	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 4)),V())
 13979	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 5)),V())
 13980	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 6)),V())
 13981	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 7)),V())
 13982	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 8)),V())
 13983	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N( 9)),V())
 13984	  etst(vectorSubseq(W(2,abcdefgh),N( 9),N(10)),V())
 13985	  etst(vectorSubseq(W(2,abcdefgh),N(10),N(-1)),V())
 13986	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 0)),V())
 13987	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 1)),V())
 13988	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 2)),V())
 13989	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 3)),V())
 13990	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 4)),V())
 13991	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 5)),V())
 13992	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 6)),V())
 13993	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 7)),V())
 13994	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 8)),V())
 13995	  etst(vectorSubseq(W(2,abcdefgh),N(10),N( 9)),V())
 13996	  etst(vectorSubseq(W(2,abcdefgh),N(10),N(10)),V())
 13997	  etst(vectorSubseq(W(2,abcdefg),N(-1),N(-1)),V())
 13998	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 0)),V())
 13999	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 1)),V(a))
 14000	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 2)),V(ab))
 14001	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 3)),V(abc))
 14002	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 4)),V(abcd))
 14003	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 5)),V(abcde))
 14004	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 6)),V(abcdef))
 14005	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 7)),V(abcdefg))
 14006	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 8)),V(abcdefg))
 14007	  etst(vectorSubseq(W(2,abcdefg),N(-1),N( 9)),V(abcdefg))
 14008	  etst(vectorSubseq(W(2,abcdefg),N(-1),N(10)),V(abcdefg))
 14009	  etst(vectorSubseq(W(2,abcdefg),N( 0),N(-1)),V())
 14010	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 0)),V())
 14011	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 1)),V(a))
 14012	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 2)),V(ab))
 14013	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 3)),V(abc))
 14014	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 4)),V(abcd))
 14015	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 5)),V(abcde))
 14016	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 6)),V(abcdef))
 14017	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 7)),V(abcdefg))
 14018	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 8)),V(abcdefg))
 14019	  etst(vectorSubseq(W(2,abcdefg),N( 0),N( 9)),V(abcdefg))
 14020	  etst(vectorSubseq(W(2,abcdefg),N( 0),N(10)),V(abcdefg))
 14021	  etst(vectorSubseq(W(2,abcdefg),N( 1),N(-1)),V())
 14022	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 0)),V())
 14023	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 1)),V())
 14024	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 2)),V(b))
 14025	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 3)),V(bc))
 14026	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 4)),V(bcd))
 14027	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 5)),V(bcde))
 14028	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 6)),V(bcdef))
 14029	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 7)),V(bcdefg))
 14030	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 8)),V(bcdefg))
 14031	  etst(vectorSubseq(W(2,abcdefg),N( 1),N( 9)),V(bcdefg))
 14032	  etst(vectorSubseq(W(2,abcdefg),N( 1),N(10)),V(bcdefg))
 14033	  etst(vectorSubseq(W(2,abcdefg),N( 2),N(-1)),V())
 14034	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 0)),V())
 14035	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 1)),V())
 14036	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 2)),V())
 14037	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 3)),V(c))
 14038	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 4)),V(cd))
 14039	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 5)),V(cde))
 14040	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 6)),V(cdef))
 14041	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 7)),V(cdefg))
 14042	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 8)),V(cdefg))
 14043	  etst(vectorSubseq(W(2,abcdefg),N( 2),N( 9)),V(cdefg))
 14044	  etst(vectorSubseq(W(2,abcdefg),N( 2),N(10)),V(cdefg))
 14045	  etst(vectorSubseq(W(2,abcdefg),N( 3),N(-1)),V())
 14046	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 0)),V())
 14047	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 1)),V())
 14048	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 2)),V())
 14049	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 3)),V())
 14050	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 4)),V(d))
 14051	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 5)),V(de))
 14052	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 6)),V(def))
 14053	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 7)),V(defg))
 14054	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 8)),V(defg))
 14055	  etst(vectorSubseq(W(2,abcdefg),N( 3),N( 9)),V(defg))
 14056	  etst(vectorSubseq(W(2,abcdefg),N( 3),N(10)),V(defg))
 14057	  etst(vectorSubseq(W(2,abcdefg),N( 4),N(-1)),V())
 14058	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 0)),V())
 14059	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 1)),V())
 14060	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 2)),V())
 14061	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 3)),V())
 14062	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 4)),V())
 14063	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 5)),V(e))
 14064	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 6)),V(ef))
 14065	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 7)),V(efg))
 14066	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 8)),V(efg))
 14067	  etst(vectorSubseq(W(2,abcdefg),N( 4),N( 9)),V(efg))
 14068	  etst(vectorSubseq(W(2,abcdefg),N( 4),N(10)),V(efg))
 14069	  etst(vectorSubseq(W(2,abcdefg),N( 5),N(-1)),V())
 14070	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 0)),V())
 14071	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 1)),V())
 14072	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 2)),V())
 14073	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 3)),V())
 14074	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 4)),V())
 14075	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 5)),V())
 14076	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 6)),V(f))
 14077	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 7)),V(fg))
 14078	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 8)),V(fg))
 14079	  etst(vectorSubseq(W(2,abcdefg),N( 5),N( 9)),V(fg))
 14080	  etst(vectorSubseq(W(2,abcdefg),N( 5),N(10)),V(fg))
 14081	  etst(vectorSubseq(W(2,abcdefg),N( 6),N(-1)),V())
 14082	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 0)),V())
 14083	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 1)),V())
 14084	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 2)),V())
 14085	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 3)),V())
 14086	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 4)),V())
 14087	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 5)),V())
 14088	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 6)),V())
 14089	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 7)),V(g))
 14090	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 8)),V(g))
 14091	  etst(vectorSubseq(W(2,abcdefg),N( 6),N( 9)),V(g))
 14092	  etst(vectorSubseq(W(2,abcdefg),N( 6),N(10)),V(g))
 14093	  etst(vectorSubseq(W(2,abcdefg),N( 7),N(-1)),V())
 14094	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 0)),V())
 14095	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 1)),V())
 14096	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 2)),V())
 14097	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 3)),V())
 14098	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 4)),V())
 14099	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 5)),V())
 14100	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 6)),V())
 14101	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 7)),V())
 14102	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 8)),V())
 14103	  etst(vectorSubseq(W(2,abcdefg),N( 7),N( 9)),V())
 14104	  etst(vectorSubseq(W(2,abcdefg),N( 7),N(10)),V())
 14105	  etst(vectorSubseq(W(2,abcdefg),N( 8),N(-1)),V())
 14106	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 0)),V())
 14107	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 1)),V())
 14108	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 2)),V())
 14109	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 3)),V())
 14110	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 4)),V())
 14111	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 5)),V())
 14112	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 6)),V())
 14113	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 7)),V())
 14114	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 8)),V())
 14115	  etst(vectorSubseq(W(2,abcdefg),N( 8),N( 9)),V())
 14116	  etst(vectorSubseq(W(2,abcdefg),N( 8),N(10)),V())
 14117	  etst(vectorSubseq(W(2,abcdefg),N( 9),N(-1)),V())
 14118	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 0)),V())
 14119	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 1)),V())
 14120	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 2)),V())
 14121	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 3)),V())
 14122	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 4)),V())
 14123	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 5)),V())
 14124	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 6)),V())
 14125	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 7)),V())
 14126	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 8)),V())
 14127	  etst(vectorSubseq(W(2,abcdefg),N( 9),N( 9)),V())
 14128	  etst(vectorSubseq(W(2,abcdefg),N( 9),N(10)),V())
 14129	  etst(vectorSubseq(W(2,abcdefg),N(10),N(-1)),V())
 14130	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 0)),V())
 14131	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 1)),V())
 14132	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 2)),V())
 14133	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 3)),V())
 14134	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 4)),V())
 14135	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 5)),V())
 14136	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 6)),V())
 14137	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 7)),V())
 14138	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 8)),V())
 14139	  etst(vectorSubseq(W(2,abcdefg),N(10),N( 9)),V())
 14140	  etst(vectorSubseq(W(2,abcdefg),N(10),N(10)),V())
 14141	
 14142	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N(-1)),V())
 14143	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 0)),V())
 14144	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 1)),V(a))
 14145	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 2)),V(ab))
 14146	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 3)),V(abc))
 14147	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 4)),V(abcd))
 14148	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 5)),V(abcde))
 14149	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 6)),V(abcdef))
 14150	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 7)),V(abcdefg))
 14151	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 8)),V(abcdefgh))
 14152	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N( 9)),V(abcdefghi))
 14153	  etst(vectorSubseq(W(255,abcdefghi),N(-1),N(10)),V(abcdefghi))
 14154	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N(-1)),V())
 14155	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 0)),V())
 14156	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 1)),V(a))
 14157	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 2)),V(ab))
 14158	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 3)),V(abc))
 14159	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 4)),V(abcd))
 14160	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 5)),V(abcde))
 14161	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 6)),V(abcdef))
 14162	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 7)),V(abcdefg))
 14163	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 8)),V(abcdefgh))
 14164	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N( 9)),V(abcdefghi))
 14165	  etst(vectorSubseq(W(255,abcdefghi),N( 0),N(10)),V(abcdefghi))
 14166	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N(-1)),V())
 14167	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 0)),V())
 14168	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 1)),V())
 14169	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 2)),V(b))
 14170	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 3)),V(bc))
 14171	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 4)),V(bcd))
 14172	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 5)),V(bcde))
 14173	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 6)),V(bcdef))
 14174	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 7)),V(bcdefg))
 14175	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 8)),V(bcdefgh))
 14176	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N( 9)),V(bcdefghi))
 14177	  etst(vectorSubseq(W(255,abcdefghi),N( 1),N(10)),V(bcdefghi))
 14178	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N(-1)),V())
 14179	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 0)),V())
 14180	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 1)),V())
 14181	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 2)),V())
 14182	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 3)),V(c))
 14183	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 4)),V(cd))
 14184	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 5)),V(cde))
 14185	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 6)),V(cdef))
 14186	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 7)),V(cdefg))
 14187	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 8)),V(cdefgh))
 14188	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N( 9)),V(cdefghi))
 14189	  etst(vectorSubseq(W(255,abcdefghi),N( 2),N(10)),V(cdefghi))
 14190	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N(-1)),V())
 14191	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 0)),V())
 14192	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 1)),V())
 14193	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 2)),V())
 14194	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 3)),V())
 14195	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 4)),V(d))
 14196	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 5)),V(de))
 14197	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 6)),V(def))
 14198	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 7)),V(defg))
 14199	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 8)),V(defgh))
 14200	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N( 9)),V(defghi))
 14201	  etst(vectorSubseq(W(255,abcdefghi),N( 3),N(10)),V(defghi))
 14202	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N(-1)),V())
 14203	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 0)),V())
 14204	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 1)),V())
 14205	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 2)),V())
 14206	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 3)),V())
 14207	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 4)),V())
 14208	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 5)),V(e))
 14209	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 6)),V(ef))
 14210	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 7)),V(efg))
 14211	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 8)),V(efgh))
 14212	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N( 9)),V(efghi))
 14213	  etst(vectorSubseq(W(255,abcdefghi),N( 4),N(10)),V(efghi))
 14214	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N(-1)),V())
 14215	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 0)),V())
 14216	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 1)),V())
 14217	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 2)),V())
 14218	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 3)),V())
 14219	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 4)),V())
 14220	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 5)),V())
 14221	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 6)),V(f))
 14222	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 7)),V(fg))
 14223	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 8)),V(fgh))
 14224	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N( 9)),V(fghi))
 14225	  etst(vectorSubseq(W(255,abcdefghi),N( 5),N(10)),V(fghi))
 14226	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N(-1)),V())
 14227	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 0)),V())
 14228	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 1)),V())
 14229	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 2)),V())
 14230	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 3)),V())
 14231	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 4)),V())
 14232	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 5)),V())
 14233	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 6)),V())
 14234	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 7)),V(g))
 14235	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 8)),V(gh))
 14236	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N( 9)),V(ghi))
 14237	  etst(vectorSubseq(W(255,abcdefghi),N( 6),N(10)),V(ghi))
 14238	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N(-1)),V())
 14239	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 0)),V())
 14240	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 1)),V())
 14241	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 2)),V())
 14242	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 3)),V())
 14243	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 4)),V())
 14244	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 5)),V())
 14245	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 6)),V())
 14246	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 7)),V())
 14247	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 8)),V(h))
 14248	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N( 9)),V(hi))
 14249	  etst(vectorSubseq(W(255,abcdefghi),N( 7),N(10)),V(hi))
 14250	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N(-1)),V())
 14251	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 0)),V())
 14252	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 1)),V())
 14253	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 2)),V())
 14254	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 3)),V())
 14255	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 4)),V())
 14256	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 5)),V())
 14257	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 6)),V())
 14258	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 7)),V())
 14259	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 8)),V())
 14260	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N( 9)),V(i))
 14261	  etst(vectorSubseq(W(255,abcdefghi),N( 8),N(10)),V(i))
 14262	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N(-1)),V())
 14263	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 0)),V())
 14264	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 1)),V())
 14265	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 2)),V())
 14266	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 3)),V())
 14267	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 4)),V())
 14268	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 5)),V())
 14269	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 6)),V())
 14270	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 7)),V())
 14271	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 8)),V())
 14272	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N( 9)),V())
 14273	  etst(vectorSubseq(W(255,abcdefghi),N( 9),N(10)),V())
 14274	  etst(vectorSubseq(W(255,abcdefghi),N(10),N(-1)),V())
 14275	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 0)),V())
 14276	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 1)),V())
 14277	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 2)),V())
 14278	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 3)),V())
 14279	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 4)),V())
 14280	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 5)),V())
 14281	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 6)),V())
 14282	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 7)),V())
 14283	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 8)),V())
 14284	  etst(vectorSubseq(W(255,abcdefghi),N(10),N( 9)),V())
 14285	  etst(vectorSubseq(W(255,abcdefghi),N(10),N(10)),V())
 14286	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N(-1)),V())
 14287	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 0)),V())
 14288	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 1)),V(a))
 14289	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 2)),V(ab))
 14290	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 3)),V(abc))
 14291	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 4)),V(abcd))
 14292	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 5)),V(abcde))
 14293	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 6)),V(abcdef))
 14294	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 7)),V(abcdefg))
 14295	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 8)),V(abcdefgh))
 14296	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N( 9)),V(abcdefgh))
 14297	  etst(vectorSubseq(W(255,abcdefgh),N(-1),N(10)),V(abcdefgh))
 14298	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N(-1)),V())
 14299	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 0)),V())
 14300	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 1)),V(a))
 14301	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 2)),V(ab))
 14302	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 3)),V(abc))
 14303	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 4)),V(abcd))
 14304	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 5)),V(abcde))
 14305	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 6)),V(abcdef))
 14306	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 7)),V(abcdefg))
 14307	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 8)),V(abcdefgh))
 14308	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N( 9)),V(abcdefgh))
 14309	  etst(vectorSubseq(W(255,abcdefgh),N( 0),N(10)),V(abcdefgh))
 14310	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N(-1)),V())
 14311	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 0)),V())
 14312	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 1)),V())
 14313	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 2)),V(b))
 14314	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 3)),V(bc))
 14315	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 4)),V(bcd))
 14316	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 5)),V(bcde))
 14317	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 6)),V(bcdef))
 14318	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 7)),V(bcdefg))
 14319	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 8)),V(bcdefgh))
 14320	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N( 9)),V(bcdefgh))
 14321	  etst(vectorSubseq(W(255,abcdefgh),N( 1),N(10)),V(bcdefgh))
 14322	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N(-1)),V())
 14323	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 0)),V())
 14324	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 1)),V())
 14325	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 2)),V())
 14326	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 3)),V(c))
 14327	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 4)),V(cd))
 14328	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 5)),V(cde))
 14329	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 6)),V(cdef))
 14330	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 7)),V(cdefg))
 14331	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 8)),V(cdefgh))
 14332	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N( 9)),V(cdefgh))
 14333	  etst(vectorSubseq(W(255,abcdefgh),N( 2),N(10)),V(cdefgh))
 14334	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N(-1)),V())
 14335	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 0)),V())
 14336	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 1)),V())
 14337	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 2)),V())
 14338	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 3)),V())
 14339	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 4)),V(d))
 14340	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 5)),V(de))
 14341	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 6)),V(def))
 14342	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 7)),V(defg))
 14343	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 8)),V(defgh))
 14344	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N( 9)),V(defgh))
 14345	  etst(vectorSubseq(W(255,abcdefgh),N( 3),N(10)),V(defgh))
 14346	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N(-1)),V())
 14347	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 0)),V())
 14348	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 1)),V())
 14349	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 2)),V())
 14350	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 3)),V())
 14351	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 4)),V())
 14352	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 5)),V(e))
 14353	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 6)),V(ef))
 14354	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 7)),V(efg))
 14355	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 8)),V(efgh))
 14356	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N( 9)),V(efgh))
 14357	  etst(vectorSubseq(W(255,abcdefgh),N( 4),N(10)),V(efgh))
 14358	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N(-1)),V())
 14359	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 0)),V())
 14360	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 1)),V())
 14361	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 2)),V())
 14362	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 3)),V())
 14363	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 4)),V())
 14364	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 5)),V())
 14365	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 6)),V(f))
 14366	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 7)),V(fg))
 14367	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 8)),V(fgh))
 14368	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N( 9)),V(fgh))
 14369	  etst(vectorSubseq(W(255,abcdefgh),N( 5),N(10)),V(fgh))
 14370	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N(-1)),V())
 14371	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 0)),V())
 14372	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 1)),V())
 14373	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 2)),V())
 14374	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 3)),V())
 14375	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 4)),V())
 14376	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 5)),V())
 14377	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 6)),V())
 14378	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 7)),V(g))
 14379	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 8)),V(gh))
 14380	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N( 9)),V(gh))
 14381	  etst(vectorSubseq(W(255,abcdefgh),N( 6),N(10)),V(gh))
 14382	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N(-1)),V())
 14383	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 0)),V())
 14384	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 1)),V())
 14385	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 2)),V())
 14386	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 3)),V())
 14387	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 4)),V())
 14388	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 5)),V())
 14389	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 6)),V())
 14390	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 7)),V())
 14391	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 8)),V(h))
 14392	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N( 9)),V(h))
 14393	  etst(vectorSubseq(W(255,abcdefgh),N( 7),N(10)),V(h))
 14394	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N(-1)),V())
 14395	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 0)),V())
 14396	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 1)),V())
 14397	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 2)),V())
 14398	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 3)),V())
 14399	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 4)),V())
 14400	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 5)),V())
 14401	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 6)),V())
 14402	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 7)),V())
 14403	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 8)),V())
 14404	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N( 9)),V())
 14405	  etst(vectorSubseq(W(255,abcdefgh),N( 8),N(10)),V())
 14406	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N(-1)),V())
 14407	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 0)),V())
 14408	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 1)),V())
 14409	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 2)),V())
 14410	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 3)),V())
 14411	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 4)),V())
 14412	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 5)),V())
 14413	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 6)),V())
 14414	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 7)),V())
 14415	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 8)),V())
 14416	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N( 9)),V())
 14417	  etst(vectorSubseq(W(255,abcdefgh),N( 9),N(10)),V())
 14418	  etst(vectorSubseq(W(255,abcdefgh),N(10),N(-1)),V())
 14419	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 0)),V())
 14420	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 1)),V())
 14421	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 2)),V())
 14422	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 3)),V())
 14423	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 4)),V())
 14424	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 5)),V())
 14425	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 6)),V())
 14426	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 7)),V())
 14427	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 8)),V())
 14428	  etst(vectorSubseq(W(255,abcdefgh),N(10),N( 9)),V())
 14429	  etst(vectorSubseq(W(255,abcdefgh),N(10),N(10)),V())
 14430	  etst(vectorSubseq(W(255,abcdefg),N(-1),N(-1)),V())
 14431	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 0)),V())
 14432	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 1)),V(a))
 14433	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 2)),V(ab))
 14434	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 3)),V(abc))
 14435	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 4)),V(abcd))
 14436	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 5)),V(abcde))
 14437	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 6)),V(abcdef))
 14438	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 7)),V(abcdefg))
 14439	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 8)),V(abcdefg))
 14440	  etst(vectorSubseq(W(255,abcdefg),N(-1),N( 9)),V(abcdefg))
 14441	  etst(vectorSubseq(W(255,abcdefg),N(-1),N(10)),V(abcdefg))
 14442	  etst(vectorSubseq(W(255,abcdefg),N( 0),N(-1)),V())
 14443	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 0)),V())
 14444	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 1)),V(a))
 14445	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 2)),V(ab))
 14446	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 3)),V(abc))
 14447	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 4)),V(abcd))
 14448	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 5)),V(abcde))
 14449	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 6)),V(abcdef))
 14450	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 7)),V(abcdefg))
 14451	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 8)),V(abcdefg))
 14452	  etst(vectorSubseq(W(255,abcdefg),N( 0),N( 9)),V(abcdefg))
 14453	  etst(vectorSubseq(W(255,abcdefg),N( 0),N(10)),V(abcdefg))
 14454	  etst(vectorSubseq(W(255,abcdefg),N( 1),N(-1)),V())
 14455	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 0)),V())
 14456	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 1)),V())
 14457	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 2)),V(b))
 14458	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 3)),V(bc))
 14459	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 4)),V(bcd))
 14460	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 5)),V(bcde))
 14461	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 6)),V(bcdef))
 14462	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 7)),V(bcdefg))
 14463	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 8)),V(bcdefg))
 14464	  etst(vectorSubseq(W(255,abcdefg),N( 1),N( 9)),V(bcdefg))
 14465	  etst(vectorSubseq(W(255,abcdefg),N( 1),N(10)),V(bcdefg))
 14466	  etst(vectorSubseq(W(255,abcdefg),N( 2),N(-1)),V())
 14467	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 0)),V())
 14468	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 1)),V())
 14469	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 2)),V())
 14470	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 3)),V(c))
 14471	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 4)),V(cd))
 14472	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 5)),V(cde))
 14473	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 6)),V(cdef))
 14474	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 7)),V(cdefg))
 14475	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 8)),V(cdefg))
 14476	  etst(vectorSubseq(W(255,abcdefg),N( 2),N( 9)),V(cdefg))
 14477	  etst(vectorSubseq(W(255,abcdefg),N( 2),N(10)),V(cdefg))
 14478	  etst(vectorSubseq(W(255,abcdefg),N( 3),N(-1)),V())
 14479	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 0)),V())
 14480	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 1)),V())
 14481	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 2)),V())
 14482	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 3)),V())
 14483	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 4)),V(d))
 14484	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 5)),V(de))
 14485	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 6)),V(def))
 14486	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 7)),V(defg))
 14487	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 8)),V(defg))
 14488	  etst(vectorSubseq(W(255,abcdefg),N( 3),N( 9)),V(defg))
 14489	  etst(vectorSubseq(W(255,abcdefg),N( 3),N(10)),V(defg))
 14490	  etst(vectorSubseq(W(255,abcdefg),N( 4),N(-1)),V())
 14491	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 0)),V())
 14492	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 1)),V())
 14493	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 2)),V())
 14494	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 3)),V())
 14495	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 4)),V())
 14496	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 5)),V(e))
 14497	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 6)),V(ef))
 14498	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 7)),V(efg))
 14499	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 8)),V(efg))
 14500	  etst(vectorSubseq(W(255,abcdefg),N( 4),N( 9)),V(efg))
 14501	  etst(vectorSubseq(W(255,abcdefg),N( 4),N(10)),V(efg))
 14502	  etst(vectorSubseq(W(255,abcdefg),N( 5),N(-1)),V())
 14503	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 0)),V())
 14504	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 1)),V())
 14505	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 2)),V())
 14506	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 3)),V())
 14507	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 4)),V())
 14508	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 5)),V())
 14509	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 6)),V(f))
 14510	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 7)),V(fg))
 14511	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 8)),V(fg))
 14512	  etst(vectorSubseq(W(255,abcdefg),N( 5),N( 9)),V(fg))
 14513	  etst(vectorSubseq(W(255,abcdefg),N( 5),N(10)),V(fg))
 14514	  etst(vectorSubseq(W(255,abcdefg),N( 6),N(-1)),V())
 14515	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 0)),V())
 14516	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 1)),V())
 14517	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 2)),V())
 14518	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 3)),V())
 14519	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 4)),V())
 14520	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 5)),V())
 14521	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 6)),V())
 14522	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 7)),V(g))
 14523	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 8)),V(g))
 14524	  etst(vectorSubseq(W(255,abcdefg),N( 6),N( 9)),V(g))
 14525	  etst(vectorSubseq(W(255,abcdefg),N( 6),N(10)),V(g))
 14526	  etst(vectorSubseq(W(255,abcdefg),N( 7),N(-1)),V())
 14527	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 0)),V())
 14528	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 1)),V())
 14529	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 2)),V())
 14530	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 3)),V())
 14531	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 4)),V())
 14532	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 5)),V())
 14533	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 6)),V())
 14534	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 7)),V())
 14535	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 8)),V())
 14536	  etst(vectorSubseq(W(255,abcdefg),N( 7),N( 9)),V())
 14537	  etst(vectorSubseq(W(255,abcdefg),N( 7),N(10)),V())
 14538	  etst(vectorSubseq(W(255,abcdefg),N( 8),N(-1)),V())
 14539	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 0)),V())
 14540	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 1)),V())
 14541	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 2)),V())
 14542	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 3)),V())
 14543	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 4)),V())
 14544	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 5)),V())
 14545	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 6)),V())
 14546	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 7)),V())
 14547	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 8)),V())
 14548	  etst(vectorSubseq(W(255,abcdefg),N( 8),N( 9)),V())
 14549	  etst(vectorSubseq(W(255,abcdefg),N( 8),N(10)),V())
 14550	  etst(vectorSubseq(W(255,abcdefg),N( 9),N(-1)),V())
 14551	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 0)),V())
 14552	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 1)),V())
 14553	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 2)),V())
 14554	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 3)),V())
 14555	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 4)),V())
 14556	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 5)),V())
 14557	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 6)),V())
 14558	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 7)),V())
 14559	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 8)),V())
 14560	  etst(vectorSubseq(W(255,abcdefg),N( 9),N( 9)),V())
 14561	  etst(vectorSubseq(W(255,abcdefg),N( 9),N(10)),V())
 14562	  etst(vectorSubseq(W(255,abcdefg),N(10),N(-1)),V())
 14563	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 0)),V())
 14564	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 1)),V())
 14565	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 2)),V())
 14566	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 3)),V())
 14567	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 4)),V())
 14568	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 5)),V())
 14569	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 6)),V())
 14570	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 7)),V())
 14571	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 8)),V())
 14572	  etst(vectorSubseq(W(255,abcdefg),N(10),N( 9)),V())
 14573	  etst(vectorSubseq(W(255,abcdefg),N(10),N(10)),V())
 14574	
 14575	  xtst(vector2bytes(TT))
 14576	  xtst(vector2bytes(FF))
 14577	  xtst(vector2bytes(P0))
 14578	  xtst(vector2bytes(M0))
 14579	  xtst(vector2bytes(B0))
 14580	  etst(vector2bytes(M),T)
 14581	  etst(vector2bytes(N(-1000000000000000000000000)),T)
 14582	  etst(vector2bytes(N(0)),T)
 14583	  etst(vector2bytes(N(1)),T)
 14584	  etst(vector2bytes(N(255)),T)
 14585	  etst(vector2bytes(N(256)),PAIR(N(0),T))
 14586	  etst(vector2bytes(N(65537)),PAIR(N(1),PAIR(N(0),T)))
 14587	  etst(vector2bytes(V(ABCDEFGHIJ)),
 14588	  PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),
 14589	  PAIR(N(70),PAIR(N(71),PAIR(N(72),PAIR(N(73),PAIR(N(74),T)))))))))))
 14590	  etst(vector2bytes(V(ABCDEFGHI)),
 14591	  PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),
 14592	  PAIR(N(70),PAIR(N(71),PAIR(N(72),PAIR(N(73),T))))))))))
 14593	  etst(vector2bytes(V(ABCDEFGH)),
 14594	  PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),
 14595	  PAIR(N(70),PAIR(N(71),PAIR(N(72),T)))))))))
 14596	  etst(vector2bytes(V(ABCDEFG)),
 14597	  PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),
 14598	  PAIR(N(70),PAIR(N(71),T))))))))
 14599	  etst(vector2bytes(V(ABCDEF)),
 14600	  PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),PAIR(N(70),T)))))))
 14601	  etst(vector2bytes(V(ABCDE)),
 14602	  PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),T))))))
 14603	  etst(vector2bytes(V(ABCD)),
 14604	  PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),T)))))
 14605	  etst(vector2bytes(V(ABC)),PAIR(N(65),PAIR(N(66),PAIR(N(67),T))))
 14606	  etst(vector2bytes(V(AB)),PAIR(N(65),PAIR(N(66),T)))
 14607	  etst(vector2bytes(V(A)),PAIR(N(65),T))
 14608	  etst(vector2bytes(V()),T)
 14609	
 14610	  xtst(vector2vects(TT))
 14611	  xtst(vector2vects(FF))
 14612	  xtst(vector2vects(P0))
 14613	  xtst(vector2vects(M0))
 14614	  xtst(vector2vects(B0))
 14615	  etst(vector2vects(M),T)
 14616	  etst(vector2vects(N(-1000000000000000000000000)),T)
 14617	  etst(vector2vects(N(0)),T)
 14618	  etst(vector2vects(N(1)),T)
 14619	  etst(vector2vects(N(255)),T)
 14620	  etst(vector2vects(N(321)),PAIR(V(A),T))
 14621	  etst(vector2vects(N(82497)),PAIR(V(A),PAIR(V(B),T)))
 14622	  etst(vector2vects(V(ABCDEFGHIJ)),
 14623	  PAIR(V(A),PAIR(V(B),PAIR(V(C),PAIR(V(D),PAIR(V(E),
 14624	  PAIR(V(F),PAIR(V(G),PAIR(V(H),PAIR(V(I),PAIR(V(J),T)))))))))))
 14625	  etst(vector2vects(V(ABCDEFGHI)),
 14626	  PAIR(V(A),PAIR(V(B),PAIR(V(C),PAIR(V(D),PAIR(V(E),
 14627	  PAIR(V(F),PAIR(V(G),PAIR(V(H),PAIR(V(I),T))))))))))
 14628	  etst(vector2vects(V(ABCDEFGH)),
 14629	  PAIR(V(A),PAIR(V(B),PAIR(V(C),PAIR(V(D),PAIR(V(E),
 14630	  PAIR(V(F),PAIR(V(G),PAIR(V(H),T)))))))))
 14631	  etst(vector2vects(V(ABCDEFG)),
 14632	  PAIR(V(A),PAIR(V(B),PAIR(V(C),PAIR(V(D),PAIR(V(E),
 14633	  PAIR(V(F),PAIR(V(G),T))))))))
 14634	  etst(vector2vects(V(ABCDEF)),
 14635	  PAIR(V(A),PAIR(V(B),PAIR(V(C),PAIR(V(D),PAIR(V(E),PAIR(V(F),T)))))))
 14636	  etst(vector2vects(V(ABCDE)),
 14637	  PAIR(V(A),PAIR(V(B),PAIR(V(C),PAIR(V(D),PAIR(V(E),T))))))
 14638	  etst(vector2vects(V(ABCD)),PAIR(V(A),PAIR(V(B),PAIR(V(C),PAIR(V(D),T)))))
 14639	  etst(vector2vects(V(ABC)),PAIR(V(A),PAIR(V(B),PAIR(V(C),T))))
 14640	  etst(vector2vects(V(AB)),PAIR(V(A),PAIR(V(B),T)))
 14641	  etst(vector2vects(V(A)),PAIR(V(A),T))
 14642	
 14643	  etst(bt2bytes(T),T)
 14644	  etst(bt2bytes(F),T)
 14645	  etst(bt2bytes(M0),T)
 14646	  etst(bt2bytes(B0),T)
 14647	  etst(bt2bytes(N(-1)),T)
 14648	  etst(bt2bytes(N(0)),PAIR(N(0),T))
 14649	  etst(bt2bytes(N(255)),PAIR(N(255),T))
 14650	  etst(bt2bytes(N(256)),T)
 14651	  etst(bt2bytes(V()),PAIR(N(1),T))
 14652	  etst(bt2bytes(PAIR(N(1),N(2))),PAIR(N(1),PAIR(N(2),T)))
 14653	  etst(bt2bytes(PAIR(PAIR(N(1),N(-1)),PAIR(B0,N(100)))),
 14654	    PAIR(N(1),PAIR(N(100),T)))
 14655	
 14656	  etst(bt2vects(T),T)
 14657	  etst(bt2vects(F),T)
 14658	  etst(bt2vects(M0),T)
 14659	  etst(bt2vects(B0),T)
 14660	  etst(bt2vects(N(-1)),T)
 14661	  etst(bt2vects(N(0)),PAIR(bytevect[0],T))
 14662	  etst(bt2vects(N(255)),PAIR(bytevect[255],T))
 14663	  etst(bt2vects(N(256)),T)
 14664	  etst(bt2vects(V()),PAIR(bytevect[1],T))
 14665	  etst(bt2vects(PAIR(N(65),N(66))),PAIR(V(A),PAIR(V(B),T)))
 14666	  etst(bt2vects(PAIR(PAIR(N(65),N(-1)),PAIR(B0,N(66)))),
 14667	    PAIR(V(A),PAIR(V(B),T)))
 14668	
 14669	  etst(vt2bytes(T),T)
 14670	  etst(vt2bytes(F),T)
 14671	  etst(vt2bytes(M0),T)
 14672	  etst(vt2bytes(B0),T)
 14673	  etst(vt2bytes(N(-1)),T)
 14674	  etst(vt2bytes(N(0)),T)
 14675	  etst(vt2bytes(N(1)),T)
 14676	  etst(vt2bytes(N(255)),T)
 14677	  etst(vt2bytes(N(256)),PAIR(N(0),T))
 14678	  etst(vt2bytes(N(513)),PAIR(N(1),T))
 14679	  etst(vt2bytes(V()),T)
 14680	  etst(vt2bytes(V(abc)),PAIR(N(97),PAIR(N(98),PAIR(N(99),T))))
 14681	  etst(vt2bytes(PAIR(V(ab),V(c))),PAIR(N(97),PAIR(N(98),PAIR(N(99),T))))
 14682	  etst(vt2bytes(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc)))),
 14683	    PAIR(N(97),PAIR(N(98),PAIR(N(99),T))))
 14684	
 14685	  etst(vt2vects(T),T)
 14686	  etst(vt2vects(F),T)
 14687	  etst(vt2vects(M0),T)
 14688	  etst(vt2vects(B0),T)
 14689	  etst(vt2vects(N(-1)),T)
 14690	  etst(vt2vects(N(0)),T)
 14691	  etst(vt2vects(N(1)),T)
 14692	  etst(vt2vects(N(255)),T)
 14693	  etst(vt2vects(N(256)),PAIR(bytevect[0],T))
 14694	  etst(vt2vects(N(513)),PAIR(bytevect[1],T))
 14695	  etst(vt2vects(V()),T)
 14696	  etst(vt2vects(V(abc)),PAIR(V(a),PAIR(V(b),PAIR(V(c),T))))
 14697	  etst(vt2vects(PAIR(V(ab),V(c))),PAIR(V(a),PAIR(V(b),PAIR(V(c),T))))
 14698	  etst(vt2vects(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc)))),
 14699	    PAIR(V(a),PAIR(V(b),PAIR(V(c),T))))
 14700	
 14701	  etst(bytes2vector(1,vector2bytes(V())),V())
 14702	  etst(bytes2vector(1,vector2bytes(V(a))),V(a))
 14703	  etst(bytes2vector(1,vector2bytes(V(ab))),V(ab))
 14704	  etst(bytes2vector(1,vector2bytes(V(abc))),V(abc))
 14705	  etst(bytes2vector(1,vector2bytes(V(abcd))),V(abcd))
 14706	  etst(bytes2vector(1,vector2bytes(V(abcde))),V(abcde))
 14707	  etst(bytes2vector(1,vector2bytes(V(abcdef))),V(abcdef))
 14708	  etst(bytes2vector(1,vector2bytes(V(abcdefg))),V(abcdefg))
 14709	  etst(bytes2vector(1,vector2bytes(V(abcdefgh))),V(abcdefgh))
 14710	  etst(bytes2vector(1,vector2bytes(V(abcdefghi))),V(abcdefghi))
 14711	
 14712	  etst(bt2vector(T),E)
 14713	  etst(bt2vector(F),E)
 14714	  etst(bt2vector(M0),E)
 14715	  etst(bt2vector(B0),E)
 14716	  etst(bt2vector(N(-1)),E)
 14717	  etst(bt2vector(N(0)),N(256))
 14718	  etst(bt2vector(N(255)),N(511))
 14719	  etst(bt2vector(N(256)),E)
 14720	  etst(bt2vector(V()),N(257))
 14721	  etst(bt2vector(PAIR(N(97),N(98))),V(ab))
 14722	  etst(bt2vector(PAIR(PAIR(N(97),N(-1)),PAIR(B0,N(98)))),V(ab))
 14723	
 14724	  etst(vt2vector(T),E)
 14725	  etst(vt2vector(F),E)
 14726	  etst(vt2vector(M0),E)
 14727	  etst(vt2vector(B0),E)
 14728	  etst(vt2vector(N(-1)),E)
 14729	  etst(vt2vector(N(0)),E)
 14730	  etst(vt2vector(N(1)),E)
 14731	  etst(vt2vector(N(255)),E)
 14732	  etst(vt2vector(N(256)),N(256))
 14733	  etst(vt2vector(N(513)),N(257))
 14734	  etst(vt2vector(V()),E)
 14735	  etst(vt2vector(V(abc)),V(abc))
 14736	  etst(vt2vector(PAIR(V(ab),V(c))),V(abc))
 14737	  etst(vt2vector(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc)))),V(abc))
 14738	
 14739	  etst(spy(T),V(spy))
 14740	  etst(trace(T),V(trace))
 14741	  etst(print(T),V(print))
 14742	  etst(timer(T),V(timer))
 14743	
 14744	/*
 14745	---------------------------------------------
 14746	Test of truth and falsehood
 14747	---------------------------------------------
 14748	*/
 14749	
 14750	  ntst(term2rnf(term_t,NIL))
 14751	  ptst(term2rnf(term_lambda(term_t),NIL))
 14752	
 14753	  ntst(term_eval(term_t))
 14754	  ptst(term_eval(term_lambda(term_t)))
 14755	  ptst(term_eval(term_f))
 14756	
 14757	/*
 14758	---------------------------------------------
 14759	Test of variables
 14760	---------------------------------------------
 14761	*/
 14762	
 14763	  ntst(term_eval2(var_0,term_t,term_t))
 14764	  ntst(term_eval2(var_0,term_t,term_f))
 14765	  ptst(term_eval2(var_0,term_f,term_t))
 14766	  ptst(term_eval2(var_0,term_f,term_f))
 14767	
 14768	  ntst(term_eval2(var_1,term_t,term_t))
 14769	  ptst(term_eval2(var_1,term_t,term_f))
 14770	  ntst(term_eval2(var_1,term_f,term_t))
 14771	  ptst(term_eval2(var_1,term_f,term_f))
 14772	
 14773	  ntst(term_eval2(var_2,term_t,term_t))
 14774	  ntst(term_eval2(var_2,term_t,term_f))
 14775	  ntst(term_eval2(var_2,term_f,term_t))
 14776	  ntst(term_eval2(var_2,term_f,term_f))
 14777	
 14778	/*
 14779	---------------------------------------------
 14780	Test of selection
 14781	---------------------------------------------
 14782	*/
 14783	
 14784	  ntst(term_eval(term_if(term_t,term_t,term_t)))
 14785	  ntst(term_eval(term_if(term_t,term_t,term_f)))
 14786	  ptst(term_eval(term_if(term_t,term_f,term_t)))
 14787	  ptst(term_eval(term_if(term_t,term_f,term_f)))
 14788	  ntst(term_eval(term_if(term_f,term_t,term_t)))
 14789	  ptst(term_eval(term_if(term_f,term_t,term_f)))
 14790	  ntst(term_eval(term_if(term_f,term_f,term_t)))
 14791	  ptst(term_eval(term_if(term_f,term_f,term_f)))
 14792	
 14793	/*
 14794	---------------------------------------------
 14795	Test of selection/variables
 14796	---------------------------------------------
 14797	*/
 14798	
 14799	  ntst(term_eval3(term_if(var_0,var_1,var_2),term_t,term_t,term_t))
 14800	  ntst(term_eval3(term_if(var_0,var_1,var_2),term_t,term_t,term_f))
 14801	  ptst(term_eval3(term_if(var_0,var_1,var_2),term_t,term_f,term_t))
 14802	  ptst(term_eval3(term_if(var_0,var_1,var_2),term_t,term_f,term_f))
 14803	  ntst(term_eval3(term_if(var_0,var_1,var_2),term_f,term_t,term_t))
 14804	  ptst(term_eval3(term_if(var_0,var_1,var_2),term_f,term_t,term_f))
 14805	  ntst(term_eval3(term_if(var_0,var_1,var_2),term_f,term_f,term_t))
 14806	  ptst(term_eval3(term_if(var_0,var_1,var_2),term_f,term_f,term_f))
 14807	
 14808	/*
 14809	---------------------------------------------
 14810	Test of apply/lambda
 14811	---------------------------------------------
 14812	*/
 14813	
 14814	  ntst(term_eval1(term_apply(term_lambda(var_0),term_t),term_t))
 14815	  ntst(term_eval1(term_apply(term_lambda(var_0),term_t),term_f))
 14816	  ptst(term_eval1(term_apply(term_lambda(var_0),term_f),term_t))
 14817	  ptst(term_eval1(term_apply(term_lambda(var_0),term_f),term_f))
 14818	
 14819	  ntst(term_eval1(term_apply(term_lambda(term_t),term_t),term_t))
 14820	  ntst(term_eval1(term_apply(term_lambda(term_t),term_t),term_f))
 14821	  ntst(term_eval1(term_apply(term_lambda(term_t),term_f),term_t))
 14822	  ntst(term_eval1(term_apply(term_lambda(term_t),term_f),term_f))
 14823	
 14824	  ptst(term_eval1(term_apply(term_lambda(term_f),term_t),term_t))
 14825	  ptst(term_eval1(term_apply(term_lambda(term_f),term_t),term_f))
 14826	  ptst(term_eval1(term_apply(term_lambda(term_f),term_f),term_t))
 14827	  ptst(term_eval1(term_apply(term_lambda(term_f),term_f),term_f))
 14828	
 14829	  ntst(term_eval1(term_apply(term_lambda(var_1),term_t),term_t))
 14830	  ptst(term_eval1(term_apply(term_lambda(var_1),term_t),term_f))
 14831	  ntst(term_eval1(term_apply(term_lambda(var_1),term_f),term_t))
 14832	  ptst(term_eval1(term_apply(term_lambda(var_1),term_f),term_f))
 14833	
 14834	/*
 14835	---------------------------------------------
 14836	Test of Curried functions
 14837	---------------------------------------------
 14838	*/
 14839	
 14840	  ntst(term_eval(term_apply(term_apply(term_k,term_t),term_t)))
 14841	  ntst(term_eval(term_apply(term_apply(term_k,term_t),term_f)))
 14842	  ptst(term_eval(term_apply(term_apply(term_k,term_f),term_t)))
 14843	  ptst(term_eval(term_apply(term_apply(term_k,term_f),term_f)))
 14844	
 14845	  ntst(term_eval(term_apply(term_apply(term_ki,term_t),term_t)))
 14846	  ptst(term_eval(term_apply(term_apply(term_ki,term_t),term_f)))
 14847	  ntst(term_eval(term_apply(term_apply(term_ki,term_f),term_t)))
 14848	  ptst(term_eval(term_apply(term_apply(term_ki,term_f),term_f)))
 14849	
 14850	/*
 14851	---------------------------------------------
 14852	Test of unoptimized pair function
 14853	---------------------------------------------
 14854	*/
 14855	
 14856	  ntst(term_eval(term_hd(term_p(term_t,term_t))))
 14857	  ntst(term_eval(term_hd(term_p(term_t,term_f))))
 14858	  ptst(term_eval(term_hd(term_p(term_f,term_t))))
 14859	  ptst(term_eval(term_hd(term_p(term_f,term_f))))
 14860	  ntst(term_eval(term_tl(term_p(term_t,term_t))))
 14861	  ptst(term_eval(term_tl(term_p(term_t,term_f))))
 14862	  ntst(term_eval(term_tl(term_p(term_f,term_t))))
 14863	  ptst(term_eval(term_tl(term_p(term_f,term_f))))
 14864	
 14865	/*
 14866	---------------------------------------------
 14867	Test of fixed point combinator
 14868	---------------------------------------------
 14869	*/
 14870	
 14871	  ntst(term_eval(term_apply(term_y,term_t)))
 14872	  ntst(term_eval(term_apply(term_y,term_f)))
 14873	  ptst(term_eval(term_yk))
 14874	  ptst(term_eval(term_apply(term_yk,term_t)))
 14875	  ptst(term_eval(term_apply(term_yk,term_f)))
 14876	  ptst(term_eval(term_apply(term_apply(term_yk,term_t),term_t)))
 14877	  ptst(term_eval(term_apply(term_apply(term_yk,term_f),term_f)))
 14878	  ptst(term_eval(term_yki))
 14879	  ntst(term_eval(term_apply(term_yki,term_t)))
 14880	  ptst(term_eval(term_apply(term_yki,term_f)))
 14881	
 14882	/*
 14883	---------------------------------------------
 14884	Test of delay_apply
 14885	---------------------------------------------
 14886	*/
 14887	
 14888	  ntst(map2rnf(delay_apply(map_pair(map_t,map_t),map_t)))
 14889	  ntst(map2rnf(delay_apply(map_pair(map_t,map_t),map_f)))
 14890	  ntst(map2rnf(delay_apply(map_pair(map_t,map_f),map_t)))
 14891	  ptst(map2rnf(delay_apply(map_pair(map_t,map_f),map_f)))
 14892	  ptst(map2rnf(delay_apply(map_pair(map_f,map_t),map_t)))
 14893	  ntst(map2rnf(delay_apply(map_pair(map_f,map_t),map_f)))
 14894	  ptst(map2rnf(delay_apply(map_pair(map_f,map_f),map_t)))
 14895	  ptst(map2rnf(delay_apply(map_pair(map_f,map_f),map_f)))
 14896	
 14897	  ntst(map2rnf(delay_apply(map_pair(UT,UB),UT)))
 14898	  ptst(map2rnf(delay_apply(map_pair(UF,UB),UT)))
 14899	  ntst(map2rnf(delay_apply(map_pair(UB,UT),UF)))
 14900	  ptst(map2rnf(delay_apply(map_pair(UB,UF),UF)))
 14901	
 14902	/* The following tests loop indefinitely:
 14903	  ntst(map2rnf(delay_apply(map_pair(UB,UT),UT)))
 14904	  ntst(map2rnf(delay_apply(map_pair(UT,UB),UF)))
 14905	*/
 14906	
 14907	/*
 14908	---------------------------------------------
 14909	Test of call
 14910	---------------------------------------------
 14911	*/
 14912	
 14913	  ntst(term_eval(term_call(var_0,pair(term_t,pair(term_t,NIL)))))
 14914	  ptst(term_eval(term_call(var_0,pair(term_f,pair(term_t,NIL)))))
 14915	  ntst(term_eval(term_call(var_0,pair(term_t,pair(term_f,NIL)))))
 14916	  ptst(term_eval(term_call(var_0,pair(term_f,pair(term_f,NIL)))))
 14917	
 14918	  ntst(term_eval(term_call(var_1,pair(term_t,pair(term_t,NIL)))))
 14919	  ntst(term_eval(term_call(var_1,pair(term_f,pair(term_t,NIL)))))
 14920	  ptst(term_eval(term_call(var_1,pair(term_t,pair(term_f,NIL)))))
 14921	  ptst(term_eval(term_call(var_1,pair(term_f,pair(term_f,NIL)))))
 14922	
 14923	  ntst(term_eval(term_call(var_2,pair(term_t,pair(term_t,NIL)))))
 14924	  ntst(term_eval(term_call(var_2,pair(term_f,pair(term_t,NIL)))))
 14925	  ntst(term_eval(term_call(var_2,pair(term_t,pair(term_f,NIL)))))
 14926	  ntst(term_eval(term_call(var_2,pair(term_f,pair(term_f,NIL)))))
 14927	
 14928	  ntst(term_eval(term_call(call_if,pair(term_t,pair(term_t,pair(term_t,NIL))))))
 14929	  ntst(term_eval(term_call(call_if,pair(term_t,pair(term_t,pair(term_f,NIL))))))
 14930	  ptst(term_eval(term_call(call_if,pair(term_t,pair(term_f,pair(term_t,NIL))))))
 14931	  ptst(term_eval(term_call(call_if,pair(term_t,pair(term_f,pair(term_f,NIL))))))
 14932	  ntst(term_eval(term_call(call_if,pair(term_f,pair(term_t,pair(term_t,NIL))))))
 14933	  ptst(term_eval(term_call(call_if,pair(term_f,pair(term_t,pair(term_f,NIL))))))
 14934	  ntst(term_eval(term_call(call_if,pair(term_f,pair(term_f,pair(term_t,NIL))))))
 14935	  ptst(term_eval(term_call(call_if,pair(term_f,pair(term_f,pair(term_f,NIL))))))
 14936	
 14937	  ntst(map_apply(map_pair(map_t,map_t),map_t))
 14938	  ntst(map_apply(map_pair(map_t,map_t),map_f))
 14939	  ntst(map_apply(map_pair(map_t,map_f),map_t))
 14940	  ptst(map_apply(map_pair(map_t,map_f),map_f))
 14941	  ptst(map_apply(map_pair(map_f,map_t),map_t))
 14942	  ntst(map_apply(map_pair(map_f,map_t),map_f))
 14943	  ptst(map_apply(map_pair(map_f,map_f),map_t))
 14944	  ptst(map_apply(map_pair(map_f,map_f),map_f))
 14945	
 14946	  ntst(term_eval(CALL_HEAD(term_const(map_pair(map_t,map_t)))))
 14947	  ntst(term_eval(CALL_HEAD(term_const(map_pair(map_t,map_f)))))
 14948	  ptst(term_eval(CALL_HEAD(term_const(map_pair(map_f,map_t)))))
 14949	  ptst(term_eval(CALL_HEAD(term_const(map_pair(map_f,map_f)))))
 14950	
 14951	  ntst(map_apply(lambda_head,map_pair(map_t,map_t)))
 14952	  ntst(map_apply(lambda_head,map_pair(map_t,map_f)))
 14953	  ptst(map_apply(lambda_head,map_pair(map_f,map_t)))
 14954	  ptst(map_apply(lambda_head,map_pair(map_f,map_f)))
 14955	
 14956	/*
 14957	---------------------------------------------
 14958	Test of ecall
 14959	---------------------------------------------
 14960	*/
 14961	
 14962	  ttst(term_eval(term_ecall2(V0,term_t,term_t)))
 14963	  ftst(term_eval(term_ecall2(V0,term_f,term_t)))
 14964	  ttst(term_eval(term_ecall2(V0,term_t,term_f)))
 14965	  ftst(term_eval(term_ecall2(V0,term_f,term_f)))
 14966	
 14967	  ttst(term_eval(term_ecall2(V1,term_t,term_t)))
 14968	  ttst(term_eval(term_ecall2(V1,term_f,term_t)))
 14969	  ftst(term_eval(term_ecall2(V1,term_t,term_f)))
 14970	  ftst(term_eval(term_ecall2(V1,term_f,term_f)))
 14971	
 14972	  etst(F,term_eval(term_ecall2(V0,term_pair(term_f,term_f),term_t)))
 14973	
 14974	  etst(Z1,term_eval(term_ecall2(E3(if,TT,Z1,Z2),term_t,term_f)))
 14975	  etst(Z2,term_eval(term_ecall2(E3(if,FF,Z1,Z2),term_t,term_f)))
 14976	  etst(Z1,term_eval(term_ecall2(E3(if,V0,Z1,Z2),term_t,term_f)))
 14977	  etst(Z2,term_eval(term_ecall2(E3(if,V1,Z1,Z2),term_t,term_f)))
 14978	
 14979	/*
 14980	---------------------------------------------
 14981	Test of fct
 14982	---------------------------------------------
 14983	*/
 14984	
 14985	  ftst(root(fct_if))
 14986	  ftst(root(apply(fct_if,MT)))
 14987	  ftst(root(apply(apply(fct_if,MT),MT)))
 14988	  ttst(root(apply(apply(apply(fct_if,MT),MT),MT)))
 14989	  ttst(root(apply(apply(apply(fct_if,MT),MT),MF)))
 14990	  ftst(root(apply(apply(apply(fct_if,MT),MF),MT)))
 14991	  ftst(root(apply(apply(apply(fct_if,MT),MF),MF)))
 14992	  ttst(root(apply(apply(apply(fct_if,MF),MT),MT)))
 14993	  ftst(root(apply(apply(apply(fct_if,MF),MT),MF)))
 14994	  ttst(root(apply(apply(apply(fct_if,MF),MF),MT)))
 14995	  ftst(root(apply(apply(apply(fct_if,MF),MF),MF)))
 14996	
 14997	  ftst(root(fct_apply))
 14998	  ftst(root(apply(fct_apply,MKI)))
 14999	  ttst(root(apply(apply(fct_apply,MT),MT)))
 15000	  ttst(root(apply(apply(fct_apply,MT),MF)))
 15001	  ttst(root(apply(apply(fct_apply,MT),MI)))
 15002	  ttst(root(apply(apply(fct_apply,MF),MT)))
 15003	  ttst(root(apply(apply(fct_apply,MF),MF)))
 15004	  ttst(root(apply(apply(fct_apply,MF),MI)))
 15005	  ttst(root(apply(apply(fct_apply,MI),MT)))
 15006	  ftst(root(apply(apply(fct_apply,MI),MF)))
 15007	  ftst(root(apply(apply(fct_apply,MI),MI)))
 15008	  ftst(root(apply(apply(fct_apply,MK),MT)))
 15009	  ftst(root(apply(apply(fct_apply,MK),MF)))
 15010	  ftst(root(apply(apply(fct_apply,MK),MI)))
 15011	
 15012	/*
 15013	---------------------------------------------
 15014	Test of tagged map operations
 15015	---------------------------------------------
 15016	*/
 15017	
 15018	  xtst(root(TT))
 15019	  xtst(root(FF))
 15020	  xtst(root(N(117)))
 15021	  xtst(root(P0))
 15022	  xtst(root(B0))
 15023	  ttst(root(MT))
 15024	  ftst(root(MF))
 15025	
 15026	  ttst(root(apply(MY,MT)))
 15027	  ttst(root(apply(MY,MF)))
 15028	  ftst(root(MYK))
 15029	  ftst(root(apply(MYK,MT)))
 15030	  ftst(root(apply(MYK,MF)))
 15031	  ftst(root(apply(apply(MYK,MT),MT)))
 15032	  ftst(root(apply(apply(MYK,MF),MF)))
 15033	  ftst(root(MYKI))
 15034	  ttst(root(apply(MYKI,MT)))
 15035	  ftst(root(apply(MYKI,MF)))
 15036	  ftst(root(MPTX))
 15037	  ftst(root(apply(MPTX,MF)))
 15038	  ttst(root(apply(apply(MPTX,MF),MT)))
 15039	  ftst(root(apply(apply(MPTX,MF),MF)))
 15040	  ftst(root(MPXT))
 15041	  ftst(root(apply(MPXT,MF)))
 15042	  ftst(root(apply(apply(MPXT,MF),MT)))
 15043	  ttst(root(apply(apply(MPXT,MF),MF)))
 15044	
 15045	  ftst(root(MPXY))
 15046	  ftst(root(apply(MPXY,MT)))
 15047	  ftst(root(apply(apply(MPXY,MT),MT)))
 15048	  ttst(root(apply(apply(apply(MPXY,MT),MT),MT)))
 15049	  ftst(root(apply(apply(apply(MPXY,MF),MT),MT)))
 15050	  ttst(root(apply(apply(apply(MPXY,MT),MF),MT)))
 15051	  ftst(root(apply(apply(apply(MPXY,MF),MF),MT)))
 15052	  ttst(root(apply(apply(apply(MPXY,MT),MT),MF)))
 15053	  ttst(root(apply(apply(apply(MPXY,MF),MT),MF)))
 15054	  ftst(root(apply(apply(apply(MPXY,MT),MF),MF)))
 15055	  ftst(root(apply(apply(apply(MPXY,MF),MF),MF)))
 15056	
 15057	  ftst(root(MPYX))
 15058	  ftst(root(apply(MPYX,MT)))
 15059	  ftst(root(apply(apply(MPYX,MT),MT)))
 15060	  ttst(root(apply(apply(apply(MPYX,MT),MT),MT)))
 15061	  ttst(root(apply(apply(apply(MPYX,MF),MT),MT)))
 15062	  ftst(root(apply(apply(apply(MPYX,MT),MF),MT)))
 15063	  ftst(root(apply(apply(apply(MPYX,MF),MF),MT)))
 15064	  ttst(root(apply(apply(apply(MPYX,MT),MT),MF)))
 15065	  ftst(root(apply(apply(apply(MPYX,MF),MT),MF)))
 15066	  ttst(root(apply(apply(apply(MPYX,MT),MF),MF)))
 15067	  ftst(root(apply(apply(apply(MPYX,MF),MF),MF)))
 15068	
 15069	  etst(N(0),rnf2card(T));
 15070	  etst(N(1),rnf2card(map_pair(F,T)));
 15071	  etst(N(0),rnf2card(map_pair(T,map_pair(T,T))));
 15072	  etst(N(1),rnf2card(map_pair(F,map_pair(T,T))));
 15073	  etst(N(2),rnf2card(map_pair(T,map_pair(F,T))));
 15074	  etst(N(3),rnf2card(map_pair(F,map_pair(F,T))));
 15075	  etst(N(0),rnf2card(map_pair(T,map_pair(T,map_pair(T,T)))));
 15076	  etst(N(1),rnf2card(map_pair(F,map_pair(T,map_pair(T,T)))));
 15077	  etst(N(2),rnf2card(map_pair(T,map_pair(F,map_pair(T,T)))));
 15078	  etst(N(3),rnf2card(map_pair(F,map_pair(F,map_pair(T,T)))));
 15079	  etst(N(4),rnf2card(map_pair(T,map_pair(T,map_pair(F,T)))));
 15080	  etst(N(5),rnf2card(map_pair(F,map_pair(T,map_pair(F,T)))));
 15081	  etst(N(6),rnf2card(map_pair(T,map_pair(F,map_pair(F,T)))));
 15082	  etst(N(7),rnf2card(map_pair(F,map_pair(F,map_pair(F,T)))));
 15083	  etst(N(0),rnf2card(map_tail(map_tail(N(0)))))
 15084	  etst(N(1),rnf2card(map_tail(map_tail(N(1)))))
 15085	  etst(N(2),rnf2card(map_tail(map_tail(N(2)))))
 15086	  etst(N(3),rnf2card(map_tail(map_tail(N(3)))))
 15087	  etst(N(4),rnf2card(map_tail(map_tail(N(4)))))
 15088	  etst(N(5),rnf2card(map_tail(map_tail(N(5)))))
 15089	  etst(N(6),rnf2card(map_tail(map_tail(N(6)))))
 15090	  etst(N(7),rnf2card(map_tail(map_tail(N(7)))))
 15091	  etst(N(729578423057820578023754809),
 15092	   rnf2card(map_tail(map_tail(N(729578423057820578023754809)))))
 15093	  etst(N(109865398174380174830165017480165098217401),
 15094	   rnf2card(map_tail(map_tail(N(109865398174380174830165017480165098217401)))))
 15095	
 15096	  etst(N( 0),rnf2int(T));
 15097	  etst(N( 0),rnf2int(map_pair(F,T)));
 15098	  etst(N( 0),rnf2int(map_pair(T,map_pair(T,T))));
 15099	  etst(N( 0),rnf2int(map_pair(F,map_pair(T,T))));
 15100	  etst(N( 1),rnf2int(map_pair(T,map_pair(F,T))));
 15101	  etst(N(-1),rnf2int(map_pair(F,map_pair(F,T))));
 15102	  etst(N( 0),rnf2int(map_pair(T,map_pair(T,map_pair(T,T)))));
 15103	  etst(N( 0),rnf2int(map_pair(F,map_pair(T,map_pair(T,T)))));
 15104	  etst(N( 1),rnf2int(map_pair(T,map_pair(F,map_pair(T,T)))));
 15105	  etst(N(-1),rnf2int(map_pair(F,map_pair(F,map_pair(T,T)))));
 15106	  etst(N( 2),rnf2int(map_pair(T,map_pair(T,map_pair(F,T)))));
 15107	  etst(N(-2),rnf2int(map_pair(F,map_pair(T,map_pair(F,T)))));
 15108	  etst(N( 3),rnf2int(map_pair(T,map_pair(F,map_pair(F,T)))));
 15109	  etst(N(-3),rnf2int(map_pair(F,map_pair(F,map_pair(F,T)))));
 15110	  etst(N( 0),rnf2int(map_tail(N( 0))))
 15111	  etst(N( 1),rnf2int(map_tail(N( 1))))
 15112	  etst(N( 2),rnf2int(map_tail(N( 2))))
 15113	  etst(N( 3),rnf2int(map_tail(N( 3))))
 15114	  etst(N( 4),rnf2int(map_tail(N( 4))))
 15115	  etst(N( 5),rnf2int(map_tail(N( 5))))
 15116	  etst(N( 6),rnf2int(map_tail(N( 6))))
 15117	  etst(N( 7),rnf2int(map_tail(N( 7))))
 15118	  etst(N(-1),rnf2int(map_tail(N(-1))))
 15119	  etst(N(-2),rnf2int(map_tail(N(-2))))
 15120	  etst(N(-3),rnf2int(map_tail(N(-3))))
 15121	  etst(N(-4),rnf2int(map_tail(N(-4))))
 15122	  etst(N(-5),rnf2int(map_tail(N(-5))))
 15123	  etst(N(-6),rnf2int(map_tail(N(-6))))
 15124	  etst(N(-7),rnf2int(map_tail(N(-7))))
 15125	  etst(N(729578423057820578023754809),
 15126	   rnf2int(map_tail(N(729578423057820578023754809))))
 15127	  etst(N(109865398174380174830165017480165098217401),
 15128	   rnf2int(map_tail(N(109865398174380174830165017480165098217401))))
 15129	  etst(N(-729578423057820578023754809),
 15130	   rnf2int(map_tail(N(-729578423057820578023754809))))
 15131	  etst(N(-109865398174380174830165017480165098217401),
 15132	   rnf2int(map_tail(N(-109865398174380174830165017480165098217401))))
 15133	
 15134	  ttst(root(maptag(UT)))
 15135	  ftst(root(maptag(UF)))
 15136	  ftst(root(maptag(UI)))
 15137	  ttst(root(apply(maptag(UI),MT)))
 15138	  ftst(root(apply(maptag(UI),MF)))
 15139	  ttst(root(apply(MI,apply(maptag(UI),MT))))
 15140	  ftst(root(apply(MI,apply(maptag(UI),MF))))
 15141	
 15142	  etst(untag1(UT      ),T)
 15143	  etst(untag1(UF      ),F)
 15144	  etst(untag1(UPTT    ),F)
 15145	  etst(untag1(UPTF    ),F)
 15146	  etst(untag1(UPFT    ),F)
 15147	  etst(untag1(UPFF    ),F)
 15148	  etst(untag1(UPPTTPTT),F)
 15149	  etst(untag1(UPPTTPTF),F)
 15150	  etst(untag1(UPPTTPFT),F)
 15151	  etst(untag1(UPPTTPFF),F)
 15152	  etst(untag1(UPPTFPTT),F)
 15153	  etst(untag1(UPPTFPTF),F)
 15154	  etst(untag1(UPPTFPFT),F)
 15155	  etst(untag1(UPPTFPFF),F)
 15156	  etst(untag1(UPPFTPTT),F)
 15157	  etst(untag1(UPPFTPTF),F)
 15158	  etst(untag1(UPPFTPFT),F)
 15159	  etst(untag1(UPPFTPFF),F)
 15160	  etst(untag1(UPPFFPTT),F)
 15161	  etst(untag1(UPPFFPTF),F)
 15162	  etst(untag1(UPPFFPFT),F)
 15163	  etst(untag1(UPPFFPFF),F)
 15164	
 15165	  etst(N(0),rnf2card(UCARD(0)))
 15166	  etst(N(1),rnf2card(UCARD(1)))
 15167	  etst(N(2),rnf2card(UCARD(2)))
 15168	  etst(N(3),rnf2card(UCARD(3)))
 15169	  etst(N(4),rnf2card(UCARD(4)))
 15170	  etst(N(5),rnf2card(UCARD(5)))
 15171	  etst(N(6),rnf2card(UCARD(6)))
 15172	  etst(N(7),rnf2card(UCARD(7)))
 15173	  etst(N(729578423057820578023754809),
 15174	   rnf2card(UCARD(729578423057820578023754809)))
 15175	  etst(N(109865398174380174830165017480165098217401),
 15176	   rnf2card(UCARD(109865398174380174830165017480165098217401)))
 15177	
 15178	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(0)),UCARD(0))),F)
 15179	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(0))),N( 0))
 15180	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(1))),N( 0))
 15181	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(2))),N( 1))
 15182	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(3))),N(-1))
 15183	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(4))),N( 2))
 15184	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(5))),N(-2))
 15185	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(6))),N( 3))
 15186	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(7))),N(-3))
 15187	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(2)),MAP_PAIR(UT,UT))),pair(T,T))
 15188	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(2)),MAP_PAIR(UT,UF))),pair(T,F))
 15189	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(2)),MAP_PAIR(UF,UT))),pair(F,T))
 15190	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(2)),MAP_PAIR(UF,UF))),pair(F,F))
 15191	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(3)),UT)),raise0(T))
 15192	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(3)),UF)),raise0(F))
 15193	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(3)),UPPTTPTT)),raise0(F))
 15194	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(3)),N(117))),raise0(N(117)))
 15195	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(5)),UT)),objcons(N(0),N(5),T))
 15196	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(5)),UF)),objcons(N(0),N(5),F))
 15197	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(5)),UPPTTPTT)),
 15198	   objcons(N(0),N(5),F))
 15199	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(5)),N(117))),
 15200	   objcons(N(0),N(5),N(117)))
 15201	
 15202	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(0)),UT)),objcons(N(1),N(0),T))
 15203	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(1)),UF)),objcons(N(1),N(1),F))
 15204	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(2)),UPPTTPTT)),
 15205	   objcons(N(1),N(2),F))
 15206	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(3)),N(117))),
 15207	   objcons(N(1),N(3),N(117)))
 15208	
 15209	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(4)),UT)),objcons(N(1),N(4),T))
 15210	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(5)),UF)),objcons(N(1),N(5),F))
 15211	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(6)),UPPTTPTT)),
 15212	   objcons(N(1),N(6),F))
 15213	  etst(untag1(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(7)),N(117))),
 15214	   objcons(N(1),N(7),N(117)))
 15215	
 15216	  etst(untag1(T),T)
 15217	  etst(untag1(F),F)
 15218	  etst(untag1(N(117)),N(117))
 15219	  etst(untag1(PAIR(T,F)),PAIR(T,F))
 15220	  etst(untag1(raise0(F)),raise0(F))
 15221	  etst(untag1(MI),MI)
 15222	  ttst(root(apply(untag1(MI),MT)))
 15223	  ftst(root(apply(untag1(MI),MF)))
 15224	
 15225	  ttst(root(apply(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UY)),MT)))
 15226	  ttst(root(apply(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UY)),MF)))
 15227	  ftst(root(MYK))
 15228	  ftst(root(apply(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UYK)),MT)))
 15229	  ftst(root(apply(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UYK)),MF)))
 15230	  ftst(root(apply(apply(
 15231	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UYK)),MT),MT)))
 15232	  ftst(root(apply(apply(
 15233	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UYK)),MF),MF)))
 15234	  ftst(root(MYKI))
 15235	  ttst(root(apply(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UYKI)),MT)))
 15236	  ftst(root(apply(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UYKI)),MF)))
 15237	  ftst(root(MPTX))
 15238	  ftst(root(apply(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPTX)),MF)))
 15239	  ttst(root(apply(apply(
 15240	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPTX)),MF),MT)))
 15241	  ftst(root(apply(apply(
 15242	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPTX)),MF),MF)))
 15243	  ftst(root(MPXT))
 15244	  ftst(root(apply(
 15245	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXT)),MF)))
 15246	  ftst(root(apply(apply(
 15247	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXT)),MF),MT)))
 15248	  ttst(root(apply(apply(
 15249	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXT)),MF),MF)))
 15250	
 15251	  ftst(root(untag1(MPXY)))
 15252	  ftst(root(apply(
 15253	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MT)))
 15254	  ftst(root(apply(apply(
 15255	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MT),MT)))
 15256	  ttst(root(apply(apply(apply(
 15257	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MT),MT),MT)))
 15258	  ftst(root(apply(apply(apply(
 15259	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MF),MT),MT)))
 15260	  ttst(root(apply(apply(apply(
 15261	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MT),MF),MT)))
 15262	  ftst(root(apply(apply(apply(
 15263	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MF),MF),MT)))
 15264	  ttst(root(apply(apply(apply(
 15265	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MT),MT),MF)))
 15266	  ttst(root(apply(apply(apply(
 15267	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MF),MT),MF)))
 15268	  ftst(root(apply(apply(apply(
 15269	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MT),MF),MF)))
 15270	  ftst(root(apply(apply(apply(
 15271	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPXY)),MF),MF),MF)))
 15272	
 15273	  ftst(root(untag1(MPYX)))
 15274	  ftst(root(apply(
 15275	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MT)))
 15276	  ftst(root(apply(apply(
 15277	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MT),MT)))
 15278	  ttst(root(apply(apply(apply(
 15279	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MT),MT),MT)))
 15280	  ttst(root(apply(apply(apply(
 15281	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MF),MT),MT)))
 15282	  ftst(root(apply(apply(apply(
 15283	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MT),MF),MT)))
 15284	  ftst(root(apply(apply(apply(
 15285	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MF),MF),MT)))
 15286	  ttst(root(apply(apply(apply(
 15287	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MT),MT),MF)))
 15288	  ftst(root(apply(apply(apply(
 15289	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MF),MT),MF)))
 15290	  ttst(root(apply(apply(apply(
 15291	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MT),MF),MF)))
 15292	  ftst(root(apply(apply(apply(
 15293	   untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UPYX)),MF),MF),MF)))
 15294	
 15295	  ptst(map_pair(UT,UB))
 15296	  ptst(map_pair(UB,UT))
 15297	  ntst(map_head(map_pair(UT,UB)))
 15298	  ptst(map_head(map_pair(UF,UB)))
 15299	  ntst(map_tail(map_pair(UB,UT)))
 15300	  ptst(map_tail(map_pair(UB,UF)))
 15301	
 15302	  ntst(mapp(MB))
 15303	  ttst(mapp(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UB))))
 15304	
 15305	/*Destructive tests which loop forever:
 15306	  ttst(root(MB))
 15307	  ntst(map_tail(map_pair(UT,UB)))
 15308	  ntst(map_head(map_pair(UB,UT)))
 15309	  ttst(root(untag1(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(4)),UB))))
 15310	*/
 15311	
 15312	  etst(untag(mapcons(UT      )),T)
 15313	  etst(untag(mapcons(UF      )),F)
 15314	  etst(untag(mapcons(UPTT    )),F)
 15315	  etst(untag(mapcons(UPTF    )),F)
 15316	  etst(untag(mapcons(UPFT    )),F)
 15317	  etst(untag(mapcons(UPFF    )),F)
 15318	  etst(untag(mapcons(UPPTTPTT)),F)
 15319	  etst(untag(mapcons(UPPTTPTF)),F)
 15320	  etst(untag(mapcons(UPPTTPFT)),F)
 15321	  etst(untag(mapcons(UPPTTPFF)),F)
 15322	  etst(untag(mapcons(UPPTFPTT)),F)
 15323	  etst(untag(mapcons(UPPTFPTF)),F)
 15324	  etst(untag(mapcons(UPPTFPFT)),F)
 15325	  etst(untag(mapcons(UPPTFPFF)),F)
 15326	  etst(untag(mapcons(UPPFTPTT)),F)
 15327	  etst(untag(mapcons(UPPFTPTF)),F)
 15328	  etst(untag(mapcons(UPPFTPFT)),F)
 15329	  etst(untag(mapcons(UPPFTPFF)),F)
 15330	  etst(untag(mapcons(UPPFFPTT)),F)
 15331	  etst(untag(mapcons(UPPFFPTF)),F)
 15332	  etst(untag(mapcons(UPPFFPFT)),F)
 15333	  etst(untag(mapcons(UPPFFPFF)),F)
 15334	
 15335	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(0)),UCARD(0)))),F)
 15336	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(0)))),N( 0))
 15337	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(1)))),N( 0))
 15338	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(2)))),N( 1))
 15339	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(3)))),N(-1))
 15340	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(4)))),N( 2))
 15341	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(5)))),N(-2))
 15342	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(6)))),N( 3))
 15343	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(1)),UCARD(7)))),N(-3))
 15344	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(2)),MAP_PAIR(UT,UT)))),
 15345	   pair(T,T))
 15346	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(2)),MAP_PAIR(UT,UF)))),
 15347	   pair(T,F))
 15348	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(2)),MAP_PAIR(UF,UT)))),
 15349	   pair(F,T))
 15350	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(2)),MAP_PAIR(UF,UF)))),
 15351	   pair(F,F))
 15352	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(3)),UT))),raise0(T))
 15353	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(3)),UF))),raise0(F))
 15354	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(3)),UPPTTPTT))),raise0(F))
 15355	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(3)),N(117)))),
 15356	   raise0(N(117)))
 15357	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(5)),UT))),
 15358	   objcons(N(0),N(5),T))
 15359	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(5)),UF))),
 15360	   objcons(N(0),N(5),F))
 15361	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(5)),UPPTTPTT))),
 15362	   objcons(N(0),N(5),F))
 15363	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(0),UCARD(5)),N(117)))),
 15364	   objcons(N(0),N(5),N(117)))
 15365	
 15366	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(0)),UT))),
 15367	   objcons(N(1),N(0),T))
 15368	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(1)),UF))),
 15369	   objcons(N(1),N(1),F))
 15370	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(2)),UPPTTPTT))),
 15371	   objcons(N(1),N(2),F))
 15372	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(3)),N(117)))),
 15373	   objcons(N(1),N(3),N(117)))
 15374	
 15375	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(4)),UT))),
 15376	   objcons(N(1),N(4),T))
 15377	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(5)),UF))),
 15378	   objcons(N(1),N(5),F))
 15379	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(6)),UPPTTPTT))),
 15380	   objcons(N(1),N(6),F))
 15381	  etst(untag(mapcons(MAP_PAIR(MAP_PAIR(UCARD(1),UCARD(7)),N(117)))),
 15382	   objcons(N(1),N(7),N(117)))
 15383	
 15384	  etst(untag(mapcons(T)),T)
 15385	  etst(untag(mapcons(F)),F)
 15386	  etst(untag(mapcons(N(117))),N(117))
 15387	  etst(untag(mapcons(PAIR(T,F))),PAIR(T,F))
 15388	  etst(untag(mapcons(raise0(F))),raise0(F))
 15389	  etst(untag(mapcons(MI)),MI)
 15390	  ttst(root(apply(untag(mapcons(MI)),MT)))
 15391	  ftst(root(apply(untag(mapcons(MI)),MF)))
 15392	
 15393	/*
 15394	---------------------------------------------
 15395	Test of eager functions
 15396	---------------------------------------------
 15397	*/
 15398	
 15399	  etst(eval2(V0,T,T),T)
 15400	  etst(eval2(V0,T,F),T)
 15401	  etst(eval2(V0,F,T),F)
 15402	  etst(eval2(V0,F,F),F)
 15403	  etst(eval2(V1,T,T),T)
 15404	  etst(eval2(V1,T,F),F)
 15405	  etst(eval2(V1,F,T),T)
 15406	  etst(eval2(V1,F,F),F)
 15407	
 15408	  etst(eval2(T,T,T),T)
 15409	  etst(eval2(T,T,F),T)
 15410	  etst(eval2(T,F,T),T)
 15411	  etst(eval2(T,F,F),T)
 15412	  etst(eval2(F,T,T),F)
 15413	  etst(eval2(F,T,F),F)
 15414	  etst(eval2(F,F,T),F)
 15415	  etst(eval2(F,F,F),F)
 15416	
 15417	  etst(eval0(TT),TT)
 15418	  etst(eval0(FF),FF)
 15419	  etst(eval0(Z0),Z0)
 15420	  etst(eval0(Z1),Z1)
 15421	  etst(eval0(Z2),Z2)
 15422	  etst(eval0(Z3),Z3)
 15423	  etst(eval0(P0),P0)
 15424	  etst(eval0(P1),P1)
 15425	  etst(eval0(P2),P2)
 15426	  etst(eval0(P3),P3)
 15427	  etst(eval0(X0),X0)
 15428	  etst(eval0(X1),X1)
 15429	  etst(eval0(X2),X2)
 15430	  etst(eval0(X3),X3)
 15431	  etst(eval0(M0),M0)
 15432	  etst(eval0(M1),M1)
 15433	  etst(eval0(M2),M2)
 15434	  etst(eval0(M3),M3)
 15435	  etst(eval0(B0),B0)
 15436	  etst(eval0(B1),B1)
 15437	  etst(eval0(B2),B2)
 15438	  etst(eval0(B3),B3)
 15439	
 15440	  etst(eval0(E1(digit0,TT)),XX)
 15441	  etst(eval0(E1(digit0,FF)),XX)
 15442	  etst(eval0(E1(digit0,P0)),XX)
 15443	  etst(eval0(E1(digit0,P1)),XX)
 15444	  etst(eval0(E1(digit0,P2)),XX)
 15445	  etst(eval0(E1(digit0,P3)),XX)
 15446	  etst(eval0(E1(digit0,X0)),X0)
 15447	  etst(eval0(E1(digit0,X1)),X1)
 15448	  etst(eval0(E1(digit0,X2)),X2)
 15449	  etst(eval0(E1(digit0,X3)),X3)
 15450	  etst(eval0(E1(digit0,M0)),XX)
 15451	  etst(eval0(E1(digit0,M1)),XX)
 15452	  etst(eval0(E1(digit0,M2)),XX)
 15453	  etst(eval0(E1(digit0,M3)),XX)
 15454	  etst(eval0(E1(digit0,B0)),XX)
 15455	  etst(eval0(E1(digit0,B1)),XX)
 15456	  etst(eval0(E1(digit0,B2)),XX)
 15457	  etst(eval0(E1(digit0,B3)),XX)
 15458	  etst(eval0(E1(digit0,JN( 0))),JN(  0))
 15459	  etst(eval0(E1(digit0,JN( 1))),JN( 10))
 15460	  etst(eval0(E1(digit0,JN( 2))),JN( 20))
 15461	  etst(eval0(E1(digit0,JN( 3))),JN( 30))
 15462	  etst(eval0(E1(digit0,JN( 4))),JN( 40))
 15463	  etst(eval0(E1(digit0,JN( 5))),JN( 50))
 15464	  etst(eval0(E1(digit0,JN( 6))),JN( 60))
 15465	  etst(eval0(E1(digit0,JN( 7))),JN( 70))
 15466	  etst(eval0(E1(digit0,JN( 8))),JN( 80))
 15467	  etst(eval0(E1(digit0,JN( 9))),JN( 90))
 15468	  etst(eval0(E1(digit0,JN(-1))),JN(-10))
 15469	  etst(eval0(E1(digit0,JN(-2))),JN(-20))
 15470	  etst(eval0(E1(digit0,JN(-3))),JN(-30))
 15471	  etst(eval0(E1(digit0,JN(-4))),JN(-40))
 15472	  etst(eval0(E1(digit0,JN(-5))),JN(-50))
 15473	  etst(eval0(E1(digit0,JN(-6))),JN(-60))
 15474	  etst(eval0(E1(digit0,JN(-7))),JN(-70))
 15475	  etst(eval0(E1(digit0,JN(-8))),JN(-80))
 15476	  etst(eval0(E1(digit0,JN(-9))),JN(-90))
 15477	
 15478	  etst(eval0(E1(digit1,TT)),XX)
 15479	  etst(eval0(E1(digit1,FF)),XX)
 15480	  etst(eval0(E1(digit1,P0)),XX)
 15481	  etst(eval0(E1(digit1,X0)),X0)
 15482	  etst(eval0(E1(digit1,M0)),XX)
 15483	  etst(eval0(E1(digit1,B0)),XX)
 15484	  etst(eval0(E1(digit1,JN( 2))),JN( 21))
 15485	
 15486	  etst(eval0(E1(digit2,TT)),XX)
 15487	  etst(eval0(E1(digit2,FF)),XX)
 15488	  etst(eval0(E1(digit2,P0)),XX)
 15489	  etst(eval0(E1(digit2,X0)),X0)
 15490	  etst(eval0(E1(digit2,M0)),XX)
 15491	  etst(eval0(E1(digit2,B0)),XX)
 15492	  etst(eval0(E1(digit2,JN( 2))),JN( 22))
 15493	
 15494	  etst(eval0(E1(digit3,TT)),XX)
 15495	  etst(eval0(E1(digit3,FF)),XX)
 15496	  etst(eval0(E1(digit3,P0)),XX)
 15497	  etst(eval0(E1(digit3,X0)),X0)
 15498	  etst(eval0(E1(digit3,M0)),XX)
 15499	  etst(eval0(E1(digit3,B0)),XX)
 15500	  etst(eval0(E1(digit3,JN( 2))),JN( 23))
 15501	
 15502	  etst(eval0(E1(digit4,TT)),XX)
 15503	  etst(eval0(E1(digit4,FF)),XX)
 15504	  etst(eval0(E1(digit4,P0)),XX)
 15505	  etst(eval0(E1(digit4,X0)),X0)
 15506	  etst(eval0(E1(digit4,M0)),XX)
 15507	  etst(eval0(E1(digit4,B0)),XX)
 15508	  etst(eval0(E1(digit4,JN( 2))),JN( 24))
 15509	
 15510	  etst(eval0(E1(digit5,TT)),XX)
 15511	  etst(eval0(E1(digit5,FF)),XX)
 15512	  etst(eval0(E1(digit5,P0)),XX)
 15513	  etst(eval0(E1(digit5,X0)),X0)
 15514	  etst(eval0(E1(digit5,M0)),XX)
 15515	  etst(eval0(E1(digit5,B0)),XX)
 15516	  etst(eval0(E1(digit5,JN( 2))),JN( 25))
 15517	
 15518	  etst(eval0(E1(digit6,TT)),XX)
 15519	  etst(eval0(E1(digit6,FF)),XX)
 15520	  etst(eval0(E1(digit6,P0)),XX)
 15521	  etst(eval0(E1(digit6,X0)),X0)
 15522	  etst(eval0(E1(digit6,M0)),XX)
 15523	  etst(eval0(E1(digit6,B0)),XX)
 15524	  etst(eval0(E1(digit6,JN( 2))),JN( 26))
 15525	
 15526	  etst(eval0(E1(digit7,TT)),XX)
 15527	  etst(eval0(E1(digit7,FF)),XX)
 15528	  etst(eval0(E1(digit7,P0)),XX)
 15529	  etst(eval0(E1(digit7,X0)),X0)
 15530	  etst(eval0(E1(digit7,M0)),XX)
 15531	  etst(eval0(E1(digit7,B0)),XX)
 15532	  etst(eval0(E1(digit7,JN( 2))),JN( 27))
 15533	
 15534	  etst(eval0(E1(digit8,TT)),XX)
 15535	  etst(eval0(E1(digit8,FF)),XX)
 15536	  etst(eval0(E1(digit8,P0)),XX)
 15537	  etst(eval0(E1(digit8,X0)),X0)
 15538	  etst(eval0(E1(digit8,M0)),XX)
 15539	  etst(eval0(E1(digit8,B0)),XX)
 15540	  etst(eval0(E1(digit8,JN( 2))),JN( 28))
 15541	
 15542	  etst(eval0(E1(digit9,TT)),XX)
 15543	  etst(eval0(E1(digit9,FF)),XX)
 15544	  etst(eval0(E1(digit9,P0)),XX)
 15545	  etst(eval0(E1(digit9,X0)),X0)
 15546	  etst(eval0(E1(digit9,M0)),XX)
 15547	  etst(eval0(E1(digit9,B0)),XX)
 15548	  etst(eval0(E1(digit9,JN( 2))),JN( 29))
 15549	
 15550	  etst(eval0(E2(times,TT,TT)),XX)
 15551	  etst(eval0(E2(times,TT,FF)),XX)
 15552	  etst(eval0(E2(times,TT,Z1)),XX)
 15553	  etst(eval0(E2(times,TT,P1)),XX)
 15554	  etst(eval0(E2(times,TT,X1)),X1)
 15555	  etst(eval0(E2(times,TT,M1)),XX)
 15556	  etst(eval0(E2(times,TT,B1)),XX)
 15557	  etst(eval0(E2(times,FF,TT)),XX)
 15558	  etst(eval0(E2(times,FF,FF)),XX)
 15559	  etst(eval0(E2(times,FF,Z1)),XX)
 15560	  etst(eval0(E2(times,FF,P1)),XX)
 15561	  etst(eval0(E2(times,FF,X1)),X1)
 15562	  etst(eval0(E2(times,FF,M1)),XX)
 15563	  etst(eval0(E2(times,FF,B1)),XX)
 15564	  etst(eval0(E2(times,Z0,TT)),XX)
 15565	  etst(eval0(E2(times,Z0,FF)),XX)
 15566	  etst(eval0(E2(times,Z0,Z1)),Z0)
 15567	  etst(eval0(E2(times,Z0,P1)),XX)
 15568	  etst(eval0(E2(times,Z0,X1)),X1)
 15569	  etst(eval0(E2(times,Z0,M1)),XX)
 15570	  etst(eval0(E2(times,Z0,B1)),XX)
 15571	  etst(eval0(E2(times,P0,TT)),XX)
 15572	  etst(eval0(E2(times,P0,FF)),XX)
 15573	  etst(eval0(E2(times,P0,Z1)),XX)
 15574	  etst(eval0(E2(times,P0,P1)),XX)
 15575	  etst(eval0(E2(times,P0,X1)),X1)
 15576	  etst(eval0(E2(times,P0,M1)),XX)
 15577	  etst(eval0(E2(times,P0,B1)),XX)
 15578	  etst(eval0(E2(times,X0,TT)),X0)
 15579	  etst(eval0(E2(times,X0,FF)),X0)
 15580	  etst(eval0(E2(times,X0,Z1)),X0)
 15581	  etst(eval0(E2(times,X0,P1)),X0)
 15582	  etst(eval0(E2(times,X0,X1)),X0)
 15583	  etst(eval0(E2(times,X0,M1)),X0)
 15584	  etst(eval0(E2(times,X0,B1)),X0)
 15585	  etst(eval0(E2(times,M0,TT)),XX)
 15586	  etst(eval0(E2(times,M0,FF)),XX)
 15587	  etst(eval0(E2(times,M0,Z1)),XX)
 15588	  etst(eval0(E2(times,M0,P1)),XX)
 15589	  etst(eval0(E2(times,M0,X1)),X1)
 15590	  etst(eval0(E2(times,M0,M1)),XX)
 15591	  etst(eval0(E2(times,M0,B1)),XX)
 15592	  etst(eval0(E2(times,B0,TT)),XX)
 15593	  etst(eval0(E2(times,B0,FF)),XX)
 15594	  etst(eval0(E2(times,B0,Z1)),XX)
 15595	  etst(eval0(E2(times,B0,P1)),XX)
 15596	  etst(eval0(E2(times,B0,X1)),X1)
 15597	  etst(eval0(E2(times,B0,M1)),XX)
 15598	  etst(eval0(E2(times,B0,B1)),XX)
 15599	  etst(eval0(E2(times,N(100000000000),N(1000000000))),N(100000000000000000000))
 15600	
 15601	  etst(eval0(E2(plus,TT,TT)),XX)
 15602	  etst(eval0(E2(plus,TT,Z1)),XX)
 15603	  etst(eval0(E2(plus,TT,X1)),X1)
 15604	  etst(eval0(E2(plus,Z0,TT)),XX)
 15605	  etst(eval0(E2(plus,Z0,X1)),X1)
 15606	  etst(eval0(E2(plus,X0,TT)),X0)
 15607	  etst(eval0(E2(plus,X0,Z1)),X0)
 15608	  etst(eval0(E2(plus,X0,X1)),X0)
 15609	  etst(eval0(E2(plus,N(100000000000),N(1000000000))),N(101000000000))
 15610	
 15611	  etst(eval0(E2(minus,TT,TT)),XX)
 15612	  etst(eval0(E2(minus,TT,Z1)),XX)
 15613	  etst(eval0(E2(minus,TT,X1)),X1)
 15614	  etst(eval0(E2(minus,Z0,TT)),XX)
 15615	  etst(eval0(E2(minus,Z0,X1)),X1)
 15616	  etst(eval0(E2(minus,X0,TT)),X0)
 15617	  etst(eval0(E2(minus,X0,Z1)),X0)
 15618	  etst(eval0(E2(minus,X0,X1)),X0)
 15619	  etst(eval0(E2(minus,N(100000000000),N(1000000000))),N(99000000000))
 15620	
 15621	  etst(eval0(E2(minus,N(7),N(6))),N(1))
 15622	  etst(eval0(E2(minus,N(7),E2(times,N(2),N(3)))),N(1))
 15623	  etst(eval0(E2(minus,N(7),E2(minus,N(8),N(2)))),N(1))
 15624	  etst(eval0(E2(minus,E2(plus,N(3),N(4)),N(6))),N(1))
 15625	  etst(eval0(E2(minus,E2(minus,N(9),N(2)),N(6))),N(1))
 15626	
 15627	  etst(eval0(E2(and,TT,TT)),TT)
 15628	  etst(eval0(E2(and,TT,FF)),FF)
 15629	  etst(eval0(E2(and,TT,Z1)),Z1)
 15630	  etst(eval0(E2(and,TT,X1)),X1)
 15631	  etst(eval0(E2(and,FF,TT)),FF)
 15632	  etst(eval0(E2(and,FF,FF)),FF)
 15633	  etst(eval0(E2(and,FF,Z1)),FF)
 15634	  etst(eval0(E2(and,FF,X1)),FF)
 15635	  etst(eval0(E2(and,FF,BB)),FF)
 15636	  etst(eval0(E2(and,Z0,TT)),Z0)
 15637	  etst(eval0(E2(and,Z0,FF)),Z0)
 15638	  etst(eval0(E2(and,Z0,Z1)),Z0)
 15639	  etst(eval0(E2(and,Z0,X1)),Z0)
 15640	  etst(eval0(E2(and,X0,TT)),X0)
 15641	  etst(eval0(E2(and,X0,FF)),X0)
 15642	  etst(eval0(E2(and,X0,Z1)),X0)
 15643	  etst(eval0(E2(and,X0,X1)),X0)
 15644	
 15645	  etst(eval0(E2(or,TT,TT)),TT)
 15646	  etst(eval0(E2(or,TT,FF)),TT)
 15647	  etst(eval0(E2(or,TT,Z1)),TT)
 15648	  etst(eval0(E2(or,TT,X1)),TT)
 15649	  etst(eval0(E2(or,TT,BB)),TT)
 15650	  etst(eval0(E2(or,FF,TT)),TT)
 15651	  etst(eval0(E2(or,FF,FF)),FF)
 15652	  etst(eval0(E2(or,FF,Z1)),Z1)
 15653	  etst(eval0(E2(or,FF,X1)),X1)
 15654	  etst(eval0(E2(or,Z0,TT)),TT)
 15655	  etst(eval0(E2(or,Z0,FF)),FF)
 15656	  etst(eval0(E2(or,Z0,Z1)),Z1)
 15657	  etst(eval0(E2(or,Z0,X1)),X1)
 15658	  etst(eval0(E2(or,X0,TT)),X0)
 15659	  etst(eval0(E2(or,X0,FF)),X0)
 15660	  etst(eval0(E2(or,X0,Z1)),X0)
 15661	  etst(eval0(E2(or,X0,X1)),X0)
 15662	
 15663	  etst(eval0(E2(then,TT,TT)),TT)
 15664	  etst(eval0(E2(then,TT,FF)),FF)
 15665	  etst(eval0(E2(then,TT,Z1)),Z1)
 15666	  etst(eval0(E2(then,TT,X1)),X1)
 15667	  etst(eval0(E2(then,FF,TT)),TT)
 15668	  etst(eval0(E2(then,FF,FF)),FF)
 15669	  etst(eval0(E2(then,FF,Z1)),Z1)
 15670	  etst(eval0(E2(then,FF,X1)),X1)
 15671	  etst(eval0(E2(then,Z0,TT)),TT)
 15672	  etst(eval0(E2(then,Z0,FF)),FF)
 15673	  etst(eval0(E2(then,Z0,Z1)),Z1)
 15674	  etst(eval0(E2(then,Z0,X1)),X1)
 15675	  etst(eval0(E2(then,X0,TT)),X0)
 15676	  etst(eval0(E2(then,X0,FF)),X0)
 15677	  etst(eval0(E2(then,X0,Z1)),X0)
 15678	  etst(eval0(E2(then,X0,X1)),X0)
 15679	  etst(eval0(E2(then,TT,N(117))),N(117))
 15680	  etst(eval0(E2(then,FF,N(117))),N(117))
 15681	  etst(eval0(E2(then,Z0,N(117))),N(117))
 15682	  etst(eval0(E2(then,P0,N(117))),N(117))
 15683	  etst(eval0(E2(then,X0,N(117))),X0)
 15684	  etst(eval0(E2(then,M0,N(117))),N(117))
 15685	  etst(eval0(E2(then,B0,N(117))),N(117))
 15686	
 15687	  etst(eval0(E2(pair,TT,TT)),pair(TT,TT))
 15688	  etst(eval0(E2(pair,TT,Z1)),pair(TT,Z1))
 15689	  etst(eval0(E2(pair,TT,X1)),X1)
 15690	  etst(eval0(E2(pair,Z0,TT)),pair(Z0,TT))
 15691	  etst(eval0(E2(pair,Z0,Z1)),pair(Z0,Z1))
 15692	  etst(eval0(E2(pair,Z0,X1)),X1)
 15693	  etst(eval0(E2(pair,X0,TT)),X0)
 15694	  etst(eval0(E2(pair,X0,Z1)),X0)
 15695	  etst(eval0(E2(pair,X0,X1)),X0)
 15696	
 15697	  etst(eval0(E2(ge,TT,TT)),XX)
 15698	  etst(eval0(E2(ge,TT,Z1)),XX)
 15699	  etst(eval0(E2(ge,TT,X1)),X1)
 15700	  etst(eval0(E2(ge,Z0,TT)),XX)
 15701	  etst(eval0(E2(ge,Z0,X1)),X1)
 15702	  etst(eval0(E2(ge,X0,TT)),X0)
 15703	  etst(eval0(E2(ge,X0,Z1)),X0)
 15704	  etst(eval0(E2(ge,X0,X1)),X0)
 15705	  ttst(eval0(E2(ge,N(5),N(5))))
 15706	  ftst(eval0(E2(ge,N(5),N(8))))
 15707	  ttst(eval0(E2(ge,N(8),N(5))))
 15708	
 15709	  etst(eval0(E2(gt,TT,TT)),XX)
 15710	  etst(eval0(E2(gt,TT,Z1)),XX)
 15711	  etst(eval0(E2(gt,TT,X1)),X1)
 15712	  etst(eval0(E2(gt,Z0,TT)),XX)
 15713	  etst(eval0(E2(gt,Z0,X1)),X1)
 15714	  etst(eval0(E2(gt,X0,TT)),X0)
 15715	  etst(eval0(E2(gt,X0,Z1)),X0)
 15716	  etst(eval0(E2(gt,X0,X1)),X0)
 15717	  ftst(eval0(E2(gt,N(5),N(5))))
 15718	  ftst(eval0(E2(gt,N(5),N(8))))
 15719	  ttst(eval0(E2(gt,N(8),N(5))))
 15720	
 15721	  etst(eval0(E2(equal,TT,TT)),TT)
 15722	  etst(eval0(E2(equal,TT,Z1)),FF)
 15723	  etst(eval0(E2(equal,TT,X1)),X1)
 15724	  etst(eval0(E2(equal,Z0,TT)),FF)
 15725	  etst(eval0(E2(equal,Z0,X1)),X1)
 15726	  etst(eval0(E2(equal,X0,TT)),X0)
 15727	  etst(eval0(E2(equal,X0,Z1)),X0)
 15728	  etst(eval0(E2(equal,X0,X1)),X0)
 15729	  ttst(eval0(E2(equal,N(5),N(5))))
 15730	  ftst(eval0(E2(equal,N(5),N(8))))
 15731	  ftst(eval0(E2(equal,N(8),N(5))))
 15732	
 15733	  etst(eval0(E2(le,TT,TT)),XX)
 15734	  etst(eval0(E2(le,TT,Z1)),XX)
 15735	  etst(eval0(E2(le,TT,X1)),X1)
 15736	  etst(eval0(E2(le,Z0,TT)),XX)
 15737	  etst(eval0(E2(le,Z0,X1)),X1)
 15738	  etst(eval0(E2(le,X0,TT)),X0)
 15739	  etst(eval0(E2(le,X0,Z1)),X0)
 15740	  etst(eval0(E2(le,X0,X1)),X0)
 15741	  ttst(eval0(E2(le,N(5),N(5))))
 15742	  ttst(eval0(E2(le,N(5),N(8))))
 15743	  ftst(eval0(E2(le,N(8),N(5))))
 15744	
 15745	  etst(eval0(E2(lt,TT,TT)),XX)
 15746	  etst(eval0(E2(lt,TT,Z1)),XX)
 15747	  etst(eval0(E2(lt,TT,X1)),X1)
 15748	  etst(eval0(E2(lt,Z0,TT)),XX)
 15749	  etst(eval0(E2(lt,Z0,X1)),X1)
 15750	  etst(eval0(E2(lt,X0,TT)),X0)
 15751	  etst(eval0(E2(lt,X0,Z1)),X0)
 15752	  etst(eval0(E2(lt,X0,X1)),X0)
 15753	  ftst(eval0(E2(lt,N(5),N(5))))
 15754	  ttst(eval0(E2(lt,N(5),N(8))))
 15755	  ftst(eval0(E2(lt,N(8),N(5))))
 15756	
 15757	  etst(eval0(E2(apply,TT,TT)),XX)
 15758	  etst(eval0(E2(apply,TT,M1)),XX)
 15759	  etst(eval0(E2(apply,TT,X1)),X1)
 15760	  etst(eval0(E2(apply,M0,TT)),XX)
 15761	  etst(eval0(E2(apply,M0,M1)),M0)
 15762	  etst(eval0(E2(apply,M0,X1)),X1)
 15763	  etst(eval0(E2(apply,X0,TT)),X0)
 15764	  etst(eval0(E2(apply,X0,M1)),X0)
 15765	  etst(eval0(E2(apply,X0,X1)),X0)
 15766	
 15767	  ttst(root(MT))
 15768	  ftst(root(MF))
 15769	  ttst(root(M0))
 15770	  ftst(root(M1))
 15771	  ftst(root(M2))
 15772	  ftst(root(M3))
 15773	  ttst(root(apply(M0,MT)))
 15774	  ttst(root(apply(M0,MF)))
 15775	  ttst(root(apply(M1,MT)))
 15776	  ttst(root(apply(M1,MF)))
 15777	  ftst(root(apply(M2,MT)))
 15778	  ftst(root(apply(M2,MF)))
 15779	  ftst(root(apply(M3,MT)))
 15780	  ftst(root(apply(M3,MF)))
 15781	  ttst(root(apply(apply(M0,MT),MT)))
 15782	  ttst(root(apply(apply(M0,MT),MF)))
 15783	  ttst(root(apply(apply(M0,MF),MT)))
 15784	  ttst(root(apply(apply(M0,MF),MF)))
 15785	  ttst(root(apply(apply(M1,MT),MT)))
 15786	  ttst(root(apply(apply(M1,MT),MF)))
 15787	  ttst(root(apply(apply(M1,MF),MT)))
 15788	  ttst(root(apply(apply(M1,MF),MF)))
 15789	  ttst(root(apply(apply(M2,MT),MT)))
 15790	  ttst(root(apply(apply(M2,MT),MF)))
 15791	  ftst(root(apply(apply(M2,MF),MT)))
 15792	  ftst(root(apply(apply(M2,MF),MF)))
 15793	  ttst(root(apply(apply(M3,MT),MT)))
 15794	  ftst(root(apply(apply(M3,MT),MF)))
 15795	  ttst(root(apply(apply(M3,MF),MT)))
 15796	  ftst(root(apply(apply(M3,MF),MF)))
 15797	
 15798	  ttst(root(eval0(E2(apply,M0,MT))))
 15799	  ttst(root(eval0(E2(apply,M0,MF))))
 15800	  ttst(root(eval0(E2(apply,M1,MT))))
 15801	  ttst(root(eval0(E2(apply,M1,MF))))
 15802	  ftst(root(eval0(E2(apply,M2,MT))))
 15803	  ftst(root(eval0(E2(apply,M2,MF))))
 15804	  ftst(root(eval0(E2(apply,M3,MT))))
 15805	  ftst(root(eval0(E2(apply,M3,MF))))
 15806	  ttst(root(eval0(E2(apply,E2(apply,M0,MT),MT))))
 15807	  ttst(root(eval0(E2(apply,E2(apply,M0,MT),MF))))
 15808	  ttst(root(eval0(E2(apply,E2(apply,M0,MF),MT))))
 15809	  ttst(root(eval0(E2(apply,E2(apply,M0,MF),MF))))
 15810	  ttst(root(eval0(E2(apply,E2(apply,M1,MT),MT))))
 15811	  ttst(root(eval0(E2(apply,E2(apply,M1,MT),MF))))
 15812	  ttst(root(eval0(E2(apply,E2(apply,M1,MF),MT))))
 15813	  ttst(root(eval0(E2(apply,E2(apply,M1,MF),MF))))
 15814	  ttst(root(eval0(E2(apply,E2(apply,M2,MT),MT))))
 15815	  ttst(root(eval0(E2(apply,E2(apply,M2,MT),MF))))
 15816	  ftst(root(eval0(E2(apply,E2(apply,M2,MF),MT))))
 15817	  ftst(root(eval0(E2(apply,E2(apply,M2,MF),MF))))
 15818	  ttst(root(eval0(E2(apply,E2(apply,M3,MT),MT))))
 15819	  ftst(root(eval0(E2(apply,E2(apply,M3,MT),MF))))
 15820	  ttst(root(eval0(E2(apply,E2(apply,M3,MF),MT))))
 15821	  ftst(root(eval0(E2(apply,E2(apply,M3,MF),MF))))
 15822	
 15823	  etst(eval0(E1(boolp,TT)),TT)
 15824	  etst(eval0(E1(boolp,FF)),TT)
 15825	  etst(eval0(E1(boolp,Z0)),FF)
 15826	  etst(eval0(E1(boolp,P0)),FF)
 15827	  etst(eval0(E1(boolp,X0)),X0)
 15828	  etst(eval0(E1(boolp,M0)),FF)
 15829	  etst(eval0(E1(boolp,B0)),FF)
 15830	
 15831	  etst(eval0(E1(catch,TT)),pair(FF,TT))
 15832	  etst(eval0(E1(catch,FF)),pair(FF,FF))
 15833	  etst(eval0(E1(catch,Z0)),pair(FF,Z0))
 15834	  etst(eval0(E1(catch,P0)),pair(FF,P0))
 15835	  etst(eval0(E1(catch,X0)),pair(TT,Z0))
 15836	  etst(eval0(E1(catch,M0)),pair(FF,M0))
 15837	  etst(eval0(E1(catch,B0)),pair(FF,B0))
 15838	
 15839	  etst(eval0(E1(maptag1,TT)),M0)
 15840	  etst(eval0(E1(maptag1,FF)),M0)
 15841	  etst(eval0(E1(maptag1,Z0)),M0)
 15842	  etst(eval0(E1(maptag1,P0)),M0)
 15843	  etst(eval0(E1(maptag1,X0)),M0)
 15844	  etst(eval0(E1(maptag1,M0)),M0)
 15845	  etst(eval0(E1(maptag1,B0)),M0)
 15846	
 15847	  etst(untag(eval0(E1(maptag1,TT))),TT)
 15848	  etst(untag(eval0(E1(maptag1,FF))),FF)
 15849	  etst(untag(eval0(E1(maptag1,Z0))),Z0)
 15850	  etst(untag(eval0(E1(maptag1,P0))),P0)
 15851	  etst(untag(eval0(E1(maptag1,X0))),X0)
 15852	  etst(untag(eval0(E1(maptag1,M0))),M0)
 15853	  etst(untag(eval0(E1(maptag1,B0))),B0)
 15854	
 15855	  etst(eval0(E2(div,TT,TT)),XX)
 15856	  etst(eval0(E2(div,TT,Z1)),XX)
 15857	  etst(eval0(E2(div,TT,X1)),X1)
 15858	  etst(eval0(E2(div,Z0,TT)),XX)
 15859	  etst(eval0(E2(div,Z0,X1)),X1)
 15860	  etst(eval0(E2(div,X0,TT)),X0)
 15861	  etst(eval0(E2(div,X0,Z1)),X0)
 15862	  etst(eval0(E2(div,X0,X1)),X0)
 15863	  etst(eval0(E2(div,N( 1234),N(100))),N( 12))
 15864	  etst(eval0(E2(div,N(-1234),N(100))),N(-13))
 15865	  etst(eval0(E2(div,N( 1250),N(100))),N( 12))
 15866	  etst(eval0(E2(div,N( 1350),N(100))),N( 13))
 15867	
 15868	  etst(eval0(E1(head,TT)),TT)
 15869	  etst(eval0(E1(head,FF)),FF)
 15870	  etst(eval0(E1(head,Z0)),Z0)
 15871	  etst(eval0(E1(head,X0)),X0)
 15872	  etst(eval0(E1(head,M0)),M0)
 15873	  etst(eval0(E1(head,B0)),B0)
 15874	  etst(eval0(E1(head,P0)),TT)
 15875	  etst(eval0(E1(head,P1)),TT)
 15876	  etst(eval0(E1(head,P2)),FF)
 15877	  etst(eval0(E1(head,P3)),FF)
 15878	
 15879	  etst(eval0(E1(intp,TT)),FF)
 15880	  etst(eval0(E1(intp,FF)),FF)
 15881	  etst(eval0(E1(intp,Z0)),TT)
 15882	  etst(eval0(E1(intp,P0)),FF)
 15883	  etst(eval0(E1(intp,X0)),X0)
 15884	  etst(eval0(E1(intp,M0)),FF)
 15885	  etst(eval0(E1(intp,B0)),FF)
 15886	
 15887	  etst(eval0(E2(boolg,TT,N(117))),N(117))
 15888	  etst(eval0(E2(boolg,FF,N(117))),N(117))
 15889	  etst(eval0(E2(boolg,Z0,N(117))),XX)
 15890	  etst(eval0(E2(boolg,P0,N(117))),XX)
 15891	  etst(eval0(E2(boolg,X0,N(117))),X0)
 15892	  etst(eval0(E2(boolg,M0,N(117))),XX)
 15893	  etst(eval0(E2(boolg,B0,N(117))),XX)
 15894	
 15895	  etst(eval0(E2(intg,TT,N(117))),XX)
 15896	  etst(eval0(E2(intg,FF,N(117))),XX)
 15897	  etst(eval0(E2(intg,Z0,N(117))),N(117))
 15898	  etst(eval0(E2(intg,P0,N(117))),XX)
 15899	  etst(eval0(E2(intg,X0,N(117))),X0)
 15900	  etst(eval0(E2(intg,M0,N(117))),XX)
 15901	  etst(eval0(E2(intg,B0,N(117))),XX)
 15902	
 15903	  etst(eval0(E2(mapg,TT,N(117))),XX)
 15904	  etst(eval0(E2(mapg,FF,N(117))),XX)
 15905	  etst(eval0(E2(mapg,Z0,N(117))),XX)
 15906	  etst(eval0(E2(mapg,P0,N(117))),XX)
 15907	  etst(eval0(E2(mapg,X0,N(117))),X0)
 15908	  etst(eval0(E2(mapg,M0,N(117))),N(117))
 15909	  etst(eval0(E2(mapg,B0,N(117))),XX)
 15910	
 15911	  etst(eval0(E2(objg,TT,N(117))),XX)
 15912	  etst(eval0(E2(objg,FF,N(117))),XX)
 15913	  etst(eval0(E2(objg,Z0,N(117))),XX)
 15914	  etst(eval0(E2(objg,P0,N(117))),XX)
 15915	  etst(eval0(E2(objg,X0,N(117))),X0)
 15916	  etst(eval0(E2(objg,M0,N(117))),XX)
 15917	  etst(eval0(E2(objg,B0,N(117))),N(117))
 15918	
 15919	  etst(eval0(E2(pairg,TT,N(117))),XX)
 15920	  etst(eval0(E2(pairg,FF,N(117))),XX)
 15921	  etst(eval0(E2(pairg,Z0,N(117))),XX)
 15922	  etst(eval0(E2(pairg,P0,N(117))),N(117))
 15923	  etst(eval0(E2(pairg,X0,N(117))),X0)
 15924	  etst(eval0(E2(pairg,M0,N(117))),XX)
 15925	  etst(eval0(E2(pairg,B0,N(117))),XX)
 15926	
 15927	  etst(eval0(E1(mapp,TT)),FF)
 15928	  etst(eval0(E1(mapp,FF)),FF)
 15929	  etst(eval0(E1(mapp,Z0)),FF)
 15930	  etst(eval0(E1(mapp,P0)),FF)
 15931	  etst(eval0(E1(mapp,X0)),X0)
 15932	  etst(eval0(E1(mapp,M0)),TT)
 15933	  etst(eval0(E1(mapp,B0)),FF)
 15934	
 15935	  etst(eval0(E1(maptag,TT)),M0)
 15936	  etst(eval0(E1(maptag,FF)),M0)
 15937	  etst(eval0(E1(maptag,Z0)),M0)
 15938	  etst(eval0(E1(maptag,P0)),M0)
 15939	  etst(eval0(E1(maptag,X0)),X0)
 15940	  etst(eval0(E1(maptag,M0)),M0)
 15941	  etst(eval0(E1(maptag,B0)),M0)
 15942	
 15943	  etst(untag(eval0(E1(maptag,TT))),TT)
 15944	  etst(untag(eval0(E1(maptag,FF))),FF)
 15945	  etst(untag(eval0(E1(maptag,Z0))),Z0)
 15946	  etst(untag(eval0(E1(maptag,P0))),P0)
 15947	  etst(untag(eval0(E1(maptag,M0))),M0)
 15948	  etst(untag(eval0(E1(maptag,B0))),B0)
 15949	
 15950	  etst(eval0(E2(mod,TT,TT)),XX)
 15951	  etst(eval0(E2(mod,TT,Z1)),XX)
 15952	  etst(eval0(E2(mod,TT,X1)),X1)
 15953	  etst(eval0(E2(mod,Z0,TT)),XX)
 15954	  etst(eval0(E2(mod,Z0,X1)),X1)
 15955	  etst(eval0(E2(mod,X0,TT)),X0)
 15956	  etst(eval0(E2(mod,X0,Z1)),X0)
 15957	  etst(eval0(E2(mod,X0,X1)),X0)
 15958	  etst(eval0(E2(mod,N( 1234),N(100))),N(34))
 15959	  etst(eval0(E2(mod,N(-1234),N(100))),N(66))
 15960	  etst(eval0(E2(mod,N( 1250),N(100))),N(50))
 15961	  etst(eval0(E2(mod,N( 1350),N(100))),N(50))
 15962	
 15963	  etst(eval0(E1(norm,TT)),TT)
 15964	  etst(eval0(E1(norm,FF)),FF)
 15965	  etst(eval0(E1(norm,Z0)),Z0)
 15966	  etst(eval0(E1(norm,P0)),P0)
 15967	  etst(eval0(E1(norm,X0)),X0)
 15968	  etst(eval0(E1(norm,M0)),M0)
 15969	  etst(eval0(E1(norm,B0)),B0)
 15970	
 15971	  etst(eval0(E1(objp,TT)),FF)
 15972	  etst(eval0(E1(objp,FF)),FF)
 15973	  etst(eval0(E1(objp,Z0)),FF)
 15974	  etst(eval0(E1(objp,P0)),FF)
 15975	  etst(eval0(E1(objp,X0)),X0)
 15976	  etst(eval0(E1(objp,M0)),FF)
 15977	  etst(eval0(E1(objp,B0)),TT)
 15978	
 15979	  etst(eval0(E1(pairp,TT)),FF)
 15980	  etst(eval0(E1(pairp,FF)),FF)
 15981	  etst(eval0(E1(pairp,Z0)),FF)
 15982	  etst(eval0(E1(pairp,P0)),TT)
 15983	  etst(eval0(E1(pairp,X0)),X0)
 15984	  etst(eval0(E1(pairp,M0)),FF)
 15985	  etst(eval0(E1(pairp,B0)),FF)
 15986	
 15987	  etst(eval0(E1(raise,TT)),XX)
 15988	  etst(eval0(E1(raise,I[0])),X0)
 15989	  etst(eval0(E1(raise,I[1])),X1)
 15990	  etst(eval0(E1(raise,I[2])),X2)
 15991	  etst(eval0(E1(raise,I[3])),X3)
 15992	  etst(eval0(E1(raise,X0)),X0)
 15993	
 15994	  etst(eval0(E1(root,TT)),XX)
 15995	  etst(eval0(E1(root,FF)),XX)
 15996	  etst(eval0(E1(root,Z0)),XX)
 15997	  etst(eval0(E1(root,P0)),XX)
 15998	  etst(eval0(E1(root,X0)),X0)
 15999	  etst(eval0(E1(root,B0)),XX)
 16000	  etst(eval0(E1(root,M0)),TT)
 16001	  etst(eval0(E1(root,M1)),FF)
 16002	  etst(eval0(E1(root,M2)),FF)
 16003	  etst(eval0(E1(root,M3)),FF)
 16004	  ttst(eval0(E1(root,E2(apply,M0,MT))))
 16005	  ttst(eval0(E1(root,E2(apply,M0,MF))))
 16006	  ttst(eval0(E1(root,E2(apply,M1,MT))))
 16007	  ttst(eval0(E1(root,E2(apply,M1,MF))))
 16008	  ftst(eval0(E1(root,E2(apply,M2,MT))))
 16009	  ftst(eval0(E1(root,E2(apply,M2,MF))))
 16010	  ftst(eval0(E1(root,E2(apply,M3,MT))))
 16011	  ftst(eval0(E1(root,E2(apply,M3,MF))))
 16012	  ttst(eval0(E1(root,E2(apply,E2(apply,M0,MT),MT))))
 16013	  ttst(eval0(E1(root,E2(apply,E2(apply,M0,MT),MF))))
 16014	  ttst(eval0(E1(root,E2(apply,E2(apply,M0,MF),MT))))
 16015	  ttst(eval0(E1(root,E2(apply,E2(apply,M0,MF),MF))))
 16016	  ttst(eval0(E1(root,E2(apply,E2(apply,M1,MT),MT))))
 16017	  ttst(eval0(E1(root,E2(apply,E2(apply,M1,MT),MF))))
 16018	  ttst(eval0(E1(root,E2(apply,E2(apply,M1,MF),MT))))
 16019	  ttst(eval0(E1(root,E2(apply,E2(apply,M1,MF),MF))))
 16020	  ttst(eval0(E1(root,E2(apply,E2(apply,M2,MT),MT))))
 16021	  ttst(eval0(E1(root,E2(apply,E2(apply,M2,MT),MF))))
 16022	  ftst(eval0(E1(root,E2(apply,E2(apply,M2,MF),MT))))
 16023	  ftst(eval0(E1(root,E2(apply,E2(apply,M2,MF),MF))))
 16024	  ttst(eval0(E1(root,E2(apply,E2(apply,M3,MT),MT))))
 16025	  ftst(eval0(E1(root,E2(apply,E2(apply,M3,MT),MF))))
 16026	  ttst(eval0(E1(root,E2(apply,E2(apply,M3,MF),MT))))
 16027	  ftst(eval0(E1(root,E2(apply,E2(apply,M3,MF),MF))))
 16028	
 16029	  etst(eval0(E1(tail,TT)),TT)
 16030	  etst(eval0(E1(tail,FF)),FF)
 16031	  etst(eval0(E1(tail,Z0)),Z0)
 16032	  etst(eval0(E1(tail,X0)),X0)
 16033	  etst(eval0(E1(tail,M0)),M0)
 16034	  etst(eval0(E1(tail,B0)),B0)
 16035	  etst(eval0(E1(tail,P0)),TT)
 16036	  etst(eval0(E1(tail,P1)),FF)
 16037	  etst(eval0(E1(tail,P2)),TT)
 16038	  etst(eval0(E1(tail,P3)),FF)
 16039	
 16040	  etst(eval0(E1(untag,TT)),XX)
 16041	  etst(eval0(E1(untag,FF)),XX)
 16042	  etst(eval0(E1(untag,Z0)),XX)
 16043	  etst(eval0(E1(untag,P0)),XX)
 16044	  etst(eval0(E1(untag,X0)),X0)
 16045	  etst(eval0(E1(untag,B0)),XX)
 16046	  etst(eval0(E1(untag,M0)),TT)
 16047	  etst(eval0(E1(untag,E1(maptag1,TT))),TT)
 16048	  etst(eval0(E1(untag,E1(maptag1,FF))),FF)
 16049	  etst(eval0(E1(untag,E1(maptag1,Z0))),Z0)
 16050	  etst(eval0(E1(untag,E1(maptag1,P0))),P0)
 16051	  etst(eval0(E1(untag,E1(maptag1,X0))),X0)
 16052	  etst(eval0(E1(untag,E1(maptag1,M0))),M0)
 16053	  etst(eval0(E1(untag,E1(maptag1,B0))),B0)
 16054	
 16055	  etst(eval0(E0(digitend)),Z)
 16056	
 16057	  etst(eval0(E1(par,TT)),TT)
 16058	  etst(eval0(E1(par,FF)),FF)
 16059	  etst(eval0(E1(par,Z0)),Z0)
 16060	  etst(eval0(E1(par,P0)),P0)
 16061	  etst(eval0(E1(par,X0)),X0)
 16062	  etst(eval0(E1(par,M0)),M0)
 16063	  etst(eval0(E1(par,B0)),B0)
 16064	
 16065	  etst(eval0(E1(uplus,TT)),XX)
 16066	  etst(eval0(E1(uplus,FF)),XX)
 16067	  etst(eval0(E1(uplus,N(117))),N(117))
 16068	  etst(eval0(E1(uplus,P0)),XX)
 16069	  etst(eval0(E1(uplus,X0)),X0)
 16070	  etst(eval0(E1(uplus,M0)),XX)
 16071	  etst(eval0(E1(uplus,B0)),XX)
 16072	
 16073	  etst(eval0(E1(dplus,TT)),XX)
 16074	  etst(eval0(E1(dplus,FF)),XX)
 16075	  etst(eval0(E1(dplus,N(117))),N(117))
 16076	  etst(eval0(E1(dplus,P0)),XX)
 16077	  etst(eval0(E1(dplus,X0)),X0)
 16078	  etst(eval0(E1(dplus,M0)),XX)
 16079	  etst(eval0(E1(dplus,B0)),XX)
 16080	
 16081	  etst(eval0(E1(uminus,TT)),XX)
 16082	  etst(eval0(E1(uminus,FF)),XX)
 16083	  etst(eval0(E1(uminus,N(117))),N(-117))
 16084	  etst(eval0(E1(uminus,P0)),XX)
 16085	  etst(eval0(E1(uminus,X0)),X0)
 16086	  etst(eval0(E1(uminus,M0)),XX)
 16087	  etst(eval0(E1(uminus,B0)),XX)
 16088	
 16089	  etst(eval0(E1(dminus,TT)),XX)
 16090	  etst(eval0(E1(dminus,FF)),XX)
 16091	  etst(eval0(E1(dminus,N(117))),N(-117))
 16092	  etst(eval0(E1(dminus,P0)),XX)
 16093	  etst(eval0(E1(dminus,X0)),X0)
 16094	  etst(eval0(E1(dminus,M0)),XX)
 16095	  etst(eval0(E1(dminus,B0)),XX)
 16096	
 16097	  etst(eval0(E1(not,TT)),FF)
 16098	  etst(eval0(E1(not,FF)),TT)
 16099	  etst(eval0(E1(not,Z0)),TT)
 16100	  etst(eval0(E1(not,P0)),TT)
 16101	  etst(eval0(E1(not,X0)),X0)
 16102	  etst(eval0(E1(not,M0)),TT)
 16103	  etst(eval0(E1(not,B0)),TT)
 16104	
 16105	  etst(eval0(E0(Base)),N(10))
 16106	
 16107	  etst(eval2(E2(LET,T,V0),T,T),T)
 16108	  etst(eval2(E2(LET,T,V0),T,F),T)
 16109	  etst(eval2(E2(LET,T,V0),F,T),T)
 16110	  etst(eval2(E2(LET,T,V0),F,F),T)
 16111	  etst(eval2(E2(LET,F,V0),T,T),F)
 16112	  etst(eval2(E2(LET,F,V0),T,F),F)
 16113	  etst(eval2(E2(LET,F,V0),F,T),F)
 16114	  etst(eval2(E2(LET,F,V0),F,F),F)
 16115	  etst(eval2(E2(LET,X1,V0),T,T),X1)
 16116	  etst(eval2(E2(LET,X1,V0),T,F),X1)
 16117	  etst(eval2(E2(LET,X1,V0),F,T),X1)
 16118	  etst(eval2(E2(LET,X1,V0),F,F),X1)
 16119	
 16120	  etst(eval2(E2(LET,T,V1),T,T),T)
 16121	  etst(eval2(E2(LET,T,V1),T,F),T)
 16122	  etst(eval2(E2(LET,T,V1),F,T),F)
 16123	  etst(eval2(E2(LET,T,V1),F,F),F)
 16124	  etst(eval2(E2(LET,F,V1),T,T),T)
 16125	  etst(eval2(E2(LET,F,V1),T,F),T)
 16126	  etst(eval2(E2(LET,F,V1),F,T),F)
 16127	  etst(eval2(E2(LET,F,V1),F,F),F)
 16128	  etst(eval2(E2(LET,X1,V1),T,T),X1)
 16129	  etst(eval2(E2(LET,X1,V1),T,F),X1)
 16130	  etst(eval2(E2(LET,X1,V1),F,T),X1)
 16131	  etst(eval2(E2(LET,X1,V1),F,F),X1)
 16132	
 16133	  etst(eval2(E2(LET,T,V2),T,T),T)
 16134	  etst(eval2(E2(LET,T,V2),T,F),F)
 16135	  etst(eval2(E2(LET,T,V2),F,T),T)
 16136	  etst(eval2(E2(LET,T,V2),F,F),F)
 16137	  etst(eval2(E2(LET,F,V2),T,T),T)
 16138	  etst(eval2(E2(LET,F,V2),T,F),F)
 16139	  etst(eval2(E2(LET,F,V2),F,T),T)
 16140	  etst(eval2(E2(LET,F,V2),F,F),F)
 16141	  etst(eval2(E2(LET,X1,V2),T,T),X1)
 16142	  etst(eval2(E2(LET,X1,V2),T,F),X1)
 16143	  etst(eval2(E2(LET,X1,V2),F,T),X1)
 16144	  etst(eval2(E2(LET,X1,V2),F,F),X1)
 16145	
 16146	  etst(eval2(E2(LET,T,T),T,T),T)
 16147	  etst(eval2(E2(LET,T,T),T,F),T)
 16148	  etst(eval2(E2(LET,T,T),F,T),T)
 16149	  etst(eval2(E2(LET,T,T),F,F),T)
 16150	  etst(eval2(E2(LET,F,T),T,T),T)
 16151	  etst(eval2(E2(LET,F,T),T,F),T)
 16152	  etst(eval2(E2(LET,F,T),F,T),T)
 16153	  etst(eval2(E2(LET,F,T),F,F),T)
 16154	  etst(eval2(E2(LET,X1,T),T,T),X1)
 16155	  etst(eval2(E2(LET,X1,T),T,F),X1)
 16156	  etst(eval2(E2(LET,X1,T),F,T),X1)
 16157	  etst(eval2(E2(LET,X1,T),F,F),X1)
 16158	
 16159	  etst(eval2(E2(LET,T,F),T,T),F)
 16160	  etst(eval2(E2(LET,T,F),T,F),F)
 16161	  etst(eval2(E2(LET,T,F),F,T),F)
 16162	  etst(eval2(E2(LET,T,F),F,F),F)
 16163	  etst(eval2(E2(LET,F,F),T,T),F)
 16164	  etst(eval2(E2(LET,F,F),T,F),F)
 16165	  etst(eval2(E2(LET,F,F),F,T),F)
 16166	  etst(eval2(E2(LET,F,F),F,F),F)
 16167	  etst(eval2(E2(LET,X1,F),T,T),X1)
 16168	  etst(eval2(E2(LET,X1,F),T,F),X1)
 16169	  etst(eval2(E2(LET,X1,F),F,T),X1)
 16170	  etst(eval2(E2(LET,X1,F),F,F),X1)
 16171	
 16172	  etst(eval2(E2(LET,T,X0),T,T),X0)
 16173	  etst(eval2(E2(LET,T,X0),T,F),X0)
 16174	  etst(eval2(E2(LET,T,X0),F,T),X0)
 16175	  etst(eval2(E2(LET,T,X0),F,F),X0)
 16176	  etst(eval2(E2(LET,F,X0),T,T),X0)
 16177	  etst(eval2(E2(LET,F,X0),T,F),X0)
 16178	  etst(eval2(E2(LET,F,X0),F,T),X0)
 16179	  etst(eval2(E2(LET,F,X0),F,F),X0)
 16180	  etst(eval2(E2(LET,X1,X0),T,T),X1)
 16181	  etst(eval2(E2(LET,X1,X0),T,F),X1)
 16182	  etst(eval2(E2(LET,X1,X0),F,T),X1)
 16183	  etst(eval2(E2(LET,X1,X0),F,F),X1)
 16184	
 16185	  etst(eval2(E2(LET,Z1,E2(LET,Z0,V0)),Z2,Z3),Z0)
 16186	  etst(eval2(E2(LET,Z1,E2(LET,Z0,V1)),Z2,Z3),Z1)
 16187	  etst(eval2(E2(LET,Z1,E2(LET,Z0,V2)),Z2,Z3),Z2)
 16188	  etst(eval2(E2(LET,Z1,E2(LET,Z0,V3)),Z2,Z3),Z3)
 16189	  etst(eval2(E2(LET,Z1,E2(LET,Z0,TT)),Z2,Z3),TT)
 16190	  etst(eval2(E2(LET,Z1,E2(LET,Z0,FF)),Z2,Z3),FF)
 16191	  etst(eval2(E2(LET,Z1,E2(LET,Z0,X0)),Z2,Z3),X0)
 16192	  etst(eval2(E2(LET,Z1,E2(LET,X1,X0)),Z2,Z3),X1)
 16193	  etst(eval2(E2(LET,X2,E2(LET,X1,X0)),Z2,Z3),X2)
 16194	  etst(eval2(E2(LET,Z1,E2(LET,X1,BB)),Z2,Z3),X1)
 16195	  etst(eval2(E2(LET,X2,E2(LET,BB,BB)),Z2,Z3),X2)
 16196	
 16197	  etst(eval0(E2(ash,TT,TT)),XX)
 16198	  etst(eval0(E2(ash,TT,Z1)),XX)
 16199	  etst(eval0(E2(ash,TT,X1)),X1)
 16200	  etst(eval0(E2(ash,Z0,TT)),XX)
 16201	  etst(eval0(E2(ash,Z0,X1)),X1)
 16202	  etst(eval0(E2(ash,X0,TT)),X0)
 16203	  etst(eval0(E2(ash,X0,Z1)),X0)
 16204	  etst(eval0(E2(ash,X0,X1)),X0)
 16205	  etst(eval0(E2(ash,X0,BB)),X0)
 16206	  etst(eval0(E2(ash,N(1),N(10))),N(1024))
 16207	
 16208	/*
 16209	  Tests that bottom does not return a value:
 16210	  ttst(eval0(E0(bottom)))
 16211	  ttst(eval0(B))
 16212	  ttst(eval0(BB))
 16213	*/
 16214	
 16215	  etst(eval0(E1(bt2bytes,PAIR(PAIR(N(1),N(-1)),PAIR(B0,N(100))))),
 16216	    PAIR(N(1),PAIR(N(100),T)))
 16217	  etst(eval0(E1(bt2bytes,X1)),X1)
 16218	
 16219	  etst(eval0(E1(bt2vector,PAIR(PAIR(N(97),N(-1)),PAIR(B0,N(98))))),V(ab))
 16220	  etst(eval0(E1(bt2vector,X1)),X1)
 16221	
 16222	  etst(eval0(E2(ceiling,TT,TT)),XX)
 16223	  etst(eval0(E2(ceiling,TT,Z1)),XX)
 16224	  etst(eval0(E2(ceiling,TT,X1)),X1)
 16225	  etst(eval0(E2(ceiling,Z0,TT)),XX)
 16226	  etst(eval0(E2(ceiling,Z0,X1)),X1)
 16227	  etst(eval0(E2(ceiling,X0,TT)),X0)
 16228	  etst(eval0(E2(ceiling,X0,Z1)),X0)
 16229	  etst(eval0(E2(ceiling,X0,X1)),X0)
 16230	  etst(eval0(E2(ceiling,X0,BB)),X0)
 16231	  etst(eval0(E2(ceiling,N( 1234),N(100))),PAIR(N( 13),N(-66)))
 16232	  etst(eval0(E2(ceiling,N(-1234),N(100))),PAIR(N(-12),N(-34)))
 16233	  etst(eval0(E2(ceiling,N( 1250),N(100))),PAIR(N( 13),N(-50)))
 16234	  etst(eval0(E2(ceiling,N( 1350),N(100))),PAIR(N( 14),N(-50)))
 16235	
 16236	  etst(eval0(E1(destruct,TT)),XX)
 16237	  etst(eval0(E1(destruct,FF)),XX)
 16238	  etst(eval0(E1(destruct,Z0)),XX)
 16239	  etst(eval0(E1(destruct,P0)),XX)
 16240	  etst(eval0(E1(destruct,X0)),X0)
 16241	  etst(eval0(E1(destruct,M0)),XX)
 16242	  etst(eval0(E1(destruct,B0)),PAIR(PAIR(N(1),N(2)),N(3)))
 16243	  etst(eval0(E1(destruct,B1)),PAIR(PAIR(N(9),N(2)),N(3)))
 16244	  etst(eval0(E1(destruct,B2)),PAIR(PAIR(N(1),N(9)),N(3)))
 16245	  etst(eval0(E1(destruct,B3)),PAIR(PAIR(N(1),N(2)),N(9)))
 16246	
 16247	  etst(eval0(E1(evenp,TT)),XX)
 16248	  etst(eval0(E1(evenp,FF)),XX)
 16249	  etst(eval0(E1(evenp,N(116))),TT)
 16250	  etst(eval0(E1(evenp,N(117))),FF)
 16251	  etst(eval0(E1(evenp,P0)),XX)
 16252	  etst(eval0(E1(evenp,X0)),X0)
 16253	  etst(eval0(E1(evenp,M0)),XX)
 16254	  etst(eval0(E1(evenp,B0)),XX)
 16255	
 16256	  etst(eval0(E0(exception)),X)
 16257	
 16258	  etst(eval0(E0(false)),F)
 16259	
 16260	  etst(eval0(E2(floor,TT,TT)),XX)
 16261	  etst(eval0(E2(floor,TT,Z1)),XX)
 16262	  etst(eval0(E2(floor,TT,X1)),X1)
 16263	  etst(eval0(E2(floor,Z0,TT)),XX)
 16264	  etst(eval0(E2(floor,Z0,X1)),X1)
 16265	  etst(eval0(E2(floor,X0,TT)),X0)
 16266	  etst(eval0(E2(floor,X0,Z1)),X0)
 16267	  etst(eval0(E2(floor,X0,X1)),X0)
 16268	  etst(eval0(E2(floor,X0,BB)),X0)
 16269	  etst(eval0(E2(floor,N( 1234),N(100))),PAIR(N( 12),N(34)))
 16270	  etst(eval0(E2(floor,N(-1234),N(100))),PAIR(N(-13),N(66)))
 16271	  etst(eval0(E2(floor,N( 1250),N(100))),PAIR(N( 12),N(50)))
 16272	  etst(eval0(E2(floor,N( 1350),N(100))),PAIR(N( 13),N(50)))
 16273	
 16274	  etst(eval0(E1(half,TT)),XX)
 16275	  etst(eval0(E1(half,FF)),XX)
 16276	  etst(eval0(E1(half,N(116))),N(58))
 16277	  etst(eval0(E1(half,N(117))),N(58))
 16278	  etst(eval0(E1(half,P0)),XX)
 16279	  etst(eval0(E1(half,X0)),X0)
 16280	  etst(eval0(E1(half,M0)),XX)
 16281	  etst(eval0(E1(half,B0)),XX)
 16282	
 16283	  etst(eval0(E3(if,TT,Z1,Z2)),Z1)
 16284	  etst(eval0(E3(if,TT,Z1,X0)),Z1)
 16285	  etst(eval0(E3(if,TT,Z1,BB)),Z1)
 16286	  etst(eval0(E3(if,FF,Z1,Z2)),Z2)
 16287	  etst(eval0(E3(if,FF,X0,Z2)),Z2)
 16288	  etst(eval0(E3(if,FF,BB,Z2)),Z2)
 16289	  etst(eval0(E3(if,Z0,Z1,Z2)),Z2)
 16290	  etst(eval0(E3(if,Z0,X0,Z2)),Z2)
 16291	  etst(eval0(E3(if,Z0,BB,Z2)),Z2)
 16292	  etst(eval0(E3(if,P0,Z1,Z2)),Z2)
 16293	  etst(eval0(E3(if,P0,X0,Z2)),Z2)
 16294	  etst(eval0(E3(if,P0,BB,Z2)),Z2)
 16295	  etst(eval0(E3(if,M0,Z1,Z2)),Z2)
 16296	  etst(eval0(E3(if,M0,X0,Z2)),Z2)
 16297	  etst(eval0(E3(if,M0,BB,Z2)),Z2)
 16298	  etst(eval0(E3(if,B0,Z1,Z2)),Z2)
 16299	  etst(eval0(E3(if,B0,X0,Z2)),Z2)
 16300	  etst(eval0(E3(if,B0,BB,Z2)),Z2)
 16301	  etst(eval0(E3(if,X0,Z1,Z2)),X0)
 16302	  etst(eval0(E3(if,X0,BB,BB)),X0)
 16303	
 16304	  etst(eval0(E1(intlength,TT)),XX)
 16305	  etst(eval0(E1(intlength,FF)),XX)
 16306	  etst(eval0(E1(intlength,N(117))),N(7))
 16307	  etst(eval0(E1(intlength,P0)),XX)
 16308	  etst(eval0(E1(intlength,X0)),X0)
 16309	  etst(eval0(E1(intlength,M0)),XX)
 16310	  etst(eval0(E1(intlength,B0)),XX)
 16311	
 16312	  etst(eval0(E2(logand,TT,TT)),XX)
 16313	  etst(eval0(E2(logand,TT,Z1)),XX)
 16314	  etst(eval0(E2(logand,TT,X1)),X1)
 16315	  etst(eval0(E2(logand,Z0,TT)),XX)
 16316	  etst(eval0(E2(logand,Z0,X1)),X1)
 16317	  etst(eval0(E2(logand,X0,TT)),X0)
 16318	  etst(eval0(E2(logand,X0,Z1)),X0)
 16319	  etst(eval0(E2(logand,X0,X1)),X0)
 16320	  etst(eval0(E2(logand,X0,BB)),X0)
 16321	  etst(eval0(E2(logand,I0011,I0101)),I0001)
 16322	
 16323	  etst(eval0(E2(logandc1,TT,TT)),XX)
 16324	  etst(eval0(E2(logandc1,TT,Z1)),XX)
 16325	  etst(eval0(E2(logandc1,TT,X1)),X1)
 16326	  etst(eval0(E2(logandc1,Z0,TT)),XX)
 16327	  etst(eval0(E2(logandc1,Z0,X1)),X1)
 16328	  etst(eval0(E2(logandc1,X0,TT)),X0)
 16329	  etst(eval0(E2(logandc1,X0,Z1)),X0)
 16330	  etst(eval0(E2(logandc1,X0,X1)),X0)
 16331	  etst(eval0(E2(logandc1,X0,BB)),X0)
 16332	  etst(eval0(E2(logandc1,lognot(I0011),I0101)),I0001)
 16333	
 16334	  etst(eval0(E2(logandc2,TT,TT)),XX)
 16335	  etst(eval0(E2(logandc2,TT,Z1)),XX)
 16336	  etst(eval0(E2(logandc2,TT,X1)),X1)
 16337	  etst(eval0(E2(logandc2,Z0,TT)),XX)
 16338	  etst(eval0(E2(logandc2,Z0,X1)),X1)
 16339	  etst(eval0(E2(logandc2,X0,TT)),X0)
 16340	  etst(eval0(E2(logandc2,X0,Z1)),X0)
 16341	  etst(eval0(E2(logandc2,X0,X1)),X0)
 16342	  etst(eval0(E2(logandc2,X0,BB)),X0)
 16343	  etst(eval0(E2(logandc2,I0011,lognot(I0101))),I0001)
 16344	
 16345	  etst(eval0(E2(logbitp,TT,TT)),XX)
 16346	  etst(eval0(E2(logbitp,TT,Z1)),XX)
 16347	  etst(eval0(E2(logbitp,TT,X1)),X1)
 16348	  etst(eval0(E2(logbitp,Z0,TT)),XX)
 16349	  etst(eval0(E2(logbitp,Z0,X1)),X1)
 16350	  etst(eval0(E2(logbitp,X0,TT)),X0)
 16351	  etst(eval0(E2(logbitp,X0,Z1)),X0)
 16352	  etst(eval0(E2(logbitp,X0,X1)),X0)
 16353	  etst(eval0(E2(logbitp,X0,BB)),X0)
 16354	  ttst(eval0(E2(logbitp,N(0),I0011)))
 16355	  ttst(eval0(E2(logbitp,N(1),I0011)))
 16356	  ftst(eval0(E2(logbitp,N(2),I0011)))
 16357	  ftst(eval0(E2(logbitp,N(3),I0011)))
 16358	
 16359	  etst(eval0(E1(logcount,TT)),XX)
 16360	  etst(eval0(E1(logcount,FF)),XX)
 16361	  etst(eval0(E1(logcount,P0)),XX)
 16362	  etst(eval0(E1(logcount,X0)),X0)
 16363	  etst(eval0(E1(logcount,M0)),XX)
 16364	  etst(eval0(E1(logcount,B0)),XX)
 16365	  etst(eval0(E1(logcount,I0000)),N(0))
 16366	  etst(eval0(E1(logcount,I0001)),N(1))
 16367	  etst(eval0(E1(logcount,I0010)),N(1))
 16368	  etst(eval0(E1(logcount,I0011)),N(2))
 16369	  etst(eval0(E1(logcount,I0100)),N(1))
 16370	  etst(eval0(E1(logcount,I0101)),N(2))
 16371	  etst(eval0(E1(logcount,I0110)),N(2))
 16372	  etst(eval0(E1(logcount,I0111)),N(3))
 16373	
 16374	  etst(eval0(E2(logeqv,TT,TT)),XX)
 16375	  etst(eval0(E2(logeqv,TT,Z1)),XX)
 16376	  etst(eval0(E2(logeqv,TT,X1)),X1)
 16377	  etst(eval0(E2(logeqv,Z0,TT)),XX)
 16378	  etst(eval0(E2(logeqv,Z0,X1)),X1)
 16379	  etst(eval0(E2(logeqv,X0,TT)),X0)
 16380	  etst(eval0(E2(logeqv,X0,Z1)),X0)
 16381	  etst(eval0(E2(logeqv,X0,X1)),X0)
 16382	  etst(eval0(E2(logeqv,X0,BB)),X0)
 16383	  etst(eval0(E2(logeqv,lognot(I0011),I0101)),I0110)
 16384	
 16385	  etst(eval0(E2(logior,TT,TT)),XX)
 16386	  etst(eval0(E2(logior,TT,Z1)),XX)
 16387	  etst(eval0(E2(logior,TT,X1)),X1)
 16388	  etst(eval0(E2(logior,Z0,TT)),XX)
 16389	  etst(eval0(E2(logior,Z0,X1)),X1)
 16390	  etst(eval0(E2(logior,X0,TT)),X0)
 16391	  etst(eval0(E2(logior,X0,Z1)),X0)
 16392	  etst(eval0(E2(logior,X0,X1)),X0)
 16393	  etst(eval0(E2(logior,X0,BB)),X0)
 16394	  etst(eval0(E2(logior,I0011,I0101)),I0111)
 16395	
 16396	  etst(eval0(E2(lognand,TT,TT)),XX)
 16397	  etst(eval0(E2(lognand,TT,Z1)),XX)
 16398	  etst(eval0(E2(lognand,TT,X1)),X1)
 16399	  etst(eval0(E2(lognand,Z0,TT)),XX)
 16400	  etst(eval0(E2(lognand,Z0,X1)),X1)
 16401	  etst(eval0(E2(lognand,X0,TT)),X0)
 16402	  etst(eval0(E2(lognand,X0,Z1)),X0)
 16403	  etst(eval0(E2(lognand,X0,X1)),X0)
 16404	  etst(eval0(E2(lognand,X0,BB)),X0)
 16405	  etst(eval0(E2(lognand,I0011,I0101)),lognot(I0001))
 16406	
 16407	  etst(eval0(E2(lognor,TT,TT)),XX)
 16408	  etst(eval0(E2(lognor,TT,Z1)),XX)
 16409	  etst(eval0(E2(lognor,TT,X1)),X1)
 16410	  etst(eval0(E2(lognor,Z0,TT)),XX)
 16411	  etst(eval0(E2(lognor,Z0,X1)),X1)
 16412	  etst(eval0(E2(lognor,X0,TT)),X0)
 16413	  etst(eval0(E2(lognor,X0,Z1)),X0)
 16414	  etst(eval0(E2(lognor,X0,X1)),X0)
 16415	  etst(eval0(E2(lognor,X0,BB)),X0)
 16416	  etst(eval0(E2(lognor,I0011,I0101)),lognot(I0111))
 16417	
 16418	  etst(eval0(E1(lognot,TT)),XX)
 16419	  etst(eval0(E1(lognot,FF)),XX)
 16420	  etst(eval0(E1(lognot,I0011)),J1100)
 16421	  etst(eval0(E1(lognot,P0)),XX)
 16422	  etst(eval0(E1(lognot,X0)),X0)
 16423	  etst(eval0(E1(lognot,M0)),XX)
 16424	  etst(eval0(E1(lognot,B0)),XX)
 16425	
 16426	  etst(eval0(E2(logorc1,TT,TT)),XX)
 16427	  etst(eval0(E2(logorc1,TT,Z1)),XX)
 16428	  etst(eval0(E2(logorc1,TT,X1)),X1)
 16429	  etst(eval0(E2(logorc1,Z0,TT)),XX)
 16430	  etst(eval0(E2(logorc1,Z0,X1)),X1)
 16431	  etst(eval0(E2(logorc1,X0,TT)),X0)
 16432	  etst(eval0(E2(logorc1,X0,Z1)),X0)
 16433	  etst(eval0(E2(logorc1,X0,X1)),X0)
 16434	  etst(eval0(E2(logorc1,X0,BB)),X0)
 16435	  etst(eval0(E2(logorc1,lognot(I0011),I0101)),I0111)
 16436	
 16437	  etst(eval0(E2(logorc2,TT,TT)),XX)
 16438	  etst(eval0(E2(logorc2,TT,Z1)),XX)
 16439	  etst(eval0(E2(logorc2,TT,X1)),X1)
 16440	  etst(eval0(E2(logorc2,Z0,TT)),XX)
 16441	  etst(eval0(E2(logorc2,Z0,X1)),X1)
 16442	  etst(eval0(E2(logorc2,X0,TT)),X0)
 16443	  etst(eval0(E2(logorc2,X0,Z1)),X0)
 16444	  etst(eval0(E2(logorc2,X0,X1)),X0)
 16445	  etst(eval0(E2(logorc2,X0,BB)),X0)
 16446	  etst(eval0(E2(logorc2,I0011,lognot(I0101))),I0111)
 16447	
 16448	  etst(eval0(E2(logtest,TT,TT)),XX)
 16449	  etst(eval0(E2(logtest,TT,Z1)),XX)
 16450	  etst(eval0(E2(logtest,TT,X1)),X1)
 16451	  etst(eval0(E2(logtest,Z0,TT)),XX)
 16452	  etst(eval0(E2(logtest,Z0,X1)),X1)
 16453	  etst(eval0(E2(logtest,X0,TT)),X0)
 16454	  etst(eval0(E2(logtest,X0,Z1)),X0)
 16455	  etst(eval0(E2(logtest,X0,X1)),X0)
 16456	  etst(eval0(E2(logtest,X0,BB)),X0)
 16457	  ttst(eval0(E2(logtest,I0011,I0101)))
 16458	  ftst(eval0(E2(logtest,I0011,I1100)))
 16459	
 16460	  etst(eval0(E2(logxor,TT,TT)),XX)
 16461	  etst(eval0(E2(logxor,TT,Z1)),XX)
 16462	  etst(eval0(E2(logxor,TT,X1)),X1)
 16463	  etst(eval0(E2(logxor,Z0,TT)),XX)
 16464	  etst(eval0(E2(logxor,Z0,X1)),X1)
 16465	  etst(eval0(E2(logxor,X0,TT)),X0)
 16466	  etst(eval0(E2(logxor,X0,Z1)),X0)
 16467	  etst(eval0(E2(logxor,X0,X1)),X0)
 16468	  etst(eval0(E2(logxor,X0,BB)),X0)
 16469	  etst(eval0(E2(logxor,I0011,I0101)),I0110)
 16470	
 16471	  etst(eval0(E1(map,TT)),M0)
 16472	  etst(eval0(E1(map,FF)),M0)
 16473	  etst(eval0(E1(map,X0)),M0)
 16474	  etst(eval0(E1(map,BB)),M0)
 16475	  etst(untag(eval0(E1(map,TT))),TT)
 16476	  etst(untag(eval0(E1(map,FF))),FF)
 16477	  etst(untag(eval0(E1(map,X0))),X0)
 16478	  ftst(eval0(E1(root,E1(map,UPTT))))
 16479	  ttst(eval0(E1(root,E2(apply,E1(map,UPTT),E1(map,T)))))
 16480	  ttst(eval0(E1(root,E2(apply,E1(map,UPTF),E1(map,T)))))
 16481	  ftst(eval0(E1(root,E2(apply,E1(map,UPFT),E1(map,T)))))
 16482	  ftst(eval0(E1(root,E2(apply,E1(map,UPFF),E1(map,T)))))
 16483	  ttst(eval0(E1(root,E2(apply,E1(map,UPTT),E1(map,F)))))
 16484	  ftst(eval0(E1(root,E2(apply,E1(map,UPTF),E1(map,F)))))
 16485	  ttst(eval0(E1(root,E2(apply,E1(map,UPFT),E1(map,F)))))
 16486	  ftst(eval0(E1(root,E2(apply,E1(map,UPFF),E1(map,F)))))
 16487	
 16488	  etst(eval0(E1(prenorm,TT)),TT)
 16489	  etst(eval0(E1(prenorm,FF)),FF)
 16490	  etst(eval0(E1(prenorm,Z0)),Z0)
 16491	  etst(eval0(E1(prenorm,P0)),P0)
 16492	  etst(eval0(E1(prenorm,X0)),X0)
 16493	  etst(eval0(E1(prenorm,M0)),M0)
 16494	  etst(eval0(E1(prenorm,B0)),B0)
 16495	
 16496	  etst(eval0(E1(notnot,TT)),TT)
 16497	  etst(eval0(E1(notnot,FF)),FF)
 16498	  etst(eval0(E1(notnot,Z0)),FF)
 16499	  etst(eval0(E1(notnot,P0)),FF)
 16500	  etst(eval0(E1(notnot,X0)),X0)
 16501	  etst(eval0(E1(notnot,M0)),FF)
 16502	  etst(eval0(E1(notnot,B0)),FF)
 16503	
 16504	  etst(eval0(E1(object,TT)),XX)
 16505	  etst(eval0(E1(object,FF)),XX)
 16506	  etst(eval0(E1(object,Z0)),XX)
 16507	  etst(eval0(E1(object,P0)),XX)
 16508	  etst(eval0(E1(object,X0)),X0)
 16509	  etst(eval0(E1(object,M0)),XX)
 16510	  etst(eval0(E1(object,B0)),XX)
 16511	  etst(eval0(E1(object,PAIR(PAIR(I[1],I[2]),I[3]))),B0)
 16512	
 16513	  etst(eval0(E1(print,T)),V(print))
 16514	
 16515	  etst(eval0(E2(round,TT,TT)),XX)
 16516	  etst(eval0(E2(round,TT,Z1)),XX)
 16517	  etst(eval0(E2(round,TT,X1)),X1)
 16518	  etst(eval0(E2(round,Z0,TT)),XX)
 16519	  etst(eval0(E2(round,Z0,X1)),X1)
 16520	  etst(eval0(E2(round,X0,TT)),X0)
 16521	  etst(eval0(E2(round,X0,Z1)),X0)
 16522	  etst(eval0(E2(round,X0,X1)),X0)
 16523	  etst(eval0(E2(round,X0,BB)),X0)
 16524	  etst(eval0(E2(round,N( 1234),N(100))),PAIR(N( 12),N( 34)))
 16525	  etst(eval0(E2(round,N(-1234),N(100))),PAIR(N(-12),N(-34)))
 16526	  etst(eval0(E2(round,N( 1250),N(100))),PAIR(N( 12),N( 50)))
 16527	  etst(eval0(E2(round,N( 1350),N(100))),PAIR(N( 14),N(-50)))
 16528	
 16529	  etst(eval0(E1(spy,T)),V(spy))
 16530	  etst(eval0(E1(timer,T)),V(timer))
 16531	  etst(eval0(E1(trace,T)),V(trace))
 16532	
 16533	  etst(eval0(E2(truncate,TT,TT)),XX)
 16534	  etst(eval0(E2(truncate,TT,Z1)),XX)
 16535	  etst(eval0(E2(truncate,TT,X1)),X1)
 16536	  etst(eval0(E2(truncate,Z0,TT)),XX)
 16537	  etst(eval0(E2(truncate,Z0,X1)),X1)
 16538	  etst(eval0(E2(truncate,X0,TT)),X0)
 16539	  etst(eval0(E2(truncate,X0,Z1)),X0)
 16540	  etst(eval0(E2(truncate,X0,X1)),X0)
 16541	  etst(eval0(E2(truncate,X0,BB)),X0)
 16542	  etst(eval0(E2(truncate,N( 1234),N(100))),PAIR(N( 12),N( 34)))
 16543	  etst(eval0(E2(truncate,N(-1234),N(100))),PAIR(N(-12),N(-34)))
 16544	  etst(eval0(E2(truncate,N( 1250),N(100))),PAIR(N( 12),N( 50)))
 16545	  etst(eval0(E2(truncate,N( 1350),N(100))),PAIR(N( 13),N( 50)))
 16546	
 16547	  etst(eval0(E1(vector,TT)),XX)
 16548	  etst(eval0(E1(vector,FF)),XX)
 16549	  etst(eval0(E1(vector,P0)),XX)
 16550	  etst(eval0(E1(vector,X0)),X0)
 16551	  etst(eval0(E1(vector,M0)),XX)
 16552	  etst(eval0(E1(vector,B0)),XX)
 16553	  etst(eval0(E1(vector,N(513))),N(257))
 16554	
 16555	  etst(eval0(E1(vempty,TT)),XX)
 16556	  etst(eval0(E1(vempty,FF)),XX)
 16557	  etst(eval0(E1(vempty,P0)),XX)
 16558	  etst(eval0(E1(vempty,X0)),X0)
 16559	  etst(eval0(E1(vempty,M0)),XX)
 16560	  etst(eval0(E1(vempty,B0)),XX)
 16561	  ttst(eval0(E1(vempty,N(255))))
 16562	  ftst(eval0(E1(vempty,N(513))))
 16563	
 16564	  etst(eval0(E2(vindex,TT,TT)),XX)
 16565	  etst(eval0(E2(vindex,TT,Z1)),XX)
 16566	  etst(eval0(E2(vindex,TT,X1)),X1)
 16567	  etst(eval0(E2(vindex,Z0,TT)),XX)
 16568	  etst(eval0(E2(vindex,Z0,X1)),X1)
 16569	  etst(eval0(E2(vindex,X0,TT)),X0)
 16570	  etst(eval0(E2(vindex,X0,Z1)),X0)
 16571	  etst(eval0(E2(vindex,X0,X1)),X0)
 16572	  etst(eval0(E2(vindex,X0,BB)),X0)
 16573	  etst(eval0(E2(vindex,V(abc),N(0))),N(97))
 16574	  etst(eval0(E2(vindex,V(abc),N(1))),N(98))
 16575	  etst(eval0(E2(vindex,V(abc),N(2))),N(99))
 16576	
 16577	  etst(eval0(E1(vlength,TT)),XX)
 16578	  etst(eval0(E1(vlength,FF)),XX)
 16579	  etst(eval0(E1(vlength,P0)),XX)
 16580	  etst(eval0(E1(vlength,X0)),X0)
 16581	  etst(eval0(E1(vlength,M0)),XX)
 16582	  etst(eval0(E1(vlength,B0)),XX)
 16583	  etst(eval0(E1(vlength,N(255))),N(0))
 16584	  etst(eval0(E1(vlength,N(513))),N(1))
 16585	
 16586	  etst(eval0(E2(vprefix,TT,TT)),XX)
 16587	  etst(eval0(E2(vprefix,TT,Z1)),XX)
 16588	  etst(eval0(E2(vprefix,TT,X1)),X1)
 16589	  etst(eval0(E2(vprefix,Z0,TT)),XX)
 16590	  etst(eval0(E2(vprefix,Z0,X1)),X1)
 16591	  etst(eval0(E2(vprefix,X0,TT)),X0)
 16592	  etst(eval0(E2(vprefix,X0,Z1)),X0)
 16593	  etst(eval0(E2(vprefix,X0,X1)),X0)
 16594	  etst(eval0(E2(vprefix,X0,BB)),X0)
 16595	  etst(eval0(E2(vprefix,V(abc),N(0))),E)
 16596	  etst(eval0(E2(vprefix,V(abc),N(1))),V(a))
 16597	  etst(eval0(E2(vprefix,V(abc),N(2))),V(ab))
 16598	  etst(eval0(E2(vprefix,V(abc),N(3))),V(abc))
 16599	
 16600	  etst(eval0(E3(vsubseq,TT,TT,TT)),XX)
 16601	  etst(eval0(E3(vsubseq,TT,TT,Z1)),XX)
 16602	  etst(eval0(E3(vsubseq,TT,TT,X1)),X1)
 16603	  etst(eval0(E3(vsubseq,TT,Z0,TT)),XX)
 16604	  etst(eval0(E3(vsubseq,TT,Z0,Z0)),XX)
 16605	  etst(eval0(E3(vsubseq,TT,Z0,X1)),X1)
 16606	  etst(eval0(E3(vsubseq,TT,X0,TT)),X0)
 16607	  etst(eval0(E3(vsubseq,TT,X0,Z1)),X0)
 16608	  etst(eval0(E3(vsubseq,TT,X0,X1)),X0)
 16609	  etst(eval0(E3(vsubseq,TT,X0,BB)),X0)
 16610	  etst(eval0(E3(vsubseq,Z0,TT,TT)),XX)
 16611	  etst(eval0(E3(vsubseq,Z0,TT,Z1)),XX)
 16612	  etst(eval0(E3(vsubseq,Z0,TT,X1)),X1)
 16613	  etst(eval0(E3(vsubseq,Z0,Z0,TT)),XX)
 16614	  etst(eval0(E3(vsubseq,Z0,Z0,X1)),X1)
 16615	  etst(eval0(E3(vsubseq,Z0,X0,TT)),X0)
 16616	  etst(eval0(E3(vsubseq,Z0,X0,Z1)),X0)
 16617	  etst(eval0(E3(vsubseq,Z0,X0,X1)),X0)
 16618	  etst(eval0(E3(vsubseq,Z0,X0,BB)),X0)
 16619	  etst(eval0(E3(vsubseq,X2,TT,TT)),X2)
 16620	  etst(eval0(E3(vsubseq,X2,TT,Z1)),X2)
 16621	  etst(eval0(E3(vsubseq,X2,TT,X1)),X2)
 16622	  etst(eval0(E3(vsubseq,X2,Z0,TT)),X2)
 16623	  etst(eval0(E3(vsubseq,X2,Z0,Z0)),X2)
 16624	  etst(eval0(E3(vsubseq,X2,Z0,X1)),X2)
 16625	  etst(eval0(E3(vsubseq,X2,X0,TT)),X2)
 16626	  etst(eval0(E3(vsubseq,X2,X0,Z1)),X2)
 16627	  etst(eval0(E3(vsubseq,X2,X0,X1)),X2)
 16628	  etst(eval0(E3(vsubseq,X2,X0,BB)),X2)
 16629	  etst(eval0(E3(vsubseq,X2,BB,BB)),X2)
 16630	  etst(eval0(E3(vsubseq,V(abcdefghi),N(3),N(6))),V(def))
 16631	
 16632	  etst(eval0(E2(vsuffix,TT,TT)),XX)
 16633	  etst(eval0(E2(vsuffix,TT,Z1)),XX)
 16634	  etst(eval0(E2(vsuffix,TT,X1)),X1)
 16635	  etst(eval0(E2(vsuffix,Z0,TT)),XX)
 16636	  etst(eval0(E2(vsuffix,Z0,X1)),X1)
 16637	  etst(eval0(E2(vsuffix,X0,TT)),X0)
 16638	  etst(eval0(E2(vsuffix,X0,Z1)),X0)
 16639	  etst(eval0(E2(vsuffix,X0,X1)),X0)
 16640	  etst(eval0(E2(vsuffix,X0,BB)),X0)
 16641	  etst(eval0(E2(vsuffix,V(abc),N(0))),V(abc))
 16642	  etst(eval0(E2(vsuffix,V(abc),N(1))),V(bc))
 16643	  etst(eval0(E2(vsuffix,V(abc),N(2))),V(c))
 16644	  etst(eval0(E2(vsuffix,V(abc),N(3))),E)
 16645	
 16646	  etst(eval0(E1(vt2bytes,PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc))))),
 16647	    PAIR(N(97),PAIR(N(98),PAIR(N(99),T))))
 16648	  etst(eval0(E1(vt2bytes,X1)),X1)
 16649	
 16650	  etst(eval0(E1(vt2v,PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc))))),V(abc))
 16651	  etst(eval0(E1(vt2v,X1)),X1)
 16652	
 16653	  etst(eval0(E2(ecall,V0,PAIR(Z0,PAIR(Z1,T)))),Z1)
 16654	  etst(eval0(E2(ecall,V1,PAIR(Z0,PAIR(Z1,T)))),Z0)
 16655	  etst(eval0(E2(ecall,Z2,PAIR(Z0,PAIR(Z1,T)))),Z2)
 16656	  etst(eval0(E2(ecall,X0,PAIR(Z0,PAIR(Z1,T)))),X0)
 16657	  etst(eval0(E2(ecall,X0,PAIR(Z0,PAIR(X1,T)))),X1)
 16658	  etst(eval0(E2(ecall,BB,PAIR(Z0,PAIR(X1,T)))),X1)
 16659	  etst(eval0(E2(ecall,X0,PAIR(X2,PAIR(X1,T)))),X2)
 16660	  etst(eval0(E2(ecall,BB,PAIR(X2,PAIR(BB,T)))),X2)
 16661	  etst(N(23),
 16662	    eval2(
 16663	      E2(ecall,E2(minus,V1,V0),PAIR(N(20),PAIR(N(-3),T))),
 16664	      N(10),N(3)))
 16665	  etst(N(23),
 16666	    eval2(
 16667	      E2(ecall,E2(minus,V1,V0),
 16668	        PAIR(E2(times,N(10),N(2)),PAIR(E1(uminus,N(3)),T))),
 16669	      N(10),N(3)))
 16670	  etst(N(23),
 16671	    eval2(
 16672	      E2(ecall,E2(minus,V1,V0),PAIR(E2(times,V0,N(2)),PAIR(E1(uminus,V1),T))),
 16673	      N(10),N(3)))
 16674	
 16675	/*
 16676	The last three tests above compute 10*2-(-3).
 16677	In E2(minus,V0,V1), V0 refers to the last argument.
 16678	In E2(times,V0,I[2]), V0 refers to the first argument.
 16679	*/
 16680	
 16681	/*
 16682	---------------------------------------------
 16683	Auxiliary functions for compilation
 16684	---------------------------------------------
 16685	*/
 16686	
 16687	  test(varlist(0)==T)
 16688	  test(ROOT(varlist(1))==TAG_PAIR)
 16689	  test(ROOT(HEAD(varlist(1)))==TTAG_VAR)
 16690	  test(HEAD(HEAD(varlist(1)))==0)
 16691	  test(TAIL(varlist(1))==T)
 16692	  test(ROOT(varlist(3))==TAG_PAIR)
 16693	  test(ROOT(HEAD(varlist(3)))==TTAG_VAR)
 16694	  test(HEAD(HEAD(varlist(3)))==0)
 16695	  test(ROOT(TAIL(varlist(3)))==TAG_PAIR)
 16696	  test(ROOT(HEAD(TAIL(varlist(3))))==TTAG_VAR)
 16697	  test(HEAD(HEAD(TAIL(varlist(3))))==1)
 16698	  test(ROOT(TAIL(TAIL(varlist(3))))==TAG_PAIR)
 16699	  test(ROOT(HEAD(TAIL(TAIL(varlist(3)))))==TTAG_VAR)
 16700	  test(HEAD(HEAD(TAIL(TAIL(varlist(3)))))==2)
 16701	  test(TAIL(TAIL(TAIL(varlist(3))))==T)
 16702	  test(listlength(varlist(0))==0)
 16703	  test(listlength(varlist(1))==1)
 16704	  test(listlength(varlist(2))==2)
 16705	  test(listlength(varlist(3))==3)
 16706	
 16707	
 16708	
 16709	/*
 16710	---------------------------------------------
 16711	Rack I/O
 16712	---------------------------------------------
 16713	*/
 16714	
 16715	  xtst(sl2rack(FF))
 16716	  xtst(sl2rack(I0))
 16717	  xtst(sl2rack(J1))
 16718	  xtst(sl2rack(EE))
 16719	  xtst(sl2rack(M0))
 16720	  xtst(sl2rack(B0))
 16721	  xtst(sl2rack(PAIR(TT,TT)))
 16722	  xtst(sl2rack(PAIR(FF,TT)))
 16723	  xtst(sl2rack(PAIR(I0,TT)))
 16724	  xtst(sl2rack(PAIR(J1,TT)))
 16725	  xtst(sl2rack(PAIR(EE,TT)))
 16726	  xtst(sl2rack(PAIR(V(ab),TT)))
 16727	  xtst(sl2rack(PAIR(P0,TT)))
 16728	  xtst(sl2rack(PAIR(M0,TT)))
 16729	  xtst(sl2rack(PAIR(B0,TT)))
 16730	  xtst(sl2rack(PAIR(bytevect[0],FF)))
 16731	  xtst(sl2rack(PAIR(bytevect[0],I0)))
 16732	  xtst(sl2rack(PAIR(bytevect[0],J1)))
 16733	  xtst(sl2rack(PAIR(bytevect[0],M0)))
 16734	  xtst(sl2rack(PAIR(bytevect[0],B0)))
 16735	
 16736	  etst(T,
 16737	    sl2rack(
 16738	      PAIR(bytevect[3],T)))
 16739	  etst(T,
 16740	    sl2rack(
 16741	      PAIR(bytevect[3],FF)))
 16742	  etst(PAIR(T,T),
 16743	    sl2rack(
 16744	      PAIR(bytevect[1],
 16745	      PAIR(bytevect[1],
 16746	      PAIR(bytevect[4],T)))))
 16747	  etst(N(7),
 16748	    sl2rack(
 16749	      PAIR(bytevect[0],
 16750	      PAIR(bytevect[7],
 16751	      PAIR(bytevect[4],T)))))
 16752	  etst(V(abc),
 16753	    sl2rack(
 16754	      PAIR(bytevect[2],
 16755	      PAIR(bytevect[3],
 16756	      PAIR(bytevect[97],
 16757	      PAIR(bytevect[98],
 16758	      PAIR(bytevect[99],
 16759	      PAIR(bytevect[4],T))))))))
 16760	  etst(PAIR(N(6),V(abc)),
 16761	    sl2rack(
 16762	      PAIR(bytevect[0],
 16763	      PAIR(bytevect[6],
 16764	      PAIR(bytevect[2],
 16765	      PAIR(bytevect[3],
 16766	      PAIR(bytevect[97],
 16767	      PAIR(bytevect[98],
 16768	      PAIR(bytevect[99],
 16769	      PAIR(bytevect[3],
 16770	      PAIR(bytevect[4],
 16771	      PAIR(bytevect[6],T))))))))))))
 16772	  etst(rack2sl(T),
 16773	    PAIR(bytevect[3],T))
 16774	  etst(rack2sl(PAIR(T,T)),
 16775	    PAIR(bytevect[1],
 16776	    PAIR(bytevect[1],
 16777	    PAIR(bytevect[4],T))))
 16778	  etst(rack2sl(N(7)),
 16779	    PAIR(bytevect[0],
 16780	    PAIR(bytevect[7],
 16781	    PAIR(bytevect[4],T))))
 16782	  etst(rack2sl(V(abc)),
 16783	    PAIR(bytevect[2],
 16784	    PAIR(bytevect[3],
 16785	    PAIR(bytevect[97],
 16786	    PAIR(bytevect[98],
 16787	    PAIR(bytevect[99],
 16788	    PAIR(bytevect[4],T)))))))
 16789	  etst(rack2sl(PAIR(N(6),V(abc))),
 16790	    PAIR(bytevect[0],
 16791	    PAIR(bytevect[6],
 16792	    PAIR(bytevect[2],
 16793	    PAIR(bytevect[3],
 16794	    PAIR(bytevect[97],
 16795	    PAIR(bytevect[98],
 16796	    PAIR(bytevect[99],
 16797	    PAIR(bytevect[3],
 16798	    PAIR(bytevect[4],
 16799	    PAIR(bytevect[6],T)))))))))))
 16800	  etst(rack2sl(PAIR(N(7),N(7))),
 16801	    PAIR(bytevect[0],
 16802	    PAIR(bytevect[7],
 16803	    PAIR(bytevect[3],
 16804	    PAIR(bytevect[3],
 16805	    PAIR(bytevect[5],T))))))
 16806	  etst(rack2sl(PAIR(PAIR(T,T),PAIR(T,T))),
 16807	    PAIR(bytevect[1],
 16808	    PAIR(bytevect[1],
 16809	    PAIR(bytevect[3],
 16810	    PAIR(bytevect[3],
 16811	    PAIR(bytevect[5],T))))))
 16812	  xtst(rack2sl(PAIR(PAIR(T,T),PAIR(T,N(-1)))))
 16813	  xtst(rack2sl(PAIR(PAIR(T,T),PAIR(T,F))))
 16814	
 16815	/*
 16816	---------------------------------------------
 16817	RIPEMD-160
 16818	---------------------------------------------
 16819	*/
 16820	
 16821	  test(STREQ("9C1185A5C5E9FC54612808977EE8F548B2258D31",msg2hash("")))
 16822	  test(STREQ("0BDC9D2D256B3EE9DAAE347BE6F4DC835A467FFE",msg2hash("a")))
 16823	  test(STREQ("71E0B62322D3A031C0FB621BE4D90773B7E66BB2",
 16824	    msg2hash("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ123")))
 16825	  test(STREQ("B0E20B6E3116640286ED3A87A5713079B21F5189",
 16826	    msg2hash("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789")))
 16827	
 16828	  test(vt2length(T)==0)
 16829	  test(vt2length(F)==0)
 16830	  test(vt2length(M0)==0)
 16831	  test(vt2length(B0)==0)
 16832	  test(vt2length(N(-1))==0)
 16833	  test(vt2length(N(0))==0)
 16834	  test(vt2length(N(1))==0)
 16835	  test(vt2length(N(255))==0)
 16836	  test(vt2length(N(256))==1)
 16837	  test(vt2length(N(513))==1)
 16838	  test(vt2length(V())==0)
 16839	  test(vt2length(V(abc))==3)
 16840	  test(vt2length(PAIR(V(ab),V(c)))==3)
 16841	  test(vt2length(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc))))==3)
 16842	
 16843	  test(STREQ("9C1185A5C5E9FC54612808977EE8F548B2258D31",vt2hash(V())))
 16844	  test(STREQ("0BDC9D2D256B3EE9DAAE347BE6F4DC835A467FFE",vt2hash(V(a))))
 16845	  test(STREQ("71E0B62322D3A031C0FB621BE4D90773B7E66BB2",
 16846	    vt2hash(V(abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ123))))
 16847	  test(STREQ("B0E20B6E3116640286ED3A87A5713079B21F5189",
 16848	    vt2hash(V(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789))))
 16849	  test(STREQ("8EB208F7E05D987A9B044A8E98C6B087F15A0BFC",
 16850	    vt2hash(V(abc))))
 16851	  test(STREQ("8EB208F7E05D987A9B044A8E98C6B087F15A0BFC",
 16852	    vt2hash(PAIR(V(ab),V(c)))))
 16853	  test(STREQ("8EB208F7E05D987A9B044A8E98C6B087F15A0BFC",
 16854	    vt2hash(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc))))))
 16855	
 16856	  etst(ripemd(TT),
 16857	    PAIR(bytevect[0x9C],
 16858	    PAIR(bytevect[0x11],
 16859	    PAIR(bytevect[0x85],
 16860	    PAIR(bytevect[0xA5],
 16861	    PAIR(bytevect[0xC5],
 16862	    PAIR(bytevect[0xE9],
 16863	    PAIR(bytevect[0xFC],
 16864	    PAIR(bytevect[0x54],
 16865	    PAIR(bytevect[0x61],
 16866	    PAIR(bytevect[0x28],
 16867	    PAIR(bytevect[0x08],
 16868	    PAIR(bytevect[0x97],
 16869	    PAIR(bytevect[0x7E],
 16870	    PAIR(bytevect[0xE8],
 16871	    PAIR(bytevect[0xF5],
 16872	    PAIR(bytevect[0x48],
 16873	    PAIR(bytevect[0xB2],
 16874	    PAIR(bytevect[0x25],
 16875	    PAIR(bytevect[0x8D],
 16876	    PAIR(bytevect[0x31],T)))))))))))))))))))))
 16877	  etst(ripemd(PAIR(bytevect[97],TT)),
 16878	    PAIR(bytevect[0x0B],
 16879	    PAIR(bytevect[0xDC],
 16880	    PAIR(bytevect[0x9D],
 16881	    PAIR(bytevect[0x2D],
 16882	    PAIR(bytevect[0x25],
 16883	    PAIR(bytevect[0x6B],
 16884	    PAIR(bytevect[0x3E],
 16885	    PAIR(bytevect[0xE9],
 16886	    PAIR(bytevect[0xDA],
 16887	    PAIR(bytevect[0xAE],
 16888	    PAIR(bytevect[0x34],
 16889	    PAIR(bytevect[0x7B],
 16890	    PAIR(bytevect[0xE6],
 16891	    PAIR(bytevect[0xF4],
 16892	    PAIR(bytevect[0xDC],
 16893	    PAIR(bytevect[0x83],
 16894	    PAIR(bytevect[0x5A],
 16895	    PAIR(bytevect[0x46],
 16896	    PAIR(bytevect[0x7F],
 16897	    PAIR(bytevect[0xFE],T)))))))))))))))))))))
 16898	  etst(
 16899	    ripemd(
 16900	      PAIR(V(abcdefghijklmnopqrstuvwxyz),V(ABCDEFGHIJKLMNOPQRSTUVWXYZ123))),
 16901	    PAIR(bytevect[0x71],
 16902	    PAIR(bytevect[0xE0],
 16903	    PAIR(bytevect[0xB6],
 16904	    PAIR(bytevect[0x23],
 16905	    PAIR(bytevect[0x22],
 16906	    PAIR(bytevect[0xD3],
 16907	    PAIR(bytevect[0xA0],
 16908	    PAIR(bytevect[0x31],
 16909	    PAIR(bytevect[0xC0],
 16910	    PAIR(bytevect[0xFB],
 16911	    PAIR(bytevect[0x62],
 16912	    PAIR(bytevect[0x1B],
 16913	    PAIR(bytevect[0xE4],
 16914	    PAIR(bytevect[0xD9],
 16915	    PAIR(bytevect[0x07],
 16916	    PAIR(bytevect[0x73],
 16917	    PAIR(bytevect[0xB7],
 16918	    PAIR(bytevect[0xE6],
 16919	    PAIR(bytevect[0x6B],
 16920	    PAIR(bytevect[0xB2],T)))))))))))))))))))))
 16921	  etst(ripemd(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc)))),
 16922	    PAIR(bytevect[0x8E],
 16923	    PAIR(bytevect[0xB2],
 16924	    PAIR(bytevect[0x08],
 16925	    PAIR(bytevect[0xF7],
 16926	    PAIR(bytevect[0xE0],
 16927	    PAIR(bytevect[0x5D],
 16928	    PAIR(bytevect[0x98],
 16929	    PAIR(bytevect[0x7A],
 16930	    PAIR(bytevect[0x9B],
 16931	    PAIR(bytevect[0x04],
 16932	    PAIR(bytevect[0x4A],
 16933	    PAIR(bytevect[0x8E],
 16934	    PAIR(bytevect[0x98],
 16935	    PAIR(bytevect[0xC6],
 16936	    PAIR(bytevect[0xB0],
 16937	    PAIR(bytevect[0x87],
 16938	    PAIR(bytevect[0xF1],
 16939	    PAIR(bytevect[0x5A],
 16940	    PAIR(bytevect[0x0B],
 16941	    PAIR(bytevect[0xFC],T)))))))))))))))))))))
 16942	
 16943	/*
 16944	---------------------------------------------
 16945	Test of loaded pages
 16946	---------------------------------------------
 16947	*/
 16948	
 16949	#define U_true U_0(code_true)
 16950	#define M_true M_0(code_true)
 16951	#define M_If(x,y,z) M_3(code_If,x,y,z)
 16952	#define M_ap(x,y) M_2(code_ap,x,y)
 16953	#define U_Head(x) U_1(code_Head,x)
 16954	#define M_Head(x) M_1(code_Head,x)
 16955	#define U_Tail(x) U_1(code_Tail,x)
 16956	#define M_Tail(x) M_1(code_Tail,x)
 16957	#define U_LazyPair(x,y) U_2(code_LazyPair,x,y)
 16958	#define M_LazyPair(x,y) M_2(code_LazyPair,x,y)
 16959	#define M_false M_0(code_false)
 16960	#define U_Equal(x,y) U_2(code_Equal,x,y)
 16961	#define M_Equal(x,y) M_2(code_Equal,x,y)
 16962	#define U_norm(x) U_1(code_norm,x)
 16963	#define M_norm(x) M_1(code_norm,x)
 16964	#define U_equal(x,y) U_2(code_equal,x,y)
 16965	#define M_equal(x,y) M_2(code_equal,x,y)
 16966	
 16967	#define Ttst(x) ntst(U_Equal(x,T))
 16968	#define Ftst(x) ntst(U_Equal(x,F))
 16969	#define Xtst(x) ntst(U_Equal(x,X))
 16970	#define Etst(x,y) ntst(U_Equal(x,y))
 16971	#define Utst(x,y) ptst(U_Equal(x,y))
 16972	
 16973	#define Digit0(x)        U_1(code_digit0    ,x    )
 16974	#define Digit1(x)        U_1(code_digit1    ,x    )
 16975	#define Digit2(x)        U_1(code_digit2    ,x    )
 16976	#define Digit3(x)        U_1(code_digit3    ,x    )
 16977	#define Digit4(x)        U_1(code_digit4    ,x    )
 16978	#define Digit5(x)        U_1(code_digit5    ,x    )
 16979	#define Digit6(x)        U_1(code_digit6    ,x    )
 16980	#define Digit7(x)        U_1(code_digit7    ,x    )
 16981	#define Digit8(x)        U_1(code_digit8    ,x    )
 16982	#define Digit9(x)        U_1(code_digit9    ,x    )
 16983	#define Times(x,y)       U_2(code_times     ,x,y  )
 16984	#define Plus(x,y)        U_2(code_plus      ,x,y  )
 16985	#define Minus(x,y)       U_2(code_minus     ,x,y  )
 16986	#define And(x,y)         U_2(code_and       ,x,y  )
 16987	#define Or(x,y)          U_2(code_or        ,x,y  )
 16988	#define Then(x,y)        U_2(code_then      ,x,y  )
 16989	#define Pair(x,y)        U_2(code_pair      ,x,y  )
 16990	#define Lt(x,y)          U_2(code_lt        ,x,y  )
 16991	#define Le(x,y)          U_2(code_le        ,x,y  )
 16992	#define Eq(x,y)          U_2(code_equal     ,x,y  )
 16993	#define Ge(x,y)          U_2(code_ge        ,x,y  )
 16994	#define Gt(x,y)          U_2(code_gt        ,x,y  )
 16995	#define Apply(x,y)       U_2(code_apply     ,x,y  )
 16996	#define Boolp(x)         U_1(code_boolp     ,x    )
 16997	#define Catch(x)         U_1(code_catch     ,x    )
 16998	#define Maptag1(x)       U_1(code_maptag1   ,x    )
 16999	#define Div(x,y)         U_2(code_div       ,x,y  )
 17000	#define Head(x)          U_1(code_head      ,x    )
 17001	#define Intp(x)          U_1(code_intp      ,x    )
 17002	#define Boolg(x,y)       U_2(code_boolg     ,x,y  )
 17003	#define Intg(x,y)        U_2(code_intg      ,x,y  )
 17004	#define Mapg(x,y)        U_2(code_mapg      ,x,y  )
 17005	#define Objg(x,y)        U_2(code_objg      ,x,y  )
 17006	#define Pairg(x,y)       U_2(code_pairg     ,x,y  )
 17007	#define Mapp(x)          U_1(code_mapp      ,x    )
 17008	#define Maptag(x)        U_1(code_maptag    ,x    )
 17009	#define Mod(x,y)         U_2(code_mod       ,x,y  )
 17010	#define Norm(x)          U_1(code_norm      ,x    )
 17011	#define Objp(x)          U_1(code_objp      ,x    )
 17012	#define Pairp(x)         U_1(code_pairp     ,x    )
 17013	#define Raise(x)         U_1(code_raise     ,x    )
 17014	#define Root(x)          U_1(code_root      ,x    )
 17015	#define Tail(x)          U_1(code_tail      ,x    )
 17016	#define Untag(x)         U_1(code_untag     ,x    )
 17017	#define Digitend         U_0(code_digitend        )
 17018	#define Par(x)           U_1(code_par       ,x    )
 17019	#define Uplus(x)         U_1(code_uplus     ,x    )
 17020	#define Dplus(x)         U_1(code_dplus     ,x    )
 17021	#define Uminus(x)        U_1(code_uminus    ,x    )
 17022	#define Dminus(x)        U_1(code_dminus    ,x    )
 17023	#define Not(x)           U_1(code_not       ,x    )
 17024	#define Base             U_0(code_Base            )
 17025	#define LET(x,y)         U_2(code_LET       ,x,y  )
 17026	#define Ash(x,y)         U_2(code_ash       ,x,y  )
 17027	#define Bottom           U_0(code_bottom          )
 17028	#define Bt2bytes(x)      U_1(code_bt2bytes  ,x    )
 17029	#define Bt2vects(x)      U_1(code_bt2vects  ,x    )
 17030	#define Bt2vector(x)     U_1(code_bt2vector ,x    )
 17031	#define Ceiling(x,y)     U_2(code_ceiling   ,x,y  )
 17032	#define Destruct(x)      U_1(code_destruct  ,x    )
 17033	#define Evenp(x)         U_1(code_evenp     ,x    )
 17034	#define Exception        U_0(code_exception       )
 17035	#define False            U_0(code_false           )
 17036	#define Floor(x,y)       U_2(code_floor     ,x,y  )
 17037	#define Half(x)          U_1(code_half      ,x    )
 17038	#define If(x,y,z)        U_3(code_if        ,x,y,z)
 17039	#define Intlength(x)     U_1(code_intlength ,x    )
 17040	#define Logand(x,y)      U_2(code_logand    ,x,y  )
 17041	#define Logandc1(x,y)    U_2(code_logandc1  ,x,y  )
 17042	#define Logandc2(x,y)    U_2(code_logandc2  ,x,y  )
 17043	#define Logbitp(x,y)     U_2(code_logbitp   ,x,y  )
 17044	#define Logcount(x)      U_1(code_logcount  ,x    )
 17045	#define Logeqv(x,y)      U_2(code_logeqv    ,x,y  )
 17046	#define Logior(x,y)      U_2(code_logior    ,x,y  )
 17047	#define Lognand(x,y)     U_2(code_lognand   ,x,y  )
 17048	#define Lognor(x,y)      U_2(code_lognor    ,x,y  )
 17049	#define Lognot(x)        U_1(code_lognot    ,x    )
 17050	#define Logorc1(x,y)     U_2(code_logorc1   ,x,y  )
 17051	#define Logorc2(x,y)     U_2(code_logorc2   ,x,y  )
 17052	#define Logtest(x,y)     U_2(code_logtest   ,x,y  )
 17053	#define Logxor(x,y)      U_2(code_logxor    ,x,y  )
 17054	#define Map(x)           U_1(code_map       ,x    )
 17055	#define Prenorm(x)       U_1(code_prenorm   ,x    )
 17056	#define Notnot(x)        U_1(code_notnot    ,x    )
 17057	#define Object(x)        U_1(code_object    ,x    )
 17058	#define Print(x)         U_1(code_print     ,x    )
 17059	#define Round(x,y)       U_2(code_round     ,x,y  )
 17060	#define Spy(x)           U_1(code_spy       ,x    )
 17061	#define Timer(x)         U_1(code_timer     ,x    )
 17062	#define Trace(x)         U_1(code_trace     ,x    )
 17063	#define Truncate(x,y)    U_2(code_truncate  ,x,y  )
 17064	#define Vector(x)        U_1(code_vector    ,x    )
 17065	#define Vempty(x)        U_1(code_vempty    ,x    )
 17066	#define Vindex(x,y)      U_2(code_vindex    ,x,y  )
 17067	#define Vlength(x)       U_1(code_vlength   ,x    )
 17068	#define Vprefix(x,y)     U_2(code_vprefix   ,x,y  )
 17069	#define Vsubseq(x,y,z)   U_3(code_vsubseq   ,x,y,z)
 17070	#define Vsuffix(x,y)     U_2(code_vsuffix   ,x,y  )
 17071	#define V2bytes(x)       U_1(code_v2bytes   ,x    )
 17072	#define V2vects(x)       U_1(code_v2vects   ,x    )
 17073	#define Vt2vects(x)      U_1(code_vt2vects  ,x    )
 17074	#define Vt2bytes(x)      U_1(code_vt2bytes  ,x    )
 17075	#define Vt2v(x)          U_1(code_vt2v      ,x    )
 17076	#define YY               U_0(code_yy              )
 17077	#define Factorial(x)     U_1(code_factorial ,x    )
 17078	#define Emptylist        U_0(code_emptylist       )
 17079	#define Zeroth(x)        U_1(code_zeroth    ,x    )
 17080	#define First(x)         U_1(code_first     ,x    )
 17081	#define Second(x)        U_1(code_second    ,x    )
 17082	#define Revappend(x,y)   U_2(code_revappend ,x,y  )
 17083	#define Reverse(x)       U_1(code_reverse   ,x    )
 17084	#define Hello            U_0(code_hello           )
 17085	#define Echo             U_0(code_echo            )
 17086	#define Echo1(x)         U_1(code_echo1     ,x    )
 17087	#define Eecho            U_0(code_eecho           )
 17088	#define Eecho1(x)        U_1(code_eecho1    ,x    )
 17089	#define Quit(x)          U_1(code_quit      ,x    )
 17090	#define Write(x)         U_1(code_write     ,x    )
 17091	#define Readreq          U_0(code_readreq         )
 17092	#define Exec(x,y)        U_2(code_exec      ,x,y  )
 17093	#define Extend(x,y)      U_2(code_extend    ,x,y  )
 17094	#define Boot(x,y,z,v)    U_4(code_boot    ,x,y,z,v)
 17095	#define Read(x)          U_1(code_read      ,x    )
 17096	#define Int(x,y)         U_2(code_int       ,x,y  )
 17097	#define Extended(x)      U_1(code_extended  ,x    )
 17098	#define Compile(x)       U_1(code_compile   ,x    )
 17099	#define Ripemd(x)        U_1(code_ripemd    ,x    )
 17100	#define Sl2rack(x)       U_1(code_sl2rack   ,x    )
 17101	#define Rack2sl(x)       U_1(code_rack2sl   ,x    )
 17102	#define Eval(x,y,z)      U_3(code_eval      ,x,y,z)
 17103	
 17104	#define Truea            U_0(code_true            )
 17105	#define Ifa(x,y,z)       U_3(code_If        ,x,y,z)
 17106	#define Apa(x,y)         U_2(code_ap        ,x,y  )
 17107	#define Heada(x)         U_1(code_Head      ,x    )
 17108	#define Taila(x)         U_1(code_Tail      ,x    )
 17109	#define LazyPaira(x,y)   U_2(code_LazyPair  ,x,y  )
 17110	#define Equala(x,y)      U_2(code_Equal     ,x,y  )
 17111	#define Digitenda        U_0(code_digitend        )
 17112	#define Basea            U_0(code_Base            )
 17113	#define Falsea           U_0(code_false           )
 17114	#define Testfunc1a(x)    U_1(code_testfunc1a,x    )
 17115	#define Testfunc2a(x,y)  U_2(code_testfunc2a,x,y  )
 17116	#define Testfunc5a(x)    U_1(code_testfunc5a,x    )
 17117	#define Testfunc6a(x)    U_1(code_testfunc6a,x    )
 17118	#define Testfunc7a(x)    U_1(code_testfunc7a,x    )
 17119	#define Testfunc8a(x,y)  U_2(code_testfunc8a,x,y  )
 17120	
 17121	#define Trueb            U_0(code_trueb           )
 17122	#define Ifb(x,y,z)       U_3(code_Ifb       ,x,y,z)
 17123	#define Apb(x,y)         U_2(code_apb       ,x,y  )
 17124	#define Headb(x)         U_1(code_Headb     ,x    )
 17125	#define Tailb(x)         U_1(code_Tailb     ,x    )
 17126	#define LazyPairb(x,y)   U_2(code_LazyPairb ,x,y  )
 17127	#define Equalb(x,y)      U_2(code_Equalb    ,x,y  )
 17128	#define Digitendb        U_0(code_digitend        )
 17129	#define Baseb            U_0(code_Base            )
 17130	#define Falseb           U_0(code_false           )
 17131	#define Testfunc1b(x)    U_1(code_testfunc1b,x    )
 17132	#define Testfunc2b(x,y)  U_2(code_testfunc2b,x,y  )
 17133	#define Testfunc5b(x)    U_1(code_testfunc5b,x    )
 17134	#define Testfunc6b(x)    U_1(code_testfunc6b,x    )
 17135	#define Testfunc7b(x)    U_1(code_testfunc7b,x    )
 17136	#define Testfunc8b(x,y)  U_2(code_testfunc8b,x,y  )
 17137	
 17138	  if(name2sym("base")!=T){
 17139	
 17140	    DEFC(code_true     ,name2code("true"));
 17141	    DEFC(code_If       ,name2code("If \" then \" else \""));
 17142	    DEFC(code_ap       ,name2code("\" ' \""));
 17143	    DEFC(code_Head     ,name2code("\" Head"));
 17144	    DEFC(code_Tail     ,name2code("\" Tail"));
 17145	    DEFC(code_LazyPair ,name2code("\" LazyPair \""));
 17146	    DEFC(code_Equal    ,name2code("\" Equal \""));
 17147	
 17148	    DEFC(code_digit0   ,name2code("\" %0"));
 17149	    DEFC(code_digit1   ,name2code("\" %1"));
 17150	    DEFC(code_digit2   ,name2code("\" %2"));
 17151	    DEFC(code_digit3   ,name2code("\" %3"));
 17152	    DEFC(code_digit4   ,name2code("\" %4"));
 17153	    DEFC(code_digit5   ,name2code("\" %5"));
 17154	    DEFC(code_digit6   ,name2code("\" %6"));
 17155	    DEFC(code_digit7   ,name2code("\" %7"));
 17156	    DEFC(code_digit8   ,name2code("\" %8"));
 17157	    DEFC(code_digit9   ,name2code("\" %9"));
 17158	    DEFC(code_times    ,name2code("\" * \""));
 17159	    DEFC(code_plus     ,name2code("\" + \""));
 17160	    DEFC(code_minus    ,name2code("\" - \""));
 17161	    DEFC(code_and      ,name2code("\" .and. \""));
 17162	    DEFC(code_or       ,name2code("\" .or. \""));
 17163	    DEFC(code_then     ,name2code("\" .then. \""));
 17164	    DEFC(code_pair     ,name2code("\" :: \""));
 17165	    DEFC(code_lt       ,name2code("\" < \""));
 17166	    DEFC(code_le       ,name2code("\" <= \""));
 17167	    DEFC(code_equal    ,name2code("\" = \""));
 17168	    DEFC(code_gt       ,name2code("\" > \""));
 17169	    DEFC(code_ge       ,name2code("\" >= \""));
 17170	    DEFC(code_apply    ,name2code("\" apply \""));
 17171	    DEFC(code_boolp    ,name2code("\" boolp"));
 17172	    DEFC(code_catch    ,name2code("\" catch"));
 17173	    DEFC(code_maptag1  ,name2code("\" catching maptag"));
 17174	    DEFC(code_div      ,name2code("\" div \""));
 17175	    DEFC(code_head     ,name2code("\" head"));
 17176	    DEFC(code_intp     ,name2code("\" intp"));
 17177	    DEFC(code_boolg    ,name2code("\" is bool : \""));
 17178	    DEFC(code_intg     ,name2code("\" is int : \""));
 17179	    DEFC(code_mapg     ,name2code("\" is map : \""));
 17180	    DEFC(code_objg     ,name2code("\" is object : \""));
 17181	    DEFC(code_pairg    ,name2code("\" is pair : \""));
 17182	    DEFC(code_mapp     ,name2code("\" mapp"));
 17183	    DEFC(code_maptag   ,name2code("\" maptag"));
 17184	    DEFC(code_mod      ,name2code("\" mod \""));
 17185	    DEFC(code_norm     ,name2code("\" norm"));
 17186	    DEFC(code_objp     ,name2code("\" objectp"));
 17187	    DEFC(code_pairp    ,name2code("\" pairp"));
 17188	    DEFC(code_raise    ,name2code("\" raise"));
 17189	    DEFC(code_root     ,name2code("\" root"));
 17190	    DEFC(code_tail     ,name2code("\" tail"));
 17191	    DEFC(code_untag    ,name2code("\" untag"));
 17192	    DEFC(code_digitend ,name2code("%%"));
 17193	    DEFC(code_par      ,name2code("( \" )"));
 17194	    DEFC(code_uplus    ,name2code("+ \""));
 17195	    DEFC(code_dplus    ,name2code("+\""));
 17196	    DEFC(code_uminus   ,name2code("- \""));
 17197	    DEFC(code_dminus   ,name2code("-\""));
 17198	    DEFC(code_not      ,name2code(".not. \""));
 17199	    DEFC(code_Base     ,name2code("Base"));
 17200	    DEFC(code_LET      ,name2code("LET \" BE \""));
 17201	    DEFC(code_ash      ,name2code("ash ( \" , \" )"));
 17202	/*  DEFC(code_bottom   ,name2code("bottom")); Unused */
 17203	    DEFC(code_bt2bytes ,name2code("bt2byte* ( \" )"));
 17204	/*  DEFC(code_bt2vects ,name2code("bt2vector* ( \" )")); Unused */
 17205	    DEFC(code_bt2vector,name2code("bt2vector ( \" )"));
 17206	    DEFC(code_ceiling  ,name2code("ceiling ( \" , \" )"));
 17207	    DEFC(code_destruct ,name2code("destruct ( \" )"));
 17208	    DEFC(code_evenp    ,name2code("evenp ( \" )"));
 17209	    DEFC(code_exception,name2code("exception"));
 17210	    DEFC(code_false    ,name2code("false"));
 17211	    DEFC(code_floor    ,name2code("floor ( \" , \" )"));
 17212	    DEFC(code_half     ,name2code("half ( \" )"));
 17213	    DEFC(code_if       ,name2code("if \" then \" else \""));
 17214	    DEFC(code_intlength,name2code("integer-length ( \" )"));
 17215	    DEFC(code_logand   ,name2code("logand ( \" , \" )"));
 17216	    DEFC(code_logandc1 ,name2code("logandc1 ( \" , \" )"));
 17217	    DEFC(code_logandc2 ,name2code("logandc2 ( \" , \" )"));
 17218	    DEFC(code_logbitp  ,name2code("logbitp ( \" , \" )"));
 17219	    DEFC(code_logcount ,name2code("logcount ( \" )"));
 17220	    DEFC(code_logeqv   ,name2code("logeqv ( \" , \" )"));
 17221	    DEFC(code_logior   ,name2code("logior ( \" , \" )"));
 17222	    DEFC(code_lognand  ,name2code("lognand ( \" , \" )"));
 17223	    DEFC(code_lognor   ,name2code("lognor ( \" , \" )"));
 17224	    DEFC(code_lognot   ,name2code("lognot ( \" )"));
 17225	    DEFC(code_logorc1  ,name2code("logorc1 ( \" , \" )"));
 17226	    DEFC(code_logorc2  ,name2code("logorc2 ( \" , \" )"));
 17227	    DEFC(code_logtest  ,name2code("logtest ( \" , \" )"));
 17228	    DEFC(code_logxor   ,name2code("logxor ( \" , \" )"));
 17229	    DEFC(code_map      ,name2code("map ( \" )"));
 17230	    DEFC(code_prenorm  ,name2code("norm \""));
 17231	    DEFC(code_notnot   ,name2code("notnot \""));
 17232	    DEFC(code_object   ,name2code("object ( \" )"));
 17233	    DEFC(code_print    ,name2code("print ( \" )"));
 17234	    DEFC(code_round    ,name2code("round ( \" , \" )"));
 17235	    DEFC(code_spy      ,name2code("spy ( \" )"));
 17236	    DEFC(code_timer    ,name2code("timer ( \" )"));
 17237	    DEFC(code_trace    ,name2code("trace ( \" )"));
 17238	    DEFC(code_truncate ,name2code("truncate ( \" , \" )"));
 17239	    DEFC(code_vector   ,name2code("vector ( \" )"));
 17240	    DEFC(code_vempty   ,name2code("vector-empty ( \" )"));
 17241	    DEFC(code_vindex   ,name2code("vector-index ( \" , \" )"));
 17242	    DEFC(code_vlength  ,name2code("vector-length ( \" )"));
 17243	    DEFC(code_vprefix  ,name2code("vector-prefix ( \" , \" )"));
 17244	    DEFC(code_vsubseq  ,name2code("vector-subseq ( \" , \" , \" )"));
 17245	    DEFC(code_vsuffix  ,name2code("vector-suffix ( \" , \" )"));
 17246	    DEFC(code_v2bytes  ,name2code("vector2byte* ( \" )"));
 17247	/*  DEFC(code_v2vects  ,name2code("vector2vector* ( \" )")); Unused */
 17248	    DEFC(code_vt2bytes ,name2code("vt2byte* ( \" )"));
 17249	/*  DEFC(code_vt2vects ,name2code("vt2vector* ( \" )")); Unused */
 17250	    DEFC(code_vt2v     ,name2code("vt2vector ( \" )"));
 17251	    DEFC(code_yy       ,name2code("YY"));
 17252	    DEFC(code_factorial,name2code("\" factorial"));
 17253	    DEFC(code_emptylist,name2code("<<>>"));
 17254	    DEFC(code_zeroth   ,name2code("\" zeroth"));
 17255	    DEFC(code_first    ,name2code("\" first"));
 17256	    DEFC(code_second   ,name2code("\" second"));
 17257	    DEFC(code_revappend,name2code("revappend ( \" , \" )"));
 17258	    DEFC(code_reverse  ,name2code("reverse ( \" )"));
 17259	    DEFC(code_hello    ,name2code("Hello World"));
 17260	    DEFC(code_echo     ,name2code("Echo"));
 17261	    DEFC(code_echo1    ,name2code("Echo1 ( \" )"));
 17262	    DEFC(code_eecho    ,name2code("Eecho"));
 17263	    DEFC(code_eecho1   ,name2code("Eecho1 ( \" )"));
 17264	    DEFC(code_quit     ,name2code("quit request ( \" )"));
 17265	    DEFC(code_write    ,name2code("write request ( \" )"));
 17266	    DEFC(code_readreq  ,name2code("read request"));
 17267	    DEFC(code_exec     ,name2code("exec request ( \" , \" )"));
 17268	    DEFC(code_extend   ,name2code("extend request ( \" , \" )"));
 17269	    DEFC(code_boot     ,name2code("boot event ( \" , \" , \" , \" )"));
 17270	    DEFC(code_read     ,name2code("read reply ( \" )"));
 17271	    DEFC(code_int      ,name2code("exec reply ( \" , \" )"));
 17272	    DEFC(code_extended ,name2code("extend reply ( \" )"));
 17273	    DEFC(code_compile  ,name2code("compile ( \" )"));
 17274	    DEFC(code_ripemd   ,name2code("ripemd ( \" )"));
 17275	    DEFC(code_sl2rack  ,name2code("sl2rack ( \" )"));
 17276	    DEFC(code_rack2sl  ,name2code("rack2sl ( \" )"));
 17277	    DEFC(code_eval     ,name2code("eval ( \" , \" , \" )"));
 17278	
 17279	    DEFC(fixterm1      ,term_lambda(term_pair(term_const(N(2)),var_0)));
 17280	    DEFC(fixtermp      ,cons(ETAG_print,NIL,V(Only printed once)));
 17281	    DEFC(fixterm2      ,term_lambda(term_pair(term_ecall(fixtermp,T),var_0)));
 17282	    DEFC(fixmap1       ,map_apply(YY,term_eval(fixterm1)));
 17283	    DEFC(fixmap2       ,map_apply(YY,term_eval(fixterm2)));
 17284	
 17285	    DEFC(baseref       ,name2ref("base"));
 17286	    DEFC(basecache     ,aget(state,baseref));
 17287	    DEFC(baserack      ,aget(basecache,baseref));
 17288	    DEFC(basecodea     ,aget(baserack,const_code));
 17289	    DEFC(basediagnose  ,aget(baserack,const_diagnose));
 17290	    DEFC(baseexpansion ,aget(baserack,const_expansion));
 17291	    DEFC(basecodex     ,aget(baserack,const_codex));
 17292	    DEFC(basemacro     ,def2rhs(mget4(basecodex,baseref,Z,Z,const_macro)));
 17293	    DEFC(basecache1    ,mput2(basecache,T,baseref,const_code));
 17294	    DEFC(basecache2    ,mput2(basecache1,T,baseref,const_diagnose));
 17295	
 17296	    DEFC(basecacheb    ,Compile(basecache2));
 17297	    DEFC(baserackb     ,aget(basecacheb,baseref));
 17298	    DEFC(basecodeb     ,aget(baserackb,const_code));
 17299	    DEFC(basediagnoseb ,aget(baserackb,const_diagnose));
 17300	
 17301	    DEFC(code_trueb    ,name2code1(basecodeb,("true")));
 17302	    DEFC(code_Ifb      ,name2code1(basecodeb,("If \" then \" else \"")));
 17303	/*  DEFC(code_apb      ,name2code1(basecodeb,("\" ' \""))); Unused */
 17304	    DEFC(code_Headb    ,name2code1(basecodeb,("\" Head")));
 17305	    DEFC(code_Tailb    ,name2code1(basecodeb,("\" Tail")));
 17306	    DEFC(code_LazyPairb,name2code1(basecodeb,("\" LazyPair \"")));
 17307	    DEFC(code_Equalb   ,name2code1(basecodeb,("\" Equal \"")));
 17308	/*  DEFC(code_digitendb,name2code1(basecodeb,("\" Equal \""))); Unused */
 17309	/*  DEFC(code_Baseb    ,name2code1(basecodeb,("\" Equal \""))); Unused */
 17310	/*  DEFC(code_falseb   ,name2code1(basecodeb,("\" Equal \""))); Unused */
 17311	
 17312	    DEFC(code_testfunc1a,name2code1(basecodea,"testfunc1 ( \" )"));
 17313	    DEFC(code_testfunc1b,name2code1(basecodeb,"testfunc1 ( \" )"));
 17314	    DEFC(code_testfunc2a,name2code1(basecodea,"testfunc2 ( \" , \" )"));
 17315	    DEFC(code_testfunc2b,name2code1(basecodeb,"testfunc2 ( \" , \" )"));
 17316	    DEFC(code_testfunc5a,name2code1(basecodea,"testfunc5 ( \" )"));
 17317	    DEFC(code_testfunc5b,name2code1(basecodeb,"testfunc5 ( \" )"));
 17318	    DEFC(code_testfunc6a,name2code1(basecodea,"testfunc6 ( \" )"));
 17319	    DEFC(code_testfunc6b,name2code1(basecodeb,"testfunc6 ( \" )"));
 17320	    DEFC(code_testfunc7a,name2code1(basecodea,"testfunc7 ( \" )"));
 17321	    DEFC(code_testfunc7b,name2code1(basecodeb,"testfunc7 ( \" )"));
 17322	    DEFC(code_testfunc8a,name2code1(basecodea,"testfunc8 ( \" , \" )"));
 17323	    DEFC(code_testfunc8b,name2code1(basecodeb,"testfunc8 ( \" , \" )"));
 17324	
 17325	    ntst(map2rnf(U_true))
 17326	    ttst(root(M_true))
 17327	
 17328	    ftst(root(code_If))
 17329	    ftst(root(apply(code_If,MT)))
 17330	    ftst(root(apply(apply(code_If,MT),MT)))
 17331	    ttst(root(M_If(MT,MT,MT)))
 17332	    ttst(root(M_If(MT,MT,MF)))
 17333	    ftst(root(M_If(MT,MF,MT)))
 17334	    ftst(root(M_If(MT,MF,MF)))
 17335	    ttst(root(M_If(MF,MT,MT)))
 17336	    ftst(root(M_If(MF,MT,MF)))
 17337	    ttst(root(M_If(MF,MF,MT)))
 17338	    ftst(root(M_If(MF,MF,MF)))
 17339	
 17340	    ftst(root(code_ap))
 17341	    ftst(root(apply(code_ap,MKI)))
 17342	    ttst(root(M_ap(MT,MT)))
 17343	    ttst(root(M_ap(MT,MF)))
 17344	    ttst(root(M_ap(MT,MI)))
 17345	    ttst(root(M_ap(MF,MT)))
 17346	    ttst(root(M_ap(MF,MF)))
 17347	    ttst(root(M_ap(MF,MI)))
 17348	    ttst(root(M_ap(MI,MT)))
 17349	    ftst(root(M_ap(MI,MF)))
 17350	    ftst(root(M_ap(MI,MI)))
 17351	    ftst(root(M_ap(MK,MT)))
 17352	    ftst(root(M_ap(MK,MF)))
 17353	    ftst(root(M_ap(MK,MI)))
 17354	
 17355	    ntst(U_Head(UT))
 17356	    ntst(U_Head(UF))
 17357	    ntst(U_Head(UPTT))
 17358	    ntst(U_Head(UPTF))
 17359	    ptst(U_Head(UPFT))
 17360	    ptst(U_Head(UPFF))
 17361	    ttst(root(M_Head(MT)))
 17362	    ttst(root(M_Head(MF)))
 17363	    ttst(root(M_Head(MPTT)))
 17364	    ttst(root(M_Head(MPTF)))
 17365	    ftst(root(M_Head(MPFT)))
 17366	    ftst(root(M_Head(MPFF)))
 17367	
 17368	    ntst(U_Tail(UT))
 17369	    ntst(U_Tail(UF))
 17370	    ntst(U_Tail(UPTT))
 17371	    ptst(U_Tail(UPTF))
 17372	    ntst(U_Tail(UPFT))
 17373	    ptst(U_Tail(UPFF))
 17374	    ttst(root(M_Tail(MT)))
 17375	    ttst(root(M_Tail(MF)))
 17376	    ttst(root(M_Tail(MPTT)))
 17377	    ftst(root(M_Tail(MPTF)))
 17378	    ttst(root(M_Tail(MPFT)))
 17379	    ftst(root(M_Tail(MPFF)))
 17380	
 17381	    ptst(U_LazyPair(UT,UT))
 17382	    ptst(U_LazyPair(UT,UF))
 17383	    ptst(U_LazyPair(UF,UT))
 17384	    ptst(U_LazyPair(UF,UF))
 17385	    ntst(U_Head(U_LazyPair(UT,UT)))
 17386	    ntst(U_Head(U_LazyPair(UT,UF)))
 17387	    ptst(U_Head(U_LazyPair(UF,UT)))
 17388	    ptst(U_Head(U_LazyPair(UF,UF)))
 17389	    ntst(U_Tail(U_LazyPair(UT,UT)))
 17390	    ptst(U_Tail(U_LazyPair(UT,UF)))
 17391	    ntst(U_Tail(U_LazyPair(UF,UT)))
 17392	    ptst(U_Tail(U_LazyPair(UF,UF)))
 17393	    ftst(root(M_LazyPair(MT,MT)))
 17394	    ftst(root(M_LazyPair(MT,MF)))
 17395	    ftst(root(M_LazyPair(MF,MT)))
 17396	    ftst(root(M_LazyPair(MF,MF)))
 17397	    ttst(root(M_Head(M_LazyPair(MT,MT))))
 17398	    ttst(root(M_Head(M_LazyPair(MT,MF))))
 17399	    ftst(root(M_Head(M_LazyPair(MF,MT))))
 17400	    ftst(root(M_Head(M_LazyPair(MF,MF))))
 17401	    ttst(root(M_Tail(M_LazyPair(MT,MT))))
 17402	    ftst(root(M_Tail(M_LazyPair(MT,MF))))
 17403	    ttst(root(M_Tail(M_LazyPair(MF,MT))))
 17404	    ftst(root(M_Tail(M_LazyPair(MF,MF))))
 17405	
 17406	    ftst(root(code_false))
 17407	    ttst(root(apply(M_false,MT)))
 17408	    ttst(root(apply(M_false,MF)))
 17409	
 17410	    ptst(I[6]) /* (ref :: idx) :: val */
 17411	    ptst(U_Head(I[6])) /* (ref :: idx) */
 17412	    ntst(U_Head(U_Head(I[6]))) /* ref = 0 */
 17413	    ptst(U_Tail(U_Head(I[6]))) /* idx != 0 */
 17414	    ptst(U_Head(U_Tail(U_Head(I[6])))) /* idx bit 0 = 1 */
 17415	    ntst(U_Head(U_Head(U_Tail(U_Head(I[6])))))
 17416	    ntst(U_Tail(U_Head(U_Tail(U_Head(I[6])))))
 17417	    ntst(U_Tail(U_Tail(U_Head(I[6])))) /* idx no more bits */
 17418	    ptst(U_Tail(I[6])) /* val */
 17419	    ntst(U_Head(U_Tail(I[6]))) /* sign */
 17420	    ptst(U_Tail(U_Tail(I[6])))
 17421	    ntst(U_Head(U_Tail(U_Tail(I[6])))) /* val bit 0 */
 17422	    ptst(U_Tail(U_Tail(U_Tail(I[6]))))
 17423	    ptst(U_Head(U_Tail(U_Tail(U_Tail(I[6]))))) /* val bit 1 */
 17424	    ntst(U_Head(U_Head(U_Tail(U_Tail(U_Tail(I[6]))))))
 17425	    ntst(U_Tail(U_Head(U_Tail(U_Tail(U_Tail(I[6]))))))
 17426	    ptst(U_Tail(U_Tail(U_Tail(U_Tail(I[6])))))
 17427	    ptst(U_Head(U_Tail(U_Tail(U_Tail(U_Tail(I[6])))))) /* val bit 2 */
 17428	    ntst(U_Head(U_Head(U_Tail(U_Tail(U_Tail(U_Tail(I[6])))))))
 17429	    ntst(U_Tail(U_Head(U_Tail(U_Tail(U_Tail(U_Tail(I[6])))))))
 17430	    ntst(U_Tail(U_Tail(U_Tail(U_Tail(U_Tail(I[6]))))))
 17431	
 17432	    ttst(root(M_Equal(M_true,M_true)))
 17433	    ftst(root(M_Equal(M_true,M_false)))
 17434	    ftst(root(M_Equal(M_false,M_true)))
 17435	    ttst(root(M_Equal(M_false,M_false)))
 17436	
 17437	    ntst(U_Equal(UT,UT))
 17438	    ptst(U_Equal(UT,UF))
 17439	    ptst(U_Equal(UF,UT))
 17440	    ntst(U_Equal(UF,UF))
 17441	
 17442	    ttst(root(M_Equal(MT      ,MT)))
 17443	    ftst(root(M_Equal(MF      ,MT)))
 17444	    ftst(root(M_Equal(MPTT    ,MT)))
 17445	    ftst(root(M_Equal(MPTF    ,MT)))
 17446	    ftst(root(M_Equal(MPFT    ,MT)))
 17447	    ftst(root(M_Equal(MPFF    ,MT)))
 17448	    ftst(root(M_Equal(MPPTTPTT,MT)))
 17449	    ftst(root(M_Equal(MPPTTPTF,MT)))
 17450	    ftst(root(M_Equal(MPPTTPFT,MT)))
 17451	    ftst(root(M_Equal(MPPTTPFF,MT)))
 17452	    ftst(root(M_Equal(MPPTFPTT,MT)))
 17453	    ftst(root(M_Equal(MPPTFPTF,MT)))
 17454	    ftst(root(M_Equal(MPPTFPFT,MT)))
 17455	    ftst(root(M_Equal(MPPTFPFF,MT)))
 17456	    ftst(root(M_Equal(MPPFTPTT,MT)))
 17457	    ftst(root(M_Equal(MPPFTPTF,MT)))
 17458	    ftst(root(M_Equal(MPPFTPFT,MT)))
 17459	    ftst(root(M_Equal(MPPFTPFF,MT)))
 17460	    ftst(root(M_Equal(MPPFFPTT,MT)))
 17461	    ftst(root(M_Equal(MPPFFPTF,MT)))
 17462	    ftst(root(M_Equal(MPPFFPFT,MT)))
 17463	    ftst(root(M_Equal(MPPFFPFF,MT)))
 17464	
 17465	    ftst(root(M_Equal(MT      ,MF)))
 17466	    ttst(root(M_Equal(MF      ,MF)))
 17467	    ttst(root(M_Equal(MPTT    ,MF)))
 17468	    ftst(root(M_Equal(MPTF    ,MF)))
 17469	    ftst(root(M_Equal(MPFT    ,MF)))
 17470	    ftst(root(M_Equal(MPFF    ,MF)))
 17471	    ftst(root(M_Equal(MPPTTPTT,MF)))
 17472	    ftst(root(M_Equal(MPPTTPTF,MF)))
 17473	    ftst(root(M_Equal(MPPTTPFT,MF)))
 17474	    ftst(root(M_Equal(MPPTTPFF,MF)))
 17475	    ftst(root(M_Equal(MPPTFPTT,MF)))
 17476	    ftst(root(M_Equal(MPPTFPTF,MF)))
 17477	    ftst(root(M_Equal(MPPTFPFT,MF)))
 17478	    ftst(root(M_Equal(MPPTFPFF,MF)))
 17479	    ftst(root(M_Equal(MPPFTPTT,MF)))
 17480	    ftst(root(M_Equal(MPPFTPTF,MF)))
 17481	    ftst(root(M_Equal(MPPFTPFT,MF)))
 17482	    ftst(root(M_Equal(MPPFTPFF,MF)))
 17483	    ftst(root(M_Equal(MPPFFPTT,MF)))
 17484	    ftst(root(M_Equal(MPPFFPTF,MF)))
 17485	    ftst(root(M_Equal(MPPFFPFT,MF)))
 17486	    ftst(root(M_Equal(MPPFFPFF,MF)))
 17487	
 17488	    ftst(root(M_Equal(MT      ,MPTT)))
 17489	    ttst(root(M_Equal(MF      ,MPTT)))
 17490	    ttst(root(M_Equal(MPTT    ,MPTT)))
 17491	    ftst(root(M_Equal(MPTF    ,MPTT)))
 17492	    ftst(root(M_Equal(MPFT    ,MPTT)))
 17493	    ftst(root(M_Equal(MPFF    ,MPTT)))
 17494	    ftst(root(M_Equal(MPPTTPTT,MPTT)))
 17495	    ftst(root(M_Equal(MPPTTPTF,MPTT)))
 17496	    ftst(root(M_Equal(MPPTTPFT,MPTT)))
 17497	    ftst(root(M_Equal(MPPTTPFF,MPTT)))
 17498	    ftst(root(M_Equal(MPPTFPTT,MPTT)))
 17499	    ftst(root(M_Equal(MPPTFPTF,MPTT)))
 17500	    ftst(root(M_Equal(MPPTFPFT,MPTT)))
 17501	    ftst(root(M_Equal(MPPTFPFF,MPTT)))
 17502	    ftst(root(M_Equal(MPPFTPTT,MPTT)))
 17503	    ftst(root(M_Equal(MPPFTPTF,MPTT)))
 17504	    ftst(root(M_Equal(MPPFTPFT,MPTT)))
 17505	    ftst(root(M_Equal(MPPFTPFF,MPTT)))
 17506	    ftst(root(M_Equal(MPPFFPTT,MPTT)))
 17507	    ftst(root(M_Equal(MPPFFPTF,MPTT)))
 17508	    ftst(root(M_Equal(MPPFFPFT,MPTT)))
 17509	    ftst(root(M_Equal(MPPFFPFF,MPTT)))
 17510	
 17511	    ftst(root(M_Equal(MT      ,MPTF)))
 17512	    ftst(root(M_Equal(MF      ,MPTF)))
 17513	    ftst(root(M_Equal(MPTT    ,MPTF)))
 17514	    ttst(root(M_Equal(MPTF    ,MPTF)))
 17515	    ftst(root(M_Equal(MPFT    ,MPTF)))
 17516	    ftst(root(M_Equal(MPFF    ,MPTF)))
 17517	    ftst(root(M_Equal(MPPTTPTT,MPTF)))
 17518	    ftst(root(M_Equal(MPPTTPTF,MPTF)))
 17519	    ftst(root(M_Equal(MPPTTPFT,MPTF)))
 17520	    ftst(root(M_Equal(MPPTTPFF,MPTF)))
 17521	    ftst(root(M_Equal(MPPTFPTT,MPTF)))
 17522	    ftst(root(M_Equal(MPPTFPTF,MPTF)))
 17523	    ftst(root(M_Equal(MPPTFPFT,MPTF)))
 17524	    ftst(root(M_Equal(MPPTFPFF,MPTF)))
 17525	    ftst(root(M_Equal(MPPFTPTT,MPTF)))
 17526	    ftst(root(M_Equal(MPPFTPTF,MPTF)))
 17527	    ftst(root(M_Equal(MPPFTPFT,MPTF)))
 17528	    ftst(root(M_Equal(MPPFTPFF,MPTF)))
 17529	    ftst(root(M_Equal(MPPFFPTT,MPTF)))
 17530	    ftst(root(M_Equal(MPPFFPTF,MPTF)))
 17531	    ftst(root(M_Equal(MPPFFPFT,MPTF)))
 17532	    ftst(root(M_Equal(MPPFFPFF,MPTF)))
 17533	
 17534	    ftst(root(M_Equal(MT      ,MPFT)))
 17535	    ftst(root(M_Equal(MF      ,MPFT)))
 17536	    ftst(root(M_Equal(MPTT    ,MPFT)))
 17537	    ftst(root(M_Equal(MPTF    ,MPFT)))
 17538	    ttst(root(M_Equal(MPFT    ,MPFT)))
 17539	    ftst(root(M_Equal(MPFF    ,MPFT)))
 17540	    ftst(root(M_Equal(MPPTTPTT,MPFT)))
 17541	    ftst(root(M_Equal(MPPTTPTF,MPFT)))
 17542	    ftst(root(M_Equal(MPPTTPFT,MPFT)))
 17543	    ftst(root(M_Equal(MPPTTPFF,MPFT)))
 17544	    ftst(root(M_Equal(MPPTFPTT,MPFT)))
 17545	    ftst(root(M_Equal(MPPTFPTF,MPFT)))
 17546	    ftst(root(M_Equal(MPPTFPFT,MPFT)))
 17547	    ftst(root(M_Equal(MPPTFPFF,MPFT)))
 17548	    ftst(root(M_Equal(MPPFTPTT,MPFT)))
 17549	    ftst(root(M_Equal(MPPFTPTF,MPFT)))
 17550	    ftst(root(M_Equal(MPPFTPFT,MPFT)))
 17551	    ftst(root(M_Equal(MPPFTPFF,MPFT)))
 17552	    ftst(root(M_Equal(MPPFFPTT,MPFT)))
 17553	    ftst(root(M_Equal(MPPFFPTF,MPFT)))
 17554	    ftst(root(M_Equal(MPPFFPFT,MPFT)))
 17555	    ftst(root(M_Equal(MPPFFPFF,MPFT)))
 17556	
 17557	    ftst(root(M_Equal(MT      ,MPFF)))
 17558	    ftst(root(M_Equal(MF      ,MPFF)))
 17559	    ftst(root(M_Equal(MPTT    ,MPFF)))
 17560	    ftst(root(M_Equal(MPTF    ,MPFF)))
 17561	    ftst(root(M_Equal(MPFT    ,MPFF)))
 17562	    ttst(root(M_Equal(MPFF    ,MPFF)))
 17563	    ttst(root(M_Equal(MPPTTPTT,MPFF)))
 17564	    ftst(root(M_Equal(MPPTTPTF,MPFF)))
 17565	    ftst(root(M_Equal(MPPTTPFT,MPFF)))
 17566	    ftst(root(M_Equal(MPPTTPFF,MPFF)))
 17567	    ftst(root(M_Equal(MPPTFPTT,MPFF)))
 17568	    ftst(root(M_Equal(MPPTFPTF,MPFF)))
 17569	    ftst(root(M_Equal(MPPTFPFT,MPFF)))
 17570	    ftst(root(M_Equal(MPPTFPFF,MPFF)))
 17571	    ftst(root(M_Equal(MPPFTPTT,MPFF)))
 17572	    ftst(root(M_Equal(MPPFTPTF,MPFF)))
 17573	    ftst(root(M_Equal(MPPFTPFT,MPFF)))
 17574	    ftst(root(M_Equal(MPPFTPFF,MPFF)))
 17575	    ftst(root(M_Equal(MPPFFPTT,MPFF)))
 17576	    ftst(root(M_Equal(MPPFFPTF,MPFF)))
 17577	    ftst(root(M_Equal(MPPFFPFT,MPFF)))
 17578	    ftst(root(M_Equal(MPPFFPFF,MPFF)))
 17579	
 17580	    ftst(root(M_Equal(MT      ,MPPTTPTT)))
 17581	    ftst(root(M_Equal(MF      ,MPPTTPTT)))
 17582	    ftst(root(M_Equal(MPTT    ,MPPTTPTT)))
 17583	    ftst(root(M_Equal(MPTF    ,MPPTTPTT)))
 17584	    ftst(root(M_Equal(MPFT    ,MPPTTPTT)))
 17585	    ttst(root(M_Equal(MPFF    ,MPPTTPTT)))
 17586	    ttst(root(M_Equal(MPPTTPTT,MPPTTPTT)))
 17587	    ftst(root(M_Equal(MPPTTPTF,MPPTTPTT)))
 17588	    ftst(root(M_Equal(MPPTTPFT,MPPTTPTT)))
 17589	    ftst(root(M_Equal(MPPTTPFF,MPPTTPTT)))
 17590	    ftst(root(M_Equal(MPPTFPTT,MPPTTPTT)))
 17591	    ftst(root(M_Equal(MPPTFPTF,MPPTTPTT)))
 17592	    ftst(root(M_Equal(MPPTFPFT,MPPTTPTT)))
 17593	    ftst(root(M_Equal(MPPTFPFF,MPPTTPTT)))
 17594	    ftst(root(M_Equal(MPPFTPTT,MPPTTPTT)))
 17595	    ftst(root(M_Equal(MPPFTPTF,MPPTTPTT)))
 17596	    ftst(root(M_Equal(MPPFTPFT,MPPTTPTT)))
 17597	    ftst(root(M_Equal(MPPFTPFF,MPPTTPTT)))
 17598	    ftst(root(M_Equal(MPPFFPTT,MPPTTPTT)))
 17599	    ftst(root(M_Equal(MPPFFPTF,MPPTTPTT)))
 17600	    ftst(root(M_Equal(MPPFFPFT,MPPTTPTT)))
 17601	    ftst(root(M_Equal(MPPFFPFF,MPPTTPTT)))
 17602	
 17603	    ftst(root(M_Equal(MT      ,MPPTTPTF)))
 17604	    ftst(root(M_Equal(MF      ,MPPTTPTF)))
 17605	    ftst(root(M_Equal(MPTT    ,MPPTTPTF)))
 17606	    ftst(root(M_Equal(MPTF    ,MPPTTPTF)))
 17607	    ftst(root(M_Equal(MPFT    ,MPPTTPTF)))
 17608	    ftst(root(M_Equal(MPFF    ,MPPTTPTF)))
 17609	    ftst(root(M_Equal(MPPTTPTT,MPPTTPTF)))
 17610	    ttst(root(M_Equal(MPPTTPTF,MPPTTPTF)))
 17611	    ftst(root(M_Equal(MPPTTPFT,MPPTTPTF)))
 17612	    ftst(root(M_Equal(MPPTTPFF,MPPTTPTF)))
 17613	    ftst(root(M_Equal(MPPTFPTT,MPPTTPTF)))
 17614	    ftst(root(M_Equal(MPPTFPTF,MPPTTPTF)))
 17615	    ftst(root(M_Equal(MPPTFPFT,MPPTTPTF)))
 17616	    ftst(root(M_Equal(MPPTFPFF,MPPTTPTF)))
 17617	    ftst(root(M_Equal(MPPFTPTT,MPPTTPTF)))
 17618	    ftst(root(M_Equal(MPPFTPTF,MPPTTPTF)))
 17619	    ftst(root(M_Equal(MPPFTPFT,MPPTTPTF)))
 17620	    ftst(root(M_Equal(MPPFTPFF,MPPTTPTF)))
 17621	    ftst(root(M_Equal(MPPFFPTT,MPPTTPTF)))
 17622	    ftst(root(M_Equal(MPPFFPTF,MPPTTPTF)))
 17623	    ftst(root(M_Equal(MPPFFPFT,MPPTTPTF)))
 17624	    ftst(root(M_Equal(MPPFFPFF,MPPTTPTF)))
 17625	
 17626	    ftst(root(M_Equal(MT      ,MPPTTPFT)))
 17627	    ftst(root(M_Equal(MF      ,MPPTTPFT)))
 17628	    ftst(root(M_Equal(MPTT    ,MPPTTPFT)))
 17629	    ftst(root(M_Equal(MPTF    ,MPPTTPFT)))
 17630	    ftst(root(M_Equal(MPFT    ,MPPTTPFT)))
 17631	    ftst(root(M_Equal(MPFF    ,MPPTTPFT)))
 17632	    ftst(root(M_Equal(MPPTTPTT,MPPTTPFT)))
 17633	    ftst(root(M_Equal(MPPTTPTF,MPPTTPFT)))
 17634	    ttst(root(M_Equal(MPPTTPFT,MPPTTPFT)))
 17635	    ftst(root(M_Equal(MPPTTPFF,MPPTTPFT)))
 17636	    ftst(root(M_Equal(MPPTFPTT,MPPTTPFT)))
 17637	    ftst(root(M_Equal(MPPTFPTF,MPPTTPFT)))
 17638	    ftst(root(M_Equal(MPPTFPFT,MPPTTPFT)))
 17639	    ftst(root(M_Equal(MPPTFPFF,MPPTTPFT)))
 17640	    ftst(root(M_Equal(MPPFTPTT,MPPTTPFT)))
 17641	    ftst(root(M_Equal(MPPFTPTF,MPPTTPFT)))
 17642	    ftst(root(M_Equal(MPPFTPFT,MPPTTPFT)))
 17643	    ftst(root(M_Equal(MPPFTPFF,MPPTTPFT)))
 17644	    ftst(root(M_Equal(MPPFFPTT,MPPTTPFT)))
 17645	    ftst(root(M_Equal(MPPFFPTF,MPPTTPFT)))
 17646	    ftst(root(M_Equal(MPPFFPFT,MPPTTPFT)))
 17647	    ftst(root(M_Equal(MPPFFPFF,MPPTTPFT)))
 17648	
 17649	    ftst(root(M_Equal(MT      ,MPPTTPFF)))
 17650	    ftst(root(M_Equal(MF      ,MPPTTPFF)))
 17651	    ftst(root(M_Equal(MPTT    ,MPPTTPFF)))
 17652	    ftst(root(M_Equal(MPTF    ,MPPTTPFF)))
 17653	    ftst(root(M_Equal(MPFT    ,MPPTTPFF)))
 17654	    ftst(root(M_Equal(MPFF    ,MPPTTPFF)))
 17655	    ftst(root(M_Equal(MPPTTPTT,MPPTTPFF)))
 17656	    ftst(root(M_Equal(MPPTTPTF,MPPTTPFF)))
 17657	    ftst(root(M_Equal(MPPTTPFT,MPPTTPFF)))
 17658	    ttst(root(M_Equal(MPPTTPFF,MPPTTPFF)))
 17659	    ftst(root(M_Equal(MPPTFPTT,MPPTTPFF)))
 17660	    ftst(root(M_Equal(MPPTFPTF,MPPTTPFF)))
 17661	    ftst(root(M_Equal(MPPTFPFT,MPPTTPFF)))
 17662	    ftst(root(M_Equal(MPPTFPFF,MPPTTPFF)))
 17663	    ftst(root(M_Equal(MPPFTPTT,MPPTTPFF)))
 17664	    ftst(root(M_Equal(MPPFTPTF,MPPTTPFF)))
 17665	    ftst(root(M_Equal(MPPFTPFT,MPPTTPFF)))
 17666	    ftst(root(M_Equal(MPPFTPFF,MPPTTPFF)))
 17667	    ftst(root(M_Equal(MPPFFPTT,MPPTTPFF)))
 17668	    ftst(root(M_Equal(MPPFFPTF,MPPTTPFF)))
 17669	    ftst(root(M_Equal(MPPFFPFT,MPPTTPFF)))
 17670	    ftst(root(M_Equal(MPPFFPFF,MPPTTPFF)))
 17671	
 17672	    ftst(root(M_Equal(MT      ,MPPTFPTT)))
 17673	    ftst(root(M_Equal(MF      ,MPPTFPTT)))
 17674	    ftst(root(M_Equal(MPTT    ,MPPTFPTT)))
 17675	    ftst(root(M_Equal(MPTF    ,MPPTFPTT)))
 17676	    ftst(root(M_Equal(MPFT    ,MPPTFPTT)))
 17677	    ftst(root(M_Equal(MPFF    ,MPPTFPTT)))
 17678	    ftst(root(M_Equal(MPPTTPTT,MPPTFPTT)))
 17679	    ftst(root(M_Equal(MPPTTPTF,MPPTFPTT)))
 17680	    ftst(root(M_Equal(MPPTTPFT,MPPTFPTT)))
 17681	    ftst(root(M_Equal(MPPTTPFF,MPPTFPTT)))
 17682	    ttst(root(M_Equal(MPPTFPTT,MPPTFPTT)))
 17683	    ftst(root(M_Equal(MPPTFPTF,MPPTFPTT)))
 17684	    ftst(root(M_Equal(MPPTFPFT,MPPTFPTT)))
 17685	    ftst(root(M_Equal(MPPTFPFF,MPPTFPTT)))
 17686	    ftst(root(M_Equal(MPPFTPTT,MPPTFPTT)))
 17687	    ftst(root(M_Equal(MPPFTPTF,MPPTFPTT)))
 17688	    ftst(root(M_Equal(MPPFTPFT,MPPTFPTT)))
 17689	    ftst(root(M_Equal(MPPFTPFF,MPPTFPTT)))
 17690	    ftst(root(M_Equal(MPPFFPTT,MPPTFPTT)))
 17691	    ftst(root(M_Equal(MPPFFPTF,MPPTFPTT)))
 17692	    ftst(root(M_Equal(MPPFFPFT,MPPTFPTT)))
 17693	    ftst(root(M_Equal(MPPFFPFF,MPPTFPTT)))
 17694	
 17695	    ftst(root(M_Equal(MT      ,MPPTFPTF)))
 17696	    ftst(root(M_Equal(MF      ,MPPTFPTF)))
 17697	    ftst(root(M_Equal(MPTT    ,MPPTFPTF)))
 17698	    ftst(root(M_Equal(MPTF    ,MPPTFPTF)))
 17699	    ftst(root(M_Equal(MPFT    ,MPPTFPTF)))
 17700	    ftst(root(M_Equal(MPFF    ,MPPTFPTF)))
 17701	    ftst(root(M_Equal(MPPTTPTT,MPPTFPTF)))
 17702	    ftst(root(M_Equal(MPPTTPTF,MPPTFPTF)))
 17703	    ftst(root(M_Equal(MPPTTPFT,MPPTFPTF)))
 17704	    ftst(root(M_Equal(MPPTTPFF,MPPTFPTF)))
 17705	    ftst(root(M_Equal(MPPTFPTT,MPPTFPTF)))
 17706	    ttst(root(M_Equal(MPPTFPTF,MPPTFPTF)))
 17707	    ftst(root(M_Equal(MPPTFPFT,MPPTFPTF)))
 17708	    ftst(root(M_Equal(MPPTFPFF,MPPTFPTF)))
 17709	    ftst(root(M_Equal(MPPFTPTT,MPPTFPTF)))
 17710	    ftst(root(M_Equal(MPPFTPTF,MPPTFPTF)))
 17711	    ftst(root(M_Equal(MPPFTPFT,MPPTFPTF)))
 17712	    ftst(root(M_Equal(MPPFTPFF,MPPTFPTF)))
 17713	    ftst(root(M_Equal(MPPFFPTT,MPPTFPTF)))
 17714	    ftst(root(M_Equal(MPPFFPTF,MPPTFPTF)))
 17715	    ftst(root(M_Equal(MPPFFPFT,MPPTFPTF)))
 17716	    ftst(root(M_Equal(MPPFFPFF,MPPTFPTF)))
 17717	
 17718	    ftst(root(M_Equal(MT      ,MPPTFPFT)))
 17719	    ftst(root(M_Equal(MF      ,MPPTFPFT)))
 17720	    ftst(root(M_Equal(MPTT    ,MPPTFPFT)))
 17721	    ftst(root(M_Equal(MPTF    ,MPPTFPFT)))
 17722	    ftst(root(M_Equal(MPFT    ,MPPTFPFT)))
 17723	    ftst(root(M_Equal(MPFF    ,MPPTFPFT)))
 17724	    ftst(root(M_Equal(MPPTTPTT,MPPTFPFT)))
 17725	    ftst(root(M_Equal(MPPTTPTF,MPPTFPFT)))
 17726	    ftst(root(M_Equal(MPPTTPFT,MPPTFPFT)))
 17727	    ftst(root(M_Equal(MPPTTPFF,MPPTFPFT)))
 17728	    ftst(root(M_Equal(MPPTFPTT,MPPTFPFT)))
 17729	    ftst(root(M_Equal(MPPTFPTF,MPPTFPFT)))
 17730	    ttst(root(M_Equal(MPPTFPFT,MPPTFPFT)))
 17731	    ftst(root(M_Equal(MPPTFPFF,MPPTFPFT)))
 17732	    ftst(root(M_Equal(MPPFTPTT,MPPTFPFT)))
 17733	    ftst(root(M_Equal(MPPFTPTF,MPPTFPFT)))
 17734	    ftst(root(M_Equal(MPPFTPFT,MPPTFPFT)))
 17735	    ftst(root(M_Equal(MPPFTPFF,MPPTFPFT)))
 17736	    ftst(root(M_Equal(MPPFFPTT,MPPTFPFT)))
 17737	    ftst(root(M_Equal(MPPFFPTF,MPPTFPFT)))
 17738	    ftst(root(M_Equal(MPPFFPFT,MPPTFPFT)))
 17739	    ftst(root(M_Equal(MPPFFPFF,MPPTFPFT)))
 17740	
 17741	    ftst(root(M_Equal(MT      ,MPPTFPFF)))
 17742	    ftst(root(M_Equal(MF      ,MPPTFPFF)))
 17743	    ftst(root(M_Equal(MPTT    ,MPPTFPFF)))
 17744	    ftst(root(M_Equal(MPTF    ,MPPTFPFF)))
 17745	    ftst(root(M_Equal(MPFT    ,MPPTFPFF)))
 17746	    ftst(root(M_Equal(MPFF    ,MPPTFPFF)))
 17747	    ftst(root(M_Equal(MPPTTPTT,MPPTFPFF)))
 17748	    ftst(root(M_Equal(MPPTTPTF,MPPTFPFF)))
 17749	    ftst(root(M_Equal(MPPTTPFT,MPPTFPFF)))
 17750	    ftst(root(M_Equal(MPPTTPFF,MPPTFPFF)))
 17751	    ftst(root(M_Equal(MPPTFPTT,MPPTFPFF)))
 17752	    ftst(root(M_Equal(MPPTFPTF,MPPTFPFF)))
 17753	    ftst(root(M_Equal(MPPTFPFT,MPPTFPFF)))
 17754	    ttst(root(M_Equal(MPPTFPFF,MPPTFPFF)))
 17755	    ftst(root(M_Equal(MPPFTPTT,MPPTFPFF)))
 17756	    ftst(root(M_Equal(MPPFTPTF,MPPTFPFF)))
 17757	    ftst(root(M_Equal(MPPFTPFT,MPPTFPFF)))
 17758	    ftst(root(M_Equal(MPPFTPFF,MPPTFPFF)))
 17759	    ftst(root(M_Equal(MPPFFPTT,MPPTFPFF)))
 17760	    ftst(root(M_Equal(MPPFFPTF,MPPTFPFF)))
 17761	    ftst(root(M_Equal(MPPFFPFT,MPPTFPFF)))
 17762	    ftst(root(M_Equal(MPPFFPFF,MPPTFPFF)))
 17763	
 17764	    ftst(root(M_Equal(MT      ,MPPFTPTT)))
 17765	    ftst(root(M_Equal(MF      ,MPPFTPTT)))
 17766	    ftst(root(M_Equal(MPTT    ,MPPFTPTT)))
 17767	    ftst(root(M_Equal(MPTF    ,MPPFTPTT)))
 17768	    ftst(root(M_Equal(MPFT    ,MPPFTPTT)))
 17769	    ftst(root(M_Equal(MPFF    ,MPPFTPTT)))
 17770	    ftst(root(M_Equal(MPPTTPTT,MPPFTPTT)))
 17771	    ftst(root(M_Equal(MPPTTPTF,MPPFTPTT)))
 17772	    ftst(root(M_Equal(MPPTTPFT,MPPFTPTT)))
 17773	    ftst(root(M_Equal(MPPTTPFF,MPPFTPTT)))
 17774	    ftst(root(M_Equal(MPPTFPTT,MPPFTPTT)))
 17775	    ftst(root(M_Equal(MPPTFPTF,MPPFTPTT)))
 17776	    ftst(root(M_Equal(MPPTFPFT,MPPFTPTT)))
 17777	    ftst(root(M_Equal(MPPTFPFF,MPPFTPTT)))
 17778	    ttst(root(M_Equal(MPPFTPTT,MPPFTPTT)))
 17779	    ftst(root(M_Equal(MPPFTPTF,MPPFTPTT)))
 17780	    ftst(root(M_Equal(MPPFTPFT,MPPFTPTT)))
 17781	    ftst(root(M_Equal(MPPFTPFF,MPPFTPTT)))
 17782	    ftst(root(M_Equal(MPPFFPTT,MPPFTPTT)))
 17783	    ftst(root(M_Equal(MPPFFPTF,MPPFTPTT)))
 17784	    ftst(root(M_Equal(MPPFFPFT,MPPFTPTT)))
 17785	    ftst(root(M_Equal(MPPFFPFF,MPPFTPTT)))
 17786	
 17787	    ftst(root(M_Equal(MT      ,MPPFTPTF)))
 17788	    ftst(root(M_Equal(MF      ,MPPFTPTF)))
 17789	    ftst(root(M_Equal(MPTT    ,MPPFTPTF)))
 17790	    ftst(root(M_Equal(MPTF    ,MPPFTPTF)))
 17791	    ftst(root(M_Equal(MPFT    ,MPPFTPTF)))
 17792	    ftst(root(M_Equal(MPFF    ,MPPFTPTF)))
 17793	    ftst(root(M_Equal(MPPTTPTT,MPPFTPTF)))
 17794	    ftst(root(M_Equal(MPPTTPTF,MPPFTPTF)))
 17795	    ftst(root(M_Equal(MPPTTPFT,MPPFTPTF)))
 17796	    ftst(root(M_Equal(MPPTTPFF,MPPFTPTF)))
 17797	    ftst(root(M_Equal(MPPTFPTT,MPPFTPTF)))
 17798	    ftst(root(M_Equal(MPPTFPTF,MPPFTPTF)))
 17799	    ftst(root(M_Equal(MPPTFPFT,MPPFTPTF)))
 17800	    ftst(root(M_Equal(MPPTFPFF,MPPFTPTF)))
 17801	    ftst(root(M_Equal(MPPFTPTT,MPPFTPTF)))
 17802	    ttst(root(M_Equal(MPPFTPTF,MPPFTPTF)))
 17803	    ftst(root(M_Equal(MPPFTPFT,MPPFTPTF)))
 17804	    ftst(root(M_Equal(MPPFTPFF,MPPFTPTF)))
 17805	    ftst(root(M_Equal(MPPFFPTT,MPPFTPTF)))
 17806	    ftst(root(M_Equal(MPPFFPTF,MPPFTPTF)))
 17807	    ftst(root(M_Equal(MPPFFPFT,MPPFTPTF)))
 17808	    ftst(root(M_Equal(MPPFFPFF,MPPFTPTF)))
 17809	
 17810	    ftst(root(M_Equal(MT      ,MPPFTPFT)))
 17811	    ftst(root(M_Equal(MF      ,MPPFTPFT)))
 17812	    ftst(root(M_Equal(MPTT    ,MPPFTPFT)))
 17813	    ftst(root(M_Equal(MPTF    ,MPPFTPFT)))
 17814	    ftst(root(M_Equal(MPFT    ,MPPFTPFT)))
 17815	    ftst(root(M_Equal(MPFF    ,MPPFTPFT)))
 17816	    ftst(root(M_Equal(MPPTTPTT,MPPFTPFT)))
 17817	    ftst(root(M_Equal(MPPTTPTF,MPPFTPFT)))
 17818	    ftst(root(M_Equal(MPPTTPFT,MPPFTPFT)))
 17819	    ftst(root(M_Equal(MPPTTPFF,MPPFTPFT)))
 17820	    ftst(root(M_Equal(MPPTFPTT,MPPFTPFT)))
 17821	    ftst(root(M_Equal(MPPTFPTF,MPPFTPFT)))
 17822	    ftst(root(M_Equal(MPPTFPFT,MPPFTPFT)))
 17823	    ftst(root(M_Equal(MPPTFPFF,MPPFTPFT)))
 17824	    ftst(root(M_Equal(MPPFTPTT,MPPFTPFT)))
 17825	    ftst(root(M_Equal(MPPFTPTF,MPPFTPFT)))
 17826	    ttst(root(M_Equal(MPPFTPFT,MPPFTPFT)))
 17827	    ftst(root(M_Equal(MPPFTPFF,MPPFTPFT)))
 17828	    ftst(root(M_Equal(MPPFFPTT,MPPFTPFT)))
 17829	    ftst(root(M_Equal(MPPFFPTF,MPPFTPFT)))
 17830	    ftst(root(M_Equal(MPPFFPFT,MPPFTPFT)))
 17831	    ftst(root(M_Equal(MPPFFPFF,MPPFTPFT)))
 17832	
 17833	    ftst(root(M_Equal(MT      ,MPPFTPFF)))
 17834	    ftst(root(M_Equal(MF      ,MPPFTPFF)))
 17835	    ftst(root(M_Equal(MPTT    ,MPPFTPFF)))
 17836	    ftst(root(M_Equal(MPTF    ,MPPFTPFF)))
 17837	    ftst(root(M_Equal(MPFT    ,MPPFTPFF)))
 17838	    ftst(root(M_Equal(MPFF    ,MPPFTPFF)))
 17839	    ftst(root(M_Equal(MPPTTPTT,MPPFTPFF)))
 17840	    ftst(root(M_Equal(MPPTTPTF,MPPFTPFF)))
 17841	    ftst(root(M_Equal(MPPTTPFT,MPPFTPFF)))
 17842	    ftst(root(M_Equal(MPPTTPFF,MPPFTPFF)))
 17843	    ftst(root(M_Equal(MPPTFPTT,MPPFTPFF)))
 17844	    ftst(root(M_Equal(MPPTFPTF,MPPFTPFF)))
 17845	    ftst(root(M_Equal(MPPTFPFT,MPPFTPFF)))
 17846	    ftst(root(M_Equal(MPPTFPFF,MPPFTPFF)))
 17847	    ftst(root(M_Equal(MPPFTPTT,MPPFTPFF)))
 17848	    ftst(root(M_Equal(MPPFTPTF,MPPFTPFF)))
 17849	    ftst(root(M_Equal(MPPFTPFT,MPPFTPFF)))
 17850	    ttst(root(M_Equal(MPPFTPFF,MPPFTPFF)))
 17851	    ftst(root(M_Equal(MPPFFPTT,MPPFTPFF)))
 17852	    ftst(root(M_Equal(MPPFFPTF,MPPFTPFF)))
 17853	    ftst(root(M_Equal(MPPFFPFT,MPPFTPFF)))
 17854	    ftst(root(M_Equal(MPPFFPFF,MPPFTPFF)))
 17855	
 17856	    ftst(root(M_Equal(MT      ,MPPFFPTT)))
 17857	    ftst(root(M_Equal(MF      ,MPPFFPTT)))
 17858	    ftst(root(M_Equal(MPTT    ,MPPFFPTT)))
 17859	    ftst(root(M_Equal(MPTF    ,MPPFFPTT)))
 17860	    ftst(root(M_Equal(MPFT    ,MPPFFPTT)))
 17861	    ftst(root(M_Equal(MPFF    ,MPPFFPTT)))
 17862	    ftst(root(M_Equal(MPPTTPTT,MPPFFPTT)))
 17863	    ftst(root(M_Equal(MPPTTPTF,MPPFFPTT)))
 17864	    ftst(root(M_Equal(MPPTTPFT,MPPFFPTT)))
 17865	    ftst(root(M_Equal(MPPTTPFF,MPPFFPTT)))
 17866	    ftst(root(M_Equal(MPPTFPTT,MPPFFPTT)))
 17867	    ftst(root(M_Equal(MPPTFPTF,MPPFFPTT)))
 17868	    ftst(root(M_Equal(MPPTFPFT,MPPFFPTT)))
 17869	    ftst(root(M_Equal(MPPTFPFF,MPPFFPTT)))
 17870	    ftst(root(M_Equal(MPPFTPTT,MPPFFPTT)))
 17871	    ftst(root(M_Equal(MPPFTPTF,MPPFFPTT)))
 17872	    ftst(root(M_Equal(MPPFTPFT,MPPFFPTT)))
 17873	    ftst(root(M_Equal(MPPFTPFF,MPPFFPTT)))
 17874	    ttst(root(M_Equal(MPPFFPTT,MPPFFPTT)))
 17875	    ftst(root(M_Equal(MPPFFPTF,MPPFFPTT)))
 17876	    ftst(root(M_Equal(MPPFFPFT,MPPFFPTT)))
 17877	    ftst(root(M_Equal(MPPFFPFF,MPPFFPTT)))
 17878	
 17879	    ftst(root(M_Equal(MT      ,MPPFFPTF)))
 17880	    ftst(root(M_Equal(MF      ,MPPFFPTF)))
 17881	    ftst(root(M_Equal(MPTT    ,MPPFFPTF)))
 17882	    ftst(root(M_Equal(MPTF    ,MPPFFPTF)))
 17883	    ftst(root(M_Equal(MPFT    ,MPPFFPTF)))
 17884	    ftst(root(M_Equal(MPFF    ,MPPFFPTF)))
 17885	    ftst(root(M_Equal(MPPTTPTT,MPPFFPTF)))
 17886	    ftst(root(M_Equal(MPPTTPTF,MPPFFPTF)))
 17887	    ftst(root(M_Equal(MPPTTPFT,MPPFFPTF)))
 17888	    ftst(root(M_Equal(MPPTTPFF,MPPFFPTF)))
 17889	    ftst(root(M_Equal(MPPTFPTT,MPPFFPTF)))
 17890	    ftst(root(M_Equal(MPPTFPTF,MPPFFPTF)))
 17891	    ftst(root(M_Equal(MPPTFPFT,MPPFFPTF)))
 17892	    ftst(root(M_Equal(MPPTFPFF,MPPFFPTF)))
 17893	    ftst(root(M_Equal(MPPFTPTT,MPPFFPTF)))
 17894	    ftst(root(M_Equal(MPPFTPTF,MPPFFPTF)))
 17895	    ftst(root(M_Equal(MPPFTPFT,MPPFFPTF)))
 17896	    ftst(root(M_Equal(MPPFTPFF,MPPFFPTF)))
 17897	    ftst(root(M_Equal(MPPFFPTT,MPPFFPTF)))
 17898	    ttst(root(M_Equal(MPPFFPTF,MPPFFPTF)))
 17899	    ftst(root(M_Equal(MPPFFPFT,MPPFFPTF)))
 17900	    ftst(root(M_Equal(MPPFFPFF,MPPFFPTF)))
 17901	
 17902	    ftst(root(M_Equal(MT      ,MPPFFPFT)))
 17903	    ftst(root(M_Equal(MF      ,MPPFFPFT)))
 17904	    ftst(root(M_Equal(MPTT    ,MPPFFPFT)))
 17905	    ftst(root(M_Equal(MPTF    ,MPPFFPFT)))
 17906	    ftst(root(M_Equal(MPFT    ,MPPFFPFT)))
 17907	    ftst(root(M_Equal(MPFF    ,MPPFFPFT)))
 17908	    ftst(root(M_Equal(MPPTTPTT,MPPFFPFT)))
 17909	    ftst(root(M_Equal(MPPTTPTF,MPPFFPFT)))
 17910	    ftst(root(M_Equal(MPPTTPFT,MPPFFPFT)))
 17911	    ftst(root(M_Equal(MPPTTPFF,MPPFFPFT)))
 17912	    ftst(root(M_Equal(MPPTFPTT,MPPFFPFT)))
 17913	    ftst(root(M_Equal(MPPTFPTF,MPPFFPFT)))
 17914	    ftst(root(M_Equal(MPPTFPFT,MPPFFPFT)))
 17915	    ftst(root(M_Equal(MPPTFPFF,MPPFFPFT)))
 17916	    ftst(root(M_Equal(MPPFTPTT,MPPFFPFT)))
 17917	    ftst(root(M_Equal(MPPFTPTF,MPPFFPFT)))
 17918	    ftst(root(M_Equal(MPPFTPFT,MPPFFPFT)))
 17919	    ftst(root(M_Equal(MPPFTPFF,MPPFFPFT)))
 17920	    ftst(root(M_Equal(MPPFFPTT,MPPFFPFT)))
 17921	    ftst(root(M_Equal(MPPFFPTF,MPPFFPFT)))
 17922	    ttst(root(M_Equal(MPPFFPFT,MPPFFPFT)))
 17923	    ftst(root(M_Equal(MPPFFPFF,MPPFFPFT)))
 17924	
 17925	    ftst(root(M_Equal(MT      ,MPPFFPFF)))
 17926	    ftst(root(M_Equal(MF      ,MPPFFPFF)))
 17927	    ftst(root(M_Equal(MPTT    ,MPPFFPFF)))
 17928	    ftst(root(M_Equal(MPTF    ,MPPFFPFF)))
 17929	    ftst(root(M_Equal(MPFT    ,MPPFFPFF)))
 17930	    ftst(root(M_Equal(MPFF    ,MPPFFPFF)))
 17931	    ftst(root(M_Equal(MPPTTPTT,MPPFFPFF)))
 17932	    ftst(root(M_Equal(MPPTTPTF,MPPFFPFF)))
 17933	    ftst(root(M_Equal(MPPTTPFT,MPPFFPFF)))
 17934	    ftst(root(M_Equal(MPPTTPFF,MPPFFPFF)))
 17935	    ftst(root(M_Equal(MPPTFPTT,MPPFFPFF)))
 17936	    ftst(root(M_Equal(MPPTFPTF,MPPFFPFF)))
 17937	    ftst(root(M_Equal(MPPTFPFT,MPPFFPFF)))
 17938	    ftst(root(M_Equal(MPPTFPFF,MPPFFPFF)))
 17939	    ftst(root(M_Equal(MPPFTPTT,MPPFFPFF)))
 17940	    ftst(root(M_Equal(MPPFTPTF,MPPFFPFF)))
 17941	    ftst(root(M_Equal(MPPFTPFT,MPPFFPFF)))
 17942	    ftst(root(M_Equal(MPPFTPFF,MPPFFPFF)))
 17943	    ftst(root(M_Equal(MPPFFPTT,MPPFFPFF)))
 17944	    ftst(root(M_Equal(MPPFFPTF,MPPFFPFF)))
 17945	    ftst(root(M_Equal(MPPFFPFT,MPPFFPFF)))
 17946	    ttst(root(M_Equal(MPPFFPFF,MPPFFPFF)))
 17947	
 17948	    ntst(U_Equal(TT,TT))
 17949	    ptst(U_Equal(TT,FF))
 17950	    ptst(U_Equal(TT,I0))
 17951	    ptst(U_Equal(TT,EE))
 17952	    ptst(U_Equal(TT,P0))
 17953	    ptst(U_Equal(TT,XX))
 17954	    ptst(U_Equal(TT,M0))
 17955	    ptst(U_Equal(TT,B0))
 17956	    ptst(U_Equal(FF,TT))
 17957	    ntst(U_Equal(FF,FF))
 17958	    ptst(U_Equal(FF,I0))
 17959	    ptst(U_Equal(FF,EE))
 17960	    ptst(U_Equal(FF,P0))
 17961	    ptst(U_Equal(FF,XX))
 17962	    ptst(U_Equal(FF,M0))
 17963	    ptst(U_Equal(FF,B0))
 17964	    ptst(U_Equal(I0,TT))
 17965	    ptst(U_Equal(I0,FF))
 17966	    ntst(U_Equal(I0,I0))
 17967	    ptst(U_Equal(I0,EE))
 17968	    ptst(U_Equal(I0,P0))
 17969	    ptst(U_Equal(I0,XX))
 17970	    ptst(U_Equal(I0,M0))
 17971	    ptst(U_Equal(I0,B0))
 17972	    ptst(U_Equal(EE,TT))
 17973	    ptst(U_Equal(EE,FF))
 17974	    ptst(U_Equal(EE,I0))
 17975	    ntst(U_Equal(EE,EE))
 17976	    ptst(U_Equal(EE,P0))
 17977	    ptst(U_Equal(EE,XX))
 17978	    ptst(U_Equal(EE,M0))
 17979	    ptst(U_Equal(EE,B0))
 17980	    ptst(U_Equal(P0,TT))
 17981	    ptst(U_Equal(P0,FF))
 17982	    ptst(U_Equal(P0,I0))
 17983	    ptst(U_Equal(P0,EE))
 17984	    ntst(U_Equal(P0,P0))
 17985	    ptst(U_Equal(P0,XX))
 17986	    ptst(U_Equal(P0,M0))
 17987	    ptst(U_Equal(P0,B0))
 17988	    ptst(U_Equal(XX,TT))
 17989	    ptst(U_Equal(XX,FF))
 17990	    ptst(U_Equal(XX,I0))
 17991	    ptst(U_Equal(XX,EE))
 17992	    ptst(U_Equal(XX,P0))
 17993	    ntst(U_Equal(XX,XX))
 17994	    ptst(U_Equal(XX,M0))
 17995	    ptst(U_Equal(XX,B0))
 17996	    ptst(U_Equal(M0,TT))
 17997	    ptst(U_Equal(M0,FF))
 17998	    ptst(U_Equal(M0,I0))
 17999	    ptst(U_Equal(M0,EE))
 18000	    ptst(U_Equal(M0,P0))
 18001	    ptst(U_Equal(M0,XX))
 18002	    ntst(U_Equal(M0,M0))
 18003	    ptst(U_Equal(M0,B0))
 18004	    ptst(U_Equal(B0,TT))
 18005	    ptst(U_Equal(B0,FF))
 18006	    ptst(U_Equal(B0,I0))
 18007	    ptst(U_Equal(B0,EE))
 18008	    ptst(U_Equal(B0,P0))
 18009	    ptst(U_Equal(B0,XX))
 18010	    ptst(U_Equal(B0,M0))
 18011	    ntst(U_Equal(B0,B0))
 18012	
 18013	    ntst(U_Equal(TT,U_norm(TT)))
 18014	    ptst(U_Equal(TT,U_norm(FF)))
 18015	
 18016	    ptst(U_Equal(TT,U_norm(I0)))
 18017	    ptst(U_Equal(TT,U_norm(EE)))
 18018	    ptst(U_Equal(TT,U_norm(P0)))
 18019	    ptst(U_Equal(TT,U_norm(M0)))
 18020	    ptst(U_Equal(TT,U_norm(B0)))
 18021	    ptst(U_Equal(FF,U_norm(TT)))
 18022	    ntst(U_Equal(FF,U_norm(FF)))
 18023	    ptst(U_Equal(FF,U_norm(I0)))
 18024	    ptst(U_Equal(FF,U_norm(EE)))
 18025	    ptst(U_Equal(FF,U_norm(P0)))
 18026	    ptst(U_Equal(FF,U_norm(M0)))
 18027	    ptst(U_Equal(FF,U_norm(B0)))
 18028	    ptst(U_Equal(I0,U_norm(TT)))
 18029	    ptst(U_Equal(I0,U_norm(FF)))
 18030	    ntst(U_Equal(I0,U_norm(I0)))
 18031	    ptst(U_Equal(I0,U_norm(EE)))
 18032	    ptst(U_Equal(I0,U_norm(P0)))
 18033	    ptst(U_Equal(I0,U_norm(M0)))
 18034	    ptst(U_Equal(I0,U_norm(B0)))
 18035	    ptst(U_Equal(EE,U_norm(TT)))
 18036	    ptst(U_Equal(EE,U_norm(FF)))
 18037	    ptst(U_Equal(EE,U_norm(I0)))
 18038	    ntst(U_Equal(EE,U_norm(EE)))
 18039	    ptst(U_Equal(EE,U_norm(P0)))
 18040	    ptst(U_Equal(EE,U_norm(M0)))
 18041	    ptst(U_Equal(EE,U_norm(B0)))
 18042	    ptst(U_Equal(P0,U_norm(TT)))
 18043	    ptst(U_Equal(P0,U_norm(FF)))
 18044	    ptst(U_Equal(P0,U_norm(I0)))
 18045	    ptst(U_Equal(P0,U_norm(EE)))
 18046	    ntst(U_Equal(P0,U_norm(P0)))
 18047	    ptst(U_Equal(P0,U_norm(M0)))
 18048	    ptst(U_Equal(P0,U_norm(B0)))
 18049	    ptst(U_Equal(M0,U_norm(TT)))
 18050	    ptst(U_Equal(M0,U_norm(FF)))
 18051	    ptst(U_Equal(M0,U_norm(I0)))
 18052	    ptst(U_Equal(M0,U_norm(EE)))
 18053	    ptst(U_Equal(M0,U_norm(P0)))
 18054	    ntst(U_Equal(M0,U_norm(M0)))
 18055	    ptst(U_Equal(M0,U_norm(B0)))
 18056	    ptst(U_Equal(B0,U_norm(TT)))
 18057	    ptst(U_Equal(B0,U_norm(FF)))
 18058	    ptst(U_Equal(B0,U_norm(I0)))
 18059	    ptst(U_Equal(B0,U_norm(EE)))
 18060	    ptst(U_Equal(B0,U_norm(P0)))
 18061	    ptst(U_Equal(B0,U_norm(M0)))
 18062	    ntst(U_Equal(B0,U_norm(B0)))
 18063	
 18064	    ttst(root(M_equal(M_true,M_true)))
 18065	    ftst(root(M_equal(M_true,M_false)))
 18066	    ftst(root(M_equal(M_false,M_true)))
 18067	    ttst(root(M_equal(M_false,M_false)))
 18068	
 18069	    ntst(U_equal(UT,UT))
 18070	    ptst(U_equal(UT,UF))
 18071	    ptst(U_equal(UF,UT))
 18072	    ntst(U_equal(UF,UF))
 18073	
 18074	    ntst(U_equal(TT,TT))
 18075	    ptst(U_equal(TT,FF))
 18076	    ptst(U_equal(TT,I0))
 18077	    ptst(U_equal(TT,EE))
 18078	    ptst(U_equal(TT,P0))
 18079	    ptst(U_equal(TT,M0))
 18080	    ptst(U_equal(TT,B0))
 18081	
 18082	    ptst(U_equal(FF,TT))
 18083	    ntst(U_equal(FF,FF))
 18084	    ptst(U_equal(FF,I0))
 18085	    ptst(U_equal(FF,EE))
 18086	    ptst(U_equal(FF,P0))
 18087	    ptst(U_equal(FF,M0))
 18088	    ptst(U_equal(FF,B0))
 18089	
 18090	    ptst(U_equal(I0,TT))
 18091	    ptst(U_equal(I0,FF))
 18092	    ntst(U_equal(I0,I0))
 18093	    ptst(U_equal(I0,EE))
 18094	    ptst(U_equal(I0,P0))
 18095	    ptst(U_equal(I0,M0))
 18096	    ptst(U_equal(I0,B0))
 18097	
 18098	    ptst(U_equal(EE,TT))
 18099	    ptst(U_equal(EE,FF))
 18100	    ptst(U_equal(EE,I0))
 18101	    ntst(U_equal(EE,EE))
 18102	    ptst(U_equal(EE,P0))
 18103	    ptst(U_equal(EE,M0))
 18104	    ptst(U_equal(EE,B0))
 18105	
 18106	    ptst(U_equal(P0,TT))
 18107	    ptst(U_equal(P0,FF))
 18108	    ptst(U_equal(P0,I0))
 18109	    ptst(U_equal(P0,EE))
 18110	    ntst(U_equal(P0,P0))
 18111	    ptst(U_equal(P0,M0))
 18112	    ptst(U_equal(P0,B0))
 18113	
 18114	    ptst(U_equal(M0,TT))
 18115	    ptst(U_equal(M0,FF))
 18116	    ptst(U_equal(M0,I0))
 18117	    ptst(U_equal(M0,EE))
 18118	    ptst(U_equal(M0,P0))
 18119	    ntst(U_equal(M0,M0))
 18120	    ptst(U_equal(M0,B0))
 18121	
 18122	    ptst(U_equal(B0,TT))
 18123	    ptst(U_equal(B0,FF))
 18124	    ptst(U_equal(B0,I0))
 18125	    ptst(U_equal(B0,EE))
 18126	    ptst(U_equal(B0,P0))
 18127	    ptst(U_equal(B0,M0))
 18128	    ntst(U_equal(B0,B0))
 18129	
 18130	/*
 18131	---------------------------------------------
 18132	Test of optimized constructs on base page
 18133	---------------------------------------------
 18134	*/
 18135	
 18136	    Ftst(False)
 18137	
 18138	    Ttst(Eq(TT,TT))
 18139	    Ftst(Eq(TT,FF))
 18140	    Ftst(Eq(TT,I0))
 18141	    Ftst(Eq(TT,EE))
 18142	    Ftst(Eq(TT,P0))
 18143	    Ftst(Eq(TT,M0))
 18144	    Ftst(Eq(TT,B0))
 18145	    Ftst(Eq(FF,TT))
 18146	    Ttst(Eq(FF,FF))
 18147	    Ftst(Eq(FF,I0))
 18148	    Ftst(Eq(FF,EE))
 18149	    Ftst(Eq(FF,P0))
 18150	    Ftst(Eq(FF,M0))
 18151	    Ftst(Eq(FF,B0))
 18152	    Ftst(Eq(I0,TT))
 18153	    Ftst(Eq(I0,FF))
 18154	    Ttst(Eq(I0,I0))
 18155	    Ftst(Eq(I0,EE))
 18156	    Ftst(Eq(I0,P0))
 18157	    Ftst(Eq(I0,M0))
 18158	    Ftst(Eq(I0,B0))
 18159	    Ftst(Eq(EE,TT))
 18160	    Ftst(Eq(EE,FF))
 18161	    Ftst(Eq(EE,I0))
 18162	    Ttst(Eq(EE,EE))
 18163	    Ftst(Eq(EE,P0))
 18164	    Ftst(Eq(EE,M0))
 18165	    Ftst(Eq(EE,B0))
 18166	    Ftst(Eq(P0,TT))
 18167	    Ftst(Eq(P0,FF))
 18168	    Ftst(Eq(P0,I0))
 18169	    Ftst(Eq(P0,EE))
 18170	    Ttst(Eq(P0,P0))
 18171	    Ftst(Eq(P0,M0))
 18172	    Ftst(Eq(P0,B0))
 18173	    Ftst(Eq(M0,TT))
 18174	    Ftst(Eq(M0,FF))
 18175	    Ftst(Eq(M0,I0))
 18176	    Ftst(Eq(M0,EE))
 18177	    Ftst(Eq(M0,P0))
 18178	    Ttst(Eq(M0,M0))
 18179	    Ftst(Eq(M0,B0))
 18180	    Ftst(Eq(B0,TT))
 18181	    Ftst(Eq(B0,FF))
 18182	    Ftst(Eq(B0,I0))
 18183	    Ftst(Eq(B0,EE))
 18184	    Ftst(Eq(B0,P0))
 18185	    Ftst(Eq(B0,M0))
 18186	    Ttst(Eq(B0,B0))
 18187	
 18188	    Ttst(Eq(I12 ,I12 ))
 18189	    Ftst(Eq(I12 ,I123))
 18190	    Ftst(Eq(I12 ,I923))
 18191	    Ftst(Eq(I12 ,I129))
 18192	    Ftst(Eq(I123,I12 ))
 18193	    Ttst(Eq(I123,I123))
 18194	    Ftst(Eq(I123,I923))
 18195	    Ftst(Eq(I123,I129))
 18196	    Ftst(Eq(I923,I12 ))
 18197	    Ftst(Eq(I923,I123))
 18198	    Ttst(Eq(I923,I923))
 18199	    Ftst(Eq(I923,I129))
 18200	    Ftst(Eq(I129,I12 ))
 18201	    Ftst(Eq(I129,I123))
 18202	    Ftst(Eq(I129,I923))
 18203	    Ttst(Eq(I129,I129))
 18204	
 18205	    Ttst(Eq(J12 ,J12 ))
 18206	    Ftst(Eq(J12 ,J123))
 18207	    Ftst(Eq(J12 ,J923))
 18208	    Ftst(Eq(J12 ,J129))
 18209	    Ftst(Eq(J123,J12 ))
 18210	    Ttst(Eq(J123,J123))
 18211	    Ftst(Eq(J123,J923))
 18212	    Ftst(Eq(J123,J129))
 18213	    Ftst(Eq(J923,J12 ))
 18214	    Ftst(Eq(J923,J123))
 18215	    Ttst(Eq(J923,J923))
 18216	    Ftst(Eq(J923,J129))
 18217	    Ftst(Eq(J129,J12 ))
 18218	    Ftst(Eq(J129,J123))
 18219	    Ftst(Eq(J129,J923))
 18220	    Ttst(Eq(J129,J129))
 18221	
 18222	    Ttst(Eq(EE,I[1]))
 18223	
 18224	    Ttst(Eq(P0,P0))
 18225	    Ftst(Eq(P0,P1))
 18226	    Ftst(Eq(P0,P2))
 18227	    Ftst(Eq(P0,P3))
 18228	    Ftst(Eq(P1,P0))
 18229	    Ttst(Eq(P1,P1))
 18230	    Ftst(Eq(P1,P2))
 18231	    Ftst(Eq(P1,P3))
 18232	    Ftst(Eq(P2,P0))
 18233	    Ftst(Eq(P2,P1))
 18234	    Ttst(Eq(P2,P2))
 18235	    Ftst(Eq(P2,P3))
 18236	    Ftst(Eq(P3,P0))
 18237	    Ftst(Eq(P3,P1))
 18238	    Ftst(Eq(P3,P2))
 18239	    Ttst(Eq(P3,P3))
 18240	
 18241	    Ttst(Eq(B0,B0))
 18242	    Ftst(Eq(B0,B1))
 18243	    Ftst(Eq(B0,B2))
 18244	    Ftst(Eq(B0,B3))
 18245	    Ftst(Eq(B1,B0))
 18246	    Ttst(Eq(B1,B1))
 18247	    Ftst(Eq(B1,B2))
 18248	    Ftst(Eq(B1,B3))
 18249	    Ftst(Eq(B2,B0))
 18250	    Ftst(Eq(B2,B1))
 18251	    Ttst(Eq(B2,B2))
 18252	    Ftst(Eq(B2,B3))
 18253	    Ftst(Eq(B3,B0))
 18254	    Ftst(Eq(B3,B1))
 18255	    Ftst(Eq(B3,B2))
 18256	    Ttst(Eq(B3,B3))
 18257	
 18258	    Xtst(Lognot(TT))
 18259	    Xtst(Lognot(FF))
 18260	    Xtst(Lognot(P0))
 18261	    Xtst(Lognot(M0))
 18262	    Xtst(Lognot(B0))
 18263	    Etst(Lognot(Z),M)
 18264	    Etst(Lognot(M),Z)
 18265	    Etst(Lognot(I0011),J1100)
 18266	    Etst(Lognot(J1010_0101),I0101_1010)
 18267	
 18268	    Xtst(Logand(TT,TT))
 18269	    Xtst(Logand(TT,FF))
 18270	    Xtst(Logand(TT,I0))
 18271	    Xtst(Logand(TT,P0))
 18272	    Xtst(Logand(TT,M0))
 18273	    Xtst(Logand(TT,B0))
 18274	    Xtst(Logand(FF,TT))
 18275	    Xtst(Logand(FF,FF))
 18276	    Xtst(Logand(FF,I0))
 18277	    Xtst(Logand(FF,P0))
 18278	    Xtst(Logand(FF,M0))
 18279	    Xtst(Logand(FF,B0))
 18280	    Xtst(Logand(I0,TT))
 18281	    Xtst(Logand(I0,FF))
 18282	    Xtst(Logand(I0,P0))
 18283	    Xtst(Logand(I0,M0))
 18284	    Xtst(Logand(I0,B0))
 18285	    Xtst(Logand(P0,TT))
 18286	    Xtst(Logand(P0,FF))
 18287	    Xtst(Logand(P0,I0))
 18288	    Xtst(Logand(P0,P0))
 18289	    Xtst(Logand(P0,M0))
 18290	    Xtst(Logand(P0,B0))
 18291	    Xtst(Logand(M0,TT))
 18292	    Xtst(Logand(M0,FF))
 18293	    Xtst(Logand(M0,I0))
 18294	    Xtst(Logand(M0,P0))
 18295	    Xtst(Logand(M0,M0))
 18296	    Xtst(Logand(M0,B0))
 18297	    Xtst(Logand(B0,TT))
 18298	    Xtst(Logand(B0,FF))
 18299	    Xtst(Logand(B0,I0))
 18300	    Xtst(Logand(B0,P0))
 18301	    Xtst(Logand(B0,M0))
 18302	    Xtst(Logand(B0,B0))
 18303	    Etst(Logand(I0011     ,I0101     ),I0001     )
 18304	    Etst(Logand(I1100     ,I1010     ),I1000     )
 18305	    Etst(Logand(I0011_1100,I0101_1010),I0001_1000)
 18306	    Etst(Logand(I0011     ,I0101_1010),I0001     )
 18307	    Etst(Logand(I0101_1010,I0011     ),I0001     )
 18308	    Etst(Logand(I0011     ,J0101     ),I0001     )
 18309	    Etst(Logand(I1100     ,J1010     ),I1000     )
 18310	    Etst(Logand(I0011_1100,J0101_1010),I0001_1000)
 18311	    Etst(Logand(I0011     ,J0101_1010),I0001     )
 18312	    Etst(Logand(I0101_1010,J0011     ),intcons(Z0001,I1010))
 18313	    Etst(Logand(J0011     ,I0101     ),I0001     )
 18314	    Etst(Logand(J1100     ,I1010     ),I1000     )
 18315	    Etst(Logand(J0011_1100,I0101_1010),I0001_1000)
 18316	    Etst(Logand(J0011     ,I0101_1010),intcons(Z0001,I1010))
 18317	    Etst(Logand(J0101_1010,I0011     ),I0001     )
 18318	    Etst(Logand(J0011     ,J0101     ),J0001     )
 18319	    Etst(Logand(J1100     ,J1010     ),J1000     )
 18320	    Etst(Logand(J0011_1100,J0101_1010),J0001_1000)
 18321	    Etst(Logand(J0011     ,J0101_1010),intcons(M0001,J1010))
 18322	    Etst(Logand(J0101_1010,J0011     ),intcons(M0001,J1010))
 18323	    Etst(Logand(I0011_1100,I1000_0001),Z)
 18324	    Etst(Logand(EE,I0),I0)
 18325	    Etst(Logand(EE,J1),EE)
 18326	    Etst(Logand(I0,EE),I0)
 18327	    Etst(Logand(J1,EE),EE)
 18328	
 18329	    Xtst(Logior(TT,TT))
 18330	    Xtst(Logior(TT,FF))
 18331	    Xtst(Logior(TT,I0))
 18332	    Xtst(Logior(TT,P0))
 18333	    Xtst(Logior(TT,M0))
 18334	    Xtst(Logior(TT,B0))
 18335	    Xtst(Logior(FF,TT))
 18336	    Xtst(Logior(FF,FF))
 18337	    Xtst(Logior(FF,I0))
 18338	    Xtst(Logior(FF,P0))
 18339	    Xtst(Logior(FF,M0))
 18340	    Xtst(Logior(FF,B0))
 18341	    Xtst(Logior(I0,TT))
 18342	    Xtst(Logior(I0,FF))
 18343	    Xtst(Logior(I0,P0))
 18344	    Xtst(Logior(I0,M0))
 18345	    Xtst(Logior(I0,B0))
 18346	    Xtst(Logior(P0,TT))
 18347	    Xtst(Logior(P0,FF))
 18348	    Xtst(Logior(P0,I0))
 18349	    Xtst(Logior(P0,P0))
 18350	    Xtst(Logior(P0,M0))
 18351	    Xtst(Logior(P0,B0))
 18352	    Xtst(Logior(M0,TT))
 18353	    Xtst(Logior(M0,FF))
 18354	    Xtst(Logior(M0,I0))
 18355	    Xtst(Logior(M0,P0))
 18356	    Xtst(Logior(M0,M0))
 18357	    Xtst(Logior(M0,B0))
 18358	    Xtst(Logior(B0,TT))
 18359	    Xtst(Logior(B0,FF))
 18360	    Xtst(Logior(B0,I0))
 18361	    Xtst(Logior(B0,P0))
 18362	    Xtst(Logior(B0,M0))
 18363	    Xtst(Logior(B0,B0))
 18364	    Etst(Logior(I0011     ,I0101     ),I0111     )
 18365	    Etst(Logior(I1100     ,I1010     ),I1110     )
 18366	    Etst(Logior(I0011_1100,I0101_1010),I0111_1110)
 18367	    Etst(Logior(I0011     ,I0101_1010),intcons(Z0111,I1010))
 18368	    Etst(Logior(I0101_1010,I0011     ),intcons(Z0111,I1010))
 18369	    Etst(Logior(I0011     ,J0101     ),J0111     )
 18370	    Etst(Logior(I1100     ,J1010     ),J1110     )
 18371	    Etst(Logior(I0011_1100,J0101_1010),J0111_1110)
 18372	    Etst(Logior(I0011     ,J0101_1010),intcons(M0111,J1010))
 18373	    Etst(Logior(I0101_1010,J0011     ),J0111     )
 18374	    Etst(Logior(J0011     ,I0101     ),J0111     )
 18375	    Etst(Logior(J1100     ,I1010     ),J1110     )
 18376	    Etst(Logior(J0011_1100,I0101_1010),J0111_1110)
 18377	    Etst(Logior(J0011     ,I0101_1010),J0111     )
 18378	    Etst(Logior(J0101_1010,I0011     ),intcons(M0111,J1010))
 18379	    Etst(Logior(J0011     ,J0101     ),J0111     )
 18380	    Etst(Logior(J1100     ,J1010     ),J1110     )
 18381	    Etst(Logior(J0011_1100,J0101_1010),J0111_1110)
 18382	    Etst(Logior(J0011     ,J0101_1010),J0111     )
 18383	    Etst(Logior(J0101_1010,J0011     ),J0111     )
 18384	    Etst(Logior(J0011_1100,J1110_0111),M)
 18385	    Etst(Logior(EE,I0),EE)
 18386	    Etst(Logior(EE,J1),J1)
 18387	    Etst(Logior(I0,EE),EE)
 18388	    Etst(Logior(J1,EE),J1)
 18389	
 18390	    Xtst(Logxor(TT,TT))
 18391	    Xtst(Logxor(TT,FF))
 18392	    Xtst(Logxor(TT,I0))
 18393	    Xtst(Logxor(TT,P0))
 18394	    Xtst(Logxor(TT,M0))
 18395	    Xtst(Logxor(TT,B0))
 18396	    Xtst(Logxor(FF,TT))
 18397	    Xtst(Logxor(FF,FF))
 18398	    Xtst(Logxor(FF,I0))
 18399	    Xtst(Logxor(FF,P0))
 18400	    Xtst(Logxor(FF,M0))
 18401	    Xtst(Logxor(FF,B0))
 18402	    Xtst(Logxor(I0,TT))
 18403	    Xtst(Logxor(I0,FF))
 18404	    Xtst(Logxor(I0,P0))
 18405	    Xtst(Logxor(I0,M0))
 18406	    Xtst(Logxor(I0,B0))
 18407	    Xtst(Logxor(P0,TT))
 18408	    Xtst(Logxor(P0,FF))
 18409	    Xtst(Logxor(P0,I0))
 18410	    Xtst(Logxor(P0,P0))
 18411	    Xtst(Logxor(P0,M0))
 18412	    Xtst(Logxor(P0,B0))
 18413	    Xtst(Logxor(M0,TT))
 18414	    Xtst(Logxor(M0,FF))
 18415	    Xtst(Logxor(M0,I0))
 18416	    Xtst(Logxor(M0,P0))
 18417	    Xtst(Logxor(M0,M0))
 18418	    Xtst(Logxor(M0,B0))
 18419	    Xtst(Logxor(B0,TT))
 18420	    Xtst(Logxor(B0,FF))
 18421	    Xtst(Logxor(B0,I0))
 18422	    Xtst(Logxor(B0,P0))
 18423	    Xtst(Logxor(B0,M0))
 18424	    Xtst(Logxor(B0,B0))
 18425	    Etst(Logxor(I0011     ,I0101     ),I0110     )
 18426	    Etst(Logxor(I1100     ,I1010     ),I0110     )
 18427	    Etst(Logxor(I0011_1100,I0101_1010),I0110_0110)
 18428	    Etst(Logxor(I0011     ,I0101_1010),intcons(Z0110,I1010))
 18429	    Etst(Logxor(I0101_1010,I0011     ),intcons(Z0110,I1010))
 18430	    Etst(Logxor(I0011     ,J0101     ),J0110     )
 18431	    Etst(Logxor(I1100     ,J1010     ),J0110     )
 18432	    Etst(Logxor(I0011_1100,J0101_1010),J0110_0110)
 18433	    Etst(Logxor(I0011     ,J0101_1010),intcons(M0110,J1010))
 18434	    Etst(Logxor(I0101_1010,J0011     ),intcons(M0110,J0101))
 18435	    Etst(Logxor(J0011     ,I0101     ),J0110     )
 18436	    Etst(Logxor(J1100     ,I1010     ),J0110     )
 18437	    Etst(Logxor(J0011_1100,I0101_1010),J0110_0110)
 18438	    Etst(Logxor(J0011     ,I0101_1010),intcons(M0110,J0101))
 18439	    Etst(Logxor(J0101_1010,I0011     ),intcons(M0110,J1010))
 18440	    Etst(Logxor(J0011     ,J0101     ),I0110     )
 18441	    Etst(Logxor(J1100     ,J1010     ),I0110     )
 18442	    Etst(Logxor(J0011_1100,J0101_1010),I0110_0110)
 18443	    Etst(Logxor(J0011     ,J0101_1010),intcons(Z0110,I0101))
 18444	    Etst(Logxor(J0101_1010,J0011     ),intcons(Z0110,I0101))
 18445	    Etst(Logxor(J0101_1010,J0101_1010),Z)
 18446	    Etst(Logxor(J0101_1010,I1010_0101),M)
 18447	    Etst(Logxor(EE,I0),EE)
 18448	    Etst(Logxor(EE,J1),J2)
 18449	    Etst(Logxor(I0,EE),EE)
 18450	    Etst(Logxor(J1,EE),J2)
 18451	
 18452	    Xtst(Logandc1(TT,TT))
 18453	    Xtst(Logandc1(TT,FF))
 18454	    Xtst(Logandc1(TT,I0))
 18455	    Xtst(Logandc1(TT,P0))
 18456	    Xtst(Logandc1(TT,M0))
 18457	    Xtst(Logandc1(TT,B0))
 18458	    Xtst(Logandc1(FF,TT))
 18459	    Xtst(Logandc1(FF,FF))
 18460	    Xtst(Logandc1(FF,I0))
 18461	    Xtst(Logandc1(FF,P0))
 18462	    Xtst(Logandc1(FF,M0))
 18463	    Xtst(Logandc1(FF,B0))
 18464	    Xtst(Logandc1(I0,TT))
 18465	    Xtst(Logandc1(I0,FF))
 18466	    Xtst(Logandc1(I0,P0))
 18467	    Xtst(Logandc1(I0,M0))
 18468	    Xtst(Logandc1(I0,B0))
 18469	    Xtst(Logandc1(P0,TT))
 18470	    Xtst(Logandc1(P0,FF))
 18471	    Xtst(Logandc1(P0,I0))
 18472	    Xtst(Logandc1(P0,P0))
 18473	    Xtst(Logandc1(P0,M0))
 18474	    Xtst(Logandc1(P0,B0))
 18475	    Xtst(Logandc1(M0,TT))
 18476	    Xtst(Logandc1(M0,FF))
 18477	    Xtst(Logandc1(M0,I0))
 18478	    Xtst(Logandc1(M0,P0))
 18479	    Xtst(Logandc1(M0,M0))
 18480	    Xtst(Logandc1(M0,B0))
 18481	    Xtst(Logandc1(B0,TT))
 18482	    Xtst(Logandc1(B0,FF))
 18483	    Xtst(Logandc1(B0,I0))
 18484	    Xtst(Logandc1(B0,P0))
 18485	    Xtst(Logandc1(B0,M0))
 18486	    Xtst(Logandc1(B0,B0))
 18487	    Etst(Logandc1(lognot(I0011     ),I0101     ),I0001     )
 18488	    Etst(Logandc1(lognot(I1100     ),I1010     ),I1000     )
 18489	    Etst(Logandc1(lognot(I0011_1100),I0101_1010),I0001_1000)
 18490	    Etst(Logandc1(lognot(I0011     ),I0101_1010),I0001     )
 18491	    Etst(Logandc1(lognot(I0101_1010),I0011     ),I0001     )
 18492	    Etst(Logandc1(lognot(I0011     ),J0101     ),I0001     )
 18493	    Etst(Logandc1(lognot(I1100     ),J1010     ),I1000     )
 18494	    Etst(Logandc1(lognot(I0011_1100),J0101_1010),I0001_1000)
 18495	    Etst(Logandc1(lognot(I0011     ),J0101_1010),I0001     )
 18496	    Etst(Logandc1(lognot(I0101_1010),J0011     ),intcons(Z0001,I1010))
 18497	    Etst(Logandc1(lognot(J0011     ),I0101     ),I0001     )
 18498	    Etst(Logandc1(lognot(J1100     ),I1010     ),I1000     )
 18499	    Etst(Logandc1(lognot(J0011_1100),I0101_1010),I0001_1000)
 18500	    Etst(Logandc1(lognot(J0011     ),I0101_1010),intcons(Z0001,I1010))
 18501	    Etst(Logandc1(lognot(J0101_1010),I0011     ),I0001     )
 18502	    Etst(Logandc1(lognot(J0011     ),J0101     ),J0001     )
 18503	    Etst(Logandc1(lognot(J1100     ),J1010     ),J1000     )
 18504	    Etst(Logandc1(lognot(J0011_1100),J0101_1010),J0001_1000)
 18505	    Etst(Logandc1(lognot(J0011     ),J0101_1010),intcons(M0001,J1010))
 18506	    Etst(Logandc1(lognot(J0101_1010),J0011     ),intcons(M0001,J1010))
 18507	    Etst(Logandc1(EE,I0),I0)
 18508	    Etst(Logandc1(EE,J1),J2)
 18509	    Etst(Logandc1(I0,EE),EE)
 18510	    Etst(Logandc1(J1,EE),I0)
 18511	
 18512	    Xtst(Logandc2(TT,TT))
 18513	    Xtst(Logandc2(TT,FF))
 18514	    Xtst(Logandc2(TT,I0))
 18515	    Xtst(Logandc2(TT,P0))
 18516	    Xtst(Logandc2(TT,M0))
 18517	    Xtst(Logandc2(TT,B0))
 18518	    Xtst(Logandc2(FF,TT))
 18519	    Xtst(Logandc2(FF,FF))
 18520	    Xtst(Logandc2(FF,I0))
 18521	    Xtst(Logandc2(FF,P0))
 18522	    Xtst(Logandc2(FF,M0))
 18523	    Xtst(Logandc2(FF,B0))
 18524	    Xtst(Logandc2(I0,TT))
 18525	    Xtst(Logandc2(I0,FF))
 18526	    Xtst(Logandc2(I0,P0))
 18527	    Xtst(Logandc2(I0,M0))
 18528	    Xtst(Logandc2(I0,B0))
 18529	    Xtst(Logandc2(P0,TT))
 18530	    Xtst(Logandc2(P0,FF))
 18531	    Xtst(Logandc2(P0,I0))
 18532	    Xtst(Logandc2(P0,P0))
 18533	    Xtst(Logandc2(P0,M0))
 18534	    Xtst(Logandc2(P0,B0))
 18535	    Xtst(Logandc2(M0,TT))
 18536	    Xtst(Logandc2(M0,FF))
 18537	    Xtst(Logandc2(M0,I0))
 18538	    Xtst(Logandc2(M0,P0))
 18539	    Xtst(Logandc2(M0,M0))
 18540	    Xtst(Logandc2(M0,B0))
 18541	    Xtst(Logandc2(B0,TT))
 18542	    Xtst(Logandc2(B0,FF))
 18543	    Xtst(Logandc2(B0,I0))
 18544	    Xtst(Logandc2(B0,P0))
 18545	    Xtst(Logandc2(B0,M0))
 18546	    Xtst(Logandc2(B0,B0))
 18547	    Etst(Logandc2(I0011     ,lognot(I0101     )),I0001     )
 18548	    Etst(Logandc2(I1100     ,lognot(I1010     )),I1000     )
 18549	    Etst(Logandc2(I0011_1100,lognot(I0101_1010)),I0001_1000)
 18550	    Etst(Logandc2(I0011     ,lognot(I0101_1010)),I0001     )
 18551	    Etst(Logandc2(I0101_1010,lognot(I0011     )),I0001     )
 18552	    Etst(Logandc2(I0011     ,lognot(J0101     )),I0001     )
 18553	    Etst(Logandc2(I1100     ,lognot(J1010     )),I1000     )
 18554	    Etst(Logandc2(I0011_1100,lognot(J0101_1010)),I0001_1000)
 18555	    Etst(Logandc2(I0011     ,lognot(J0101_1010)),I0001     )
 18556	    Etst(Logandc2(I0101_1010,lognot(J0011     )),intcons(Z0001,I1010))
 18557	    Etst(Logandc2(J0011     ,lognot(I0101     )),I0001     )
 18558	    Etst(Logandc2(J1100     ,lognot(I1010     )),I1000     )
 18559	    Etst(Logandc2(J0011_1100,lognot(I0101_1010)),I0001_1000)
 18560	    Etst(Logandc2(J0011     ,lognot(I0101_1010)),intcons(Z0001,I1010))
 18561	    Etst(Logandc2(J0101_1010,lognot(I0011     )),I0001     )
 18562	    Etst(Logandc2(J0011     ,lognot(J0101     )),J0001     )
 18563	    Etst(Logandc2(J1100     ,lognot(J1010     )),J1000     )
 18564	    Etst(Logandc2(J0011_1100,lognot(J0101_1010)),J0001_1000)
 18565	    Etst(Logandc2(J0011     ,lognot(J0101_1010)),intcons(M0001,J1010))
 18566	    Etst(Logandc2(J0101_1010,lognot(J0011     )),intcons(M0001,J1010))
 18567	    Etst(Logandc2(EE,I0),EE)
 18568	    Etst(Logandc2(EE,J1),I0)
 18569	    Etst(Logandc2(I0,EE),I0)
 18570	    Etst(Logandc2(J1,EE),J2)
 18571	
 18572	    Xtst(Lognand(TT,TT))
 18573	    Xtst(Lognand(TT,FF))
 18574	    Xtst(Lognand(TT,I0))
 18575	    Xtst(Lognand(TT,P0))
 18576	    Xtst(Lognand(TT,M0))
 18577	    Xtst(Lognand(TT,B0))
 18578	    Xtst(Lognand(FF,TT))
 18579	    Xtst(Lognand(FF,FF))
 18580	    Xtst(Lognand(FF,I0))
 18581	    Xtst(Lognand(FF,P0))
 18582	    Xtst(Lognand(FF,M0))
 18583	    Xtst(Lognand(FF,B0))
 18584	    Xtst(Lognand(I0,TT))
 18585	    Xtst(Lognand(I0,FF))
 18586	    Xtst(Lognand(I0,P0))
 18587	    Xtst(Lognand(I0,M0))
 18588	    Xtst(Lognand(I0,B0))
 18589	    Xtst(Lognand(P0,TT))
 18590	    Xtst(Lognand(P0,FF))
 18591	    Xtst(Lognand(P0,I0))
 18592	    Xtst(Lognand(P0,P0))
 18593	    Xtst(Lognand(P0,M0))
 18594	    Xtst(Lognand(P0,B0))
 18595	    Xtst(Lognand(M0,TT))
 18596	    Xtst(Lognand(M0,FF))
 18597	    Xtst(Lognand(M0,I0))
 18598	    Xtst(Lognand(M0,P0))
 18599	    Xtst(Lognand(M0,M0))
 18600	    Xtst(Lognand(M0,B0))
 18601	    Xtst(Lognand(B0,TT))
 18602	    Xtst(Lognand(B0,FF))
 18603	    Xtst(Lognand(B0,I0))
 18604	    Xtst(Lognand(B0,P0))
 18605	    Xtst(Lognand(B0,M0))
 18606	    Xtst(Lognand(B0,B0))
 18607	    Etst(Lognand(I0011     ,I0101     ),lognot(I0001     ))
 18608	    Etst(Lognand(I1100     ,I1010     ),lognot(I1000     ))
 18609	    Etst(Lognand(I0011_1100,I0101_1010),lognot(I0001_1000))
 18610	    Etst(Lognand(I0011     ,I0101_1010),lognot(I0001     ))
 18611	    Etst(Lognand(I0101_1010,I0011     ),lognot(I0001     ))
 18612	    Etst(Lognand(I0011     ,J0101     ),lognot(I0001     ))
 18613	    Etst(Lognand(I1100     ,J1010     ),lognot(I1000     ))
 18614	    Etst(Lognand(I0011_1100,J0101_1010),lognot(I0001_1000))
 18615	    Etst(Lognand(I0011     ,J0101_1010),lognot(I0001     ))
 18616	    Etst(Lognand(I0101_1010,J0011     ),lognot(intcons(Z0001,I1010)))
 18617	    Etst(Lognand(J0011     ,I0101     ),lognot(I0001     ))
 18618	    Etst(Lognand(J1100     ,I1010     ),lognot(I1000     ))
 18619	    Etst(Lognand(J0011_1100,I0101_1010),lognot(I0001_1000))
 18620	    Etst(Lognand(J0011     ,I0101_1010),lognot(intcons(Z0001,I1010)))
 18621	    Etst(Lognand(J0101_1010,I0011     ),lognot(I0001     ))
 18622	    Etst(Lognand(J0011     ,J0101     ),lognot(J0001     ))
 18623	    Etst(Lognand(J1100     ,J1010     ),lognot(J1000     ))
 18624	    Etst(Lognand(J0011_1100,J0101_1010),lognot(J0001_1000))
 18625	    Etst(Lognand(J0011     ,J0101_1010),lognot(intcons(M0001,J1010)))
 18626	    Etst(Lognand(J0101_1010,J0011     ),lognot(intcons(M0001,J1010)))
 18627	    Etst(Lognand(EE,I0),J1)
 18628	    Etst(Lognand(EE,J1),J2)
 18629	    Etst(Lognand(I0,EE),J1)
 18630	    Etst(Lognand(J1,EE),J2)
 18631	
 18632	    Xtst(Logorc1(TT,TT))
 18633	    Xtst(Logorc1(TT,FF))
 18634	    Xtst(Logorc1(TT,I0))
 18635	    Xtst(Logorc1(TT,P0))
 18636	    Xtst(Logorc1(TT,M0))
 18637	    Xtst(Logorc1(TT,B0))
 18638	    Xtst(Logorc1(FF,TT))
 18639	    Xtst(Logorc1(FF,FF))
 18640	    Xtst(Logorc1(FF,I0))
 18641	    Xtst(Logorc1(FF,P0))
 18642	    Xtst(Logorc1(FF,M0))
 18643	    Xtst(Logorc1(FF,B0))
 18644	    Xtst(Logorc1(I0,TT))
 18645	    Xtst(Logorc1(I0,FF))
 18646	    Xtst(Logorc1(I0,P0))
 18647	    Xtst(Logorc1(I0,M0))
 18648	    Xtst(Logorc1(I0,B0))
 18649	    Xtst(Logorc1(P0,TT))
 18650	    Xtst(Logorc1(P0,FF))
 18651	    Xtst(Logorc1(P0,I0))
 18652	    Xtst(Logorc1(P0,P0))
 18653	    Xtst(Logorc1(P0,M0))
 18654	    Xtst(Logorc1(P0,B0))
 18655	    Xtst(Logorc1(M0,TT))
 18656	    Xtst(Logorc1(M0,FF))
 18657	    Xtst(Logorc1(M0,I0))
 18658	    Xtst(Logorc1(M0,P0))
 18659	    Xtst(Logorc1(M0,M0))
 18660	    Xtst(Logorc1(M0,B0))
 18661	    Xtst(Logorc1(B0,TT))
 18662	    Xtst(Logorc1(B0,FF))
 18663	    Xtst(Logorc1(B0,I0))
 18664	    Xtst(Logorc1(B0,P0))
 18665	    Xtst(Logorc1(B0,M0))
 18666	    Xtst(Logorc1(B0,B0))
 18667	    Etst(Logorc1(lognot(I0011     ),I0101     ),I0111     )
 18668	    Etst(Logorc1(lognot(I1100     ),I1010     ),I1110     )
 18669	    Etst(Logorc1(lognot(I0011_1100),I0101_1010),I0111_1110)
 18670	    Etst(Logorc1(lognot(I0011     ),I0101_1010),intcons(Z0111,I1010))
 18671	    Etst(Logorc1(lognot(I0101_1010),I0011     ),intcons(Z0111,I1010))
 18672	    Etst(Logorc1(lognot(I0011     ),J0101     ),J0111     )
 18673	    Etst(Logorc1(lognot(I1100     ),J1010     ),J1110     )
 18674	    Etst(Logorc1(lognot(I0011_1100),J0101_1010),J0111_1110)
 18675	    Etst(Logorc1(lognot(I0011     ),J0101_1010),intcons(M0111,J1010))
 18676	    Etst(Logorc1(lognot(I0101_1010),J0011     ),J0111     )
 18677	    Etst(Logorc1(lognot(J0011     ),I0101     ),J0111     )
 18678	    Etst(Logorc1(lognot(J1100     ),I1010     ),J1110     )
 18679	    Etst(Logorc1(lognot(J0011_1100),I0101_1010),J0111_1110)
 18680	    Etst(Logorc1(lognot(J0011     ),I0101_1010),J0111     )
 18681	    Etst(Logorc1(lognot(J0101_1010),I0011     ),intcons(M0111,J1010))
 18682	    Etst(Logorc1(lognot(J0011     ),J0101     ),J0111     )
 18683	    Etst(Logorc1(lognot(J1100     ),J1010     ),J1110     )
 18684	    Etst(Logorc1(lognot(J0011_1100),J0101_1010),J0111_1110)
 18685	    Etst(Logorc1(lognot(J0011     ),J0101_1010),J0111     )
 18686	    Etst(Logorc1(lognot(J0101_1010),J0011     ),J0111     )
 18687	    Etst(Logorc1(EE,I0),J2)
 18688	    Etst(Logorc1(EE,J1),J1)
 18689	    Etst(Logorc1(I0,EE),J1)
 18690	    Etst(Logorc1(J1,EE),EE)
 18691	
 18692	    Xtst(Logorc2(TT,TT))
 18693	    Xtst(Logorc2(TT,FF))
 18694	    Xtst(Logorc2(TT,I0))
 18695	    Xtst(Logorc2(TT,P0))
 18696	    Xtst(Logorc2(TT,M0))
 18697	    Xtst(Logorc2(TT,B0))
 18698	    Xtst(Logorc2(FF,TT))
 18699	    Xtst(Logorc2(FF,FF))
 18700	    Xtst(Logorc2(FF,I0))
 18701	    Xtst(Logorc2(FF,P0))
 18702	    Xtst(Logorc2(FF,M0))
 18703	    Xtst(Logorc2(FF,B0))
 18704	    Xtst(Logorc2(I0,TT))
 18705	    Xtst(Logorc2(I0,FF))
 18706	    Xtst(Logorc2(I0,P0))
 18707	    Xtst(Logorc2(I0,M0))
 18708	    Xtst(Logorc2(I0,B0))
 18709	    Xtst(Logorc2(P0,TT))
 18710	    Xtst(Logorc2(P0,FF))
 18711	    Xtst(Logorc2(P0,I0))
 18712	    Xtst(Logorc2(P0,P0))
 18713	    Xtst(Logorc2(P0,M0))
 18714	    Xtst(Logorc2(P0,B0))
 18715	    Xtst(Logorc2(M0,TT))
 18716	    Xtst(Logorc2(M0,FF))
 18717	    Xtst(Logorc2(M0,I0))
 18718	    Xtst(Logorc2(M0,P0))
 18719	    Xtst(Logorc2(M0,M0))
 18720	    Xtst(Logorc2(M0,B0))
 18721	    Xtst(Logorc2(B0,TT))
 18722	    Xtst(Logorc2(B0,FF))
 18723	    Xtst(Logorc2(B0,I0))
 18724	    Xtst(Logorc2(B0,P0))
 18725	    Xtst(Logorc2(B0,M0))
 18726	    Xtst(Logorc2(B0,B0))
 18727	    Etst(Logorc2(I0011     ,lognot(I0101     )),I0111     )
 18728	    Etst(Logorc2(I1100     ,lognot(I1010     )),I1110     )
 18729	    Etst(Logorc2(I0011_1100,lognot(I0101_1010)),I0111_1110)
 18730	    Etst(Logorc2(I0011     ,lognot(I0101_1010)),intcons(Z0111,I1010))
 18731	    Etst(Logorc2(I0101_1010,lognot(I0011     )),intcons(Z0111,I1010))
 18732	    Etst(Logorc2(I0011     ,lognot(J0101     )),J0111     )
 18733	    Etst(Logorc2(I1100     ,lognot(J1010     )),J1110     )
 18734	    Etst(Logorc2(I0011_1100,lognot(J0101_1010)),J0111_1110)
 18735	    Etst(Logorc2(I0011     ,lognot(J0101_1010)),intcons(M0111,J1010))
 18736	    Etst(Logorc2(I0101_1010,lognot(J0011     )),J0111     )
 18737	    Etst(Logorc2(J0011     ,lognot(I0101     )),J0111     )
 18738	    Etst(Logorc2(J1100     ,lognot(I1010     )),J1110     )
 18739	    Etst(Logorc2(J0011_1100,lognot(I0101_1010)),J0111_1110)
 18740	    Etst(Logorc2(J0011     ,lognot(I0101_1010)),J0111     )
 18741	    Etst(Logorc2(J0101_1010,lognot(I0011     )),intcons(M0111,J1010))
 18742	    Etst(Logorc2(J0011     ,lognot(J0101     )),J0111     )
 18743	    Etst(Logorc2(J1100     ,lognot(J1010     )),J1110     )
 18744	    Etst(Logorc2(J0011_1100,lognot(J0101_1010)),J0111_1110)
 18745	    Etst(Logorc2(J0011     ,lognot(J0101_1010)),J0111     )
 18746	    Etst(Logorc2(J0101_1010,lognot(J0011     )),J0111     )
 18747	    Etst(Logorc2(EE,I0),J1)
 18748	    Etst(Logorc2(EE,J1),EE)
 18749	    Etst(Logorc2(I0,EE),J2)
 18750	    Etst(Logorc2(J1,EE),J1)
 18751	
 18752	    Xtst(Lognor(TT,TT))
 18753	    Xtst(Lognor(TT,FF))
 18754	    Xtst(Lognor(TT,I0))
 18755	    Xtst(Lognor(TT,P0))
 18756	    Xtst(Lognor(TT,M0))
 18757	    Xtst(Lognor(TT,B0))
 18758	    Xtst(Lognor(FF,TT))
 18759	    Xtst(Lognor(FF,FF))
 18760	    Xtst(Lognor(FF,I0))
 18761	    Xtst(Lognor(FF,P0))
 18762	    Xtst(Lognor(FF,M0))
 18763	    Xtst(Lognor(FF,B0))
 18764	    Xtst(Lognor(I0,TT))
 18765	    Xtst(Lognor(I0,FF))
 18766	    Xtst(Lognor(I0,P0))
 18767	    Xtst(Lognor(I0,M0))
 18768	    Xtst(Lognor(I0,B0))
 18769	    Xtst(Lognor(P0,TT))
 18770	    Xtst(Lognor(P0,FF))
 18771	    Xtst(Lognor(P0,I0))
 18772	    Xtst(Lognor(P0,P0))
 18773	    Xtst(Lognor(P0,M0))
 18774	    Xtst(Lognor(P0,B0))
 18775	    Xtst(Lognor(M0,TT))
 18776	    Xtst(Lognor(M0,FF))
 18777	    Xtst(Lognor(M0,I0))
 18778	    Xtst(Lognor(M0,P0))
 18779	    Xtst(Lognor(M0,M0))
 18780	    Xtst(Lognor(M0,B0))
 18781	    Xtst(Lognor(B0,TT))
 18782	    Xtst(Lognor(B0,FF))
 18783	    Xtst(Lognor(B0,I0))
 18784	    Xtst(Lognor(B0,P0))
 18785	    Xtst(Lognor(B0,M0))
 18786	    Xtst(Lognor(B0,B0))
 18787	    Etst(Lognor(I0011     ,I0101     ),lognot(I0111     ))
 18788	    Etst(Lognor(I1100     ,I1010     ),lognot(I1110     ))
 18789	    Etst(Lognor(I0011_1100,I0101_1010),lognot(I0111_1110))
 18790	    Etst(Lognor(I0011     ,I0101_1010),lognot(intcons(Z0111,I1010)))
 18791	    Etst(Lognor(I0101_1010,I0011     ),lognot(intcons(Z0111,I1010)))
 18792	    Etst(Lognor(I0011     ,J0101     ),lognot(J0111     ))
 18793	    Etst(Lognor(I1100     ,J1010     ),lognot(J1110     ))
 18794	    Etst(Lognor(I0011_1100,J0101_1010),lognot(J0111_1110))
 18795	    Etst(Lognor(I0011     ,J0101_1010),lognot(intcons(M0111,J1010)))
 18796	    Etst(Lognor(I0101_1010,J0011     ),lognot(J0111     ))
 18797	    Etst(Lognor(J0011     ,I0101     ),lognot(J0111     ))
 18798	    Etst(Lognor(J1100     ,I1010     ),lognot(J1110     ))
 18799	    Etst(Lognor(J0011_1100,I0101_1010),lognot(J0111_1110))
 18800	    Etst(Lognor(J0011     ,I0101_1010),lognot(J0111     ))
 18801	    Etst(Lognor(J0101_1010,I0011     ),lognot(intcons(M0111,J1010)))
 18802	    Etst(Lognor(J0011     ,J0101     ),lognot(J0111     ))
 18803	    Etst(Lognor(J1100     ,J1010     ),lognot(J1110     ))
 18804	    Etst(Lognor(J0011_1100,J0101_1010),lognot(J0111_1110))
 18805	    Etst(Lognor(J0011     ,J0101_1010),lognot(J0111     ))
 18806	    Etst(Lognor(J0101_1010,J0011     ),lognot(J0111     ))
 18807	    Etst(Lognor(EE,I0),J2)
 18808	    Etst(Lognor(EE,J1),I0)
 18809	    Etst(Lognor(I0,EE),J2)
 18810	    Etst(Lognor(J1,EE),I0)
 18811	
 18812	    Xtst(Logeqv(TT,TT))
 18813	    Xtst(Logeqv(TT,FF))
 18814	    Xtst(Logeqv(TT,I0))
 18815	    Xtst(Logeqv(TT,P0))
 18816	    Xtst(Logeqv(TT,M0))
 18817	    Xtst(Logeqv(TT,B0))
 18818	    Xtst(Logeqv(FF,TT))
 18819	    Xtst(Logeqv(FF,FF))
 18820	    Xtst(Logeqv(FF,I0))
 18821	    Xtst(Logeqv(FF,P0))
 18822	    Xtst(Logeqv(FF,M0))
 18823	    Xtst(Logeqv(FF,B0))
 18824	    Xtst(Logeqv(I0,TT))
 18825	    Xtst(Logeqv(I0,FF))
 18826	    Xtst(Logeqv(I0,P0))
 18827	    Xtst(Logeqv(I0,M0))
 18828	    Xtst(Logeqv(I0,B0))
 18829	    Xtst(Logeqv(P0,TT))
 18830	    Xtst(Logeqv(P0,FF))
 18831	    Xtst(Logeqv(P0,I0))
 18832	    Xtst(Logeqv(P0,P0))
 18833	    Xtst(Logeqv(P0,M0))
 18834	    Xtst(Logeqv(P0,B0))
 18835	    Xtst(Logeqv(M0,TT))
 18836	    Xtst(Logeqv(M0,FF))
 18837	    Xtst(Logeqv(M0,I0))
 18838	    Xtst(Logeqv(M0,P0))
 18839	    Xtst(Logeqv(M0,M0))
 18840	    Xtst(Logeqv(M0,B0))
 18841	    Xtst(Logeqv(B0,TT))
 18842	    Xtst(Logeqv(B0,FF))
 18843	    Xtst(Logeqv(B0,I0))
 18844	    Xtst(Logeqv(B0,P0))
 18845	    Xtst(Logeqv(B0,M0))
 18846	    Xtst(Logeqv(B0,B0))
 18847	    Etst(Logeqv(lognot(I0011     ),I0101     ),I0110     )
 18848	    Etst(Logeqv(lognot(I1100     ),I1010     ),I0110     )
 18849	    Etst(Logeqv(lognot(I0011_1100),I0101_1010),I0110_0110)
 18850	    Etst(Logeqv(lognot(I0011     ),I0101_1010),intcons(Z0110,I1010))
 18851	    Etst(Logeqv(lognot(I0101_1010),I0011     ),intcons(Z0110,I1010))
 18852	    Etst(Logeqv(lognot(I0011     ),J0101     ),J0110     )
 18853	    Etst(Logeqv(lognot(I1100     ),J1010     ),J0110     )
 18854	    Etst(Logeqv(lognot(I0011_1100),J0101_1010),J0110_0110)
 18855	    Etst(Logeqv(lognot(I0011     ),J0101_1010),intcons(M0110,J1010))
 18856	    Etst(Logeqv(lognot(I0101_1010),J0011     ),intcons(M0110,J0101))
 18857	    Etst(Logeqv(lognot(J0011     ),I0101     ),J0110     )
 18858	    Etst(Logeqv(lognot(J1100     ),I1010     ),J0110     )
 18859	    Etst(Logeqv(lognot(J0011_1100),I0101_1010),J0110_0110)
 18860	    Etst(Logeqv(lognot(J0011     ),I0101_1010),intcons(M0110,J0101))
 18861	    Etst(Logeqv(lognot(J0101_1010),I0011     ),intcons(M0110,J1010))
 18862	    Etst(Logeqv(lognot(J0011     ),J0101     ),I0110     )
 18863	    Etst(Logeqv(lognot(J1100     ),J1010     ),I0110     )
 18864	    Etst(Logeqv(lognot(J0011_1100),J0101_1010),I0110_0110)
 18865	    Etst(Logeqv(lognot(J0011     ),J0101_1010),intcons(Z0110,I0101))
 18866	    Etst(Logeqv(lognot(J0101_1010),J0011     ),intcons(Z0110,I0101))
 18867	    Etst(Logeqv(EE,I0),J2)
 18868	    Etst(Logeqv(EE,J1),EE)
 18869	    Etst(Logeqv(I0,EE),J2)
 18870	    Etst(Logeqv(J1,EE),EE)
 18871	
 18872	    Xtst(Logtest(TT,TT))
 18873	    Xtst(Logtest(TT,FF))
 18874	    Xtst(Logtest(TT,I0))
 18875	    Xtst(Logtest(TT,P0))
 18876	    Xtst(Logtest(TT,M0))
 18877	    Xtst(Logtest(TT,B0))
 18878	    Xtst(Logtest(FF,TT))
 18879	    Xtst(Logtest(FF,FF))
 18880	    Xtst(Logtest(FF,I0))
 18881	    Xtst(Logtest(FF,P0))
 18882	    Xtst(Logtest(FF,M0))
 18883	    Xtst(Logtest(FF,B0))
 18884	    Xtst(Logtest(I0,TT))
 18885	    Xtst(Logtest(I0,FF))
 18886	    Xtst(Logtest(I0,P0))
 18887	    Xtst(Logtest(I0,M0))
 18888	    Xtst(Logtest(I0,B0))
 18889	    Xtst(Logtest(P0,TT))
 18890	    Xtst(Logtest(P0,FF))
 18891	    Xtst(Logtest(P0,I0))
 18892	    Xtst(Logtest(P0,P0))
 18893	    Xtst(Logtest(P0,M0))
 18894	    Xtst(Logtest(P0,B0))
 18895	    Xtst(Logtest(M0,TT))
 18896	    Xtst(Logtest(M0,FF))
 18897	    Xtst(Logtest(M0,I0))
 18898	    Xtst(Logtest(M0,P0))
 18899	    Xtst(Logtest(M0,M0))
 18900	    Xtst(Logtest(M0,B0))
 18901	    Xtst(Logtest(B0,TT))
 18902	    Xtst(Logtest(B0,FF))
 18903	    Xtst(Logtest(B0,I0))
 18904	    Xtst(Logtest(B0,P0))
 18905	    Xtst(Logtest(B0,M0))
 18906	    Xtst(Logtest(B0,B0))
 18907	    Ttst(Logtest(I0011     ,I0101     ))
 18908	    Ttst(Logtest(I1100     ,I1010     ))
 18909	    Ttst(Logtest(I0011_1100,I0101_1010))
 18910	    Ttst(Logtest(I0011     ,I0101_1010))
 18911	    Ttst(Logtest(I0101_1010,I0011     ))
 18912	    Ttst(Logtest(I0011     ,J0101     ))
 18913	    Ttst(Logtest(I1100     ,J1010     ))
 18914	    Ttst(Logtest(I0011_1100,J0101_1010))
 18915	    Ttst(Logtest(I0011     ,J0101_1010))
 18916	    Ttst(Logtest(I0101_1010,J0011     ))
 18917	    Ttst(Logtest(J0011     ,I0101     ))
 18918	    Ttst(Logtest(J1100     ,I1010     ))
 18919	    Ttst(Logtest(J0011_1100,I0101_1010))
 18920	    Ttst(Logtest(J0011     ,I0101_1010))
 18921	    Ttst(Logtest(J0101_1010,I0011     ))
 18922	    Ttst(Logtest(J0011     ,J0101     ))
 18923	    Ttst(Logtest(J1100     ,J1010     ))
 18924	    Ttst(Logtest(J0011_1100,J0101_1010))
 18925	    Ttst(Logtest(J0011     ,J0101_1010))
 18926	    Ttst(Logtest(J0101_1010,J0011     ))
 18927	
 18928	    Ftst(Logtest(I0011     ,I1100     ))
 18929	    Ftst(Logtest(I1100     ,I0001     ))
 18930	    Ftst(Logtest(I0011_1100,I1000_0001))
 18931	    Ftst(Logtest(I0011     ,I1100_0011))
 18932	    Ftst(Logtest(I0101_1010,I0010     ))
 18933	    Ftst(Logtest(I0011     ,J1000     ))
 18934	    Ftst(Logtest(I1100     ,J0011     ))
 18935	    Ftst(Logtest(I0011_1100,J1000_0001))
 18936	    Ftst(Logtest(I0011     ,J1100_0011))
 18937	    Ftst(Logtest(J0011     ,I0100     ))
 18938	    Ftst(Logtest(J1100     ,I0010     ))
 18939	    Ftst(Logtest(J0011_1100,I0100_0010))
 18940	    Ftst(Logtest(J0101_1010,I1010     ))
 18941	    Ftst(Logtest(EE,I0))
 18942	    Ttst(Logtest(EE,J1))
 18943	    Ftst(Logtest(I0,EE))
 18944	    Ttst(Logtest(J1,EE))
 18945	    Ftst(Logtest(EE,J1010_0101))
 18946	    Ttst(Logtest(EE,I0011_1100))
 18947	    Ftst(Logtest(J1010_0101,EE))
 18948	    Ttst(Logtest(I0011_1100,EE))
 18949	
 18950	    Xtst(Lt(TT,TT))
 18951	    Xtst(Lt(TT,FF))
 18952	    Xtst(Lt(TT,I0))
 18953	    Xtst(Lt(TT,P0))
 18954	    Xtst(Lt(TT,M0))
 18955	    Xtst(Lt(TT,B0))
 18956	    Xtst(Lt(FF,TT))
 18957	    Xtst(Lt(FF,FF))
 18958	    Xtst(Lt(FF,I0))
 18959	    Xtst(Lt(FF,P0))
 18960	    Xtst(Lt(FF,M0))
 18961	    Xtst(Lt(FF,B0))
 18962	    Xtst(Lt(I0,TT))
 18963	    Xtst(Lt(I0,FF))
 18964	    Xtst(Lt(I0,P0))
 18965	    Xtst(Lt(I0,M0))
 18966	    Xtst(Lt(I0,B0))
 18967	    Xtst(Lt(P0,TT))
 18968	    Xtst(Lt(P0,FF))
 18969	    Xtst(Lt(P0,I0))
 18970	    Xtst(Lt(P0,P0))
 18971	    Xtst(Lt(P0,M0))
 18972	    Xtst(Lt(P0,B0))
 18973	    Xtst(Lt(M0,TT))
 18974	    Xtst(Lt(M0,FF))
 18975	    Xtst(Lt(M0,I0))
 18976	    Xtst(Lt(M0,P0))
 18977	    Xtst(Lt(M0,M0))
 18978	    Xtst(Lt(M0,B0))
 18979	    Xtst(Lt(B0,TT))
 18980	    Xtst(Lt(B0,FF))
 18981	    Xtst(Lt(B0,I0))
 18982	    Xtst(Lt(B0,P0))
 18983	    Xtst(Lt(B0,M0))
 18984	    Xtst(Lt(B0,B0))
 18985	    Ftst(Lt(I0011     ,I0011     ))
 18986	    Ttst(Lt(I0011     ,I0101     ))
 18987	    Ftst(Lt(I1100     ,I1010     ))
 18988	    Ftst(Lt(I0011_1100,I0011_1100))
 18989	    Ftst(Lt(I0011_1100,I0101_1010))
 18990	    Ttst(Lt(I1100_0011,I1010_0101))
 18991	    Ttst(Lt(I0011     ,I0101_1010))
 18992	    Ftst(Lt(I0101_1010,I0011     ))
 18993	    Ftst(Lt(I0011     ,J0101     ))
 18994	    Ftst(Lt(I1100     ,J1010     ))
 18995	    Ftst(Lt(I0011_1100,J0101_1010))
 18996	    Ftst(Lt(I0011     ,J0101_1010))
 18997	    Ftst(Lt(I0101_1010,J0011     ))
 18998	    Ttst(Lt(J0011     ,I0101     ))
 18999	    Ttst(Lt(J1100     ,I1010     ))
 19000	    Ttst(Lt(J0011_1100,I0101_1010))
 19001	    Ttst(Lt(J0011     ,I0101_1010))
 19002	    Ttst(Lt(J0101_1010,I0011     ))
 19003	    Ftst(Lt(J0011     ,J0011     ))
 19004	    Ttst(Lt(J0011     ,J0101     ))
 19005	    Ftst(Lt(J1100     ,J1010     ))
 19006	    Ftst(Lt(J0011_1100,J0011_1100))
 19007	    Ftst(Lt(J0011_1100,J0101_1010))
 19008	    Ttst(Lt(J1100_0011,J1010_0101))
 19009	    Ftst(Lt(J0011     ,J0101_1010))
 19010	    Ttst(Lt(J0101_1010,J0011     ))
 19011	
 19012	    Xtst(Le(TT,TT))
 19013	    Xtst(Le(TT,FF))
 19014	    Xtst(Le(TT,I0))
 19015	    Xtst(Le(TT,P0))
 19016	    Xtst(Le(TT,M0))
 19017	    Xtst(Le(TT,B0))
 19018	    Xtst(Le(FF,TT))
 19019	    Xtst(Le(FF,FF))
 19020	    Xtst(Le(FF,I0))
 19021	    Xtst(Le(FF,P0))
 19022	    Xtst(Le(FF,M0))
 19023	    Xtst(Le(FF,B0))
 19024	    Xtst(Le(I0,TT))
 19025	    Xtst(Le(I0,FF))
 19026	    Xtst(Le(I0,P0))
 19027	    Xtst(Le(I0,M0))
 19028	    Xtst(Le(I0,B0))
 19029	    Xtst(Le(P0,TT))
 19030	    Xtst(Le(P0,FF))
 19031	    Xtst(Le(P0,I0))
 19032	    Xtst(Le(P0,P0))
 19033	    Xtst(Le(P0,M0))
 19034	    Xtst(Le(P0,B0))
 19035	    Xtst(Le(M0,TT))
 19036	    Xtst(Le(M0,FF))
 19037	    Xtst(Le(M0,I0))
 19038	    Xtst(Le(M0,P0))
 19039	    Xtst(Le(M0,M0))
 19040	    Xtst(Le(M0,B0))
 19041	    Xtst(Le(B0,TT))
 19042	    Xtst(Le(B0,FF))
 19043	    Xtst(Le(B0,I0))
 19044	    Xtst(Le(B0,P0))
 19045	    Xtst(Le(B0,M0))
 19046	    Xtst(Le(B0,B0))
 19047	    Ttst(Le(I0011     ,I0011     ))
 19048	    Ttst(Le(I0011     ,I0101     ))
 19049	    Ftst(Le(I1100     ,I1010     ))
 19050	    Ttst(Le(I0011_1100,I0011_1100))
 19051	    Ftst(Le(I0011_1100,I0101_1010))
 19052	    Ttst(Le(I1100_0011,I1010_0101))
 19053	    Ttst(Le(I0011     ,I0101_1010))
 19054	    Ftst(Le(I0101_1010,I0011     ))
 19055	    Ftst(Le(I0011     ,J0101     ))
 19056	    Ftst(Le(I1100     ,J1010     ))
 19057	    Ftst(Le(I0011_1100,J0101_1010))
 19058	    Ftst(Le(I0011     ,J0101_1010))
 19059	    Ftst(Le(I0101_1010,J0011     ))
 19060	    Ttst(Le(J0011     ,I0101     ))
 19061	    Ttst(Le(J1100     ,I1010     ))
 19062	    Ttst(Le(J0011_1100,I0101_1010))
 19063	    Ttst(Le(J0011     ,I0101_1010))
 19064	    Ttst(Le(J0101_1010,I0011     ))
 19065	    Ttst(Le(J0011     ,J0011     ))
 19066	    Ttst(Le(J0011     ,J0101     ))
 19067	    Ftst(Le(J1100     ,J1010     ))
 19068	    Ttst(Le(J0011_1100,J0011_1100))
 19069	    Ftst(Le(J0011_1100,J0101_1010))
 19070	    Ttst(Le(J1100_0011,J1010_0101))
 19071	    Ftst(Le(J0011     ,J0101_1010))
 19072	    Ttst(Le(J0101_1010,J0011     ))
 19073	
 19074	    Xtst(Gt(TT,TT))
 19075	    Xtst(Gt(TT,FF))
 19076	    Xtst(Gt(TT,I0))
 19077	    Xtst(Gt(TT,P0))
 19078	    Xtst(Gt(TT,M0))
 19079	    Xtst(Gt(TT,B0))
 19080	    Xtst(Gt(FF,TT))
 19081	    Xtst(Gt(FF,FF))
 19082	    Xtst(Gt(FF,I0))
 19083	    Xtst(Gt(FF,P0))
 19084	    Xtst(Gt(FF,M0))
 19085	    Xtst(Gt(FF,B0))
 19086	    Xtst(Gt(I0,TT))
 19087	    Xtst(Gt(I0,FF))
 19088	    Xtst(Gt(I0,P0))
 19089	    Xtst(Gt(I0,M0))
 19090	    Xtst(Gt(I0,B0))
 19091	    Xtst(Gt(P0,TT))
 19092	    Xtst(Gt(P0,FF))
 19093	    Xtst(Gt(P0,I0))
 19094	    Xtst(Gt(P0,P0))
 19095	    Xtst(Gt(P0,M0))
 19096	    Xtst(Gt(P0,B0))
 19097	    Xtst(Gt(M0,TT))
 19098	    Xtst(Gt(M0,FF))
 19099	    Xtst(Gt(M0,I0))
 19100	    Xtst(Gt(M0,P0))
 19101	    Xtst(Gt(M0,M0))
 19102	    Xtst(Gt(M0,B0))
 19103	    Xtst(Gt(B0,TT))
 19104	    Xtst(Gt(B0,FF))
 19105	    Xtst(Gt(B0,I0))
 19106	    Xtst(Gt(B0,P0))
 19107	    Xtst(Gt(B0,M0))
 19108	    Xtst(Gt(B0,B0))
 19109	    Ftst(Gt(I0011     ,I0011     ))
 19110	    Ftst(Gt(I0011     ,I0101     ))
 19111	    Ttst(Gt(I1100     ,I1010     ))
 19112	    Ftst(Gt(I0011_1100,I0011_1100))
 19113	    Ttst(Gt(I0011_1100,I0101_1010))
 19114	    Ftst(Gt(I1100_0011,I1010_0101))
 19115	    Ftst(Gt(I0011     ,I0101_1010))
 19116	    Ttst(Gt(I0101_1010,I0011     ))
 19117	    Ttst(Gt(I0011     ,J0101     ))
 19118	    Ttst(Gt(I1100     ,J1010     ))
 19119	    Ttst(Gt(I0011_1100,J0101_1010))
 19120	    Ttst(Gt(I0011     ,J0101_1010))
 19121	    Ttst(Gt(I0101_1010,J0011     ))
 19122	    Ftst(Gt(J0011     ,I0101     ))
 19123	    Ftst(Gt(J1100     ,I1010     ))
 19124	    Ftst(Gt(J0011_1100,I0101_1010))
 19125	    Ftst(Gt(J0011     ,I0101_1010))
 19126	    Ftst(Gt(J0101_1010,I0011     ))
 19127	    Ftst(Gt(J0011     ,J0011     ))
 19128	    Ftst(Gt(J0011     ,J0101     ))
 19129	    Ttst(Gt(J1100     ,J1010     ))
 19130	    Ftst(Gt(J0011_1100,J0011_1100))
 19131	    Ttst(Gt(J0011_1100,J0101_1010))
 19132	    Ftst(Gt(J1100_0011,J1010_0101))
 19133	    Ttst(Gt(J0011     ,J0101_1010))
 19134	    Ftst(Gt(J0101_1010,J0011     ))
 19135	
 19136	    Xtst(Ge(TT,TT))
 19137	    Xtst(Ge(TT,FF))
 19138	    Xtst(Ge(TT,I0))
 19139	    Xtst(Ge(TT,P0))
 19140	    Xtst(Ge(TT,M0))
 19141	    Xtst(Ge(TT,B0))
 19142	    Xtst(Ge(FF,TT))
 19143	    Xtst(Ge(FF,FF))
 19144	    Xtst(Ge(FF,I0))
 19145	    Xtst(Ge(FF,P0))
 19146	    Xtst(Ge(FF,M0))
 19147	    Xtst(Ge(FF,B0))
 19148	    Xtst(Ge(I0,TT))
 19149	    Xtst(Ge(I0,FF))
 19150	    Xtst(Ge(I0,P0))
 19151	    Xtst(Ge(I0,M0))
 19152	    Xtst(Ge(I0,B0))
 19153	    Xtst(Ge(P0,TT))
 19154	    Xtst(Ge(P0,FF))
 19155	    Xtst(Ge(P0,I0))
 19156	    Xtst(Ge(P0,P0))
 19157	    Xtst(Ge(P0,M0))
 19158	    Xtst(Ge(P0,B0))
 19159	    Xtst(Ge(M0,TT))
 19160	    Xtst(Ge(M0,FF))
 19161	    Xtst(Ge(M0,I0))
 19162	    Xtst(Ge(M0,P0))
 19163	    Xtst(Ge(M0,M0))
 19164	    Xtst(Ge(M0,B0))
 19165	    Xtst(Ge(B0,TT))
 19166	    Xtst(Ge(B0,FF))
 19167	    Xtst(Ge(B0,I0))
 19168	    Xtst(Ge(B0,P0))
 19169	    Xtst(Ge(B0,M0))
 19170	    Xtst(Ge(B0,B0))
 19171	    Ttst(Ge(I0011     ,I0011     ))
 19172	    Ftst(Ge(I0011     ,I0101     ))
 19173	    Ttst(Ge(I1100     ,I1010     ))
 19174	    Ttst(Ge(I0011_1100,I0011_1100))
 19175	    Ttst(Ge(I0011_1100,I0101_1010))
 19176	    Ftst(Ge(I1100_0011,I1010_0101))
 19177	    Ftst(Ge(I0011     ,I0101_1010))
 19178	    Ttst(Ge(I0101_1010,I0011     ))
 19179	    Ttst(Ge(I0011     ,J0101     ))
 19180	    Ttst(Ge(I1100     ,J1010     ))
 19181	    Ttst(Ge(I0011_1100,J0101_1010))
 19182	    Ttst(Ge(I0011     ,J0101_1010))
 19183	    Ttst(Ge(I0101_1010,J0011     ))
 19184	    Ftst(Ge(J0011     ,I0101     ))
 19185	    Ftst(Ge(J1100     ,I1010     ))
 19186	    Ftst(Ge(J0011_1100,I0101_1010))
 19187	    Ftst(Ge(J0011     ,I0101_1010))
 19188	    Ftst(Ge(J0101_1010,I0011     ))
 19189	    Ttst(Ge(J0011     ,J0011     ))
 19190	    Ftst(Ge(J0011     ,J0101     ))
 19191	    Ttst(Ge(J1100     ,J1010     ))
 19192	    Ttst(Ge(J0011_1100,J0011_1100))
 19193	    Ttst(Ge(J0011_1100,J0101_1010))
 19194	    Ftst(Ge(J1100_0011,J1010_0101))
 19195	    Ttst(Ge(J0011     ,J0101_1010))
 19196	    Ftst(Ge(J0101_1010,J0011     ))
 19197	
 19198	    Xtst(Evenp(TT))
 19199	    Xtst(Evenp(FF))
 19200	    Xtst(Evenp(P0))
 19201	    Xtst(Evenp(M0))
 19202	    Xtst(Evenp(B0))
 19203	    Ttst(Evenp(Z))
 19204	    Ftst(Evenp(M))
 19205	    Ftst(Evenp(I0011))
 19206	    Ttst(Evenp(J1010_0101))
 19207	
 19208	    Xtst(Half(TT))
 19209	    Xtst(Half(FF))
 19210	    Xtst(Half(P0))
 19211	    Xtst(Half(M0))
 19212	    Xtst(Half(B0))
 19213	    Etst(Half(Z),Z)
 19214	    Etst(Half(M),M)
 19215	    Etst(Half(I[1]),I[0])
 19216	    Etst(Half(I[2]),I[1])
 19217	    Etst(Half(I[3]),I[1])
 19218	    Etst(Half(I[4]),I[2])
 19219	    Etst(Half(I[5]),I[2])
 19220	    Etst(Half(I[6]),I[3])
 19221	    Etst(Half(JN(-2)),M)
 19222	    Etst(Half(JN(-3)),JN(-2))
 19223	    Etst(Half(JN(-4)),JN(-2))
 19224	    Etst(Half(JN(-5)),JN(-3))
 19225	    Etst(Half(JN(-6)),JN(-3))
 19226	    Etst(Half(JN(-7)),JN(-4))
 19227	
 19228	    Etst(Base,I[10])
 19229	
 19230	    Etst(Digitend,I[0])
 19231	
 19232	    Xtst(Plus(TT,TT))
 19233	    Xtst(Plus(TT,FF))
 19234	    Xtst(Plus(TT,I0))
 19235	    Xtst(Plus(TT,P0))
 19236	    Xtst(Plus(TT,M0))
 19237	    Xtst(Plus(TT,B0))
 19238	    Xtst(Plus(FF,TT))
 19239	    Xtst(Plus(FF,FF))
 19240	    Xtst(Plus(FF,I0))
 19241	    Xtst(Plus(FF,P0))
 19242	    Xtst(Plus(FF,M0))
 19243	    Xtst(Plus(FF,B0))
 19244	    Xtst(Plus(I0,TT))
 19245	    Xtst(Plus(I0,FF))
 19246	    Xtst(Plus(I0,P0))
 19247	    Xtst(Plus(I0,M0))
 19248	    Xtst(Plus(I0,B0))
 19249	    Xtst(Plus(P0,TT))
 19250	    Xtst(Plus(P0,FF))
 19251	    Xtst(Plus(P0,I0))
 19252	    Xtst(Plus(P0,P0))
 19253	    Xtst(Plus(P0,M0))
 19254	    Xtst(Plus(P0,B0))
 19255	    Xtst(Plus(M0,TT))
 19256	    Xtst(Plus(M0,FF))
 19257	    Xtst(Plus(M0,I0))
 19258	    Xtst(Plus(M0,P0))
 19259	    Xtst(Plus(M0,M0))
 19260	    Xtst(Plus(M0,B0))
 19261	    Xtst(Plus(B0,TT))
 19262	    Xtst(Plus(B0,FF))
 19263	    Xtst(Plus(B0,I0))
 19264	    Xtst(Plus(B0,P0))
 19265	    Xtst(Plus(B0,M0))
 19266	    Xtst(Plus(B0,B0))
 19267	    Etst(Plus(JN(-3),JN(-3)),JN(-6))
 19268	    Etst(Plus(JN(-3),JN(-2)),JN(-5))
 19269	    Etst(Plus(JN(-3),JN(-1)),JN(-4))
 19270	    Etst(Plus(JN(-3),JN( 0)),JN(-3))
 19271	    Etst(Plus(JN(-3),JN( 1)),JN(-2))
 19272	    Etst(Plus(JN(-3),JN( 2)),JN(-1))
 19273	    Etst(Plus(JN(-2),JN(-3)),JN(-5))
 19274	    Etst(Plus(JN(-2),JN(-2)),JN(-4))
 19275	    Etst(Plus(JN(-2),JN(-1)),JN(-3))
 19276	    Etst(Plus(JN(-2),JN( 0)),JN(-2))
 19277	    Etst(Plus(JN(-2),JN( 1)),JN(-1))
 19278	    Etst(Plus(JN(-2),JN( 2)),JN( 0))
 19279	    Etst(Plus(JN(-1),JN(-3)),JN(-4))
 19280	    Etst(Plus(JN(-1),JN(-2)),JN(-3))
 19281	    Etst(Plus(JN(-1),JN(-1)),JN(-2))
 19282	    Etst(Plus(JN(-1),JN( 0)),JN(-1))
 19283	    Etst(Plus(JN(-1),JN( 1)),JN( 0))
 19284	    Etst(Plus(JN(-1),JN( 2)),JN( 1))
 19285	    Etst(Plus(JN( 0),JN(-3)),JN(-3))
 19286	    Etst(Plus(JN( 0),JN(-2)),JN(-2))
 19287	    Etst(Plus(JN( 0),JN(-1)),JN(-1))
 19288	    Etst(Plus(JN( 0),JN( 0)),JN( 0))
 19289	    Etst(Plus(JN( 0),JN( 1)),JN( 1))
 19290	    Etst(Plus(JN( 0),JN( 2)),JN( 2))
 19291	    Etst(Plus(JN( 1),JN(-3)),JN(-2))
 19292	    Etst(Plus(JN( 1),JN(-2)),JN(-1))
 19293	    Etst(Plus(JN( 1),JN(-1)),JN( 0))
 19294	    Etst(Plus(JN( 1),JN( 0)),JN( 1))
 19295	    Etst(Plus(JN( 1),JN( 1)),JN( 2))
 19296	    Etst(Plus(JN( 1),JN( 2)),JN( 3))
 19297	    Etst(Plus(JN( 2),JN(-3)),JN(-1))
 19298	    Etst(Plus(JN( 2),JN(-2)),JN( 0))
 19299	    Etst(Plus(JN( 2),JN(-1)),JN( 1))
 19300	    Etst(Plus(JN( 2),JN( 0)),JN( 2))
 19301	    Etst(Plus(JN( 2),JN( 1)),JN( 3))
 19302	    Etst(Plus(JN( 2),JN( 2)),JN( 4))
 19303	    Etst(Plus(K2( 0, 0),K2( 0, 0)),K2( 0, 0))
 19304	    Etst(Plus(K2( 0, 0),K2( 0,-1)),K2( 0,-1))
 19305	    Etst(Plus(K2( 0, 0),K2(-1, 0)),K2(-1, 0))
 19306	    Etst(Plus(K2( 0, 0),K2(-1,-1)),K2(-1,-1))
 19307	    Etst(Plus(K2( 0,-1),K2( 0, 0)),K2( 0,-1))
 19308	    Etst(Plus(K2( 0,-1),K2( 0,-1)),K2( 0,-2))
 19309	    Etst(Plus(K2( 0,-1),K2(-1, 0)),K2(-1,-1))
 19310	    Etst(Plus(K2( 0,-1),K2(-1,-1)),K2(-1,-2))
 19311	    Etst(Plus(K2(-1, 0),K2( 0, 0)),K2(-1, 0))
 19312	    Etst(Plus(K2(-1, 0),K2( 0,-1)),K2(-1,-1))
 19313	    Etst(Plus(K2(-1, 0),K2(-1, 0)),K2(-2, 1))
 19314	    Etst(Plus(K2(-1, 0),K2(-1,-1)),K2(-2, 0))
 19315	    Etst(Plus(K2(-1,-1),K2( 0, 0)),K2(-1,-1))
 19316	    Etst(Plus(K2(-1,-1),K2( 0,-1)),K2(-1,-2))
 19317	    Etst(Plus(K2(-1,-1),K2(-1, 0)),K2(-2, 0))
 19318	    Etst(Plus(K2(-1,-1),K2(-1,-1)),K2(-2,-1))
 19319	
 19320	    Etst(Plus(N(-1000000000000),N(-1000000000000)),N(-2000000000000))
 19321	    Etst(Plus(N(-1000000000000),N(   -1000000000)),N(-1001000000000))
 19322	    Etst(Plus(N(-1000000000000),N(      -1000000)),N(-1000001000000))
 19323	    Etst(Plus(N(-1000000000000),N(         -1000)),N(-1000000001000))
 19324	    Etst(Plus(N(-1000000000000),N(          -100)),N(-1000000000100))
 19325	    Etst(Plus(N(-1000000000000),N(           -10)),N(-1000000000010))
 19326	    Etst(Plus(N(-1000000000000),N(            -1)),N(-1000000000001))
 19327	    Etst(Plus(N(-1000000000000),N(             0)),N(-1000000000000))
 19328	    Etst(Plus(N(-1000000000000),N(             1)),N(-0999999999999))
 19329	    Etst(Plus(N(-1000000000000),N(            10)),N(-0999999999990))
 19330	    Etst(Plus(N(-1000000000000),N(           100)),N(-0999999999900))
 19331	    Etst(Plus(N(-1000000000000),N(          1000)),N(-0999999999000))
 19332	    Etst(Plus(N(-1000000000000),N(       1000000)),N(-0999999000000))
 19333	    Etst(Plus(N(-1000000000000),N(    1000000000)),N(-0999000000000))
 19334	    Etst(Plus(N(-1000000000000),N( 1000000000000)),N(-0000000000000))
 19335	
 19336	    Etst(Plus(N(   -1000000000),N(-1000000000000)),N(-1001000000000))
 19337	    Etst(Plus(N(   -1000000000),N(   -1000000000)),N(-0002000000000))
 19338	    Etst(Plus(N(   -1000000000),N(      -1000000)),N(-0001001000000))
 19339	    Etst(Plus(N(   -1000000000),N(         -1000)),N(-0001000001000))
 19340	    Etst(Plus(N(   -1000000000),N(          -100)),N(-0001000000100))
 19341	    Etst(Plus(N(   -1000000000),N(           -10)),N(-0001000000010))
 19342	    Etst(Plus(N(   -1000000000),N(            -1)),N(-0001000000001))
 19343	    Etst(Plus(N(   -1000000000),N(             0)),N(-0001000000000))
 19344	    Etst(Plus(N(   -1000000000),N(             1)),N(-0000999999999))
 19345	    Etst(Plus(N(   -1000000000),N(            10)),N(-0000999999990))
 19346	    Etst(Plus(N(   -1000000000),N(           100)),N(-0000999999900))
 19347	    Etst(Plus(N(   -1000000000),N(          1000)),N(-0000999999000))
 19348	    Etst(Plus(N(   -1000000000),N(       1000000)),N(-0000999000000))
 19349	    Etst(Plus(N(   -1000000000),N(    1000000000)),N(-0000000000000))
 19350	    Etst(Plus(N(   -1000000000),N( 1000000000000)),N( 0999000000000))
 19351	
 19352	    Etst(Plus(N(      -1000000),N(-1000000000000)),N(-1000001000000))
 19353	    Etst(Plus(N(      -1000000),N(   -1000000000)),N(-0001001000000))
 19354	    Etst(Plus(N(      -1000000),N(      -1000000)),N(-0000002000000))
 19355	    Etst(Plus(N(      -1000000),N(         -1000)),N(-0000001001000))
 19356	    Etst(Plus(N(      -1000000),N(          -100)),N(-0000001000100))
 19357	    Etst(Plus(N(      -1000000),N(           -10)),N(-0000001000010))
 19358	    Etst(Plus(N(      -1000000),N(            -1)),N(-0000001000001))
 19359	    Etst(Plus(N(      -1000000),N(             0)),N(-0000001000000))
 19360	    Etst(Plus(N(      -1000000),N(             1)),N(-0000000999999))
 19361	    Etst(Plus(N(      -1000000),N(            10)),N(-0000000999990))
 19362	    Etst(Plus(N(      -1000000),N(           100)),N(-0000000999900))
 19363	    Etst(Plus(N(      -1000000),N(          1000)),N(-0000000999000))
 19364	    Etst(Plus(N(      -1000000),N(       1000000)),N(-0000000000000))
 19365	    Etst(Plus(N(      -1000000),N(    1000000000)),N( 0000999000000))
 19366	    Etst(Plus(N(      -1000000),N( 1000000000000)),N( 0999999000000))
 19367	
 19368	    Etst(Plus(N(         -1000),N(-1000000000000)),N(-1000000001000))
 19369	    Etst(Plus(N(         -1000),N(   -1000000000)),N(-0001000001000))
 19370	    Etst(Plus(N(         -1000),N(      -1000000)),N(-0000001001000))
 19371	    Etst(Plus(N(         -1000),N(         -1000)),N(-0000000002000))
 19372	    Etst(Plus(N(         -1000),N(          -100)),N(-0000000001100))
 19373	    Etst(Plus(N(         -1000),N(           -10)),N(-0000000001010))
 19374	    Etst(Plus(N(         -1000),N(            -1)),N(-0000000001001))
 19375	    Etst(Plus(N(         -1000),N(             0)),N(-0000000001000))
 19376	    Etst(Plus(N(         -1000),N(             1)),N(-0000000000999))
 19377	    Etst(Plus(N(         -1000),N(            10)),N(-0000000000990))
 19378	    Etst(Plus(N(         -1000),N(           100)),N(-0000000000900))
 19379	    Etst(Plus(N(         -1000),N(          1000)),N( 0000000000000))
 19380	    Etst(Plus(N(         -1000),N(       1000000)),N( 0000000999000))
 19381	    Etst(Plus(N(         -1000),N(    1000000000)),N( 0000999999000))
 19382	    Etst(Plus(N(         -1000),N( 1000000000000)),N( 0999999999000))
 19383	
 19384	    Etst(Plus(N(          -100),N(-1000000000000)),N(-1000000000100))
 19385	    Etst(Plus(N(          -100),N(   -1000000000)),N(-0001000000100))
 19386	    Etst(Plus(N(          -100),N(      -1000000)),N(-0000001000100))
 19387	    Etst(Plus(N(          -100),N(         -1000)),N(-0000000001100))
 19388	    Etst(Plus(N(          -100),N(          -100)),N(-0000000000200))
 19389	    Etst(Plus(N(          -100),N(           -10)),N(-0000000000110))
 19390	    Etst(Plus(N(          -100),N(            -1)),N(-0000000000101))
 19391	    Etst(Plus(N(          -100),N(             0)),N(-0000000000100))
 19392	    Etst(Plus(N(          -100),N(             1)),N(-0000000000099))
 19393	    Etst(Plus(N(          -100),N(            10)),N(-0000000000090))
 19394	    Etst(Plus(N(          -100),N(           100)),N( 0000000000000))
 19395	    Etst(Plus(N(          -100),N(          1000)),N( 0000000000900))
 19396	    Etst(Plus(N(          -100),N(       1000000)),N( 0000000999900))
 19397	    Etst(Plus(N(          -100),N(    1000000000)),N( 0000999999900))
 19398	    Etst(Plus(N(          -100),N( 1000000000000)),N( 0999999999900))
 19399	
 19400	    Etst(Plus(N(           -10),N(-1000000000000)),N(-1000000000010))
 19401	    Etst(Plus(N(           -10),N(   -1000000000)),N(-0001000000010))
 19402	    Etst(Plus(N(           -10),N(      -1000000)),N(-0000001000010))
 19403	    Etst(Plus(N(           -10),N(         -1000)),N(-0000000001010))
 19404	    Etst(Plus(N(           -10),N(          -100)),N(-0000000000110))
 19405	    Etst(Plus(N(           -10),N(           -10)),N(-0000000000020))
 19406	    Etst(Plus(N(           -10),N(            -1)),N(-0000000000011))
 19407	    Etst(Plus(N(           -10),N(             0)),N(-0000000000010))
 19408	    Etst(Plus(N(           -10),N(             1)),N(-0000000000009))
 19409	    Etst(Plus(N(           -10),N(            10)),N( 0000000000000))
 19410	    Etst(Plus(N(           -10),N(           100)),N( 0000000000090))
 19411	    Etst(Plus(N(           -10),N(          1000)),N( 0000000000990))
 19412	    Etst(Plus(N(           -10),N(       1000000)),N( 0000000999990))
 19413	    Etst(Plus(N(           -10),N(    1000000000)),N( 0000999999990))
 19414	    Etst(Plus(N(           -10),N( 1000000000000)),N( 0999999999990))
 19415	
 19416	    Etst(Plus(N(            -1),N(-1000000000000)),N(-1000000000001))
 19417	    Etst(Plus(N(            -1),N(   -1000000000)),N(-0001000000001))
 19418	    Etst(Plus(N(            -1),N(      -1000000)),N(-0000001000001))
 19419	    Etst(Plus(N(            -1),N(         -1000)),N(-0000000001001))
 19420	    Etst(Plus(N(            -1),N(          -100)),N(-0000000000101))
 19421	    Etst(Plus(N(            -1),N(           -10)),N(-0000000000011))
 19422	    Etst(Plus(N(            -1),N(            -1)),N(-0000000000002))
 19423	    Etst(Plus(N(            -1),N(             0)),N(-0000000000001))
 19424	    Etst(Plus(N(            -1),N(             1)),N( 0000000000000))
 19425	    Etst(Plus(N(            -1),N(            10)),N( 0000000000009))
 19426	    Etst(Plus(N(            -1),N(           100)),N( 0000000000099))
 19427	    Etst(Plus(N(            -1),N(          1000)),N( 0000000000999))
 19428	    Etst(Plus(N(            -1),N(       1000000)),N( 0000000999999))
 19429	    Etst(Plus(N(            -1),N(    1000000000)),N( 0000999999999))
 19430	    Etst(Plus(N(            -1),N( 1000000000000)),N( 0999999999999))
 19431	
 19432	    Etst(Plus(N(             0),N(-1000000000000)),N(-1000000000000))
 19433	    Etst(Plus(N(             0),N(   -1000000000)),N(-0001000000000))
 19434	    Etst(Plus(N(             0),N(      -1000000)),N(-0000001000000))
 19435	    Etst(Plus(N(             0),N(         -1000)),N(-0000000001000))
 19436	    Etst(Plus(N(             0),N(          -100)),N(-0000000000100))
 19437	    Etst(Plus(N(             0),N(           -10)),N(-0000000000010))
 19438	    Etst(Plus(N(             0),N(            -1)),N(-0000000000001))
 19439	    Etst(Plus(N(             0),N(             0)),N( 0000000000000))
 19440	    Etst(Plus(N(             0),N(             1)),N( 0000000000001))
 19441	    Etst(Plus(N(             0),N(            10)),N( 0000000000010))
 19442	    Etst(Plus(N(             0),N(           100)),N( 0000000000100))
 19443	    Etst(Plus(N(             0),N(          1000)),N( 0000000001000))
 19444	    Etst(Plus(N(             0),N(       1000000)),N( 0000001000000))
 19445	    Etst(Plus(N(             0),N(    1000000000)),N( 0001000000000))
 19446	    Etst(Plus(N(             0),N( 1000000000000)),N( 1000000000000))
 19447	
 19448	    Etst(Plus(N( 1000000000000),N( 1000000000000)),N( 2000000000000))
 19449	    Etst(Plus(N( 1000000000000),N(    1000000000)),N( 1001000000000))
 19450	    Etst(Plus(N( 1000000000000),N(       1000000)),N( 1000001000000))
 19451	    Etst(Plus(N( 1000000000000),N(          1000)),N( 1000000001000))
 19452	    Etst(Plus(N( 1000000000000),N(           100)),N( 1000000000100))
 19453	    Etst(Plus(N( 1000000000000),N(            10)),N( 1000000000010))
 19454	    Etst(Plus(N( 1000000000000),N(             1)),N( 1000000000001))
 19455	    Etst(Plus(N( 1000000000000),N(             0)),N( 1000000000000))
 19456	    Etst(Plus(N( 1000000000000),N(            -1)),N( 0999999999999))
 19457	    Etst(Plus(N( 1000000000000),N(           -10)),N( 0999999999990))
 19458	    Etst(Plus(N( 1000000000000),N(          -100)),N( 0999999999900))
 19459	    Etst(Plus(N( 1000000000000),N(         -1000)),N( 0999999999000))
 19460	    Etst(Plus(N( 1000000000000),N(      -1000000)),N( 0999999000000))
 19461	    Etst(Plus(N( 1000000000000),N(   -1000000000)),N( 0999000000000))
 19462	    Etst(Plus(N( 1000000000000),N(-1000000000000)),N( 0000000000000))
 19463	
 19464	    Etst(Plus(N(    1000000000),N( 1000000000000)),N( 1001000000000))
 19465	    Etst(Plus(N(    1000000000),N(    1000000000)),N( 0002000000000))
 19466	    Etst(Plus(N(    1000000000),N(       1000000)),N( 0001001000000))
 19467	    Etst(Plus(N(    1000000000),N(          1000)),N( 0001000001000))
 19468	    Etst(Plus(N(    1000000000),N(           100)),N( 0001000000100))
 19469	    Etst(Plus(N(    1000000000),N(            10)),N( 0001000000010))
 19470	    Etst(Plus(N(    1000000000),N(             1)),N( 0001000000001))
 19471	    Etst(Plus(N(    1000000000),N(             0)),N( 0001000000000))
 19472	    Etst(Plus(N(    1000000000),N(            -1)),N( 0000999999999))
 19473	    Etst(Plus(N(    1000000000),N(           -10)),N( 0000999999990))
 19474	    Etst(Plus(N(    1000000000),N(          -100)),N( 0000999999900))
 19475	    Etst(Plus(N(    1000000000),N(         -1000)),N( 0000999999000))
 19476	    Etst(Plus(N(    1000000000),N(      -1000000)),N( 0000999000000))
 19477	    Etst(Plus(N(    1000000000),N(   -1000000000)),N( 0000000000000))
 19478	    Etst(Plus(N(    1000000000),N(-1000000000000)),N(-0999000000000))
 19479	
 19480	    Etst(Plus(N(       1000000),N( 1000000000000)),N( 1000001000000))
 19481	    Etst(Plus(N(       1000000),N(    1000000000)),N( 0001001000000))
 19482	    Etst(Plus(N(       1000000),N(       1000000)),N( 0000002000000))
 19483	    Etst(Plus(N(       1000000),N(          1000)),N( 0000001001000))
 19484	    Etst(Plus(N(       1000000),N(           100)),N( 0000001000100))
 19485	    Etst(Plus(N(       1000000),N(            10)),N( 0000001000010))
 19486	    Etst(Plus(N(       1000000),N(             1)),N( 0000001000001))
 19487	    Etst(Plus(N(       1000000),N(             0)),N( 0000001000000))
 19488	    Etst(Plus(N(       1000000),N(            -1)),N( 0000000999999))
 19489	    Etst(Plus(N(       1000000),N(           -10)),N( 0000000999990))
 19490	    Etst(Plus(N(       1000000),N(          -100)),N( 0000000999900))
 19491	    Etst(Plus(N(       1000000),N(         -1000)),N( 0000000999000))
 19492	    Etst(Plus(N(       1000000),N(      -1000000)),N( 0000000000000))
 19493	    Etst(Plus(N(       1000000),N(   -1000000000)),N(-0000999000000))
 19494	    Etst(Plus(N(       1000000),N(-1000000000000)),N(-0999999000000))
 19495	
 19496	    Etst(Plus(N(          1000),N( 1000000000000)),N( 1000000001000))
 19497	    Etst(Plus(N(          1000),N(    1000000000)),N( 0001000001000))
 19498	    Etst(Plus(N(          1000),N(       1000000)),N( 0000001001000))
 19499	    Etst(Plus(N(          1000),N(          1000)),N( 0000000002000))
 19500	    Etst(Plus(N(          1000),N(           100)),N( 0000000001100))
 19501	    Etst(Plus(N(          1000),N(            10)),N( 0000000001010))
 19502	    Etst(Plus(N(          1000),N(             1)),N( 0000000001001))
 19503	    Etst(Plus(N(          1000),N(             0)),N( 0000000001000))
 19504	    Etst(Plus(N(          1000),N(            -1)),N( 0000000000999))
 19505	    Etst(Plus(N(          1000),N(           -10)),N( 0000000000990))
 19506	    Etst(Plus(N(          1000),N(          -100)),N( 0000000000900))
 19507	    Etst(Plus(N(          1000),N(         -1000)),N(-0000000000000))
 19508	    Etst(Plus(N(          1000),N(      -1000000)),N(-0000000999000))
 19509	    Etst(Plus(N(          1000),N(   -1000000000)),N(-0000999999000))
 19510	    Etst(Plus(N(          1000),N(-1000000000000)),N(-0999999999000))
 19511	
 19512	    Etst(Plus(N(           100),N( 1000000000000)),N( 1000000000100))
 19513	    Etst(Plus(N(           100),N(    1000000000)),N( 0001000000100))
 19514	    Etst(Plus(N(           100),N(       1000000)),N( 0000001000100))
 19515	    Etst(Plus(N(           100),N(          1000)),N( 0000000001100))
 19516	    Etst(Plus(N(           100),N(           100)),N( 0000000000200))
 19517	    Etst(Plus(N(           100),N(            10)),N( 0000000000110))
 19518	    Etst(Plus(N(           100),N(             1)),N( 0000000000101))
 19519	    Etst(Plus(N(           100),N(             0)),N( 0000000000100))
 19520	    Etst(Plus(N(           100),N(            -1)),N( 0000000000099))
 19521	    Etst(Plus(N(           100),N(           -10)),N( 0000000000090))
 19522	    Etst(Plus(N(           100),N(          -100)),N(-0000000000000))
 19523	    Etst(Plus(N(           100),N(         -1000)),N(-0000000000900))
 19524	    Etst(Plus(N(           100),N(      -1000000)),N(-0000000999900))
 19525	    Etst(Plus(N(           100),N(   -1000000000)),N(-0000999999900))
 19526	    Etst(Plus(N(           100),N(-1000000000000)),N(-0999999999900))
 19527	
 19528	    Etst(Plus(N(            10),N( 1000000000000)),N( 1000000000010))
 19529	    Etst(Plus(N(            10),N(    1000000000)),N( 0001000000010))
 19530	    Etst(Plus(N(            10),N(       1000000)),N( 0000001000010))
 19531	    Etst(Plus(N(            10),N(          1000)),N( 0000000001010))
 19532	    Etst(Plus(N(            10),N(           100)),N( 0000000000110))
 19533	    Etst(Plus(N(            10),N(            10)),N( 0000000000020))
 19534	    Etst(Plus(N(            10),N(             1)),N( 0000000000011))
 19535	    Etst(Plus(N(            10),N(             0)),N( 0000000000010))
 19536	    Etst(Plus(N(            10),N(            -1)),N( 0000000000009))
 19537	    Etst(Plus(N(            10),N(           -10)),N(-0000000000000))
 19538	    Etst(Plus(N(            10),N(          -100)),N(-0000000000090))
 19539	    Etst(Plus(N(            10),N(         -1000)),N(-0000000000990))
 19540	    Etst(Plus(N(            10),N(      -1000000)),N(-0000000999990))
 19541	    Etst(Plus(N(            10),N(   -1000000000)),N(-0000999999990))
 19542	    Etst(Plus(N(            10),N(-1000000000000)),N(-0999999999990))
 19543	
 19544	    Etst(Plus(N(             1),N( 1000000000000)),N( 1000000000001))
 19545	    Etst(Plus(N(             1),N(    1000000000)),N( 0001000000001))
 19546	    Etst(Plus(N(             1),N(       1000000)),N( 0000001000001))
 19547	    Etst(Plus(N(             1),N(          1000)),N( 0000000001001))
 19548	    Etst(Plus(N(             1),N(           100)),N( 0000000000101))
 19549	    Etst(Plus(N(             1),N(            10)),N( 0000000000011))
 19550	    Etst(Plus(N(             1),N(             1)),N( 0000000000002))
 19551	    Etst(Plus(N(             1),N(             0)),N( 0000000000001))
 19552	    Etst(Plus(N(             1),N(            -1)),N(-0000000000000))
 19553	    Etst(Plus(N(             1),N(           -10)),N(-0000000000009))
 19554	    Etst(Plus(N(             1),N(          -100)),N(-0000000000099))
 19555	    Etst(Plus(N(             1),N(         -1000)),N(-0000000000999))
 19556	    Etst(Plus(N(             1),N(      -1000000)),N(-0000000999999))
 19557	    Etst(Plus(N(             1),N(   -1000000000)),N(-0000999999999))
 19558	    Etst(Plus(N(             1),N(-1000000000000)),N(-0999999999999))
 19559	
 19560	    Xtst(Minus(TT,TT))
 19561	    Xtst(Minus(TT,FF))
 19562	    Xtst(Minus(TT,I0))
 19563	    Xtst(Minus(TT,P0))
 19564	    Xtst(Minus(TT,M0))
 19565	    Xtst(Minus(TT,B0))
 19566	    Xtst(Minus(FF,TT))
 19567	    Xtst(Minus(FF,FF))
 19568	    Xtst(Minus(FF,I0))
 19569	    Xtst(Minus(FF,P0))
 19570	    Xtst(Minus(FF,M0))
 19571	    Xtst(Minus(FF,B0))
 19572	    Xtst(Minus(I0,TT))
 19573	    Xtst(Minus(I0,FF))
 19574	    Xtst(Minus(I0,P0))
 19575	    Xtst(Minus(I0,M0))
 19576	    Xtst(Minus(I0,B0))
 19577	    Xtst(Minus(P0,TT))
 19578	    Xtst(Minus(P0,FF))
 19579	    Xtst(Minus(P0,I0))
 19580	    Xtst(Minus(P0,P0))
 19581	    Xtst(Minus(P0,M0))
 19582	    Xtst(Minus(P0,B0))
 19583	    Xtst(Minus(M0,TT))
 19584	    Xtst(Minus(M0,FF))
 19585	    Xtst(Minus(M0,I0))
 19586	    Xtst(Minus(M0,P0))
 19587	    Xtst(Minus(M0,M0))
 19588	    Xtst(Minus(M0,B0))
 19589	    Xtst(Minus(B0,TT))
 19590	    Xtst(Minus(B0,FF))
 19591	    Xtst(Minus(B0,I0))
 19592	    Xtst(Minus(B0,P0))
 19593	    Xtst(Minus(B0,M0))
 19594	    Xtst(Minus(B0,B0))
 19595	    Etst(Minus(JN(-3),JN(-3)),JN( 0))
 19596	    Etst(Minus(JN(-3),JN(-2)),JN(-1))
 19597	    Etst(Minus(JN(-3),JN(-1)),JN(-2))
 19598	    Etst(Minus(JN(-3),JN( 0)),JN(-3))
 19599	    Etst(Minus(JN(-3),JN( 1)),JN(-4))
 19600	    Etst(Minus(JN(-3),JN( 2)),JN(-5))
 19601	    Etst(Minus(JN(-2),JN(-3)),JN( 1))
 19602	    Etst(Minus(JN(-2),JN(-2)),JN( 0))
 19603	    Etst(Minus(JN(-2),JN(-1)),JN(-1))
 19604	    Etst(Minus(JN(-2),JN( 0)),JN(-2))
 19605	    Etst(Minus(JN(-2),JN( 1)),JN(-3))
 19606	    Etst(Minus(JN(-2),JN( 2)),JN(-4))
 19607	    Etst(Minus(JN(-1),JN(-3)),JN( 2))
 19608	    Etst(Minus(JN(-1),JN(-2)),JN( 1))
 19609	    Etst(Minus(JN(-1),JN(-1)),JN( 0))
 19610	    Etst(Minus(JN(-1),JN( 0)),JN(-1))
 19611	    Etst(Minus(JN(-1),JN( 1)),JN(-2))
 19612	    Etst(Minus(JN(-1),JN( 2)),JN(-3))
 19613	    Etst(Minus(JN( 0),JN(-3)),JN( 3))
 19614	    Etst(Minus(JN( 0),JN(-2)),JN( 2))
 19615	    Etst(Minus(JN( 0),JN(-1)),JN( 1))
 19616	    Etst(Minus(JN( 0),JN( 0)),JN( 0))
 19617	    Etst(Minus(JN( 0),JN( 1)),JN(-1))
 19618	    Etst(Minus(JN( 0),JN( 2)),JN(-2))
 19619	    Etst(Minus(JN( 1),JN(-3)),JN( 4))
 19620	    Etst(Minus(JN( 1),JN(-2)),JN( 3))
 19621	    Etst(Minus(JN( 1),JN(-1)),JN( 2))
 19622	    Etst(Minus(JN( 1),JN( 0)),JN( 1))
 19623	    Etst(Minus(JN( 1),JN( 1)),JN( 0))
 19624	    Etst(Minus(JN( 1),JN( 2)),JN(-1))
 19625	    Etst(Minus(JN( 2),JN(-3)),JN( 5))
 19626	    Etst(Minus(JN( 2),JN(-2)),JN( 4))
 19627	    Etst(Minus(JN( 2),JN(-1)),JN( 3))
 19628	    Etst(Minus(JN( 2),JN( 0)),JN( 2))
 19629	    Etst(Minus(JN( 2),JN( 1)),JN( 1))
 19630	    Etst(Minus(JN( 2),JN( 2)),JN( 0))
 19631	    Etst(Minus(K2( 0, 0),K2( 0, 0)),K2( 0, 0))
 19632	    Etst(Minus(K2( 0, 0),K2( 0, 1)),K2( 0,-1))
 19633	    Etst(Minus(K2( 0, 0),K2( 1,-1)),K2(-1, 0))
 19634	    Etst(Minus(K2( 0, 0),K2( 1, 0)),K2(-1,-1))
 19635	    Etst(Minus(K2( 0,-1),K2( 0, 0)),K2( 0,-1))
 19636	    Etst(Minus(K2( 0,-1),K2( 0, 1)),K2( 0,-2))
 19637	    Etst(Minus(K2( 0,-1),K2( 1,-1)),K2(-1,-1))
 19638	    Etst(Minus(K2( 0,-1),K2( 1, 0)),K2(-1,-2))
 19639	    Etst(Minus(K2(-1, 0),K2( 0, 0)),K2(-1, 0))
 19640	    Etst(Minus(K2(-1, 0),K2( 0, 1)),K2(-1,-1))
 19641	    Etst(Minus(K2(-1, 0),K2( 1,-1)),K2(-2, 1))
 19642	    Etst(Minus(K2(-1, 0),K2( 1, 0)),K2(-2, 0))
 19643	    Etst(Minus(K2(-1,-1),K2( 0, 0)),K2(-1,-1))
 19644	    Etst(Minus(K2(-1,-1),K2( 0, 1)),K2(-1,-2))
 19645	    Etst(Minus(K2(-1,-1),K2( 1,-1)),K2(-2, 0))
 19646	    Etst(Minus(K2(-1,-1),K2( 1, 0)),K2(-2,-1))
 19647	
 19648	    Xtst(Uplus(TT))
 19649	    Xtst(Uplus(FF))
 19650	    Xtst(Uplus(P0))
 19651	    Xtst(Uplus(M0))
 19652	    Xtst(Uplus(B0))
 19653	    Etst(Uplus(Z),Z)
 19654	    Etst(Uplus(M),M)
 19655	    Etst(Uplus(I0011),I0011)
 19656	    Etst(Uplus(J1010_0101),J1010_0101)
 19657	
 19658	    Xtst(Dplus(TT))
 19659	    Xtst(Dplus(FF))
 19660	    Xtst(Dplus(P0))
 19661	    Xtst(Dplus(M0))
 19662	    Xtst(Dplus(B0))
 19663	    Etst(Dplus(Z),Z)
 19664	    Etst(Dplus(M),M)
 19665	    Etst(Dplus(I0011),I0011)
 19666	    Etst(Dplus(J1010_0101),J1010_0101)
 19667	
 19668	    Xtst(Uminus(TT))
 19669	    Xtst(Uminus(FF))
 19670	    Xtst(Uminus(P0))
 19671	    Xtst(Uminus(M0))
 19672	    Xtst(Uminus(B0))
 19673	    Etst(Uminus(JN(-2)),JN( 2))
 19674	    Etst(Uminus(JN(-1)),JN( 1))
 19675	    Etst(Uminus(JN( 0)),JN( 0))
 19676	    Etst(Uminus(JN( 1)),JN(-1))
 19677	    Etst(Uminus(JN( 2)),JN(-2))
 19678	    Etst(Uminus(K2(-1,-1)),K2( 1, 0))
 19679	    Etst(Uminus(K2(-1, 0)),K2( 1,-1))
 19680	    Etst(Uminus(K2(-1, 1)),K2( 1,-2))
 19681	    Etst(Uminus(K2( 0,-1)),K2( 0, 1))
 19682	    Etst(Uminus(K2( 0, 0)),K2( 0, 0))
 19683	    Etst(Uminus(K2( 0, 1)),K2( 0,-1))
 19684	    Etst(Uminus(K2( 1,-1)),K2(-1, 0))
 19685	    Etst(Uminus(K2( 1, 0)),K2(-1,-1))
 19686	    Etst(Uminus(K2( 1, 1)),K2(-1,-2))
 19687	
 19688	    Xtst(Dminus(TT))
 19689	    Xtst(Dminus(FF))
 19690	    Xtst(Dminus(P0))
 19691	    Xtst(Dminus(M0))
 19692	    Xtst(Dminus(B0))
 19693	    Etst(Dminus(JN(-2)),JN( 2))
 19694	    Etst(Dminus(JN(-1)),JN( 1))
 19695	    Etst(Dminus(JN( 0)),JN( 0))
 19696	    Etst(Dminus(JN( 1)),JN(-1))
 19697	    Etst(Dminus(JN( 2)),JN(-2))
 19698	    Etst(Dminus(K2(-1,-1)),K2( 1, 0))
 19699	    Etst(Dminus(K2(-1, 0)),K2( 1,-1))
 19700	    Etst(Dminus(K2(-1, 1)),K2( 1,-2))
 19701	    Etst(Dminus(K2( 0,-1)),K2( 0, 1))
 19702	    Etst(Dminus(K2( 0, 0)),K2( 0, 0))
 19703	    Etst(Dminus(K2( 0, 1)),K2( 0,-1))
 19704	    Etst(Dminus(K2( 1,-1)),K2(-1, 0))
 19705	    Etst(Dminus(K2( 1, 0)),K2(-1,-1))
 19706	    Etst(Dminus(K2( 1, 1)),K2(-1,-2))
 19707	
 19708	    Xtst(Intlength(TT))
 19709	    Xtst(Intlength(FF))
 19710	    Xtst(Intlength(P0))
 19711	    Xtst(Intlength(M0))
 19712	    Xtst(Intlength(B0))
 19713	    Etst(Intlength(Z),Z)
 19714	    Etst(Intlength(M),Z)
 19715	    Etst(Intlength(JN(1)),JN(1))
 19716	    Etst(Intlength(JN(2)),JN(2))
 19717	    Etst(Intlength(JN(3)),JN(2))
 19718	    Etst(Intlength(JN(4)),JN(3))
 19719	    Etst(Intlength(JN(5)),JN(3))
 19720	    Etst(Intlength(JN(6)),JN(3))
 19721	    Etst(Intlength(JN(7)),JN(3))
 19722	    Etst(Intlength(JN(8)),JN(4))
 19723	    Etst(Intlength(JN(-2)),JN(1))
 19724	    Etst(Intlength(JN(-3)),JN(2))
 19725	    Etst(Intlength(JN(-4)),JN(2))
 19726	    Etst(Intlength(JN(-5)),JN(3))
 19727	    Etst(Intlength(JN(-6)),JN(3))
 19728	    Etst(Intlength(JN(-7)),JN(3))
 19729	    Etst(Intlength(JN(-8)),JN(3))
 19730	    Etst(Intlength(JN(-9)),JN(4))
 19731	    Etst(Intlength(I0011_1100),JN(4+1*pntsize))
 19732	    Etst(Intlength(J1011_1101),JN(2+1*pntsize))
 19733	    Etst(Intlength(intcons(0,I0011_1100)),JN(4+2*pntsize))
 19734	    Etst(Intlength(intcons(0,J1011_1101)),JN(2+2*pntsize))
 19735	    Etst(Intlength(K2(0,-1)),JN(0+1*pntsize))
 19736	    Etst(Intlength(K2(-1,0)),JN(0+1*pntsize))
 19737	
 19738	    Xtst(Logcount(TT))
 19739	    Xtst(Logcount(FF))
 19740	    Xtst(Logcount(P0))
 19741	    Xtst(Logcount(M0))
 19742	    Xtst(Logcount(B0))
 19743	    Etst(Logcount(Z),Z)
 19744	    Etst(Logcount(M),Z)
 19745	    Etst(Logcount(JN(1)),JN(1))
 19746	    Etst(Logcount(JN(2)),JN(1))
 19747	    Etst(Logcount(JN(3)),JN(2))
 19748	    Etst(Logcount(JN(4)),JN(1))
 19749	    Etst(Logcount(JN(5)),JN(2))
 19750	    Etst(Logcount(JN(6)),JN(2))
 19751	    Etst(Logcount(JN(7)),JN(3))
 19752	    Etst(Logcount(JN(8)),JN(1))
 19753	    Etst(Logcount(JN(-2)),JN(1))
 19754	    Etst(Logcount(JN(-3)),JN(1))
 19755	    Etst(Logcount(JN(-4)),JN(2))
 19756	    Etst(Logcount(JN(-5)),JN(1))
 19757	    Etst(Logcount(JN(-6)),JN(2))
 19758	    Etst(Logcount(JN(-7)),JN(2))
 19759	    Etst(Logcount(JN(-8)),JN(3))
 19760	    Etst(Logcount(JN(-9)),JN(1))
 19761	    Etst(Logcount(I0011_1100),JN(4))
 19762	    Etst(Logcount(J1011_1101),JN(2))
 19763	    Etst(Logcount(intcons(0,I0011_1100)),JN(4))
 19764	    Etst(Logcount(intcons(0,J1011_1101)),JN(2+1*pntsize))
 19765	    Etst(Logcount(K2(0,-1)),JN(0+1*pntsize))
 19766	    Etst(Logcount(K2(-1,0)),JN(0+1*pntsize))
 19767	
 19768	    Xtst(Digit0(TT))
 19769	    Xtst(Digit0(FF))
 19770	    Xtst(Digit0(P0))
 19771	    Xtst(Digit0(M0))
 19772	    Xtst(Digit0(B0))
 19773	    Etst(Digit0(JN( 0)),JN(  0))
 19774	    Etst(Digit0(JN( 1)),JN( 10))
 19775	    Etst(Digit0(JN( 2)),JN( 20))
 19776	    Etst(Digit0(JN( 3)),JN( 30))
 19777	    Etst(Digit0(JN( 4)),JN( 40))
 19778	    Etst(Digit0(JN( 5)),JN( 50))
 19779	    Etst(Digit0(JN( 6)),JN( 60))
 19780	    Etst(Digit0(JN( 7)),JN( 70))
 19781	    Etst(Digit0(JN( 8)),JN( 80))
 19782	    Etst(Digit0(JN( 9)),JN( 90))
 19783	    Etst(Digit0(JN(-1)),JN(-10))
 19784	    Etst(Digit0(JN(-2)),JN(-20))
 19785	    Etst(Digit0(JN(-3)),JN(-30))
 19786	    Etst(Digit0(JN(-4)),JN(-40))
 19787	    Etst(Digit0(JN(-5)),JN(-50))
 19788	    Etst(Digit0(JN(-6)),JN(-60))
 19789	    Etst(Digit0(JN(-7)),JN(-70))
 19790	    Etst(Digit0(JN(-8)),JN(-80))
 19791	    Etst(Digit0(JN(-9)),JN(-90))
 19792	
 19793	    Xtst(Digit1(TT))
 19794	    Xtst(Digit1(FF))
 19795	    Xtst(Digit1(P0))
 19796	    Xtst(Digit1(M0))
 19797	    Xtst(Digit1(B0))
 19798	    Etst(Digit1(JN( 0)),JN(  1))
 19799	    Etst(Digit1(JN( 1)),JN( 11))
 19800	    Etst(Digit1(JN( 2)),JN( 21))
 19801	    Etst(Digit1(JN( 3)),JN( 31))
 19802	    Etst(Digit1(JN( 4)),JN( 41))
 19803	    Etst(Digit1(JN( 5)),JN( 51))
 19804	    Etst(Digit1(JN( 6)),JN( 61))
 19805	    Etst(Digit1(JN( 7)),JN( 71))
 19806	    Etst(Digit1(JN( 8)),JN( 81))
 19807	    Etst(Digit1(JN( 9)),JN( 91))
 19808	    Etst(Digit1(JN(-1)),JN(- 9))
 19809	    Etst(Digit1(JN(-2)),JN(-19))
 19810	    Etst(Digit1(JN(-3)),JN(-29))
 19811	    Etst(Digit1(JN(-4)),JN(-39))
 19812	    Etst(Digit1(JN(-5)),JN(-49))
 19813	    Etst(Digit1(JN(-6)),JN(-59))
 19814	    Etst(Digit1(JN(-7)),JN(-69))
 19815	    Etst(Digit1(JN(-8)),JN(-79))
 19816	    Etst(Digit1(JN(-9)),JN(-89))
 19817	
 19818	    Xtst(Digit2(TT))
 19819	    Xtst(Digit2(FF))
 19820	    Xtst(Digit2(P0))
 19821	    Xtst(Digit2(M0))
 19822	    Xtst(Digit2(B0))
 19823	    Etst(Digit2(JN( 0)),JN(  2))
 19824	    Etst(Digit2(JN( 1)),JN( 12))
 19825	    Etst(Digit2(JN( 2)),JN( 22))
 19826	    Etst(Digit2(JN( 3)),JN( 32))
 19827	    Etst(Digit2(JN( 4)),JN( 42))
 19828	    Etst(Digit2(JN( 5)),JN( 52))
 19829	    Etst(Digit2(JN( 6)),JN( 62))
 19830	    Etst(Digit2(JN( 7)),JN( 72))
 19831	    Etst(Digit2(JN( 8)),JN( 82))
 19832	    Etst(Digit2(JN( 9)),JN( 92))
 19833	    Etst(Digit2(JN(-1)),JN(- 8))
 19834	    Etst(Digit2(JN(-2)),JN(-18))
 19835	    Etst(Digit2(JN(-3)),JN(-28))
 19836	    Etst(Digit2(JN(-4)),JN(-38))
 19837	    Etst(Digit2(JN(-5)),JN(-48))
 19838	    Etst(Digit2(JN(-6)),JN(-58))
 19839	    Etst(Digit2(JN(-7)),JN(-68))
 19840	    Etst(Digit2(JN(-8)),JN(-78))
 19841	    Etst(Digit2(JN(-9)),JN(-88))
 19842	
 19843	    Xtst(Digit3(TT))
 19844	    Xtst(Digit3(FF))
 19845	    Xtst(Digit3(P0))
 19846	    Xtst(Digit3(M0))
 19847	    Xtst(Digit3(B0))
 19848	    Etst(Digit3(JN( 0)),JN(  3))
 19849	    Etst(Digit3(JN( 1)),JN( 13))
 19850	    Etst(Digit3(JN( 2)),JN( 23))
 19851	    Etst(Digit3(JN( 3)),JN( 33))
 19852	    Etst(Digit3(JN( 4)),JN( 43))
 19853	    Etst(Digit3(JN( 5)),JN( 53))
 19854	    Etst(Digit3(JN( 6)),JN( 63))
 19855	    Etst(Digit3(JN( 7)),JN( 73))
 19856	    Etst(Digit3(JN( 8)),JN( 83))
 19857	    Etst(Digit3(JN( 9)),JN( 93))
 19858	    Etst(Digit3(JN(-1)),JN(- 7))
 19859	    Etst(Digit3(JN(-2)),JN(-17))
 19860	    Etst(Digit3(JN(-3)),JN(-27))
 19861	    Etst(Digit3(JN(-4)),JN(-37))
 19862	    Etst(Digit3(JN(-5)),JN(-47))
 19863	    Etst(Digit3(JN(-6)),JN(-57))
 19864	    Etst(Digit3(JN(-7)),JN(-67))
 19865	    Etst(Digit3(JN(-8)),JN(-77))
 19866	    Etst(Digit3(JN(-9)),JN(-87))
 19867	
 19868	    Xtst(Digit4(TT))
 19869	    Xtst(Digit4(FF))
 19870	    Xtst(Digit4(P0))
 19871	    Xtst(Digit4(M0))
 19872	    Xtst(Digit4(B0))
 19873	    Etst(Digit4(JN( 0)),JN(  4))
 19874	    Etst(Digit4(JN( 1)),JN( 14))
 19875	    Etst(Digit4(JN( 2)),JN( 24))
 19876	    Etst(Digit4(JN( 3)),JN( 34))
 19877	    Etst(Digit4(JN( 4)),JN( 44))
 19878	    Etst(Digit4(JN( 5)),JN( 54))
 19879	    Etst(Digit4(JN( 6)),JN( 64))
 19880	    Etst(Digit4(JN( 7)),JN( 74))
 19881	    Etst(Digit4(JN( 8)),JN( 84))
 19882	    Etst(Digit4(JN( 9)),JN( 94))
 19883	    Etst(Digit4(JN(-1)),JN(- 6))
 19884	    Etst(Digit4(JN(-2)),JN(-16))
 19885	    Etst(Digit4(JN(-3)),JN(-26))
 19886	    Etst(Digit4(JN(-4)),JN(-36))
 19887	    Etst(Digit4(JN(-5)),JN(-46))
 19888	    Etst(Digit4(JN(-6)),JN(-56))
 19889	    Etst(Digit4(JN(-7)),JN(-66))
 19890	    Etst(Digit4(JN(-8)),JN(-76))
 19891	    Etst(Digit4(JN(-9)),JN(-86))
 19892	
 19893	    Xtst(Digit5(TT))
 19894	    Xtst(Digit5(FF))
 19895	    Xtst(Digit5(P0))
 19896	    Xtst(Digit5(M0))
 19897	    Xtst(Digit5(B0))
 19898	    Etst(Digit5(JN( 0)),JN(  5))
 19899	    Etst(Digit5(JN( 1)),JN( 15))
 19900	    Etst(Digit5(JN( 2)),JN( 25))
 19901	    Etst(Digit5(JN( 3)),JN( 35))
 19902	    Etst(Digit5(JN( 4)),JN( 45))
 19903	    Etst(Digit5(JN( 5)),JN( 55))
 19904	    Etst(Digit5(JN( 6)),JN( 65))
 19905	    Etst(Digit5(JN( 7)),JN( 75))
 19906	    Etst(Digit5(JN( 8)),JN( 85))
 19907	    Etst(Digit5(JN( 9)),JN( 95))
 19908	    Etst(Digit5(JN(-1)),JN(- 5))
 19909	    Etst(Digit5(JN(-2)),JN(-15))
 19910	    Etst(Digit5(JN(-3)),JN(-25))
 19911	    Etst(Digit5(JN(-4)),JN(-35))
 19912	    Etst(Digit5(JN(-5)),JN(-45))
 19913	    Etst(Digit5(JN(-6)),JN(-55))
 19914	    Etst(Digit5(JN(-7)),JN(-65))
 19915	    Etst(Digit5(JN(-8)),JN(-75))
 19916	    Etst(Digit5(JN(-9)),JN(-85))
 19917	
 19918	    Xtst(Digit6(TT))
 19919	    Xtst(Digit6(FF))
 19920	    Xtst(Digit6(P0))
 19921	    Xtst(Digit6(M0))
 19922	    Xtst(Digit6(B0))
 19923	    Etst(Digit6(JN( 0)),JN(  6))
 19924	    Etst(Digit6(JN( 1)),JN( 16))
 19925	    Etst(Digit6(JN( 2)),JN( 26))
 19926	    Etst(Digit6(JN( 3)),JN( 36))
 19927	    Etst(Digit6(JN( 4)),JN( 46))
 19928	    Etst(Digit6(JN( 5)),JN( 56))
 19929	    Etst(Digit6(JN( 6)),JN( 66))
 19930	    Etst(Digit6(JN( 7)),JN( 76))
 19931	    Etst(Digit6(JN( 8)),JN( 86))
 19932	    Etst(Digit6(JN( 9)),JN( 96))
 19933	    Etst(Digit6(JN(-1)),JN(- 4))
 19934	    Etst(Digit6(JN(-2)),JN(-14))
 19935	    Etst(Digit6(JN(-3)),JN(-24))
 19936	    Etst(Digit6(JN(-4)),JN(-34))
 19937	    Etst(Digit6(JN(-5)),JN(-44))
 19938	    Etst(Digit6(JN(-6)),JN(-54))
 19939	    Etst(Digit6(JN(-7)),JN(-64))
 19940	    Etst(Digit6(JN(-8)),JN(-74))
 19941	    Etst(Digit6(JN(-9)),JN(-84))
 19942	
 19943	    Xtst(Digit7(TT))
 19944	    Xtst(Digit7(FF))
 19945	    Xtst(Digit7(P0))
 19946	    Xtst(Digit7(M0))
 19947	    Xtst(Digit7(B0))
 19948	    Etst(Digit7(JN( 0)),JN(  7))
 19949	    Etst(Digit7(JN( 1)),JN( 17))
 19950	    Etst(Digit7(JN( 2)),JN( 27))
 19951	    Etst(Digit7(JN( 3)),JN( 37))
 19952	    Etst(Digit7(JN( 4)),JN( 47))
 19953	    Etst(Digit7(JN( 5)),JN( 57))
 19954	    Etst(Digit7(JN( 6)),JN( 67))
 19955	    Etst(Digit7(JN( 7)),JN( 77))
 19956	    Etst(Digit7(JN( 8)),JN( 87))
 19957	    Etst(Digit7(JN( 9)),JN( 97))
 19958	    Etst(Digit7(JN(-1)),JN(- 3))
 19959	    Etst(Digit7(JN(-2)),JN(-13))
 19960	    Etst(Digit7(JN(-3)),JN(-23))
 19961	    Etst(Digit7(JN(-4)),JN(-33))
 19962	    Etst(Digit7(JN(-5)),JN(-43))
 19963	    Etst(Digit7(JN(-6)),JN(-53))
 19964	    Etst(Digit7(JN(-7)),JN(-63))
 19965	    Etst(Digit7(JN(-8)),JN(-73))
 19966	    Etst(Digit7(JN(-9)),JN(-83))
 19967	
 19968	    Xtst(Digit8(TT))
 19969	    Xtst(Digit8(FF))
 19970	    Xtst(Digit8(P0))
 19971	    Xtst(Digit8(M0))
 19972	    Xtst(Digit8(B0))
 19973	    Etst(Digit8(JN( 0)),JN(  8))
 19974	    Etst(Digit8(JN( 1)),JN( 18))
 19975	    Etst(Digit8(JN( 2)),JN( 28))
 19976	    Etst(Digit8(JN( 3)),JN( 38))
 19977	    Etst(Digit8(JN( 4)),JN( 48))
 19978	    Etst(Digit8(JN( 5)),JN( 58))
 19979	    Etst(Digit8(JN( 6)),JN( 68))
 19980	    Etst(Digit8(JN( 7)),JN( 78))
 19981	    Etst(Digit8(JN( 8)),JN( 88))
 19982	    Etst(Digit8(JN( 9)),JN( 98))
 19983	    Etst(Digit8(JN(-1)),JN(- 2))
 19984	    Etst(Digit8(JN(-2)),JN(-12))
 19985	    Etst(Digit8(JN(-3)),JN(-22))
 19986	    Etst(Digit8(JN(-4)),JN(-32))
 19987	    Etst(Digit8(JN(-5)),JN(-42))
 19988	    Etst(Digit8(JN(-6)),JN(-52))
 19989	    Etst(Digit8(JN(-7)),JN(-62))
 19990	    Etst(Digit8(JN(-8)),JN(-72))
 19991	    Etst(Digit8(JN(-9)),JN(-82))
 19992	
 19993	    Xtst(Digit9(TT))
 19994	    Xtst(Digit9(FF))
 19995	    Xtst(Digit9(P0))
 19996	    Xtst(Digit9(M0))
 19997	    Xtst(Digit9(B0))
 19998	    Etst(Digit9(JN( 0)),JN(  9))
 19999	    Etst(Digit9(JN( 1)),JN( 19))
 20000	    Etst(Digit9(JN( 2)),JN( 29))
 20001	    Etst(Digit9(JN( 3)),JN( 39))
 20002	    Etst(Digit9(JN( 4)),JN( 49))
 20003	    Etst(Digit9(JN( 5)),JN( 59))
 20004	    Etst(Digit9(JN( 6)),JN( 69))
 20005	    Etst(Digit9(JN( 7)),JN( 79))
 20006	    Etst(Digit9(JN( 8)),JN( 89))
 20007	    Etst(Digit9(JN( 9)),JN( 99))
 20008	    Etst(Digit9(JN(-1)),JN(- 1))
 20009	    Etst(Digit9(JN(-2)),JN(-11))
 20010	    Etst(Digit9(JN(-3)),JN(-21))
 20011	    Etst(Digit9(JN(-4)),JN(-31))
 20012	    Etst(Digit9(JN(-5)),JN(-41))
 20013	    Etst(Digit9(JN(-6)),JN(-51))
 20014	    Etst(Digit9(JN(-7)),JN(-61))
 20015	    Etst(Digit9(JN(-8)),JN(-71))
 20016	    Etst(Digit9(JN(-9)),JN(-81))
 20017	
 20018	    Xtst(Times(TT,TT))
 20019	    Xtst(Times(TT,FF))
 20020	    Xtst(Times(TT,I0))
 20021	    Xtst(Times(TT,P0))
 20022	    Xtst(Times(TT,M0))
 20023	    Xtst(Times(TT,B0))
 20024	    Xtst(Times(FF,TT))
 20025	    Xtst(Times(FF,FF))
 20026	    Xtst(Times(FF,I0))
 20027	    Xtst(Times(FF,P0))
 20028	    Xtst(Times(FF,M0))
 20029	    Xtst(Times(FF,B0))
 20030	    Xtst(Times(I0,TT))
 20031	    Xtst(Times(I0,FF))
 20032	    Xtst(Times(I0,P0))
 20033	    Xtst(Times(I0,M0))
 20034	    Xtst(Times(I0,B0))
 20035	    Xtst(Times(P0,TT))
 20036	    Xtst(Times(P0,FF))
 20037	    Xtst(Times(P0,I0))
 20038	    Xtst(Times(P0,P0))
 20039	    Xtst(Times(P0,M0))
 20040	    Xtst(Times(P0,B0))
 20041	    Xtst(Times(M0,TT))
 20042	    Xtst(Times(M0,FF))
 20043	    Xtst(Times(M0,I0))
 20044	    Xtst(Times(M0,P0))
 20045	    Xtst(Times(M0,M0))
 20046	    Xtst(Times(M0,B0))
 20047	    Xtst(Times(B0,TT))
 20048	    Xtst(Times(B0,FF))
 20049	    Xtst(Times(B0,I0))
 20050	    Xtst(Times(B0,P0))
 20051	    Xtst(Times(B0,M0))
 20052	    Xtst(Times(B0,B0))
 20053	    Etst(Times(JN(-3),JN(-3)),JN( 9))
 20054	    Etst(Times(JN(-3),JN(-2)),JN( 6))
 20055	    Etst(Times(JN(-3),JN(-1)),JN( 3))
 20056	    Etst(Times(JN(-3),JN( 0)),JN( 0))
 20057	    Etst(Times(JN(-3),JN( 1)),JN(-3))
 20058	    Etst(Times(JN(-3),JN( 2)),JN(-6))
 20059	    Etst(Times(JN(-2),JN(-3)),JN( 6))
 20060	    Etst(Times(JN(-2),JN(-2)),JN( 4))
 20061	    Etst(Times(JN(-2),JN(-1)),JN( 2))
 20062	    Etst(Times(JN(-2),JN( 0)),JN( 0))
 20063	    Etst(Times(JN(-2),JN( 1)),JN(-2))
 20064	    Etst(Times(JN(-2),JN( 2)),JN(-4))
 20065	    Etst(Times(JN(-1),JN(-3)),JN( 3))
 20066	    Etst(Times(JN(-1),JN(-2)),JN( 2))
 20067	    Etst(Times(JN(-1),JN(-1)),JN( 1))
 20068	    Etst(Times(JN(-1),JN( 0)),JN( 0))
 20069	    Etst(Times(JN(-1),JN( 1)),JN(-1))
 20070	    Etst(Times(JN(-1),JN( 2)),JN(-2))
 20071	    Etst(Times(JN( 0),JN(-3)),JN( 0))
 20072	    Etst(Times(JN( 0),JN(-2)),JN( 0))
 20073	    Etst(Times(JN( 0),JN(-1)),JN( 0))
 20074	    Etst(Times(JN( 0),JN( 0)),JN( 0))
 20075	    Etst(Times(JN( 0),JN( 1)),JN( 0))
 20076	    Etst(Times(JN( 0),JN( 2)),JN( 0))
 20077	    Etst(Times(JN( 1),JN(-3)),JN(-3))
 20078	    Etst(Times(JN( 1),JN(-2)),JN(-2))
 20079	    Etst(Times(JN( 1),JN(-1)),JN(-1))
 20080	    Etst(Times(JN( 1),JN( 0)),JN( 0))
 20081	    Etst(Times(JN( 1),JN( 1)),JN( 1))
 20082	    Etst(Times(JN( 1),JN( 2)),JN( 2))
 20083	    Etst(Times(JN( 2),JN(-3)),JN(-6))
 20084	    Etst(Times(JN( 2),JN(-2)),JN(-4))
 20085	    Etst(Times(JN( 2),JN(-1)),JN(-2))
 20086	    Etst(Times(JN( 2),JN( 0)),JN( 0))
 20087	    Etst(Times(JN( 2),JN( 1)),JN( 2))
 20088	    Etst(Times(JN( 2),JN( 2)),JN( 4))
 20089	
 20090	    Etst(Times(N(-1000000000000),N(-1000000000000)),N( 1000000000000000000000000))
 20091	    Etst(Times(N(-1000000000000),N(   -1000000000)),N(    1000000000000000000000))
 20092	    Etst(Times(N(-1000000000000),N(      -1000000)),N(       1000000000000000000))
 20093	    Etst(Times(N(-1000000000000),N(         -1000)),N(          1000000000000000))
 20094	    Etst(Times(N(-1000000000000),N(          -100)),N(           100000000000000))
 20095	    Etst(Times(N(-1000000000000),N(           -10)),N(            10000000000000))
 20096	    Etst(Times(N(-1000000000000),N(            -1)),N(             1000000000000))
 20097	    Etst(Times(N(-1000000000000),N(             0)),N(                         0))
 20098	    Etst(Times(N(-1000000000000),N(             1)),N(            -1000000000000))
 20099	    Etst(Times(N(-1000000000000),N(            10)),N(           -10000000000000))
 20100	    Etst(Times(N(-1000000000000),N(           100)),N(          -100000000000000))
 20101	    Etst(Times(N(-1000000000000),N(          1000)),N(         -1000000000000000))
 20102	    Etst(Times(N(-1000000000000),N(       1000000)),N(      -1000000000000000000))
 20103	    Etst(Times(N(-1000000000000),N(    1000000000)),N(   -1000000000000000000000))
 20104	    Etst(Times(N(-1000000000000),N( 1000000000000)),N(-1000000000000000000000000))
 20105	
 20106	    Etst(Times(N(-1000000000),N(-1000000000000)),N( 1000000000000000000000))
 20107	    Etst(Times(N(-1000000000),N(   -1000000000)),N(    1000000000000000000))
 20108	    Etst(Times(N(-1000000000),N(      -1000000)),N(       1000000000000000))
 20109	    Etst(Times(N(-1000000000),N(         -1000)),N(          1000000000000))
 20110	    Etst(Times(N(-1000000000),N(          -100)),N(           100000000000))
 20111	    Etst(Times(N(-1000000000),N(           -10)),N(            10000000000))
 20112	    Etst(Times(N(-1000000000),N(            -1)),N(             1000000000))
 20113	    Etst(Times(N(-1000000000),N(             0)),N(                      0))
 20114	    Etst(Times(N(-1000000000),N(             1)),N(            -1000000000))
 20115	    Etst(Times(N(-1000000000),N(            10)),N(           -10000000000))
 20116	    Etst(Times(N(-1000000000),N(           100)),N(          -100000000000))
 20117	    Etst(Times(N(-1000000000),N(          1000)),N(         -1000000000000))
 20118	    Etst(Times(N(-1000000000),N(       1000000)),N(      -1000000000000000))
 20119	    Etst(Times(N(-1000000000),N(    1000000000)),N(   -1000000000000000000))
 20120	    Etst(Times(N(-1000000000),N( 1000000000000)),N(-1000000000000000000000))
 20121	
 20122	    Etst(Times(N(-1000000),N(-1000000000000)),N( 1000000000000000000))
 20123	    Etst(Times(N(-1000000),N(   -1000000000)),N(    1000000000000000))
 20124	    Etst(Times(N(-1000000),N(      -1000000)),N(       1000000000000))
 20125	    Etst(Times(N(-1000000),N(         -1000)),N(          1000000000))
 20126	    Etst(Times(N(-1000000),N(          -100)),N(           100000000))
 20127	    Etst(Times(N(-1000000),N(           -10)),N(            10000000))
 20128	    Etst(Times(N(-1000000),N(            -1)),N(             1000000))
 20129	    Etst(Times(N(-1000000),N(             0)),N(                   0))
 20130	    Etst(Times(N(-1000000),N(             1)),N(            -1000000))
 20131	    Etst(Times(N(-1000000),N(            10)),N(           -10000000))
 20132	    Etst(Times(N(-1000000),N(           100)),N(          -100000000))
 20133	    Etst(Times(N(-1000000),N(          1000)),N(         -1000000000))
 20134	    Etst(Times(N(-1000000),N(       1000000)),N(      -1000000000000))
 20135	    Etst(Times(N(-1000000),N(    1000000000)),N(   -1000000000000000))
 20136	    Etst(Times(N(-1000000),N( 1000000000000)),N(-1000000000000000000))
 20137	
 20138	    Etst(Times(N(-1000),N(-1000000000000)),N( 1000000000000000))
 20139	    Etst(Times(N(-1000),N(   -1000000000)),N(    1000000000000))
 20140	    Etst(Times(N(-1000),N(      -1000000)),N(       1000000000))
 20141	    Etst(Times(N(-1000),N(         -1000)),N(          1000000))
 20142	    Etst(Times(N(-1000),N(          -100)),N(           100000))
 20143	    Etst(Times(N(-1000),N(           -10)),N(            10000))
 20144	    Etst(Times(N(-1000),N(            -1)),N(             1000))
 20145	    Etst(Times(N(-1000),N(             0)),N(                0))
 20146	    Etst(Times(N(-1000),N(             1)),N(            -1000))
 20147	    Etst(Times(N(-1000),N(            10)),N(           -10000))
 20148	    Etst(Times(N(-1000),N(           100)),N(          -100000))
 20149	    Etst(Times(N(-1000),N(          1000)),N(         -1000000))
 20150	    Etst(Times(N(-1000),N(       1000000)),N(      -1000000000))
 20151	    Etst(Times(N(-1000),N(    1000000000)),N(   -1000000000000))
 20152	    Etst(Times(N(-1000),N( 1000000000000)),N(-1000000000000000))
 20153	
 20154	    Etst(Times(N(-100),N(-1000000000000)),N( 100000000000000))
 20155	    Etst(Times(N(-100),N(   -1000000000)),N(    100000000000))
 20156	    Etst(Times(N(-100),N(      -1000000)),N(       100000000))
 20157	    Etst(Times(N(-100),N(         -1000)),N(          100000))
 20158	    Etst(Times(N(-100),N(          -100)),N(           10000))
 20159	    Etst(Times(N(-100),N(           -10)),N(            1000))
 20160	    Etst(Times(N(-100),N(            -1)),N(             100))
 20161	    Etst(Times(N(-100),N(             0)),N(               0))
 20162	    Etst(Times(N(-100),N(             1)),N(            -100))
 20163	    Etst(Times(N(-100),N(            10)),N(           -1000))
 20164	    Etst(Times(N(-100),N(           100)),N(          -10000))
 20165	    Etst(Times(N(-100),N(          1000)),N(         -100000))
 20166	    Etst(Times(N(-100),N(       1000000)),N(      -100000000))
 20167	    Etst(Times(N(-100),N(    1000000000)),N(   -100000000000))
 20168	    Etst(Times(N(-100),N( 1000000000000)),N(-100000000000000))
 20169	
 20170	    Etst(Times(N(-10),N(-1000000000000)),N( 10000000000000))
 20171	    Etst(Times(N(-10),N(   -1000000000)),N(    10000000000))
 20172	    Etst(Times(N(-10),N(      -1000000)),N(       10000000))
 20173	    Etst(Times(N(-10),N(         -1000)),N(          10000))
 20174	    Etst(Times(N(-10),N(          -100)),N(           1000))
 20175	    Etst(Times(N(-10),N(           -10)),N(            100))
 20176	    Etst(Times(N(-10),N(            -1)),N(             10))
 20177	    Etst(Times(N(-10),N(             0)),N(              0))
 20178	    Etst(Times(N(-10),N(             1)),N(            -10))
 20179	    Etst(Times(N(-10),N(            10)),N(           -100))
 20180	    Etst(Times(N(-10),N(           100)),N(          -1000))
 20181	    Etst(Times(N(-10),N(          1000)),N(         -10000))
 20182	    Etst(Times(N(-10),N(       1000000)),N(      -10000000))
 20183	    Etst(Times(N(-10),N(    1000000000)),N(   -10000000000))
 20184	    Etst(Times(N(-10),N( 1000000000000)),N(-10000000000000))
 20185	
 20186	    Etst(Times(N(-1),N(-1000000000000)),N( 1000000000000))
 20187	    Etst(Times(N(-1),N(   -1000000000)),N(    1000000000))
 20188	    Etst(Times(N(-1),N(      -1000000)),N(       1000000))
 20189	    Etst(Times(N(-1),N(         -1000)),N(          1000))
 20190	    Etst(Times(N(-1),N(          -100)),N(           100))
 20191	    Etst(Times(N(-1),N(           -10)),N(            10))
 20192	    Etst(Times(N(-1),N(            -1)),N(             1))
 20193	    Etst(Times(N(-1),N(             0)),N(             0))
 20194	    Etst(Times(N(-1),N(             1)),N(            -1))
 20195	    Etst(Times(N(-1),N(            10)),N(           -10))
 20196	    Etst(Times(N(-1),N(           100)),N(          -100))
 20197	    Etst(Times(N(-1),N(          1000)),N(         -1000))
 20198	    Etst(Times(N(-1),N(       1000000)),N(      -1000000))
 20199	    Etst(Times(N(-1),N(    1000000000)),N(   -1000000000))
 20200	    Etst(Times(N(-1),N( 1000000000000)),N(-1000000000000))
 20201	
 20202	    Etst(Times(N(0),N(-1000000000000)),N(0))
 20203	    Etst(Times(N(0),N(   -1000000000)),N(0))
 20204	    Etst(Times(N(0),N(      -1000000)),N(0))
 20205	    Etst(Times(N(0),N(         -1000)),N(0))
 20206	    Etst(Times(N(0),N(          -100)),N(0))
 20207	    Etst(Times(N(0),N(           -10)),N(0))
 20208	    Etst(Times(N(0),N(            -1)),N(0))
 20209	    Etst(Times(N(0),N(             0)),N(0))
 20210	    Etst(Times(N(0),N(             1)),N(0))
 20211	    Etst(Times(N(0),N(            10)),N(0))
 20212	    Etst(Times(N(0),N(           100)),N(0))
 20213	    Etst(Times(N(0),N(          1000)),N(0))
 20214	    Etst(Times(N(0),N(       1000000)),N(0))
 20215	    Etst(Times(N(0),N(    1000000000)),N(0))
 20216	    Etst(Times(N(0),N( 1000000000000)),N(0))
 20217	
 20218	    Etst(Times(N(1000000000000),N( 1000000000000)),N( 1000000000000000000000000))
 20219	    Etst(Times(N(1000000000000),N(    1000000000)),N(    1000000000000000000000))
 20220	    Etst(Times(N(1000000000000),N(       1000000)),N(       1000000000000000000))
 20221	    Etst(Times(N(1000000000000),N(          1000)),N(          1000000000000000))
 20222	    Etst(Times(N(1000000000000),N(           100)),N(           100000000000000))
 20223	    Etst(Times(N(1000000000000),N(            10)),N(            10000000000000))
 20224	    Etst(Times(N(1000000000000),N(             1)),N(             1000000000000))
 20225	    Etst(Times(N(1000000000000),N(             0)),N(                         0))
 20226	    Etst(Times(N(1000000000000),N(            -1)),N(            -1000000000000))
 20227	    Etst(Times(N(1000000000000),N(           -10)),N(           -10000000000000))
 20228	    Etst(Times(N(1000000000000),N(          -100)),N(          -100000000000000))
 20229	    Etst(Times(N(1000000000000),N(         -1000)),N(         -1000000000000000))
 20230	    Etst(Times(N(1000000000000),N(      -1000000)),N(      -1000000000000000000))
 20231	    Etst(Times(N(1000000000000),N(   -1000000000)),N(   -1000000000000000000000))
 20232	    Etst(Times(N(1000000000000),N(-1000000000000)),N(-1000000000000000000000000))
 20233	
 20234	    Etst(Times(N(1000000000),N( 1000000000000)),N( 1000000000000000000000))
 20235	    Etst(Times(N(1000000000),N(    1000000000)),N(    1000000000000000000))
 20236	    Etst(Times(N(1000000000),N(       1000000)),N(       1000000000000000))
 20237	    Etst(Times(N(1000000000),N(          1000)),N(          1000000000000))
 20238	    Etst(Times(N(1000000000),N(           100)),N(           100000000000))
 20239	    Etst(Times(N(1000000000),N(            10)),N(            10000000000))
 20240	    Etst(Times(N(1000000000),N(             1)),N(             1000000000))
 20241	    Etst(Times(N(1000000000),N(             0)),N(                      0))
 20242	    Etst(Times(N(1000000000),N(            -1)),N(            -1000000000))
 20243	    Etst(Times(N(1000000000),N(           -10)),N(           -10000000000))
 20244	    Etst(Times(N(1000000000),N(          -100)),N(          -100000000000))
 20245	    Etst(Times(N(1000000000),N(         -1000)),N(         -1000000000000))
 20246	    Etst(Times(N(1000000000),N(      -1000000)),N(      -1000000000000000))
 20247	    Etst(Times(N(1000000000),N(   -1000000000)),N(   -1000000000000000000))
 20248	    Etst(Times(N(1000000000),N(-1000000000000)),N(-1000000000000000000000))
 20249	
 20250	    Etst(Times(N(1000000),N( 1000000000000)),N( 1000000000000000000))
 20251	    Etst(Times(N(1000000),N(    1000000000)),N(    1000000000000000))
 20252	    Etst(Times(N(1000000),N(       1000000)),N(       1000000000000))
 20253	    Etst(Times(N(1000000),N(          1000)),N(          1000000000))
 20254	    Etst(Times(N(1000000),N(           100)),N(           100000000))
 20255	    Etst(Times(N(1000000),N(            10)),N(            10000000))
 20256	    Etst(Times(N(1000000),N(             1)),N(             1000000))
 20257	    Etst(Times(N(1000000),N(             0)),N(                   0))
 20258	    Etst(Times(N(1000000),N(            -1)),N(            -1000000))
 20259	    Etst(Times(N(1000000),N(           -10)),N(           -10000000))
 20260	    Etst(Times(N(1000000),N(          -100)),N(          -100000000))
 20261	    Etst(Times(N(1000000),N(         -1000)),N(         -1000000000))
 20262	    Etst(Times(N(1000000),N(      -1000000)),N(      -1000000000000))
 20263	    Etst(Times(N(1000000),N(   -1000000000)),N(   -1000000000000000))
 20264	    Etst(Times(N(1000000),N(-1000000000000)),N(-1000000000000000000))
 20265	
 20266	    Etst(Times(N(1000),N( 1000000000000)),N( 1000000000000000))
 20267	    Etst(Times(N(1000),N(    1000000000)),N(    1000000000000))
 20268	    Etst(Times(N(1000),N(       1000000)),N(       1000000000))
 20269	    Etst(Times(N(1000),N(          1000)),N(          1000000))
 20270	    Etst(Times(N(1000),N(           100)),N(           100000))
 20271	    Etst(Times(N(1000),N(            10)),N(            10000))
 20272	    Etst(Times(N(1000),N(             1)),N(             1000))
 20273	    Etst(Times(N(1000),N(             0)),N(                0))
 20274	    Etst(Times(N(1000),N(            -1)),N(            -1000))
 20275	    Etst(Times(N(1000),N(           -10)),N(           -10000))
 20276	    Etst(Times(N(1000),N(          -100)),N(          -100000))
 20277	    Etst(Times(N(1000),N(         -1000)),N(         -1000000))
 20278	    Etst(Times(N(1000),N(      -1000000)),N(      -1000000000))
 20279	    Etst(Times(N(1000),N(   -1000000000)),N(   -1000000000000))
 20280	    Etst(Times(N(1000),N(-1000000000000)),N(-1000000000000000))
 20281	
 20282	    Etst(Times(N(100),N( 1000000000000)),N( 100000000000000))
 20283	    Etst(Times(N(100),N(    1000000000)),N(    100000000000))
 20284	    Etst(Times(N(100),N(       1000000)),N(       100000000))
 20285	    Etst(Times(N(100),N(          1000)),N(          100000))
 20286	    Etst(Times(N(100),N(           100)),N(           10000))
 20287	    Etst(Times(N(100),N(            10)),N(            1000))
 20288	    Etst(Times(N(100),N(             1)),N(             100))
 20289	    Etst(Times(N(100),N(             0)),N(               0))
 20290	    Etst(Times(N(100),N(            -1)),N(            -100))
 20291	    Etst(Times(N(100),N(           -10)),N(           -1000))
 20292	    Etst(Times(N(100),N(          -100)),N(          -10000))
 20293	    Etst(Times(N(100),N(         -1000)),N(         -100000))
 20294	    Etst(Times(N(100),N(      -1000000)),N(      -100000000))
 20295	    Etst(Times(N(100),N(   -1000000000)),N(   -100000000000))
 20296	    Etst(Times(N(100),N(-1000000000000)),N(-100000000000000))
 20297	
 20298	    Etst(Times(N(10),N( 1000000000000)),N( 10000000000000))
 20299	    Etst(Times(N(10),N(    1000000000)),N(    10000000000))
 20300	    Etst(Times(N(10),N(       1000000)),N(       10000000))
 20301	    Etst(Times(N(10),N(          1000)),N(          10000))
 20302	    Etst(Times(N(10),N(           100)),N(           1000))
 20303	    Etst(Times(N(10),N(            10)),N(            100))
 20304	    Etst(Times(N(10),N(             1)),N(             10))
 20305	    Etst(Times(N(10),N(             0)),N(              0))
 20306	    Etst(Times(N(10),N(            -1)),N(            -10))
 20307	    Etst(Times(N(10),N(           -10)),N(           -100))
 20308	    Etst(Times(N(10),N(          -100)),N(          -1000))
 20309	    Etst(Times(N(10),N(         -1000)),N(         -10000))
 20310	    Etst(Times(N(10),N(      -1000000)),N(      -10000000))
 20311	    Etst(Times(N(10),N(   -1000000000)),N(   -10000000000))
 20312	    Etst(Times(N(10),N(-1000000000000)),N(-10000000000000))
 20313	
 20314	    Etst(Times(N(1),N( 1000000000000)),N( 1000000000000))
 20315	    Etst(Times(N(1),N(    1000000000)),N(    1000000000))
 20316	    Etst(Times(N(1),N(       1000000)),N(       1000000))
 20317	    Etst(Times(N(1),N(          1000)),N(          1000))
 20318	    Etst(Times(N(1),N(           100)),N(           100))
 20319	    Etst(Times(N(1),N(            10)),N(            10))
 20320	    Etst(Times(N(1),N(             1)),N(             1))
 20321	    Etst(Times(N(1),N(             0)),N(             0))
 20322	    Etst(Times(N(1),N(            -1)),N(            -1))
 20323	    Etst(Times(N(1),N(           -10)),N(           -10))
 20324	    Etst(Times(N(1),N(          -100)),N(          -100))
 20325	    Etst(Times(N(1),N(         -1000)),N(         -1000))
 20326	    Etst(Times(N(1),N(      -1000000)),N(      -1000000))
 20327	    Etst(Times(N(1),N(   -1000000000)),N(   -1000000000))
 20328	    Etst(Times(N(1),N(-1000000000000)),N(-1000000000000))
 20329	
 20330	    Xtst(Logbitp(TT,TT))
 20331	    Xtst(Logbitp(TT,FF))
 20332	    Xtst(Logbitp(TT,I0))
 20333	    Xtst(Logbitp(TT,P0))
 20334	    Xtst(Logbitp(TT,M0))
 20335	    Xtst(Logbitp(TT,B0))
 20336	    Xtst(Logbitp(FF,TT))
 20337	    Xtst(Logbitp(FF,FF))
 20338	    Xtst(Logbitp(FF,I0))
 20339	    Xtst(Logbitp(FF,P0))
 20340	    Xtst(Logbitp(FF,M0))
 20341	    Xtst(Logbitp(FF,B0))
 20342	    Xtst(Logbitp(I0,TT))
 20343	    Xtst(Logbitp(I0,FF))
 20344	    Xtst(Logbitp(I0,P0))
 20345	    Xtst(Logbitp(I0,M0))
 20346	    Xtst(Logbitp(I0,B0))
 20347	    Xtst(Logbitp(P0,TT))
 20348	    Xtst(Logbitp(P0,FF))
 20349	    Xtst(Logbitp(P0,I0))
 20350	    Xtst(Logbitp(P0,P0))
 20351	    Xtst(Logbitp(P0,M0))
 20352	    Xtst(Logbitp(P0,B0))
 20353	    Xtst(Logbitp(M0,TT))
 20354	    Xtst(Logbitp(M0,FF))
 20355	    Xtst(Logbitp(M0,I0))
 20356	    Xtst(Logbitp(M0,P0))
 20357	    Xtst(Logbitp(M0,M0))
 20358	    Xtst(Logbitp(M0,B0))
 20359	    Xtst(Logbitp(B0,TT))
 20360	    Xtst(Logbitp(B0,FF))
 20361	    Xtst(Logbitp(B0,I0))
 20362	    Xtst(Logbitp(B0,P0))
 20363	    Xtst(Logbitp(B0,M0))
 20364	    Xtst(Logbitp(B0,B0))
 20365	    Xtst(Logbitp(JN(-3),JN(-3)))
 20366	    Xtst(Logbitp(JN(-3),JN(-2)))
 20367	    Xtst(Logbitp(JN(-3),JN(-1)))
 20368	    Xtst(Logbitp(JN(-3),JN( 0)))
 20369	    Xtst(Logbitp(JN(-3),JN( 1)))
 20370	    Xtst(Logbitp(JN(-3),JN( 2)))
 20371	    Xtst(Logbitp(JN(-2),JN(-3)))
 20372	    Xtst(Logbitp(JN(-2),JN(-2)))
 20373	    Xtst(Logbitp(JN(-2),JN(-1)))
 20374	    Xtst(Logbitp(JN(-2),JN( 0)))
 20375	    Xtst(Logbitp(JN(-2),JN( 1)))
 20376	    Xtst(Logbitp(JN(-2),JN( 2)))
 20377	    Xtst(Logbitp(JN(-1),JN(-3)))
 20378	    Xtst(Logbitp(JN(-1),JN(-2)))
 20379	    Xtst(Logbitp(JN(-1),JN(-1)))
 20380	    Xtst(Logbitp(JN(-1),JN( 0)))
 20381	    Xtst(Logbitp(JN(-1),JN( 1)))
 20382	    Xtst(Logbitp(JN(-1),JN( 2)))
 20383	    Ttst(Logbitp(JN( 0),JN(-3)))
 20384	    Ftst(Logbitp(JN( 0),JN(-2)))
 20385	    Ttst(Logbitp(JN( 0),JN(-1)))
 20386	    Ftst(Logbitp(JN( 0),JN( 0)))
 20387	    Ttst(Logbitp(JN( 0),JN( 1)))
 20388	    Ftst(Logbitp(JN( 0),JN( 2)))
 20389	    Ftst(Logbitp(JN( 1),JN(-3)))
 20390	    Ttst(Logbitp(JN( 1),JN(-2)))
 20391	    Ttst(Logbitp(JN( 1),JN(-1)))
 20392	    Ftst(Logbitp(JN( 1),JN( 0)))
 20393	    Ftst(Logbitp(JN( 1),JN( 1)))
 20394	    Ttst(Logbitp(JN( 1),JN( 2)))
 20395	    Ttst(Logbitp(JN( 2),JN(-3)))
 20396	    Ttst(Logbitp(JN( 2),JN(-2)))
 20397	    Ttst(Logbitp(JN( 2),JN(-1)))
 20398	    Ftst(Logbitp(JN( 2),JN( 0)))
 20399	    Ftst(Logbitp(JN( 2),JN( 1)))
 20400	    Ftst(Logbitp(JN( 2),JN( 2)))
 20401	    Ttst(Logbitp(JN( 0+0*pntsize),I0011_1100))
 20402	    Ttst(Logbitp(JN( 1+0*pntsize),I0011_1100))
 20403	    Ftst(Logbitp(JN( 2+0*pntsize),I0011_1100))
 20404	    Ftst(Logbitp(JN( 3+0*pntsize),I0011_1100))
 20405	    Ftst(Logbitp(JN( 4+0*pntsize),I0011_1100))
 20406	    Ftst(Logbitp(JN( 0+1*pntsize),I0011_1100))
 20407	    Ftst(Logbitp(JN( 1+1*pntsize),I0011_1100))
 20408	    Ttst(Logbitp(JN( 2+1*pntsize),I0011_1100))
 20409	    Ttst(Logbitp(JN( 3+1*pntsize),I0011_1100))
 20410	    Ftst(Logbitp(JN( 4+1*pntsize),I0011_1100))
 20411	    Ftst(Logbitp(JN( 0+2*pntsize),I0011_1100))
 20412	    Ftst(Logbitp(JN( 1+2*pntsize),I0011_1100))
 20413	    Ftst(Logbitp(JN( 2+2*pntsize),I0011_1100))
 20414	    Ftst(Logbitp(JN( 3+2*pntsize),I0011_1100))
 20415	    Ftst(Logbitp(JN( 4+2*pntsize),I0011_1100))
 20416	    Ttst(Logbitp(JN( 0+0*pntsize),J1011_1101))
 20417	    Ttst(Logbitp(JN( 1+0*pntsize),J1011_1101))
 20418	    Ftst(Logbitp(JN( 2+0*pntsize),J1011_1101))
 20419	    Ttst(Logbitp(JN( 3+0*pntsize),J1011_1101))
 20420	    Ttst(Logbitp(JN( 4+0*pntsize),J1011_1101))
 20421	    Ttst(Logbitp(JN( 0+1*pntsize),J1011_1101))
 20422	    Ftst(Logbitp(JN( 1+1*pntsize),J1011_1101))
 20423	    Ttst(Logbitp(JN( 2+1*pntsize),J1011_1101))
 20424	    Ttst(Logbitp(JN( 3+1*pntsize),J1011_1101))
 20425	    Ttst(Logbitp(JN( 4+1*pntsize),J1011_1101))
 20426	    Ttst(Logbitp(JN( 0+2*pntsize),J1011_1101))
 20427	    Ttst(Logbitp(JN( 1+2*pntsize),J1011_1101))
 20428	    Ttst(Logbitp(JN( 2+2*pntsize),J1011_1101))
 20429	    Ttst(Logbitp(JN( 3+2*pntsize),J1011_1101))
 20430	    Ttst(Logbitp(JN( 4+2*pntsize),J1011_1101))
 20431	
 20432	    Xtst(Ash(TT,TT))
 20433	    Xtst(Ash(TT,FF))
 20434	    Xtst(Ash(TT,I0))
 20435	    Xtst(Ash(TT,P0))
 20436	    Xtst(Ash(TT,M0))
 20437	    Xtst(Ash(TT,B0))
 20438	    Xtst(Ash(FF,TT))
 20439	    Xtst(Ash(FF,FF))
 20440	    Xtst(Ash(FF,I0))
 20441	    Xtst(Ash(FF,P0))
 20442	    Xtst(Ash(FF,M0))
 20443	    Xtst(Ash(FF,B0))
 20444	    Xtst(Ash(I0,TT))
 20445	    Xtst(Ash(I0,FF))
 20446	    Xtst(Ash(I0,P0))
 20447	    Xtst(Ash(I0,M0))
 20448	    Xtst(Ash(I0,B0))
 20449	    Xtst(Ash(P0,TT))
 20450	    Xtst(Ash(P0,FF))
 20451	    Xtst(Ash(P0,I0))
 20452	    Xtst(Ash(P0,P0))
 20453	    Xtst(Ash(P0,M0))
 20454	    Xtst(Ash(P0,B0))
 20455	    Xtst(Ash(M0,TT))
 20456	    Xtst(Ash(M0,FF))
 20457	    Xtst(Ash(M0,I0))
 20458	    Xtst(Ash(M0,P0))
 20459	    Xtst(Ash(M0,M0))
 20460	    Xtst(Ash(M0,B0))
 20461	    Xtst(Ash(B0,TT))
 20462	    Xtst(Ash(B0,FF))
 20463	    Xtst(Ash(B0,I0))
 20464	    Xtst(Ash(B0,P0))
 20465	    Xtst(Ash(B0,M0))
 20466	    Xtst(Ash(B0,B0))
 20467	
 20468	    Etst(Ash(N(-1000000000000),N(-65)),N(-1))
 20469	    Etst(Ash(N(   -1000000000),N(-65)),N(-1))
 20470	    Etst(Ash(N(      -1000000),N(-65)),N(-1))
 20471	    Etst(Ash(N(         -1000),N(-65)),N(-1))
 20472	    Etst(Ash(N(          -100),N(-65)),N(-1))
 20473	    Etst(Ash(N(           -10),N(-65)),N(-1))
 20474	    Etst(Ash(N(            -1),N(-65)),N(-1))
 20475	    Etst(Ash(N(             0),N(-65)),N( 0))
 20476	    Etst(Ash(N(             1),N(-65)),N( 0))
 20477	    Etst(Ash(N(            10),N(-65)),N( 0))
 20478	    Etst(Ash(N(           100),N(-65)),N( 0))
 20479	    Etst(Ash(N(          1000),N(-65)),N( 0))
 20480	    Etst(Ash(N(       1000000),N(-65)),N( 0))
 20481	    Etst(Ash(N(    1000000000),N(-65)),N( 0))
 20482	    Etst(Ash(N( 1000000000000),N(-65)),N( 0))
 20483	
 20484	    Etst(Ash(N(-1000000000000),N(-64)),N(-1))
 20485	    Etst(Ash(N(   -1000000000),N(-64)),N(-1))
 20486	    Etst(Ash(N(      -1000000),N(-64)),N(-1))
 20487	    Etst(Ash(N(         -1000),N(-64)),N(-1))
 20488	    Etst(Ash(N(          -100),N(-64)),N(-1))
 20489	    Etst(Ash(N(           -10),N(-64)),N(-1))
 20490	    Etst(Ash(N(            -1),N(-64)),N(-1))
 20491	    Etst(Ash(N(             0),N(-64)),N( 0))
 20492	    Etst(Ash(N(             1),N(-64)),N( 0))
 20493	    Etst(Ash(N(            10),N(-64)),N( 0))
 20494	    Etst(Ash(N(           100),N(-64)),N( 0))
 20495	    Etst(Ash(N(          1000),N(-64)),N( 0))
 20496	    Etst(Ash(N(       1000000),N(-64)),N( 0))
 20497	    Etst(Ash(N(    1000000000),N(-64)),N( 0))
 20498	    Etst(Ash(N( 1000000000000),N(-64)),N( 0))
 20499	
 20500	    Etst(Ash(N(-1000000000000),N(-63)),N(-1))
 20501	    Etst(Ash(N(   -1000000000),N(-63)),N(-1))
 20502	    Etst(Ash(N(      -1000000),N(-63)),N(-1))
 20503	    Etst(Ash(N(         -1000),N(-63)),N(-1))
 20504	    Etst(Ash(N(          -100),N(-63)),N(-1))
 20505	    Etst(Ash(N(           -10),N(-63)),N(-1))
 20506	    Etst(Ash(N(            -1),N(-63)),N(-1))
 20507	    Etst(Ash(N(             0),N(-63)),N( 0))
 20508	    Etst(Ash(N(             1),N(-63)),N( 0))
 20509	    Etst(Ash(N(            10),N(-63)),N( 0))
 20510	    Etst(Ash(N(           100),N(-63)),N( 0))
 20511	    Etst(Ash(N(          1000),N(-63)),N( 0))
 20512	    Etst(Ash(N(       1000000),N(-63)),N( 0))
 20513	    Etst(Ash(N(    1000000000),N(-63)),N( 0))
 20514	    Etst(Ash(N( 1000000000000),N(-63)),N( 0))
 20515	
 20516	    Etst(Ash(N(-1000000000000),N( -4)),N(-62500000000))
 20517	    Etst(Ash(N(   -1000000000),N( -4)),N(   -62500000))
 20518	    Etst(Ash(N(      -1000000),N( -4)),N(      -62500))
 20519	    Etst(Ash(N(         -1000),N( -4)),N(         -63))
 20520	    Etst(Ash(N(          -100),N( -4)),N(          -7))
 20521	    Etst(Ash(N(           -10),N( -4)),N(          -1))
 20522	    Etst(Ash(N(            -1),N( -4)),N(          -1))
 20523	    Etst(Ash(N(             0),N( -4)),N(           0))
 20524	    Etst(Ash(N(             1),N( -4)),N(           0))
 20525	    Etst(Ash(N(            10),N( -4)),N(           0))
 20526	    Etst(Ash(N(           100),N( -4)),N(           6))
 20527	    Etst(Ash(N(          1000),N( -4)),N(          62))
 20528	    Etst(Ash(N(       1000000),N( -4)),N(       62500))
 20529	    Etst(Ash(N(    1000000000),N( -4)),N(    62500000))
 20530	    Etst(Ash(N( 1000000000000),N( -4)),N( 62500000000))
 20531	
 20532	    Etst(Ash(N(-1000000000000),N( -3)),N(-125000000000))
 20533	    Etst(Ash(N(   -1000000000),N( -3)),N(   -125000000))
 20534	    Etst(Ash(N(      -1000000),N( -3)),N(      -125000))
 20535	    Etst(Ash(N(         -1000),N( -3)),N(         -125))
 20536	    Etst(Ash(N(          -100),N( -3)),N(          -13))
 20537	    Etst(Ash(N(           -10),N( -3)),N(           -2))
 20538	    Etst(Ash(N(            -1),N( -3)),N(           -1))
 20539	    Etst(Ash(N(             0),N( -3)),N(            0))
 20540	    Etst(Ash(N(             1),N( -3)),N(            0))
 20541	    Etst(Ash(N(            10),N( -3)),N(            1))
 20542	    Etst(Ash(N(           100),N( -3)),N(           12))
 20543	    Etst(Ash(N(          1000),N( -3)),N(          125))
 20544	    Etst(Ash(N(       1000000),N( -3)),N(       125000))
 20545	    Etst(Ash(N(    1000000000),N( -3)),N(    125000000))
 20546	    Etst(Ash(N( 1000000000000),N( -3)),N( 125000000000))
 20547	
 20548	    Etst(Ash(N(-1000000000000),N( -2)),N(-250000000000))
 20549	    Etst(Ash(N(   -1000000000),N( -2)),N(   -250000000))
 20550	    Etst(Ash(N(      -1000000),N( -2)),N(      -250000))
 20551	    Etst(Ash(N(         -1000),N( -2)),N(         -250))
 20552	    Etst(Ash(N(          -100),N( -2)),N(          -25))
 20553	    Etst(Ash(N(           -10),N( -2)),N(           -3))
 20554	    Etst(Ash(N(            -1),N( -2)),N(           -1))
 20555	    Etst(Ash(N(             0),N( -2)),N(            0))
 20556	    Etst(Ash(N(             1),N( -2)),N(            0))
 20557	    Etst(Ash(N(            10),N( -2)),N(            2))
 20558	    Etst(Ash(N(           100),N( -2)),N(           25))
 20559	    Etst(Ash(N(          1000),N( -2)),N(          250))
 20560	    Etst(Ash(N(       1000000),N( -2)),N(       250000))
 20561	    Etst(Ash(N(    1000000000),N( -2)),N(    250000000))
 20562	    Etst(Ash(N( 1000000000000),N( -2)),N( 250000000000))
 20563	
 20564	    Etst(Ash(N(-1000000000000),N( -1)),N(-500000000000))
 20565	    Etst(Ash(N(   -1000000000),N( -1)),N(   -500000000))
 20566	    Etst(Ash(N(      -1000000),N( -1)),N(      -500000))
 20567	    Etst(Ash(N(         -1000),N( -1)),N(         -500))
 20568	    Etst(Ash(N(          -100),N( -1)),N(          -50))
 20569	    Etst(Ash(N(           -10),N( -1)),N(           -5))
 20570	    Etst(Ash(N(            -1),N( -1)),N(           -1))
 20571	    Etst(Ash(N(             0),N( -1)),N(            0))
 20572	    Etst(Ash(N(             1),N( -1)),N(            0))
 20573	    Etst(Ash(N(            10),N( -1)),N(            5))
 20574	    Etst(Ash(N(           100),N( -1)),N(           50))
 20575	    Etst(Ash(N(          1000),N( -1)),N(          500))
 20576	    Etst(Ash(N(       1000000),N( -1)),N(       500000))
 20577	    Etst(Ash(N(    1000000000),N( -1)),N(    500000000))
 20578	    Etst(Ash(N( 1000000000000),N( -1)),N( 500000000000))
 20579	
 20580	    Etst(Ash(N(-1000000000000),N(  0)),N(-1000000000000))
 20581	    Etst(Ash(N(   -1000000000),N(  0)),N(   -1000000000))
 20582	    Etst(Ash(N(      -1000000),N(  0)),N(      -1000000))
 20583	    Etst(Ash(N(         -1000),N(  0)),N(         -1000))
 20584	    Etst(Ash(N(          -100),N(  0)),N(          -100))
 20585	    Etst(Ash(N(           -10),N(  0)),N(           -10))
 20586	    Etst(Ash(N(            -1),N(  0)),N(            -1))
 20587	    Etst(Ash(N(             0),N(  0)),N(             0))
 20588	    Etst(Ash(N(             1),N(  0)),N(             1))
 20589	    Etst(Ash(N(            10),N(  0)),N(            10))
 20590	    Etst(Ash(N(           100),N(  0)),N(           100))
 20591	    Etst(Ash(N(          1000),N(  0)),N(          1000))
 20592	    Etst(Ash(N(       1000000),N(  0)),N(       1000000))
 20593	    Etst(Ash(N(    1000000000),N(  0)),N(    1000000000))
 20594	    Etst(Ash(N( 1000000000000),N(  0)),N( 1000000000000))
 20595	
 20596	    Etst(Ash(N( 1000000000000),N( 65)),N( 36893488147419103232000000000000))
 20597	    Etst(Ash(N(    1000000000),N( 65)),N(    36893488147419103232000000000))
 20598	    Etst(Ash(N(       1000000),N( 65)),N(       36893488147419103232000000))
 20599	    Etst(Ash(N(          1000),N( 65)),N(          36893488147419103232000))
 20600	    Etst(Ash(N(           100),N( 65)),N(           3689348814741910323200))
 20601	    Etst(Ash(N(            10),N( 65)),N(            368934881474191032320))
 20602	    Etst(Ash(N(             1),N( 65)),N(             36893488147419103232))
 20603	    Etst(Ash(N(             0),N( 65)),N(                                0))
 20604	    Etst(Ash(N(            -1),N( 65)),N(            -36893488147419103232))
 20605	    Etst(Ash(N(           -10),N( 65)),N(           -368934881474191032320))
 20606	    Etst(Ash(N(          -100),N( 65)),N(          -3689348814741910323200))
 20607	    Etst(Ash(N(         -1000),N( 65)),N(         -36893488147419103232000))
 20608	    Etst(Ash(N(      -1000000),N( 65)),N(      -36893488147419103232000000))
 20609	    Etst(Ash(N(   -1000000000),N( 65)),N(   -36893488147419103232000000000))
 20610	    Etst(Ash(N(-1000000000000),N( 65)),N(-36893488147419103232000000000000))
 20611	
 20612	    Etst(Ash(N( 1000000000000),N( 64)),N( 18446744073709551616000000000000))
 20613	    Etst(Ash(N(    1000000000),N( 64)),N(    18446744073709551616000000000))
 20614	    Etst(Ash(N(       1000000),N( 64)),N(       18446744073709551616000000))
 20615	    Etst(Ash(N(          1000),N( 64)),N(          18446744073709551616000))
 20616	    Etst(Ash(N(           100),N( 64)),N(           1844674407370955161600))
 20617	    Etst(Ash(N(            10),N( 64)),N(            184467440737095516160))
 20618	    Etst(Ash(N(             1),N( 64)),N(             18446744073709551616))
 20619	    Etst(Ash(N(             0),N( 64)),N(                                0))
 20620	    Etst(Ash(N(            -1),N( 64)),N(            -18446744073709551616))
 20621	    Etst(Ash(N(           -10),N( 64)),N(           -184467440737095516160))
 20622	    Etst(Ash(N(          -100),N( 64)),N(          -1844674407370955161600))
 20623	    Etst(Ash(N(         -1000),N( 64)),N(         -18446744073709551616000))
 20624	    Etst(Ash(N(      -1000000),N( 64)),N(      -18446744073709551616000000))
 20625	    Etst(Ash(N(   -1000000000),N( 64)),N(   -18446744073709551616000000000))
 20626	    Etst(Ash(N(-1000000000000),N( 64)),N(-18446744073709551616000000000000))
 20627	
 20628	    Etst(Ash(N( 1000000000000),N( 63)),N( 9223372036854775808000000000000))
 20629	    Etst(Ash(N(    1000000000),N( 63)),N(    9223372036854775808000000000))
 20630	    Etst(Ash(N(       1000000),N( 63)),N(       9223372036854775808000000))
 20631	    Etst(Ash(N(          1000),N( 63)),N(          9223372036854775808000))
 20632	    Etst(Ash(N(           100),N( 63)),N(           922337203685477580800))
 20633	    Etst(Ash(N(            10),N( 63)),N(            92233720368547758080))
 20634	    Etst(Ash(N(             1),N( 63)),N(             9223372036854775808))
 20635	    Etst(Ash(N(             0),N( 63)),N(                               0))
 20636	    Etst(Ash(N(            -1),N( 63)),N(            -9223372036854775808))
 20637	    Etst(Ash(N(           -10),N( 63)),N(           -92233720368547758080))
 20638	    Etst(Ash(N(          -100),N( 63)),N(          -922337203685477580800))
 20639	    Etst(Ash(N(         -1000),N( 63)),N(         -9223372036854775808000))
 20640	    Etst(Ash(N(      -1000000),N( 63)),N(      -9223372036854775808000000))
 20641	    Etst(Ash(N(   -1000000000),N( 63)),N(   -9223372036854775808000000000))
 20642	    Etst(Ash(N(-1000000000000),N( 63)),N(-9223372036854775808000000000000))
 20643	
 20644	    Etst(Ash(N( 1000000000000),N(  4)),N( 16000000000000))
 20645	    Etst(Ash(N(    1000000000),N(  4)),N(    16000000000))
 20646	    Etst(Ash(N(       1000000),N(  4)),N(       16000000))
 20647	    Etst(Ash(N(          1000),N(  4)),N(          16000))
 20648	    Etst(Ash(N(           100),N(  4)),N(           1600))
 20649	    Etst(Ash(N(            10),N(  4)),N(            160))
 20650	    Etst(Ash(N(             1),N(  4)),N(             16))
 20651	    Etst(Ash(N(             0),N(  4)),N(              0))
 20652	    Etst(Ash(N(            -1),N(  4)),N(            -16))
 20653	    Etst(Ash(N(           -10),N(  4)),N(           -160))
 20654	    Etst(Ash(N(          -100),N(  4)),N(          -1600))
 20655	    Etst(Ash(N(         -1000),N(  4)),N(         -16000))
 20656	    Etst(Ash(N(      -1000000),N(  4)),N(      -16000000))
 20657	    Etst(Ash(N(   -1000000000),N(  4)),N(   -16000000000))
 20658	    Etst(Ash(N(-1000000000000),N(  4)),N(-16000000000000))
 20659	
 20660	    Etst(Ash(N( 1000000000000),N(  3)),N( 8000000000000))
 20661	    Etst(Ash(N(    1000000000),N(  3)),N(    8000000000))
 20662	    Etst(Ash(N(       1000000),N(  3)),N(       8000000))
 20663	    Etst(Ash(N(          1000),N(  3)),N(          8000))
 20664	    Etst(Ash(N(           100),N(  3)),N(           800))
 20665	    Etst(Ash(N(            10),N(  3)),N(            80))
 20666	    Etst(Ash(N(             1),N(  3)),N(             8))
 20667	    Etst(Ash(N(             0),N(  3)),N(             0))
 20668	    Etst(Ash(N(            -1),N(  3)),N(            -8))
 20669	    Etst(Ash(N(           -10),N(  3)),N(           -80))
 20670	    Etst(Ash(N(          -100),N(  3)),N(          -800))
 20671	    Etst(Ash(N(         -1000),N(  3)),N(         -8000))
 20672	    Etst(Ash(N(      -1000000),N(  3)),N(      -8000000))
 20673	    Etst(Ash(N(   -1000000000),N(  3)),N(   -8000000000))
 20674	    Etst(Ash(N(-1000000000000),N(  3)),N(-8000000000000))
 20675	
 20676	    Etst(Ash(N( 1000000000000),N(  2)),N( 4000000000000))
 20677	    Etst(Ash(N(    1000000000),N(  2)),N(    4000000000))
 20678	    Etst(Ash(N(       1000000),N(  2)),N(       4000000))
 20679	    Etst(Ash(N(          1000),N(  2)),N(          4000))
 20680	    Etst(Ash(N(           100),N(  2)),N(           400))
 20681	    Etst(Ash(N(            10),N(  2)),N(            40))
 20682	    Etst(Ash(N(             1),N(  2)),N(             4))
 20683	    Etst(Ash(N(             0),N(  2)),N(             0))
 20684	    Etst(Ash(N(            -1),N(  2)),N(            -4))
 20685	    Etst(Ash(N(           -10),N(  2)),N(           -40))
 20686	    Etst(Ash(N(          -100),N(  2)),N(          -400))
 20687	    Etst(Ash(N(         -1000),N(  2)),N(         -4000))
 20688	    Etst(Ash(N(      -1000000),N(  2)),N(      -4000000))
 20689	    Etst(Ash(N(   -1000000000),N(  2)),N(   -4000000000))
 20690	    Etst(Ash(N(-1000000000000),N(  2)),N(-4000000000000))
 20691	
 20692	    Etst(Ash(N( 1000000000000),N(  1)),N( 2000000000000))
 20693	    Etst(Ash(N(    1000000000),N(  1)),N(    2000000000))
 20694	    Etst(Ash(N(       1000000),N(  1)),N(       2000000))
 20695	    Etst(Ash(N(          1000),N(  1)),N(          2000))
 20696	    Etst(Ash(N(           100),N(  1)),N(           200))
 20697	    Etst(Ash(N(            10),N(  1)),N(            20))
 20698	    Etst(Ash(N(             1),N(  1)),N(             2))
 20699	    Etst(Ash(N(             0),N(  1)),N(             0))
 20700	    Etst(Ash(N(            -1),N(  1)),N(            -2))
 20701	    Etst(Ash(N(           -10),N(  1)),N(           -20))
 20702	    Etst(Ash(N(          -100),N(  1)),N(          -200))
 20703	    Etst(Ash(N(         -1000),N(  1)),N(         -2000))
 20704	    Etst(Ash(N(      -1000000),N(  1)),N(      -2000000))
 20705	    Etst(Ash(N(   -1000000000),N(  1)),N(   -2000000000))
 20706	    Etst(Ash(N(-1000000000000),N(  1)),N(-2000000000000))
 20707	
 20708	    Etst(Ash(N( 36893488147419103232000000000000),N(-65)),N( 1000000000000))
 20709	    Etst(Ash(N(    36893488147419103232000000000),N(-65)),N(    1000000000))
 20710	    Etst(Ash(N(       36893488147419103232000000),N(-65)),N(       1000000))
 20711	    Etst(Ash(N(          36893488147419103232000),N(-65)),N(          1000))
 20712	    Etst(Ash(N(           3689348814741910323200),N(-65)),N(           100))
 20713	    Etst(Ash(N(            368934881474191032320),N(-65)),N(            10))
 20714	    Etst(Ash(N(             36893488147419103232),N(-65)),N(             1))
 20715	    Etst(Ash(N(                                0),N(-65)),N(             0))
 20716	    Etst(Ash(N(            -36893488147419103232),N(-65)),N(            -1))
 20717	    Etst(Ash(N(           -368934881474191032320),N(-65)),N(           -10))
 20718	    Etst(Ash(N(          -3689348814741910323200),N(-65)),N(          -100))
 20719	    Etst(Ash(N(         -36893488147419103232000),N(-65)),N(         -1000))
 20720	    Etst(Ash(N(      -36893488147419103232000000),N(-65)),N(      -1000000))
 20721	    Etst(Ash(N(   -36893488147419103232000000000),N(-65)),N(   -1000000000))
 20722	    Etst(Ash(N(-36893488147419103232000000000000),N(-65)),N(-1000000000000))
 20723	
 20724	    Etst(Ash(N( 18446744073709551616000000000000),N(-64)),N( 1000000000000))
 20725	    Etst(Ash(N(    18446744073709551616000000000),N(-64)),N(    1000000000))
 20726	    Etst(Ash(N(       18446744073709551616000000),N(-64)),N(       1000000))
 20727	    Etst(Ash(N(          18446744073709551616000),N(-64)),N(          1000))
 20728	    Etst(Ash(N(           1844674407370955161600),N(-64)),N(           100))
 20729	    Etst(Ash(N(            184467440737095516160),N(-64)),N(            10))
 20730	    Etst(Ash(N(             18446744073709551616),N(-64)),N(             1))
 20731	    Etst(Ash(N(                                0),N(-64)),N(             0))
 20732	    Etst(Ash(N(            -18446744073709551616),N(-64)),N(            -1))
 20733	    Etst(Ash(N(           -184467440737095516160),N(-64)),N(           -10))
 20734	    Etst(Ash(N(          -1844674407370955161600),N(-64)),N(          -100))
 20735	    Etst(Ash(N(         -18446744073709551616000),N(-64)),N(         -1000))
 20736	    Etst(Ash(N(      -18446744073709551616000000),N(-64)),N(      -1000000))
 20737	    Etst(Ash(N(   -18446744073709551616000000000),N(-64)),N(   -1000000000))
 20738	    Etst(Ash(N(-18446744073709551616000000000000),N(-64)),N(-1000000000000))
 20739	
 20740	    Etst(Ash(N(  9223372036854775808000000000000),N(-63)),N( 1000000000000))
 20741	    Etst(Ash(N(     9223372036854775808000000000),N(-63)),N(    1000000000))
 20742	    Etst(Ash(N(        9223372036854775808000000),N(-63)),N(       1000000))
 20743	    Etst(Ash(N(           9223372036854775808000),N(-63)),N(          1000))
 20744	    Etst(Ash(N(            922337203685477580800),N(-63)),N(           100))
 20745	    Etst(Ash(N(             92233720368547758080),N(-63)),N(            10))
 20746	    Etst(Ash(N(              9223372036854775808),N(-63)),N(             1))
 20747	    Etst(Ash(N(                                0),N(-63)),N(             0))
 20748	    Etst(Ash(N(             -9223372036854775808),N(-63)),N(            -1))
 20749	    Etst(Ash(N(            -92233720368547758080),N(-63)),N(           -10))
 20750	    Etst(Ash(N(           -922337203685477580800),N(-63)),N(          -100))
 20751	    Etst(Ash(N(          -9223372036854775808000),N(-63)),N(         -1000))
 20752	    Etst(Ash(N(       -9223372036854775808000000),N(-63)),N(      -1000000))
 20753	    Etst(Ash(N(    -9223372036854775808000000000),N(-63)),N(   -1000000000))
 20754	    Etst(Ash(N( -9223372036854775808000000000000),N(-63)),N(-1000000000000))
 20755	
 20756	    Ttst(Boolp(TT))
 20757	    Ttst(Boolp(FF))
 20758	    Ftst(Boolp(I0))
 20759	    Ftst(Boolp(P0))
 20760	    Ftst(Boolp(M0))
 20761	    Ftst(Boolp(B0))
 20762	
 20763	    Ftst(Intp(TT))
 20764	    Ftst(Intp(FF))
 20765	    Ttst(Intp(I0))
 20766	    Ftst(Intp(P0))
 20767	    Ftst(Intp(M0))
 20768	    Ftst(Intp(B0))
 20769	
 20770	    Ftst(Pairp(TT))
 20771	    Ftst(Pairp(FF))
 20772	    Ftst(Pairp(I0))
 20773	    Ttst(Pairp(P0))
 20774	    Ftst(Pairp(M0))
 20775	    Ftst(Pairp(B0))
 20776	
 20777	    etst(X,untag1(Raise(TT)))
 20778	    utst(X,untag1(Raise(FF)))
 20779	    utst(X,untag1(Raise(I0)))
 20780	    utst(X,untag1(Raise(P0)))
 20781	    utst(X,untag1(Raise(M0)))
 20782	    utst(X,untag1(Raise(B0)))
 20783	    utst(TT,untag1(Raise(FF)))
 20784	    utst(FF,untag1(Raise(FF)))
 20785	    utst(I0,untag1(Raise(FF)))
 20786	    utst(P0,untag1(Raise(FF)))
 20787	    utst(M0,untag1(Raise(FF)))
 20788	    utst(B0,untag1(Raise(FF)))
 20789	    etst(untag1(Raise(pair(TT,TT))),untag1(Raise(pair(TT,TT))))
 20790	    utst(untag1(Raise(pair(TT,TT))),untag1(Raise(pair(TT,FF))))
 20791	    utst(untag1(Raise(pair(TT,FF))),untag1(Raise(pair(TT,TT))))
 20792	    etst(untag1(Raise(pair(TT,FF))),untag1(Raise(pair(TT,FF))))
 20793	
 20794	    Ftst(Mapp(TT))
 20795	    Ftst(Mapp(FF))
 20796	    Ftst(Mapp(I0))
 20797	    Ftst(Mapp(P0))
 20798	    Ttst(Mapp(M0))
 20799	    Ftst(Mapp(B0))
 20800	
 20801	    Ftst(Objp(TT))
 20802	    Ftst(Objp(FF))
 20803	    Ftst(Objp(I0))
 20804	    Ftst(Objp(P0))
 20805	    Ftst(Objp(M0))
 20806	    Ttst(Objp(B0))
 20807	
 20808	    Xtst(Object(TT))
 20809	    Xtst(Object(FF))
 20810	    Xtst(Object(I0))
 20811	    Xtst(Object(M0))
 20812	    Xtst(Object(B0))
 20813	    Xtst(Object(Pair(TT,P0)))
 20814	    Xtst(Object(Pair(FF,P0)))
 20815	    Xtst(Object(Pair(I0,P0)))
 20816	    Xtst(Object(Pair(M0,P0)))
 20817	    Xtst(Object(Pair(B0,P0)))
 20818	    Xtst(Object(Pair(Pair(I[1],TT),P0)))
 20819	    Xtst(Object(Pair(Pair(I[1],FF),P0)))
 20820	    Xtst(Object(Pair(Pair(I[1],P0),P0)))
 20821	    Xtst(Object(Pair(Pair(I[1],M0),P0)))
 20822	    Xtst(Object(Pair(Pair(I[1],B0),P0)))
 20823	    Xtst(Object(Pair(Pair(TT,I[1]),P0)))
 20824	    Xtst(Object(Pair(Pair(FF,I[1]),P0)))
 20825	    Xtst(Object(Pair(Pair(P0,I[1]),P0)))
 20826	    Xtst(Object(Pair(Pair(M0,I[1]),P0)))
 20827	    Xtst(Object(Pair(Pair(B0,I[1]),P0)))
 20828	    Xtst(Object(Pair(Pair(M,I[1]),P0)))
 20829	    Xtst(Object(Pair(Pair(I[1],M),P0)))
 20830	    Xtst(Object(Pair(Pair(Z,I[0]),P0)))
 20831	    Xtst(Object(Pair(Pair(Z,I[1]),P0)))
 20832	    Xtst(Object(Pair(Pair(Z,I[2]),P0)))
 20833	    Xtst(Object(Pair(Pair(Z,I[3]),P0)))
 20834	    Xtst(Object(Pair(Pair(Z,I[4]),P0)))
 20835	    Ttst(Objp(Object(Pair(Pair(I[0],I[5]),P0))))
 20836	    Ftst(Pairp(Object(Pair(Pair(I[0],I[5]),P0))))
 20837	    Ttst(Objp(Object(Pair(Pair(I[0],I[6]),P0))))
 20838	    Ttst(Objp(Object(Pair(Pair(I[0],I[7]),P0))))
 20839	    Ttst(Objp(Object(Pair(Pair(I[1],I[0]),P0))))
 20840	    Ttst(Objp(Object(Pair(Pair(I[1],I[4]),P0))))
 20841	    Ttst(Objp(Object(Pair(Pair(I[1],I[7]),TT))))
 20842	    Ttst(Objp(Object(Pair(Pair(I[1],I[7]),FF))))
 20843	    Ttst(Objp(Object(Pair(Pair(I[1],I[7]),I0))))
 20844	    Ttst(Objp(Object(Pair(Pair(I[1],I[7]),P0))))
 20845	    Ttst(Objp(Object(Pair(Pair(I[1],I[7]),M0))))
 20846	    Ttst(Objp(Object(Pair(Pair(I[1],I[7]),B0))))
 20847	
 20848	    Xtst(Destruct(TT))
 20849	    Xtst(Destruct(FF))
 20850	    Xtst(Destruct(P0))
 20851	    Xtst(Destruct(M0))
 20852	    Xtst(Destruct(Z))
 20853	    Xtst(Destruct(M))
 20854	    Xtst(Destruct(I0011))
 20855	    Xtst(Destruct(J1010_0101))
 20856	    Etst(Destruct(Object(Pair(Pair(I[0],I[5]),P0))),Pair(Pair(I[0],I[5]),P0))
 20857	    Etst(Destruct(Object(Pair(Pair(I[0],I[6]),P0))),Pair(Pair(I[0],I[6]),P0))
 20858	    Etst(Destruct(Object(Pair(Pair(I[0],I[7]),P0))),Pair(Pair(I[0],I[7]),P0))
 20859	    Etst(Destruct(Object(Pair(Pair(I[1],I[0]),P0))),Pair(Pair(I[1],I[0]),P0))
 20860	    Etst(Destruct(Object(Pair(Pair(I[1],I[4]),P0))),Pair(Pair(I[1],I[4]),P0))
 20861	    Etst(Destruct(Object(Pair(Pair(I[1],I[7]),TT))),Pair(Pair(I[1],I[7]),TT))
 20862	    Etst(Destruct(Object(Pair(Pair(I[1],I[7]),FF))),Pair(Pair(I[1],I[7]),FF))
 20863	    Etst(Destruct(Object(Pair(Pair(I[1],I[7]),I0))),Pair(Pair(I[1],I[7]),I0))
 20864	    Etst(Destruct(Object(Pair(Pair(I[1],I[7]),P0))),Pair(Pair(I[1],I[7]),P0))
 20865	    Etst(Destruct(Object(Pair(Pair(I[1],I[7]),M0))),Pair(Pair(I[1],I[7]),M0))
 20866	    Etst(Destruct(Object(Pair(Pair(I[1],I[7]),B0))),Pair(Pair(I[1],I[7]),B0))
 20867	
 20868	    Xtst(Vector(TT))
 20869	    Xtst(Vector(FF))
 20870	    Xtst(Vector(P0))
 20871	    Xtst(Vector(M0))
 20872	    Xtst(Vector(B0))
 20873	
 20874	    Xtst(Vempty(TT))
 20875	    Xtst(Vempty(FF))
 20876	    Xtst(Vempty(P0))
 20877	    Xtst(Vempty(M0))
 20878	    Xtst(Vempty(B0))
 20879	    Ttst(Vempty(N(0)))
 20880	    Ttst(Vempty(N(1)))
 20881	    Ttst(Vempty(N(2)))
 20882	    Ttst(Vempty(N(255)))
 20883	    Ftst(Vempty(N(256)))
 20884	    Ftst(Vempty(N(257)))
 20885	    Ftst(Vempty(N(511)))
 20886	    Ftst(Vempty(N(512)))
 20887	    Ftst(Vempty(N(513)))
 20888	    Ftst(Vempty(N(767)))
 20889	    Ftst(Vempty(intcons(123,intcons(456,I[2]))))
 20890	    Ftst(Vempty(intcons(123,intcons(456,N(767)))))
 20891	    Ttst(Vempty(intcons(123,intcons(456,M))))
 20892	
 20893	    Etst(Vector(N(0)),N(1))
 20894	    Etst(Vector(N(1)),N(1))
 20895	    Etst(Vector(N(2)),N(1))
 20896	    Etst(Vector(N(255)),N(1))
 20897	    Etst(Vector(N(256)),N(256))
 20898	    Etst(Vector(N(257)),N(257))
 20899	    Etst(Vector(N(511)),N(511))
 20900	    Etst(Vector(N(512)),N(256))
 20901	    Etst(Vector(N(513)),N(257))
 20902	    Etst(Vector(N(767)),N(511))
 20903	    Etst(Vector(intcons(123,intcons(456,I[2]))),intcons(123,intcons(456,I[1])))
 20904	    Etst(Vector(intcons(123,intcons(456,N(767)))),
 20905	         intcons(123,intcons(456,N(511))))
 20906	
 20907	    Xtst(Vlength(TT))
 20908	    Xtst(Vlength(FF))
 20909	    Xtst(Vlength(P0))
 20910	    Xtst(Vlength(M0))
 20911	    Xtst(Vlength(B0))
 20912	    Etst(N(0),Vlength(N(0)))
 20913	    Etst(N(0),Vlength(N(1)))
 20914	    Etst(N(0),Vlength(N(2)))
 20915	    Etst(N(0),Vlength(N(255)))
 20916	    Etst(N(1),Vlength(N(256)))
 20917	    Etst(N(1),Vlength(N(257)))
 20918	    Etst(N(1),Vlength(N(511)))
 20919	    Etst(N(1),Vlength(N(512)))
 20920	    Etst(N(1),Vlength(N(513)))
 20921	    Etst(N(1),Vlength(N(767)))
 20922	    Etst(N(1),Vlength(N(65535)))
 20923	    Etst(N(2),Vlength(N(65536)))
 20924	    Etst(N(3),Vlength(N(4294967295)))
 20925	    Etst(N(4),Vlength(N(4294967296)))
 20926	    Etst(N(7),Vlength(N(18446744073709551615)))
 20927	    Etst(N(8),Vlength(N(18446744073709551616)))
 20928	    Etst(N(15),Vlength(N(340282366920938463463374607431768211455)))
 20929	    Etst(N(16),Vlength(N(340282366920938463463374607431768211456)))
 20930	    Etst(N(0),Vlength(intcons(123,intcons(456,M))))
 20931	
 20932	    Xtst(Vindex(TT,TT))
 20933	    Xtst(Vindex(TT,FF))
 20934	    Xtst(Vindex(TT,I0))
 20935	    Xtst(Vindex(TT,P0))
 20936	    Xtst(Vindex(TT,M0))
 20937	    Xtst(Vindex(TT,B0))
 20938	    Xtst(Vindex(FF,TT))
 20939	    Xtst(Vindex(FF,FF))
 20940	    Xtst(Vindex(FF,I0))
 20941	    Xtst(Vindex(FF,P0))
 20942	    Xtst(Vindex(FF,M0))
 20943	    Xtst(Vindex(FF,B0))
 20944	    Xtst(Vindex(I0,TT))
 20945	    Xtst(Vindex(I0,FF))
 20946	    Xtst(Vindex(I0,P0))
 20947	    Xtst(Vindex(I0,M0))
 20948	    Xtst(Vindex(I0,B0))
 20949	    Xtst(Vindex(P0,TT))
 20950	    Xtst(Vindex(P0,FF))
 20951	    Xtst(Vindex(P0,I0))
 20952	    Xtst(Vindex(P0,P0))
 20953	    Xtst(Vindex(P0,M0))
 20954	    Xtst(Vindex(P0,B0))
 20955	    Xtst(Vindex(M0,TT))
 20956	    Xtst(Vindex(M0,FF))
 20957	    Xtst(Vindex(M0,I0))
 20958	    Xtst(Vindex(M0,P0))
 20959	    Xtst(Vindex(M0,M0))
 20960	    Xtst(Vindex(M0,B0))
 20961	    Xtst(Vindex(B0,TT))
 20962	    Xtst(Vindex(B0,FF))
 20963	    Xtst(Vindex(B0,I0))
 20964	    Xtst(Vindex(B0,P0))
 20965	    Xtst(Vindex(B0,M0))
 20966	    Xtst(Vindex(B0,B0))
 20967	    Xtst(Vindex(N(-1),N(-1)))
 20968	    Xtst(Vindex(N(-1),N( 0)))
 20969	    Xtst(Vindex(N(-1),N( 1)))
 20970	    Xtst(Vindex(N(0),N(-1)))
 20971	    Xtst(Vindex(N(0),N( 0)))
 20972	    Xtst(Vindex(N(0),N( 1)))
 20973	    Xtst(Vindex(N(255),N(-1)))
 20974	    Xtst(Vindex(N(255),N( 0)))
 20975	    Xtst(Vindex(N(255),N( 1)))
 20976	    Xtst(Vindex(N(256),N(-1)))
 20977	    Etst(Vindex(N(256),N( 0)),N(0))
 20978	    Xtst(Vindex(N(256),N( 1)))
 20979	    Xtst(Vindex(N(257),N(-1)))
 20980	    Etst(Vindex(N(257),N( 0)),N(1))
 20981	    Xtst(Vindex(N(257),N( 1)))
 20982	    Xtst(Vindex(N(66049),N(-1)))
 20983	    Etst(Vindex(N(66049),N( 0)),N(1))
 20984	    Etst(Vindex(N(66049),N( 1)),N(2))
 20985	    Xtst(Vindex(N(66049),N( 2)))
 20986	    Xtst(Vindex(N(19025181769461858817),N(-1)))
 20987	    Etst(Vindex(N(19025181769461858817),N( 0)),N(1))
 20988	    Etst(Vindex(N(19025181769461858817),N( 1)),N(2))
 20989	    Etst(Vindex(N(19025181769461858817),N( 2)),N(3))
 20990	    Etst(Vindex(N(19025181769461858817),N( 3)),N(4))
 20991	    Etst(Vindex(N(19025181769461858817),N( 4)),N(5))
 20992	    Etst(Vindex(N(19025181769461858817),N( 5)),N(6))
 20993	    Etst(Vindex(N(19025181769461858817),N( 6)),N(7))
 20994	    Etst(Vindex(N(19025181769461858817),N( 7)),N(8))
 20995	    Xtst(Vindex(N(19025181769461858817),N( 8)))
 20996	    Xtst(Vindex(N(4888965617228783485441),N(-1)))
 20997	    Etst(Vindex(N(4888965617228783485441),N( 0)),N(1))
 20998	    Etst(Vindex(N(4888965617228783485441),N( 1)),N(2))
 20999	    Etst(Vindex(N(4888965617228783485441),N( 2)),N(3))
 21000	    Etst(Vindex(N(4888965617228783485441),N( 3)),N(4))
 21001	    Etst(Vindex(N(4888965617228783485441),N( 4)),N(5))
 21002	    Etst(Vindex(N(4888965617228783485441),N( 5)),N(6))
 21003	    Etst(Vindex(N(4888965617228783485441),N( 6)),N(7))
 21004	    Etst(Vindex(N(4888965617228783485441),N( 7)),N(8))
 21005	    Etst(Vindex(N(4888965617228783485441),N( 8)),N(9))
 21006	    Xtst(Vindex(N(4888965617228783485441),N( 9)))
 21007	    Etst(Vindex(V(abc),N(0)),N(97))
 21008	    Etst(Vindex(V(abc),N(1)),N(98))
 21009	    Etst(Vindex(V(abc),N(2)),N(99))
 21010	
 21011	    Xtst(Vsuffix(TT,TT))
 21012	    Xtst(Vsuffix(TT,FF))
 21013	    Xtst(Vsuffix(TT,I0))
 21014	    Xtst(Vsuffix(TT,P0))
 21015	    Xtst(Vsuffix(TT,M0))
 21016	    Xtst(Vsuffix(TT,B0))
 21017	    Xtst(Vsuffix(FF,TT))
 21018	    Xtst(Vsuffix(FF,FF))
 21019	    Xtst(Vsuffix(FF,I0))
 21020	    Xtst(Vsuffix(FF,P0))
 21021	    Xtst(Vsuffix(FF,M0))
 21022	    Xtst(Vsuffix(FF,B0))
 21023	    Xtst(Vsuffix(I0,TT))
 21024	    Xtst(Vsuffix(I0,FF))
 21025	    Xtst(Vsuffix(I0,P0))
 21026	    Xtst(Vsuffix(I0,M0))
 21027	    Xtst(Vsuffix(I0,B0))
 21028	    Xtst(Vsuffix(P0,TT))
 21029	    Xtst(Vsuffix(P0,FF))
 21030	    Xtst(Vsuffix(P0,I0))
 21031	    Xtst(Vsuffix(P0,P0))
 21032	    Xtst(Vsuffix(P0,M0))
 21033	    Xtst(Vsuffix(P0,B0))
 21034	    Xtst(Vsuffix(M0,TT))
 21035	    Xtst(Vsuffix(M0,FF))
 21036	    Xtst(Vsuffix(M0,I0))
 21037	    Xtst(Vsuffix(M0,P0))
 21038	    Xtst(Vsuffix(M0,M0))
 21039	    Xtst(Vsuffix(M0,B0))
 21040	    Xtst(Vsuffix(B0,TT))
 21041	    Xtst(Vsuffix(B0,FF))
 21042	    Xtst(Vsuffix(B0,I0))
 21043	    Xtst(Vsuffix(B0,P0))
 21044	    Xtst(Vsuffix(B0,M0))
 21045	    Xtst(Vsuffix(B0,B0))
 21046	    Etst(Vsuffix(V(abc),N(-1)),V(abc))
 21047	    Etst(Vsuffix(V(abc),N( 0)),V(abc))
 21048	    Etst(Vsuffix(V(abc),N( 1)),V(bc))
 21049	    Etst(Vsuffix(V(abc),N( 2)),V(c))
 21050	    Etst(Vsuffix(V(abc),N( 3)),E)
 21051	    Etst(Vsuffix(V(abc),N( 4)),E)
 21052	    Etst(Vsuffix(V(abcdefg),N(-1)),V(abcdefg))
 21053	    Etst(Vsuffix(V(abcdefg),N( 0)),V(abcdefg))
 21054	    Etst(Vsuffix(V(abcdefg),N( 1)),V(bcdefg))
 21055	    Etst(Vsuffix(V(abcdefg),N( 2)),V(cdefg))
 21056	    Etst(Vsuffix(V(abcdefg),N( 3)),V(defg))
 21057	    Etst(Vsuffix(V(abcdefg),N( 4)),V(efg))
 21058	    Etst(Vsuffix(V(abcdefg),N( 5)),V(fg))
 21059	    Etst(Vsuffix(V(abcdefg),N( 6)),V(g))
 21060	    Etst(Vsuffix(V(abcdefg),N( 7)),V())
 21061	    Etst(Vsuffix(V(abcdefg),N( 8)),V())
 21062	    Etst(Vsuffix(V(abcdefg),N( 9)),V())
 21063	    Etst(Vsuffix(V(abcdefg),N(10)),V())
 21064	    Etst(Vsuffix(V(abcdefgh),N(-1)),V(abcdefgh))
 21065	    Etst(Vsuffix(V(abcdefgh),N( 0)),V(abcdefgh))
 21066	    Etst(Vsuffix(V(abcdefgh),N( 1)),V(bcdefgh))
 21067	    Etst(Vsuffix(V(abcdefgh),N( 2)),V(cdefgh))
 21068	    Etst(Vsuffix(V(abcdefgh),N( 3)),V(defgh))
 21069	    Etst(Vsuffix(V(abcdefgh),N( 4)),V(efgh))
 21070	    Etst(Vsuffix(V(abcdefgh),N( 5)),V(fgh))
 21071	    Etst(Vsuffix(V(abcdefgh),N( 6)),V(gh))
 21072	    Etst(Vsuffix(V(abcdefgh),N( 7)),V(h))
 21073	    Etst(Vsuffix(V(abcdefgh),N( 8)),V())
 21074	    Etst(Vsuffix(V(abcdefgh),N( 9)),V())
 21075	    Etst(Vsuffix(V(abcdefgh),N(10)),V())
 21076	    Etst(Vsuffix(V(abcdefghi),N(-1)),V(abcdefghi))
 21077	    Etst(Vsuffix(V(abcdefghi),N( 0)),V(abcdefghi))
 21078	    Etst(Vsuffix(V(abcdefghi),N( 1)),V(bcdefghi))
 21079	    Etst(Vsuffix(V(abcdefghi),N( 2)),V(cdefghi))
 21080	    Etst(Vsuffix(V(abcdefghi),N( 3)),V(defghi))
 21081	    Etst(Vsuffix(V(abcdefghi),N( 4)),V(efghi))
 21082	    Etst(Vsuffix(V(abcdefghi),N( 5)),V(fghi))
 21083	    Etst(Vsuffix(V(abcdefghi),N( 6)),V(ghi))
 21084	    Etst(Vsuffix(V(abcdefghi),N( 7)),V(hi))
 21085	    Etst(Vsuffix(V(abcdefghi),N( 8)),V(i))
 21086	    Etst(Vsuffix(V(abcdefghi),N( 9)),V())
 21087	    Etst(Vsuffix(V(abcdefghi),N(10)),V())
 21088	    Etst(Vsuffix(N(256),N(-1)),N(256))
 21089	    Etst(Vsuffix(N(256),N( 0)),N(256))
 21090	    Etst(Vsuffix(N(256),N( 1)),E)
 21091	    Etst(Vsuffix(N(256),N( 2)),E)
 21092	    Etst(Vsuffix(N(512),N(-1)),N(256))
 21093	    Etst(Vsuffix(N(512),N( 0)),N(256))
 21094	    Etst(Vsuffix(N(512),N( 1)),E)
 21095	    Etst(Vsuffix(N(512),N( 2)),E)
 21096	
 21097	    Xtst(Vprefix(TT,TT))
 21098	    Xtst(Vprefix(TT,FF))
 21099	    Xtst(Vprefix(TT,I0))
 21100	    Xtst(Vprefix(TT,P0))
 21101	    Xtst(Vprefix(TT,M0))
 21102	    Xtst(Vprefix(TT,B0))
 21103	    Xtst(Vprefix(FF,TT))
 21104	    Xtst(Vprefix(FF,FF))
 21105	    Xtst(Vprefix(FF,I0))
 21106	    Xtst(Vprefix(FF,P0))
 21107	    Xtst(Vprefix(FF,M0))
 21108	    Xtst(Vprefix(FF,B0))
 21109	    Xtst(Vprefix(I0,TT))
 21110	    Xtst(Vprefix(I0,FF))
 21111	    Xtst(Vprefix(I0,P0))
 21112	    Xtst(Vprefix(I0,M0))
 21113	    Xtst(Vprefix(I0,B0))
 21114	    Xtst(Vprefix(P0,TT))
 21115	    Xtst(Vprefix(P0,FF))
 21116	    Xtst(Vprefix(P0,I0))
 21117	    Xtst(Vprefix(P0,P0))
 21118	    Xtst(Vprefix(P0,M0))
 21119	    Xtst(Vprefix(P0,B0))
 21120	    Xtst(Vprefix(M0,TT))
 21121	    Xtst(Vprefix(M0,FF))
 21122	    Xtst(Vprefix(M0,I0))
 21123	    Xtst(Vprefix(M0,P0))
 21124	    Xtst(Vprefix(M0,M0))
 21125	    Xtst(Vprefix(M0,B0))
 21126	    Xtst(Vprefix(B0,TT))
 21127	    Xtst(Vprefix(B0,FF))
 21128	    Xtst(Vprefix(B0,I0))
 21129	    Xtst(Vprefix(B0,P0))
 21130	    Xtst(Vprefix(B0,M0))
 21131	    Xtst(Vprefix(B0,B0))
 21132	    Etst(Vprefix(V(abc),N(-1)),E)
 21133	    Etst(Vprefix(V(abc),N( 0)),E)
 21134	    Etst(Vprefix(V(abc),N( 1)),V(a))
 21135	    Etst(Vprefix(V(abc),N( 2)),V(ab))
 21136	    Etst(Vprefix(V(abc),N( 3)),V(abc))
 21137	    Etst(Vprefix(V(abc),N( 4)),V(abc))
 21138	    Etst(Vprefix(V(abcdefg),N(-1)),E)
 21139	    Etst(Vprefix(V(abcdefg),N( 0)),E)
 21140	    Etst(Vprefix(V(abcdefg),N( 1)),V(a))
 21141	    Etst(Vprefix(V(abcdefg),N( 2)),V(ab))
 21142	    Etst(Vprefix(V(abcdefg),N( 3)),V(abc))
 21143	    Etst(Vprefix(V(abcdefg),N( 4)),V(abcd))
 21144	    Etst(Vprefix(V(abcdefg),N( 5)),V(abcde))
 21145	    Etst(Vprefix(V(abcdefg),N( 6)),V(abcdef))
 21146	    Etst(Vprefix(V(abcdefg),N( 7)),V(abcdefg))
 21147	    Etst(Vprefix(V(abcdefg),N( 8)),V(abcdefg))
 21148	    Etst(Vprefix(V(abcdefg),N( 9)),V(abcdefg))
 21149	    Etst(Vprefix(V(abcdefg),N(10)),V(abcdefg))
 21150	    Etst(Vprefix(V(abcdefgh),N(-1)),E)
 21151	    Etst(Vprefix(V(abcdefgh),N( 0)),E)
 21152	    Etst(Vprefix(V(abcdefgh),N( 1)),V(a))
 21153	    Etst(Vprefix(V(abcdefgh),N( 2)),V(ab))
 21154	    Etst(Vprefix(V(abcdefgh),N( 3)),V(abc))
 21155	    Etst(Vprefix(V(abcdefgh),N( 4)),V(abcd))
 21156	    Etst(Vprefix(V(abcdefgh),N( 5)),V(abcde))
 21157	    Etst(Vprefix(V(abcdefgh),N( 6)),V(abcdef))
 21158	    Etst(Vprefix(V(abcdefgh),N( 7)),V(abcdefg))
 21159	    Etst(Vprefix(V(abcdefgh),N( 8)),V(abcdefgh))
 21160	    Etst(Vprefix(V(abcdefgh),N( 9)),V(abcdefgh))
 21161	    Etst(Vprefix(V(abcdefgh),N(10)),V(abcdefgh))
 21162	    Etst(Vprefix(V(abcdefghi),N(-1)),E)
 21163	    Etst(Vprefix(V(abcdefghi),N( 0)),E)
 21164	    Etst(Vprefix(V(abcdefghi),N( 1)),V(a))
 21165	    Etst(Vprefix(V(abcdefghi),N( 2)),V(ab))
 21166	    Etst(Vprefix(V(abcdefghi),N( 3)),V(abc))
 21167	    Etst(Vprefix(V(abcdefghi),N( 4)),V(abcd))
 21168	    Etst(Vprefix(V(abcdefghi),N( 5)),V(abcde))
 21169	    Etst(Vprefix(V(abcdefghi),N( 6)),V(abcdef))
 21170	    Etst(Vprefix(V(abcdefghi),N( 7)),V(abcdefg))
 21171	    Etst(Vprefix(V(abcdefghi),N( 8)),V(abcdefgh))
 21172	    Etst(Vprefix(V(abcdefghi),N( 9)),V(abcdefghi))
 21173	    Etst(Vprefix(V(abcdefghi),N(10)),V(abcdefghi))
 21174	    Etst(Vprefix(N(256),N(-1)),E)
 21175	    Etst(Vprefix(N(256),N( 0)),E)
 21176	    Etst(Vprefix(N(256),N( 1)),N(256))
 21177	    Etst(Vprefix(N(256),N( 2)),N(256))
 21178	    Etst(Vprefix(N(512),N(-1)),E)
 21179	    Etst(Vprefix(N(512),N( 0)),E)
 21180	    Etst(Vprefix(N(512),N( 1)),N(256))
 21181	    Etst(Vprefix(N(512),N( 2)),N(256))
 21182	
 21183	    Xtst(Vsubseq(V(abc),TT,TT))
 21184	    Xtst(Vsubseq(V(abc),TT,FF))
 21185	    Xtst(Vsubseq(V(abc),TT,I0))
 21186	    Xtst(Vsubseq(V(abc),TT,P0))
 21187	    Xtst(Vsubseq(V(abc),TT,M0))
 21188	    Xtst(Vsubseq(V(abc),TT,B0))
 21189	    Xtst(Vsubseq(V(abc),FF,TT))
 21190	    Xtst(Vsubseq(V(abc),FF,FF))
 21191	    Xtst(Vsubseq(V(abc),FF,I0))
 21192	    Xtst(Vsubseq(V(abc),FF,P0))
 21193	    Xtst(Vsubseq(V(abc),FF,M0))
 21194	    Xtst(Vsubseq(V(abc),FF,B0))
 21195	    Xtst(Vsubseq(V(abc),I0,TT))
 21196	    Xtst(Vsubseq(V(abc),I0,FF))
 21197	    Xtst(Vsubseq(V(abc),I0,P0))
 21198	    Xtst(Vsubseq(V(abc),I0,M0))
 21199	    Xtst(Vsubseq(V(abc),I0,B0))
 21200	    Xtst(Vsubseq(V(abc),P0,TT))
 21201	    Xtst(Vsubseq(V(abc),P0,FF))
 21202	    Xtst(Vsubseq(V(abc),P0,I0))
 21203	    Xtst(Vsubseq(V(abc),P0,P0))
 21204	    Xtst(Vsubseq(V(abc),P0,M0))
 21205	    Xtst(Vsubseq(V(abc),P0,B0))
 21206	    Xtst(Vsubseq(V(abc),M0,TT))
 21207	    Xtst(Vsubseq(V(abc),M0,FF))
 21208	    Xtst(Vsubseq(V(abc),M0,I0))
 21209	    Xtst(Vsubseq(V(abc),M0,P0))
 21210	    Xtst(Vsubseq(V(abc),M0,M0))
 21211	    Xtst(Vsubseq(V(abc),M0,B0))
 21212	    Xtst(Vsubseq(V(abc),B0,TT))
 21213	    Xtst(Vsubseq(V(abc),B0,FF))
 21214	    Xtst(Vsubseq(V(abc),B0,I0))
 21215	    Xtst(Vsubseq(V(abc),B0,P0))
 21216	    Xtst(Vsubseq(V(abc),B0,M0))
 21217	    Xtst(Vsubseq(V(abc),B0,B0))
 21218	    Xtst(Vsubseq(TT,N(0),TT))
 21219	    Xtst(Vsubseq(TT,N(0),FF))
 21220	    Xtst(Vsubseq(TT,N(0),I0))
 21221	    Xtst(Vsubseq(TT,N(0),P0))
 21222	    Xtst(Vsubseq(TT,N(0),M0))
 21223	    Xtst(Vsubseq(TT,N(0),B0))
 21224	    Xtst(Vsubseq(FF,N(0),TT))
 21225	    Xtst(Vsubseq(FF,N(0),FF))
 21226	    Xtst(Vsubseq(FF,N(0),I0))
 21227	    Xtst(Vsubseq(FF,N(0),P0))
 21228	    Xtst(Vsubseq(FF,N(0),M0))
 21229	    Xtst(Vsubseq(FF,N(0),B0))
 21230	    Xtst(Vsubseq(I0,N(0),TT))
 21231	    Xtst(Vsubseq(I0,N(0),FF))
 21232	    Xtst(Vsubseq(I0,N(0),P0))
 21233	    Xtst(Vsubseq(I0,N(0),M0))
 21234	    Xtst(Vsubseq(I0,N(0),B0))
 21235	    Xtst(Vsubseq(P0,N(0),TT))
 21236	    Xtst(Vsubseq(P0,N(0),FF))
 21237	    Xtst(Vsubseq(P0,N(0),I0))
 21238	    Xtst(Vsubseq(P0,N(0),P0))
 21239	    Xtst(Vsubseq(P0,N(0),M0))
 21240	    Xtst(Vsubseq(P0,N(0),B0))
 21241	    Xtst(Vsubseq(M0,N(0),TT))
 21242	    Xtst(Vsubseq(M0,N(0),FF))
 21243	    Xtst(Vsubseq(M0,N(0),I0))
 21244	    Xtst(Vsubseq(M0,N(0),P0))
 21245	    Xtst(Vsubseq(M0,N(0),M0))
 21246	    Xtst(Vsubseq(M0,N(0),B0))
 21247	    Xtst(Vsubseq(B0,N(0),TT))
 21248	    Xtst(Vsubseq(B0,N(0),FF))
 21249	    Xtst(Vsubseq(B0,N(0),I0))
 21250	    Xtst(Vsubseq(B0,N(0),P0))
 21251	    Xtst(Vsubseq(B0,N(0),M0))
 21252	    Xtst(Vsubseq(B0,N(0),B0))
 21253	    Xtst(Vsubseq(TT,TT,N(2)))
 21254	    Xtst(Vsubseq(TT,FF,N(2)))
 21255	    Xtst(Vsubseq(TT,I0,N(2)))
 21256	    Xtst(Vsubseq(TT,P0,N(2)))
 21257	    Xtst(Vsubseq(TT,M0,N(2)))
 21258	    Xtst(Vsubseq(TT,B0,N(2)))
 21259	    Xtst(Vsubseq(FF,TT,N(2)))
 21260	    Xtst(Vsubseq(FF,FF,N(2)))
 21261	    Xtst(Vsubseq(FF,I0,N(2)))
 21262	    Xtst(Vsubseq(FF,P0,N(2)))
 21263	    Xtst(Vsubseq(FF,M0,N(2)))
 21264	    Xtst(Vsubseq(FF,B0,N(2)))
 21265	    Xtst(Vsubseq(I0,TT,N(2)))
 21266	    Xtst(Vsubseq(I0,FF,N(2)))
 21267	    Xtst(Vsubseq(I0,P0,N(2)))
 21268	    Xtst(Vsubseq(I0,M0,N(2)))
 21269	    Xtst(Vsubseq(I0,B0,N(2)))
 21270	    Xtst(Vsubseq(P0,TT,N(2)))
 21271	    Xtst(Vsubseq(P0,FF,N(2)))
 21272	    Xtst(Vsubseq(P0,I0,N(2)))
 21273	    Xtst(Vsubseq(P0,P0,N(2)))
 21274	    Xtst(Vsubseq(P0,M0,N(2)))
 21275	    Xtst(Vsubseq(P0,B0,N(2)))
 21276	    Xtst(Vsubseq(M0,TT,N(2)))
 21277	    Xtst(Vsubseq(M0,FF,N(2)))
 21278	    Xtst(Vsubseq(M0,I0,N(2)))
 21279	    Xtst(Vsubseq(M0,P0,N(2)))
 21280	    Xtst(Vsubseq(M0,M0,N(2)))
 21281	    Xtst(Vsubseq(M0,B0,N(2)))
 21282	    Xtst(Vsubseq(B0,TT,N(2)))
 21283	    Xtst(Vsubseq(B0,FF,N(2)))
 21284	    Xtst(Vsubseq(B0,I0,N(2)))
 21285	    Xtst(Vsubseq(B0,P0,N(2)))
 21286	    Xtst(Vsubseq(B0,M0,N(2)))
 21287	    Xtst(Vsubseq(B0,B0,N(2)))
 21288	
 21289	    Etst(Vsubseq(V(),N(-1),N(-1)),V())
 21290	    Etst(Vsubseq(V(),N(-1),N( 0)),V())
 21291	    Etst(Vsubseq(V(),N(-1),N( 1)),V())
 21292	    Etst(Vsubseq(V(),N(-1),N( 2)),V())
 21293	    Etst(Vsubseq(V(),N(-1),N( 3)),V())
 21294	    Etst(Vsubseq(V(),N(-1),N( 4)),V())
 21295	    Etst(Vsubseq(V(),N(-1),N( 5)),V())
 21296	    Etst(Vsubseq(V(),N(-1),N( 6)),V())
 21297	    Etst(Vsubseq(V(),N(-1),N( 7)),V())
 21298	    Etst(Vsubseq(V(),N(-1),N( 8)),V())
 21299	    Etst(Vsubseq(V(),N(-1),N( 9)),V())
 21300	    Etst(Vsubseq(V(),N(-1),N(10)),V())
 21301	
 21302	    Etst(Vsubseq(V(),N( 0),N(-1)),V())
 21303	    Etst(Vsubseq(V(),N( 0),N( 0)),V())
 21304	    Etst(Vsubseq(V(),N( 0),N( 1)),V())
 21305	    Etst(Vsubseq(V(),N( 0),N( 2)),V())
 21306	    Etst(Vsubseq(V(),N( 0),N( 3)),V())
 21307	    Etst(Vsubseq(V(),N( 0),N( 4)),V())
 21308	    Etst(Vsubseq(V(),N( 0),N( 5)),V())
 21309	    Etst(Vsubseq(V(),N( 0),N( 6)),V())
 21310	    Etst(Vsubseq(V(),N( 0),N( 7)),V())
 21311	    Etst(Vsubseq(V(),N( 0),N( 8)),V())
 21312	    Etst(Vsubseq(V(),N( 0),N( 9)),V())
 21313	    Etst(Vsubseq(V(),N( 0),N(10)),V())
 21314	
 21315	    Etst(Vsubseq(V(),N( 1),N(-1)),V())
 21316	    Etst(Vsubseq(V(),N( 1),N( 0)),V())
 21317	    Etst(Vsubseq(V(),N( 1),N( 1)),V())
 21318	    Etst(Vsubseq(V(),N( 1),N( 2)),V())
 21319	    Etst(Vsubseq(V(),N( 1),N( 3)),V())
 21320	    Etst(Vsubseq(V(),N( 1),N( 4)),V())
 21321	    Etst(Vsubseq(V(),N( 1),N( 5)),V())
 21322	    Etst(Vsubseq(V(),N( 1),N( 6)),V())
 21323	    Etst(Vsubseq(V(),N( 1),N( 7)),V())
 21324	    Etst(Vsubseq(V(),N( 1),N( 8)),V())
 21325	    Etst(Vsubseq(V(),N( 1),N( 9)),V())
 21326	    Etst(Vsubseq(V(),N( 1),N(10)),V())
 21327	
 21328	    Etst(Vsubseq(V(),N( 2),N(-1)),V())
 21329	    Etst(Vsubseq(V(),N( 2),N( 0)),V())
 21330	    Etst(Vsubseq(V(),N( 2),N( 1)),V())
 21331	    Etst(Vsubseq(V(),N( 2),N( 2)),V())
 21332	    Etst(Vsubseq(V(),N( 2),N( 3)),V())
 21333	    Etst(Vsubseq(V(),N( 2),N( 4)),V())
 21334	    Etst(Vsubseq(V(),N( 2),N( 5)),V())
 21335	    Etst(Vsubseq(V(),N( 2),N( 6)),V())
 21336	    Etst(Vsubseq(V(),N( 2),N( 7)),V())
 21337	    Etst(Vsubseq(V(),N( 2),N( 8)),V())
 21338	    Etst(Vsubseq(V(),N( 2),N( 9)),V())
 21339	    Etst(Vsubseq(V(),N( 2),N(10)),V())
 21340	
 21341	    Etst(Vsubseq(V(),N( 3),N(-1)),V())
 21342	    Etst(Vsubseq(V(),N( 3),N( 0)),V())
 21343	    Etst(Vsubseq(V(),N( 3),N( 1)),V())
 21344	    Etst(Vsubseq(V(),N( 3),N( 2)),V())
 21345	    Etst(Vsubseq(V(),N( 3),N( 3)),V())
 21346	    Etst(Vsubseq(V(),N( 3),N( 4)),V())
 21347	    Etst(Vsubseq(V(),N( 3),N( 5)),V())
 21348	    Etst(Vsubseq(V(),N( 3),N( 6)),V())
 21349	    Etst(Vsubseq(V(),N( 3),N( 7)),V())
 21350	    Etst(Vsubseq(V(),N( 3),N( 8)),V())
 21351	    Etst(Vsubseq(V(),N( 3),N( 9)),V())
 21352	    Etst(Vsubseq(V(),N( 3),N(10)),V())
 21353	
 21354	    Etst(Vsubseq(V(),N( 4),N(-1)),V())
 21355	    Etst(Vsubseq(V(),N( 4),N( 0)),V())
 21356	    Etst(Vsubseq(V(),N( 4),N( 1)),V())
 21357	    Etst(Vsubseq(V(),N( 4),N( 2)),V())
 21358	    Etst(Vsubseq(V(),N( 4),N( 3)),V())
 21359	    Etst(Vsubseq(V(),N( 4),N( 4)),V())
 21360	    Etst(Vsubseq(V(),N( 4),N( 5)),V())
 21361	    Etst(Vsubseq(V(),N( 4),N( 6)),V())
 21362	    Etst(Vsubseq(V(),N( 4),N( 7)),V())
 21363	    Etst(Vsubseq(V(),N( 4),N( 8)),V())
 21364	    Etst(Vsubseq(V(),N( 4),N( 9)),V())
 21365	    Etst(Vsubseq(V(),N( 4),N(10)),V())
 21366	
 21367	    Etst(Vsubseq(V(),N( 5),N(-1)),V())
 21368	    Etst(Vsubseq(V(),N( 5),N( 0)),V())
 21369	    Etst(Vsubseq(V(),N( 5),N( 1)),V())
 21370	    Etst(Vsubseq(V(),N( 5),N( 2)),V())
 21371	    Etst(Vsubseq(V(),N( 5),N( 3)),V())
 21372	    Etst(Vsubseq(V(),N( 5),N( 4)),V())
 21373	    Etst(Vsubseq(V(),N( 5),N( 5)),V())
 21374	    Etst(Vsubseq(V(),N( 5),N( 6)),V())
 21375	    Etst(Vsubseq(V(),N( 5),N( 7)),V())
 21376	    Etst(Vsubseq(V(),N( 5),N( 8)),V())
 21377	    Etst(Vsubseq(V(),N( 5),N( 9)),V())
 21378	    Etst(Vsubseq(V(),N( 5),N(10)),V())
 21379	
 21380	    Etst(Vsubseq(V(),N( 6),N(-1)),V())
 21381	    Etst(Vsubseq(V(),N( 6),N( 0)),V())
 21382	    Etst(Vsubseq(V(),N( 6),N( 1)),V())
 21383	    Etst(Vsubseq(V(),N( 6),N( 2)),V())
 21384	    Etst(Vsubseq(V(),N( 6),N( 3)),V())
 21385	    Etst(Vsubseq(V(),N( 6),N( 4)),V())
 21386	    Etst(Vsubseq(V(),N( 6),N( 5)),V())
 21387	    Etst(Vsubseq(V(),N( 6),N( 6)),V())
 21388	    Etst(Vsubseq(V(),N( 6),N( 7)),V())
 21389	    Etst(Vsubseq(V(),N( 6),N( 8)),V())
 21390	    Etst(Vsubseq(V(),N( 6),N( 9)),V())
 21391	    Etst(Vsubseq(V(),N( 6),N(10)),V())
 21392	
 21393	    Etst(Vsubseq(V(),N( 7),N(-1)),V())
 21394	    Etst(Vsubseq(V(),N( 7),N( 0)),V())
 21395	    Etst(Vsubseq(V(),N( 7),N( 1)),V())
 21396	    Etst(Vsubseq(V(),N( 7),N( 2)),V())
 21397	    Etst(Vsubseq(V(),N( 7),N( 3)),V())
 21398	    Etst(Vsubseq(V(),N( 7),N( 4)),V())
 21399	    Etst(Vsubseq(V(),N( 7),N( 5)),V())
 21400	    Etst(Vsubseq(V(),N( 7),N( 6)),V())
 21401	    Etst(Vsubseq(V(),N( 7),N( 7)),V())
 21402	    Etst(Vsubseq(V(),N( 7),N( 8)),V())
 21403	    Etst(Vsubseq(V(),N( 7),N( 9)),V())
 21404	    Etst(Vsubseq(V(),N( 7),N(10)),V())
 21405	
 21406	    Etst(Vsubseq(V(),N( 8),N(-1)),V())
 21407	    Etst(Vsubseq(V(),N( 8),N( 0)),V())
 21408	    Etst(Vsubseq(V(),N( 8),N( 1)),V())
 21409	    Etst(Vsubseq(V(),N( 8),N( 2)),V())
 21410	    Etst(Vsubseq(V(),N( 8),N( 3)),V())
 21411	    Etst(Vsubseq(V(),N( 8),N( 4)),V())
 21412	    Etst(Vsubseq(V(),N( 8),N( 5)),V())
 21413	    Etst(Vsubseq(V(),N( 8),N( 6)),V())
 21414	    Etst(Vsubseq(V(),N( 8),N( 7)),V())
 21415	    Etst(Vsubseq(V(),N( 8),N( 8)),V())
 21416	    Etst(Vsubseq(V(),N( 8),N( 9)),V())
 21417	    Etst(Vsubseq(V(),N( 8),N(10)),V())
 21418	
 21419	    Etst(Vsubseq(V(),N( 9),N(-1)),V())
 21420	    Etst(Vsubseq(V(),N( 9),N( 0)),V())
 21421	    Etst(Vsubseq(V(),N( 9),N( 1)),V())
 21422	    Etst(Vsubseq(V(),N( 9),N( 2)),V())
 21423	    Etst(Vsubseq(V(),N( 9),N( 3)),V())
 21424	    Etst(Vsubseq(V(),N( 9),N( 4)),V())
 21425	    Etst(Vsubseq(V(),N( 9),N( 5)),V())
 21426	    Etst(Vsubseq(V(),N( 9),N( 6)),V())
 21427	    Etst(Vsubseq(V(),N( 9),N( 7)),V())
 21428	    Etst(Vsubseq(V(),N( 9),N( 8)),V())
 21429	    Etst(Vsubseq(V(),N( 9),N( 9)),V())
 21430	    Etst(Vsubseq(V(),N( 9),N(10)),V())
 21431	
 21432	    Etst(Vsubseq(V(),N(10),N(-1)),V())
 21433	    Etst(Vsubseq(V(),N(10),N( 0)),V())
 21434	    Etst(Vsubseq(V(),N(10),N( 1)),V())
 21435	    Etst(Vsubseq(V(),N(10),N( 2)),V())
 21436	    Etst(Vsubseq(V(),N(10),N( 3)),V())
 21437	    Etst(Vsubseq(V(),N(10),N( 4)),V())
 21438	    Etst(Vsubseq(V(),N(10),N( 5)),V())
 21439	    Etst(Vsubseq(V(),N(10),N( 6)),V())
 21440	    Etst(Vsubseq(V(),N(10),N( 7)),V())
 21441	    Etst(Vsubseq(V(),N(10),N( 8)),V())
 21442	    Etst(Vsubseq(V(),N(10),N( 9)),V())
 21443	    Etst(Vsubseq(V(),N(10),N(10)),V())
 21444	
 21445	    Etst(Vsubseq(V(abcdefghi),N(-1),N(-1)),V())
 21446	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 0)),V())
 21447	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 1)),V(a))
 21448	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 2)),V(ab))
 21449	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 3)),V(abc))
 21450	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 4)),V(abcd))
 21451	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 5)),V(abcde))
 21452	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 6)),V(abcdef))
 21453	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 7)),V(abcdefg))
 21454	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 8)),V(abcdefgh))
 21455	    Etst(Vsubseq(V(abcdefghi),N(-1),N( 9)),V(abcdefghi))
 21456	    Etst(Vsubseq(V(abcdefghi),N(-1),N(10)),V(abcdefghi))
 21457	
 21458	    Etst(Vsubseq(V(abcdefghi),N( 0),N(-1)),V())
 21459	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 0)),V())
 21460	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 1)),V(a))
 21461	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 2)),V(ab))
 21462	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 3)),V(abc))
 21463	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 4)),V(abcd))
 21464	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 5)),V(abcde))
 21465	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 6)),V(abcdef))
 21466	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 7)),V(abcdefg))
 21467	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 8)),V(abcdefgh))
 21468	    Etst(Vsubseq(V(abcdefghi),N( 0),N( 9)),V(abcdefghi))
 21469	    Etst(Vsubseq(V(abcdefghi),N( 0),N(10)),V(abcdefghi))
 21470	
 21471	    Etst(Vsubseq(V(abcdefghi),N( 1),N(-1)),V())
 21472	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 0)),V())
 21473	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 1)),V())
 21474	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 2)),V(b))
 21475	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 3)),V(bc))
 21476	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 4)),V(bcd))
 21477	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 5)),V(bcde))
 21478	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 6)),V(bcdef))
 21479	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 7)),V(bcdefg))
 21480	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 8)),V(bcdefgh))
 21481	    Etst(Vsubseq(V(abcdefghi),N( 1),N( 9)),V(bcdefghi))
 21482	    Etst(Vsubseq(V(abcdefghi),N( 1),N(10)),V(bcdefghi))
 21483	
 21484	    Etst(Vsubseq(V(abcdefghi),N( 2),N(-1)),V())
 21485	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 0)),V())
 21486	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 1)),V())
 21487	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 2)),V())
 21488	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 3)),V(c))
 21489	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 4)),V(cd))
 21490	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 5)),V(cde))
 21491	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 6)),V(cdef))
 21492	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 7)),V(cdefg))
 21493	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 8)),V(cdefgh))
 21494	    Etst(Vsubseq(V(abcdefghi),N( 2),N( 9)),V(cdefghi))
 21495	    Etst(Vsubseq(V(abcdefghi),N( 2),N(10)),V(cdefghi))
 21496	
 21497	    Etst(Vsubseq(V(abcdefghi),N( 3),N(-1)),V())
 21498	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 0)),V())
 21499	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 1)),V())
 21500	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 2)),V())
 21501	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 3)),V())
 21502	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 4)),V(d))
 21503	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 5)),V(de))
 21504	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 6)),V(def))
 21505	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 7)),V(defg))
 21506	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 8)),V(defgh))
 21507	    Etst(Vsubseq(V(abcdefghi),N( 3),N( 9)),V(defghi))
 21508	    Etst(Vsubseq(V(abcdefghi),N( 3),N(10)),V(defghi))
 21509	
 21510	    Etst(Vsubseq(V(abcdefghi),N( 4),N(-1)),V())
 21511	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 0)),V())
 21512	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 1)),V())
 21513	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 2)),V())
 21514	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 3)),V())
 21515	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 4)),V())
 21516	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 5)),V(e))
 21517	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 6)),V(ef))
 21518	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 7)),V(efg))
 21519	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 8)),V(efgh))
 21520	    Etst(Vsubseq(V(abcdefghi),N( 4),N( 9)),V(efghi))
 21521	    Etst(Vsubseq(V(abcdefghi),N( 4),N(10)),V(efghi))
 21522	
 21523	    Etst(Vsubseq(V(abcdefghi),N( 5),N(-1)),V())
 21524	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 0)),V())
 21525	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 1)),V())
 21526	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 2)),V())
 21527	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 3)),V())
 21528	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 4)),V())
 21529	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 5)),V())
 21530	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 6)),V(f))
 21531	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 7)),V(fg))
 21532	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 8)),V(fgh))
 21533	    Etst(Vsubseq(V(abcdefghi),N( 5),N( 9)),V(fghi))
 21534	    Etst(Vsubseq(V(abcdefghi),N( 5),N(10)),V(fghi))
 21535	
 21536	    Etst(Vsubseq(V(abcdefghi),N( 6),N(-1)),V())
 21537	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 0)),V())
 21538	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 1)),V())
 21539	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 2)),V())
 21540	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 3)),V())
 21541	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 4)),V())
 21542	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 5)),V())
 21543	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 6)),V())
 21544	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 7)),V(g))
 21545	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 8)),V(gh))
 21546	    Etst(Vsubseq(V(abcdefghi),N( 6),N( 9)),V(ghi))
 21547	    Etst(Vsubseq(V(abcdefghi),N( 6),N(10)),V(ghi))
 21548	
 21549	    Etst(Vsubseq(V(abcdefghi),N( 7),N(-1)),V())
 21550	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 0)),V())
 21551	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 1)),V())
 21552	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 2)),V())
 21553	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 3)),V())
 21554	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 4)),V())
 21555	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 5)),V())
 21556	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 6)),V())
 21557	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 7)),V())
 21558	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 8)),V(h))
 21559	    Etst(Vsubseq(V(abcdefghi),N( 7),N( 9)),V(hi))
 21560	    Etst(Vsubseq(V(abcdefghi),N( 7),N(10)),V(hi))
 21561	
 21562	    Etst(Vsubseq(V(abcdefghi),N( 8),N(-1)),V())
 21563	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 0)),V())
 21564	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 1)),V())
 21565	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 2)),V())
 21566	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 3)),V())
 21567	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 4)),V())
 21568	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 5)),V())
 21569	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 6)),V())
 21570	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 7)),V())
 21571	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 8)),V())
 21572	    Etst(Vsubseq(V(abcdefghi),N( 8),N( 9)),V(i))
 21573	    Etst(Vsubseq(V(abcdefghi),N( 8),N(10)),V(i))
 21574	
 21575	    Etst(Vsubseq(V(abcdefghi),N( 9),N(-1)),V())
 21576	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 0)),V())
 21577	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 1)),V())
 21578	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 2)),V())
 21579	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 3)),V())
 21580	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 4)),V())
 21581	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 5)),V())
 21582	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 6)),V())
 21583	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 7)),V())
 21584	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 8)),V())
 21585	    Etst(Vsubseq(V(abcdefghi),N( 9),N( 9)),V())
 21586	    Etst(Vsubseq(V(abcdefghi),N( 9),N(10)),V())
 21587	
 21588	    Etst(Vsubseq(V(abcdefghi),N(10),N(-1)),V())
 21589	    Etst(Vsubseq(V(abcdefghi),N(10),N( 0)),V())
 21590	    Etst(Vsubseq(V(abcdefghi),N(10),N( 1)),V())
 21591	    Etst(Vsubseq(V(abcdefghi),N(10),N( 2)),V())
 21592	    Etst(Vsubseq(V(abcdefghi),N(10),N( 3)),V())
 21593	    Etst(Vsubseq(V(abcdefghi),N(10),N( 4)),V())
 21594	    Etst(Vsubseq(V(abcdefghi),N(10),N( 5)),V())
 21595	    Etst(Vsubseq(V(abcdefghi),N(10),N( 6)),V())
 21596	    Etst(Vsubseq(V(abcdefghi),N(10),N( 7)),V())
 21597	    Etst(Vsubseq(V(abcdefghi),N(10),N( 8)),V())
 21598	    Etst(Vsubseq(V(abcdefghi),N(10),N( 9)),V())
 21599	    Etst(Vsubseq(V(abcdefghi),N(10),N(10)),V())
 21600	
 21601	    Xtst(V2bytes(TT))
 21602	    Xtst(V2bytes(FF))
 21603	    Xtst(V2bytes(P0))
 21604	    Xtst(V2bytes(M0))
 21605	    Xtst(V2bytes(B0))
 21606	    Etst(V2bytes(M),T)
 21607	    Etst(V2bytes(N(-1000000000000000000000000)),T)
 21608	    Etst(V2bytes(N(0)),T)
 21609	    Etst(V2bytes(N(1)),T)
 21610	    Etst(V2bytes(N(255)),T)
 21611	    Etst(V2bytes(N(256)),PAIR(N(0),T))
 21612	    Etst(V2bytes(N(65537)),PAIR(N(1),PAIR(N(0),T)))
 21613	    Etst(V2bytes(V(ABCDEFGHIJ)),
 21614	    PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),
 21615	    PAIR(N(70),PAIR(N(71),PAIR(N(72),PAIR(N(73),PAIR(N(74),T)))))))))))
 21616	    Etst(V2bytes(V(ABCDEFGHI)),
 21617	    PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),
 21618	    PAIR(N(70),PAIR(N(71),PAIR(N(72),PAIR(N(73),T))))))))))
 21619	    Etst(V2bytes(V(ABCDEFGH)),
 21620	    PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),
 21621	    PAIR(N(70),PAIR(N(71),PAIR(N(72),T)))))))))
 21622	    Etst(V2bytes(V(ABCDEFG)),
 21623	    PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),
 21624	    PAIR(N(70),PAIR(N(71),T))))))))
 21625	    Etst(V2bytes(V(ABCDEF)),
 21626	    PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),PAIR(N(70),T)))))))
 21627	    Etst(V2bytes(V(ABCDE)),
 21628	    PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),PAIR(N(69),T))))))
 21629	    Etst(V2bytes(V(ABCD)),
 21630	    PAIR(N(65),PAIR(N(66),PAIR(N(67),PAIR(N(68),T)))))
 21631	    Etst(V2bytes(V(ABC)),PAIR(N(65),PAIR(N(66),PAIR(N(67),T))))
 21632	    Etst(V2bytes(V(AB)),PAIR(N(65),PAIR(N(66),T)))
 21633	    Etst(V2bytes(V(A)),PAIR(N(65),T))
 21634	    Etst(V2bytes(V()),T)
 21635	
 21636	    Etst(Bt2bytes(T),T)
 21637	    Etst(Bt2bytes(F),T)
 21638	    Etst(Bt2bytes(M0),T)
 21639	    Etst(Bt2bytes(B0),T)
 21640	    Etst(Bt2bytes(N(-1)),T)
 21641	    Etst(Bt2bytes(N(0)),PAIR(N(0),T))
 21642	    Etst(Bt2bytes(N(255)),PAIR(N(255),T))
 21643	    Etst(Bt2bytes(N(256)),T)
 21644	    Etst(Bt2bytes(V()),PAIR(N(1),T))
 21645	    Etst(Bt2bytes(PAIR(N(1),N(2))),PAIR(N(1),PAIR(N(2),T)))
 21646	    Etst(Bt2bytes(PAIR(PAIR(N(1),N(-1)),PAIR(B0,N(100)))),
 21647	      PAIR(N(1),PAIR(N(100),T)))
 21648	
 21649	    Etst(Vt2bytes(T),T)
 21650	    Etst(Vt2bytes(F),T)
 21651	    Etst(Vt2bytes(M0),T)
 21652	    Etst(Vt2bytes(B0),T)
 21653	    Etst(Vt2bytes(N(-1)),T)
 21654	    Etst(Vt2bytes(N(0)),T)
 21655	    Etst(Vt2bytes(N(1)),T)
 21656	    Etst(Vt2bytes(N(255)),T)
 21657	    Etst(Vt2bytes(N(256)),PAIR(N(0),T))
 21658	    Etst(Vt2bytes(N(513)),PAIR(N(1),T))
 21659	    Etst(Vt2bytes(V()),T)
 21660	    Etst(Vt2bytes(V(abc)),PAIR(N(97),PAIR(N(98),PAIR(N(99),T))))
 21661	    Etst(Vt2bytes(PAIR(V(ab),V(c))),PAIR(N(97),PAIR(N(98),PAIR(N(99),T))))
 21662	    Etst(Vt2bytes(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc)))),
 21663	      PAIR(N(97),PAIR(N(98),PAIR(N(99),T))))
 21664	
 21665	    Etst(Bt2vector(T),E)
 21666	    Etst(Bt2vector(F),E)
 21667	    Etst(Bt2vector(M0),E)
 21668	    Etst(Bt2vector(B0),E)
 21669	    Etst(Bt2vector(N(-1)),E)
 21670	    Etst(Bt2vector(N(0)),N(256))
 21671	    Etst(Bt2vector(N(255)),N(511))
 21672	    Etst(Bt2vector(N(256)),E)
 21673	    Etst(Bt2vector(V()),N(257))
 21674	    Etst(Bt2vector(PAIR(N(97),N(98))),V(ab))
 21675	    Etst(Bt2vector(PAIR(PAIR(N(97),N(-1)),PAIR(B0,N(98)))),V(ab))
 21676	
 21677	    Etst(Vt2v(T),E)
 21678	    Etst(Vt2v(F),E)
 21679	    Etst(Vt2v(M0),E)
 21680	    Etst(Vt2v(B0),E)
 21681	    Etst(Vt2v(N(-1)),E)
 21682	    Etst(Vt2v(N(0)),E)
 21683	    Etst(Vt2v(N(1)),E)
 21684	    Etst(Vt2v(N(255)),E)
 21685	    Etst(Vt2v(N(256)),N(256))
 21686	    Etst(Vt2v(N(513)),N(257))
 21687	    Etst(Vt2v(V()),E)
 21688	    Etst(Vt2v(V(abc)),V(abc))
 21689	    Etst(Vt2v(PAIR(V(ab),V(c))),V(abc))
 21690	    Etst(Vt2v(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc)))),V(abc))
 21691	
 21692	    Etst(Spy(T),V(spy))
 21693	    Etst(Trace(T),V(trace))
 21694	    Etst(Print(T),V(print))
 21695	    Etst(Timer(T),V(timer))
 21696	
 21697	    Etst(And(T,T),T)
 21698	    Etst(And(T,F),F)
 21699	    Etst(And(T,Z),Z)
 21700	    Etst(And(T,X),X)
 21701	    Etst(And(F,T),F)
 21702	    Etst(And(F,F),F)
 21703	    Etst(And(F,Z),F)
 21704	    Etst(And(F,X),F)
 21705	    Etst(And(F,B),F)
 21706	    Etst(And(Z,T),Z)
 21707	    Etst(And(Z,F),Z)
 21708	    Etst(And(Z,Z),Z)
 21709	    Etst(And(Z,X),Z)
 21710	    Etst(And(Z,B),Z)
 21711	    Etst(And(X,T),X)
 21712	    Etst(And(X,F),X)
 21713	    Etst(And(X,Z),X)
 21714	    Etst(And(X,X),X)
 21715	    Etst(And(X,B),X)
 21716	
 21717	    Etst(Or(T,T),T)
 21718	    Etst(Or(T,F),T)
 21719	    Etst(Or(T,Z),T)
 21720	    Etst(Or(T,X),T)
 21721	    Etst(Or(T,B),T)
 21722	    Etst(Or(F,T),T)
 21723	    Etst(Or(F,F),F)
 21724	    Etst(Or(F,Z),Z)
 21725	    Etst(Or(F,X),X)
 21726	    Etst(Or(Z,T),T)
 21727	    Etst(Or(Z,F),F)
 21728	    Etst(Or(Z,Z),Z)
 21729	    Etst(Or(Z,X),X)
 21730	    Etst(Or(X,T),X)
 21731	    Etst(Or(X,F),X)
 21732	    Etst(Or(X,Z),X)
 21733	    Etst(Or(X,X),X)
 21734	    Etst(Or(X,B),X)
 21735	
 21736	    Etst(Then(T,T),T)
 21737	    Etst(Then(T,F),F)
 21738	    Etst(Then(T,Z),Z)
 21739	    Etst(Then(T,X),X)
 21740	    Etst(Then(F,T),T)
 21741	    Etst(Then(F,F),F)
 21742	    Etst(Then(F,Z),Z)
 21743	    Etst(Then(F,X),X)
 21744	    Etst(Then(Z,T),T)
 21745	    Etst(Then(Z,F),F)
 21746	    Etst(Then(Z,Z),Z)
 21747	    Etst(Then(Z,X),X)
 21748	    Etst(Then(X,T),X)
 21749	    Etst(Then(X,F),X)
 21750	    Etst(Then(X,Z),X)
 21751	    Etst(Then(X,X),X)
 21752	    Etst(Then(X,B),X)
 21753	
 21754	    Ttst(Root(M_true))
 21755	
 21756	    Ftst(Root(code_If))
 21757	    Ftst(Root(Apply(code_If,MT)))
 21758	    Ftst(Root(Apply(Apply(code_If,MT),MT)))
 21759	    Ttst(Root(M_If(MT,MT,MT)))
 21760	    Ttst(Root(M_If(MT,MT,MF)))
 21761	    Ftst(Root(M_If(MT,MF,MT)))
 21762	    Ftst(Root(M_If(MT,MF,MF)))
 21763	    Ttst(Root(M_If(MF,MT,MT)))
 21764	    Ftst(Root(M_If(MF,MT,MF)))
 21765	    Ttst(Root(M_If(MF,MF,MT)))
 21766	    Ftst(Root(M_If(MF,MF,MF)))
 21767	
 21768	    Ftst(Root(code_ap))
 21769	    Ftst(Root(Apply(code_ap,MKI)))
 21770	    Ttst(Root(M_ap(MT,MT)))
 21771	    Ttst(Root(M_ap(MT,MF)))
 21772	    Ttst(Root(M_ap(MT,MI)))
 21773	    Ttst(Root(M_ap(MF,MT)))
 21774	    Ttst(Root(M_ap(MF,MF)))
 21775	    Ttst(Root(M_ap(MF,MI)))
 21776	    Ttst(Root(M_ap(MI,MT)))
 21777	    Ftst(Root(M_ap(MI,MF)))
 21778	    Ftst(Root(M_ap(MI,MI)))
 21779	    Ftst(Root(M_ap(MK,MT)))
 21780	    Ftst(Root(M_ap(MK,MF)))
 21781	    Ftst(Root(M_ap(MK,MI)))
 21782	
 21783	    Etst(Pair(Z0,Z1),Pair(Z0,Z1))
 21784	    Utst(Pair(Z0,Z1),Pair(Z3,Z1))
 21785	    Utst(Pair(Z0,Z1),Pair(Z0,Z3))
 21786	    Etst(Pair(X0,Z1),X0)
 21787	    Etst(Pair(Z0,X1),X1)
 21788	    Etst(Pair(X0,X1),X0)
 21789	
 21790	    Etst(Head(TT),TT)
 21791	    Etst(Head(FF),FF)
 21792	    Etst(Head(Z0),Z0)
 21793	    Etst(Head(X0),X0)
 21794	    Etst(Head(M0),M0)
 21795	    Etst(Head(B0),B0)
 21796	    Etst(Head(Pair(Z0,Z1)),Z0)
 21797	
 21798	    Etst(Tail(TT),TT)
 21799	    Etst(Tail(FF),FF)
 21800	    Etst(Tail(Z0),Z0)
 21801	    Etst(Tail(X0),X0)
 21802	    Etst(Tail(M0),M0)
 21803	    Etst(Tail(B0),B0)
 21804	    Etst(Tail(Pair(Z0,Z1)),Z1)
 21805	
 21806	    Etst(Boolp(TT),TT)
 21807	    Etst(Boolp(FF),TT)
 21808	    Etst(Boolp(Z0),FF)
 21809	    Etst(Boolp(P0),FF)
 21810	    Etst(Boolp(X0),X0)
 21811	    Etst(Boolp(M0),FF)
 21812	    Etst(Boolp(B0),FF)
 21813	
 21814	    Etst(Notnot(TT),TT)
 21815	    Etst(Notnot(FF),FF)
 21816	    Etst(Notnot(Z0),FF)
 21817	    Etst(Notnot(P0),FF)
 21818	    Etst(Notnot(X0),X0)
 21819	    Etst(Notnot(M0),FF)
 21820	    Etst(Notnot(B0),FF)
 21821	
 21822	    Etst(If(TT,Z1,Z2),Z1)
 21823	    Etst(If(FF,Z1,Z2),Z2)
 21824	    Etst(If(Z0,Z1,Z2),Z2)
 21825	    Etst(If(P0,Z1,Z2),Z2)
 21826	    Etst(If(X0,Z1,Z2),X0)
 21827	    Etst(If(M0,Z1,Z2),Z2)
 21828	    Etst(If(B0,Z1,Z2),Z2)
 21829	
 21830	    Etst(If(TT,X1,Z2),X1)
 21831	    Etst(If(FF,X1,Z2),Z2)
 21832	    Etst(If(Z0,X1,Z2),Z2)
 21833	    Etst(If(P0,X1,Z2),Z2)
 21834	    Etst(If(X0,X1,Z2),X0)
 21835	    Etst(If(M0,X1,Z2),Z2)
 21836	    Etst(If(B0,X1,Z2),Z2)
 21837	
 21838	    Etst(If(TT,Z1,X2),Z1)
 21839	    Etst(If(FF,Z1,X2),X2)
 21840	    Etst(If(Z0,Z1,X2),X2)
 21841	    Etst(If(P0,Z1,X2),X2)
 21842	    Etst(If(X0,Z1,X2),X0)
 21843	    Etst(If(M0,Z1,X2),X2)
 21844	    Etst(If(B0,Z1,X2),X2)
 21845	
 21846	    Etst(If(TT,Z1,BB),Z1)
 21847	    Etst(If(FF,BB,Z2),Z2)
 21848	    Etst(If(Z0,BB,Z2),Z2)
 21849	    Etst(If(P0,BB,Z2),Z2)
 21850	    Etst(If(X0,BB,Z2),X0)
 21851	    Etst(If(M0,BB,Z2),Z2)
 21852	    Etst(If(B0,BB,Z2),Z2)
 21853	
 21854	    Etst(Catch(TT),Pair(FF,TT))
 21855	    Etst(Catch(FF),Pair(FF,FF))
 21856	    Etst(Catch(Z0),Pair(FF,Z0))
 21857	    Etst(Catch(P0),Pair(FF,P0))
 21858	    Etst(Catch(X0),Pair(TT,I[0]))
 21859	    Etst(Catch(X1),Pair(TT,I[1]))
 21860	    Etst(Catch(X2),Pair(TT,I[2]))
 21861	    Etst(Catch(X3),Pair(TT,I[3]))
 21862	    Etst(Catch(M0),Pair(FF,M0))
 21863	    Etst(Catch(B0),Pair(FF,B0))
 21864	
 21865	    Etst(Catch(Raise(TT)),Pair(TT,TT))
 21866	    Etst(Catch(Raise(FF)),Pair(TT,FF))
 21867	    Etst(Catch(Raise(Z0)),Pair(TT,Z0))
 21868	    Etst(Catch(Raise(EE)),Pair(TT,EE))
 21869	    Etst(Catch(Raise(P0)),Pair(TT,P0))
 21870	    Etst(Catch(Raise(M0)),Pair(TT,M0))
 21871	    Etst(Catch(Raise(B0)),Pair(TT,B0))
 21872	    Etst(Catch(Raise(Raise(TT))),Pair(TT,TT))
 21873	    Etst(Catch(Raise(Raise(FF))),Pair(TT,FF))
 21874	    Etst(Catch(Raise(Raise(Z0))),Pair(TT,Z0))
 21875	    Etst(Catch(Raise(Raise(EE))),Pair(TT,EE))
 21876	    Etst(Catch(Raise(Raise(P0))),Pair(TT,P0))
 21877	    Etst(Catch(Raise(Raise(M0))),Pair(TT,M0))
 21878	    Etst(Catch(Raise(Raise(B0))),Pair(TT,B0))
 21879	
 21880	    Xtst(Floor(TT,TT))
 21881	    Xtst(Floor(TT,FF))
 21882	    Xtst(Floor(TT,I0))
 21883	    Xtst(Floor(TT,P0))
 21884	    Xtst(Floor(TT,M0))
 21885	    Xtst(Floor(TT,B0))
 21886	    Xtst(Floor(FF,TT))
 21887	    Xtst(Floor(FF,FF))
 21888	    Xtst(Floor(FF,I0))
 21889	    Xtst(Floor(FF,P0))
 21890	    Xtst(Floor(FF,M0))
 21891	    Xtst(Floor(FF,B0))
 21892	    Xtst(Floor(I0,TT))
 21893	    Xtst(Floor(I0,FF))
 21894	    Xtst(Floor(I0,P0))
 21895	    Xtst(Floor(I0,M0))
 21896	    Xtst(Floor(I0,B0))
 21897	    Xtst(Floor(P0,TT))
 21898	    Xtst(Floor(P0,FF))
 21899	    Xtst(Floor(P0,I0))
 21900	    Xtst(Floor(P0,P0))
 21901	    Xtst(Floor(P0,M0))
 21902	    Xtst(Floor(P0,B0))
 21903	    Xtst(Floor(M0,TT))
 21904	    Xtst(Floor(M0,FF))
 21905	    Xtst(Floor(M0,I0))
 21906	    Xtst(Floor(M0,P0))
 21907	    Xtst(Floor(M0,M0))
 21908	    Xtst(Floor(M0,B0))
 21909	    Xtst(Floor(B0,TT))
 21910	    Xtst(Floor(B0,FF))
 21911	    Xtst(Floor(B0,I0))
 21912	    Xtst(Floor(B0,P0))
 21913	    Xtst(Floor(B0,M0))
 21914	    Xtst(Floor(B0,B0))
 21915	    Xtst(Floor(I0,Z))
 21916	    Xtst(Floor(I0,M))
 21917	
 21918	    Etst(Floor(N(-9),N(1)),PAIR(N(-9),N(0)))
 21919	    Etst(Floor(N(-8),N(1)),PAIR(N(-8),N(0)))
 21920	    Etst(Floor(N(-7),N(1)),PAIR(N(-7),N(0)))
 21921	    Etst(Floor(N(-6),N(1)),PAIR(N(-6),N(0)))
 21922	    Etst(Floor(N(-5),N(1)),PAIR(N(-5),N(0)))
 21923	    Etst(Floor(N(-4),N(1)),PAIR(N(-4),N(0)))
 21924	    Etst(Floor(N(-3),N(1)),PAIR(N(-3),N(0)))
 21925	    Etst(Floor(N(-2),N(1)),PAIR(N(-2),N(0)))
 21926	    Etst(Floor(N(-1),N(1)),PAIR(N(-1),N(0)))
 21927	    Etst(Floor(N( 0),N(1)),PAIR(N( 0),N(0)))
 21928	    Etst(Floor(N( 1),N(1)),PAIR(N( 1),N(0)))
 21929	    Etst(Floor(N( 2),N(1)),PAIR(N( 2),N(0)))
 21930	    Etst(Floor(N( 3),N(1)),PAIR(N( 3),N(0)))
 21931	    Etst(Floor(N( 4),N(1)),PAIR(N( 4),N(0)))
 21932	    Etst(Floor(N( 5),N(1)),PAIR(N( 5),N(0)))
 21933	    Etst(Floor(N( 6),N(1)),PAIR(N( 6),N(0)))
 21934	    Etst(Floor(N( 7),N(1)),PAIR(N( 7),N(0)))
 21935	    Etst(Floor(N( 8),N(1)),PAIR(N( 8),N(0)))
 21936	    Etst(Floor(N( 9),N(1)),PAIR(N( 9),N(0)))
 21937	
 21938	    Etst(Floor(N(-9),N(2)),PAIR(N(-5),N(1)))
 21939	    Etst(Floor(N(-8),N(2)),PAIR(N(-4),N(0)))
 21940	    Etst(Floor(N(-7),N(2)),PAIR(N(-4),N(1)))
 21941	    Etst(Floor(N(-6),N(2)),PAIR(N(-3),N(0)))
 21942	    Etst(Floor(N(-5),N(2)),PAIR(N(-3),N(1)))
 21943	    Etst(Floor(N(-4),N(2)),PAIR(N(-2),N(0)))
 21944	    Etst(Floor(N(-3),N(2)),PAIR(N(-2),N(1)))
 21945	    Etst(Floor(N(-2),N(2)),PAIR(N(-1),N(0)))
 21946	    Etst(Floor(N(-1),N(2)),PAIR(N(-1),N(1)))
 21947	    Etst(Floor(N( 0),N(2)),PAIR(N( 0),N(0)))
 21948	    Etst(Floor(N( 1),N(2)),PAIR(N( 0),N(1)))
 21949	    Etst(Floor(N( 2),N(2)),PAIR(N( 1),N(0)))
 21950	    Etst(Floor(N( 3),N(2)),PAIR(N( 1),N(1)))
 21951	    Etst(Floor(N( 4),N(2)),PAIR(N( 2),N(0)))
 21952	    Etst(Floor(N( 5),N(2)),PAIR(N( 2),N(1)))
 21953	    Etst(Floor(N( 6),N(2)),PAIR(N( 3),N(0)))
 21954	    Etst(Floor(N( 7),N(2)),PAIR(N( 3),N(1)))
 21955	    Etst(Floor(N( 8),N(2)),PAIR(N( 4),N(0)))
 21956	    Etst(Floor(N( 9),N(2)),PAIR(N( 4),N(1)))
 21957	
 21958	    Etst(Floor(N(-9),N(3)),PAIR(N(-3),N(0)))
 21959	    Etst(Floor(N(-8),N(3)),PAIR(N(-3),N(1)))
 21960	    Etst(Floor(N(-7),N(3)),PAIR(N(-3),N(2)))
 21961	    Etst(Floor(N(-6),N(3)),PAIR(N(-2),N(0)))
 21962	    Etst(Floor(N(-5),N(3)),PAIR(N(-2),N(1)))
 21963	    Etst(Floor(N(-4),N(3)),PAIR(N(-2),N(2)))
 21964	    Etst(Floor(N(-3),N(3)),PAIR(N(-1),N(0)))
 21965	    Etst(Floor(N(-2),N(3)),PAIR(N(-1),N(1)))
 21966	    Etst(Floor(N(-1),N(3)),PAIR(N(-1),N(2)))
 21967	    Etst(Floor(N( 0),N(3)),PAIR(N( 0),N(0)))
 21968	    Etst(Floor(N( 1),N(3)),PAIR(N( 0),N(1)))
 21969	    Etst(Floor(N( 2),N(3)),PAIR(N( 0),N(2)))
 21970	    Etst(Floor(N( 3),N(3)),PAIR(N( 1),N(0)))
 21971	    Etst(Floor(N( 4),N(3)),PAIR(N( 1),N(1)))
 21972	    Etst(Floor(N( 5),N(3)),PAIR(N( 1),N(2)))
 21973	    Etst(Floor(N( 6),N(3)),PAIR(N( 2),N(0)))
 21974	    Etst(Floor(N( 7),N(3)),PAIR(N( 2),N(1)))
 21975	    Etst(Floor(N( 8),N(3)),PAIR(N( 2),N(2)))
 21976	    Etst(Floor(N( 9),N(3)),PAIR(N( 3),N(0)))
 21977	
 21978	    Etst(Floor(N(-9),N(4)),PAIR(N(-3),N(3)))
 21979	    Etst(Floor(N(-8),N(4)),PAIR(N(-2),N(0)))
 21980	    Etst(Floor(N(-7),N(4)),PAIR(N(-2),N(1)))
 21981	    Etst(Floor(N(-6),N(4)),PAIR(N(-2),N(2)))
 21982	    Etst(Floor(N(-5),N(4)),PAIR(N(-2),N(3)))
 21983	    Etst(Floor(N(-4),N(4)),PAIR(N(-1),N(0)))
 21984	    Etst(Floor(N(-3),N(4)),PAIR(N(-1),N(1)))
 21985	    Etst(Floor(N(-2),N(4)),PAIR(N(-1),N(2)))
 21986	    Etst(Floor(N(-1),N(4)),PAIR(N(-1),N(3)))
 21987	    Etst(Floor(N( 0),N(4)),PAIR(N( 0),N(0)))
 21988	    Etst(Floor(N( 1),N(4)),PAIR(N( 0),N(1)))
 21989	    Etst(Floor(N( 2),N(4)),PAIR(N( 0),N(2)))
 21990	    Etst(Floor(N( 3),N(4)),PAIR(N( 0),N(3)))
 21991	    Etst(Floor(N( 4),N(4)),PAIR(N( 1),N(0)))
 21992	    Etst(Floor(N( 5),N(4)),PAIR(N( 1),N(1)))
 21993	    Etst(Floor(N( 6),N(4)),PAIR(N( 1),N(2)))
 21994	    Etst(Floor(N( 7),N(4)),PAIR(N( 1),N(3)))
 21995	    Etst(Floor(N( 8),N(4)),PAIR(N( 2),N(0)))
 21996	    Etst(Floor(N( 9),N(4)),PAIR(N( 2),N(1)))
 21997	
 21998	    Etst(Floor(N(-9),N(5)),PAIR(N(-2),N(1)))
 21999	    Etst(Floor(N(-8),N(5)),PAIR(N(-2),N(2)))
 22000	    Etst(Floor(N(-7),N(5)),PAIR(N(-2),N(3)))
 22001	    Etst(Floor(N(-6),N(5)),PAIR(N(-2),N(4)))
 22002	    Etst(Floor(N(-5),N(5)),PAIR(N(-1),N(0)))
 22003	    Etst(Floor(N(-4),N(5)),PAIR(N(-1),N(1)))
 22004	    Etst(Floor(N(-3),N(5)),PAIR(N(-1),N(2)))
 22005	    Etst(Floor(N(-2),N(5)),PAIR(N(-1),N(3)))
 22006	    Etst(Floor(N(-1),N(5)),PAIR(N(-1),N(4)))
 22007	    Etst(Floor(N( 0),N(5)),PAIR(N( 0),N(0)))
 22008	    Etst(Floor(N( 1),N(5)),PAIR(N( 0),N(1)))
 22009	    Etst(Floor(N( 2),N(5)),PAIR(N( 0),N(2)))
 22010	    Etst(Floor(N( 3),N(5)),PAIR(N( 0),N(3)))
 22011	    Etst(Floor(N( 4),N(5)),PAIR(N( 0),N(4)))
 22012	    Etst(Floor(N( 5),N(5)),PAIR(N( 1),N(0)))
 22013	    Etst(Floor(N( 6),N(5)),PAIR(N( 1),N(1)))
 22014	    Etst(Floor(N( 7),N(5)),PAIR(N( 1),N(2)))
 22015	    Etst(Floor(N( 8),N(5)),PAIR(N( 1),N(3)))
 22016	    Etst(Floor(N( 9),N(5)),PAIR(N( 1),N(4)))
 22017	
 22018	    Etst(Floor(N(-9),N(6)),PAIR(N(-2),N(3)))
 22019	    Etst(Floor(N(-8),N(6)),PAIR(N(-2),N(4)))
 22020	    Etst(Floor(N(-7),N(6)),PAIR(N(-2),N(5)))
 22021	    Etst(Floor(N(-6),N(6)),PAIR(N(-1),N(0)))
 22022	    Etst(Floor(N(-5),N(6)),PAIR(N(-1),N(1)))
 22023	    Etst(Floor(N(-4),N(6)),PAIR(N(-1),N(2)))
 22024	    Etst(Floor(N(-3),N(6)),PAIR(N(-1),N(3)))
 22025	    Etst(Floor(N(-2),N(6)),PAIR(N(-1),N(4)))
 22026	    Etst(Floor(N(-1),N(6)),PAIR(N(-1),N(5)))
 22027	    Etst(Floor(N( 0),N(6)),PAIR(N( 0),N(0)))
 22028	    Etst(Floor(N( 1),N(6)),PAIR(N( 0),N(1)))
 22029	    Etst(Floor(N( 2),N(6)),PAIR(N( 0),N(2)))
 22030	    Etst(Floor(N( 3),N(6)),PAIR(N( 0),N(3)))
 22031	    Etst(Floor(N( 4),N(6)),PAIR(N( 0),N(4)))
 22032	    Etst(Floor(N( 5),N(6)),PAIR(N( 0),N(5)))
 22033	    Etst(Floor(N( 6),N(6)),PAIR(N( 1),N(0)))
 22034	    Etst(Floor(N( 7),N(6)),PAIR(N( 1),N(1)))
 22035	    Etst(Floor(N( 8),N(6)),PAIR(N( 1),N(2)))
 22036	    Etst(Floor(N( 9),N(6)),PAIR(N( 1),N(3)))
 22037	
 22038	    Etst(Floor(N(-9),N(7)),PAIR(N(-2),N(5)))
 22039	    Etst(Floor(N(-8),N(7)),PAIR(N(-2),N(6)))
 22040	    Etst(Floor(N(-7),N(7)),PAIR(N(-1),N(0)))
 22041	    Etst(Floor(N(-6),N(7)),PAIR(N(-1),N(1)))
 22042	    Etst(Floor(N(-5),N(7)),PAIR(N(-1),N(2)))
 22043	    Etst(Floor(N(-4),N(7)),PAIR(N(-1),N(3)))
 22044	    Etst(Floor(N(-3),N(7)),PAIR(N(-1),N(4)))
 22045	    Etst(Floor(N(-2),N(7)),PAIR(N(-1),N(5)))
 22046	    Etst(Floor(N(-1),N(7)),PAIR(N(-1),N(6)))
 22047	    Etst(Floor(N( 0),N(7)),PAIR(N( 0),N(0)))
 22048	    Etst(Floor(N( 1),N(7)),PAIR(N( 0),N(1)))
 22049	    Etst(Floor(N( 2),N(7)),PAIR(N( 0),N(2)))
 22050	    Etst(Floor(N( 3),N(7)),PAIR(N( 0),N(3)))
 22051	    Etst(Floor(N( 4),N(7)),PAIR(N( 0),N(4)))
 22052	    Etst(Floor(N( 5),N(7)),PAIR(N( 0),N(5)))
 22053	    Etst(Floor(N( 6),N(7)),PAIR(N( 0),N(6)))
 22054	    Etst(Floor(N( 7),N(7)),PAIR(N( 1),N(0)))
 22055	    Etst(Floor(N( 8),N(7)),PAIR(N( 1),N(1)))
 22056	    Etst(Floor(N( 9),N(7)),PAIR(N( 1),N(2)))
 22057	
 22058	    Etst(Floor(N(-9),N(8)),PAIR(N(-2),N(7)))
 22059	    Etst(Floor(N(-8),N(8)),PAIR(N(-1),N(0)))
 22060	    Etst(Floor(N(-7),N(8)),PAIR(N(-1),N(1)))
 22061	    Etst(Floor(N(-6),N(8)),PAIR(N(-1),N(2)))
 22062	    Etst(Floor(N(-5),N(8)),PAIR(N(-1),N(3)))
 22063	    Etst(Floor(N(-4),N(8)),PAIR(N(-1),N(4)))
 22064	    Etst(Floor(N(-3),N(8)),PAIR(N(-1),N(5)))
 22065	    Etst(Floor(N(-2),N(8)),PAIR(N(-1),N(6)))
 22066	    Etst(Floor(N(-1),N(8)),PAIR(N(-1),N(7)))
 22067	    Etst(Floor(N( 0),N(8)),PAIR(N( 0),N(0)))
 22068	    Etst(Floor(N( 1),N(8)),PAIR(N( 0),N(1)))
 22069	    Etst(Floor(N( 2),N(8)),PAIR(N( 0),N(2)))
 22070	    Etst(Floor(N( 3),N(8)),PAIR(N( 0),N(3)))
 22071	    Etst(Floor(N( 4),N(8)),PAIR(N( 0),N(4)))
 22072	    Etst(Floor(N( 5),N(8)),PAIR(N( 0),N(5)))
 22073	    Etst(Floor(N( 6),N(8)),PAIR(N( 0),N(6)))
 22074	    Etst(Floor(N( 7),N(8)),PAIR(N( 0),N(7)))
 22075	    Etst(Floor(N( 8),N(8)),PAIR(N( 1),N(0)))
 22076	    Etst(Floor(N( 9),N(8)),PAIR(N( 1),N(1)))
 22077	
 22078	    Etst(Floor(N(-9),N(9)),PAIR(N(-1),N(0)))
 22079	    Etst(Floor(N(-8),N(9)),PAIR(N(-1),N(1)))
 22080	    Etst(Floor(N(-7),N(9)),PAIR(N(-1),N(2)))
 22081	    Etst(Floor(N(-6),N(9)),PAIR(N(-1),N(3)))
 22082	    Etst(Floor(N(-5),N(9)),PAIR(N(-1),N(4)))
 22083	    Etst(Floor(N(-4),N(9)),PAIR(N(-1),N(5)))
 22084	    Etst(Floor(N(-3),N(9)),PAIR(N(-1),N(6)))
 22085	    Etst(Floor(N(-2),N(9)),PAIR(N(-1),N(7)))
 22086	    Etst(Floor(N(-1),N(9)),PAIR(N(-1),N(8)))
 22087	    Etst(Floor(N( 0),N(9)),PAIR(N( 0),N(0)))
 22088	    Etst(Floor(N( 1),N(9)),PAIR(N( 0),N(1)))
 22089	    Etst(Floor(N( 2),N(9)),PAIR(N( 0),N(2)))
 22090	    Etst(Floor(N( 3),N(9)),PAIR(N( 0),N(3)))
 22091	    Etst(Floor(N( 4),N(9)),PAIR(N( 0),N(4)))
 22092	    Etst(Floor(N( 5),N(9)),PAIR(N( 0),N(5)))
 22093	    Etst(Floor(N( 6),N(9)),PAIR(N( 0),N(6)))
 22094	    Etst(Floor(N( 7),N(9)),PAIR(N( 0),N(7)))
 22095	    Etst(Floor(N( 8),N(9)),PAIR(N( 0),N(8)))
 22096	    Etst(Floor(N( 9),N(9)),PAIR(N( 1),N(0)))
 22097	
 22098	    Xtst(Ceiling(TT,TT))
 22099	    Xtst(Ceiling(TT,FF))
 22100	    Xtst(Ceiling(TT,I0))
 22101	    Xtst(Ceiling(TT,P0))
 22102	    Xtst(Ceiling(TT,M0))
 22103	    Xtst(Ceiling(TT,B0))
 22104	    Xtst(Ceiling(FF,TT))
 22105	    Xtst(Ceiling(FF,FF))
 22106	    Xtst(Ceiling(FF,I0))
 22107	    Xtst(Ceiling(FF,P0))
 22108	    Xtst(Ceiling(FF,M0))
 22109	    Xtst(Ceiling(FF,B0))
 22110	    Xtst(Ceiling(I0,TT))
 22111	    Xtst(Ceiling(I0,FF))
 22112	    Xtst(Ceiling(I0,P0))
 22113	    Xtst(Ceiling(I0,M0))
 22114	    Xtst(Ceiling(I0,B0))
 22115	    Xtst(Ceiling(P0,TT))
 22116	    Xtst(Ceiling(P0,FF))
 22117	    Xtst(Ceiling(P0,I0))
 22118	    Xtst(Ceiling(P0,P0))
 22119	    Xtst(Ceiling(P0,M0))
 22120	    Xtst(Ceiling(P0,B0))
 22121	    Xtst(Ceiling(M0,TT))
 22122	    Xtst(Ceiling(M0,FF))
 22123	    Xtst(Ceiling(M0,I0))
 22124	    Xtst(Ceiling(M0,P0))
 22125	    Xtst(Ceiling(M0,M0))
 22126	    Xtst(Ceiling(M0,B0))
 22127	    Xtst(Ceiling(B0,TT))
 22128	    Xtst(Ceiling(B0,FF))
 22129	    Xtst(Ceiling(B0,I0))
 22130	    Xtst(Ceiling(B0,P0))
 22131	    Xtst(Ceiling(B0,M0))
 22132	    Xtst(Ceiling(B0,B0))
 22133	    Xtst(Ceiling(I0,Z))
 22134	    Xtst(Ceiling(I0,M))
 22135	
 22136	    Etst(Ceiling(N( 9),N(1)),PAIR(N( 9),N( 0)))
 22137	    Etst(Ceiling(N( 8),N(1)),PAIR(N( 8),N( 0)))
 22138	    Etst(Ceiling(N( 7),N(1)),PAIR(N( 7),N( 0)))
 22139	    Etst(Ceiling(N( 6),N(1)),PAIR(N( 6),N( 0)))
 22140	    Etst(Ceiling(N( 5),N(1)),PAIR(N( 5),N( 0)))
 22141	    Etst(Ceiling(N( 4),N(1)),PAIR(N( 4),N( 0)))
 22142	    Etst(Ceiling(N( 3),N(1)),PAIR(N( 3),N( 0)))
 22143	    Etst(Ceiling(N( 2),N(1)),PAIR(N( 2),N( 0)))
 22144	    Etst(Ceiling(N( 1),N(1)),PAIR(N( 1),N( 0)))
 22145	    Etst(Ceiling(N( 0),N(1)),PAIR(N( 0),N( 0)))
 22146	    Etst(Ceiling(N(-1),N(1)),PAIR(N(-1),N( 0)))
 22147	    Etst(Ceiling(N(-2),N(1)),PAIR(N(-2),N( 0)))
 22148	    Etst(Ceiling(N(-3),N(1)),PAIR(N(-3),N( 0)))
 22149	    Etst(Ceiling(N(-4),N(1)),PAIR(N(-4),N( 0)))
 22150	    Etst(Ceiling(N(-5),N(1)),PAIR(N(-5),N( 0)))
 22151	    Etst(Ceiling(N(-6),N(1)),PAIR(N(-6),N( 0)))
 22152	    Etst(Ceiling(N(-7),N(1)),PAIR(N(-7),N( 0)))
 22153	    Etst(Ceiling(N(-8),N(1)),PAIR(N(-8),N( 0)))
 22154	    Etst(Ceiling(N(-9),N(1)),PAIR(N(-9),N( 0)))
 22155	
 22156	    Etst(Ceiling(N( 9),N(2)),PAIR(N( 5),N(-1)))
 22157	    Etst(Ceiling(N( 8),N(2)),PAIR(N( 4),N( 0)))
 22158	    Etst(Ceiling(N( 7),N(2)),PAIR(N( 4),N(-1)))
 22159	    Etst(Ceiling(N( 6),N(2)),PAIR(N( 3),N( 0)))
 22160	    Etst(Ceiling(N( 5),N(2)),PAIR(N( 3),N(-1)))
 22161	    Etst(Ceiling(N( 4),N(2)),PAIR(N( 2),N( 0)))
 22162	    Etst(Ceiling(N( 3),N(2)),PAIR(N( 2),N(-1)))
 22163	    Etst(Ceiling(N( 2),N(2)),PAIR(N( 1),N( 0)))
 22164	    Etst(Ceiling(N( 1),N(2)),PAIR(N( 1),N(-1)))
 22165	    Etst(Ceiling(N( 0),N(2)),PAIR(N( 0),N( 0)))
 22166	    Etst(Ceiling(N(-1),N(2)),PAIR(N( 0),N(-1)))
 22167	    Etst(Ceiling(N(-2),N(2)),PAIR(N(-1),N( 0)))
 22168	    Etst(Ceiling(N(-3),N(2)),PAIR(N(-1),N(-1)))
 22169	    Etst(Ceiling(N(-4),N(2)),PAIR(N(-2),N( 0)))
 22170	    Etst(Ceiling(N(-5),N(2)),PAIR(N(-2),N(-1)))
 22171	    Etst(Ceiling(N(-6),N(2)),PAIR(N(-3),N( 0)))
 22172	    Etst(Ceiling(N(-7),N(2)),PAIR(N(-3),N(-1)))
 22173	    Etst(Ceiling(N(-8),N(2)),PAIR(N(-4),N( 0)))
 22174	    Etst(Ceiling(N(-9),N(2)),PAIR(N(-4),N(-1)))
 22175	
 22176	    Etst(Ceiling(N( 9),N(3)),PAIR(N( 3),N( 0)))
 22177	    Etst(Ceiling(N( 8),N(3)),PAIR(N( 3),N(-1)))
 22178	    Etst(Ceiling(N( 7),N(3)),PAIR(N( 3),N(-2)))
 22179	    Etst(Ceiling(N( 6),N(3)),PAIR(N( 2),N( 0)))
 22180	    Etst(Ceiling(N( 5),N(3)),PAIR(N( 2),N(-1)))
 22181	    Etst(Ceiling(N( 4),N(3)),PAIR(N( 2),N(-2)))
 22182	    Etst(Ceiling(N( 3),N(3)),PAIR(N( 1),N( 0)))
 22183	    Etst(Ceiling(N( 2),N(3)),PAIR(N( 1),N(-1)))
 22184	    Etst(Ceiling(N( 1),N(3)),PAIR(N( 1),N(-2)))
 22185	    Etst(Ceiling(N( 0),N(3)),PAIR(N( 0),N( 0)))
 22186	    Etst(Ceiling(N(-1),N(3)),PAIR(N( 0),N(-1)))
 22187	    Etst(Ceiling(N(-2),N(3)),PAIR(N( 0),N(-2)))
 22188	    Etst(Ceiling(N(-3),N(3)),PAIR(N(-1),N( 0)))
 22189	    Etst(Ceiling(N(-4),N(3)),PAIR(N(-1),N(-1)))
 22190	    Etst(Ceiling(N(-5),N(3)),PAIR(N(-1),N(-2)))
 22191	    Etst(Ceiling(N(-6),N(3)),PAIR(N(-2),N( 0)))
 22192	    Etst(Ceiling(N(-7),N(3)),PAIR(N(-2),N(-1)))
 22193	    Etst(Ceiling(N(-8),N(3)),PAIR(N(-2),N(-2)))
 22194	    Etst(Ceiling(N(-9),N(3)),PAIR(N(-3),N( 0)))
 22195	
 22196	    Etst(Ceiling(N( 9),N(4)),PAIR(N( 3),N(-3)))
 22197	    Etst(Ceiling(N( 8),N(4)),PAIR(N( 2),N( 0)))
 22198	    Etst(Ceiling(N( 7),N(4)),PAIR(N( 2),N(-1)))
 22199	    Etst(Ceiling(N( 6),N(4)),PAIR(N( 2),N(-2)))
 22200	    Etst(Ceiling(N( 5),N(4)),PAIR(N( 2),N(-3)))
 22201	    Etst(Ceiling(N( 4),N(4)),PAIR(N( 1),N( 0)))
 22202	    Etst(Ceiling(N( 3),N(4)),PAIR(N( 1),N(-1)))
 22203	    Etst(Ceiling(N( 2),N(4)),PAIR(N( 1),N(-2)))
 22204	    Etst(Ceiling(N( 1),N(4)),PAIR(N( 1),N(-3)))
 22205	    Etst(Ceiling(N( 0),N(4)),PAIR(N( 0),N( 0)))
 22206	    Etst(Ceiling(N(-1),N(4)),PAIR(N( 0),N(-1)))
 22207	    Etst(Ceiling(N(-2),N(4)),PAIR(N( 0),N(-2)))
 22208	    Etst(Ceiling(N(-3),N(4)),PAIR(N( 0),N(-3)))
 22209	    Etst(Ceiling(N(-4),N(4)),PAIR(N(-1),N( 0)))
 22210	    Etst(Ceiling(N(-5),N(4)),PAIR(N(-1),N(-1)))
 22211	    Etst(Ceiling(N(-6),N(4)),PAIR(N(-1),N(-2)))
 22212	    Etst(Ceiling(N(-7),N(4)),PAIR(N(-1),N(-3)))
 22213	    Etst(Ceiling(N(-8),N(4)),PAIR(N(-2),N( 0)))
 22214	    Etst(Ceiling(N(-9),N(4)),PAIR(N(-2),N(-1)))
 22215	
 22216	    Etst(Ceiling(N( 9),N(5)),PAIR(N( 2),N(-1)))
 22217	    Etst(Ceiling(N( 8),N(5)),PAIR(N( 2),N(-2)))
 22218	    Etst(Ceiling(N( 7),N(5)),PAIR(N( 2),N(-3)))
 22219	    Etst(Ceiling(N( 6),N(5)),PAIR(N( 2),N(-4)))
 22220	    Etst(Ceiling(N( 5),N(5)),PAIR(N( 1),N( 0)))
 22221	    Etst(Ceiling(N( 4),N(5)),PAIR(N( 1),N(-1)))
 22222	    Etst(Ceiling(N( 3),N(5)),PAIR(N( 1),N(-2)))
 22223	    Etst(Ceiling(N( 2),N(5)),PAIR(N( 1),N(-3)))
 22224	    Etst(Ceiling(N( 1),N(5)),PAIR(N( 1),N(-4)))
 22225	    Etst(Ceiling(N( 0),N(5)),PAIR(N( 0),N( 0)))
 22226	    Etst(Ceiling(N(-1),N(5)),PAIR(N( 0),N(-1)))
 22227	    Etst(Ceiling(N(-2),N(5)),PAIR(N( 0),N(-2)))
 22228	    Etst(Ceiling(N(-3),N(5)),PAIR(N( 0),N(-3)))
 22229	    Etst(Ceiling(N(-4),N(5)),PAIR(N( 0),N(-4)))
 22230	    Etst(Ceiling(N(-5),N(5)),PAIR(N(-1),N( 0)))
 22231	    Etst(Ceiling(N(-6),N(5)),PAIR(N(-1),N(-1)))
 22232	    Etst(Ceiling(N(-7),N(5)),PAIR(N(-1),N(-2)))
 22233	    Etst(Ceiling(N(-8),N(5)),PAIR(N(-1),N(-3)))
 22234	    Etst(Ceiling(N(-9),N(5)),PAIR(N(-1),N(-4)))
 22235	
 22236	    Etst(Ceiling(N( 9),N(6)),PAIR(N( 2),N(-3)))
 22237	    Etst(Ceiling(N( 8),N(6)),PAIR(N( 2),N(-4)))
 22238	    Etst(Ceiling(N( 7),N(6)),PAIR(N( 2),N(-5)))
 22239	    Etst(Ceiling(N( 6),N(6)),PAIR(N( 1),N( 0)))
 22240	    Etst(Ceiling(N( 5),N(6)),PAIR(N( 1),N(-1)))
 22241	    Etst(Ceiling(N( 4),N(6)),PAIR(N( 1),N(-2)))
 22242	    Etst(Ceiling(N( 3),N(6)),PAIR(N( 1),N(-3)))
 22243	    Etst(Ceiling(N( 2),N(6)),PAIR(N( 1),N(-4)))
 22244	    Etst(Ceiling(N( 1),N(6)),PAIR(N( 1),N(-5)))
 22245	    Etst(Ceiling(N( 0),N(6)),PAIR(N( 0),N( 0)))
 22246	    Etst(Ceiling(N(-1),N(6)),PAIR(N( 0),N(-1)))
 22247	    Etst(Ceiling(N(-2),N(6)),PAIR(N( 0),N(-2)))
 22248	    Etst(Ceiling(N(-3),N(6)),PAIR(N( 0),N(-3)))
 22249	    Etst(Ceiling(N(-4),N(6)),PAIR(N( 0),N(-4)))
 22250	    Etst(Ceiling(N(-5),N(6)),PAIR(N( 0),N(-5)))
 22251	    Etst(Ceiling(N(-6),N(6)),PAIR(N(-1),N( 0)))
 22252	    Etst(Ceiling(N(-7),N(6)),PAIR(N(-1),N(-1)))
 22253	    Etst(Ceiling(N(-8),N(6)),PAIR(N(-1),N(-2)))
 22254	    Etst(Ceiling(N(-9),N(6)),PAIR(N(-1),N(-3)))
 22255	
 22256	    Etst(Ceiling(N( 9),N(7)),PAIR(N( 2),N(-5)))
 22257	    Etst(Ceiling(N( 8),N(7)),PAIR(N( 2),N(-6)))
 22258	    Etst(Ceiling(N( 7),N(7)),PAIR(N( 1),N( 0)))
 22259	    Etst(Ceiling(N( 6),N(7)),PAIR(N( 1),N(-1)))
 22260	    Etst(Ceiling(N( 5),N(7)),PAIR(N( 1),N(-2)))
 22261	    Etst(Ceiling(N( 4),N(7)),PAIR(N( 1),N(-3)))
 22262	    Etst(Ceiling(N( 3),N(7)),PAIR(N( 1),N(-4)))
 22263	    Etst(Ceiling(N( 2),N(7)),PAIR(N( 1),N(-5)))
 22264	    Etst(Ceiling(N( 1),N(7)),PAIR(N( 1),N(-6)))
 22265	    Etst(Ceiling(N( 0),N(7)),PAIR(N( 0),N( 0)))
 22266	    Etst(Ceiling(N(-1),N(7)),PAIR(N( 0),N(-1)))
 22267	    Etst(Ceiling(N(-2),N(7)),PAIR(N( 0),N(-2)))
 22268	    Etst(Ceiling(N(-3),N(7)),PAIR(N( 0),N(-3)))
 22269	    Etst(Ceiling(N(-4),N(7)),PAIR(N( 0),N(-4)))
 22270	    Etst(Ceiling(N(-5),N(7)),PAIR(N( 0),N(-5)))
 22271	    Etst(Ceiling(N(-6),N(7)),PAIR(N( 0),N(-6)))
 22272	    Etst(Ceiling(N(-7),N(7)),PAIR(N(-1),N( 0)))
 22273	    Etst(Ceiling(N(-8),N(7)),PAIR(N(-1),N(-1)))
 22274	    Etst(Ceiling(N(-9),N(7)),PAIR(N(-1),N(-2)))
 22275	
 22276	    Etst(Ceiling(N( 9),N(8)),PAIR(N( 2),N(-7)))
 22277	    Etst(Ceiling(N( 8),N(8)),PAIR(N( 1),N( 0)))
 22278	    Etst(Ceiling(N( 7),N(8)),PAIR(N( 1),N(-1)))
 22279	    Etst(Ceiling(N( 6),N(8)),PAIR(N( 1),N(-2)))
 22280	    Etst(Ceiling(N( 5),N(8)),PAIR(N( 1),N(-3)))
 22281	    Etst(Ceiling(N( 4),N(8)),PAIR(N( 1),N(-4)))
 22282	    Etst(Ceiling(N( 3),N(8)),PAIR(N( 1),N(-5)))
 22283	    Etst(Ceiling(N( 2),N(8)),PAIR(N( 1),N(-6)))
 22284	    Etst(Ceiling(N( 1),N(8)),PAIR(N( 1),N(-7)))
 22285	    Etst(Ceiling(N( 0),N(8)),PAIR(N( 0),N( 0)))
 22286	    Etst(Ceiling(N(-1),N(8)),PAIR(N( 0),N(-1)))
 22287	    Etst(Ceiling(N(-2),N(8)),PAIR(N( 0),N(-2)))
 22288	    Etst(Ceiling(N(-3),N(8)),PAIR(N( 0),N(-3)))
 22289	    Etst(Ceiling(N(-4),N(8)),PAIR(N( 0),N(-4)))
 22290	    Etst(Ceiling(N(-5),N(8)),PAIR(N( 0),N(-5)))
 22291	    Etst(Ceiling(N(-6),N(8)),PAIR(N( 0),N(-6)))
 22292	    Etst(Ceiling(N(-7),N(8)),PAIR(N( 0),N(-7)))
 22293	    Etst(Ceiling(N(-8),N(8)),PAIR(N(-1),N( 0)))
 22294	    Etst(Ceiling(N(-9),N(8)),PAIR(N(-1),N(-1)))
 22295	
 22296	    Etst(Ceiling(N( 9),N(9)),PAIR(N( 1),N( 0)))
 22297	    Etst(Ceiling(N( 8),N(9)),PAIR(N( 1),N(-1)))
 22298	    Etst(Ceiling(N( 7),N(9)),PAIR(N( 1),N(-2)))
 22299	    Etst(Ceiling(N( 6),N(9)),PAIR(N( 1),N(-3)))
 22300	    Etst(Ceiling(N( 5),N(9)),PAIR(N( 1),N(-4)))
 22301	    Etst(Ceiling(N( 4),N(9)),PAIR(N( 1),N(-5)))
 22302	    Etst(Ceiling(N( 3),N(9)),PAIR(N( 1),N(-6)))
 22303	    Etst(Ceiling(N( 2),N(9)),PAIR(N( 1),N(-7)))
 22304	    Etst(Ceiling(N( 1),N(9)),PAIR(N( 1),N(-8)))
 22305	    Etst(Ceiling(N( 0),N(9)),PAIR(N( 0),N( 0)))
 22306	    Etst(Ceiling(N(-1),N(9)),PAIR(N( 0),N(-1)))
 22307	    Etst(Ceiling(N(-2),N(9)),PAIR(N( 0),N(-2)))
 22308	    Etst(Ceiling(N(-3),N(9)),PAIR(N( 0),N(-3)))
 22309	    Etst(Ceiling(N(-4),N(9)),PAIR(N( 0),N(-4)))
 22310	    Etst(Ceiling(N(-5),N(9)),PAIR(N( 0),N(-5)))
 22311	    Etst(Ceiling(N(-6),N(9)),PAIR(N( 0),N(-6)))
 22312	    Etst(Ceiling(N(-7),N(9)),PAIR(N( 0),N(-7)))
 22313	    Etst(Ceiling(N(-8),N(9)),PAIR(N( 0),N(-8)))
 22314	    Etst(Ceiling(N(-9),N(9)),PAIR(N(-1),N( 0)))
 22315	
 22316	    Xtst(Truncate(TT,TT))
 22317	    Xtst(Truncate(TT,FF))
 22318	    Xtst(Truncate(TT,I0))
 22319	    Xtst(Truncate(TT,P0))
 22320	    Xtst(Truncate(TT,M0))
 22321	    Xtst(Truncate(TT,B0))
 22322	    Xtst(Truncate(FF,TT))
 22323	    Xtst(Truncate(FF,FF))
 22324	    Xtst(Truncate(FF,I0))
 22325	    Xtst(Truncate(FF,P0))
 22326	    Xtst(Truncate(FF,M0))
 22327	    Xtst(Truncate(FF,B0))
 22328	    Xtst(Truncate(I0,TT))
 22329	    Xtst(Truncate(I0,FF))
 22330	    Xtst(Truncate(I0,P0))
 22331	    Xtst(Truncate(I0,M0))
 22332	    Xtst(Truncate(I0,B0))
 22333	    Xtst(Truncate(P0,TT))
 22334	    Xtst(Truncate(P0,FF))
 22335	    Xtst(Truncate(P0,I0))
 22336	    Xtst(Truncate(P0,P0))
 22337	    Xtst(Truncate(P0,M0))
 22338	    Xtst(Truncate(P0,B0))
 22339	    Xtst(Truncate(M0,TT))
 22340	    Xtst(Truncate(M0,FF))
 22341	    Xtst(Truncate(M0,I0))
 22342	    Xtst(Truncate(M0,P0))
 22343	    Xtst(Truncate(M0,M0))
 22344	    Xtst(Truncate(M0,B0))
 22345	    Xtst(Truncate(B0,TT))
 22346	    Xtst(Truncate(B0,FF))
 22347	    Xtst(Truncate(B0,I0))
 22348	    Xtst(Truncate(B0,P0))
 22349	    Xtst(Truncate(B0,M0))
 22350	    Xtst(Truncate(B0,B0))
 22351	    Xtst(Truncate(I0,Z))
 22352	    Xtst(Truncate(I0,M))
 22353	
 22354	    Etst(Truncate(N(-9),N(1)),PAIR(N(-9),N( 0)))
 22355	    Etst(Truncate(N(-8),N(1)),PAIR(N(-8),N( 0)))
 22356	    Etst(Truncate(N(-7),N(1)),PAIR(N(-7),N( 0)))
 22357	    Etst(Truncate(N(-6),N(1)),PAIR(N(-6),N( 0)))
 22358	    Etst(Truncate(N(-5),N(1)),PAIR(N(-5),N( 0)))
 22359	    Etst(Truncate(N(-4),N(1)),PAIR(N(-4),N( 0)))
 22360	    Etst(Truncate(N(-3),N(1)),PAIR(N(-3),N( 0)))
 22361	    Etst(Truncate(N(-2),N(1)),PAIR(N(-2),N( 0)))
 22362	    Etst(Truncate(N(-1),N(1)),PAIR(N(-1),N( 0)))
 22363	    Etst(Truncate(N( 0),N(1)),PAIR(N( 0),N( 0)))
 22364	    Etst(Truncate(N( 1),N(1)),PAIR(N( 1),N( 0)))
 22365	    Etst(Truncate(N( 2),N(1)),PAIR(N( 2),N( 0)))
 22366	    Etst(Truncate(N( 3),N(1)),PAIR(N( 3),N( 0)))
 22367	    Etst(Truncate(N( 4),N(1)),PAIR(N( 4),N( 0)))
 22368	    Etst(Truncate(N( 5),N(1)),PAIR(N( 5),N( 0)))
 22369	    Etst(Truncate(N( 6),N(1)),PAIR(N( 6),N( 0)))
 22370	    Etst(Truncate(N( 7),N(1)),PAIR(N( 7),N( 0)))
 22371	    Etst(Truncate(N( 8),N(1)),PAIR(N( 8),N( 0)))
 22372	    Etst(Truncate(N( 9),N(1)),PAIR(N( 9),N( 0)))
 22373	
 22374	    Etst(Truncate(N(-9),N(2)),PAIR(N(-4),N(-1)))
 22375	    Etst(Truncate(N(-8),N(2)),PAIR(N(-4),N( 0)))
 22376	    Etst(Truncate(N(-7),N(2)),PAIR(N(-3),N(-1)))
 22377	    Etst(Truncate(N(-6),N(2)),PAIR(N(-3),N( 0)))
 22378	    Etst(Truncate(N(-5),N(2)),PAIR(N(-2),N(-1)))
 22379	    Etst(Truncate(N(-4),N(2)),PAIR(N(-2),N( 0)))
 22380	    Etst(Truncate(N(-3),N(2)),PAIR(N(-1),N(-1)))
 22381	    Etst(Truncate(N(-2),N(2)),PAIR(N(-1),N( 0)))
 22382	    Etst(Truncate(N(-1),N(2)),PAIR(N( 0),N(-1)))
 22383	    Etst(Truncate(N( 0),N(2)),PAIR(N( 0),N( 0)))
 22384	    Etst(Truncate(N( 1),N(2)),PAIR(N( 0),N( 1)))
 22385	    Etst(Truncate(N( 2),N(2)),PAIR(N( 1),N( 0)))
 22386	    Etst(Truncate(N( 3),N(2)),PAIR(N( 1),N( 1)))
 22387	    Etst(Truncate(N( 4),N(2)),PAIR(N( 2),N( 0)))
 22388	    Etst(Truncate(N( 5),N(2)),PAIR(N( 2),N( 1)))
 22389	    Etst(Truncate(N( 6),N(2)),PAIR(N( 3),N( 0)))
 22390	    Etst(Truncate(N( 7),N(2)),PAIR(N( 3),N( 1)))
 22391	    Etst(Truncate(N( 8),N(2)),PAIR(N( 4),N( 0)))
 22392	    Etst(Truncate(N( 9),N(2)),PAIR(N( 4),N( 1)))
 22393	
 22394	    Etst(Truncate(N(-9),N(3)),PAIR(N(-3),N( 0)))
 22395	    Etst(Truncate(N(-8),N(3)),PAIR(N(-2),N(-2)))
 22396	    Etst(Truncate(N(-7),N(3)),PAIR(N(-2),N(-1)))
 22397	    Etst(Truncate(N(-6),N(3)),PAIR(N(-2),N( 0)))
 22398	    Etst(Truncate(N(-5),N(3)),PAIR(N(-1),N(-2)))
 22399	    Etst(Truncate(N(-4),N(3)),PAIR(N(-1),N(-1)))
 22400	    Etst(Truncate(N(-3),N(3)),PAIR(N(-1),N( 0)))
 22401	    Etst(Truncate(N(-2),N(3)),PAIR(N( 0),N(-2)))
 22402	    Etst(Truncate(N(-1),N(3)),PAIR(N( 0),N(-1)))
 22403	    Etst(Truncate(N( 0),N(3)),PAIR(N( 0),N( 0)))
 22404	    Etst(Truncate(N( 1),N(3)),PAIR(N( 0),N( 1)))
 22405	    Etst(Truncate(N( 2),N(3)),PAIR(N( 0),N( 2)))
 22406	    Etst(Truncate(N( 3),N(3)),PAIR(N( 1),N( 0)))
 22407	    Etst(Truncate(N( 4),N(3)),PAIR(N( 1),N( 1)))
 22408	    Etst(Truncate(N( 5),N(3)),PAIR(N( 1),N( 2)))
 22409	    Etst(Truncate(N( 6),N(3)),PAIR(N( 2),N( 0)))
 22410	    Etst(Truncate(N( 7),N(3)),PAIR(N( 2),N( 1)))
 22411	    Etst(Truncate(N( 8),N(3)),PAIR(N( 2),N( 2)))
 22412	    Etst(Truncate(N( 9),N(3)),PAIR(N( 3),N( 0)))
 22413	
 22414	    Etst(Truncate(N(-9),N(4)),PAIR(N(-2),N(-1)))
 22415	    Etst(Truncate(N(-8),N(4)),PAIR(N(-2),N( 0)))
 22416	    Etst(Truncate(N(-7),N(4)),PAIR(N(-1),N(-3)))
 22417	    Etst(Truncate(N(-6),N(4)),PAIR(N(-1),N(-2)))
 22418	    Etst(Truncate(N(-5),N(4)),PAIR(N(-1),N(-1)))
 22419	    Etst(Truncate(N(-4),N(4)),PAIR(N(-1),N( 0)))
 22420	    Etst(Truncate(N(-3),N(4)),PAIR(N( 0),N(-3)))
 22421	    Etst(Truncate(N(-2),N(4)),PAIR(N( 0),N(-2)))
 22422	    Etst(Truncate(N(-1),N(4)),PAIR(N( 0),N(-1)))
 22423	    Etst(Truncate(N( 0),N(4)),PAIR(N( 0),N( 0)))
 22424	    Etst(Truncate(N( 1),N(4)),PAIR(N( 0),N( 1)))
 22425	    Etst(Truncate(N( 2),N(4)),PAIR(N( 0),N( 2)))
 22426	    Etst(Truncate(N( 3),N(4)),PAIR(N( 0),N( 3)))
 22427	    Etst(Truncate(N( 4),N(4)),PAIR(N( 1),N( 0)))
 22428	    Etst(Truncate(N( 5),N(4)),PAIR(N( 1),N( 1)))
 22429	    Etst(Truncate(N( 6),N(4)),PAIR(N( 1),N( 2)))
 22430	    Etst(Truncate(N( 7),N(4)),PAIR(N( 1),N( 3)))
 22431	    Etst(Truncate(N( 8),N(4)),PAIR(N( 2),N( 0)))
 22432	    Etst(Truncate(N( 9),N(4)),PAIR(N( 2),N( 1)))
 22433	
 22434	    Etst(Truncate(N(-9),N(5)),PAIR(N(-1),N(-4)))
 22435	    Etst(Truncate(N(-8),N(5)),PAIR(N(-1),N(-3)))
 22436	    Etst(Truncate(N(-7),N(5)),PAIR(N(-1),N(-2)))
 22437	    Etst(Truncate(N(-6),N(5)),PAIR(N(-1),N(-1)))
 22438	    Etst(Truncate(N(-5),N(5)),PAIR(N(-1),N( 0)))
 22439	    Etst(Truncate(N(-4),N(5)),PAIR(N( 0),N(-4)))
 22440	    Etst(Truncate(N(-3),N(5)),PAIR(N( 0),N(-3)))
 22441	    Etst(Truncate(N(-2),N(5)),PAIR(N( 0),N(-2)))
 22442	    Etst(Truncate(N(-1),N(5)),PAIR(N( 0),N(-1)))
 22443	    Etst(Truncate(N( 0),N(5)),PAIR(N( 0),N( 0)))
 22444	    Etst(Truncate(N( 1),N(5)),PAIR(N( 0),N( 1)))
 22445	    Etst(Truncate(N( 2),N(5)),PAIR(N( 0),N( 2)))
 22446	    Etst(Truncate(N( 3),N(5)),PAIR(N( 0),N( 3)))
 22447	    Etst(Truncate(N( 4),N(5)),PAIR(N( 0),N( 4)))
 22448	    Etst(Truncate(N( 5),N(5)),PAIR(N( 1),N( 0)))
 22449	    Etst(Truncate(N( 6),N(5)),PAIR(N( 1),N( 1)))
 22450	    Etst(Truncate(N( 7),N(5)),PAIR(N( 1),N( 2)))
 22451	    Etst(Truncate(N( 8),N(5)),PAIR(N( 1),N( 3)))
 22452	    Etst(Truncate(N( 9),N(5)),PAIR(N( 1),N( 4)))
 22453	
 22454	    Etst(Truncate(N(-9),N(6)),PAIR(N(-1),N(-3)))
 22455	    Etst(Truncate(N(-8),N(6)),PAIR(N(-1),N(-2)))
 22456	    Etst(Truncate(N(-7),N(6)),PAIR(N(-1),N(-1)))
 22457	    Etst(Truncate(N(-6),N(6)),PAIR(N(-1),N( 0)))
 22458	    Etst(Truncate(N(-5),N(6)),PAIR(N( 0),N(-5)))
 22459	    Etst(Truncate(N(-4),N(6)),PAIR(N( 0),N(-4)))
 22460	    Etst(Truncate(N(-3),N(6)),PAIR(N( 0),N(-3)))
 22461	    Etst(Truncate(N(-2),N(6)),PAIR(N( 0),N(-2)))
 22462	    Etst(Truncate(N(-1),N(6)),PAIR(N( 0),N(-1)))
 22463	    Etst(Truncate(N( 0),N(6)),PAIR(N( 0),N( 0)))
 22464	    Etst(Truncate(N( 1),N(6)),PAIR(N( 0),N( 1)))
 22465	    Etst(Truncate(N( 2),N(6)),PAIR(N( 0),N( 2)))
 22466	    Etst(Truncate(N( 3),N(6)),PAIR(N( 0),N( 3)))
 22467	    Etst(Truncate(N( 4),N(6)),PAIR(N( 0),N( 4)))
 22468	    Etst(Truncate(N( 5),N(6)),PAIR(N( 0),N( 5)))
 22469	    Etst(Truncate(N( 6),N(6)),PAIR(N( 1),N( 0)))
 22470	    Etst(Truncate(N( 7),N(6)),PAIR(N( 1),N( 1)))
 22471	    Etst(Truncate(N( 8),N(6)),PAIR(N( 1),N( 2)))
 22472	    Etst(Truncate(N( 9),N(6)),PAIR(N( 1),N( 3)))
 22473	
 22474	    Etst(Truncate(N(-9),N(7)),PAIR(N(-1),N(-2)))
 22475	    Etst(Truncate(N(-8),N(7)),PAIR(N(-1),N(-1)))
 22476	    Etst(Truncate(N(-7),N(7)),PAIR(N(-1),N( 0)))
 22477	    Etst(Truncate(N(-6),N(7)),PAIR(N( 0),N(-6)))
 22478	    Etst(Truncate(N(-5),N(7)),PAIR(N( 0),N(-5)))
 22479	    Etst(Truncate(N(-4),N(7)),PAIR(N( 0),N(-4)))
 22480	    Etst(Truncate(N(-3),N(7)),PAIR(N( 0),N(-3)))
 22481	    Etst(Truncate(N(-2),N(7)),PAIR(N( 0),N(-2)))
 22482	    Etst(Truncate(N(-1),N(7)),PAIR(N( 0),N(-1)))
 22483	    Etst(Truncate(N( 0),N(7)),PAIR(N( 0),N( 0)))
 22484	    Etst(Truncate(N( 1),N(7)),PAIR(N( 0),N( 1)))
 22485	    Etst(Truncate(N( 2),N(7)),PAIR(N( 0),N( 2)))
 22486	    Etst(Truncate(N( 3),N(7)),PAIR(N( 0),N( 3)))
 22487	    Etst(Truncate(N( 4),N(7)),PAIR(N( 0),N( 4)))
 22488	    Etst(Truncate(N( 5),N(7)),PAIR(N( 0),N( 5)))
 22489	    Etst(Truncate(N( 6),N(7)),PAIR(N( 0),N( 6)))
 22490	    Etst(Truncate(N( 7),N(7)),PAIR(N( 1),N( 0)))
 22491	    Etst(Truncate(N( 8),N(7)),PAIR(N( 1),N( 1)))
 22492	    Etst(Truncate(N( 9),N(7)),PAIR(N( 1),N( 2)))
 22493	
 22494	    Etst(Truncate(N(-9),N(8)),PAIR(N(-1),N(-1)))
 22495	    Etst(Truncate(N(-8),N(8)),PAIR(N(-1),N( 0)))
 22496	    Etst(Truncate(N(-7),N(8)),PAIR(N( 0),N(-7)))
 22497	    Etst(Truncate(N(-6),N(8)),PAIR(N( 0),N(-6)))
 22498	    Etst(Truncate(N(-5),N(8)),PAIR(N( 0),N(-5)))
 22499	    Etst(Truncate(N(-4),N(8)),PAIR(N( 0),N(-4)))
 22500	    Etst(Truncate(N(-3),N(8)),PAIR(N( 0),N(-3)))
 22501	    Etst(Truncate(N(-2),N(8)),PAIR(N( 0),N(-2)))
 22502	    Etst(Truncate(N(-1),N(8)),PAIR(N( 0),N(-1)))
 22503	    Etst(Truncate(N( 0),N(8)),PAIR(N( 0),N( 0)))
 22504	    Etst(Truncate(N( 1),N(8)),PAIR(N( 0),N( 1)))
 22505	    Etst(Truncate(N( 2),N(8)),PAIR(N( 0),N( 2)))
 22506	    Etst(Truncate(N( 3),N(8)),PAIR(N( 0),N( 3)))
 22507	    Etst(Truncate(N( 4),N(8)),PAIR(N( 0),N( 4)))
 22508	    Etst(Truncate(N( 5),N(8)),PAIR(N( 0),N( 5)))
 22509	    Etst(Truncate(N( 6),N(8)),PAIR(N( 0),N( 6)))
 22510	    Etst(Truncate(N( 7),N(8)),PAIR(N( 0),N( 7)))
 22511	    Etst(Truncate(N( 8),N(8)),PAIR(N( 1),N( 0)))
 22512	    Etst(Truncate(N( 9),N(8)),PAIR(N( 1),N( 1)))
 22513	
 22514	    Etst(Truncate(N(-9),N(9)),PAIR(N(-1),N( 0)))
 22515	    Etst(Truncate(N(-8),N(9)),PAIR(N( 0),N(-8)))
 22516	    Etst(Truncate(N(-7),N(9)),PAIR(N( 0),N(-7)))
 22517	    Etst(Truncate(N(-6),N(9)),PAIR(N( 0),N(-6)))
 22518	    Etst(Truncate(N(-5),N(9)),PAIR(N( 0),N(-5)))
 22519	    Etst(Truncate(N(-4),N(9)),PAIR(N( 0),N(-4)))
 22520	    Etst(Truncate(N(-3),N(9)),PAIR(N( 0),N(-3)))
 22521	    Etst(Truncate(N(-2),N(9)),PAIR(N( 0),N(-2)))
 22522	    Etst(Truncate(N(-1),N(9)),PAIR(N( 0),N(-1)))
 22523	    Etst(Truncate(N( 0),N(9)),PAIR(N( 0),N( 0)))
 22524	    Etst(Truncate(N( 1),N(9)),PAIR(N( 0),N( 1)))
 22525	    Etst(Truncate(N( 2),N(9)),PAIR(N( 0),N( 2)))
 22526	    Etst(Truncate(N( 3),N(9)),PAIR(N( 0),N( 3)))
 22527	    Etst(Truncate(N( 4),N(9)),PAIR(N( 0),N( 4)))
 22528	    Etst(Truncate(N( 5),N(9)),PAIR(N( 0),N( 5)))
 22529	    Etst(Truncate(N( 6),N(9)),PAIR(N( 0),N( 6)))
 22530	    Etst(Truncate(N( 7),N(9)),PAIR(N( 0),N( 7)))
 22531	    Etst(Truncate(N( 8),N(9)),PAIR(N( 0),N( 8)))
 22532	    Etst(Truncate(N( 9),N(9)),PAIR(N( 1),N( 0)))
 22533	
 22534	    Xtst(Round(TT,TT))
 22535	    Xtst(Round(TT,FF))
 22536	    Xtst(Round(TT,I0))
 22537	    Xtst(Round(TT,P0))
 22538	    Xtst(Round(TT,M0))
 22539	    Xtst(Round(TT,B0))
 22540	    Xtst(Round(FF,TT))
 22541	    Xtst(Round(FF,FF))
 22542	    Xtst(Round(FF,I0))
 22543	    Xtst(Round(FF,P0))
 22544	    Xtst(Round(FF,M0))
 22545	    Xtst(Round(FF,B0))
 22546	    Xtst(Round(I0,TT))
 22547	    Xtst(Round(I0,FF))
 22548	    Xtst(Round(I0,P0))
 22549	    Xtst(Round(I0,M0))
 22550	    Xtst(Round(I0,B0))
 22551	    Xtst(Round(P0,TT))
 22552	    Xtst(Round(P0,FF))
 22553	    Xtst(Round(P0,I0))
 22554	    Xtst(Round(P0,P0))
 22555	    Xtst(Round(P0,M0))
 22556	    Xtst(Round(P0,B0))
 22557	    Xtst(Round(M0,TT))
 22558	    Xtst(Round(M0,FF))
 22559	    Xtst(Round(M0,I0))
 22560	    Xtst(Round(M0,P0))
 22561	    Xtst(Round(M0,M0))
 22562	    Xtst(Round(M0,B0))
 22563	    Xtst(Round(B0,TT))
 22564	    Xtst(Round(B0,FF))
 22565	    Xtst(Round(B0,I0))
 22566	    Xtst(Round(B0,P0))
 22567	    Xtst(Round(B0,M0))
 22568	    Xtst(Round(B0,B0))
 22569	    Xtst(Round(I0,Z))
 22570	    Xtst(Round(I0,M))
 22571	
 22572	    Etst(Round(N(-9),N(1)),PAIR(N(-9),N( 0)))
 22573	    Etst(Round(N(-8),N(1)),PAIR(N(-8),N( 0)))
 22574	    Etst(Round(N(-7),N(1)),PAIR(N(-7),N( 0)))
 22575	    Etst(Round(N(-6),N(1)),PAIR(N(-6),N( 0)))
 22576	    Etst(Round(N(-5),N(1)),PAIR(N(-5),N( 0)))
 22577	    Etst(Round(N(-4),N(1)),PAIR(N(-4),N( 0)))
 22578	    Etst(Round(N(-3),N(1)),PAIR(N(-3),N( 0)))
 22579	    Etst(Round(N(-2),N(1)),PAIR(N(-2),N( 0)))
 22580	    Etst(Round(N(-1),N(1)),PAIR(N(-1),N( 0)))
 22581	    Etst(Round(N( 9),N(1)),PAIR(N( 9),N( 0)))
 22582	    Etst(Round(N( 8),N(1)),PAIR(N( 8),N( 0)))
 22583	    Etst(Round(N( 7),N(1)),PAIR(N( 7),N( 0)))
 22584	    Etst(Round(N( 6),N(1)),PAIR(N( 6),N( 0)))
 22585	    Etst(Round(N( 5),N(1)),PAIR(N( 5),N( 0)))
 22586	    Etst(Round(N( 4),N(1)),PAIR(N( 4),N( 0)))
 22587	    Etst(Round(N( 3),N(1)),PAIR(N( 3),N( 0)))
 22588	    Etst(Round(N( 2),N(1)),PAIR(N( 2),N( 0)))
 22589	    Etst(Round(N( 1),N(1)),PAIR(N( 1),N( 0)))
 22590	    Etst(Round(N( 0),N(1)),PAIR(N( 0),N( 0)))
 22591	
 22592	    Etst(Round(N(-9),N(2)),PAIR(N(-4),N(-1)))
 22593	    Etst(Round(N(-8),N(2)),PAIR(N(-4),N( 0)))
 22594	    Etst(Round(N(-7),N(2)),PAIR(N(-4),N( 1)))
 22595	    Etst(Round(N(-6),N(2)),PAIR(N(-3),N( 0)))
 22596	    Etst(Round(N(-5),N(2)),PAIR(N(-2),N(-1)))
 22597	    Etst(Round(N(-4),N(2)),PAIR(N(-2),N( 0)))
 22598	    Etst(Round(N(-3),N(2)),PAIR(N(-2),N( 1)))
 22599	    Etst(Round(N(-2),N(2)),PAIR(N(-1),N( 0)))
 22600	    Etst(Round(N(-1),N(2)),PAIR(N(-0),N(-1)))
 22601	    Etst(Round(N( 9),N(2)),PAIR(N( 4),N( 1)))
 22602	    Etst(Round(N( 8),N(2)),PAIR(N( 4),N( 0)))
 22603	    Etst(Round(N( 7),N(2)),PAIR(N( 4),N(-1)))
 22604	    Etst(Round(N( 6),N(2)),PAIR(N( 3),N( 0)))
 22605	    Etst(Round(N( 5),N(2)),PAIR(N( 2),N( 1)))
 22606	    Etst(Round(N( 4),N(2)),PAIR(N( 2),N( 0)))
 22607	    Etst(Round(N( 3),N(2)),PAIR(N( 2),N(-1)))
 22608	    Etst(Round(N( 2),N(2)),PAIR(N( 1),N( 0)))
 22609	    Etst(Round(N( 1),N(2)),PAIR(N( 0),N( 1)))
 22610	    Etst(Round(N( 0),N(2)),PAIR(N( 0),N( 0)))
 22611	
 22612	    Etst(Round(N(-9),N(3)),PAIR(N(-3),N( 0)))
 22613	    Etst(Round(N(-8),N(3)),PAIR(N(-3),N( 1)))
 22614	    Etst(Round(N(-7),N(3)),PAIR(N(-2),N(-1)))
 22615	    Etst(Round(N(-6),N(3)),PAIR(N(-2),N( 0)))
 22616	    Etst(Round(N(-5),N(3)),PAIR(N(-2),N( 1)))
 22617	    Etst(Round(N(-4),N(3)),PAIR(N(-1),N(-1)))
 22618	    Etst(Round(N(-3),N(3)),PAIR(N(-1),N( 0)))
 22619	    Etst(Round(N(-2),N(3)),PAIR(N(-1),N( 1)))
 22620	    Etst(Round(N(-1),N(3)),PAIR(N(-0),N(-1)))
 22621	    Etst(Round(N( 9),N(3)),PAIR(N( 3),N( 0)))
 22622	    Etst(Round(N( 8),N(3)),PAIR(N( 3),N(-1)))
 22623	    Etst(Round(N( 7),N(3)),PAIR(N( 2),N( 1)))
 22624	    Etst(Round(N( 6),N(3)),PAIR(N( 2),N( 0)))
 22625	    Etst(Round(N( 5),N(3)),PAIR(N( 2),N(-1)))
 22626	    Etst(Round(N( 4),N(3)),PAIR(N( 1),N( 1)))
 22627	    Etst(Round(N( 3),N(3)),PAIR(N( 1),N( 0)))
 22628	    Etst(Round(N( 2),N(3)),PAIR(N( 1),N(-1)))
 22629	    Etst(Round(N( 1),N(3)),PAIR(N( 0),N( 1)))
 22630	    Etst(Round(N( 0),N(3)),PAIR(N( 0),N( 0)))
 22631	
 22632	    Etst(Round(N(-9),N(4)),PAIR(N(-2),N(-1)))
 22633	    Etst(Round(N(-8),N(4)),PAIR(N(-2),N( 0)))
 22634	    Etst(Round(N(-7),N(4)),PAIR(N(-2),N( 1)))
 22635	    Etst(Round(N(-6),N(4)),PAIR(N(-2),N( 2)))
 22636	    Etst(Round(N(-5),N(4)),PAIR(N(-1),N(-1)))
 22637	    Etst(Round(N(-4),N(4)),PAIR(N(-1),N( 0)))
 22638	    Etst(Round(N(-3),N(4)),PAIR(N(-1),N( 1)))
 22639	    Etst(Round(N(-2),N(4)),PAIR(N(-0),N(-2)))
 22640	    Etst(Round(N(-1),N(4)),PAIR(N(-0),N(-1)))
 22641	    Etst(Round(N( 9),N(4)),PAIR(N( 2),N( 1)))
 22642	    Etst(Round(N( 8),N(4)),PAIR(N( 2),N( 0)))
 22643	    Etst(Round(N( 7),N(4)),PAIR(N( 2),N(-1)))
 22644	    Etst(Round(N( 6),N(4)),PAIR(N( 2),N(-2)))
 22645	    Etst(Round(N( 5),N(4)),PAIR(N( 1),N( 1)))
 22646	    Etst(Round(N( 4),N(4)),PAIR(N( 1),N( 0)))
 22647	    Etst(Round(N( 3),N(4)),PAIR(N( 1),N(-1)))
 22648	    Etst(Round(N( 2),N(4)),PAIR(N( 0),N( 2)))
 22649	    Etst(Round(N( 1),N(4)),PAIR(N( 0),N( 1)))
 22650	    Etst(Round(N( 0),N(4)),PAIR(N( 0),N( 0)))
 22651	
 22652	    Etst(Round(N(-9),N(5)),PAIR(N(-2),N( 1)))
 22653	    Etst(Round(N(-8),N(5)),PAIR(N(-2),N( 2)))
 22654	    Etst(Round(N(-7),N(5)),PAIR(N(-1),N(-2)))
 22655	    Etst(Round(N(-6),N(5)),PAIR(N(-1),N(-1)))
 22656	    Etst(Round(N(-5),N(5)),PAIR(N(-1),N( 0)))
 22657	    Etst(Round(N(-4),N(5)),PAIR(N(-1),N( 1)))
 22658	    Etst(Round(N(-3),N(5)),PAIR(N(-1),N( 2)))
 22659	    Etst(Round(N(-2),N(5)),PAIR(N(-0),N(-2)))
 22660	    Etst(Round(N(-1),N(5)),PAIR(N(-0),N(-1)))
 22661	    Etst(Round(N( 9),N(5)),PAIR(N( 2),N(-1)))
 22662	    Etst(Round(N( 8),N(5)),PAIR(N( 2),N(-2)))
 22663	    Etst(Round(N( 7),N(5)),PAIR(N( 1),N( 2)))
 22664	    Etst(Round(N( 6),N(5)),PAIR(N( 1),N( 1)))
 22665	    Etst(Round(N( 5),N(5)),PAIR(N( 1),N( 0)))
 22666	    Etst(Round(N( 4),N(5)),PAIR(N( 1),N(-1)))
 22667	    Etst(Round(N( 3),N(5)),PAIR(N( 1),N(-2)))
 22668	    Etst(Round(N( 2),N(5)),PAIR(N( 0),N( 2)))
 22669	    Etst(Round(N( 1),N(5)),PAIR(N( 0),N( 1)))
 22670	    Etst(Round(N( 0),N(5)),PAIR(N( 0),N( 0)))
 22671	
 22672	    Etst(Round(N(-9),N(6)),PAIR(N(-2),N( 3)))
 22673	    Etst(Round(N(-8),N(6)),PAIR(N(-1),N(-2)))
 22674	    Etst(Round(N(-7),N(6)),PAIR(N(-1),N(-1)))
 22675	    Etst(Round(N(-6),N(6)),PAIR(N(-1),N( 0)))
 22676	    Etst(Round(N(-5),N(6)),PAIR(N(-1),N( 1)))
 22677	    Etst(Round(N(-4),N(6)),PAIR(N(-1),N( 2)))
 22678	    Etst(Round(N(-3),N(6)),PAIR(N(-0),N(-3)))
 22679	    Etst(Round(N(-2),N(6)),PAIR(N(-0),N(-2)))
 22680	    Etst(Round(N(-1),N(6)),PAIR(N(-0),N(-1)))
 22681	    Etst(Round(N( 9),N(6)),PAIR(N( 2),N(-3)))
 22682	    Etst(Round(N( 8),N(6)),PAIR(N( 1),N( 2)))
 22683	    Etst(Round(N( 7),N(6)),PAIR(N( 1),N( 1)))
 22684	    Etst(Round(N( 6),N(6)),PAIR(N( 1),N( 0)))
 22685	    Etst(Round(N( 5),N(6)),PAIR(N( 1),N(-1)))
 22686	    Etst(Round(N( 4),N(6)),PAIR(N( 1),N(-2)))
 22687	    Etst(Round(N( 3),N(6)),PAIR(N( 0),N( 3)))
 22688	    Etst(Round(N( 2),N(6)),PAIR(N( 0),N( 2)))
 22689	    Etst(Round(N( 1),N(6)),PAIR(N( 0),N( 1)))
 22690	    Etst(Round(N( 0),N(6)),PAIR(N( 0),N( 0)))
 22691	
 22692	    Etst(Round(N(-9),N(7)),PAIR(N(-1),N(-2)))
 22693	    Etst(Round(N(-8),N(7)),PAIR(N(-1),N(-1)))
 22694	    Etst(Round(N(-7),N(7)),PAIR(N(-1),N( 0)))
 22695	    Etst(Round(N(-6),N(7)),PAIR(N(-1),N( 1)))
 22696	    Etst(Round(N(-5),N(7)),PAIR(N(-1),N( 2)))
 22697	    Etst(Round(N(-4),N(7)),PAIR(N(-1),N( 3)))
 22698	    Etst(Round(N(-3),N(7)),PAIR(N(-0),N(3-)))
 22699	    Etst(Round(N(-2),N(7)),PAIR(N(-0),N(-2)))
 22700	    Etst(Round(N(-1),N(7)),PAIR(N(-0),N(-1)))
 22701	    Etst(Round(N( 9),N(7)),PAIR(N( 1),N( 2)))
 22702	    Etst(Round(N( 8),N(7)),PAIR(N( 1),N( 1)))
 22703	    Etst(Round(N( 7),N(7)),PAIR(N( 1),N( 0)))
 22704	    Etst(Round(N( 6),N(7)),PAIR(N( 1),N(-1)))
 22705	    Etst(Round(N( 5),N(7)),PAIR(N( 1),N(-2)))
 22706	    Etst(Round(N( 4),N(7)),PAIR(N( 1),N(-3)))
 22707	    Etst(Round(N( 3),N(7)),PAIR(N( 0),N(3 )))
 22708	    Etst(Round(N( 2),N(7)),PAIR(N( 0),N( 2)))
 22709	    Etst(Round(N( 1),N(7)),PAIR(N( 0),N( 1)))
 22710	    Etst(Round(N( 0),N(7)),PAIR(N( 0),N( 0)))
 22711	
 22712	    Etst(Round(N(-9),N(8)),PAIR(N(-1),N(-1)))
 22713	    Etst(Round(N(-8),N(8)),PAIR(N(-1),N( 0)))
 22714	    Etst(Round(N(-7),N(8)),PAIR(N(-1),N( 1)))
 22715	    Etst(Round(N(-6),N(8)),PAIR(N(-1),N( 2)))
 22716	    Etst(Round(N(-5),N(8)),PAIR(N(-1),N( 3)))
 22717	    Etst(Round(N(-4),N(8)),PAIR(N(-0),N(-4)))
 22718	    Etst(Round(N(-3),N(8)),PAIR(N(-0),N(-3)))
 22719	    Etst(Round(N(-2),N(8)),PAIR(N(-0),N(-2)))
 22720	    Etst(Round(N(-1),N(8)),PAIR(N(-0),N(-1)))
 22721	    Etst(Round(N( 9),N(8)),PAIR(N( 1),N( 1)))
 22722	    Etst(Round(N( 8),N(8)),PAIR(N( 1),N( 0)))
 22723	    Etst(Round(N( 7),N(8)),PAIR(N( 1),N(-1)))
 22724	    Etst(Round(N( 6),N(8)),PAIR(N( 1),N(-2)))
 22725	    Etst(Round(N( 5),N(8)),PAIR(N( 1),N(-3)))
 22726	    Etst(Round(N( 4),N(8)),PAIR(N( 0),N( 4)))
 22727	    Etst(Round(N( 3),N(8)),PAIR(N( 0),N( 3)))
 22728	    Etst(Round(N( 2),N(8)),PAIR(N( 0),N( 2)))
 22729	    Etst(Round(N( 1),N(8)),PAIR(N( 0),N( 1)))
 22730	    Etst(Round(N( 0),N(8)),PAIR(N( 0),N( 0)))
 22731	
 22732	    Etst(Round(N(-9),N(9)),PAIR(N(-1),N( 0)))
 22733	    Etst(Round(N(-8),N(9)),PAIR(N(-1),N( 1)))
 22734	    Etst(Round(N(-7),N(9)),PAIR(N(-1),N( 2)))
 22735	    Etst(Round(N(-6),N(9)),PAIR(N(-1),N( 3)))
 22736	    Etst(Round(N(-5),N(9)),PAIR(N(-1),N( 4)))
 22737	    Etst(Round(N(-4),N(9)),PAIR(N(-0),N(-4)))
 22738	    Etst(Round(N(-3),N(9)),PAIR(N(-0),N(-3)))
 22739	    Etst(Round(N(-2),N(9)),PAIR(N(-0),N(-2)))
 22740	    Etst(Round(N(-1),N(9)),PAIR(N(-0),N(-1)))
 22741	    Etst(Round(N( 9),N(9)),PAIR(N( 1),N( 0)))
 22742	    Etst(Round(N( 8),N(9)),PAIR(N( 1),N(-1)))
 22743	    Etst(Round(N( 7),N(9)),PAIR(N( 1),N(-2)))
 22744	    Etst(Round(N( 6),N(9)),PAIR(N( 1),N(-3)))
 22745	    Etst(Round(N( 5),N(9)),PAIR(N( 1),N(-4)))
 22746	    Etst(Round(N( 4),N(9)),PAIR(N( 0),N( 4)))
 22747	    Etst(Round(N( 3),N(9)),PAIR(N( 0),N( 3)))
 22748	    Etst(Round(N( 2),N(9)),PAIR(N( 0),N( 2)))
 22749	    Etst(Round(N( 1),N(9)),PAIR(N( 0),N( 1)))
 22750	    Etst(Round(N( 0),N(9)),PAIR(N( 0),N( 0)))
 22751	
 22752	    Xtst(Div(TT,TT))
 22753	    Xtst(Div(TT,FF))
 22754	    Xtst(Div(TT,I0))
 22755	    Xtst(Div(TT,P0))
 22756	    Xtst(Div(TT,M0))
 22757	    Xtst(Div(TT,B0))
 22758	    Xtst(Div(FF,TT))
 22759	    Xtst(Div(FF,FF))
 22760	    Xtst(Div(FF,I0))
 22761	    Xtst(Div(FF,P0))
 22762	    Xtst(Div(FF,M0))
 22763	    Xtst(Div(FF,B0))
 22764	    Xtst(Div(I0,TT))
 22765	    Xtst(Div(I0,FF))
 22766	    Xtst(Div(I0,P0))
 22767	    Xtst(Div(I0,M0))
 22768	    Xtst(Div(I0,B0))
 22769	    Xtst(Div(P0,TT))
 22770	    Xtst(Div(P0,FF))
 22771	    Xtst(Div(P0,I0))
 22772	    Xtst(Div(P0,P0))
 22773	    Xtst(Div(P0,M0))
 22774	    Xtst(Div(P0,B0))
 22775	    Xtst(Div(M0,TT))
 22776	    Xtst(Div(M0,FF))
 22777	    Xtst(Div(M0,I0))
 22778	    Xtst(Div(M0,P0))
 22779	    Xtst(Div(M0,M0))
 22780	    Xtst(Div(M0,B0))
 22781	    Xtst(Div(B0,TT))
 22782	    Xtst(Div(B0,FF))
 22783	    Xtst(Div(B0,I0))
 22784	    Xtst(Div(B0,P0))
 22785	    Xtst(Div(B0,M0))
 22786	    Xtst(Div(B0,B0))
 22787	    Xtst(Div(I0,Z))
 22788	    Xtst(Div(I0,M))
 22789	
 22790	    Etst(Div(N(-9),N(1)),N(-9))
 22791	    Etst(Div(N(-8),N(1)),N(-8))
 22792	    Etst(Div(N(-7),N(1)),N(-7))
 22793	    Etst(Div(N(-6),N(1)),N(-6))
 22794	    Etst(Div(N(-5),N(1)),N(-5))
 22795	    Etst(Div(N(-4),N(1)),N(-4))
 22796	    Etst(Div(N(-3),N(1)),N(-3))
 22797	    Etst(Div(N(-2),N(1)),N(-2))
 22798	    Etst(Div(N(-1),N(1)),N(-1))
 22799	    Etst(Div(N( 0),N(1)),N( 0))
 22800	    Etst(Div(N( 1),N(1)),N( 1))
 22801	    Etst(Div(N( 2),N(1)),N( 2))
 22802	    Etst(Div(N( 3),N(1)),N( 3))
 22803	    Etst(Div(N( 4),N(1)),N( 4))
 22804	    Etst(Div(N( 5),N(1)),N( 5))
 22805	    Etst(Div(N( 6),N(1)),N( 6))
 22806	    Etst(Div(N( 7),N(1)),N( 7))
 22807	    Etst(Div(N( 8),N(1)),N( 8))
 22808	    Etst(Div(N( 9),N(1)),N( 9))
 22809	
 22810	    Etst(Div(N(-9),N(2)),N(-5))
 22811	    Etst(Div(N(-8),N(2)),N(-4))
 22812	    Etst(Div(N(-7),N(2)),N(-4))
 22813	    Etst(Div(N(-6),N(2)),N(-3))
 22814	    Etst(Div(N(-5),N(2)),N(-3))
 22815	    Etst(Div(N(-4),N(2)),N(-2))
 22816	    Etst(Div(N(-3),N(2)),N(-2))
 22817	    Etst(Div(N(-2),N(2)),N(-1))
 22818	    Etst(Div(N(-1),N(2)),N(-1))
 22819	    Etst(Div(N( 0),N(2)),N( 0))
 22820	    Etst(Div(N( 1),N(2)),N( 0))
 22821	    Etst(Div(N( 2),N(2)),N( 1))
 22822	    Etst(Div(N( 3),N(2)),N( 1))
 22823	    Etst(Div(N( 4),N(2)),N( 2))
 22824	    Etst(Div(N( 5),N(2)),N( 2))
 22825	    Etst(Div(N( 6),N(2)),N( 3))
 22826	    Etst(Div(N( 7),N(2)),N( 3))
 22827	    Etst(Div(N( 8),N(2)),N( 4))
 22828	    Etst(Div(N( 9),N(2)),N( 4))
 22829	
 22830	    Etst(Div(N(-9),N(3)),N(-3))
 22831	    Etst(Div(N(-8),N(3)),N(-3))
 22832	    Etst(Div(N(-7),N(3)),N(-3))
 22833	    Etst(Div(N(-6),N(3)),N(-2))
 22834	    Etst(Div(N(-5),N(3)),N(-2))
 22835	    Etst(Div(N(-4),N(3)),N(-2))
 22836	    Etst(Div(N(-3),N(3)),N(-1))
 22837	    Etst(Div(N(-2),N(3)),N(-1))
 22838	    Etst(Div(N(-1),N(3)),N(-1))
 22839	    Etst(Div(N( 0),N(3)),N( 0))
 22840	    Etst(Div(N( 1),N(3)),N( 0))
 22841	    Etst(Div(N( 2),N(3)),N( 0))
 22842	    Etst(Div(N( 3),N(3)),N( 1))
 22843	    Etst(Div(N( 4),N(3)),N( 1))
 22844	    Etst(Div(N( 5),N(3)),N( 1))
 22845	    Etst(Div(N( 6),N(3)),N( 2))
 22846	    Etst(Div(N( 7),N(3)),N( 2))
 22847	    Etst(Div(N( 8),N(3)),N( 2))
 22848	    Etst(Div(N( 9),N(3)),N( 3))
 22849	
 22850	    Etst(Div(N(-9),N(4)),N(-3))
 22851	    Etst(Div(N(-8),N(4)),N(-2))
 22852	    Etst(Div(N(-7),N(4)),N(-2))
 22853	    Etst(Div(N(-6),N(4)),N(-2))
 22854	    Etst(Div(N(-5),N(4)),N(-2))
 22855	    Etst(Div(N(-4),N(4)),N(-1))
 22856	    Etst(Div(N(-3),N(4)),N(-1))
 22857	    Etst(Div(N(-2),N(4)),N(-1))
 22858	    Etst(Div(N(-1),N(4)),N(-1))
 22859	    Etst(Div(N( 0),N(4)),N( 0))
 22860	    Etst(Div(N( 1),N(4)),N( 0))
 22861	    Etst(Div(N( 2),N(4)),N( 0))
 22862	    Etst(Div(N( 3),N(4)),N( 0))
 22863	    Etst(Div(N( 4),N(4)),N( 1))
 22864	    Etst(Div(N( 5),N(4)),N( 1))
 22865	    Etst(Div(N( 6),N(4)),N( 1))
 22866	    Etst(Div(N( 7),N(4)),N( 1))
 22867	    Etst(Div(N( 8),N(4)),N( 2))
 22868	    Etst(Div(N( 9),N(4)),N( 2))
 22869	
 22870	    Etst(Div(N(-9),N(5)),N(-2))
 22871	    Etst(Div(N(-8),N(5)),N(-2))
 22872	    Etst(Div(N(-7),N(5)),N(-2))
 22873	    Etst(Div(N(-6),N(5)),N(-2))
 22874	    Etst(Div(N(-5),N(5)),N(-1))
 22875	    Etst(Div(N(-4),N(5)),N(-1))
 22876	    Etst(Div(N(-3),N(5)),N(-1))
 22877	    Etst(Div(N(-2),N(5)),N(-1))
 22878	    Etst(Div(N(-1),N(5)),N(-1))
 22879	    Etst(Div(N( 0),N(5)),N( 0))
 22880	    Etst(Div(N( 1),N(5)),N( 0))
 22881	    Etst(Div(N( 2),N(5)),N( 0))
 22882	    Etst(Div(N( 3),N(5)),N( 0))
 22883	    Etst(Div(N( 4),N(5)),N( 0))
 22884	    Etst(Div(N( 5),N(5)),N( 1))
 22885	    Etst(Div(N( 6),N(5)),N( 1))
 22886	    Etst(Div(N( 7),N(5)),N( 1))
 22887	    Etst(Div(N( 8),N(5)),N( 1))
 22888	    Etst(Div(N( 9),N(5)),N( 1))
 22889	
 22890	    Etst(Div(N(-9),N(6)),N(-2))
 22891	    Etst(Div(N(-8),N(6)),N(-2))
 22892	    Etst(Div(N(-7),N(6)),N(-2))
 22893	    Etst(Div(N(-6),N(6)),N(-1))
 22894	    Etst(Div(N(-5),N(6)),N(-1))
 22895	    Etst(Div(N(-4),N(6)),N(-1))
 22896	    Etst(Div(N(-3),N(6)),N(-1))
 22897	    Etst(Div(N(-2),N(6)),N(-1))
 22898	    Etst(Div(N(-1),N(6)),N(-1))
 22899	    Etst(Div(N( 0),N(6)),N( 0))
 22900	    Etst(Div(N( 1),N(6)),N( 0))
 22901	    Etst(Div(N( 2),N(6)),N( 0))
 22902	    Etst(Div(N( 3),N(6)),N( 0))
 22903	    Etst(Div(N( 4),N(6)),N( 0))
 22904	    Etst(Div(N( 5),N(6)),N( 0))
 22905	    Etst(Div(N( 6),N(6)),N( 1))
 22906	    Etst(Div(N( 7),N(6)),N( 1))
 22907	    Etst(Div(N( 8),N(6)),N( 1))
 22908	    Etst(Div(N( 9),N(6)),N( 1))
 22909	
 22910	    Etst(Div(N(-9),N(7)),N(-2))
 22911	    Etst(Div(N(-8),N(7)),N(-2))
 22912	    Etst(Div(N(-7),N(7)),N(-1))
 22913	    Etst(Div(N(-6),N(7)),N(-1))
 22914	    Etst(Div(N(-5),N(7)),N(-1))
 22915	    Etst(Div(N(-4),N(7)),N(-1))
 22916	    Etst(Div(N(-3),N(7)),N(-1))
 22917	    Etst(Div(N(-2),N(7)),N(-1))
 22918	    Etst(Div(N(-1),N(7)),N(-1))
 22919	    Etst(Div(N( 0),N(7)),N( 0))
 22920	    Etst(Div(N( 1),N(7)),N( 0))
 22921	    Etst(Div(N( 2),N(7)),N( 0))
 22922	    Etst(Div(N( 3),N(7)),N( 0))
 22923	    Etst(Div(N( 4),N(7)),N( 0))
 22924	    Etst(Div(N( 5),N(7)),N( 0))
 22925	    Etst(Div(N( 6),N(7)),N( 0))
 22926	    Etst(Div(N( 7),N(7)),N( 1))
 22927	    Etst(Div(N( 8),N(7)),N( 1))
 22928	    Etst(Div(N( 9),N(7)),N( 1))
 22929	
 22930	    Etst(Div(N(-9),N(8)),N(-2))
 22931	    Etst(Div(N(-8),N(8)),N(-1))
 22932	    Etst(Div(N(-7),N(8)),N(-1))
 22933	    Etst(Div(N(-6),N(8)),N(-1))
 22934	    Etst(Div(N(-5),N(8)),N(-1))
 22935	    Etst(Div(N(-4),N(8)),N(-1))
 22936	    Etst(Div(N(-3),N(8)),N(-1))
 22937	    Etst(Div(N(-2),N(8)),N(-1))
 22938	    Etst(Div(N(-1),N(8)),N(-1))
 22939	    Etst(Div(N( 0),N(8)),N( 0))
 22940	    Etst(Div(N( 1),N(8)),N( 0))
 22941	    Etst(Div(N( 2),N(8)),N( 0))
 22942	    Etst(Div(N( 3),N(8)),N( 0))
 22943	    Etst(Div(N( 4),N(8)),N( 0))
 22944	    Etst(Div(N( 5),N(8)),N( 0))
 22945	    Etst(Div(N( 6),N(8)),N( 0))
 22946	    Etst(Div(N( 7),N(8)),N( 0))
 22947	    Etst(Div(N( 8),N(8)),N( 1))
 22948	    Etst(Div(N( 9),N(8)),N( 1))
 22949	
 22950	    Etst(Div(N(-9),N(9)),N(-1))
 22951	    Etst(Div(N(-8),N(9)),N(-1))
 22952	    Etst(Div(N(-7),N(9)),N(-1))
 22953	    Etst(Div(N(-6),N(9)),N(-1))
 22954	    Etst(Div(N(-5),N(9)),N(-1))
 22955	    Etst(Div(N(-4),N(9)),N(-1))
 22956	    Etst(Div(N(-3),N(9)),N(-1))
 22957	    Etst(Div(N(-2),N(9)),N(-1))
 22958	    Etst(Div(N(-1),N(9)),N(-1))
 22959	    Etst(Div(N( 0),N(9)),N( 0))
 22960	    Etst(Div(N( 1),N(9)),N( 0))
 22961	    Etst(Div(N( 2),N(9)),N( 0))
 22962	    Etst(Div(N( 3),N(9)),N( 0))
 22963	    Etst(Div(N( 4),N(9)),N( 0))
 22964	    Etst(Div(N( 5),N(9)),N( 0))
 22965	    Etst(Div(N( 6),N(9)),N( 0))
 22966	    Etst(Div(N( 7),N(9)),N( 0))
 22967	    Etst(Div(N( 8),N(9)),N( 0))
 22968	    Etst(Div(N( 9),N(9)),N( 1))
 22969	
 22970	    Xtst(Mod(TT,TT))
 22971	    Xtst(Mod(TT,FF))
 22972	    Xtst(Mod(TT,I0))
 22973	    Xtst(Mod(TT,P0))
 22974	    Xtst(Mod(TT,M0))
 22975	    Xtst(Mod(TT,B0))
 22976	    Xtst(Mod(FF,TT))
 22977	    Xtst(Mod(FF,FF))
 22978	    Xtst(Mod(FF,I0))
 22979	    Xtst(Mod(FF,P0))
 22980	    Xtst(Mod(FF,M0))
 22981	    Xtst(Mod(FF,B0))
 22982	    Xtst(Mod(I0,TT))
 22983	    Xtst(Mod(I0,FF))
 22984	    Xtst(Mod(I0,P0))
 22985	    Xtst(Mod(I0,M0))
 22986	    Xtst(Mod(I0,B0))
 22987	    Xtst(Mod(P0,TT))
 22988	    Xtst(Mod(P0,FF))
 22989	    Xtst(Mod(P0,I0))
 22990	    Xtst(Mod(P0,P0))
 22991	    Xtst(Mod(P0,M0))
 22992	    Xtst(Mod(P0,B0))
 22993	    Xtst(Mod(M0,TT))
 22994	    Xtst(Mod(M0,FF))
 22995	    Xtst(Mod(M0,I0))
 22996	    Xtst(Mod(M0,P0))
 22997	    Xtst(Mod(M0,M0))
 22998	    Xtst(Mod(M0,B0))
 22999	    Xtst(Mod(B0,TT))
 23000	    Xtst(Mod(B0,FF))
 23001	    Xtst(Mod(B0,I0))
 23002	    Xtst(Mod(B0,P0))
 23003	    Xtst(Mod(B0,M0))
 23004	    Xtst(Mod(B0,B0))
 23005	    Xtst(Mod(I0,Z))
 23006	    Xtst(Mod(I0,M))
 23007	
 23008	    Etst(Mod(N(-9),N(1)),N(0))
 23009	    Etst(Mod(N(-8),N(1)),N(0))
 23010	    Etst(Mod(N(-7),N(1)),N(0))
 23011	    Etst(Mod(N(-6),N(1)),N(0))
 23012	    Etst(Mod(N(-5),N(1)),N(0))
 23013	    Etst(Mod(N(-4),N(1)),N(0))
 23014	    Etst(Mod(N(-3),N(1)),N(0))
 23015	    Etst(Mod(N(-2),N(1)),N(0))
 23016	    Etst(Mod(N(-1),N(1)),N(0))
 23017	    Etst(Mod(N( 0),N(1)),N(0))
 23018	    Etst(Mod(N( 1),N(1)),N(0))
 23019	    Etst(Mod(N( 2),N(1)),N(0))
 23020	    Etst(Mod(N( 3),N(1)),N(0))
 23021	    Etst(Mod(N( 4),N(1)),N(0))
 23022	    Etst(Mod(N( 5),N(1)),N(0))
 23023	    Etst(Mod(N( 6),N(1)),N(0))
 23024	    Etst(Mod(N( 7),N(1)),N(0))
 23025	    Etst(Mod(N( 8),N(1)),N(0))
 23026	    Etst(Mod(N( 9),N(1)),N(0))
 23027	
 23028	    Etst(Mod(N(-9),N(2)),N(1))
 23029	    Etst(Mod(N(-8),N(2)),N(0))
 23030	    Etst(Mod(N(-7),N(2)),N(1))
 23031	    Etst(Mod(N(-6),N(2)),N(0))
 23032	    Etst(Mod(N(-5),N(2)),N(1))
 23033	    Etst(Mod(N(-4),N(2)),N(0))
 23034	    Etst(Mod(N(-3),N(2)),N(1))
 23035	    Etst(Mod(N(-2),N(2)),N(0))
 23036	    Etst(Mod(N(-1),N(2)),N(1))
 23037	    Etst(Mod(N( 0),N(2)),N(0))
 23038	    Etst(Mod(N( 1),N(2)),N(1))
 23039	    Etst(Mod(N( 2),N(2)),N(0))
 23040	    Etst(Mod(N( 3),N(2)),N(1))
 23041	    Etst(Mod(N( 4),N(2)),N(0))
 23042	    Etst(Mod(N( 5),N(2)),N(1))
 23043	    Etst(Mod(N( 6),N(2)),N(0))
 23044	    Etst(Mod(N( 7),N(2)),N(1))
 23045	    Etst(Mod(N( 8),N(2)),N(0))
 23046	    Etst(Mod(N( 9),N(2)),N(1))
 23047	
 23048	    Etst(Mod(N(-9),N(3)),N(0))
 23049	    Etst(Mod(N(-8),N(3)),N(1))
 23050	    Etst(Mod(N(-7),N(3)),N(2))
 23051	    Etst(Mod(N(-6),N(3)),N(0))
 23052	    Etst(Mod(N(-5),N(3)),N(1))
 23053	    Etst(Mod(N(-4),N(3)),N(2))
 23054	    Etst(Mod(N(-3),N(3)),N(0))
 23055	    Etst(Mod(N(-2),N(3)),N(1))
 23056	    Etst(Mod(N(-1),N(3)),N(2))
 23057	    Etst(Mod(N( 0),N(3)),N(0))
 23058	    Etst(Mod(N( 1),N(3)),N(1))
 23059	    Etst(Mod(N( 2),N(3)),N(2))
 23060	    Etst(Mod(N( 3),N(3)),N(0))
 23061	    Etst(Mod(N( 4),N(3)),N(1))
 23062	    Etst(Mod(N( 5),N(3)),N(2))
 23063	    Etst(Mod(N( 6),N(3)),N(0))
 23064	    Etst(Mod(N( 7),N(3)),N(1))
 23065	    Etst(Mod(N( 8),N(3)),N(2))
 23066	    Etst(Mod(N( 9),N(3)),N(0))
 23067	
 23068	    Etst(Mod(N(-9),N(4)),N(3))
 23069	    Etst(Mod(N(-8),N(4)),N(0))
 23070	    Etst(Mod(N(-7),N(4)),N(1))
 23071	    Etst(Mod(N(-6),N(4)),N(2))
 23072	    Etst(Mod(N(-5),N(4)),N(3))
 23073	    Etst(Mod(N(-4),N(4)),N(0))
 23074	    Etst(Mod(N(-3),N(4)),N(1))
 23075	    Etst(Mod(N(-2),N(4)),N(2))
 23076	    Etst(Mod(N(-1),N(4)),N(3))
 23077	    Etst(Mod(N( 0),N(4)),N(0))
 23078	    Etst(Mod(N( 1),N(4)),N(1))
 23079	    Etst(Mod(N( 2),N(4)),N(2))
 23080	    Etst(Mod(N( 3),N(4)),N(3))
 23081	    Etst(Mod(N( 4),N(4)),N(0))
 23082	    Etst(Mod(N( 5),N(4)),N(1))
 23083	    Etst(Mod(N( 6),N(4)),N(2))
 23084	    Etst(Mod(N( 7),N(4)),N(3))
 23085	    Etst(Mod(N( 8),N(4)),N(0))
 23086	    Etst(Mod(N( 9),N(4)),N(1))
 23087	
 23088	    Etst(Mod(N(-9),N(5)),N(1))
 23089	    Etst(Mod(N(-8),N(5)),N(2))
 23090	    Etst(Mod(N(-7),N(5)),N(3))
 23091	    Etst(Mod(N(-6),N(5)),N(4))
 23092	    Etst(Mod(N(-5),N(5)),N(0))
 23093	    Etst(Mod(N(-4),N(5)),N(1))
 23094	    Etst(Mod(N(-3),N(5)),N(2))
 23095	    Etst(Mod(N(-2),N(5)),N(3))
 23096	    Etst(Mod(N(-1),N(5)),N(4))
 23097	    Etst(Mod(N( 0),N(5)),N(0))
 23098	    Etst(Mod(N( 1),N(5)),N(1))
 23099	    Etst(Mod(N( 2),N(5)),N(2))
 23100	    Etst(Mod(N( 3),N(5)),N(3))
 23101	    Etst(Mod(N( 4),N(5)),N(4))
 23102	    Etst(Mod(N( 5),N(5)),N(0))
 23103	    Etst(Mod(N( 6),N(5)),N(1))
 23104	    Etst(Mod(N( 7),N(5)),N(2))
 23105	    Etst(Mod(N( 8),N(5)),N(3))
 23106	    Etst(Mod(N( 9),N(5)),N(4))
 23107	
 23108	    Etst(Mod(N(-9),N(6)),N(3))
 23109	    Etst(Mod(N(-8),N(6)),N(4))
 23110	    Etst(Mod(N(-7),N(6)),N(5))
 23111	    Etst(Mod(N(-6),N(6)),N(0))
 23112	    Etst(Mod(N(-5),N(6)),N(1))
 23113	    Etst(Mod(N(-4),N(6)),N(2))
 23114	    Etst(Mod(N(-3),N(6)),N(3))
 23115	    Etst(Mod(N(-2),N(6)),N(4))
 23116	    Etst(Mod(N(-1),N(6)),N(5))
 23117	    Etst(Mod(N( 0),N(6)),N(0))
 23118	    Etst(Mod(N( 1),N(6)),N(1))
 23119	    Etst(Mod(N( 2),N(6)),N(2))
 23120	    Etst(Mod(N( 3),N(6)),N(3))
 23121	    Etst(Mod(N( 4),N(6)),N(4))
 23122	    Etst(Mod(N( 5),N(6)),N(5))
 23123	    Etst(Mod(N( 6),N(6)),N(0))
 23124	    Etst(Mod(N( 7),N(6)),N(1))
 23125	    Etst(Mod(N( 8),N(6)),N(2))
 23126	    Etst(Mod(N( 9),N(6)),N(3))
 23127	
 23128	    Etst(Mod(N(-9),N(7)),N(5))
 23129	    Etst(Mod(N(-8),N(7)),N(6))
 23130	    Etst(Mod(N(-7),N(7)),N(0))
 23131	    Etst(Mod(N(-6),N(7)),N(1))
 23132	    Etst(Mod(N(-5),N(7)),N(2))
 23133	    Etst(Mod(N(-4),N(7)),N(3))
 23134	    Etst(Mod(N(-3),N(7)),N(4))
 23135	    Etst(Mod(N(-2),N(7)),N(5))
 23136	    Etst(Mod(N(-1),N(7)),N(6))
 23137	    Etst(Mod(N( 0),N(7)),N(0))
 23138	    Etst(Mod(N( 1),N(7)),N(1))
 23139	    Etst(Mod(N( 2),N(7)),N(2))
 23140	    Etst(Mod(N( 3),N(7)),N(3))
 23141	    Etst(Mod(N( 4),N(7)),N(4))
 23142	    Etst(Mod(N( 5),N(7)),N(5))
 23143	    Etst(Mod(N( 6),N(7)),N(6))
 23144	    Etst(Mod(N( 7),N(7)),N(0))
 23145	    Etst(Mod(N( 8),N(7)),N(1))
 23146	    Etst(Mod(N( 9),N(7)),N(2))
 23147	
 23148	    Etst(Mod(N(-9),N(8)),N(7))
 23149	    Etst(Mod(N(-8),N(8)),N(0))
 23150	    Etst(Mod(N(-7),N(8)),N(1))
 23151	    Etst(Mod(N(-6),N(8)),N(2))
 23152	    Etst(Mod(N(-5),N(8)),N(3))
 23153	    Etst(Mod(N(-4),N(8)),N(4))
 23154	    Etst(Mod(N(-3),N(8)),N(5))
 23155	    Etst(Mod(N(-2),N(8)),N(6))
 23156	    Etst(Mod(N(-1),N(8)),N(7))
 23157	    Etst(Mod(N( 0),N(8)),N(0))
 23158	    Etst(Mod(N( 1),N(8)),N(1))
 23159	    Etst(Mod(N( 2),N(8)),N(2))
 23160	    Etst(Mod(N( 3),N(8)),N(3))
 23161	    Etst(Mod(N( 4),N(8)),N(4))
 23162	    Etst(Mod(N( 5),N(8)),N(5))
 23163	    Etst(Mod(N( 6),N(8)),N(6))
 23164	    Etst(Mod(N( 7),N(8)),N(7))
 23165	    Etst(Mod(N( 8),N(8)),N(0))
 23166	    Etst(Mod(N( 9),N(8)),N(1))
 23167	
 23168	    Etst(Mod(N(-9),N(9)),N(0))
 23169	    Etst(Mod(N(-8),N(9)),N(1))
 23170	    Etst(Mod(N(-7),N(9)),N(2))
 23171	    Etst(Mod(N(-6),N(9)),N(3))
 23172	    Etst(Mod(N(-5),N(9)),N(4))
 23173	    Etst(Mod(N(-4),N(9)),N(5))
 23174	    Etst(Mod(N(-3),N(9)),N(6))
 23175	    Etst(Mod(N(-2),N(9)),N(7))
 23176	    Etst(Mod(N(-1),N(9)),N(8))
 23177	    Etst(Mod(N( 0),N(9)),N(0))
 23178	    Etst(Mod(N( 1),N(9)),N(1))
 23179	    Etst(Mod(N( 2),N(9)),N(2))
 23180	    Etst(Mod(N( 3),N(9)),N(3))
 23181	    Etst(Mod(N( 4),N(9)),N(4))
 23182	    Etst(Mod(N( 5),N(9)),N(5))
 23183	    Etst(Mod(N( 6),N(9)),N(6))
 23184	    Etst(Mod(N( 7),N(9)),N(7))
 23185	    Etst(Mod(N( 8),N(9)),N(8))
 23186	    Etst(Mod(N( 9),N(9)),N(0))
 23187	
 23188	    Etst(Digitend ,N(0))
 23189	
 23190	    Etst(Exception,X)
 23191	
 23192	    Etst(Intg(TT,Z1),XX)
 23193	    Etst(Intg(FF,Z1),XX)
 23194	    Etst(Intg(Z0,Z1),Z1)
 23195	    Etst(Intg(X0,Z1),X0)
 23196	    Etst(Intg(X1,Z1),X1)
 23197	    Etst(Intg(P0,Z1),XX)
 23198	    Etst(Intg(M0,Z1),XX)
 23199	    Etst(Intg(B0,Z1),XX)
 23200	
 23201	    Etst(Boolg(TT,Z1),Z1)
 23202	    Etst(Boolg(FF,Z1),Z1)
 23203	    Etst(Boolg(Z0,Z1),XX)
 23204	    Etst(Boolg(X0,Z1),X0)
 23205	    Etst(Boolg(X1,Z1),X1)
 23206	    Etst(Boolg(P0,Z1),XX)
 23207	    Etst(Boolg(M0,Z1),XX)
 23208	    Etst(Boolg(B0,Z1),XX)
 23209	
 23210	    Etst(Mapg(TT,Z1),XX)
 23211	    Etst(Mapg(FF,Z1),XX)
 23212	    Etst(Mapg(Z0,Z1),XX)
 23213	    Etst(Mapg(X0,Z1),X0)
 23214	    Etst(Mapg(X1,Z1),X1)
 23215	    Etst(Mapg(P0,Z1),XX)
 23216	    Etst(Mapg(M0,Z1),Z1)
 23217	    Etst(Mapg(B0,Z1),XX)
 23218	
 23219	    Etst(Objg(TT,Z1),XX)
 23220	    Etst(Objg(FF,Z1),XX)
 23221	    Etst(Objg(Z0,Z1),XX)
 23222	    Etst(Objg(X0,Z1),X0)
 23223	    Etst(Objg(X1,Z1),X1)
 23224	    Etst(Objg(P0,Z1),XX)
 23225	    Etst(Objg(M0,Z1),XX)
 23226	    Etst(Objg(B0,Z1),Z1)
 23227	
 23228	    Etst(Pairg(TT,Z1),XX)
 23229	    Etst(Pairg(FF,Z1),XX)
 23230	    Etst(Pairg(Z0,Z1),XX)
 23231	    Etst(Pairg(X0,Z1),X0)
 23232	    Etst(Pairg(X1,Z1),X1)
 23233	    Etst(Pairg(P0,Z1),Z1)
 23234	    Etst(Pairg(M0,Z1),XX)
 23235	    Etst(Pairg(B0,Z1),XX)
 23236	
 23237	    Etst(Par(TT),TT)
 23238	    Etst(Par(FF),FF)
 23239	    Etst(Par(I0),I0)
 23240	    Etst(Par(X0),X0)
 23241	    Etst(Par(P0),P0)
 23242	    Etst(Par(M0),M0)
 23243	    Etst(Par(B0),B0)
 23244	    Etst(Par(UT      ),UT      )
 23245	    Etst(Par(UF      ),UF      )
 23246	    Etst(Par(UPTT    ),UPTT    )
 23247	    Etst(Par(UPTF    ),UPTF    )
 23248	    Etst(Par(UPFT    ),UPFT    )
 23249	    Etst(Par(UPFF    ),UPFF    )
 23250	    Etst(Par(UPPTTPTT),UPPTTPTT)
 23251	    Etst(Par(UPPTTPTF),UPPTTPTF)
 23252	    Etst(Par(UPPTTPFT),UPPTTPFT)
 23253	    Etst(Par(UPPTTPFF),UPPTTPFF)
 23254	    Etst(Par(UPPTFPTT),UPPTFPTT)
 23255	    Etst(Par(UPPTFPTF),UPPTFPTF)
 23256	    Etst(Par(UPPTFPFT),UPPTFPFT)
 23257	    Etst(Par(UPPTFPFF),UPPTFPFF)
 23258	    Etst(Par(UPPFTPTT),UPPFTPTT)
 23259	    Etst(Par(UPPFTPTF),UPPFTPTF)
 23260	    Etst(Par(UPPFTPFT),UPPFTPFT)
 23261	    Etst(Par(UPPFTPFF),UPPFTPFF)
 23262	    Etst(Par(UPPFFPTT),UPPFFPTT)
 23263	    Etst(Par(UPPFFPTF),UPPFFPTF)
 23264	    Etst(Par(UPPFFPFT),UPPFFPFT)
 23265	    Etst(Par(UPPFFPFF),UPPFFPFF)
 23266	
 23267	    Etst(Norm(TT),TT)
 23268	    Etst(Norm(FF),FF)
 23269	    Etst(Norm(I0),I0)
 23270	    Etst(Norm(X0),X0)
 23271	    Etst(Norm(P0),P0)
 23272	    Etst(Norm(M0),M0)
 23273	    Etst(Norm(B0),B0)
 23274	    Etst(Norm(UT      ),T)
 23275	    Etst(Norm(UF      ),F)
 23276	    Etst(Norm(UPTT    ),F)
 23277	    Etst(Norm(UPTF    ),F)
 23278	    Etst(Norm(UPFT    ),F)
 23279	    Etst(Norm(UPFF    ),F)
 23280	    Etst(Norm(UPPTTPTT),F)
 23281	    Etst(Norm(UPPTTPTF),F)
 23282	    Etst(Norm(UPPTTPFT),F)
 23283	    Etst(Norm(UPPTTPFF),F)
 23284	    Etst(Norm(UPPTFPTT),F)
 23285	    Etst(Norm(UPPTFPTF),F)
 23286	    Etst(Norm(UPPTFPFT),F)
 23287	    Etst(Norm(UPPTFPFF),F)
 23288	    Etst(Norm(UPPFTPTT),F)
 23289	    Etst(Norm(UPPFTPTF),F)
 23290	    Etst(Norm(UPPFTPFT),F)
 23291	    Etst(Norm(UPPFTPFF),F)
 23292	    Etst(Norm(UPPFFPTT),F)
 23293	    Etst(Norm(UPPFFPTF),F)
 23294	    Etst(Norm(UPPFFPFT),F)
 23295	    Etst(Norm(UPPFFPFF),F)
 23296	
 23297	    Etst(Prenorm(TT),TT)
 23298	    Etst(Prenorm(FF),FF)
 23299	    Etst(Prenorm(I0),I0)
 23300	    Etst(Prenorm(X0),X0)
 23301	    Etst(Prenorm(P0),P0)
 23302	    Etst(Prenorm(M0),M0)
 23303	    Etst(Prenorm(B0),B0)
 23304	    Etst(Prenorm(UT      ),T)
 23305	    Etst(Prenorm(UF      ),F)
 23306	    Etst(Prenorm(UPTT    ),F)
 23307	    Etst(Prenorm(UPTF    ),F)
 23308	    Etst(Prenorm(UPFT    ),F)
 23309	    Etst(Prenorm(UPFF    ),F)
 23310	    Etst(Prenorm(UPPTTPTT),F)
 23311	    Etst(Prenorm(UPPTTPTF),F)
 23312	    Etst(Prenorm(UPPTTPFT),F)
 23313	    Etst(Prenorm(UPPTTPFF),F)
 23314	    Etst(Prenorm(UPPTFPTT),F)
 23315	    Etst(Prenorm(UPPTFPTF),F)
 23316	    Etst(Prenorm(UPPTFPFT),F)
 23317	    Etst(Prenorm(UPPTFPFF),F)
 23318	    Etst(Prenorm(UPPFTPTT),F)
 23319	    Etst(Prenorm(UPPFTPTF),F)
 23320	    Etst(Prenorm(UPPFTPFT),F)
 23321	    Etst(Prenorm(UPPFTPFF),F)
 23322	    Etst(Prenorm(UPPFFPTT),F)
 23323	    Etst(Prenorm(UPPFFPTF),F)
 23324	    Etst(Prenorm(UPPFFPFT),F)
 23325	    Etst(Prenorm(UPPFFPFF),F)
 23326	
 23327	    Etst(Not(TT),FF)
 23328	    Etst(Not(FF),TT)
 23329	    Etst(Not(Z0),TT)
 23330	    Etst(Not(P0),TT)
 23331	    Etst(Not(X0),X0)
 23332	    Etst(Not(M0),TT)
 23333	    Etst(Not(B0),TT)
 23334	
 23335	    Etst(Untag(TT),XX)
 23336	    Etst(Untag(FF),XX)
 23337	    Etst(Untag(Z0),XX)
 23338	    Etst(Untag(P0),XX)
 23339	    Etst(Untag(X0),X0)
 23340	    Etst(Untag(M0),TT)
 23341	    Etst(Untag(B0),XX)
 23342	
 23343	    Ttst(Mapp(Map(TT)))
 23344	    Ttst(Mapp(Map(FF)))
 23345	    Ttst(Mapp(Map(Z0)))
 23346	    Ttst(Mapp(Map(P0)))
 23347	    Ttst(Mapp(Map(X0)))
 23348	    Ttst(Mapp(Map(M0)))
 23349	    Ttst(Mapp(Map(B0)))
 23350	    Etst(Untag(Map(TT)),TT)
 23351	    Etst(Untag(Map(FF)),FF)
 23352	    Etst(Untag(Map(Z0)),Z0)
 23353	    Etst(Untag(Map(P0)),P0)
 23354	    Etst(Untag(Map(X0)),X0)
 23355	    Etst(Untag(Map(M0)),M0)
 23356	    Etst(Untag(Map(B0)),B0)
 23357	    Etst(Untag(Map(UPPTTPTT)),FF)
 23358	
 23359	    Ttst(Mapp(Maptag(TT)))
 23360	    Ttst(Mapp(Maptag(FF)))
 23361	    Ttst(Mapp(Maptag(Z0)))
 23362	    Ttst(Mapp(Maptag(P0)))
 23363	    Etst(Maptag(X0),X0)
 23364	    Ttst(Mapp(Maptag(M0)))
 23365	    Ttst(Mapp(Maptag(B0)))
 23366	    Etst(Untag(Maptag(TT)),TT)
 23367	    Etst(Untag(Maptag(FF)),FF)
 23368	    Etst(Untag(Maptag(Z0)),Z0)
 23369	    Etst(Untag(Maptag(P0)),P0)
 23370	    Etst(Untag(Maptag(X0)),X0)
 23371	    Etst(Untag(Maptag(M0)),M0)
 23372	    Etst(Untag(Maptag(B0)),B0)
 23373	
 23374	    Ttst(Mapp(Maptag1(TT)))
 23375	    Ttst(Mapp(Maptag1(FF)))
 23376	    Ttst(Mapp(Maptag1(Z0)))
 23377	    Ttst(Mapp(Maptag1(P0)))
 23378	    Ttst(Mapp(Maptag1(X0)))
 23379	    Ttst(Mapp(Maptag1(M0)))
 23380	    Ttst(Mapp(Maptag1(B0)))
 23381	    Etst(Untag(Maptag1(TT)),TT)
 23382	    Etst(Untag(Maptag1(FF)),FF)
 23383	    Etst(Untag(Maptag1(Z0)),Z0)
 23384	    Etst(Untag(Maptag1(P0)),P0)
 23385	    Etst(Untag(Maptag1(X0)),X0)
 23386	    Etst(Untag(Maptag1(M0)),M0)
 23387	    Etst(Untag(Maptag1(B0)),B0)
 23388	
 23389	    ntst(LET(map_t,map_pair(map_t,map_t)))
 23390	    ntst(LET(map_f,map_pair(map_t,map_t)))
 23391	    ntst(LET(map_t,map_pair(map_t,map_f)))
 23392	    ptst(LET(map_f,map_pair(map_t,map_f)))
 23393	    ptst(LET(map_t,map_pair(map_f,map_t)))
 23394	    ntst(LET(map_f,map_pair(map_f,map_t)))
 23395	    ptst(LET(map_t,map_pair(map_f,map_f)))
 23396	    ptst(LET(map_f,map_pair(map_f,map_f)))
 23397	
 23398	    Xtst(Plus(TT,TT))
 23399	    Xtst(Plus(TT,FF))
 23400	    Xtst(Plus(TT,I0))
 23401	    Xtst(Plus(TT,P0))
 23402	    Xtst(Plus(TT,M0))
 23403	    Xtst(Plus(TT,B0))
 23404	    Xtst(Plus(FF,TT))
 23405	    Xtst(Plus(FF,FF))
 23406	    Xtst(Plus(FF,I0))
 23407	    Xtst(Plus(FF,P0))
 23408	    Xtst(Plus(FF,M0))
 23409	    Xtst(Plus(FF,B0))
 23410	    Xtst(Plus(I0,TT))
 23411	    Xtst(Plus(I0,FF))
 23412	    Xtst(Plus(I0,P0))
 23413	    Xtst(Plus(I0,M0))
 23414	    Xtst(Plus(I0,B0))
 23415	    Xtst(Plus(P0,TT))
 23416	    Xtst(Plus(P0,FF))
 23417	    Xtst(Plus(P0,I0))
 23418	    Xtst(Plus(P0,P0))
 23419	    Xtst(Plus(P0,M0))
 23420	    Xtst(Plus(P0,B0))
 23421	    Xtst(Plus(M0,TT))
 23422	    Xtst(Plus(M0,FF))
 23423	    Xtst(Plus(M0,I0))
 23424	    Xtst(Plus(M0,P0))
 23425	    Xtst(Plus(M0,M0))
 23426	    Xtst(Plus(M0,B0))
 23427	    Xtst(Plus(B0,TT))
 23428	    Xtst(Plus(B0,FF))
 23429	    Xtst(Plus(B0,I0))
 23430	    Xtst(Plus(B0,P0))
 23431	    Xtst(Plus(B0,M0))
 23432	    Xtst(Plus(B0,B0))
 23433	    Etst(Plus(JN(-3),JN(-3)),JN(-6))
 23434	    Etst(Plus(JN(-3),JN(-2)),JN(-5))
 23435	    Etst(Plus(JN(-3),JN(-1)),JN(-4))
 23436	    Etst(Plus(JN(-3),JN( 0)),JN(-3))
 23437	    Etst(Plus(JN(-3),JN( 1)),JN(-2))
 23438	    Etst(Plus(JN(-3),JN( 2)),JN(-1))
 23439	    Etst(Plus(JN(-2),JN(-3)),JN(-5))
 23440	    Etst(Plus(JN(-2),JN(-2)),JN(-4))
 23441	    Etst(Plus(JN(-2),JN(-1)),JN(-3))
 23442	    Etst(Plus(JN(-2),JN( 0)),JN(-2))
 23443	    Etst(Plus(JN(-2),JN( 1)),JN(-1))
 23444	    Etst(Plus(JN(-2),JN( 2)),JN( 0))
 23445	    Etst(Plus(JN(-1),JN(-3)),JN(-4))
 23446	    Etst(Plus(JN(-1),JN(-2)),JN(-3))
 23447	    Etst(Plus(JN(-1),JN(-1)),JN(-2))
 23448	    Etst(Plus(JN(-1),JN( 0)),JN(-1))
 23449	    Etst(Plus(JN(-1),JN( 1)),JN( 0))
 23450	    Etst(Plus(JN(-1),JN( 2)),JN( 1))
 23451	    Etst(Plus(JN( 0),JN(-3)),JN(-3))
 23452	    Etst(Plus(JN( 0),JN(-2)),JN(-2))
 23453	    Etst(Plus(JN( 0),JN(-1)),JN(-1))
 23454	    Etst(Plus(JN( 0),JN( 0)),JN( 0))
 23455	    Etst(Plus(JN( 0),JN( 1)),JN( 1))
 23456	    Etst(Plus(JN( 0),JN( 2)),JN( 2))
 23457	    Etst(Plus(JN( 1),JN(-3)),JN(-2))
 23458	    Etst(Plus(JN( 1),JN(-2)),JN(-1))
 23459	    Etst(Plus(JN( 1),JN(-1)),JN( 0))
 23460	    Etst(Plus(JN( 1),JN( 0)),JN( 1))
 23461	    Etst(Plus(JN( 1),JN( 1)),JN( 2))
 23462	    Etst(Plus(JN( 1),JN( 2)),JN( 3))
 23463	    Etst(Plus(JN( 2),JN(-3)),JN(-1))
 23464	    Etst(Plus(JN( 2),JN(-2)),JN( 0))
 23465	    Etst(Plus(JN( 2),JN(-1)),JN( 1))
 23466	    Etst(Plus(JN( 2),JN( 0)),JN( 2))
 23467	    Etst(Plus(JN( 2),JN( 1)),JN( 3))
 23468	    Etst(Plus(JN( 2),JN( 2)),JN( 4))
 23469	    Etst(Plus(K2( 0, 0),K2( 0, 0)),K2( 0, 0))
 23470	    Etst(Plus(K2( 0, 0),K2( 0,-1)),K2( 0,-1))
 23471	    Etst(Plus(K2( 0, 0),K2(-1, 0)),K2(-1, 0))
 23472	    Etst(Plus(K2( 0, 0),K2(-1,-1)),K2(-1,-1))
 23473	    Etst(Plus(K2( 0,-1),K2( 0, 0)),K2( 0,-1))
 23474	    Etst(Plus(K2( 0,-1),K2( 0,-1)),K2( 0,-2))
 23475	    Etst(Plus(K2( 0,-1),K2(-1, 0)),K2(-1,-1))
 23476	    Etst(Plus(K2( 0,-1),K2(-1,-1)),K2(-1,-2))
 23477	    Etst(Plus(K2(-1, 0),K2( 0, 0)),K2(-1, 0))
 23478	    Etst(Plus(K2(-1, 0),K2( 0,-1)),K2(-1,-1))
 23479	    Etst(Plus(K2(-1, 0),K2(-1, 0)),K2(-2, 1))
 23480	    Etst(Plus(K2(-1, 0),K2(-1,-1)),K2(-2, 0))
 23481	    Etst(Plus(K2(-1,-1),K2( 0, 0)),K2(-1,-1))
 23482	    Etst(Plus(K2(-1,-1),K2( 0,-1)),K2(-1,-2))
 23483	    Etst(Plus(K2(-1,-1),K2(-1, 0)),K2(-2, 0))
 23484	    Etst(Plus(K2(-1,-1),K2(-1,-1)),K2(-2,-1))
 23485	
 23486	    Etst(Plus(N(-1000000000000),N(-1000000000000)),N(-2000000000000))
 23487	    Etst(Plus(N(-1000000000000),N(   -1000000000)),N(-1001000000000))
 23488	    Etst(Plus(N(-1000000000000),N(      -1000000)),N(-1000001000000))
 23489	    Etst(Plus(N(-1000000000000),N(         -1000)),N(-1000000001000))
 23490	    Etst(Plus(N(-1000000000000),N(          -100)),N(-1000000000100))
 23491	    Etst(Plus(N(-1000000000000),N(           -10)),N(-1000000000010))
 23492	    Etst(Plus(N(-1000000000000),N(            -1)),N(-1000000000001))
 23493	    Etst(Plus(N(-1000000000000),N(             0)),N(-1000000000000))
 23494	    Etst(Plus(N(-1000000000000),N(             1)),N(-0999999999999))
 23495	    Etst(Plus(N(-1000000000000),N(            10)),N(-0999999999990))
 23496	    Etst(Plus(N(-1000000000000),N(           100)),N(-0999999999900))
 23497	    Etst(Plus(N(-1000000000000),N(          1000)),N(-0999999999000))
 23498	    Etst(Plus(N(-1000000000000),N(       1000000)),N(-0999999000000))
 23499	    Etst(Plus(N(-1000000000000),N(    1000000000)),N(-0999000000000))
 23500	    Etst(Plus(N(-1000000000000),N( 1000000000000)),N(-0000000000000))
 23501	
 23502	    Etst(Plus(N(   -1000000000),N(-1000000000000)),N(-1001000000000))
 23503	    Etst(Plus(N(   -1000000000),N(   -1000000000)),N(-0002000000000))
 23504	    Etst(Plus(N(   -1000000000),N(      -1000000)),N(-0001001000000))
 23505	    Etst(Plus(N(   -1000000000),N(         -1000)),N(-0001000001000))
 23506	    Etst(Plus(N(   -1000000000),N(          -100)),N(-0001000000100))
 23507	    Etst(Plus(N(   -1000000000),N(           -10)),N(-0001000000010))
 23508	    Etst(Plus(N(   -1000000000),N(            -1)),N(-0001000000001))
 23509	    Etst(Plus(N(   -1000000000),N(             0)),N(-0001000000000))
 23510	    Etst(Plus(N(   -1000000000),N(             1)),N(-0000999999999))
 23511	    Etst(Plus(N(   -1000000000),N(            10)),N(-0000999999990))
 23512	    Etst(Plus(N(   -1000000000),N(           100)),N(-0000999999900))
 23513	    Etst(Plus(N(   -1000000000),N(          1000)),N(-0000999999000))
 23514	    Etst(Plus(N(   -1000000000),N(       1000000)),N(-0000999000000))
 23515	    Etst(Plus(N(   -1000000000),N(    1000000000)),N(-0000000000000))
 23516	    Etst(Plus(N(   -1000000000),N( 1000000000000)),N( 0999000000000))
 23517	
 23518	    Etst(Plus(N(      -1000000),N(-1000000000000)),N(-1000001000000))
 23519	    Etst(Plus(N(      -1000000),N(   -1000000000)),N(-0001001000000))
 23520	    Etst(Plus(N(      -1000000),N(      -1000000)),N(-0000002000000))
 23521	    Etst(Plus(N(      -1000000),N(         -1000)),N(-0000001001000))
 23522	    Etst(Plus(N(      -1000000),N(          -100)),N(-0000001000100))
 23523	    Etst(Plus(N(      -1000000),N(           -10)),N(-0000001000010))
 23524	    Etst(Plus(N(      -1000000),N(            -1)),N(-0000001000001))
 23525	    Etst(Plus(N(      -1000000),N(             0)),N(-0000001000000))
 23526	    Etst(Plus(N(      -1000000),N(             1)),N(-0000000999999))
 23527	    Etst(Plus(N(      -1000000),N(            10)),N(-0000000999990))
 23528	    Etst(Plus(N(      -1000000),N(           100)),N(-0000000999900))
 23529	    Etst(Plus(N(      -1000000),N(          1000)),N(-0000000999000))
 23530	    Etst(Plus(N(      -1000000),N(       1000000)),N(-0000000000000))
 23531	    Etst(Plus(N(      -1000000),N(    1000000000)),N( 0000999000000))
 23532	    Etst(Plus(N(      -1000000),N( 1000000000000)),N( 0999999000000))
 23533	
 23534	    Etst(Plus(N(         -1000),N(-1000000000000)),N(-1000000001000))
 23535	    Etst(Plus(N(         -1000),N(   -1000000000)),N(-0001000001000))
 23536	    Etst(Plus(N(         -1000),N(      -1000000)),N(-0000001001000))
 23537	    Etst(Plus(N(         -1000),N(         -1000)),N(-0000000002000))
 23538	    Etst(Plus(N(         -1000),N(          -100)),N(-0000000001100))
 23539	    Etst(Plus(N(         -1000),N(           -10)),N(-0000000001010))
 23540	    Etst(Plus(N(         -1000),N(            -1)),N(-0000000001001))
 23541	    Etst(Plus(N(         -1000),N(             0)),N(-0000000001000))
 23542	    Etst(Plus(N(         -1000),N(             1)),N(-0000000000999))
 23543	    Etst(Plus(N(         -1000),N(            10)),N(-0000000000990))
 23544	    Etst(Plus(N(         -1000),N(           100)),N(-0000000000900))
 23545	    Etst(Plus(N(         -1000),N(          1000)),N( 0000000000000))
 23546	    Etst(Plus(N(         -1000),N(       1000000)),N( 0000000999000))
 23547	    Etst(Plus(N(         -1000),N(    1000000000)),N( 0000999999000))
 23548	    Etst(Plus(N(         -1000),N( 1000000000000)),N( 0999999999000))
 23549	
 23550	    Etst(Plus(N(          -100),N(-1000000000000)),N(-1000000000100))
 23551	    Etst(Plus(N(          -100),N(   -1000000000)),N(-0001000000100))
 23552	    Etst(Plus(N(          -100),N(      -1000000)),N(-0000001000100))
 23553	    Etst(Plus(N(          -100),N(         -1000)),N(-0000000001100))
 23554	    Etst(Plus(N(          -100),N(          -100)),N(-0000000000200))
 23555	    Etst(Plus(N(          -100),N(           -10)),N(-0000000000110))
 23556	    Etst(Plus(N(          -100),N(            -1)),N(-0000000000101))
 23557	    Etst(Plus(N(          -100),N(             0)),N(-0000000000100))
 23558	    Etst(Plus(N(          -100),N(             1)),N(-0000000000099))
 23559	    Etst(Plus(N(          -100),N(            10)),N(-0000000000090))
 23560	    Etst(Plus(N(          -100),N(           100)),N( 0000000000000))
 23561	    Etst(Plus(N(          -100),N(          1000)),N( 0000000000900))
 23562	    Etst(Plus(N(          -100),N(       1000000)),N( 0000000999900))
 23563	    Etst(Plus(N(          -100),N(    1000000000)),N( 0000999999900))
 23564	    Etst(Plus(N(          -100),N( 1000000000000)),N( 0999999999900))
 23565	
 23566	    Etst(Plus(N(           -10),N(-1000000000000)),N(-1000000000010))
 23567	    Etst(Plus(N(           -10),N(   -1000000000)),N(-0001000000010))
 23568	    Etst(Plus(N(           -10),N(      -1000000)),N(-0000001000010))
 23569	    Etst(Plus(N(           -10),N(         -1000)),N(-0000000001010))
 23570	    Etst(Plus(N(           -10),N(          -100)),N(-0000000000110))
 23571	    Etst(Plus(N(           -10),N(           -10)),N(-0000000000020))
 23572	    Etst(Plus(N(           -10),N(            -1)),N(-0000000000011))
 23573	    Etst(Plus(N(           -10),N(             0)),N(-0000000000010))
 23574	    Etst(Plus(N(           -10),N(             1)),N(-0000000000009))
 23575	    Etst(Plus(N(           -10),N(            10)),N( 0000000000000))
 23576	    Etst(Plus(N(           -10),N(           100)),N( 0000000000090))
 23577	    Etst(Plus(N(           -10),N(          1000)),N( 0000000000990))
 23578	    Etst(Plus(N(           -10),N(       1000000)),N( 0000000999990))
 23579	    Etst(Plus(N(           -10),N(    1000000000)),N( 0000999999990))
 23580	    Etst(Plus(N(           -10),N( 1000000000000)),N( 0999999999990))
 23581	
 23582	    Etst(Plus(N(            -1),N(-1000000000000)),N(-1000000000001))
 23583	    Etst(Plus(N(            -1),N(   -1000000000)),N(-0001000000001))
 23584	    Etst(Plus(N(            -1),N(      -1000000)),N(-0000001000001))
 23585	    Etst(Plus(N(            -1),N(         -1000)),N(-0000000001001))
 23586	    Etst(Plus(N(            -1),N(          -100)),N(-0000000000101))
 23587	    Etst(Plus(N(            -1),N(           -10)),N(-0000000000011))
 23588	    Etst(Plus(N(            -1),N(            -1)),N(-0000000000002))
 23589	    Etst(Plus(N(            -1),N(             0)),N(-0000000000001))
 23590	    Etst(Plus(N(            -1),N(             1)),N( 0000000000000))
 23591	    Etst(Plus(N(            -1),N(            10)),N( 0000000000009))
 23592	    Etst(Plus(N(            -1),N(           100)),N( 0000000000099))
 23593	    Etst(Plus(N(            -1),N(          1000)),N( 0000000000999))
 23594	    Etst(Plus(N(            -1),N(       1000000)),N( 0000000999999))
 23595	    Etst(Plus(N(            -1),N(    1000000000)),N( 0000999999999))
 23596	    Etst(Plus(N(            -1),N( 1000000000000)),N( 0999999999999))
 23597	
 23598	    Etst(Plus(N(             0),N(-1000000000000)),N(-1000000000000))
 23599	    Etst(Plus(N(             0),N(   -1000000000)),N(-0001000000000))
 23600	    Etst(Plus(N(             0),N(      -1000000)),N(-0000001000000))
 23601	    Etst(Plus(N(             0),N(         -1000)),N(-0000000001000))
 23602	    Etst(Plus(N(             0),N(          -100)),N(-0000000000100))
 23603	    Etst(Plus(N(             0),N(           -10)),N(-0000000000010))
 23604	    Etst(Plus(N(             0),N(            -1)),N(-0000000000001))
 23605	    Etst(Plus(N(             0),N(             0)),N( 0000000000000))
 23606	    Etst(Plus(N(             0),N(             1)),N( 0000000000001))
 23607	    Etst(Plus(N(             0),N(            10)),N( 0000000000010))
 23608	    Etst(Plus(N(             0),N(           100)),N( 0000000000100))
 23609	    Etst(Plus(N(             0),N(          1000)),N( 0000000001000))
 23610	    Etst(Plus(N(             0),N(       1000000)),N( 0000001000000))
 23611	    Etst(Plus(N(             0),N(    1000000000)),N( 0001000000000))
 23612	    Etst(Plus(N(             0),N( 1000000000000)),N( 1000000000000))
 23613	
 23614	    Etst(Plus(N( 1000000000000),N( 1000000000000)),N( 2000000000000))
 23615	    Etst(Plus(N( 1000000000000),N(    1000000000)),N( 1001000000000))
 23616	    Etst(Plus(N( 1000000000000),N(       1000000)),N( 1000001000000))
 23617	    Etst(Plus(N( 1000000000000),N(          1000)),N( 1000000001000))
 23618	    Etst(Plus(N( 1000000000000),N(           100)),N( 1000000000100))
 23619	    Etst(Plus(N( 1000000000000),N(            10)),N( 1000000000010))
 23620	    Etst(Plus(N( 1000000000000),N(             1)),N( 1000000000001))
 23621	    Etst(Plus(N( 1000000000000),N(             0)),N( 1000000000000))
 23622	    Etst(Plus(N( 1000000000000),N(            -1)),N( 0999999999999))
 23623	    Etst(Plus(N( 1000000000000),N(           -10)),N( 0999999999990))
 23624	    Etst(Plus(N( 1000000000000),N(          -100)),N( 0999999999900))
 23625	    Etst(Plus(N( 1000000000000),N(         -1000)),N( 0999999999000))
 23626	    Etst(Plus(N( 1000000000000),N(      -1000000)),N( 0999999000000))
 23627	    Etst(Plus(N( 1000000000000),N(   -1000000000)),N( 0999000000000))
 23628	    Etst(Plus(N( 1000000000000),N(-1000000000000)),N( 0000000000000))
 23629	
 23630	    Etst(Plus(N(    1000000000),N( 1000000000000)),N( 1001000000000))
 23631	    Etst(Plus(N(    1000000000),N(    1000000000)),N( 0002000000000))
 23632	    Etst(Plus(N(    1000000000),N(       1000000)),N( 0001001000000))
 23633	    Etst(Plus(N(    1000000000),N(          1000)),N( 0001000001000))
 23634	    Etst(Plus(N(    1000000000),N(           100)),N( 0001000000100))
 23635	    Etst(Plus(N(    1000000000),N(            10)),N( 0001000000010))
 23636	    Etst(Plus(N(    1000000000),N(             1)),N( 0001000000001))
 23637	    Etst(Plus(N(    1000000000),N(             0)),N( 0001000000000))
 23638	    Etst(Plus(N(    1000000000),N(            -1)),N( 0000999999999))
 23639	    Etst(Plus(N(    1000000000),N(           -10)),N( 0000999999990))
 23640	    Etst(Plus(N(    1000000000),N(          -100)),N( 0000999999900))
 23641	    Etst(Plus(N(    1000000000),N(         -1000)),N( 0000999999000))
 23642	    Etst(Plus(N(    1000000000),N(      -1000000)),N( 0000999000000))
 23643	    Etst(Plus(N(    1000000000),N(   -1000000000)),N( 0000000000000))
 23644	    Etst(Plus(N(    1000000000),N(-1000000000000)),N(-0999000000000))
 23645	
 23646	    Etst(Plus(N(       1000000),N( 1000000000000)),N( 1000001000000))
 23647	    Etst(Plus(N(       1000000),N(    1000000000)),N( 0001001000000))
 23648	    Etst(Plus(N(       1000000),N(       1000000)),N( 0000002000000))
 23649	    Etst(Plus(N(       1000000),N(          1000)),N( 0000001001000))
 23650	    Etst(Plus(N(       1000000),N(           100)),N( 0000001000100))
 23651	    Etst(Plus(N(       1000000),N(            10)),N( 0000001000010))
 23652	    Etst(Plus(N(       1000000),N(             1)),N( 0000001000001))
 23653	    Etst(Plus(N(       1000000),N(             0)),N( 0000001000000))
 23654	    Etst(Plus(N(       1000000),N(            -1)),N( 0000000999999))
 23655	    Etst(Plus(N(       1000000),N(           -10)),N( 0000000999990))
 23656	    Etst(Plus(N(       1000000),N(          -100)),N( 0000000999900))
 23657	    Etst(Plus(N(       1000000),N(         -1000)),N( 0000000999000))
 23658	    Etst(Plus(N(       1000000),N(      -1000000)),N( 0000000000000))
 23659	    Etst(Plus(N(       1000000),N(   -1000000000)),N(-0000999000000))
 23660	    Etst(Plus(N(       1000000),N(-1000000000000)),N(-0999999000000))
 23661	
 23662	    Etst(Plus(N(          1000),N( 1000000000000)),N( 1000000001000))
 23663	    Etst(Plus(N(          1000),N(    1000000000)),N( 0001000001000))
 23664	    Etst(Plus(N(          1000),N(       1000000)),N( 0000001001000))
 23665	    Etst(Plus(N(          1000),N(          1000)),N( 0000000002000))
 23666	    Etst(Plus(N(          1000),N(           100)),N( 0000000001100))
 23667	    Etst(Plus(N(          1000),N(            10)),N( 0000000001010))
 23668	    Etst(Plus(N(          1000),N(             1)),N( 0000000001001))
 23669	    Etst(Plus(N(          1000),N(             0)),N( 0000000001000))
 23670	    Etst(Plus(N(          1000),N(            -1)),N( 0000000000999))
 23671	    Etst(Plus(N(          1000),N(           -10)),N( 0000000000990))
 23672	    Etst(Plus(N(          1000),N(          -100)),N( 0000000000900))
 23673	    Etst(Plus(N(          1000),N(         -1000)),N(-0000000000000))
 23674	    Etst(Plus(N(          1000),N(      -1000000)),N(-0000000999000))
 23675	    Etst(Plus(N(          1000),N(   -1000000000)),N(-0000999999000))
 23676	    Etst(Plus(N(          1000),N(-1000000000000)),N(-0999999999000))
 23677	
 23678	    Etst(Plus(N(           100),N( 1000000000000)),N( 1000000000100))
 23679	    Etst(Plus(N(           100),N(    1000000000)),N( 0001000000100))
 23680	    Etst(Plus(N(           100),N(       1000000)),N( 0000001000100))
 23681	    Etst(Plus(N(           100),N(          1000)),N( 0000000001100))
 23682	    Etst(Plus(N(           100),N(           100)),N( 0000000000200))
 23683	    Etst(Plus(N(           100),N(            10)),N( 0000000000110))
 23684	    Etst(Plus(N(           100),N(             1)),N( 0000000000101))
 23685	    Etst(Plus(N(           100),N(             0)),N( 0000000000100))
 23686	    Etst(Plus(N(           100),N(            -1)),N( 0000000000099))
 23687	    Etst(Plus(N(           100),N(           -10)),N( 0000000000090))
 23688	    Etst(Plus(N(           100),N(          -100)),N(-0000000000000))
 23689	    Etst(Plus(N(           100),N(         -1000)),N(-0000000000900))
 23690	    Etst(Plus(N(           100),N(      -1000000)),N(-0000000999900))
 23691	    Etst(Plus(N(           100),N(   -1000000000)),N(-0000999999900))
 23692	    Etst(Plus(N(           100),N(-1000000000000)),N(-0999999999900))
 23693	
 23694	    Etst(Plus(N(            10),N( 1000000000000)),N( 1000000000010))
 23695	    Etst(Plus(N(            10),N(    1000000000)),N( 0001000000010))
 23696	    Etst(Plus(N(            10),N(       1000000)),N( 0000001000010))
 23697	    Etst(Plus(N(            10),N(          1000)),N( 0000000001010))
 23698	    Etst(Plus(N(            10),N(           100)),N( 0000000000110))
 23699	    Etst(Plus(N(            10),N(            10)),N( 0000000000020))
 23700	    Etst(Plus(N(            10),N(             1)),N( 0000000000011))
 23701	    Etst(Plus(N(            10),N(             0)),N( 0000000000010))
 23702	    Etst(Plus(N(            10),N(            -1)),N( 0000000000009))
 23703	    Etst(Plus(N(            10),N(           -10)),N(-0000000000000))
 23704	    Etst(Plus(N(            10),N(          -100)),N(-0000000000090))
 23705	    Etst(Plus(N(            10),N(         -1000)),N(-0000000000990))
 23706	    Etst(Plus(N(            10),N(      -1000000)),N(-0000000999990))
 23707	    Etst(Plus(N(            10),N(   -1000000000)),N(-0000999999990))
 23708	    Etst(Plus(N(            10),N(-1000000000000)),N(-0999999999990))
 23709	
 23710	    Etst(Plus(N(             1),N( 1000000000000)),N( 1000000000001))
 23711	    Etst(Plus(N(             1),N(    1000000000)),N( 0001000000001))
 23712	    Etst(Plus(N(             1),N(       1000000)),N( 0000001000001))
 23713	    Etst(Plus(N(             1),N(          1000)),N( 0000000001001))
 23714	    Etst(Plus(N(             1),N(           100)),N( 0000000000101))
 23715	    Etst(Plus(N(             1),N(            10)),N( 0000000000011))
 23716	    Etst(Plus(N(             1),N(             1)),N( 0000000000002))
 23717	    Etst(Plus(N(             1),N(             0)),N( 0000000000001))
 23718	    Etst(Plus(N(             1),N(            -1)),N(-0000000000000))
 23719	    Etst(Plus(N(             1),N(           -10)),N(-0000000000009))
 23720	    Etst(Plus(N(             1),N(          -100)),N(-0000000000099))
 23721	    Etst(Plus(N(             1),N(         -1000)),N(-0000000000999))
 23722	    Etst(Plus(N(             1),N(      -1000000)),N(-0000000999999))
 23723	    Etst(Plus(N(             1),N(   -1000000000)),N(-0000999999999))
 23724	    Etst(Plus(N(             1),N(-1000000000000)),N(-0999999999999))
 23725	
 23726	    Xtst(Minus(TT,TT))
 23727	    Xtst(Minus(TT,FF))
 23728	    Xtst(Minus(TT,I0))
 23729	    Xtst(Minus(TT,P0))
 23730	    Xtst(Minus(TT,M0))
 23731	    Xtst(Minus(TT,B0))
 23732	    Xtst(Minus(FF,TT))
 23733	    Xtst(Minus(FF,FF))
 23734	    Xtst(Minus(FF,I0))
 23735	    Xtst(Minus(FF,P0))
 23736	    Xtst(Minus(FF,M0))
 23737	    Xtst(Minus(FF,B0))
 23738	    Xtst(Minus(I0,TT))
 23739	    Xtst(Minus(I0,FF))
 23740	    Xtst(Minus(I0,P0))
 23741	    Xtst(Minus(I0,M0))
 23742	    Xtst(Minus(I0,B0))
 23743	    Xtst(Minus(P0,TT))
 23744	    Xtst(Minus(P0,FF))
 23745	    Xtst(Minus(P0,I0))
 23746	    Xtst(Minus(P0,P0))
 23747	    Xtst(Minus(P0,M0))
 23748	    Xtst(Minus(P0,B0))
 23749	    Xtst(Minus(M0,TT))
 23750	    Xtst(Minus(M0,FF))
 23751	    Xtst(Minus(M0,I0))
 23752	    Xtst(Minus(M0,P0))
 23753	    Xtst(Minus(M0,M0))
 23754	    Xtst(Minus(M0,B0))
 23755	    Xtst(Minus(B0,TT))
 23756	    Xtst(Minus(B0,FF))
 23757	    Xtst(Minus(B0,I0))
 23758	    Xtst(Minus(B0,P0))
 23759	    Xtst(Minus(B0,M0))
 23760	    Xtst(Minus(B0,B0))
 23761	    Etst(Minus(JN(-3),JN(-3)),JN( 0))
 23762	    Etst(Minus(JN(-3),JN(-2)),JN(-1))
 23763	    Etst(Minus(JN(-3),JN(-1)),JN(-2))
 23764	    Etst(Minus(JN(-3),JN( 0)),JN(-3))
 23765	    Etst(Minus(JN(-3),JN( 1)),JN(-4))
 23766	    Etst(Minus(JN(-3),JN( 2)),JN(-5))
 23767	    Etst(Minus(JN(-2),JN(-3)),JN( 1))
 23768	    Etst(Minus(JN(-2),JN(-2)),JN( 0))
 23769	    Etst(Minus(JN(-2),JN(-1)),JN(-1))
 23770	    Etst(Minus(JN(-2),JN( 0)),JN(-2))
 23771	    Etst(Minus(JN(-2),JN( 1)),JN(-3))
 23772	    Etst(Minus(JN(-2),JN( 2)),JN(-4))
 23773	    Etst(Minus(JN(-1),JN(-3)),JN( 2))
 23774	    Etst(Minus(JN(-1),JN(-2)),JN( 1))
 23775	    Etst(Minus(JN(-1),JN(-1)),JN( 0))
 23776	    Etst(Minus(JN(-1),JN( 0)),JN(-1))
 23777	    Etst(Minus(JN(-1),JN( 1)),JN(-2))
 23778	    Etst(Minus(JN(-1),JN( 2)),JN(-3))
 23779	    Etst(Minus(JN( 0),JN(-3)),JN( 3))
 23780	    Etst(Minus(JN( 0),JN(-2)),JN( 2))
 23781	    Etst(Minus(JN( 0),JN(-1)),JN( 1))
 23782	    Etst(Minus(JN( 0),JN( 0)),JN( 0))
 23783	    Etst(Minus(JN( 0),JN( 1)),JN(-1))
 23784	    Etst(Minus(JN( 0),JN( 2)),JN(-2))
 23785	    Etst(Minus(JN( 1),JN(-3)),JN( 4))
 23786	    Etst(Minus(JN( 1),JN(-2)),JN( 3))
 23787	    Etst(Minus(JN( 1),JN(-1)),JN( 2))
 23788	    Etst(Minus(JN( 1),JN( 0)),JN( 1))
 23789	    Etst(Minus(JN( 1),JN( 1)),JN( 0))
 23790	    Etst(Minus(JN( 1),JN( 2)),JN(-1))
 23791	    Etst(Minus(JN( 2),JN(-3)),JN( 5))
 23792	    Etst(Minus(JN( 2),JN(-2)),JN( 4))
 23793	    Etst(Minus(JN( 2),JN(-1)),JN( 3))
 23794	    Etst(Minus(JN( 2),JN( 0)),JN( 2))
 23795	    Etst(Minus(JN( 2),JN( 1)),JN( 1))
 23796	    Etst(Minus(JN( 2),JN( 2)),JN( 0))
 23797	    Etst(Minus(K2( 0, 0),K2( 0, 0)),K2( 0, 0))
 23798	    Etst(Minus(K2( 0, 0),K2( 0, 1)),K2( 0,-1))
 23799	    Etst(Minus(K2( 0, 0),K2( 1,-1)),K2(-1, 0))
 23800	    Etst(Minus(K2( 0, 0),K2( 1, 0)),K2(-1,-1))
 23801	    Etst(Minus(K2( 0,-1),K2( 0, 0)),K2( 0,-1))
 23802	    Etst(Minus(K2( 0,-1),K2( 0, 1)),K2( 0,-2))
 23803	    Etst(Minus(K2( 0,-1),K2( 1,-1)),K2(-1,-1))
 23804	    Etst(Minus(K2( 0,-1),K2( 1, 0)),K2(-1,-2))
 23805	    Etst(Minus(K2(-1, 0),K2( 0, 0)),K2(-1, 0))
 23806	    Etst(Minus(K2(-1, 0),K2( 0, 1)),K2(-1,-1))
 23807	    Etst(Minus(K2(-1, 0),K2( 1,-1)),K2(-2, 1))
 23808	    Etst(Minus(K2(-1, 0),K2( 1, 0)),K2(-2, 0))
 23809	    Etst(Minus(K2(-1,-1),K2( 0, 0)),K2(-1,-1))
 23810	    Etst(Minus(K2(-1,-1),K2( 0, 1)),K2(-1,-2))
 23811	    Etst(Minus(K2(-1,-1),K2( 1,-1)),K2(-2, 0))
 23812	    Etst(Minus(K2(-1,-1),K2( 1, 0)),K2(-2,-1))
 23813	
 23814	    Xtst(Uplus(TT))
 23815	    Xtst(Uplus(FF))
 23816	    Xtst(Uplus(P0))
 23817	    Xtst(Uplus(M0))
 23818	    Xtst(Uplus(B0))
 23819	    Etst(Uplus(Z),Z)
 23820	    Etst(Uplus(M),M)
 23821	    Etst(Uplus(I0011),I0011)
 23822	    Etst(Uplus(J1010_0101),J1010_0101)
 23823	
 23824	    Xtst(Dplus(TT))
 23825	    Xtst(Dplus(FF))
 23826	    Xtst(Dplus(P0))
 23827	    Xtst(Dplus(M0))
 23828	    Xtst(Dplus(B0))
 23829	    Etst(Dplus(Z),Z)
 23830	    Etst(Dplus(M),M)
 23831	    Etst(Dplus(I0011),I0011)
 23832	    Etst(Dplus(J1010_0101),J1010_0101)
 23833	
 23834	    Xtst(Uminus(TT))
 23835	    Xtst(Uminus(FF))
 23836	    Xtst(Uminus(P0))
 23837	    Xtst(Uminus(M0))
 23838	    Xtst(Uminus(B0))
 23839	    Etst(Uminus(JN(-2)),JN( 2))
 23840	    Etst(Uminus(JN(-1)),JN( 1))
 23841	    Etst(Uminus(JN( 0)),JN( 0))
 23842	    Etst(Uminus(JN( 1)),JN(-1))
 23843	    Etst(Uminus(JN( 2)),JN(-2))
 23844	    Etst(Uminus(K2(-1,-1)),K2( 1, 0))
 23845	    Etst(Uminus(K2(-1, 0)),K2( 1,-1))
 23846	    Etst(Uminus(K2(-1, 1)),K2( 1,-2))
 23847	    Etst(Uminus(K2( 0,-1)),K2( 0, 1))
 23848	    Etst(Uminus(K2( 0, 0)),K2( 0, 0))
 23849	    Etst(Uminus(K2( 0, 1)),K2( 0,-1))
 23850	    Etst(Uminus(K2( 1,-1)),K2(-1, 0))
 23851	    Etst(Uminus(K2( 1, 0)),K2(-1,-1))
 23852	    Etst(Uminus(K2( 1, 1)),K2(-1,-2))
 23853	
 23854	    Xtst(Dminus(TT))
 23855	    Xtst(Dminus(FF))
 23856	    Xtst(Dminus(P0))
 23857	    Xtst(Dminus(M0))
 23858	    Xtst(Dminus(B0))
 23859	    Etst(Dminus(JN(-2)),JN( 2))
 23860	    Etst(Dminus(JN(-1)),JN( 1))
 23861	    Etst(Dminus(JN( 0)),JN( 0))
 23862	    Etst(Dminus(JN( 1)),JN(-1))
 23863	    Etst(Dminus(JN( 2)),JN(-2))
 23864	    Etst(Dminus(K2(-1,-1)),K2( 1, 0))
 23865	    Etst(Dminus(K2(-1, 0)),K2( 1,-1))
 23866	    Etst(Dminus(K2(-1, 1)),K2( 1,-2))
 23867	    Etst(Dminus(K2( 0,-1)),K2( 0, 1))
 23868	    Etst(Dminus(K2( 0, 0)),K2( 0, 0))
 23869	    Etst(Dminus(K2( 0, 1)),K2( 0,-1))
 23870	    Etst(Dminus(K2( 1,-1)),K2(-1, 0))
 23871	    Etst(Dminus(K2( 1, 0)),K2(-1,-1))
 23872	    Etst(Dminus(K2( 1, 1)),K2(-1,-2))
 23873	
 23874	    Xtst(Intlength(TT))
 23875	    Xtst(Intlength(FF))
 23876	    Xtst(Intlength(P0))
 23877	    Xtst(Intlength(M0))
 23878	    Xtst(Intlength(B0))
 23879	    Etst(Intlength(Z),Z)
 23880	    Etst(Intlength(M),Z)
 23881	    Etst(Intlength(JN(1)),JN(1))
 23882	    Etst(Intlength(JN(2)),JN(2))
 23883	    Etst(Intlength(JN(3)),JN(2))
 23884	    Etst(Intlength(JN(4)),JN(3))
 23885	    Etst(Intlength(JN(5)),JN(3))
 23886	    Etst(Intlength(JN(6)),JN(3))
 23887	    Etst(Intlength(JN(7)),JN(3))
 23888	    Etst(Intlength(JN(8)),JN(4))
 23889	    Etst(Intlength(JN(-2)),JN(1))
 23890	    Etst(Intlength(JN(-3)),JN(2))
 23891	    Etst(Intlength(JN(-4)),JN(2))
 23892	    Etst(Intlength(JN(-5)),JN(3))
 23893	    Etst(Intlength(JN(-6)),JN(3))
 23894	    Etst(Intlength(JN(-7)),JN(3))
 23895	    Etst(Intlength(JN(-8)),JN(3))
 23896	    Etst(Intlength(JN(-9)),JN(4))
 23897	    Etst(Intlength(I0011_1100),JN(4+1*pntsize))
 23898	    Etst(Intlength(J1011_1101),JN(2+1*pntsize))
 23899	    Etst(Intlength(intcons(0,I0011_1100)),JN(4+2*pntsize))
 23900	    Etst(Intlength(intcons(0,J1011_1101)),JN(2+2*pntsize))
 23901	    Etst(Intlength(K2(0,-1)),JN(0+1*pntsize))
 23902	    Etst(Intlength(K2(-1,0)),JN(0+1*pntsize))
 23903	
 23904	    Xtst(Logcount(TT))
 23905	    Xtst(Logcount(FF))
 23906	    Xtst(Logcount(P0))
 23907	    Xtst(Logcount(M0))
 23908	    Xtst(Logcount(B0))
 23909	    Etst(Logcount(Z),Z)
 23910	    Etst(Logcount(M),Z)
 23911	    Etst(Logcount(JN(1)),JN(1))
 23912	    Etst(Logcount(JN(2)),JN(1))
 23913	    Etst(Logcount(JN(3)),JN(2))
 23914	    Etst(Logcount(JN(4)),JN(1))
 23915	    Etst(Logcount(JN(5)),JN(2))
 23916	    Etst(Logcount(JN(6)),JN(2))
 23917	    Etst(Logcount(JN(7)),JN(3))
 23918	    Etst(Logcount(JN(8)),JN(1))
 23919	    Etst(Logcount(JN(-2)),JN(1))
 23920	    Etst(Logcount(JN(-3)),JN(1))
 23921	    Etst(Logcount(JN(-4)),JN(2))
 23922	    Etst(Logcount(JN(-5)),JN(1))
 23923	    Etst(Logcount(JN(-6)),JN(2))
 23924	    Etst(Logcount(JN(-7)),JN(2))
 23925	    Etst(Logcount(JN(-8)),JN(3))
 23926	    Etst(Logcount(JN(-9)),JN(1))
 23927	    Etst(Logcount(I0011_1100),JN(4))
 23928	    Etst(Logcount(J1011_1101),JN(2))
 23929	    Etst(Logcount(intcons(0,I0011_1100)),JN(4))
 23930	    Etst(Logcount(intcons(0,J1011_1101)),JN(2+1*pntsize))
 23931	    Etst(Logcount(K2(0,-1)),JN(0+1*pntsize))
 23932	    Etst(Logcount(K2(-1,0)),JN(0+1*pntsize))
 23933	
 23934	    Xtst(Lognot(TT))
 23935	    Xtst(Lognot(FF))
 23936	    Xtst(Lognot(P0))
 23937	    Xtst(Lognot(M0))
 23938	    Xtst(Lognot(B0))
 23939	    Etst(Lognot(Z),M)
 23940	    Etst(Lognot(M),Z)
 23941	    Etst(Lognot(I0011),J1100)
 23942	    Etst(Lognot(J1010_0101),I0101_1010)
 23943	
 23944	    Xtst(Logand(TT,TT))
 23945	    Xtst(Logand(TT,FF))
 23946	    Xtst(Logand(TT,I0))
 23947	    Xtst(Logand(TT,P0))
 23948	    Xtst(Logand(TT,M0))
 23949	    Xtst(Logand(TT,B0))
 23950	    Xtst(Logand(FF,TT))
 23951	    Xtst(Logand(FF,FF))
 23952	    Xtst(Logand(FF,I0))
 23953	    Xtst(Logand(FF,P0))
 23954	    Xtst(Logand(FF,M0))
 23955	    Xtst(Logand(FF,B0))
 23956	    Xtst(Logand(I0,TT))
 23957	    Xtst(Logand(I0,FF))
 23958	    Xtst(Logand(I0,P0))
 23959	    Xtst(Logand(I0,M0))
 23960	    Xtst(Logand(I0,B0))
 23961	    Xtst(Logand(P0,TT))
 23962	    Xtst(Logand(P0,FF))
 23963	    Xtst(Logand(P0,I0))
 23964	    Xtst(Logand(P0,P0))
 23965	    Xtst(Logand(P0,M0))
 23966	    Xtst(Logand(P0,B0))
 23967	    Xtst(Logand(M0,TT))
 23968	    Xtst(Logand(M0,FF))
 23969	    Xtst(Logand(M0,I0))
 23970	    Xtst(Logand(M0,P0))
 23971	    Xtst(Logand(M0,M0))
 23972	    Xtst(Logand(M0,B0))
 23973	    Xtst(Logand(B0,TT))
 23974	    Xtst(Logand(B0,FF))
 23975	    Xtst(Logand(B0,I0))
 23976	    Xtst(Logand(B0,P0))
 23977	    Xtst(Logand(B0,M0))
 23978	    Xtst(Logand(B0,B0))
 23979	    Etst(Logand(I0011     ,I0101     ),I0001     )
 23980	    Etst(Logand(I1100     ,I1010     ),I1000     )
 23981	    Etst(Logand(I0011_1100,I0101_1010),I0001_1000)
 23982	    Etst(Logand(I0011     ,I0101_1010),I0001     )
 23983	    Etst(Logand(I0101_1010,I0011     ),I0001     )
 23984	    Etst(Logand(I0011     ,J0101     ),I0001     )
 23985	    Etst(Logand(I1100     ,J1010     ),I1000     )
 23986	    Etst(Logand(I0011_1100,J0101_1010),I0001_1000)
 23987	    Etst(Logand(I0011     ,J0101_1010),I0001     )
 23988	    Etst(Logand(I0101_1010,J0011     ),intcons(Z0001,I1010))
 23989	    Etst(Logand(J0011     ,I0101     ),I0001     )
 23990	    Etst(Logand(J1100     ,I1010     ),I1000     )
 23991	    Etst(Logand(J0011_1100,I0101_1010),I0001_1000)
 23992	    Etst(Logand(J0011     ,I0101_1010),intcons(Z0001,I1010))
 23993	    Etst(Logand(J0101_1010,I0011     ),I0001     )
 23994	    Etst(Logand(J0011     ,J0101     ),J0001     )
 23995	    Etst(Logand(J1100     ,J1010     ),J1000     )
 23996	    Etst(Logand(J0011_1100,J0101_1010),J0001_1000)
 23997	    Etst(Logand(J0011     ,J0101_1010),intcons(M0001,J1010))
 23998	    Etst(Logand(J0101_1010,J0011     ),intcons(M0001,J1010))
 23999	    Etst(Logand(I0011_1100,I1000_0001),Z)
 24000	    Etst(Logand(EE,I0),I0)
 24001	    Etst(Logand(EE,J1),EE)
 24002	    Etst(Logand(I0,EE),I0)
 24003	    Etst(Logand(J1,EE),EE)
 24004	
 24005	    Xtst(Logior(TT,TT))
 24006	    Xtst(Logior(TT,FF))
 24007	    Xtst(Logior(TT,I0))
 24008	    Xtst(Logior(TT,P0))
 24009	    Xtst(Logior(TT,M0))
 24010	    Xtst(Logior(TT,B0))
 24011	    Xtst(Logior(FF,TT))
 24012	    Xtst(Logior(FF,FF))
 24013	    Xtst(Logior(FF,I0))
 24014	    Xtst(Logior(FF,P0))
 24015	    Xtst(Logior(FF,M0))
 24016	    Xtst(Logior(FF,B0))
 24017	    Xtst(Logior(I0,TT))
 24018	    Xtst(Logior(I0,FF))
 24019	    Xtst(Logior(I0,P0))
 24020	    Xtst(Logior(I0,M0))
 24021	    Xtst(Logior(I0,B0))
 24022	    Xtst(Logior(P0,TT))
 24023	    Xtst(Logior(P0,FF))
 24024	    Xtst(Logior(P0,I0))
 24025	    Xtst(Logior(P0,P0))
 24026	    Xtst(Logior(P0,M0))
 24027	    Xtst(Logior(P0,B0))
 24028	    Xtst(Logior(M0,TT))
 24029	    Xtst(Logior(M0,FF))
 24030	    Xtst(Logior(M0,I0))
 24031	    Xtst(Logior(M0,P0))
 24032	    Xtst(Logior(M0,M0))
 24033	    Xtst(Logior(M0,B0))
 24034	    Xtst(Logior(B0,TT))
 24035	    Xtst(Logior(B0,FF))
 24036	    Xtst(Logior(B0,I0))
 24037	    Xtst(Logior(B0,P0))
 24038	    Xtst(Logior(B0,M0))
 24039	    Xtst(Logior(B0,B0))
 24040	    Etst(Logior(I0011     ,I0101     ),I0111     )
 24041	    Etst(Logior(I1100     ,I1010     ),I1110     )
 24042	    Etst(Logior(I0011_1100,I0101_1010),I0111_1110)
 24043	    Etst(Logior(I0011     ,I0101_1010),intcons(Z0111,I1010))
 24044	    Etst(Logior(I0101_1010,I0011     ),intcons(Z0111,I1010))
 24045	    Etst(Logior(I0011     ,J0101     ),J0111     )
 24046	    Etst(Logior(I1100     ,J1010     ),J1110     )
 24047	    Etst(Logior(I0011_1100,J0101_1010),J0111_1110)
 24048	    Etst(Logior(I0011     ,J0101_1010),intcons(M0111,J1010))
 24049	    Etst(Logior(I0101_1010,J0011     ),J0111     )
 24050	    Etst(Logior(J0011     ,I0101     ),J0111     )
 24051	    Etst(Logior(J1100     ,I1010     ),J1110     )
 24052	    Etst(Logior(J0011_1100,I0101_1010),J0111_1110)
 24053	    Etst(Logior(J0011     ,I0101_1010),J0111     )
 24054	    Etst(Logior(J0101_1010,I0011     ),intcons(M0111,J1010))
 24055	    Etst(Logior(J0011     ,J0101     ),J0111     )
 24056	    Etst(Logior(J1100     ,J1010     ),J1110     )
 24057	    Etst(Logior(J0011_1100,J0101_1010),J0111_1110)
 24058	    Etst(Logior(J0011     ,J0101_1010),J0111     )
 24059	    Etst(Logior(J0101_1010,J0011     ),J0111     )
 24060	    Etst(Logior(J0011_1100,J1110_0111),M)
 24061	    Etst(Logior(EE,I0),EE)
 24062	    Etst(Logior(EE,J1),J1)
 24063	    Etst(Logior(I0,EE),EE)
 24064	    Etst(Logior(J1,EE),J1)
 24065	
 24066	    Xtst(Logxor(TT,TT))
 24067	    Xtst(Logxor(TT,FF))
 24068	    Xtst(Logxor(TT,I0))
 24069	    Xtst(Logxor(TT,P0))
 24070	    Xtst(Logxor(TT,M0))
 24071	    Xtst(Logxor(TT,B0))
 24072	    Xtst(Logxor(FF,TT))
 24073	    Xtst(Logxor(FF,FF))
 24074	    Xtst(Logxor(FF,I0))
 24075	    Xtst(Logxor(FF,P0))
 24076	    Xtst(Logxor(FF,M0))
 24077	    Xtst(Logxor(FF,B0))
 24078	    Xtst(Logxor(I0,TT))
 24079	    Xtst(Logxor(I0,FF))
 24080	    Xtst(Logxor(I0,P0))
 24081	    Xtst(Logxor(I0,M0))
 24082	    Xtst(Logxor(I0,B0))
 24083	    Xtst(Logxor(P0,TT))
 24084	    Xtst(Logxor(P0,FF))
 24085	    Xtst(Logxor(P0,I0))
 24086	    Xtst(Logxor(P0,P0))
 24087	    Xtst(Logxor(P0,M0))
 24088	    Xtst(Logxor(P0,B0))
 24089	    Xtst(Logxor(M0,TT))
 24090	    Xtst(Logxor(M0,FF))
 24091	    Xtst(Logxor(M0,I0))
 24092	    Xtst(Logxor(M0,P0))
 24093	    Xtst(Logxor(M0,M0))
 24094	    Xtst(Logxor(M0,B0))
 24095	    Xtst(Logxor(B0,TT))
 24096	    Xtst(Logxor(B0,FF))
 24097	    Xtst(Logxor(B0,I0))
 24098	    Xtst(Logxor(B0,P0))
 24099	    Xtst(Logxor(B0,M0))
 24100	    Xtst(Logxor(B0,B0))
 24101	    Etst(Logxor(I0011     ,I0101     ),I0110     )
 24102	    Etst(Logxor(I1100     ,I1010     ),I0110     )
 24103	    Etst(Logxor(I0011_1100,I0101_1010),I0110_0110)
 24104	    Etst(Logxor(I0011     ,I0101_1010),intcons(Z0110,I1010))
 24105	    Etst(Logxor(I0101_1010,I0011     ),intcons(Z0110,I1010))
 24106	    Etst(Logxor(I0011     ,J0101     ),J0110     )
 24107	    Etst(Logxor(I1100     ,J1010     ),J0110     )
 24108	    Etst(Logxor(I0011_1100,J0101_1010),J0110_0110)
 24109	    Etst(Logxor(I0011     ,J0101_1010),intcons(M0110,J1010))
 24110	    Etst(Logxor(I0101_1010,J0011     ),intcons(M0110,J0101))
 24111	    Etst(Logxor(J0011     ,I0101     ),J0110     )
 24112	    Etst(Logxor(J1100     ,I1010     ),J0110     )
 24113	    Etst(Logxor(J0011_1100,I0101_1010),J0110_0110)
 24114	    Etst(Logxor(J0011     ,I0101_1010),intcons(M0110,J0101))
 24115	    Etst(Logxor(J0101_1010,I0011     ),intcons(M0110,J1010))
 24116	    Etst(Logxor(J0011     ,J0101     ),I0110     )
 24117	    Etst(Logxor(J1100     ,J1010     ),I0110     )
 24118	    Etst(Logxor(J0011_1100,J0101_1010),I0110_0110)
 24119	    Etst(Logxor(J0011     ,J0101_1010),intcons(Z0110,I0101))
 24120	    Etst(Logxor(J0101_1010,J0011     ),intcons(Z0110,I0101))
 24121	    Etst(Logxor(J0101_1010,J0101_1010),Z)
 24122	    Etst(Logxor(J0101_1010,I1010_0101),M)
 24123	    Etst(Logxor(EE,I0),EE)
 24124	    Etst(Logxor(EE,J1),J2)
 24125	    Etst(Logxor(I0,EE),EE)
 24126	    Etst(Logxor(J1,EE),J2)
 24127	
 24128	    Xtst(Logandc1(TT,TT))
 24129	    Xtst(Logandc1(TT,FF))
 24130	    Xtst(Logandc1(TT,I0))
 24131	    Xtst(Logandc1(TT,P0))
 24132	    Xtst(Logandc1(TT,M0))
 24133	    Xtst(Logandc1(TT,B0))
 24134	    Xtst(Logandc1(FF,TT))
 24135	    Xtst(Logandc1(FF,FF))
 24136	    Xtst(Logandc1(FF,I0))
 24137	    Xtst(Logandc1(FF,P0))
 24138	    Xtst(Logandc1(FF,M0))
 24139	    Xtst(Logandc1(FF,B0))
 24140	    Xtst(Logandc1(I0,TT))
 24141	    Xtst(Logandc1(I0,FF))
 24142	    Xtst(Logandc1(I0,P0))
 24143	    Xtst(Logandc1(I0,M0))
 24144	    Xtst(Logandc1(I0,B0))
 24145	    Xtst(Logandc1(P0,TT))
 24146	    Xtst(Logandc1(P0,FF))
 24147	    Xtst(Logandc1(P0,I0))
 24148	    Xtst(Logandc1(P0,P0))
 24149	    Xtst(Logandc1(P0,M0))
 24150	    Xtst(Logandc1(P0,B0))
 24151	    Xtst(Logandc1(M0,TT))
 24152	    Xtst(Logandc1(M0,FF))
 24153	    Xtst(Logandc1(M0,I0))
 24154	    Xtst(Logandc1(M0,P0))
 24155	    Xtst(Logandc1(M0,M0))
 24156	    Xtst(Logandc1(M0,B0))
 24157	    Xtst(Logandc1(B0,TT))
 24158	    Xtst(Logandc1(B0,FF))
 24159	    Xtst(Logandc1(B0,I0))
 24160	    Xtst(Logandc1(B0,P0))
 24161	    Xtst(Logandc1(B0,M0))
 24162	    Xtst(Logandc1(B0,B0))
 24163	    Etst(Logandc1(lognot(I0011     ),I0101     ),I0001     )
 24164	    Etst(Logandc1(lognot(I1100     ),I1010     ),I1000     )
 24165	    Etst(Logandc1(lognot(I0011_1100),I0101_1010),I0001_1000)
 24166	    Etst(Logandc1(lognot(I0011     ),I0101_1010),I0001     )
 24167	    Etst(Logandc1(lognot(I0101_1010),I0011     ),I0001     )
 24168	    Etst(Logandc1(lognot(I0011     ),J0101     ),I0001     )
 24169	    Etst(Logandc1(lognot(I1100     ),J1010     ),I1000     )
 24170	    Etst(Logandc1(lognot(I0011_1100),J0101_1010),I0001_1000)
 24171	    Etst(Logandc1(lognot(I0011     ),J0101_1010),I0001     )
 24172	    Etst(Logandc1(lognot(I0101_1010),J0011     ),intcons(Z0001,I1010))
 24173	    Etst(Logandc1(lognot(J0011     ),I0101     ),I0001     )
 24174	    Etst(Logandc1(lognot(J1100     ),I1010     ),I1000     )
 24175	    Etst(Logandc1(lognot(J0011_1100),I0101_1010),I0001_1000)
 24176	    Etst(Logandc1(lognot(J0011     ),I0101_1010),intcons(Z0001,I1010))
 24177	    Etst(Logandc1(lognot(J0101_1010),I0011     ),I0001     )
 24178	    Etst(Logandc1(lognot(J0011     ),J0101     ),J0001     )
 24179	    Etst(Logandc1(lognot(J1100     ),J1010     ),J1000     )
 24180	    Etst(Logandc1(lognot(J0011_1100),J0101_1010),J0001_1000)
 24181	    Etst(Logandc1(lognot(J0011     ),J0101_1010),intcons(M0001,J1010))
 24182	    Etst(Logandc1(lognot(J0101_1010),J0011     ),intcons(M0001,J1010))
 24183	    Etst(Logandc1(EE,I0),I0)
 24184	    Etst(Logandc1(EE,J1),J2)
 24185	    Etst(Logandc1(I0,EE),EE)
 24186	    Etst(Logandc1(J1,EE),I0)
 24187	
 24188	    Xtst(Logandc2(TT,TT))
 24189	    Xtst(Logandc2(TT,FF))
 24190	    Xtst(Logandc2(TT,I0))
 24191	    Xtst(Logandc2(TT,P0))
 24192	    Xtst(Logandc2(TT,M0))
 24193	    Xtst(Logandc2(TT,B0))
 24194	    Xtst(Logandc2(FF,TT))
 24195	    Xtst(Logandc2(FF,FF))
 24196	    Xtst(Logandc2(FF,I0))
 24197	    Xtst(Logandc2(FF,P0))
 24198	    Xtst(Logandc2(FF,M0))
 24199	    Xtst(Logandc2(FF,B0))
 24200	    Xtst(Logandc2(I0,TT))
 24201	    Xtst(Logandc2(I0,FF))
 24202	    Xtst(Logandc2(I0,P0))
 24203	    Xtst(Logandc2(I0,M0))
 24204	    Xtst(Logandc2(I0,B0))
 24205	    Xtst(Logandc2(P0,TT))
 24206	    Xtst(Logandc2(P0,FF))
 24207	    Xtst(Logandc2(P0,I0))
 24208	    Xtst(Logandc2(P0,P0))
 24209	    Xtst(Logandc2(P0,M0))
 24210	    Xtst(Logandc2(P0,B0))
 24211	    Xtst(Logandc2(M0,TT))
 24212	    Xtst(Logandc2(M0,FF))
 24213	    Xtst(Logandc2(M0,I0))
 24214	    Xtst(Logandc2(M0,P0))
 24215	    Xtst(Logandc2(M0,M0))
 24216	    Xtst(Logandc2(M0,B0))
 24217	    Xtst(Logandc2(B0,TT))
 24218	    Xtst(Logandc2(B0,FF))
 24219	    Xtst(Logandc2(B0,I0))
 24220	    Xtst(Logandc2(B0,P0))
 24221	    Xtst(Logandc2(B0,M0))
 24222	    Xtst(Logandc2(B0,B0))
 24223	    Etst(Logandc2(I0011     ,lognot(I0101     )),I0001     )
 24224	    Etst(Logandc2(I1100     ,lognot(I1010     )),I1000     )
 24225	    Etst(Logandc2(I0011_1100,lognot(I0101_1010)),I0001_1000)
 24226	    Etst(Logandc2(I0011     ,lognot(I0101_1010)),I0001     )
 24227	    Etst(Logandc2(I0101_1010,lognot(I0011     )),I0001     )
 24228	    Etst(Logandc2(I0011     ,lognot(J0101     )),I0001     )
 24229	    Etst(Logandc2(I1100     ,lognot(J1010     )),I1000     )
 24230	    Etst(Logandc2(I0011_1100,lognot(J0101_1010)),I0001_1000)
 24231	    Etst(Logandc2(I0011     ,lognot(J0101_1010)),I0001     )
 24232	    Etst(Logandc2(I0101_1010,lognot(J0011     )),intcons(Z0001,I1010))
 24233	    Etst(Logandc2(J0011     ,lognot(I0101     )),I0001     )
 24234	    Etst(Logandc2(J1100     ,lognot(I1010     )),I1000     )
 24235	    Etst(Logandc2(J0011_1100,lognot(I0101_1010)),I0001_1000)
 24236	    Etst(Logandc2(J0011     ,lognot(I0101_1010)),intcons(Z0001,I1010))
 24237	    Etst(Logandc2(J0101_1010,lognot(I0011     )),I0001     )
 24238	    Etst(Logandc2(J0011     ,lognot(J0101     )),J0001     )
 24239	    Etst(Logandc2(J1100     ,lognot(J1010     )),J1000     )
 24240	    Etst(Logandc2(J0011_1100,lognot(J0101_1010)),J0001_1000)
 24241	    Etst(Logandc2(J0011     ,lognot(J0101_1010)),intcons(M0001,J1010))
 24242	    Etst(Logandc2(J0101_1010,lognot(J0011     )),intcons(M0001,J1010))
 24243	    Etst(Logandc2(EE,I0),EE)
 24244	    Etst(Logandc2(EE,J1),I0)
 24245	    Etst(Logandc2(I0,EE),I0)
 24246	    Etst(Logandc2(J1,EE),J2)
 24247	
 24248	    Xtst(Lognand(TT,TT))
 24249	    Xtst(Lognand(TT,FF))
 24250	    Xtst(Lognand(TT,I0))
 24251	    Xtst(Lognand(TT,P0))
 24252	    Xtst(Lognand(TT,M0))
 24253	    Xtst(Lognand(TT,B0))
 24254	    Xtst(Lognand(FF,TT))
 24255	    Xtst(Lognand(FF,FF))
 24256	    Xtst(Lognand(FF,I0))
 24257	    Xtst(Lognand(FF,P0))
 24258	    Xtst(Lognand(FF,M0))
 24259	    Xtst(Lognand(FF,B0))
 24260	    Xtst(Lognand(I0,TT))
 24261	    Xtst(Lognand(I0,FF))
 24262	    Xtst(Lognand(I0,P0))
 24263	    Xtst(Lognand(I0,M0))
 24264	    Xtst(Lognand(I0,B0))
 24265	    Xtst(Lognand(P0,TT))
 24266	    Xtst(Lognand(P0,FF))
 24267	    Xtst(Lognand(P0,I0))
 24268	    Xtst(Lognand(P0,P0))
 24269	    Xtst(Lognand(P0,M0))
 24270	    Xtst(Lognand(P0,B0))
 24271	    Xtst(Lognand(M0,TT))
 24272	    Xtst(Lognand(M0,FF))
 24273	    Xtst(Lognand(M0,I0))
 24274	    Xtst(Lognand(M0,P0))
 24275	    Xtst(Lognand(M0,M0))
 24276	    Xtst(Lognand(M0,B0))
 24277	    Xtst(Lognand(B0,TT))
 24278	    Xtst(Lognand(B0,FF))
 24279	    Xtst(Lognand(B0,I0))
 24280	    Xtst(Lognand(B0,P0))
 24281	    Xtst(Lognand(B0,M0))
 24282	    Xtst(Lognand(B0,B0))
 24283	    Etst(Lognand(I0011     ,I0101     ),lognot(I0001     ))
 24284	    Etst(Lognand(I1100     ,I1010     ),lognot(I1000     ))
 24285	    Etst(Lognand(I0011_1100,I0101_1010),lognot(I0001_1000))
 24286	    Etst(Lognand(I0011     ,I0101_1010),lognot(I0001     ))
 24287	    Etst(Lognand(I0101_1010,I0011     ),lognot(I0001     ))
 24288	    Etst(Lognand(I0011     ,J0101     ),lognot(I0001     ))
 24289	    Etst(Lognand(I1100     ,J1010     ),lognot(I1000     ))
 24290	    Etst(Lognand(I0011_1100,J0101_1010),lognot(I0001_1000))
 24291	    Etst(Lognand(I0011     ,J0101_1010),lognot(I0001     ))
 24292	    Etst(Lognand(I0101_1010,J0011     ),lognot(intcons(Z0001,I1010)))
 24293	    Etst(Lognand(J0011     ,I0101     ),lognot(I0001     ))
 24294	    Etst(Lognand(J1100     ,I1010     ),lognot(I1000     ))
 24295	    Etst(Lognand(J0011_1100,I0101_1010),lognot(I0001_1000))
 24296	    Etst(Lognand(J0011     ,I0101_1010),lognot(intcons(Z0001,I1010)))
 24297	    Etst(Lognand(J0101_1010,I0011     ),lognot(I0001     ))
 24298	    Etst(Lognand(J0011     ,J0101     ),lognot(J0001     ))
 24299	    Etst(Lognand(J1100     ,J1010     ),lognot(J1000     ))
 24300	    Etst(Lognand(J0011_1100,J0101_1010),lognot(J0001_1000))
 24301	    Etst(Lognand(J0011     ,J0101_1010),lognot(intcons(M0001,J1010)))
 24302	    Etst(Lognand(J0101_1010,J0011     ),lognot(intcons(M0001,J1010)))
 24303	    Etst(Lognand(EE,I0),J1)
 24304	    Etst(Lognand(EE,J1),J2)
 24305	    Etst(Lognand(I0,EE),J1)
 24306	    Etst(Lognand(J1,EE),J2)
 24307	
 24308	    Xtst(Logorc1(TT,TT))
 24309	    Xtst(Logorc1(TT,FF))
 24310	    Xtst(Logorc1(TT,I0))
 24311	    Xtst(Logorc1(TT,P0))
 24312	    Xtst(Logorc1(TT,M0))
 24313	    Xtst(Logorc1(TT,B0))
 24314	    Xtst(Logorc1(FF,TT))
 24315	    Xtst(Logorc1(FF,FF))
 24316	    Xtst(Logorc1(FF,I0))
 24317	    Xtst(Logorc1(FF,P0))
 24318	    Xtst(Logorc1(FF,M0))
 24319	    Xtst(Logorc1(FF,B0))
 24320	    Xtst(Logorc1(I0,TT))
 24321	    Xtst(Logorc1(I0,FF))
 24322	    Xtst(Logorc1(I0,P0))
 24323	    Xtst(Logorc1(I0,M0))
 24324	    Xtst(Logorc1(I0,B0))
 24325	    Xtst(Logorc1(P0,TT))
 24326	    Xtst(Logorc1(P0,FF))
 24327	    Xtst(Logorc1(P0,I0))
 24328	    Xtst(Logorc1(P0,P0))
 24329	    Xtst(Logorc1(P0,M0))
 24330	    Xtst(Logorc1(P0,B0))
 24331	    Xtst(Logorc1(M0,TT))
 24332	    Xtst(Logorc1(M0,FF))
 24333	    Xtst(Logorc1(M0,I0))
 24334	    Xtst(Logorc1(M0,P0))
 24335	    Xtst(Logorc1(M0,M0))
 24336	    Xtst(Logorc1(M0,B0))
 24337	    Xtst(Logorc1(B0,TT))
 24338	    Xtst(Logorc1(B0,FF))
 24339	    Xtst(Logorc1(B0,I0))
 24340	    Xtst(Logorc1(B0,P0))
 24341	    Xtst(Logorc1(B0,M0))
 24342	    Xtst(Logorc1(B0,B0))
 24343	    Etst(Logorc1(lognot(I0011     ),I0101     ),I0111     )
 24344	    Etst(Logorc1(lognot(I1100     ),I1010     ),I1110     )
 24345	    Etst(Logorc1(lognot(I0011_1100),I0101_1010),I0111_1110)
 24346	    Etst(Logorc1(lognot(I0011     ),I0101_1010),intcons(Z0111,I1010))
 24347	    Etst(Logorc1(lognot(I0101_1010),I0011     ),intcons(Z0111,I1010))
 24348	    Etst(Logorc1(lognot(I0011     ),J0101     ),J0111     )
 24349	    Etst(Logorc1(lognot(I1100     ),J1010     ),J1110     )
 24350	    Etst(Logorc1(lognot(I0011_1100),J0101_1010),J0111_1110)
 24351	    Etst(Logorc1(lognot(I0011     ),J0101_1010),intcons(M0111,J1010))
 24352	    Etst(Logorc1(lognot(I0101_1010),J0011     ),J0111     )
 24353	    Etst(Logorc1(lognot(J0011     ),I0101     ),J0111     )
 24354	    Etst(Logorc1(lognot(J1100     ),I1010     ),J1110     )
 24355	    Etst(Logorc1(lognot(J0011_1100),I0101_1010),J0111_1110)
 24356	    Etst(Logorc1(lognot(J0011     ),I0101_1010),J0111     )
 24357	    Etst(Logorc1(lognot(J0101_1010),I0011     ),intcons(M0111,J1010))
 24358	    Etst(Logorc1(lognot(J0011     ),J0101     ),J0111     )
 24359	    Etst(Logorc1(lognot(J1100     ),J1010     ),J1110     )
 24360	    Etst(Logorc1(lognot(J0011_1100),J0101_1010),J0111_1110)
 24361	    Etst(Logorc1(lognot(J0011     ),J0101_1010),J0111     )
 24362	    Etst(Logorc1(lognot(J0101_1010),J0011     ),J0111     )
 24363	    Etst(Logorc1(EE,I0),J2)
 24364	    Etst(Logorc1(EE,J1),J1)
 24365	    Etst(Logorc1(I0,EE),J1)
 24366	    Etst(Logorc1(J1,EE),EE)
 24367	
 24368	    Xtst(Logorc2(TT,TT))
 24369	    Xtst(Logorc2(TT,FF))
 24370	    Xtst(Logorc2(TT,I0))
 24371	    Xtst(Logorc2(TT,P0))
 24372	    Xtst(Logorc2(TT,M0))
 24373	    Xtst(Logorc2(TT,B0))
 24374	    Xtst(Logorc2(FF,TT))
 24375	    Xtst(Logorc2(FF,FF))
 24376	    Xtst(Logorc2(FF,I0))
 24377	    Xtst(Logorc2(FF,P0))
 24378	    Xtst(Logorc2(FF,M0))
 24379	    Xtst(Logorc2(FF,B0))
 24380	    Xtst(Logorc2(I0,TT))
 24381	    Xtst(Logorc2(I0,FF))
 24382	    Xtst(Logorc2(I0,P0))
 24383	    Xtst(Logorc2(I0,M0))
 24384	    Xtst(Logorc2(I0,B0))
 24385	    Xtst(Logorc2(P0,TT))
 24386	    Xtst(Logorc2(P0,FF))
 24387	    Xtst(Logorc2(P0,I0))
 24388	    Xtst(Logorc2(P0,P0))
 24389	    Xtst(Logorc2(P0,M0))
 24390	    Xtst(Logorc2(P0,B0))
 24391	    Xtst(Logorc2(M0,TT))
 24392	    Xtst(Logorc2(M0,FF))
 24393	    Xtst(Logorc2(M0,I0))
 24394	    Xtst(Logorc2(M0,P0))
 24395	    Xtst(Logorc2(M0,M0))
 24396	    Xtst(Logorc2(M0,B0))
 24397	    Xtst(Logorc2(B0,TT))
 24398	    Xtst(Logorc2(B0,FF))
 24399	    Xtst(Logorc2(B0,I0))
 24400	    Xtst(Logorc2(B0,P0))
 24401	    Xtst(Logorc2(B0,M0))
 24402	    Xtst(Logorc2(B0,B0))
 24403	    Etst(Logorc2(I0011     ,lognot(I0101     )),I0111     )
 24404	    Etst(Logorc2(I1100     ,lognot(I1010     )),I1110     )
 24405	    Etst(Logorc2(I0011_1100,lognot(I0101_1010)),I0111_1110)
 24406	    Etst(Logorc2(I0011     ,lognot(I0101_1010)),intcons(Z0111,I1010))
 24407	    Etst(Logorc2(I0101_1010,lognot(I0011     )),intcons(Z0111,I1010))
 24408	    Etst(Logorc2(I0011     ,lognot(J0101     )),J0111     )
 24409	    Etst(Logorc2(I1100     ,lognot(J1010     )),J1110     )
 24410	    Etst(Logorc2(I0011_1100,lognot(J0101_1010)),J0111_1110)
 24411	    Etst(Logorc2(I0011     ,lognot(J0101_1010)),intcons(M0111,J1010))
 24412	    Etst(Logorc2(I0101_1010,lognot(J0011     )),J0111     )
 24413	    Etst(Logorc2(J0011     ,lognot(I0101     )),J0111     )
 24414	    Etst(Logorc2(J1100     ,lognot(I1010     )),J1110     )
 24415	    Etst(Logorc2(J0011_1100,lognot(I0101_1010)),J0111_1110)
 24416	    Etst(Logorc2(J0011     ,lognot(I0101_1010)),J0111     )
 24417	    Etst(Logorc2(J0101_1010,lognot(I0011     )),intcons(M0111,J1010))
 24418	    Etst(Logorc2(J0011     ,lognot(J0101     )),J0111     )
 24419	    Etst(Logorc2(J1100     ,lognot(J1010     )),J1110     )
 24420	    Etst(Logorc2(J0011_1100,lognot(J0101_1010)),J0111_1110)
 24421	    Etst(Logorc2(J0011     ,lognot(J0101_1010)),J0111     )
 24422	    Etst(Logorc2(J0101_1010,lognot(J0011     )),J0111     )
 24423	    Etst(Logorc2(EE,I0),J1)
 24424	    Etst(Logorc2(EE,J1),EE)
 24425	    Etst(Logorc2(I0,EE),J2)
 24426	    Etst(Logorc2(J1,EE),J1)
 24427	
 24428	    Xtst(Lognor(TT,TT))
 24429	    Xtst(Lognor(TT,FF))
 24430	    Xtst(Lognor(TT,I0))
 24431	    Xtst(Lognor(TT,P0))
 24432	    Xtst(Lognor(TT,M0))
 24433	    Xtst(Lognor(TT,B0))
 24434	    Xtst(Lognor(FF,TT))
 24435	    Xtst(Lognor(FF,FF))
 24436	    Xtst(Lognor(FF,I0))
 24437	    Xtst(Lognor(FF,P0))
 24438	    Xtst(Lognor(FF,M0))
 24439	    Xtst(Lognor(FF,B0))
 24440	    Xtst(Lognor(I0,TT))
 24441	    Xtst(Lognor(I0,FF))
 24442	    Xtst(Lognor(I0,P0))
 24443	    Xtst(Lognor(I0,M0))
 24444	    Xtst(Lognor(I0,B0))
 24445	    Xtst(Lognor(P0,TT))
 24446	    Xtst(Lognor(P0,FF))
 24447	    Xtst(Lognor(P0,I0))
 24448	    Xtst(Lognor(P0,P0))
 24449	    Xtst(Lognor(P0,M0))
 24450	    Xtst(Lognor(P0,B0))
 24451	    Xtst(Lognor(M0,TT))
 24452	    Xtst(Lognor(M0,FF))
 24453	    Xtst(Lognor(M0,I0))
 24454	    Xtst(Lognor(M0,P0))
 24455	    Xtst(Lognor(M0,M0))
 24456	    Xtst(Lognor(M0,B0))
 24457	    Xtst(Lognor(B0,TT))
 24458	    Xtst(Lognor(B0,FF))
 24459	    Xtst(Lognor(B0,I0))
 24460	    Xtst(Lognor(B0,P0))
 24461	    Xtst(Lognor(B0,M0))
 24462	    Xtst(Lognor(B0,B0))
 24463	    Etst(Lognor(I0011     ,I0101     ),lognot(I0111     ))
 24464	    Etst(Lognor(I1100     ,I1010     ),lognot(I1110     ))
 24465	    Etst(Lognor(I0011_1100,I0101_1010),lognot(I0111_1110))
 24466	    Etst(Lognor(I0011     ,I0101_1010),lognot(intcons(Z0111,I1010)))
 24467	    Etst(Lognor(I0101_1010,I0011     ),lognot(intcons(Z0111,I1010)))
 24468	    Etst(Lognor(I0011     ,J0101     ),lognot(J0111     ))
 24469	    Etst(Lognor(I1100     ,J1010     ),lognot(J1110     ))
 24470	    Etst(Lognor(I0011_1100,J0101_1010),lognot(J0111_1110))
 24471	    Etst(Lognor(I0011     ,J0101_1010),lognot(intcons(M0111,J1010)))
 24472	    Etst(Lognor(I0101_1010,J0011     ),lognot(J0111     ))
 24473	    Etst(Lognor(J0011     ,I0101     ),lognot(J0111     ))
 24474	    Etst(Lognor(J1100     ,I1010     ),lognot(J1110     ))
 24475	    Etst(Lognor(J0011_1100,I0101_1010),lognot(J0111_1110))
 24476	    Etst(Lognor(J0011     ,I0101_1010),lognot(J0111     ))
 24477	    Etst(Lognor(J0101_1010,I0011     ),lognot(intcons(M0111,J1010)))
 24478	    Etst(Lognor(J0011     ,J0101     ),lognot(J0111     ))
 24479	    Etst(Lognor(J1100     ,J1010     ),lognot(J1110     ))
 24480	    Etst(Lognor(J0011_1100,J0101_1010),lognot(J0111_1110))
 24481	    Etst(Lognor(J0011     ,J0101_1010),lognot(J0111     ))
 24482	    Etst(Lognor(J0101_1010,J0011     ),lognot(J0111     ))
 24483	    Etst(Lognor(EE,I0),J2)
 24484	    Etst(Lognor(EE,J1),I0)
 24485	    Etst(Lognor(I0,EE),J2)
 24486	    Etst(Lognor(J1,EE),I0)
 24487	
 24488	    Xtst(Logeqv(TT,TT))
 24489	    Xtst(Logeqv(TT,FF))
 24490	    Xtst(Logeqv(TT,I0))
 24491	    Xtst(Logeqv(TT,P0))
 24492	    Xtst(Logeqv(TT,M0))
 24493	    Xtst(Logeqv(TT,B0))
 24494	    Xtst(Logeqv(FF,TT))
 24495	    Xtst(Logeqv(FF,FF))
 24496	    Xtst(Logeqv(FF,I0))
 24497	    Xtst(Logeqv(FF,P0))
 24498	    Xtst(Logeqv(FF,M0))
 24499	    Xtst(Logeqv(FF,B0))
 24500	    Xtst(Logeqv(I0,TT))
 24501	    Xtst(Logeqv(I0,FF))
 24502	    Xtst(Logeqv(I0,P0))
 24503	    Xtst(Logeqv(I0,M0))
 24504	    Xtst(Logeqv(I0,B0))
 24505	    Xtst(Logeqv(P0,TT))
 24506	    Xtst(Logeqv(P0,FF))
 24507	    Xtst(Logeqv(P0,I0))
 24508	    Xtst(Logeqv(P0,P0))
 24509	    Xtst(Logeqv(P0,M0))
 24510	    Xtst(Logeqv(P0,B0))
 24511	    Xtst(Logeqv(M0,TT))
 24512	    Xtst(Logeqv(M0,FF))
 24513	    Xtst(Logeqv(M0,I0))
 24514	    Xtst(Logeqv(M0,P0))
 24515	    Xtst(Logeqv(M0,M0))
 24516	    Xtst(Logeqv(M0,B0))
 24517	    Xtst(Logeqv(B0,TT))
 24518	    Xtst(Logeqv(B0,FF))
 24519	    Xtst(Logeqv(B0,I0))
 24520	    Xtst(Logeqv(B0,P0))
 24521	    Xtst(Logeqv(B0,M0))
 24522	    Xtst(Logeqv(B0,B0))
 24523	    Etst(Logeqv(lognot(I0011     ),I0101     ),I0110     )
 24524	    Etst(Logeqv(lognot(I1100     ),I1010     ),I0110     )
 24525	    Etst(Logeqv(lognot(I0011_1100),I0101_1010),I0110_0110)
 24526	    Etst(Logeqv(lognot(I0011     ),I0101_1010),intcons(Z0110,I1010))
 24527	    Etst(Logeqv(lognot(I0101_1010),I0011     ),intcons(Z0110,I1010))
 24528	    Etst(Logeqv(lognot(I0011     ),J0101     ),J0110     )
 24529	    Etst(Logeqv(lognot(I1100     ),J1010     ),J0110     )
 24530	    Etst(Logeqv(lognot(I0011_1100),J0101_1010),J0110_0110)
 24531	    Etst(Logeqv(lognot(I0011     ),J0101_1010),intcons(M0110,J1010))
 24532	    Etst(Logeqv(lognot(I0101_1010),J0011     ),intcons(M0110,J0101))
 24533	    Etst(Logeqv(lognot(J0011     ),I0101     ),J0110     )
 24534	    Etst(Logeqv(lognot(J1100     ),I1010     ),J0110     )
 24535	    Etst(Logeqv(lognot(J0011_1100),I0101_1010),J0110_0110)
 24536	    Etst(Logeqv(lognot(J0011     ),I0101_1010),intcons(M0110,J0101))
 24537	    Etst(Logeqv(lognot(J0101_1010),I0011     ),intcons(M0110,J1010))
 24538	    Etst(Logeqv(lognot(J0011     ),J0101     ),I0110     )
 24539	    Etst(Logeqv(lognot(J1100     ),J1010     ),I0110     )
 24540	    Etst(Logeqv(lognot(J0011_1100),J0101_1010),I0110_0110)
 24541	    Etst(Logeqv(lognot(J0011     ),J0101_1010),intcons(Z0110,I0101))
 24542	    Etst(Logeqv(lognot(J0101_1010),J0011     ),intcons(Z0110,I0101))
 24543	    Etst(Logeqv(EE,I0),J2)
 24544	    Etst(Logeqv(EE,J1),EE)
 24545	    Etst(Logeqv(I0,EE),J2)
 24546	    Etst(Logeqv(J1,EE),EE)
 24547	
 24548	    Xtst(Logtest(TT,TT))
 24549	    Xtst(Logtest(TT,FF))
 24550	    Xtst(Logtest(TT,I0))
 24551	    Xtst(Logtest(TT,P0))
 24552	    Xtst(Logtest(TT,M0))
 24553	    Xtst(Logtest(TT,B0))
 24554	    Xtst(Logtest(FF,TT))
 24555	    Xtst(Logtest(FF,FF))
 24556	    Xtst(Logtest(FF,I0))
 24557	    Xtst(Logtest(FF,P0))
 24558	    Xtst(Logtest(FF,M0))
 24559	    Xtst(Logtest(FF,B0))
 24560	    Xtst(Logtest(I0,TT))
 24561	    Xtst(Logtest(I0,FF))
 24562	    Xtst(Logtest(I0,P0))
 24563	    Xtst(Logtest(I0,M0))
 24564	    Xtst(Logtest(I0,B0))
 24565	    Xtst(Logtest(P0,TT))
 24566	    Xtst(Logtest(P0,FF))
 24567	    Xtst(Logtest(P0,I0))
 24568	    Xtst(Logtest(P0,P0))
 24569	    Xtst(Logtest(P0,M0))
 24570	    Xtst(Logtest(P0,B0))
 24571	    Xtst(Logtest(M0,TT))
 24572	    Xtst(Logtest(M0,FF))
 24573	    Xtst(Logtest(M0,I0))
 24574	    Xtst(Logtest(M0,P0))
 24575	    Xtst(Logtest(M0,M0))
 24576	    Xtst(Logtest(M0,B0))
 24577	    Xtst(Logtest(B0,TT))
 24578	    Xtst(Logtest(B0,FF))
 24579	    Xtst(Logtest(B0,I0))
 24580	    Xtst(Logtest(B0,P0))
 24581	    Xtst(Logtest(B0,M0))
 24582	    Xtst(Logtest(B0,B0))
 24583	    Ttst(Logtest(I0011     ,I0101     ))
 24584	    Ttst(Logtest(I1100     ,I1010     ))
 24585	    Ttst(Logtest(I0011_1100,I0101_1010))
 24586	    Ttst(Logtest(I0011     ,I0101_1010))
 24587	    Ttst(Logtest(I0101_1010,I0011     ))
 24588	    Ttst(Logtest(I0011     ,J0101     ))
 24589	    Ttst(Logtest(I1100     ,J1010     ))
 24590	    Ttst(Logtest(I0011_1100,J0101_1010))
 24591	    Ttst(Logtest(I0011     ,J0101_1010))
 24592	    Ttst(Logtest(I0101_1010,J0011     ))
 24593	    Ttst(Logtest(J0011     ,I0101     ))
 24594	    Ttst(Logtest(J1100     ,I1010     ))
 24595	    Ttst(Logtest(J0011_1100,I0101_1010))
 24596	    Ttst(Logtest(J0011     ,I0101_1010))
 24597	    Ttst(Logtest(J0101_1010,I0011     ))
 24598	    Ttst(Logtest(J0011     ,J0101     ))
 24599	    Ttst(Logtest(J1100     ,J1010     ))
 24600	    Ttst(Logtest(J0011_1100,J0101_1010))
 24601	    Ttst(Logtest(J0011     ,J0101_1010))
 24602	    Ttst(Logtest(J0101_1010,J0011     ))
 24603	
 24604	    Ftst(Logtest(I0011     ,I1100     ))
 24605	    Ftst(Logtest(I1100     ,I0001     ))
 24606	    Ftst(Logtest(I0011_1100,I1000_0001))
 24607	    Ftst(Logtest(I0011     ,I1100_0011))
 24608	    Ftst(Logtest(I0101_1010,I0010     ))
 24609	    Ftst(Logtest(I0011     ,J1000     ))
 24610	    Ftst(Logtest(I1100     ,J0011     ))
 24611	    Ftst(Logtest(I0011_1100,J1000_0001))
 24612	    Ftst(Logtest(I0011     ,J1100_0011))
 24613	    Ftst(Logtest(J0011     ,I0100     ))
 24614	    Ftst(Logtest(J1100     ,I0010     ))
 24615	    Ftst(Logtest(J0011_1100,I0100_0010))
 24616	    Ftst(Logtest(J0101_1010,I1010     ))
 24617	    Ftst(Logtest(EE,I0))
 24618	    Ttst(Logtest(EE,J1))
 24619	    Ftst(Logtest(I0,EE))
 24620	    Ttst(Logtest(J1,EE))
 24621	    Ftst(Logtest(EE,J1010_0101))
 24622	    Ttst(Logtest(EE,I0011_1100))
 24623	    Ftst(Logtest(J1010_0101,EE))
 24624	    Ttst(Logtest(I0011_1100,EE))
 24625	
 24626	    Xtst(Lt(TT,TT))
 24627	    Xtst(Lt(TT,FF))
 24628	    Xtst(Lt(TT,I0))
 24629	    Xtst(Lt(TT,P0))
 24630	    Xtst(Lt(TT,M0))
 24631	    Xtst(Lt(TT,B0))
 24632	    Xtst(Lt(FF,TT))
 24633	    Xtst(Lt(FF,FF))
 24634	    Xtst(Lt(FF,I0))
 24635	    Xtst(Lt(FF,P0))
 24636	    Xtst(Lt(FF,M0))
 24637	    Xtst(Lt(FF,B0))
 24638	    Xtst(Lt(I0,TT))
 24639	    Xtst(Lt(I0,FF))
 24640	    Xtst(Lt(I0,P0))
 24641	    Xtst(Lt(I0,M0))
 24642	    Xtst(Lt(I0,B0))
 24643	    Xtst(Lt(P0,TT))
 24644	    Xtst(Lt(P0,FF))
 24645	    Xtst(Lt(P0,I0))
 24646	    Xtst(Lt(P0,P0))
 24647	    Xtst(Lt(P0,M0))
 24648	    Xtst(Lt(P0,B0))
 24649	    Xtst(Lt(M0,TT))
 24650	    Xtst(Lt(M0,FF))
 24651	    Xtst(Lt(M0,I0))
 24652	    Xtst(Lt(M0,P0))
 24653	    Xtst(Lt(M0,M0))
 24654	    Xtst(Lt(M0,B0))
 24655	    Xtst(Lt(B0,TT))
 24656	    Xtst(Lt(B0,FF))
 24657	    Xtst(Lt(B0,I0))
 24658	    Xtst(Lt(B0,P0))
 24659	    Xtst(Lt(B0,M0))
 24660	    Xtst(Lt(B0,B0))
 24661	    Ftst(Lt(I0011     ,I0011     ))
 24662	    Ttst(Lt(I0011     ,I0101     ))
 24663	    Ftst(Lt(I1100     ,I1010     ))
 24664	    Ftst(Lt(I0011_1100,I0011_1100))
 24665	    Ftst(Lt(I0011_1100,I0101_1010))
 24666	    Ttst(Lt(I1100_0011,I1010_0101))
 24667	    Ttst(Lt(I0011     ,I0101_1010))
 24668	    Ftst(Lt(I0101_1010,I0011     ))
 24669	    Ftst(Lt(I0011     ,J0101     ))
 24670	    Ftst(Lt(I1100     ,J1010     ))
 24671	    Ftst(Lt(I0011_1100,J0101_1010))
 24672	    Ftst(Lt(I0011     ,J0101_1010))
 24673	    Ftst(Lt(I0101_1010,J0011     ))
 24674	    Ttst(Lt(J0011     ,I0101     ))
 24675	    Ttst(Lt(J1100     ,I1010     ))
 24676	    Ttst(Lt(J0011_1100,I0101_1010))
 24677	    Ttst(Lt(J0011     ,I0101_1010))
 24678	    Ttst(Lt(J0101_1010,I0011     ))
 24679	    Ftst(Lt(J0011     ,J0011     ))
 24680	    Ttst(Lt(J0011     ,J0101     ))
 24681	    Ftst(Lt(J1100     ,J1010     ))
 24682	    Ftst(Lt(J0011_1100,J0011_1100))
 24683	    Ftst(Lt(J0011_1100,J0101_1010))
 24684	    Ttst(Lt(J1100_0011,J1010_0101))
 24685	    Ftst(Lt(J0011     ,J0101_1010))
 24686	    Ttst(Lt(J0101_1010,J0011     ))
 24687	
 24688	    Xtst(Le(TT,TT))
 24689	    Xtst(Le(TT,FF))
 24690	    Xtst(Le(TT,I0))
 24691	    Xtst(Le(TT,P0))
 24692	    Xtst(Le(TT,M0))
 24693	    Xtst(Le(TT,B0))
 24694	    Xtst(Le(FF,TT))
 24695	    Xtst(Le(FF,FF))
 24696	    Xtst(Le(FF,I0))
 24697	    Xtst(Le(FF,P0))
 24698	    Xtst(Le(FF,M0))
 24699	    Xtst(Le(FF,B0))
 24700	    Xtst(Le(I0,TT))
 24701	    Xtst(Le(I0,FF))
 24702	    Xtst(Le(I0,P0))
 24703	    Xtst(Le(I0,M0))
 24704	    Xtst(Le(I0,B0))
 24705	    Xtst(Le(P0,TT))
 24706	    Xtst(Le(P0,FF))
 24707	    Xtst(Le(P0,I0))
 24708	    Xtst(Le(P0,P0))
 24709	    Xtst(Le(P0,M0))
 24710	    Xtst(Le(P0,B0))
 24711	    Xtst(Le(M0,TT))
 24712	    Xtst(Le(M0,FF))
 24713	    Xtst(Le(M0,I0))
 24714	    Xtst(Le(M0,P0))
 24715	    Xtst(Le(M0,M0))
 24716	    Xtst(Le(M0,B0))
 24717	    Xtst(Le(B0,TT))
 24718	    Xtst(Le(B0,FF))
 24719	    Xtst(Le(B0,I0))
 24720	    Xtst(Le(B0,P0))
 24721	    Xtst(Le(B0,M0))
 24722	    Xtst(Le(B0,B0))
 24723	    Ttst(Le(I0011     ,I0011     ))
 24724	    Ttst(Le(I0011     ,I0101     ))
 24725	    Ftst(Le(I1100     ,I1010     ))
 24726	    Ttst(Le(I0011_1100,I0011_1100))
 24727	    Ftst(Le(I0011_1100,I0101_1010))
 24728	    Ttst(Le(I1100_0011,I1010_0101))
 24729	    Ttst(Le(I0011     ,I0101_1010))
 24730	    Ftst(Le(I0101_1010,I0011     ))
 24731	    Ftst(Le(I0011     ,J0101     ))
 24732	    Ftst(Le(I1100     ,J1010     ))
 24733	    Ftst(Le(I0011_1100,J0101_1010))
 24734	    Ftst(Le(I0011     ,J0101_1010))
 24735	    Ftst(Le(I0101_1010,J0011     ))
 24736	    Ttst(Le(J0011     ,I0101     ))
 24737	    Ttst(Le(J1100     ,I1010     ))
 24738	    Ttst(Le(J0011_1100,I0101_1010))
 24739	    Ttst(Le(J0011     ,I0101_1010))
 24740	    Ttst(Le(J0101_1010,I0011     ))
 24741	    Ttst(Le(J0011     ,J0011     ))
 24742	    Ttst(Le(J0011     ,J0101     ))
 24743	    Ftst(Le(J1100     ,J1010     ))
 24744	    Ttst(Le(J0011_1100,J0011_1100))
 24745	    Ftst(Le(J0011_1100,J0101_1010))
 24746	    Ttst(Le(J1100_0011,J1010_0101))
 24747	    Ftst(Le(J0011     ,J0101_1010))
 24748	    Ttst(Le(J0101_1010,J0011     ))
 24749	
 24750	    Xtst(Gt(TT,TT))
 24751	    Xtst(Gt(TT,FF))
 24752	    Xtst(Gt(TT,I0))
 24753	    Xtst(Gt(TT,P0))
 24754	    Xtst(Gt(TT,M0))
 24755	    Xtst(Gt(TT,B0))
 24756	    Xtst(Gt(FF,TT))
 24757	    Xtst(Gt(FF,FF))
 24758	    Xtst(Gt(FF,I0))
 24759	    Xtst(Gt(FF,P0))
 24760	    Xtst(Gt(FF,M0))
 24761	    Xtst(Gt(FF,B0))
 24762	    Xtst(Gt(I0,TT))
 24763	    Xtst(Gt(I0,FF))
 24764	    Xtst(Gt(I0,P0))
 24765	    Xtst(Gt(I0,M0))
 24766	    Xtst(Gt(I0,B0))
 24767	    Xtst(Gt(P0,TT))
 24768	    Xtst(Gt(P0,FF))
 24769	    Xtst(Gt(P0,I0))
 24770	    Xtst(Gt(P0,P0))
 24771	    Xtst(Gt(P0,M0))
 24772	    Xtst(Gt(P0,B0))
 24773	    Xtst(Gt(M0,TT))
 24774	    Xtst(Gt(M0,FF))
 24775	    Xtst(Gt(M0,I0))
 24776	    Xtst(Gt(M0,P0))
 24777	    Xtst(Gt(M0,M0))
 24778	    Xtst(Gt(M0,B0))
 24779	    Xtst(Gt(B0,TT))
 24780	    Xtst(Gt(B0,FF))
 24781	    Xtst(Gt(B0,I0))
 24782	    Xtst(Gt(B0,P0))
 24783	    Xtst(Gt(B0,M0))
 24784	    Xtst(Gt(B0,B0))
 24785	    Ftst(Gt(I0011     ,I0011     ))
 24786	    Ftst(Gt(I0011     ,I0101     ))
 24787	    Ttst(Gt(I1100     ,I1010     ))
 24788	    Ftst(Gt(I0011_1100,I0011_1100))
 24789	    Ttst(Gt(I0011_1100,I0101_1010))
 24790	    Ftst(Gt(I1100_0011,I1010_0101))
 24791	    Ftst(Gt(I0011     ,I0101_1010))
 24792	    Ttst(Gt(I0101_1010,I0011     ))
 24793	    Ttst(Gt(I0011     ,J0101     ))
 24794	    Ttst(Gt(I1100     ,J1010     ))
 24795	    Ttst(Gt(I0011_1100,J0101_1010))
 24796	    Ttst(Gt(I0011     ,J0101_1010))
 24797	    Ttst(Gt(I0101_1010,J0011     ))
 24798	    Ftst(Gt(J0011     ,I0101     ))
 24799	    Ftst(Gt(J1100     ,I1010     ))
 24800	    Ftst(Gt(J0011_1100,I0101_1010))
 24801	    Ftst(Gt(J0011     ,I0101_1010))
 24802	    Ftst(Gt(J0101_1010,I0011     ))
 24803	    Ftst(Gt(J0011     ,J0011     ))
 24804	    Ftst(Gt(J0011     ,J0101     ))
 24805	    Ttst(Gt(J1100     ,J1010     ))
 24806	    Ftst(Gt(J0011_1100,J0011_1100))
 24807	    Ttst(Gt(J0011_1100,J0101_1010))
 24808	    Ftst(Gt(J1100_0011,J1010_0101))
 24809	    Ttst(Gt(J0011     ,J0101_1010))
 24810	    Ftst(Gt(J0101_1010,J0011     ))
 24811	
 24812	    Xtst(Ge(TT,TT))
 24813	    Xtst(Ge(TT,FF))
 24814	    Xtst(Ge(TT,I0))
 24815	    Xtst(Ge(TT,P0))
 24816	    Xtst(Ge(TT,M0))
 24817	    Xtst(Ge(TT,B0))
 24818	    Xtst(Ge(FF,TT))
 24819	    Xtst(Ge(FF,FF))
 24820	    Xtst(Ge(FF,I0))
 24821	    Xtst(Ge(FF,P0))
 24822	    Xtst(Ge(FF,M0))
 24823	    Xtst(Ge(FF,B0))
 24824	    Xtst(Ge(I0,TT))
 24825	    Xtst(Ge(I0,FF))
 24826	    Xtst(Ge(I0,P0))
 24827	    Xtst(Ge(I0,M0))
 24828	    Xtst(Ge(I0,B0))
 24829	    Xtst(Ge(P0,TT))
 24830	    Xtst(Ge(P0,FF))
 24831	    Xtst(Ge(P0,I0))
 24832	    Xtst(Ge(P0,P0))
 24833	    Xtst(Ge(P0,M0))
 24834	    Xtst(Ge(P0,B0))
 24835	    Xtst(Ge(M0,TT))
 24836	    Xtst(Ge(M0,FF))
 24837	    Xtst(Ge(M0,I0))
 24838	    Xtst(Ge(M0,P0))
 24839	    Xtst(Ge(M0,M0))
 24840	    Xtst(Ge(M0,B0))
 24841	    Xtst(Ge(B0,TT))
 24842	    Xtst(Ge(B0,FF))
 24843	    Xtst(Ge(B0,I0))
 24844	    Xtst(Ge(B0,P0))
 24845	    Xtst(Ge(B0,M0))
 24846	    Xtst(Ge(B0,B0))
 24847	    Ttst(Ge(I0011     ,I0011     ))
 24848	    Ftst(Ge(I0011     ,I0101     ))
 24849	    Ttst(Ge(I1100     ,I1010     ))
 24850	    Ttst(Ge(I0011_1100,I0011_1100))
 24851	    Ttst(Ge(I0011_1100,I0101_1010))
 24852	    Ftst(Ge(I1100_0011,I1010_0101))
 24853	    Ftst(Ge(I0011     ,I0101_1010))
 24854	    Ttst(Ge(I0101_1010,I0011     ))
 24855	    Ttst(Ge(I0011     ,J0101     ))
 24856	    Ttst(Ge(I1100     ,J1010     ))
 24857	    Ttst(Ge(I0011_1100,J0101_1010))
 24858	    Ttst(Ge(I0011     ,J0101_1010))
 24859	    Ttst(Ge(I0101_1010,J0011     ))
 24860	    Ftst(Ge(J0011     ,I0101     ))
 24861	    Ftst(Ge(J1100     ,I1010     ))
 24862	    Ftst(Ge(J0011_1100,I0101_1010))
 24863	    Ftst(Ge(J0011     ,I0101_1010))
 24864	    Ftst(Ge(J0101_1010,I0011     ))
 24865	    Ttst(Ge(J0011     ,J0011     ))
 24866	    Ftst(Ge(J0011     ,J0101     ))
 24867	    Ttst(Ge(J1100     ,J1010     ))
 24868	    Ttst(Ge(J0011_1100,J0011_1100))
 24869	    Ttst(Ge(J0011_1100,J0101_1010))
 24870	    Ftst(Ge(J1100_0011,J1010_0101))
 24871	    Ttst(Ge(J0011     ,J0101_1010))
 24872	    Ftst(Ge(J0101_1010,J0011     ))
 24873	
 24874	    Etst(False,F)
 24875	
 24876	    Etst(Base,N(10))
 24877	
 24878	    Xtst(Evenp(TT))
 24879	    Xtst(Evenp(FF))
 24880	    Xtst(Evenp(P0))
 24881	    Xtst(Evenp(M0))
 24882	    Xtst(Evenp(B0))
 24883	    Ttst(Evenp(Z))
 24884	    Ftst(Evenp(M))
 24885	    Ftst(Evenp(I0011))
 24886	    Ttst(Evenp(J1010_0101))
 24887	
 24888	    Xtst(Half(TT))
 24889	    Xtst(Half(FF))
 24890	    Xtst(Half(P0))
 24891	    Xtst(Half(M0))
 24892	    Xtst(Half(B0))
 24893	    Etst(Half(Z),Z)
 24894	    Etst(Half(M),M)
 24895	    Etst(Half(I[1]),I[0])
 24896	    Etst(Half(I[2]),I[1])
 24897	    Etst(Half(I[3]),I[1])
 24898	    Etst(Half(I[4]),I[2])
 24899	    Etst(Half(I[5]),I[2])
 24900	    Etst(Half(I[6]),I[3])
 24901	    Etst(Half(JN(-2)),M)
 24902	    Etst(Half(JN(-3)),JN(-2))
 24903	    Etst(Half(JN(-4)),JN(-2))
 24904	    Etst(Half(JN(-5)),JN(-3))
 24905	    Etst(Half(JN(-6)),JN(-3))
 24906	    Etst(Half(JN(-7)),JN(-4))
 24907	
 24908	    Ttst(Eq(TT,TT))
 24909	    Ftst(Eq(TT,FF))
 24910	    Ftst(Eq(TT,I0))
 24911	    Ftst(Eq(TT,EE))
 24912	    Ftst(Eq(TT,P0))
 24913	    Ftst(Eq(TT,M0))
 24914	    Ftst(Eq(TT,B0))
 24915	    Ftst(Eq(FF,TT))
 24916	    Ttst(Eq(FF,FF))
 24917	    Ftst(Eq(FF,I0))
 24918	    Ftst(Eq(FF,EE))
 24919	    Ftst(Eq(FF,P0))
 24920	    Ftst(Eq(FF,M0))
 24921	    Ftst(Eq(FF,B0))
 24922	    Ftst(Eq(I0,TT))
 24923	    Ftst(Eq(I0,FF))
 24924	    Ttst(Eq(I0,I0))
 24925	    Ftst(Eq(I0,EE))
 24926	    Ftst(Eq(I0,P0))
 24927	    Ftst(Eq(I0,M0))
 24928	    Ftst(Eq(I0,B0))
 24929	    Ftst(Eq(EE,TT))
 24930	    Ftst(Eq(EE,FF))
 24931	    Ftst(Eq(EE,I0))
 24932	    Ttst(Eq(EE,EE))
 24933	    Ftst(Eq(EE,P0))
 24934	    Ftst(Eq(EE,M0))
 24935	    Ftst(Eq(EE,B0))
 24936	    Ftst(Eq(P0,TT))
 24937	    Ftst(Eq(P0,FF))
 24938	    Ftst(Eq(P0,I0))
 24939	    Ftst(Eq(P0,EE))
 24940	    Ttst(Eq(P0,P0))
 24941	    Ftst(Eq(P0,M0))
 24942	    Ftst(Eq(P0,B0))
 24943	    Ftst(Eq(M0,TT))
 24944	    Ftst(Eq(M0,FF))
 24945	    Ftst(Eq(M0,I0))
 24946	    Ftst(Eq(M0,EE))
 24947	    Ftst(Eq(M0,P0))
 24948	    Ttst(Eq(M0,M0))
 24949	    Ftst(Eq(M0,B0))
 24950	    Ftst(Eq(B0,TT))
 24951	    Ftst(Eq(B0,FF))
 24952	    Ftst(Eq(B0,I0))
 24953	    Ftst(Eq(B0,EE))
 24954	    Ftst(Eq(B0,P0))
 24955	    Ftst(Eq(B0,M0))
 24956	    Ttst(Eq(B0,B0))
 24957	
 24958	    Ttst(Eq(I12 ,I12 ))
 24959	    Ftst(Eq(I12 ,I123))
 24960	    Ftst(Eq(I12 ,I923))
 24961	    Ftst(Eq(I12 ,I129))
 24962	    Ftst(Eq(I123,I12 ))
 24963	    Ttst(Eq(I123,I123))
 24964	    Ftst(Eq(I123,I923))
 24965	    Ftst(Eq(I123,I129))
 24966	    Ftst(Eq(I923,I12 ))
 24967	    Ftst(Eq(I923,I123))
 24968	    Ttst(Eq(I923,I923))
 24969	    Ftst(Eq(I923,I129))
 24970	    Ftst(Eq(I129,I12 ))
 24971	    Ftst(Eq(I129,I123))
 24972	    Ftst(Eq(I129,I923))
 24973	    Ttst(Eq(I129,I129))
 24974	
 24975	    Ttst(Eq(J12 ,J12 ))
 24976	    Ftst(Eq(J12 ,J123))
 24977	    Ftst(Eq(J12 ,J923))
 24978	    Ftst(Eq(J12 ,J129))
 24979	    Ftst(Eq(J123,J12 ))
 24980	    Ttst(Eq(J123,J123))
 24981	    Ftst(Eq(J123,J923))
 24982	    Ftst(Eq(J123,J129))
 24983	    Ftst(Eq(J923,J12 ))
 24984	    Ftst(Eq(J923,J123))
 24985	    Ttst(Eq(J923,J923))
 24986	    Ftst(Eq(J923,J129))
 24987	    Ftst(Eq(J129,J12 ))
 24988	    Ftst(Eq(J129,J123))
 24989	    Ftst(Eq(J129,J923))
 24990	    Ttst(Eq(J129,J129))
 24991	
 24992	    Ttst(Eq(EE,I[1]))
 24993	
 24994	    Ttst(Eq(P0,P0))
 24995	    Ftst(Eq(P0,P1))
 24996	    Ftst(Eq(P0,P2))
 24997	    Ftst(Eq(P0,P3))
 24998	    Ftst(Eq(P1,P0))
 24999	    Ttst(Eq(P1,P1))
 25000	    Ftst(Eq(P1,P2))
 25001	    Ftst(Eq(P1,P3))
 25002	    Ftst(Eq(P2,P0))
 25003	    Ftst(Eq(P2,P1))
 25004	    Ttst(Eq(P2,P2))
 25005	    Ftst(Eq(P2,P3))
 25006	    Ftst(Eq(P3,P0))
 25007	    Ftst(Eq(P3,P1))
 25008	    Ftst(Eq(P3,P2))
 25009	    Ttst(Eq(P3,P3))
 25010	
 25011	    Ttst(Eq(B0,B0))
 25012	    Ftst(Eq(B0,B1))
 25013	    Ftst(Eq(B0,B2))
 25014	    Ftst(Eq(B0,B3))
 25015	    Ftst(Eq(B1,B0))
 25016	    Ttst(Eq(B1,B1))
 25017	    Ftst(Eq(B1,B2))
 25018	    Ftst(Eq(B1,B3))
 25019	    Ftst(Eq(B2,B0))
 25020	    Ftst(Eq(B2,B1))
 25021	    Ttst(Eq(B2,B2))
 25022	    Ftst(Eq(B2,B3))
 25023	    Ftst(Eq(B3,B0))
 25024	    Ftst(Eq(B3,B1))
 25025	    Ftst(Eq(B3,B2))
 25026	    Ttst(Eq(B3,B3))
 25027	
 25028	    ftst(Root(fct_if))
 25029	    ftst(Root(Apply(fct_if,MT)))
 25030	    ftst(Root(Apply(Apply(fct_if,MT),MT)))
 25031	    ttst(Root(Apply(Apply(Apply(fct_if,MT),MT),MT)))
 25032	    ttst(Root(Apply(Apply(Apply(fct_if,MT),MT),MF)))
 25033	    ftst(Root(Apply(Apply(Apply(fct_if,MT),MF),MT)))
 25034	    ftst(Root(Apply(Apply(Apply(fct_if,MT),MF),MF)))
 25035	    ttst(Root(Apply(Apply(Apply(fct_if,MF),MT),MT)))
 25036	    ftst(Root(Apply(Apply(Apply(fct_if,MF),MT),MF)))
 25037	    ttst(Root(Apply(Apply(Apply(fct_if,MF),MF),MT)))
 25038	    ftst(Root(Apply(Apply(Apply(fct_if,MF),MF),MF)))
 25039	
 25040	    Xtst(Sl2rack(FF))
 25041	    Xtst(Sl2rack(I0))
 25042	    Xtst(Sl2rack(J1))
 25043	    Xtst(Sl2rack(EE))
 25044	    Xtst(Sl2rack(M0))
 25045	    Xtst(Sl2rack(B0))
 25046	    Xtst(Sl2rack(PAIR(TT,TT)))
 25047	    Xtst(Sl2rack(PAIR(FF,TT)))
 25048	    Xtst(Sl2rack(PAIR(I0,TT)))
 25049	    Xtst(Sl2rack(PAIR(J1,TT)))
 25050	    Xtst(Sl2rack(PAIR(EE,TT)))
 25051	    Xtst(Sl2rack(PAIR(V(ab),TT)))
 25052	    Xtst(Sl2rack(PAIR(P0,TT)))
 25053	    Xtst(Sl2rack(PAIR(M0,TT)))
 25054	    Xtst(Sl2rack(PAIR(B0,TT)))
 25055	    Xtst(Sl2rack(PAIR(bytevect[0],FF)))
 25056	    Xtst(Sl2rack(PAIR(bytevect[0],I0)))
 25057	    Xtst(Sl2rack(PAIR(bytevect[0],J1)))
 25058	    Xtst(Sl2rack(PAIR(bytevect[0],M0)))
 25059	    Xtst(Sl2rack(PAIR(bytevect[0],B0)))
 25060	
 25061	    Etst(T,
 25062	      Sl2rack(
 25063	        PAIR(bytevect[3],T)))
 25064	    Etst(T,
 25065	      Sl2rack(
 25066	        PAIR(bytevect[3],FF)))
 25067	    Etst(PAIR(T,T),
 25068	      Sl2rack(
 25069	        PAIR(bytevect[1],
 25070	        PAIR(bytevect[1],
 25071	        PAIR(bytevect[4],T)))))
 25072	    Etst(N(7),
 25073	      Sl2rack(
 25074	        PAIR(bytevect[0],
 25075	        PAIR(bytevect[7],
 25076	        PAIR(bytevect[4],T)))))
 25077	    Etst(V(abc),
 25078	      Sl2rack(
 25079	        PAIR(bytevect[2],
 25080	        PAIR(bytevect[3],
 25081	        PAIR(bytevect[97],
 25082	        PAIR(bytevect[98],
 25083	        PAIR(bytevect[99],
 25084	        PAIR(bytevect[4],T))))))))
 25085	    Etst(PAIR(N(6),V(abc)),
 25086	      Sl2rack(
 25087	        PAIR(bytevect[0],
 25088	        PAIR(bytevect[6],
 25089	        PAIR(bytevect[2],
 25090	        PAIR(bytevect[3],
 25091	        PAIR(bytevect[97],
 25092	        PAIR(bytevect[98],
 25093	        PAIR(bytevect[99],
 25094	        PAIR(bytevect[3],
 25095	        PAIR(bytevect[4],
 25096	        PAIR(bytevect[6],T))))))))))))
 25097	
 25098	    Etst(Rack2sl(T),
 25099	      PAIR(bytevect[3],T))
 25100	    Etst(Rack2sl(PAIR(T,T)),
 25101	      PAIR(bytevect[1],
 25102	      PAIR(bytevect[1],
 25103	      PAIR(bytevect[4],T))))
 25104	    Etst(Rack2sl(N(7)),
 25105	      PAIR(bytevect[0],
 25106	      PAIR(bytevect[7],
 25107	      PAIR(bytevect[4],T))))
 25108	    Etst(Rack2sl(V(abc)),
 25109	      PAIR(bytevect[2],
 25110	      PAIR(bytevect[3],
 25111	      PAIR(bytevect[97],
 25112	      PAIR(bytevect[98],
 25113	      PAIR(bytevect[99],
 25114	      PAIR(bytevect[4],T)))))))
 25115	    Etst(Rack2sl(PAIR(N(6),V(abc))),
 25116	      PAIR(bytevect[0],
 25117	      PAIR(bytevect[6],
 25118	      PAIR(bytevect[2],
 25119	      PAIR(bytevect[3],
 25120	      PAIR(bytevect[97],
 25121	      PAIR(bytevect[98],
 25122	      PAIR(bytevect[99],
 25123	      PAIR(bytevect[3],
 25124	      PAIR(bytevect[4],
 25125	      PAIR(bytevect[6],T)))))))))))
 25126	    Etst(Rack2sl(PAIR(N(7),N(7))),
 25127	      PAIR(bytevect[0],
 25128	      PAIR(bytevect[7],
 25129	      PAIR(bytevect[3],
 25130	      PAIR(bytevect[3],
 25131	      PAIR(bytevect[5],T))))))
 25132	    Etst(Rack2sl(PAIR(PAIR(T,T),PAIR(T,T))),
 25133	      PAIR(bytevect[1],
 25134	      PAIR(bytevect[1],
 25135	      PAIR(bytevect[3],
 25136	      PAIR(bytevect[3],
 25137	      PAIR(bytevect[5],T))))))
 25138	    Xtst(Rack2sl(PAIR(PAIR(T,T),PAIR(T,N(-1)))))
 25139	    Xtst(Rack2sl(PAIR(PAIR(T,T),PAIR(T,F))))
 25140	
 25141	    Etst(Ripemd(TT),
 25142	      PAIR(bytevect[0x9C],
 25143	      PAIR(bytevect[0x11],
 25144	      PAIR(bytevect[0x85],
 25145	      PAIR(bytevect[0xA5],
 25146	      PAIR(bytevect[0xC5],
 25147	      PAIR(bytevect[0xE9],
 25148	      PAIR(bytevect[0xFC],
 25149	      PAIR(bytevect[0x54],
 25150	      PAIR(bytevect[0x61],
 25151	      PAIR(bytevect[0x28],
 25152	      PAIR(bytevect[0x08],
 25153	      PAIR(bytevect[0x97],
 25154	      PAIR(bytevect[0x7E],
 25155	      PAIR(bytevect[0xE8],
 25156	      PAIR(bytevect[0xF5],
 25157	      PAIR(bytevect[0x48],
 25158	      PAIR(bytevect[0xB2],
 25159	      PAIR(bytevect[0x25],
 25160	      PAIR(bytevect[0x8D],
 25161	      PAIR(bytevect[0x31],T)))))))))))))))))))))
 25162	    Etst(Ripemd(PAIR(bytevect[97],TT)),
 25163	      PAIR(bytevect[0x0B],
 25164	      PAIR(bytevect[0xDC],
 25165	      PAIR(bytevect[0x9D],
 25166	      PAIR(bytevect[0x2D],
 25167	      PAIR(bytevect[0x25],
 25168	      PAIR(bytevect[0x6B],
 25169	      PAIR(bytevect[0x3E],
 25170	      PAIR(bytevect[0xE9],
 25171	      PAIR(bytevect[0xDA],
 25172	      PAIR(bytevect[0xAE],
 25173	      PAIR(bytevect[0x34],
 25174	      PAIR(bytevect[0x7B],
 25175	      PAIR(bytevect[0xE6],
 25176	      PAIR(bytevect[0xF4],
 25177	      PAIR(bytevect[0xDC],
 25178	      PAIR(bytevect[0x83],
 25179	      PAIR(bytevect[0x5A],
 25180	      PAIR(bytevect[0x46],
 25181	      PAIR(bytevect[0x7F],
 25182	      PAIR(bytevect[0xFE],T)))))))))))))))))))))
 25183	    Etst(
 25184	      Ripemd(
 25185	        PAIR(V(abcdefghijklmnopqrstuvwxyz),V(ABCDEFGHIJKLMNOPQRSTUVWXYZ123))),
 25186	      PAIR(bytevect[0x71],
 25187	      PAIR(bytevect[0xE0],
 25188	      PAIR(bytevect[0xB6],
 25189	      PAIR(bytevect[0x23],
 25190	      PAIR(bytevect[0x22],
 25191	      PAIR(bytevect[0xD3],
 25192	      PAIR(bytevect[0xA0],
 25193	      PAIR(bytevect[0x31],
 25194	      PAIR(bytevect[0xC0],
 25195	      PAIR(bytevect[0xFB],
 25196	      PAIR(bytevect[0x62],
 25197	      PAIR(bytevect[0x1B],
 25198	      PAIR(bytevect[0xE4],
 25199	      PAIR(bytevect[0xD9],
 25200	      PAIR(bytevect[0x07],
 25201	      PAIR(bytevect[0x73],
 25202	      PAIR(bytevect[0xB7],
 25203	      PAIR(bytevect[0xE6],
 25204	      PAIR(bytevect[0x6B],
 25205	      PAIR(bytevect[0xB2],T)))))))))))))))))))))
 25206	    Etst(Ripemd(PAIR(PAIR(V(a),N(-1)),PAIR(B0,V(bc)))),
 25207	      PAIR(bytevect[0x8E],
 25208	      PAIR(bytevect[0xB2],
 25209	      PAIR(bytevect[0x08],
 25210	      PAIR(bytevect[0xF7],
 25211	      PAIR(bytevect[0xE0],
 25212	      PAIR(bytevect[0x5D],
 25213	      PAIR(bytevect[0x98],
 25214	      PAIR(bytevect[0x7A],
 25215	      PAIR(bytevect[0x9B],
 25216	      PAIR(bytevect[0x04],
 25217	      PAIR(bytevect[0x4A],
 25218	      PAIR(bytevect[0x8E],
 25219	      PAIR(bytevect[0x98],
 25220	      PAIR(bytevect[0xC6],
 25221	      PAIR(bytevect[0xB0],
 25222	      PAIR(bytevect[0x87],
 25223	      PAIR(bytevect[0xF1],
 25224	      PAIR(bytevect[0x5A],
 25225	      PAIR(bytevect[0x0B],
 25226	      PAIR(bytevect[0xFC],T)))))))))))))))))))))
 25227	
 25228	/*
 25229	---------------------------------------------
 25230	Test of eager functions
 25231	---------------------------------------------
 25232	*/
 25233	
 25234	    Etst(Emptylist,T)
 25235	
 25236	    Etst(Zeroth(PAIR(N(1),PAIR(N(2),PAIR(N(3),T)))),N(1))
 25237	    Etst(First (PAIR(N(1),PAIR(N(2),PAIR(N(3),T)))),N(2))
 25238	    Etst(Second(PAIR(N(1),PAIR(N(2),PAIR(N(3),T)))),N(3))
 25239	    Etst(Zeroth(X1),X1)
 25240	    Etst(First (X1),X1)
 25241	    Etst(Second(X1),X1)
 25242	    Etst(Revappend(T,PAIR(N(3),PAIR(N(4),T))),PAIR(N(3),PAIR(N(4),T)))
 25243	    Etst(Revappend(PAIR(N(2),T),PAIR(N(3),PAIR(N(4),T))),
 25244	      PAIR(N(2),PAIR(N(3),PAIR(N(4),T))))
 25245	    Etst(Revappend(PAIR(N(2),PAIR(N(1),T)),PAIR(N(3),PAIR(N(4),T))),
 25246	      PAIR(N(1),PAIR(N(2),PAIR(N(3),PAIR(N(4),T)))))
 25247	    Etst(Revappend(X1,PAIR(N(3),PAIR(N(4),T))),X1)
 25248	    Etst(Revappend(PAIR(N(2),PAIR(N(1),T)),X2),X2)
 25249	    Etst(Revappend(X1,X2),X1)
 25250	    Etst(Reverse(PAIR(N(1),PAIR(N(2),PAIR(N(3),T)))),
 25251	      PAIR(N(3),PAIR(N(2),PAIR(N(1),T))))
 25252	
 25253	/*
 25254	---------------------------------------------
 25255	Test of call from lazy to eager function
 25256	---------------------------------------------
 25257	*/
 25258	
 25259	    Xtst(Factorial(TT))
 25260	    Xtst(Factorial(FF))
 25261	    Xtst(Factorial(P0))
 25262	    Xtst(Factorial(M0))
 25263	    Xtst(Factorial(B0))
 25264	    Etst(Factorial(N(0)),N(1))
 25265	    Etst(Factorial(N(1)),N(1))
 25266	    Etst(Factorial(N(2)),N(2))
 25267	    Etst(Factorial(N(3)),N(6))
 25268	    Etst(Factorial(N(4)),N(24))
 25269	    Etst(Factorial(N(10)),N(3628800))
 25270	    Etst(Factorial(N(100)),
 25271	N(93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000))
 25272	
 25273	/*
 25274	---------------------------------------------
 25275	Test of handlers
 25276	---------------------------------------------
 25277	*/
 25278	
 25279	    Etst(Quit(N(3)),PAIR(PAIR(N(0),PAIR(V(quit),T)),PAIR(N(3),T)))
 25280	    Etst(Write(V(abc)),PAIR(PAIR(N(0),PAIR(V(write),T)),PAIR(V(abc),T)))
 25281	    Etst(Readreq,PAIR(PAIR(N(0),PAIR(V(read),T)),T))
 25282	    Etst(Exec(M2,M3),PAIR(PAIR(N(0),PAIR(V(exec),T)),PAIR(M2,PAIR(M3,T))))
 25283	    Etst(Extend(V(a),V(bc)),
 25284	      PAIR(PAIR(N(0),PAIR(V(extend),T)),PAIR(V(a),PAIR(V(bc),T))))
 25285	    Etst(Boot(Z0,Z1,Z2,Z3),
 25286	      PAIR(PAIR(N(0),PAIR(V(boot),T)),PAIR(Z0,PAIR(Z1,PAIR(Z2,PAIR(Z3,T))))))
 25287	    Etst(Read(V(abc)),PAIR(PAIR(N(0),PAIR(V(read),T)),PAIR(V(abc),T)))
 25288	    Etst(Int(N(3),T),PAIR(PAIR(N(0),PAIR(V(exec),T)),PAIR(N(3),PAIR(T,T))))
 25289	    Etst(Extended(N(3)),PAIR(PAIR(N(0),PAIR(V(extend),T)),PAIR(N(3),T)))
 25290	
 25291	    etst(code_hello,M0)
 25292	    etst(code_echo,M0)
 25293	    etst(code_eecho,M0)
 25294	    etst(tail(Echo1(T)),PAIR(Exec(T,M0),T))
 25295	    etst(Echo1(T),PAIR(map2rnf(Readreq),PAIR(Exec(T,M0),T)))
 25296	    etst(Echo1(PAIR(Read(V(q)),T)),
 25297	      PAIR(Write(PAIR(T,N(266))),PAIR(Quit(N(0)),T)))
 25298	    etst(Echo1(PAIR(Read(V(r)),T)),
 25299	      PAIR(Write(V(r)),PAIR(map2rnf(Readreq),PAIR(Exec(T,M0),T))))
 25300	    etst(Eecho1(T),PAIR(map2rnf(Readreq),PAIR(Exec(T,M0),T)))
 25301	    etst(Eecho1(PAIR(Read(V(q)),T)),
 25302	      PAIR(Write(PAIR(T,N(266))),PAIR(Quit(N(0)),T)))
 25303	    etst(Eecho1(PAIR(Read(V(r)),T)),
 25304	      PAIR(Write(PAIR(V(r),V(r))),PAIR(map2rnf(Readreq),PAIR(Exec(T,M0),T))))
 25305	    etst(untag(APPLY(untag1(Hello),mapcons(T))),
 25306	      PAIR(Write(PAIR(V(Hello World),N(266))),T))
 25307	    etst(untag(APPLY(untag(code_hello),mapcons(T))),
 25308	      PAIR(Write(PAIR(V(Hello World),N(266))),T))
 25309	    etst(untag(APPLY(untag(code_echo),mapcons(T))),
 25310	      PAIR(map2rnf(Readreq),PAIR(Exec(T,M0),T)))
 25311	    etst(untag(APPLY(untag(code_echo),mapcons(PAIR(Read(V(q)),T)))),
 25312	      PAIR(Write(PAIR(T,N(266))),PAIR(Quit(N(0)),T)))
 25313	    etst(untag(APPLY(untag(code_echo),mapcons(PAIR(Read(V(r)),T)))),
 25314	      PAIR(Write(V(r)),PAIR(map2rnf(Readreq),PAIR(Exec(T,M0),T))))
 25315	    etst(untag(APPLY(untag(code_eecho),mapcons(T))),
 25316	      PAIR(map2rnf(Readreq),PAIR(Exec(T,M0),T)))
 25317	    etst(untag(APPLY(untag(code_eecho),mapcons(PAIR(Read(V(q)),T)))),
 25318	      PAIR(Write(PAIR(T,N(266))),PAIR(Quit(N(0)),T)))
 25319	    etst(untag(APPLY(untag(code_eecho),mapcons(PAIR(Read(V(r)),T)))),
 25320	      PAIR(Write(PAIR(V(r),V(r))),PAIR(map2rnf(Readreq),PAIR(Exec(T,M0),T))))
 25321	
 25322	/*
 25323	---------------------------------------------
 25324	Test of compilation
 25325	---------------------------------------------
 25326	*/
 25327	
 25328	/*  The optimized Y-combinator is introduced for the sake of compilation
 25329	    so we test it here. Note that UY is a defined Y-combinator whereas
 25330	    YY is the optimized one. */
 25331	
 25332	    ntst(map2rnf(map_apply(UY,UT)))
 25333	    ntst(map2rnf(map_apply(UY,UF)))
 25334	    ptst(map2rnf(UYK))
 25335	    ptst(map2rnf(map_apply(UYK,UT)))
 25336	    ptst(map2rnf(map_apply(UYK,UF)))
 25337	    ptst(map2rnf(map_apply(map_apply(UYK,UT),UT)))
 25338	    ptst(map2rnf(map_apply(map_apply(UYK,UF),UF)))
 25339	    ptst(map2rnf(UYKI))
 25340	    ntst(map2rnf(map_apply(UYKI,UT)))
 25341	    ptst(map2rnf(map_apply(UYKI,UF)))
 25342	
 25343	    test(ROOT(YY)==MTAG_FIX)
 25344	    ntst(map2rnf(map_apply(YY,UT)))
 25345	    ntst(map2rnf(map_apply(YY,UF)))
 25346	    ptst(map2rnf(map_apply(YY,UK)))
 25347	    ptst(map2rnf(map_apply(map_apply(YY,UK),UT)))
 25348	    ptst(map2rnf(map_apply(map_apply(YY,UK),UF)))
 25349	    ptst(map2rnf(map_apply(map_apply(map_apply(YY,UK),UT),UT)))
 25350	    ptst(map2rnf(map_apply(map_apply(map_apply(YY,UK),UF),UF)))
 25351	    ptst(map2rnf(map_apply(YY,UKI)))
 25352	    ntst(map2rnf(map_apply(map_apply(YY,UKI),UT)))
 25353	    ptst(map2rnf(map_apply(map_apply(YY,UKI),UF)))
 25354	    test(ROOT(fixmap1)==MTAG_PAIR)
 25355	    Etst(map_head(fixmap1),N(2))
 25356	    test(ROOT(map_tail(fixmap1))==MTAG_PAIR)
 25357	    Etst(map_head(map_tail(fixmap1)),N(2))
 25358	    test(ROOT(map_tail(map_tail(fixmap1)))==MTAG_PAIR)
 25359	    Etst(map_head(map_tail(map_tail(fixmap1))),N(2))
 25360	    test(ROOT(fixmap2)==MTAG_PAIR)
 25361	    Etst(map_head(fixmap2),V(print))
 25362	    test(ROOT(map_tail(fixmap2))==MTAG_PAIR)
 25363	    Etst(map_head(map_tail(fixmap2)),V(print))
 25364	    test(ROOT(map_tail(map_tail(fixmap2)))==MTAG_PAIR)
 25365	    Etst(map_head(map_tail(map_tail(fixmap2))),V(print))
 25366	
 25367	/*  Test the eagerly constructed part of the output from the compiler */
 25368	
 25369	    etst(mget1(basecache,Z),baseref)
 25370	    etst(mget1(basecacheb,Z),baseref)
 25371	    etst(mget1(baserack,const_bib),PAIR(baseref,T))
 25372	    etst(mget1(baserackb,const_bib),PAIR(baseref,T))
 25373	    etst(mget1(baserack,const_bib      ),mget1(baserackb,const_bib      ))
 25374	    etst(basediagnose,maptag(T))
 25375	    etst(basediagnoseb,maptag(T))
 25376	    etst(basediagnose,basediagnoseb)
 25377	    etst(mget1(basecodea,name2idx("testfunc1 ( \" )")),maptag(T))
 25378	    etst(mget1(basecodeb,name2idx("testfunc1 ( \" )")),maptag(T))
 25379	    etst(mget1(basecodea,name2idx("testfunc1 ( \" )")),
 25380	         mget1(basecodeb,name2idx("testfunc1 ( \" )")))
 25381	    etst(basecodea,basecodeb)
 25382	/*  etst(basecache,basecacheb)*/
 25383	
 25384	/*  Test the lazily constructed part of the output from the compiler */
 25385	
 25386	    Etst(Truea,T)
 25387	    Etst(Trueb,T)
 25388	    Etst(Falsea,F)
 25389	    Etst(Falseb,F)
 25390	    Etst(Digitenda,Z)
 25391	    Etst(Digitendb,Z)
 25392	    Etst(Basea,N(10))
 25393	    Etst(Baseb,N(10))
 25394	    Etst(Ifa(Truea,Digitenda,Basea),N(0))
 25395	    Etst(Ifb(Trueb,Digitendb,Baseb),N(0))
 25396	    Etst(LazyPaira(Truea,Truea),F)
 25397	    Etst(LazyPairb(Trueb,Trueb),F)
 25398	    Etst(Heada(LazyPaira(Digitenda,Basea)),N(0))
 25399	    Etst(Headb(LazyPairb(Digitendb,Baseb)),N(0))
 25400	    Etst(Taila(LazyPaira(Digitenda,Basea)),N(10))
 25401	    Etst(Tailb(LazyPairb(Digitendb,Baseb)),N(10))
 25402	    Etst(Equala(Digitenda,Digitenda),T)
 25403	    Etst(Equalb(Digitendb,Digitendb),T)
 25404	    Etst(Equala(Digitenda,Basea),F)
 25405	    Etst(Equalb(Digitendb,Baseb),F)
 25406	    Etst(Equala(Basea,Digitenda),F)
 25407	    Etst(Equalb(Baseb,Digitendb),F)
 25408	    Etst(Equala(Basea,Basea),T)
 25409	    Etst(Equalb(Baseb,Baseb),T)
 25410	
 25411	/*  testfunc1 to testfunc8 tests various peculiarities */
 25412	
 25413	    Etst(Testfunc1a(N(2)),N(5))
 25414	    Etst(Testfunc1b(N(2)),N(5))
 25415	    Etst(Testfunc2a(N(2),N(3)),N(2))
 25416	    Etst(Testfunc2b(N(2),N(3)),N(2))
 25417	    Etst(Testfunc5a(N(2)),T)
 25418	    Etst(Testfunc5b(N(2)),T)
 25419	    Etst(Testfunc6a(N(3)),N(2))
 25420	    Etst(Testfunc6b(N(3)),N(2))
 25421	    Etst(Testfunc7a(N(2)),N(5))
 25422	    Etst(Testfunc7b(N(2)),N(5))
 25423	    Etst(Testfunc8a(N(2),N(3)),N(5))
 25424	    Etst(Testfunc8b(N(2),N(3)),N(5))
 25425	
 25426	/*
 25427	---------------------------------------------
 25428	Test of verification and macro expansion
 25429	---------------------------------------------
 25430	*/
 25431	
 25432	    ttst(untag(basediagnose))
 25433	    test(ROOT(basediagnoseb)==TAG_MAP);
 25434	    test(ROOT(HEAD(basediagnoseb))==MTAG_CLOSURE);
 25435	    ttst(untag(basediagnoseb))
 25436	    test(ROOT(basediagnoseb)==TAG_MAP);
 25437	    test(ROOT(HEAD(basediagnoseb))==MTAG_INDIR);
 25438	    etst(Eval(basemacro,T,basecache),M0)
 25439	    etst(map_apply(HEAD(Eval(basemacro,T,basecache)),basecache),
 25440	      baseexpansion)
 25441	    etst(Eval(basemacro,T,basecacheb),M0)
 25442	    etst(map_apply(HEAD(Eval(basemacro,T,basecacheb)),basecacheb),
 25443	      baseexpansion)
 25444	
 25445	/*
 25446	---------------------------------------------
 25447	Test of verification/expansion of check page
 25448	---------------------------------------------
 25449	*/
 25450	
 25451	    if(name2sym("check")!=T){
 25452	      DEFC(checkref       ,name2ref("check"));
 25453	      DEFC(checkcache     ,aget(state,checkref));
 25454	      DEFC(checkrack      ,aget(checkcache,checkref));
 25455	      DEFC(checkdiagnose  ,aget(checkrack,const_diagnose));
 25456	/*    DEFC(checkbody      ,aget(checkrack,const_body)); Unused */
 25457	      DEFC(checkexpansion ,aget(checkrack,const_expansion));
 25458	      DEFC(checkcodex     ,aget(checkrack,const_codex));
 25459	      DEFC(checkmacro     ,def2rhs(mget4(checkcodex,checkref,Z,Z,const_macro)));
 25460	
 25461	      DEFC(checkcacheb    ,Compile(checkcache));
 25462	      DEFC(checkrackb     ,aget(checkcacheb,checkref));
 25463	      DEFC(checkdiagnoseb ,aget(checkrackb,const_diagnose));
 25464	
 25465	      ttst(untag(checkdiagnose))
 25466	      test(ROOT(checkdiagnoseb)==TAG_MAP);
 25467	      test(ROOT(HEAD(checkdiagnoseb))==MTAG_CLOSURE);
 25468	      ttst(untag(checkdiagnoseb))
 25469	      test(ROOT(checkdiagnoseb)==TAG_MAP);
 25470	      test(ROOT(HEAD(checkdiagnoseb))==MTAG_INDIR);
 25471	
 25472	      etst(Eval(checkmacro,T,checkcache),M0)
 25473	      etst(map_apply(HEAD(Eval(checkmacro,T,checkcache)),checkcache),
 25474	        checkexpansion)
 25475	      etst(Eval(checkmacro,T,checkcacheb),M0)
 25476	      etst(map_apply(HEAD(Eval(checkmacro,T,checkcacheb)),checkcacheb),
 25477	        checkexpansion)
 25478	    }
 25479	
 25480	/*
 25481	---------------------------------------------
 25482	Test of verification of Peano page
 25483	---------------------------------------------
 25484	*/
 25485	
 25486	    if(name2sym("Peano")!=T){
 25487	      DEFC(Peanoref       ,name2ref("Peano"));
 25488	      DEFC(Peanocache     ,aget(state,Peanoref));
 25489	      DEFC(Peanorack      ,aget(Peanocache,Peanoref));
 25490	      DEFC(Peanodiagnose  ,aget(Peanorack,const_diagnose));
 25491	
 25492	      DEFC(Peanocacheb    ,Compile(Peanocache));
 25493	      DEFC(Peanorackb     ,aget(Peanocacheb,Peanoref));
 25494	      DEFC(Peanodiagnoseb ,aget(Peanorackb,const_diagnose));
 25495	
 25496	      ttst(untag(Peanodiagnose))
 25497	      test(ROOT(Peanodiagnoseb)==TAG_MAP);
 25498	      test(ROOT(HEAD(Peanodiagnoseb))==MTAG_CLOSURE);
 25499	      ttst(untag(Peanodiagnoseb))
 25500	      test(ROOT(Peanodiagnoseb)==TAG_MAP);
 25501	      test(ROOT(HEAD(Peanodiagnoseb))==MTAG_INDIR);
 25502	    }
 25503	
 25504	/*
 25505	---------------------------------------------
 25506	Test of verification of testsuite page
 25507	---------------------------------------------
 25508	*/
 25509	
 25510	    if(name2sym("test")!=T){
 25511	      DEFC(testref       ,name2ref("test"));
 25512	      DEFC(testcache     ,aget(state,testref));
 25513	      DEFC(testrack      ,aget(testcache,testref));
 25514	      DEFC(testdiagnose  ,aget(testrack,const_diagnose));
 25515	
 25516	      DEFC(testcacheb    ,Compile(testcache));
 25517	      DEFC(testrackb     ,aget(testcacheb,testref));
 25518	      DEFC(testdiagnoseb ,aget(testrackb,const_diagnose));
 25519	      ttst(untag(testdiagnose))
 25520	      test(ROOT(testdiagnoseb)==TAG_MAP);
 25521	      test(ROOT(HEAD(testdiagnoseb))==MTAG_CLOSURE);
 25522	      ttst(untag(testdiagnoseb))
 25523	      test(ROOT(testdiagnoseb)==TAG_MAP);
 25524	      test(ROOT(HEAD(testdiagnoseb))==MTAG_INDIR);
 25525	    }
 25526	
 25527	  }
 25528	
 25529	  printf("%s tests succeeded.\n",ptoa(testcnt));}
 25530	#endif /* FULL_TESTSUITE */
 25531	
 25532	
 25533	/*****************
 25534	 * MAIN FUNCTION *
 25535	 *****************/
 25536	
 25537	void usage(){
 25538	  printf("\n");
 25539	  printf("  Usage:\n");
 25540	  printf("\n");
 25541	  printf("  lgwam script FILE ARG1 ... ARGn\n");
 25542	  printf("    Load page and execute function mentioned in FILE\n");
 25543	  printf("  lgwam test\n");
 25544	  printf("    Execute basic built in testsuite\n");
 25545	  printf("  lgwam testrun FILE\n");
 25546	  printf("    Load page mentioned in FILE and execute extended testsuite\n");
 25547	  printf("  lgwam dry\n");
 25548	  printf("    Do dry run: initialize memory and exit\n");
 25549	  printf("  lgwam { -h | help | --help }\n");
 25550	  printf("    Print this message\n");
 25551	  printf("  lgwam { -v | version | --version }\n");
 25552	  printf("    Print version and license information\n");
 25553	  printf("  lgwam { pages | --pages }\n");
 25554	  printf("    List built in pages\n");
 25555	  printf("\n");
 25556	  exit(0);}
 25557	
 25558	#define _QUOTEME(x) #x
 25559	#define QUOTEME(x) _QUOTEME(x)
 25560	void version(){
 25561	  printf("\n");
 25562	  printf("  lgwam (LoGiWeb Abstract Machine) Version %s\n",QUOTEME(VERSION));
 25563	  printf("  Copyright (C) 2009-2010 Klaus Grue\n");
 25564	  printf("  Available under GNU GPL\n");
 25565	  printf("  lgwam comes with ABSOLUTELY NO WARRANTY\n");
 25566	  printf("\n");
 25567	  exit(0);}
 25568	
 25569	void listPages(){
 25570	  preload(TRUE);
 25571	  exit(0);}
 25572	
 25573	int main1(int argc,char *argv[],char *env[]){
 25574	  pnt i;
 25575	  int result=0;
 25576	  catchSigsegv();
 25577	  if(argc<=1) usage();
 25578	  test=STREQ(argv[1],"test")||STREQ(argv[1],"testrun");
 25579	  pntsize=findsize();
 25580	  halfsize=pntsize>>1;
 25581	  bytesize=pntsize>>3;
 25582	  if(8*bytesize!=pntsize){
 25583	    printf("Pointers have %s bits\n",ptoa(pntsize));
 25584	    printf("The number of bits is required to be a multiple of 8.\n");
 25585	    printf("Goodbye.\n");
 25586	    return 0;}
 25587	  if(bytesize<sizeof(Trigger)){
 25588	    printf("Cannot store function pointers in pointers\n");
 25589	    printf("Pointers have %s bytes\n",ptoa(bytesize));
 25590	    printf("Function pointers have %s bytes\n",ptoa((pnt)sizeof(Trigger)));
 25591	    return 0;}
 25592	  signmask=(pnt)(1)<<(pntsize-1);
 25593	  markmask=(pnt)(1)<<(pntsize-2);
 25594	  halfmask=((pnt)(1)<<halfsize)-1;
 25595	  septetmask=(pnt)(-1)<<(pntsize-7);
 25596	  heapinit();
 25597	  for(i=0;i<256;i++) SETQ(I[i],int2int(i));
 25598	  for(i=0;i<256;i++) SETQ(bytevect[i],keep(consvec(i+256,NIL)));
 25599	  SETQ(F,cons(TAG_FALSE,NIL,NIL));
 25600	  SETQ(X,raise0(T));
 25601	  SETQ(Z,I[0]);
 25602	  SETQ(M,int2int(-1));
 25603	  SETQ(E,consvec(1,0));
 25604	  SETQ(term_t,term_const(NIL));
 25605	  SETQ(term_f,term_lambda(term_t));
 25606	  SETQ(var_0,term_var(0));
 25607	  SETQ(var_1,term_var(1));
 25608	  SETQ(var_2,term_var(2));
 25609	  SETQ(varlist_1,pair(var_0,T));
 25610	  SETQ(varlist_2,pair(var_0,pair(var_1,T)));
 25611	  SETQ(varlist_3,pair(var_0,pair(var_1,pair(var_2,T))));
 25612	  SETQ(term_fix,term_apply(var_1,var_0));
 25613	  SETQ(map_fix,cons(MTAG_FIX,NIL,NIL));
 25614	  SETQ(V0,cons2(ETAG_var,0,T));
 25615	  SETQ(V1,cons2(ETAG_var,1,T));
 25616	  SETQ(V2,cons2(ETAG_var,2,T));
 25617	  SETQ(V3,cons2(ETAG_var,3,T));
 25618	  SETQ(term_delay,term_apply(var_0,var_1));
 25619	  SETQ(map_t,term2rnf(term_t,NIL));
 25620	  SETQ(map_f,term2rnf(term_f,NIL));
 25621	  SETQ(maptag_int,map_pair(T,small2rnf(1)));
 25622	  SETQ(maptag_pair,map_pair(T,small2rnf(2)));
 25623	  SETQ(maptag_ex,map_pair(T,small2rnf(3)));
 25624	  SETQ(maptag_map,map_pair(T,small2rnf(4)));
 25625	  SETQ(fct_lambda,Z);
 25626	  SETQ(fct_apply,mapcons2(CTAG_APPLY,term2fct(2,term_apply(var_1,var_0))));
 25627	  SETQ(fct_if,
 25628	    mapcons2(CTAG_IF,term2fct(3,term_apply(term_pair(var_1,var_0),var_2))));
 25629	  SETQ(fct_true,mapcons2(CTAG_TRUE,NIL));
 25630	  SETQ(fct_quote,I[1]);
 25631	  const_bib=          vec2int(V(bibliography));
 25632	  const_dict=         vec2int(V(dictionary));
 25633	  const_body=         vec2int(V(body));
 25634	  const_vector=       vec2int(V(vector));
 25635	  const_expansion=    vec2int(V(expansion));
 25636	  const_diagnose=     vec2int(V(diagnose));
 25637	  const_cache=        vec2int(V(cluster)); 
 25638	  const_code=         vec2int(V(code));  
 25639	  const_codex=        vec2int(V(codex)); 
 25640	  const_definition=   vec2int(V(definition));
 25641	  const_name=         vec2int(V(name));
 25642	  const_value=        vec2int(V(value));
 25643	  const_unpack=       vec2int(V(unpack));
 25644	  const_macro=        vec2int(V(macro));
 25645	  const_claim=        vec2int(V(claim));
 25646	  const_render=       vec2int(V(render));
 25647	  const_execute=      vec2int(V(execute));
 25648	  const_executables=  vec2int(V(executables));
 25649	  const_lambda=       vec2int(V(lambda));
 25650	  const_apply=        vec2int(V(apply));
 25651	  const_if=           vec2int(V(if));
 25652	  const_true=         vec2int(V(true));
 25653	  const_quote=        vec2int(V(quote));
 25654	  const_spy=          V(spy);
 25655	  const_trace=        V(trace);
 25656	  const_print=        V(print);
 25657	  const_timer=        V(timer);
 25658	  const_quit=         V(quit);
 25659	  const_write=        V(write);
 25660	  const_exec=         V(exec);
 25661	  const_read=         V(read);
 25662	  const_extend=       V(extend);
 25663	  sym_exec=           SYM(exec);
 25664	  sym_extend=         SYM(extend);
 25665	  sym_boot=           SYM(boot);
 25666	  sym_read=           SYM(read);
 25667	  tree_introduce=     TREE(introduce);
 25668	  tree_define=        TREE(define);
 25669	  tree_exit=          TREE(exit);
 25670	  tree_time=          TREE(time);
 25671	  tree_memory=        TREE(memory);
 25672	  state=T;
 25673	  init_names();
 25674	  catchSigint();
 25675	  if(STREQ(argv[1],"-v")) version(); else
 25676	  if(STREQ(argv[1],"version")) version(); else
 25677	  if(STREQ(argv[1],"--version")) version(); else
 25678	  if(STREQ(argv[1],"pages")) listPages(); else
 25679	  if(STREQ(argv[1],"--pages")) listPages(); else
 25680	  if(STREQ(argv[1],"script")) {} else
 25681	  if(STREQ(argv[1],"testrun")) {} else
 25682	  if(STREQ(argv[1],"test")) {} else
 25683	  if(STREQ(argv[1],"dry")) {} else
 25684	  usage();
 25685	  if(STREQ(argv[1],"script")||STREQ(argv[1],"testrun"))
 25686	  result=runscript(argc,argv,env);
 25687	  else if(test) testsuite();
 25688	  deathReport();
 25689	  if(STACKSIZE-sp) printf("Warning. Stack residue: %s\n",ptoa(STACKSIZE-sp));
 25690	  return result;}
 25691	
 25692	#ifndef __CYGWIN__
 25693	int main(int argc,char **argv,char **env){return main1(argc,argv,env);}
 25694	#else
 25695	void catch(int error,char *msg){
 25696	  if(error==0) return;
 25697	  printf("%s: %s\n",msg,strerror(error));
 25698	  exit(1);}
 25699	
 25700	int global_argc;
 25701	char **global_argv;
 25702	char **global_env;
 25703	int global_result;
 25704	
 25705	void *main0(void *ignored){
 25706	  global_result=main1(global_argc,global_argv,global_env);
 25707	  return NULL;}
 25708	
 25709	int main(int argc,char **argv,char **env){
 25710	  pthread_t thread;
 25711	  pthread_attr_t attr;
 25712	  void *ignored;
 25713	  size_t stacksize=200100100;
 25714	  global_argc=argc;
 25715	  global_argv=argv;
 25716	  global_env=env;
 25717	  catch(pthread_attr_init(&attr),"pthread_attr_init");
 25718	  catch(pthread_attr_setstacksize(&attr,stacksize),"pthread_attr_setstacksize");
 25719	  catch(pthread_create(&thread,&attr,&main0,NULL),"pthread_create");
 25720	  catch(pthread_join(thread,&ignored),"pthread_join");
 25721	  return global_result;}
 25722	#endif /* __CYGWIN__ */