diff --git a/internal/COMPTEST b/internal/COMPTEST
deleted file mode 100644
index 8851fce6..00000000
--- a/internal/COMPTEST
+++ /dev/null
@@ -1,2842 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "15-Jun-90 13:37:15" {DSK}<usr>local>lde>lispcore>internal>library>COMPTEST.;2 91945  
-
-      changes to%:  (VARS COMPTESTCOMS)
-
-      previous date%: "17-Jun-88 18:52:58" {DSK}<usr>local>lde>lispcore>internal>library>COMPTEST.;1
-)
-
-
-(* ; "
-Copyright (c) 1984, 1985, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.
-")
-
-(PRETTYCOMPRINT COMPTESTCOMS)
-
-(RPAQQ COMPTESTCOMS
-       [(FNS MAKEFORM TESTER TEST1 TRY FAILTEST TESTVALS TESTIFSAME TESTPAIRS EVALVARS TRYTEST)
-        (ADDVARS (TESTS TESTVAR TESTTYPE TESTRET TESTOP TESTNUM TESTMORE TESTMISC TESTMAP TESTLINK 
-                        TESTJUMP TESTFNX TESTFN TESTEDIT TESTCONS TESTCAR TESTCALL TESTC2 TESTC 
-                        TESTBIND TESTAT TEST3))
-        (COMS (FNS IVAR PVAR VARSWAP VARSWAP2 VARSWAP3 VARSWAP4 IVAR3 IVARX FVAR)
-              (VARS TESTVAR)
-              (FNS .GETPROPLST)
-              (FNS .LISTP .NLISTP .LITATOM .FLOATP .FIXP .NUMBERP .SMALLP .STACKP .ARRAYP .NLITATOM 
-                   .NFLOATP .NNUMBERP .NFIXP .NSMALLP .NARRAYP .NSTACKP .NZEROP .ZEROP .STRINGP 
-                   .NSTRINGP .IGREATERP .NIGREATERP .ILESSP .NILESSP .ATOM .NATOM .EQ .NEQ .NULL 
-                   .NNULL .IEQP .NIEQP .ORLISTP .ANDLISTP .ORATOM .ANDATOM .ORZEROP .ORNULL .ORARRAYP
-                   .ANDARRAYP .ANDNLISTP .ANDNATOM .ORFLOATP .ANDFLOATP)
-              (VARS TESTTYPE)
-              (FNS .CONDRET .CONDRET2 TESTRESUME GETLEAVES)
-              (VARS TESTRET)
-              (FNS .TESTARG .SET .EVALV1 .EVALV2 .SUM .FIX .LIST .NLSETQ .EQUAL .SETX)
-              (VARS TESTOP)
-              (FNS .ITIMES .IPLUS .IQUOTIENT .IREMAINDER .ADD1 .SUB1 .LLSH .LRSH .LSH .RSH .LOGAND 
-                   .LOGOR .LOGXOR .IDIFFERENCE .NT1 .NT2 .NT3)
-              (VARS TESTNUM)
-              (FNS .NCONC ..NCONC .AND .FRPLNODE .OR .FRPLNODE2 ..NCONC3 .NCONC3 SELECTTEST .MKLIST 
-                   .EQMEMB .NCONC1 .GETPROPLIST .SETPROPLIST .FGETD ..FRPLNODE2 !AND !OR)
-              (VARS TESTMORE)
-              (FNS !ADD1VAR !APPEND APPEND2 !ASSOC !ATTACH !CHANGEPROP !COPY !DEFLIST !DREMOVE 
-                   !DREVERSE DREV !DSUBST !EVERY !GETP !INTERSECTION !LAST !LASTN !LDIFF !LENGTH 
-                   !LISTGET !LSUBST !MAP !GET !GETLIS !MEMB !NTH .COLLCT .ENDCOLLCT MYAPPEND1 
-                   MYAPPEND2 COLLCT ENDCOLLCT .ATTACH .APPEND0 .APPEND1 .APPEND2 .APPEND3 .APPEND4 
-                   .MAPCGETP)
-              (VARS TESTMISC)
-              (FNS .MAP .MAPC .MAPCEFF)
-              (VARS TESTMAP)
-              (FNS .FPLUS .FTIMES .FDIFFERENCE .FQUOTIENT)
-              (VARS TESTLINK)
-              (FNS NONLOCALGO CNTDWN JUMPAROUND)
-              (VARS TESTJUMP)
-              (FNS FN2 FN3 FN1 .IVAR)
-              (VARS TESTFNX)
-              (FNS .GETP .GETPROP .RPLACA .RPLACD .FRPLACA .GET .FRPLACD .ASSOC .LENGTH .LAST 
-                   .GETHASH .FMEMB)
-              (VARS TESTFN)
-              (VARS TESTEDIT)
-              (FNS .CONS LIST0 LIST1 LIST2 LIST3 LIST4 LIST5 LIST6 LIST7 LIST8 LIST9 LIST10 LIST11 
-                   LIST12 LIST13)
-              (VARS TESTCONS)
-              (FNS .CAR .CDR .CAAR .CDAR .CADR .CDDR .CAAAAR)
-              (VARS TESTCAR)
-              (FNS .LAM0 ..LAM0 .LAM1 ..LAM1 .NLAML LAM1LOC)
-              (VARS TESTCALL)
-              (FNS .PROGS .SPEC .COND .DELBIND)
-              (VARS TESTC2)
-              (FNS T1 T0 TT TNIL T-1 T2 T12 T377 T400Q T-400 TSTR .NILARGS)
-              (VARS TESTC)
-              (FNS .BIND0 .BIND1 .BIND2 .BIND3 .BIND4 .BINDASSOC .BIND5 .BINDPOP)
-              (VARS TESTBIND)
-              (VARS TESTAT)
-              (FNS LAM0 LAM1 LAMA NLAML NLAMA)
-              (FNS .SELECTQ .SUBFNS .MISC .FORTEST .BIGCOND .RECORDTEST .PROGRETURN .ALWAYSFALSE 
-                   .ALWAYSTRUE .EQ1 .EQ2 .EQ3)
-              (VARS TEST3))
-        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
-               (ADDVARS (NLAMA NLAMA TESTIFSAME TESTVALS)
-                      (NLAML NLAML !ADD1VAR .NLSETQ TESTPAIRS)
-                      (LAMA LAMA !APPEND .LIST .SUM .TESTARG])
-(DEFINEQ
-
-(MAKEFORM
-  [LAMBDA (FORM)                                         (* ; "Edited  8-Apr-88 12:52 by amd")
-    (SUBST FORM 'FORM '(LIST 1 FORM (COND
-                                       (FORM 2)
-                                       ((NOT FORM)
-                                        3)
-                                       (T 4))
-                             (OR FORM 5)
-                             (AND FORM 6)
-                             (PROGN FORM 7])
-
-(TESTER
-  [LAMBDA (TESTLST)                                      (* ; "Edited  8-Apr-88 16:20 by amd")
-    (HANDLER-BIND [(CL:ERROR #'(LAMBDA (C)
-                                 (LET [(RESTART (CONDITIONS:FIND-RESTART 'COMPTEST-FAIL]
-                                      (IF (NULL RESTART)
-                                          THEN (HELP "Error signalled while not below TRY")
-                                        ELSE (CONDITIONS:INVOKE-RESTART RESTART C]
-           (TEST1 TESTLST])
-
-(TEST1
-  [LAMBDA (TESTLST)                                      (* ; "Edited  8-Apr-88 12:53 by amd")
-    (COND
-       ((NULL TESTLST)
-        (MAPC TESTS 'TEST1))
-       ((LITATOM TESTLST)
-        (PRINT TESTLST T)
-        (TEST1 (EVALV TESTLST)))
-       (T (MAPC TESTLST 'EVAL])
-
-(TRY
-  [LAMBDA (FORM)                                         (* ; "Edited  8-Apr-88 16:19 by amd")
-    (CONDITIONS:RESTART-CASE (EVAL FORM)
-           (COMPTEST-FAIL (CONDITION)
-                  (LIST :ERROR (CL:PRINC-TO-STRING CONDITION])
-
-(FAILTEST
-  [LAMBDA NIL
-    (PRIN2 TEST T T)
-    (PRIN1 " failed.
-" T])
-
-(TESTVALS
-  [NLAMBDA L                                             (* ; "Edited 17-Jun-88 18:50 by amd")
-    (PROG ((A 'A.TOP)
-           (B 'B.TOP)
-           (C 'C.TOP)
-           (D 'D.TOP)
-           (E 'E.TOP)
-           (F 'F.TOP)
-           (G 'G.TOP)
-           (H 'H.TOP)
-           (I 'I.TOP))
-          (MAP L [FUNCTION (LAMBDA (X)
-                             (OR (AND [CL:EQUALP [SETQ V1 (TRY (SETQ TEST (CAR X]
-                                             (SETQ V2 (TRY (CADR X]
-                                      (EQ (TYPENAME V1)
-                                          (TYPENAME V2)))
-                                 (FAILTEST]
-               (FUNCTION CDDR])
-
-(TESTIFSAME
-  [NLAMBDA FNVALS                                        (* ; "Edited  8-Apr-88 12:53 by amd")
-    (MAPC FNVALS (FUNCTION (LAMBDA (L V1 V2)
-                             (OR (AND [EQUAL [SETQ V1 (TRY (SETQ TEST (CONS (CAR L)
-                                                                            (CDDR L]
-                                             (SETQ V2 (TRY (CDR L]
-                                      (EQ (TYPENAME V1)
-                                          (TYPENAME V2)))
-                                 (FAILTEST])
-
-(TESTPAIRS
-  [NLAMBDA (FNL VALLST)                                  (* ; "Edited  8-Apr-88 12:53 by amd")
-    (MAPC FNL (FUNCTION (LAMBDA (FNPR)
-                          (MAP VALLST
-                               (FUNCTION (LAMBDA (VLST)
-                                           (MAPC
-                                            VLST
-                                            (FUNCTION (LAMBDA (VLST2)
-                                                        (OR
-                                                         (AND [EQUAL [SETQ V1
-                                                                      (TRY (SETQ TEST
-                                                                            (LIST (CAR FNPR)
-                                                                                  (CAR VLST)
-                                                                                  VLST2]
-                                                                     (SETQ V2
-                                                                      (TRY (CONS (CDR FNPR)
-                                                                                 (CDR TEST]
-                                                              (EQ (TYPENAME V1)
-                                                                  (TYPENAME V2)))
-                                                         (FAILTEST])
-
-(EVALVARS
-  [LAMBDA NIL                                            (* ; "Edited  8-Apr-88 12:54 by amd")
-                                                             (* ; "lmm: 22-JUN-76 0 56")
-    (MAPCAR '(A B C D E F G H) (FUNCTION EVALV])
-
-(TRYTEST
-  [LAMBDA (FORM1 FORM2)                                  (* ; "Edited  8-Apr-88 12:54 by amd")
-                                                             (* ; "lmm: 24-JUN-76 4 41")
-    (OR (EQUAL (TRY (SETQ TEST FORM1))
-               (TRY FORM2))
-        (FAILTEST])
-)
-
-(ADDTOVAR TESTS TESTVAR TESTTYPE TESTRET TESTOP TESTNUM TESTMORE TESTMISC TESTMAP TESTLINK 
-                          TESTJUMP TESTFNX TESTFN TESTEDIT TESTCONS TESTCAR TESTCALL TESTC2 TESTC 
-                          TESTBIND TESTAT TEST3)
-(DEFINEQ
-
-(IVAR
-  [LAMBDA (A B C D E F G H I J K L M N O)
-    (DECLARE (SPECVARS))
-    (DECLARE (LOCALVARS . T))
-    (LIST A B C D E F G H I J K L M N O])
-
-(PVAR
-  [LAMBDA (A B C D E F G H I J K L M N O)                (* ; "Edited  8-Apr-88 12:54 by amd")
-                                                             (* ; "lmm: 19-JUN-76 0 14")
-    (PROG (X Y Z)
-          (DECLARE (LOCALVARS . T))
-          (RETURN (LIST A B C D E F G H I J K L M N O])
-
-(VARSWAP
-  [LAMBDA (X Y Z W)                                      (* ; "Edited  8-Apr-88 12:54 by amd")
-                                                             (* ; "lmm: 19-JUN-76 1 18")
-    (DECLARE (LOCALVARS . T))
-    (SETQ X Y)
-    (SETQ Y Z)
-    (SETQ Z W)
-    (SETQ W 0)
-    (LIST X Y Z W])
-
-(VARSWAP2
-  [LAMBDA (X Y Z W)                                      (* ; "Edited  8-Apr-88 12:55 by amd")
-                                                             (* ; "lmm: 19-JUN-76 1 31")
-    (PROG NIL
-          (DECLARE (LOCALVARS . T))
-          (SETQ X Y)
-          (SETQ Y Z)
-          (SETQ Z W)
-          (SETQ W 0)
-          (RETURN (LIST X Y Z W])
-
-(VARSWAP3
-  [LAMBDA NIL                                            (* ; "Edited  8-Apr-88 12:55 by amd")
-                                                             (* ; "lmm: 19-JUN-76 1 34")
-    (PROG NIL
-          (SETQ X Y)
-          (SETQ Y Z)
-          (SETQ Z W)
-          (SETQ W 0)
-          (RETURN (LIST X Y Z W])
-
-(VARSWAP4
-  [LAMBDA NIL                                            (* ; "Edited  8-Apr-88 12:55 by amd")
-                                                             (* ; "lmm: 19-JUN-76 1 45")
-    (SETQ X Y)
-    (SETQ Y Z)
-    (SETQ Z W)
-    (SETQ W 0)
-    (LIST X Y Z W])
-
-(IVAR3
-  [LAMBDA (A B C D E F G H I J K L M N O)                (* ; "Edited  8-Apr-88 12:55 by amd")
-                                                             (* ; "lmm: 19-JUN-76 3 24")
-    (DECLARE (SPECVARS))
-    (DECLARE (LOCALVARS . T))
-    (PROG (Z W)
-          (RETURN (PROG (X Y)
-                        (RETURN (LIST A B C D E F G H I J K L M N O])
-
-(IVARX
-  [LAMBDA (A B C)                                        (* ; "Edited  8-Apr-88 12:55 by amd")
-                                                             (* ; "lmm: 24-JUN-76 9 1")
-    (DECLARE (LOCALVARS . T))
-    (PROG ((D (CONS 1 A))
-           (E (CONS 2 B))
-           (F (CONS 3 C)))
-          (RETURN (PROG ((H (CONS 4 D))
-                         (I (CONS 5 E))
-                         (J (CONS 6 F)))
-                        (RETURN (LIST A B C D E F H I J])
-
-(FVAR
-  [LAMBDA NIL                                            (* ; "Edited  8-Apr-88 12:55 by amd")
-                                                             (* ; "lmm: 24-JUN-76 13 28")
-    (CONS F1 F2])
-)
-
-(RPAQQ TESTVAR
-       [(TESTVALS (IVAR 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
-               '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
-               (PVAR 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
-               '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
-               (IVAR3 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
-               '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
-               (VARSWAP 1 2 3 4)
-               '(2 3 4 0)
-               (VARSWAP2 1 2 3 4)
-               '(2 3 4 0)
-               (PROG ((X 1)
-                      (Y 2)
-                      (Z 3)
-                      (W 4))
-                     (RETURN (VARSWAP3)))
-               '(2 3 4 0)
-               (PROG ((X 1)
-                      (Y 2)
-                      (Z 3)
-                      (W 4))
-                     (RETURN (VARSWAP4)))
-               '(2 3 4 0)
-               (IVARX -3 -2 -1)
-               '(-3 -2 -1 (1 . -3)
-                    (2 . -2)
-                    (3 . -1)
-                    (4 1 . -3)
-                    (5 2 . -2)
-                    (6 3 . -1])
-(DEFINEQ
-
-(.GETPROPLST
-  [LAMBDA (X Y Z)
-    (LIST 1 (GETPROPLIST X)
-          (PROG1 3 (GETPROPLIST X])
-)
-(DEFINEQ
-
-(.LISTP
-  [LAMBDA (X)
-    (LISTP X])
-
-(.NLISTP
-  [LAMBDA (X)
-    (NLISTP X])
-
-(.LITATOM
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:56 by amd")
-                                                             (* ; "lmm: 18-JUN-76 14 59")
-    (LITATOM X])
-
-(.FLOATP
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:56 by amd")
-                                                             (* ; "lmm: 18-JUN-76 14 59")
-    (FLOATP X])
-
-(.FIXP
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:56 by amd")
-                                                             (* ; "lmm: 18-JUN-76 14 59")
-    (FIXP X])
-
-(.NUMBERP
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:56 by amd")
-                                                             (* ; "lmm: 18-JUN-76 15 1")
-    (NUMBERP X])
-
-(.SMALLP
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:56 by amd")
-                                                             (* ; "lmm: 18-JUN-76 15 7")
-    (SMALLP X])
-
-(.STACKP
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:57 by amd")
-                                                             (* ; "lmm: 18-JUN-76 15 11")
-    (STACKP X])
-
-(.ARRAYP
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:57 by amd")
-                                                             (* ; "lmm: 18-JUN-76 15 11")
-    (ARRAYP X])
-
-(.NLITATOM
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:57 by amd")
-                                                             (* ; "lmm: 18-JUN-76 15 25")
-    (NOT (LITATOM X])
-
-(.NFLOATP
-  [LAMBDA (X)
-    (NOT (FLOATP X])
-
-(.NNUMBERP
-  [LAMBDA (X)
-    (NOT (NUMBERP X])
-
-(.NFIXP
-  [LAMBDA (X)
-    (NOT (FIXP X])
-
-(.NSMALLP
-  [LAMBDA (X)
-    (NOT (SMALLP X])
-
-(.NARRAYP
-  [LAMBDA (X)
-    (NOT (ARRAYP X])
-
-(.NSTACKP
-  [LAMBDA (X)
-    (NOT (STACKP X])
-
-(.NZEROP
-  [LAMBDA (X)
-    (NOT (ZEROP X])
-
-(.ZEROP
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 12:58 by amd")
-                                                             (* ; "lmm: 18-JUN-76 15 28")
-    (ZEROP X])
-
-(.STRINGP
-  [LAMBDA (X)
-    (STRINGP X])
-
-(.NSTRINGP
-  [LAMBDA (X)
-    (NOT (STRINGP X])
-
-(.IGREATERP
-  [LAMBDA (X Y)
-    (IGREATERP X Y])
-
-(.NIGREATERP
-  [LAMBDA (X Y)
-    (NOT (IGREATERP X Y])
-
-(.ILESSP
-  [LAMBDA (X Y)
-    (ILESSP X Y])
-
-(.NILESSP
-  [LAMBDA (X Y)
-    (NOT (ILESSP X Y])
-
-(.ATOM
-  [LAMBDA (X)
-    (ATOM X])
-
-(.NATOM
-  [LAMBDA (X)
-    (NOT (ATOM X])
-
-(.EQ
-  [LAMBDA (X Y)
-    (EQ X Y])
-
-(.NEQ
-  [LAMBDA (X Y)
-    (NEQ X Y])
-
-(.NULL
-  [LAMBDA (X)
-    (NULL X])
-
-(.NNULL
-  [LAMBDA (X)
-    (COND
-       ((NULL X)
-        NIL)
-       (T T])
-
-(.IEQP
-  [LAMBDA (X Y)
-    (IEQP X Y])
-
-(.NIEQP
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 12:59 by amd")
-                                                             (* ; "lmm: 19-JUN-76 3 14")
-    (NOT (IEQP X Y])
-
-(.ORLISTP
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 12:59 by amd")
-                                                             (* ; "lmm: 24-JUN-76 4 45")
-    (OR (LISTP X)
-        Y])
-
-(.ANDLISTP
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 12:59 by amd")
-                                                             (* ; "lmm: 24-JUN-76 4 45")
-    (AND (LISTP X)
-         Y])
-
-(.ORATOM
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:00 by amd")
-                                                             (* ; "lmm: 30-JUN-76 13 27")
-    (OR (ATOM X)
-        Y])
-
-(.ANDATOM
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:00 by amd")
-                                                             (* ; "lmm: 30-JUN-76 13 27")
-    (AND (ATOM X)
-         Y])
-
-(.ORZEROP
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:00 by amd")
-                                                             (* ; "lmm: 24-JUN-76 4 47")
-    (OR (EQ X 0)
-        Y])
-
-(.ORNULL
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:00 by amd")
-                                                             (* ; "lmm: 24-JUN-76 4 47")
-    (OR (NULL X)
-        Y])
-
-(.ORARRAYP
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:00 by amd")
-                                                             (* ; "lmm: 24-JUN-76 4 47")
-    (OR (ARRAYP X)
-        Y])
-
-(.ANDARRAYP
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:00 by amd")
-                                                             (* ; "lmm: 24-JUN-76 13 9")
-    (AND (ARRAYP X)
-         Y])
-
-(.ANDNLISTP
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:00 by amd")
-                                                             (* ; "lmm: 30-JUN-76 13 26")
-    (AND (NOT (LISTP X))
-         Y])
-
-(.ANDNATOM
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:00 by amd")
-                                                             (* ; "lmm: 30-JUN-76 13 28")
-    (AND (NOT (ATOM X))
-         Y])
-
-(.ORFLOATP
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:01 by amd")
-                                                             (* ; "lmm: 30-JUN-76 13 28")
-    (OR (FLOATP X)
-        Y])
-
-(.ANDFLOATP
-  [LAMBDA (Y X)                                          (* ; "Edited  8-Apr-88 13:01 by amd")
-                                                             (* ; "lmm: 30-JUN-76 13 28")
-    (AND (FLOATP X)
-         Y])
-)
-
-(RPAQQ TESTTYPE
-       [[MAPC '((.NLISTP .LISTP LISTP .ORLISTP .ANDLISTP)
-                (.NATOM .ATOM ATOM .ORATOM .ANDATOM .ANDNATOM)
-                (.NLITATOM .LITATOM LITATOM)
-                (.NFLOATP .FLOATP FLOATP .ORFLOATP .ANDFLOATP)
-                (.NNUMBERP .NUMBERP NUMBERP)
-                (.NFIXP .FIXP FIXP)
-                (.NSMALLP .SMALLP SMALLP)
-                (.NARRAYP .ARRAYP ARRAYP .ORARRAYP .ANDARRAYP)
-                (.NSTACKP .STACKP STACKP)
-                (.NZEROP .ZEROP ZEROP .ORZEROP)
-                (.NSTRINGP .STRINGP STRINGP)
-                (.NNULL .NULL NULL .ORNULL))
-              (FUNCTION (LAMBDA (L)
-                               (MAPC [CONS (LIST)
-                                           (CONS (LIST (ARRAY 2))
-                                                 (CONS (LIST (STKNTH 0 T))
-                                                       '((-1)
-                                                         (0)
-                                                         (1)
-                                                         (1.0)
-                                                         (100000)
-                                                         ('A)
-                                                         ('(A))
-                                                         ("foo")
-                                                         (NIL)
-                                                         (T]
-                                     (FUNCTION (LAMBDA (ARGL TX)
-                                                      (TRYTEST (CONS (CADR L)
-                                                                     ARGL)
-                                                             (SETQ TX (CONS (CADDR L)
-                                                                            ARGL)))
-                                                      (TRYTEST (CONS (CAR L)
-                                                                     ARGL)
-                                                             (LIST 'NOT TX))
-                                                      (AND (CADDDR L)
-                                                           (TRYTEST (CONS (CADDDR L)
-                                                                          (CONS 74 ARGL))
-                                                                  (LIST 'OR TX 74)))
-                                                      (AND (CAR (CDDDDR L))
-                                                           (TRYTEST (CONS (CAR (CDDDDR L))
-                                                                          (CONS 74 ARGL))
-                                                                  (LIST 'AND TX 74)))
-                                                      (AND (CADR (CDDDDR L))
-                                                           (TRYTEST (CONS (CADR (CDDDDR L))
-                                                                          (CONS 74 ARGL))
-                                                                  (LIST 'AND (LIST 'NOT TX)
-                                                                        74]
-        (MAPC '((.NIGREATERP .IGREATERP IGREATERP)
-                (.NILESSP .ILESSP ILESSP)
-                (.NIEQP .IEQP IEQP)
-                (.NEQ .EQ EQ))
-              (FUNCTION (LAMBDA (L)
-                               (MAPC '((1 -1)
-                                       (-1 1)
-                                       (100000 1)
-                                       (100.0 1)
-                                       (1 100.0)
-                                       (100.0 200.0)
-                                       (1 100000)
-                                       (300000 -300000)
-                                       (-300000 300000)
-                                       (100000 100000))
-                                     (FUNCTION (LAMBDA (ARGS)
-                                                      (TRYTEST (CONS (CADR L)
-                                                                     ARGS)
-                                                             (CONS (CADDR L)
-                                                                   ARGS))
-                                                      (TRYTEST (CONS (CAR L)
-                                                                     ARGS)
-                                                             (LIST 'NOT (CONS (CADDR L)
-                                                                              ARGS])
-(DEFINEQ
-
-(.CONDRET
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:01 by amd")
-    (PROG NIL
-          (COND
-             (X (RETURN (CONS)))
-             (T (RETURN 3])
-
-(.CONDRET2
-  [LAMBDA NIL                                            (* ; "Edited  8-Apr-88 13:01 by amd")
-    (PROG (X)
-          (COND
-             ((RETURN X)
-              T)
-             (T 3])
-
-(TESTRESUME
-  [LAMBDA (STRUCTURE)
-    (PROG (LEAF RESULT TESTPTR GETPTR)
-          (COROUTINE TESTPTR GETPTR (GETLEAVES STRUCTURE GETPTR TESTPTR))
-      LP  (COND
-             ((SETQ LEAF (RESUME TESTPTR GETPTR))
-              (SETQ RESULT (NCONC1 RESULT LEAF))
-              (GO LP))
-             (T (RETURN RESULT])
-
-(GETLEAVES
-  [LAMBDA (STRUC GETPTR TESTPTR)
-    (COND
-       ((LISTP STRUC)
-        (GETLEAVES (CAR STRUC)
-               GETPTR TESTPTR)
-        (GETLEAVES (CDR STRUC)
-               GETPTR TESTPTR))
-       (STRUC (RESUME GETPTR TESTPTR STRUC])
-)
-
-(RPAQQ TESTRET
-       [(TESTVALS (.CONDRET T)
-               '(NIL)
-               (.CONDRET)
-               3
-               (.CONDRET2 17)
-               NIL
-               [TESTRESUME '(1 (2 . 3)
-                               (4 . 5) . 6]
-               '(1 2 3 4 5 6])
-(DEFINEQ
-
-(.TESTARG
-  [LAMBDA N                                              (* ; "Edited  8-Apr-88 13:01 by amd")
-                                                             (* ; "lmm: 22-JUN-76 22 59")
-    (LIST N (ARG N 1)
-          (ARG N 2])
-
-(.SET
-  [LAMBDA (VAR VAL)                                      (* ; "Edited  8-Apr-88 13:02 by amd")
-    (LIST 1 (SET VAR VAL)
-          3])
-
-(.EVALV1
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:02 by amd")
-                                                             (* ; "lmm: 22-JUN-76 23 4")
-    (EVALV X])
-
-(.EVALV2
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:02 by amd")
-                                                             (* ; "lmm: 22-JUN-76 23 5")
-    (EVALV X Y])
-
-(.SUM
-  [LAMBDA N                                              (* ; "Edited  8-Apr-88 13:02 by amd")
-                                                             (* ; "lmm: 24-JUN-76 14 59")
-    (PROG ((I N)
-           (V 0))
-      LP  (COND
-             ((ZEROP I)
-              (RETURN V))
-             (T (SETQ V (IPLUS V (ARG N I)))
-                (SETQ I (SUB1 I))
-                (GO LP])
-
-(.FIX
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:02 by amd")
-                                                             (* ; "lmm: 25-JUN-76 6 20")
-    (FIX X])
-
-(.LIST
-  [LAMBDA L                                              (* ; "Edited  8-Apr-88 13:02 by amd")
-                                                             (* ; "lmm: 30-JUN-76 14 50")
-    (AND (NOT (ZEROP L))
-         (PROG ((I L)
-                V)
-           LP  (COND
-                  ((EQ I 1)
-                   (RETURN (CONS (ARG L 1)
-                                 V)))
-                  (T (SETQ V (CONS (ARG L I)
-                                   V))
-                     (SETQ I (SUB1 I))
-                     (GO LP])
-
-(.NLSETQ
-  [NLAMBDA (FORM)                                        (* ; "Edited  8-Apr-88 13:03 by amd")
-                                                             (* ; "lmm: 1-JUL-76 10 44")
-    (NLSETQ (EVAL FORM])
-
-(.EQUAL
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:03 by amd")
-    (LIST 1 (EQUAL X Y)
-          3])
-
-(.SETX
-  [LAMBDA (X Y Z)
-    (DECLARE (LOCALVARS . T))                        (* ; "Edited  8-Apr-88 13:03 by amd")
-    (PROG (K L M)
-          (COND
-             (X (SETQ K -1))
-             (T (SETQ K 3)))
-          (COND
-             (Y (SETQ L -4))
-             (T (SETQ L 4)))
-          (COND
-             (Z (SETQ M -2))
-             (T (SETQ M 2)))
-          (RETURN (LIST K L M])
-)
-
-(RPAQQ TESTOP
-       [(SETTOPVAL 'A 'A.TOPLEVEL)
-        (TESTVALS (.TESTARG 10 4 12 'A 'B)
-               '(5 10 4)
-               (PROG (FOO)
-                     (RETURN (LIST (.SET 'FOO 300)
-                                   FOO)))
-               '((1 300 3)
-                 300)
-               (.EVALV1 'A)
-               'A.TOP
-               (.EVALV2 'A)
-               'A.TOP
-               (.EVALV2 'A T)
-               'A.TOPLEVEL
-               (.SUM 34 -34)
-               0
-               (.SUM 10 9 8 -8 -9 -10)
-               0
-               (.FIX (SETQ TESTATOM 100000))
-               TESTATOM
-               (.FIX 1.3)
-               1
-               (.NLSETQ (ERROR!))
-               NIL
-               (.NLSETQ 'FOO)
-               '(FOO)
-               (.LIST)
-               NIL
-               (.LIST 1)
-               '(1)
-               (.LIST 1 2 3 4 5)
-               '(1 2 3 4 5)
-               (.EQUAL '((A)
-                         "B" 4.0 "CDEFG")
-                      '((A)
-                        "B" 4 "CDEFG"))
-               '(1 T 3)
-               [.EQUAL '(("ABCDEFG" "IJ"))
-                      '(("ABCDEGF" "IJ"]
-               '(1 NIL 3)
-               (.SETX T T T)
-               '(-1 -4 -2)
-               (.SETX)
-               '(3 4 2])
-(DEFINEQ
-
-(.ITIMES
-  [LAMBDA (X Y)
-    (ITIMES X Y])
-
-(.IPLUS
-  [LAMBDA (X Y)
-    (IPLUS X Y])
-
-(.IQUOTIENT
-  [LAMBDA (X Y)
-    (IQUOTIENT X Y])
-
-(.IREMAINDER
-  [LAMBDA (X Y)
-    (IREMAINDER X Y])
-
-(.ADD1
-  [LAMBDA (X)
-    (ADD1 X])
-
-(.SUB1
-  [LAMBDA (X)
-    (SUB1 X])
-
-(.LLSH
-  [LAMBDA (X Y)
-    (LLSH X Y])
-
-(.LRSH
-  [LAMBDA (X Y)
-    (LRSH X Y])
-
-(.LSH
-  [LAMBDA (X Y)
-    (LSH X Y])
-
-(.RSH
-  [LAMBDA (X Y)
-    (RSH X Y])
-
-(.LOGAND
-  [LAMBDA (X Y)
-    (LOGAND X Y])
-
-(.LOGOR
-  [LAMBDA (X Y)
-    (LOGOR X Y])
-
-(.LOGXOR
-  [LAMBDA (X Y)
-    (LOGXOR X Y])
-
-(.IDIFFERENCE
-  [LAMBDA (X Y)
-    (IDIFFERENCE X Y])
-
-(.NT1
-  [LAMBDA (X Y Z)
-    (FTIMES (DIFFERENCE X Y)
-           Z])
-
-(.NT2
-  [LAMBDA (X Y Z)
-    (FTIMES (QUOTIENT X Y)
-           Z])
-
-(.NT3
-  [LAMBDA (X Y Z)
-    (FGREATERP (COND
-                  (X Y)
-                  (Z))
-           0])
-)
-
-(RPAQQ TESTNUM
-       ((TESTVALS (.NT1 1 2 3)
-               -3.0
-               (.NT2 1 2 3)
-               0.0
-               (.NT2 1.0 2 3)
-               1.5
-               (.NT3 T 3 4)
-               T
-               (.NT3 NIL 3 -4)
-               NIL)
-        (TESTPAIRS ((.LLSH . LLSH)
-                    (.LRSH . LRSH)
-                    (.LSH . LSH)
-                    (.RSH . RSH))
-               (0 3 -3 31 32 1 -1 0 -31 -32 NIL))
-        (TESTPAIRS ((.ITIMES . ITIMES)
-                    (.IPLUS . IPLUS)
-                    (.IQUOTIENT . IQUOTIENT)
-                    (.IREMAINDER . IREMAINDER)
-                    (.ADD1 . ADD1)
-                    (.SUB1 . SUB1)
-                    (.LOGAND . LOGAND)
-                    (.LOGOR . LOGOR)
-                    (.LOGXOR . LOGXOR))
-               (0 3 -3 2047 2048 -1 0 -1431655766 NIL))))
-(DEFINEQ
-
-(.NCONC
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:05 by amd")
-                                                             (* ; "lmm: 19-JUN-76 20 21")
-    (NCONC X Y])
-
-(..NCONC
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:05 by amd")
-                                                             (* ; "lmm: 19-JUN-76 20 46")
-    (PROG NIL
-          (NCONC X Y)
-          (RETURN X])
-
-(.AND
-  [LAMBDA (X Y Z W)                                      (* ; "Edited  8-Apr-88 13:05 by amd")
-                                                             (* ; "lmm: 19-JUN-76 20 54")
-    (AND (EVAL X)
-         (EVAL Y)
-         (EVAL Z)
-         (EVAL W])
-
-(.FRPLNODE
-  [LAMBDA (X A D)                                        (* ; "Edited  8-Apr-88 13:05 by amd")
-                                                             (* ; "lmm: 19-JUN-76 21 23")
-    (FRPLNODE X A D])
-
-(.OR
-  [LAMBDA (X Y Z W)                                      (* ; "Edited  8-Apr-88 13:05 by amd")
-                                                             (* ; "lmm: 19-JUN-76 21 28")
-    (OR (EVAL X)
-        (EVAL Y)
-        (EVAL Z)
-        (EVAL W])
-
-(.FRPLNODE2
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:06 by amd")
-                                                             (* ; "lmm: 19-JUN-76 21 47")
-    (FRPLNODE2 X Y])
-
-(..NCONC3
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:06 by amd")
-                                                             (* ; "lmm: 19-JUN-76 23 9")
-    (PROG NIL
-          (NCONC X Y Z)
-          (RETURN X])
-
-(.NCONC3
-  [LAMBDA (X Y Z W)                                      (* ; "Edited  8-Apr-88 13:06 by amd")
-                                                             (* ; "lmm: 19-JUN-76 22 54")
-    (NCONC X Y Z W])
-
-(SELECTTEST
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:06 by amd")
-                                                             (* ; "lmm: 19-JUN-76 22 16")
-    (SELECTQ X
-        (0 0)
-        (1 1)
-        (A 'A)
-        ((B C D) 
-             'C)
-        NIL])
-
-(.MKLIST
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:06 by amd")
-                                                             (* ; "lmm: 21-JUN-76 0 56")
-    (MKLIST X])
-
-(.EQMEMB
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:06 by amd")
-                                                             (* ; "lmm: 21-JUN-76 1 16")
-    (EQMEMB X Y])
-
-(.NCONC1
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:06 by amd")
-                                                             (* ; "lmm: 21-JUN-76 1 33")
-    (NCONC1 X Y])
-
-(.GETPROPLIST
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:07 by amd")
-                                                             (* ; "lmm: 21-JUN-76 2 48")
-    (GETPROPLIST X])
-
-(.SETPROPLIST
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:07 by amd")
-                                                             (* ; "lmm: 21-JUN-76 2 53")
-    (SETPROPLIST X Y])
-
-(.FGETD
-  [LAMBDA (X)
-    (FGETD X])
-
-(..FRPLNODE2
-  [LAMBDA (L M)                                          (* ; "Edited  8-Apr-88 13:07 by amd")
-    (FRPLNODE2 L M])
-
-(!AND
-  [LAMBDA (A B C)                                        (* ; "Edited  8-Apr-88 13:07 by amd")
-    (LIST (AND A B)
-          (COND
-             ((AND A B)
-              1)
-             (T 2))
-          (COND
-             ((NOT (AND A B))
-              3)
-             (T 4))
-          (AND (AND A B)
-               5)
-          (OR (AND A B)
-              6)
-          (PROG1 7 (AND A B (SETQ C 9)))
-          C])
-
-(!OR
-  [LAMBDA (A B C)                                        (* ; "Edited  8-Apr-88 13:07 by amd")
-    (LIST (OR A B)
-          (COND
-             ((OR A B)
-              1)
-             (T 2))
-          (COND
-             ((NOT (OR A B))
-              3)
-             (T 4))
-          (OR (OR A B)
-              5)
-          (OR (OR A B)
-              6)
-          (PROG1 7 (OR A B (SETQ C 9)))
-          C])
-)
-
-(RPAQQ TESTMORE
-       [(SETPROPLIST 'TESTATOM '(A D))
-        [TESTVALS (.NCONC (LIST 1 2 3)
-                         (LIST 4 5 6))
-               '(1 2 3 4 5 6)
-               (.NCONC NIL 'A)
-               'A
-               (CDR NIL)
-               NIL
-               (..NCONC (LIST 1 2 3)
-                      (LIST 4 5 6))
-               '(1 2 3 4 5 6)
-               (.AND T T T 3)
-               3
-               [.AND NIL '(PRINT '(.AND failed]
-               NIL
-               (.FRPLNODE (CONS)
-                      2 3)
-               '(2 . 3)
-               (.OR 1 2 3)
-               1
-               (.FRPLNODE2 (CONS 'A 'B)
-                      (CONS 'C 'D))
-               '(C . D)
-               (..FRPLNODE2 (CONS 'A 'B)
-                      '(NIL))
-               '(NIL)
-               (.NCONC3 (LIST 1)
-                      (LIST 2)
-                      (LIST 3)
-                      (LIST 4))
-               '(1 2 3 4)
-               (..NCONC3 (LIST 1)
-                      (LIST 2)
-                      (LIST 3)
-                      (LIST 4))
-               '(1 2 3)
-               (LIST (SELECTTEST NIL)
-                     (SELECTTEST 1)
-                     (SELECTTEST 0)
-                     (SELECTTEST 'A)
-                     (SELECTTEST 'C))
-               '(NIL 1 0 A C)
-               (.MKLIST)
-               NIL
-               (.MKLIST 3)
-               '(3)
-               (.MKLIST '(3))
-               '(3)
-               (.EQMEMB 1 1)
-               T
-               (.EQMEMB 1 '(1))
-               T
-               (.EQMEMB 'A 'TESTATOM)
-               NIL
-               (.EQMEMB 'A '(D E F))
-               NIL
-               (.NCONC1 (LIST 1 2 3)
-                      4)
-               '(1 2 3 4)
-               (LIST (!AND 1 2)
-                     (!AND NIL 2)
-                     (!AND 1 NIL)
-                     (!AND NIL NIL))
-               '((2 1 4 5 2 7 9)
-                 (NIL 2 3 NIL 6 7 NIL)
-                 (NIL 2 3 NIL 6 7 NIL)
-                 (NIL 2 3 NIL 6 7 NIL))
-               (LIST (!OR 1 2)
-                     (!OR NIL 2)
-                     (!OR 1 NIL)
-                     (!OR NIL NIL))
-               '((1 1 4 1 1 7 NIL)
-                 (2 1 4 2 2 7 NIL)
-                 (1 1 4 1 1 7 NIL)
-                 (NIL 2 3 5 6 7 9]
-        (SETPROPLIST 'TESTATOM '(A B C D E F))
-        (TESTIFSAME (.SETPROPLIST SETPROPLIST 'TESTATOM '(D E F G))
-               (.GETPROPLIST GETPROPLIST 'TESTATOM)
-               (.FGETD FGETD 'CONS])
-(DEFINEQ
-
-(!ADD1VAR
-  [NLAMBDA (ADD1X)                                       (* ; "Edited  8-Apr-88 13:07 by amd")
-          (* ;; "COMPILES OPEN")
-
-    (DECLARE (LOCALVARS . T))
-    (SET ADD1X (ADD1 (EVALV ADD1X])
-
-(!APPEND
-  [LAMBDA L                                              (* ; "Edited  8-Apr-88 13:08 by amd")
-                                                             (* ; "lmm: 2-JUL-76 4 3")
-    (SELECTQ L
-        (0 NIL)
-        (1 (APPEND2 (ARG L 1)
-                  NIL))
-        (2 (APPEND2 (ARG L 1)
-                  (ARG L 2)))
-        (PROG ((V (ARG L L))
-               (I L))
-          LP  (COND
-                 ((ZEROP (SETQ I (SUB1 I)))
-                  (RETURN V))
-                 (T (SETQ V (APPEND2 (ARG L I)
-                                   V))
-                    (GO LP])
-
-(APPEND2
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:08 by amd")
-                                                             (* ; "lmm: 2-JUL-76 4 1")
-    (COND
-       ((NLISTP X)
-        Y)
-       (T (CONS (CAR X)
-                (APPEND2 (CDR X)
-                       Y])
-
-(!ASSOC
-  [LAMBDA (KEY LST)                                      (* ; "Edited  8-Apr-88 13:08 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 11")
-          (* ;; "BYTECODE")
-
-    (COND
-       ((NLISTP LST)
-        NIL)
-       ((EQ KEY (CAAR LST))
-        (CAR LST))
-       (T (!ASSOC KEY (CDR LST])
-
-(!ATTACH
-  [LAMBDA (X LST)                                        (* ; "Edited  8-Apr-88 13:09 by amd")
-          (* ;; "MSOPVAL COPY CAR COPY1 CDR CONS RPLACD SWAP FRPLACA")
-
-    (RPLNODE LST X (CONS (CAR LST)
-                         (CDR LST])
-
-(!CHANGEPROP
-  [LAMBDA (X PROP1 PROP2)                                (* ; "Edited  8-Apr-88 13:09 by amd")
-          (* ;; "FMEMB !!! UGH")
-
-    (COND
-       ((SETQ PROP1 (FMEMB PROP1 (GETPROPLIST X)))
-        (FRPLACA PROP1 PROP2)
-        X])
-
-(!COPY
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:09 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 12")
-          (* ;; "COLLECT?")
-
-    (COND
-       ((NLISTP X)
-        X)
-       (T (CONS (!COPY (CAR X))
-                (!COPY (CDR X])
-
-(!DEFLIST
-  [LAMBDA (L PROP)                                       (* ; "Edited  8-Apr-88 13:09 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 12")
-    (COND
-       ((NLISTP L)
-        NIL)
-       (T (PUTPROP (CAAR L)
-                 PROP
-                 (CADAR L))
-          (!DEFLIST (CDR L)
-                 PROP])
-
-(!DREMOVE
-  [LAMBDA (X L)                                          (* ; "Edited  8-Apr-88 13:10 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 12")
-    (COND
-       ((NLISTP L)
-        NIL)
-       [(EQ X (CAR L))
-        (COND
-           ((CDR L)
-            (!DREMOVE X (FRPLNODE L (CADR L)
-                                   (CDDR L]
-       (T (* ;; "GET RID OF PROG AND RECURSE?")
-          (PROG (Z)
-                (DECLARE (LOCALVARS Z))
-                (SETQ Z L)
-            LP  [COND
-                   ((NLISTP (CDR L))
-                    (RETURN Z))
-                   ((EQ X (CADR L))
-                    (FRPLACD L (CDDR L)))
-                   (T (SETQ L (CDR L]
-                (GO LP])
-
-(!DREVERSE
-  [LAMBDA (L)
-    (DREV L NIL])
-
-(DREV
-  [LAMBDA (L Z)                                          (* ; "Edited  8-Apr-88 13:10 by amd")
-    (PROG (Y)
-      R1  (COND
-             ((NLISTP (SETQ Y L))
-              (RETURN Z)))
-          (SETQ L (CDR L))
-          (SETQ Z (FRPLACD Y Z))
-          (GO R1])
-
-(!DSUBST
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:10 by amd")
-                                                             (* ; "lmm: 2-JUL-76 17 20")
-    (COND
-       ((EQ Y Z)
-        (COPY X))
-       ((NLISTP Z)
-        Z)
-       (T [COND
-             ((EQUAL Y (CAR Z))
-              (FRPLACA Z (COPY X)))
-             (T (!DSUBST X Y (CAR Z]
-          (COND
-             ((AND Y (EQUAL Y (CDR Z)))
-              (FRPLACD Z (COPY X)))
-             (T (!DSUBST X Y (CDR Z))
-                Z])
-
-(!EVERY
-  [LAMBDA (EVERYX EVERYFN1 EVERYFN2)
-    (COND
-       ((NLISTP EVERYX)
-        T)
-       ((NULL (APPLY* EVERYFN1 (CAR EVERYX)
-                     EVERYX))
-        NIL)
-       (T (!EVERY (APPLY* (OR EVERYFN2 'CDR)
-                             EVERYX)
-                 EVERYFN1 EVERYFN2])
-
-(!GETP
-  [LAMBDA (ATM PROP)                                     (* ; "Edited  8-Apr-88 13:11 by amd")
-          (* ;; "HAS BYTE CODE")
-
-    (AND (LITATOM ATM)
-         (PROG NIL
-               (SETQ ATM (GETPROPLIST ATM))
-           LOOP
-               [COND
-                  ((OR (NLISTP ATM)
-                       (NLISTP (CDR ATM)))
-                   (RETURN NIL))
-                  ((EQ (CAR ATM)
-                       PROP)
-                   (RETURN (CADR ATM]
-               (SETQ ATM (CDDR ATM))
-               (GO LOOP])
-
-(!INTERSECTION
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:11 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 8")
-    (AND (LISTP X)
-         (COND
-            ([AND (MEMBER (CAR X)
-                         Y)
-                  (NOT (MEMBER (CAR X)
-                              (CDR X]
-             (CONS (CAR X)
-                   (!INTERSECTION (CDR X)
-                          Y)))
-            (T (!INTERSECTION (CDR X)
-                      Y])
-
-(!LAST
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:11 by amd")
-          (* ;; "BYTE CODE")
-
-    (COND
-       ((NLISTP X)
-        X)
-       ((NLISTP (CDR X))
-        X)
-       (T (!LAST (CDR X])
-
-(!LASTN
-  [LAMBDA (L N)                                          (* ; "Edited  8-Apr-88 13:38 by amd")
-          (* ;; "UGH! NCONC1 SHOULD BE COLLECT")
-
-    (AND (LISTP L)
-         (PROG ((X (FNTH L N))
-                Y)
-               (COND
-                  ((NULL X)
-                   (RETURN)))
-           LP  [COND
-                  ((NULL (SETQ X (CDR X)))
-                   (RETURN (CONS Y L]
-               (SETQ Y (NCONC1 Y (CAR L)))
-               (SETQ L (CDR L))
-               (GO LP])
-
-(!LDIFF
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:12 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 10")
-    (COND
-       ((EQ X Y)
-        Z)
-       (Z (NCONC Z (!LDIFF X Y)))
-       ((NULL Y)
-        X)
-       ((NLISTP X)
-        (ERROR '"LDIFF: not a tail" Y))
-       (T (CONS (CAR X)
-                (!LDIFF (CDR X)
-                       Y])
-
-(!LENGTH
-  [LAMBDA (L)                                            (* ; "Edited  8-Apr-88 13:12 by amd")
-          (* ;; "BYTE CODE")
-
-    (COND
-       ((NLISTP L)
-        0)
-       (T (ADD1 (LENGTH (CDR L])
-
-(!LISTGET
-  [LAMBDA (LST PROP)                                     (* ; "Edited  8-Apr-88 13:12 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 13")
-          (* ;; "BYTE CODE")
-          (* ;; "like getp but works on lists, searching them two cdrs at a time.")
-
-    (AND (LISTP LST)
-         (COND
-            ((EQ PROP (CAR LST))
-             (CADR LST))
-            (T (!LISTGET (CDDR LST)
-                      PROP])
-
-(!LSUBST
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:12 by amd")
-                                                             (* ; "lmm: 2-JUL-76 16 25")
-          (* ;; "Substitutes X as a segment for Y in Z.  E.g.  !LSUBST ((A B) Y (X Y Z)) is (X A B Z) not meaningful for Y an atom and CDR of a list.  if X is NIL, operation effectively deletes Y, i.e.  produces a copy without Y in it.")
-
-    (COND
-       ((NULL Z)
-        NIL)
-       ((NLISTP Z)
-        (COND
-           ((EQ Y Z)
-            X)
-           (T Z)))
-       [(EQUAL Y (CAR Z))
-        (NCONC (COPY X)
-               (!LSUBST X Y (CDR Z]
-       (T (CONS (!LSUBST X Y (CAR Z))
-                (!LSUBST X Y (CDR Z])
-
-(!MAP
-  [LAMBDA (MAPX MAPFN1 MAPFN2)                           (* ; "Edited  8-Apr-88 13:13 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 5")
-    (COND
-       ((NLISTP MAPX)
-        NIL)
-       (T (APPLY* MAPFN1 MAPX)
-          (!MAP (COND
-                       (MAPFN2 (APPLY* MAPFN2 MAPX))
-                       (T (CDR MAPX)))
-                 MAPFN1 MAPFN2])
-
-(!GET
-  [LAMBDA (LST PROP)                                     (* ; "Edited  8-Apr-88 13:13 by amd")
-          (* ;; "GIVE IT A MACRO")
-
-    (CADR (MEMB PROP LST])
-
-(!GETLIS
-  [LAMBDA (X PROPS)
-    (PROG [(Z (COND
-                 ((LITATOM X)
-                  (GETPROPLIST X))
-                 (T X]
-      LP  (COND
-             ((OR (NLISTP Z)
-                  (FMEMB (CAR Z)
-                         PROPS))
-              (RETURN Z)))
-          (SETQ Z (CDR Z))
-          (GO LP])
-
-(!MEMB
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:13 by amd")
-                                                             (* ; "lmm: 6-JUL-76 20 15")
-    (COND
-       ((NLISTP Y)
-        NIL)
-       ((EQ X (CAR Y))
-        Y)
-       (T (!MEMB X (CDR Y])
-
-(!NTH
-  [LAMBDA (X N)
-    (COND
-       ((IGREATERP 1 N)
-        (CONS NIL X))
-       (T (PROG NIL
-            LP  (COND
-                   ((NOT (IGREATERP N 1))
-                    (RETURN X))
-                   ((NLISTP X)
-                    (RETURN NIL)))
-                (SETQ X (CDR X))
-                (SETQ N (SUB1 N))
-                (GO LP])
-
-(.COLLCT
-  [LAMBDA (X Y)                                              (* lmm%: 28-JUN-76 12 45)
-    (COLLCT X Y])
-
-(.ENDCOLLCT
-  [LAMBDA (Y)                                                (* lmm%: 28-JUN-76 12 44)
-    (ENDCOLLCT Y])
-
-(MYAPPEND1
-  [LAMBDA (X Y)                                          (* lmm%: "14-AUG-76 22:32:20")
-    (COND
-       ((NLISTP X)
-        Y)
-       (T (CONS (CAR X)
-                (MYAPPEND1 (CDR X)
-                       Y])
-
-(MYAPPEND2
-  [LAMBDA (X Y)                                              (* lmm%: 30-JUN-76 16 57)
-    (PROG (V)
-      LP  (COND
-             ((NLISTP X)
-              (RETURN (ENDCOLLCT V Y)))
-             (T (SETQ V (COLLCT V (CAR X)))
-                (SETQ X (CDR X))
-                (GO LP])
-
-(COLLCT
-  [LAMBDA (LST NEWITEM)                                      (* lmm%: 28-JUN-76 10 47)
-    (COND
-       ((NULL LST)
-        (RPLACD (SETQ LST (LIST NEWITEM))
-               LST))
-       (T (CDR (RPLACD LST (CONS NEWITEM (CDR LST])
-
-(ENDCOLLCT
-  [LAMBDA (X Y)                                              (* lmm%: 30-JUN-76 16 19)
-    (PROG1 (CDR X)
-           (FRPLACD X Y])
-
-(.ATTACH
-  [LAMBDA (X Y)                                              (* lmm%: 28-JUN-76 13 10)
-    (ATTACH X Y])
-
-(.APPEND0
-  [LAMBDA NIL                                                (* lmm%: 2-JUL-76 14 22)
-    (APPEND])
-
-(.APPEND1
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:13 by amd")
-                                                             (* ; "lmm: 2-JUL-76 14 23")
-    (APPEND X])
-
-(.APPEND2
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:13 by amd")
-                                                             (* ; "lmm: 2-JUL-76 14 23")
-    (APPEND X Y])
-
-(.APPEND3
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:14 by amd")
-                                                             (* ; "lmm: 2-JUL-76 14 23")
-    (APPEND X Y Z])
-
-(.APPEND4
-  [LAMBDA (X Y Z W)                                      (* ; "Edited  8-Apr-88 13:14 by amd")
-                                                             (* ; "lmm: 2-JUL-76 14 23")
-    (APPEND X Y Z W])
-
-(.MAPCGETP
-  [LAMBDA (AT PROP FN)                                   (* ; "Edited  8-Apr-88 13:14 by amd")
-                                                             (* ; "lmm: 7-JUL-76 1 22")
-    (MAPC (GETP AT PROP)
-          (FUNCTION (LAMBDA (X)
-                      (APPLY* FN X])
-)
-
-(RPAQQ TESTMISC
-       ((TESTVALS (PROGN (SETQ TESTATOM 3)
-                         (!ADD1VAR TESTATOM)
-                         TESTATOM)
-               4
-               (!APPEND '(A B C)
-                      '(D E F)
-                      '(G H I))
-               '(A B C D E F G H I)
-               (!APPEND '(A B C))
-               '(A B C)
-               [!ASSOC 0 '((3 . 2)
-                           (0 . 1]
-               '(0 . 1)
-               [!ASSOC 3 '((1 . 2)
-                           (2 . 3]
-               NIL
-               (!ATTACH NIL T)
-               '(:ERROR "T is not a LIST.")
-               (!ATTACH 'A (LIST 1 2 3))
-               '(A 1 2 3)
-               [PROGN (SETPROPLIST 'TESTATOM (LIST 1 2 3 4))
-                      (!CHANGEPROP 'TESTATOM '3 '10)
-                      (LIST (!GETP 'TESTATOM 3)
-                            (!GETP 'TESTATOM 10)
-                            (!GETP 'TESTATOM 1)
-                            (GETPROPLIST 'TESTATOM]
-               '(NIL 4 2 (1 2 10 4))
-               (!COPY '(A 1 1.3 "FOO" . XX))
-               '(A 1 1.3 "FOO" . XX)
-               [!COPY '((A . 3)
-                        (B C 10 3 . 10]
-               '((A . 3)
-                 (B C 10 3 . 10))
-               (!DREMOVE 3 (LIST 3 1 3 5 7))
-               '(1 5 7)
-               [!DSUBST 3 10 (!COPY '((A . 3)
-                                      (B C 10 3 . 10)
-                                      (10 . A) . A]
-               '((A . 3)
-                 (B C 3 3 . 3)
-                 (3 . A) . A)
-               (!EVERY '(1 NIL 2 NIL 4 NIL)
-                      'SMALLP
-                      'CDDR)
-               T
-               (!EVERY '(A B C . 3)
-                      'LITATOM)
-               T
-               (!EVERY '(1 2 3 A)
-                      'SMALLP)
-               NIL
-               (!GET '(A B C D E)
-                     'A)
-               'B
-               (!GET '(A B C D E)
-                     'B)
-               'C
-               (!GETLIS '(A B C D E)
-                      '(1 3 B))
-               '(B C D E)
-               [PROGN (!DEFLIST '((FOO FIE)
-                                  (FUM FEE))
-                             'PROPNAME)
-                      (LIST (GETP 'FOO 'PROPNAME)
-                            (GETP 'FUM 'PROPNAME]
-               '(FIE FEE)
-               (LIST (!DREVERSE (SETQ A (LIST 1 2 3 4 5)))
-                     A)
-               '((5 4 3 2 1)
-                 (1))
-               (!GET '(A B C . D)
-                     'A)
-               'B
-               (!INTERSECTION '(1 3 2 4)
-                      '(4 2 1))
-               '(1 2 4)
-               [LIST (!LAST 3)
-                     (!LAST '(A . B))
-                     (!LAST '(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2 3 4 5 6 7 8 9 0
-                                ! @ %# $ %% ~ & * %( %) - = + \ %| %[ %] { } _ ^ %: ; %' %" %, < > %.
-                                ? / END]
-               '(3 (A . B)
-                   (END))
-               (!LASTN (LIST 1 2 3 4 5)
-                      1)
-               '((1 2 3 4)
-                 5)
-               (!LASTN (LIST 1 2 3)
-                      0)
-               '((1 2 3))
-               (!LDIFF (SETQ A '(A B C D E F G H))
-                      (!NTH A 4))
-               '(A B C)
-               (!LENGTH T)
-               0
-               (!LENGTH '(A B C D E F))
-               6
-               (!LISTGET '(A B C D)
-                      'B)
-               NIL
-               (!LISTGET '(A B C D E)
-                      'A)
-               'B
-               [!LSUBST '(A B C)
-                      'D
-                      (!COPY '((3 . D)
-                               (D . 3)
-                               (X D Y]
-               '((3 A B C)
-                 (A B C . 3)
-                 (X A B C Y))
-               (PROG ((V 0))
-                     (RETURN (LIST [!MAP '(1 2 3 4)
-                                         (FUNCTION (LAMBDA (X)
-                                                          (SETQ V (IPLUS V (CAR X]
-                                   V)))
-               '(NIL 10))
-        (TESTVALS (ENDCOLLCT (COLLCT (COLLCT (COLLCT NIL 'A)
-                                            10)
-                                    14))
-               '(A 10 14)
-               (ENDCOLLCT (.COLLCT (.COLLCT (.COLLCT NIL 'A)
-                                          10)
-                                 14))
-               '(A 10 14)
-               (.ENDCOLLCT (.COLLCT (.COLLCT (.COLLCT NIL 'A)
-                                           10)
-                                  14))
-               '(A 10 14)
-               (MYAPPEND1 '(A B C)
-                      '(D E F))
-               '(A B C D E F)
-               (MYAPPEND2 (LIST 1 2 3)
-                      (LIST 4 5 6))
-               '(1 2 3 4 5 6)
-               (.ATTACH 1 (LIST 2 3 4 5))
-               '(1 2 3 4 5)
-               (.APPEND1 '(A B C))
-               '(A B C)
-               (.APPEND2 '(A B C)
-                      '(D E F))
-               '(A B C D E F)
-               (.APPEND3 '(A B)
-                      '(C D)
-                      '(E F))
-               '(A B C D E F)
-               (.APPEND4 '(A B)
-                      NIL
-                      '(C D)
-                      NIL)
-               '(A B C D)
-               (PROG ((S 0))
-                     (PUT 'A 'B '(1 2 3 4 5))
-                     [.MAPCGETP 'A 'B (FUNCTION (LAMBDA (X)
-                                                       (SETQ S (IPLUS X S]
-                     (RETURN S))
-               15)))
-(DEFINEQ
-
-(.MAP
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:14 by amd")
-    (LIST 1 (PROG ((C 0))
-                  [MAP X (FUNCTION (LAMBDA (Y)
-                                     (SETQ C (IPLUS (LENGTH Y)
-                                                    C]
-                  (RETURN C))
-          7])
-
-(.MAPC
-  [LAMBDA (X Y Z)
-    (LIST 1 (PROG ((C 0))
-                  [MAPC X (FUNCTION (LAMBDA (Y)
-                                      (SETQ C (IPLUS Y C]
-                  (RETURN C))
-          (COND
-             ((PROG ((C 0))
-                    [MAPC X (FUNCTION (LAMBDA (Y)
-                                        (SETQ C (IPLUS Y C]
-                    (RETURN C))
-              2)
-             ((NOT (PROG ((C 0))
-                         [MAPC X (FUNCTION (LAMBDA (Y)
-                                             (SETQ C (IPLUS Y C]
-                         (RETURN C)))
-              3)
-             (T 4))
-          (OR (PROG ((C 0))
-                    [MAPC X (FUNCTION (LAMBDA (Y)
-                                        (SETQ C (IPLUS Y C]
-                    (RETURN C))
-              5)
-          (AND (PROG ((C 0))
-                     [MAPC X (FUNCTION (LAMBDA (Y)
-                                         (SETQ C (IPLUS Y C]
-                     (RETURN C))
-               6)
-          (PROGN (PROG ((C 0))
-                       [MAPC X (FUNCTION (LAMBDA (Y)
-                                           (SETQ C (IPLUS Y C]
-                       (RETURN C))
-                 7])
-
-(.MAPCEFF
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:14 by amd")
-    (LIST 1 (PROGN (PROG ((C 0))
-                         [MAPC X (FUNCTION (LAMBDA (Y)
-                                             (SETQ C (IPLUS Y C]
-                         (RETURN C))
-                   7])
-)
-
-(RPAQQ TESTMAP
-       [(TESTVALS (.MAP)
-               '(1 0 7)
-               (.MAP '(1 2 3 4 5))
-               '(1 15 7))
-        (TESTVALS (.MAPC '(1 2 3 4))
-               '(1 10 2 10 6 7)
-               (.MAPCEFF)
-               '(1 7])
-(DEFINEQ
-
-(.FPLUS
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:14 by amd")
-                                                             (* ; "lmm: 22-JUN-76 0 39")
-          (* ;; "subr")
-
-    (FPLUS X Y])
-
-(.FTIMES
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:15 by amd")
-                                                             (* ; "lmm: 22-JUN-76 0 40")
-          (* ;; "SUBR*")
-
-    (FTIMES X Y])
-
-(.FDIFFERENCE
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:15 by amd")
-                                                             (* ; "lmm: 22-JUN-76 0 40")
-          (* ;; "CEXPR")
-
-    (FDIFFERENCE X Y])
-
-(.FQUOTIENT
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:15 by amd")
-                                                             (* ; "lmm: 22-JUN-76 0 40")
-    (FQUOTIENT X Y])
-)
-
-(RPAQQ TESTLINK ((TESTIFSAME (.FPLUS FPLUS 2 10)
-                            (.FTIMES FTIMES 3 5)
-                            (.FDIFFERENCE FDIFFERENCE 4.5 7.9)
-                            (.FQUOTIENT FQUOTIENT 4.5 10.3))))
-(DEFINEQ
-
-(NONLOCALGO
-  [LAMBDA (A B C)                                        (* ; "Edited  8-Apr-88 13:15 by amd")
-                                                             (* ; "lmm: 28-JUN-76 14 9")
-    (LIST -2 -1 (PROG ((C 1)
-                       (D 2)
-                       (E 3)
-                       F)
-                      (SETQ F (LIST C D E))
-                      [RETURN (PROG ((G 13)
-                                     (H 14)
-                                     (I 15))
-                                    (RETURN (LIST G H I (PROG ((I H)
-                                                               (H I))
-                                                              (COND
-                                                                 (F (GO POPOUT)))
-                                                              (RETURN (LIST I H]
-                  POPOUT
-                      (RETURN (LIST D E F])
-
-(CNTDWN
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:15 by amd")
-                                                             (* ; "lmm: 21-JUN-76 3 54")
-    (PROG NIL
-      LP  (SELECTQ X
-              (0 (RETURN))
-              (PROGN (SETQ X (SUB1 X))
-                     (GO LP])
-
-(JUMPAROUND
-  [LAMBDA NIL                                            (* ; "Edited  8-Apr-88 13:15 by amd")
-                                                             (* ; "lmm: 22-JUN-76 1 23")
-    (COND
-       (NIL T)
-       (T NIL])
-)
-
-(RPAQQ TESTJUMP ([TESTVALS (NONLOCALGO)
-                            '(-2 -1 (2 3 (1 2 3]
-                     (TESTVALS (CNTDWN 0)
-                            NIL)
-                     (TESTVALS (CNTDWN 20)
-                            NIL)))
-(DEFINEQ
-
-(FN2
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:16 by amd")
-                                                             (* ; "lmm: 19-JUN-76 2 6")
-    (LIST3 X Y])
-
-(FN3
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:16 by amd")
-                                                             (* ; "lmm: 19-JUN-76 1 53")
-    (LIST3 X Y Z])
-
-(FN1
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:16 by amd")
-                                                             (* ; "lmm: 19-JUN-76 2 8")
-    (LIST3 X])
-
-(.IVAR
-  [LAMBDA (A B C D E F G H I J K L M N O)                (* ; "Edited  8-Apr-88 13:16 by amd")
-                                                             (* ; "lmm: 19-JUN-76 2 12")
-    (IVAR A B C D E F G H I J K L M N O])
-)
-
-(RPAQQ TESTFNX
-       [(TESTVALS (FN3 1 2 3)
-               '(1 2 3)
-               (FN2 1 2)
-               '(1 2 NIL)
-               (FN1 1)
-               '(1 NIL NIL)
-               (.IVAR 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
-               '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15])
-(DEFINEQ
-
-(.GETP
-  [LAMBDA (X Y)
-    (GETP X Y])
-
-(.GETPROP
-  [LAMBDA (X Y)
-    (GETPROP X Y])
-
-(.RPLACA
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:17 by amd")
-                                                             (* ; "lmm: 18-JUN-76 14 22")
-    (RPLACA X Y])
-
-(.RPLACD
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:17 by amd")
-                                                             (* ; "lmm: 18-JUN-76 14 22")
-    (RPLACD X Y])
-
-(.FRPLACA
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:17 by amd")
-                                                             (* ; "lmm: 18-JUN-76 14 46")
-    (FRPLACA X Y])
-
-(.GET
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:17 by amd")
-    (LISTGET X Y])
-
-(.FRPLACD
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:17 by amd")
-                                                             (* ; "lmm: 18-JUN-76 14 47")
-    (FRPLACD X Y])
-
-(.ASSOC
-  [LAMBDA (X Y)
-    (ASSOC X Y])
-
-(.LENGTH
-  [LAMBDA (X)
-    (LENGTH X])
-
-(.LAST
-  [LAMBDA (X)
-    (LAST X])
-
-(.GETHASH
-  [LAMBDA (X Y)
-    (GETHASH X Y])
-
-(.FMEMB
-  [LAMBDA (X Y)
-    (FMEMB X Y])
-)
-
-(RPAQQ TESTFN
-       [[SETPROPLIST (PUTHASH 1 'TESTATOM (SETQ TARRAY (HARRAY 10)))
-               (PUTHASH 3 '(A (B)
-                              C D E F G (H]
-        (SETQQ LONGLIST TESTATOM)
-        (RPTQ 2048 (SETQ LONGLIST (CONS T LONGLIST)))
-        (TESTIFSAME (.GETP GETP 'TESTATOM 'A)
-               (.GETPROP GETP 'TESTATOM 'B)
-               (.GETP GETP 3 NIL)
-               (.RPLACA RPLACA (CONS 'A 'B)
-                      'C)
-               (.RPLACA RPLACA NIL T)
-               (.RPLACA RPLACA NIL NIL)
-               (.RPLACA RPLACA "foo" "fum")
-               (.RPLACD RPLACD (CONS 'A 'B)
-                      'C)
-               (.FRPLACA FRPLACA (CONS 'A 'B)
-                      'C)
-               (.FRPLACD FRPLACD (CONS 'A 'B)
-                      'C)
-               (.GET LISTGET '(A B C . 3)
-                     'C)
-               (.GET LISTGET '(A B C . TESTATOM)
-                     'A)
-               (.GET LISTGET '(A B C . TESTATOM)
-                     'D)
-               (.GET LISTGET 'TESTATOM 'D)
-               (.LENGTH LENGTH '(1 3 . 4))
-               (.LENGTH LENGTH LONGLIST)
-               (.ASSOC ASSOC '((A . B)
-                               (C . D))
-                      'A)
-               (.ASSOC ASSOC 'TESTATOM 'H)
-               (.LAST LAST LONGLIST)
-               (.GETHASH GETHASH 3)
-               (.GETHASH GETHASH 1 TARRAY)
-               (.FGETD FGETD 'RECLAIM)
-               (.FGETD FGETD '.FGETD)
-               (.FMEMB FMEMB 'A '(D B C A))
-               (.FMEMB FMEMB 'A '(D B C])
-
-(RPAQQ TESTEDIT
-       [(TESTVALS [EDITE (LIST 1 2 3 4)
-                         '((1)
-                           (N 5)
-                           (2 (F (G H)))
-                           F F (SW 1 2)
-                           ^ F H !0 (1 P]
-               '(2 ((P H)
-                    F)
-                   4 5])
-(DEFINEQ
-
-(.CONS
-  [LAMBDA (A B)
-    (CONS A B])
-
-(LIST0
-  [LAMBDA NIL                                            (* ; "Edited  8-Apr-88 13:18 by amd")
-                                                             (* ; "lmm: 21-JUN-76 15 57")
-    (LIST])
-
-(LIST1
-  [LAMBDA (X)
-    (LIST X])
-
-(LIST2
-  [LAMBDA (A B)
-    (LIST A B])
-
-(LIST3
-  [LAMBDA (X Y Z)
-    (LIST X Y Z])
-
-(LIST4
-  [LAMBDA (A B C D)                                      (* ; "Edited  8-Apr-88 13:18 by amd")
-                                                             (* ; "lmm: 21-JUN-76 15 56")
-    (LIST A B C D])
-
-(LIST5
-  [LAMBDA (A B C D E)                                    (* ; "Edited  8-Apr-88 13:18 by amd")
-                                                             (* ; "lmm: 21-JUN-76 15 56")
-    (LIST A B C D E])
-
-(LIST6
-  [LAMBDA (A B C D E F)                                  (* ; "Edited  8-Apr-88 13:18 by amd")
-                                                             (* ; "lmm: 21-JUN-76 15 57")
-    (LIST A B C D E F])
-
-(LIST7
-  [LAMBDA (A B C D E F G)                                (* ; "Edited  8-Apr-88 13:18 by amd")
-                                                             (* ; "lmm: 21-JUN-76 15 57")
-    (LIST A B C D E F G])
-
-(LIST8
-  [LAMBDA (A B C D E F G H)                              (* ; "Edited  8-Apr-88 13:19 by amd")
-                                                             (* ; "lmm: 21-JUN-76 15 57")
-    (LIST A B C D E F G H])
-
-(LIST9
-  [LAMBDA (A B C D E F G H I)                            (* ; "Edited  8-Apr-88 13:19 by amd")
-                                                             (* ; "lmm: 21-JUN-76 15 57")
-    (LIST A B C D E F G H I])
-
-(LIST10
-  [LAMBDA (A B C D E F G H I J)                          (* ; "Edited  8-Apr-88 13:19 by amd")
-                                                             (* ; "lmm: 25-JUN-76 5 18")
-    (LIST A B C D E F G H I J])
-
-(LIST11
-  [LAMBDA (A B C D E F G H I J K)                        (* ; "Edited  8-Apr-88 13:19 by amd")
-                                                             (* ; "lmm: 25-JUN-76 5 19")
-    (LIST A B C D E F G H I J K])
-
-(LIST12
-  [LAMBDA (A B C D E F G H I J K L)                      (* ; "Edited  8-Apr-88 13:19 by amd")
-                                                             (* ; "lmm: 28-JUN-76 8 3")
-    (LIST A B C D E F G H I J K L])
-
-(LIST13
-  [LAMBDA (A B C D E F G H I J K L M)                    (* ; "Edited  8-Apr-88 13:19 by amd")
-                                                             (* ; "lmm: 28-JUN-76 8 3")
-    (LIST A B C D E F G H I J K L M])
-)
-
-(RPAQQ TESTCONS
-       [(TESTVALS (.CONS 10 12)
-               '(10 . 12)
-               (LIST0)
-               NIL
-               (LIST1 1)
-               '(1)
-               (LIST2 1 2)
-               '(1 2)
-               (LIST3 1 2 3)
-               '(1 2 3)
-               (LIST4 1 2 3 4)
-               '(1 2 3 4)
-               (LIST5 1 2 3 4 5)
-               '(1 2 3 4 5)
-               (LIST6 1 2 3 4 5 6)
-               '(1 2 3 4 5 6)
-               (LIST7 1 2 3 4 5 6 7)
-               '(1 2 3 4 5 6 7)
-               (LIST8 1 2 3 4 5 6 7 8)
-               '(1 2 3 4 5 6 7 8)
-               (LIST9 1 2 3 4 5 6 7 8 9)
-               '(1 2 3 4 5 6 7 8 9)
-               (LIST10 10 9 8 7 6 5 4 3 2 1)
-               '(10 9 8 7 6 5 4 3 2 1)
-               (LIST11 1 2 6 3 7 4 8 5 9 10 11)
-               '(1 2 6 3 7 4 8 5 9 10 11])
-(DEFINEQ
-
-(.CAR
-  [LAMBDA (X)
-    (CAR X])
-
-(.CDR
-  [LAMBDA (X)
-    (CDR X])
-
-(.CAAR
-  [LAMBDA (X)
-    (CAAR X])
-
-(.CDAR
-  [LAMBDA (X)
-    (CDAR X])
-
-(.CADR
-  [LAMBDA (X)
-    (CADR X])
-
-(.CDDR
-  [LAMBDA (X)
-    (CDDR X])
-
-(.CAAAAR
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:20 by amd")
-                                                             (* ; "lmm: 19-JUN-76 20 57")
-    (CAR (CAAR (CAR X])
-)
-
-(RPAQQ TESTCAR
-       ((TESTVALS (.CAR '(A))
-               'A
-               (.CDR '(A . B))
-               'B
-               [.CAAR '((A]
-               'A
-               [.CDAR '((A . B]
-               'B
-               (.CADR '(A B))
-               'B
-               (.CDDR '(A B . C))
-               'C
-               [.CAAAAR '((((A]
-               'A)))
-(DEFINEQ
-
-(.LAM0
-  [LAMBDA NIL
-    (LAM0])
-
-(..LAM0
-  [LAMBDA NIL
-    (LAM0 T T T T T T])
-
-(.LAM1
-  [LAMBDA NIL
-    (LAM1])
-
-(..LAM1
-  [LAMBDA NIL
-    (LAM1 -372 "extra args" "should be ignored"])
-
-(.NLAML
-  [LAMBDA NIL
-    (NLAML the NLAMBDA bit should make no difference])
-
-(LAM1LOC
-  [LAMBDA (X)
-    (DECLARE (LOCALVARS X))
-    X])
-)
-
-(RPAQQ TESTCALL
-       ((TESTVALS (LAM0)
-               NIL
-               (.LAM0)
-               NIL
-               (LAM0 T T T T T)
-               NIL
-               (..LAM0)
-               NIL
-               (LAM1)
-               NIL
-               (.LAM1)
-               NIL
-               (LAM1 -372 "extra args" "should be ignored")
-               -372
-               (..LAM1)
-               -372
-               (NLAML the NLAMBDA bit should make no difference)
-               'the
-               (.NLAML)
-               'the
-               (LAM1LOC)
-               NIL
-               (LAM1LOC 341)
-               341
-               (LAM1LOC 27 28 29)
-               27)))
-(DEFINEQ
-
-(.PROGS
-  [LAMBDA (X Y Z)                                        (* ; "Edited  8-Apr-88 13:21 by amd")
-    (LIST 1 [PROG (X (Y (CDR Y)))
-              LPX (RETURN (LIST 3 (COND
-                                     (X (SETQ Z X)
-                                        (SETQ X)
-                                        (GO LPX))
-                                     (Y (SETQ Y NIL)
-                                        (RETURN 17))
-                                     (T (LIST Z]
-          (COND
-             ([PROG (X (Y (CDR Y)))
-                LPX (RETURN (LIST 3 (COND
-                                       (X (SETQ Z X)
-                                          (SETQ X)
-                                          (GO LPX))
-                                       (Y (SETQ Y NIL)
-                                          (RETURN 17))
-                                       (T (LIST Z]
-              2)
-             ([NOT (PROG (X (Y (CDR Y)))
-                     LPX (RETURN (LIST 3 (COND
-                                            (X (SETQ Z X)
-                                               (SETQ X)
-                                               (GO LPX))
-                                            (Y (SETQ Y NIL)
-                                               (RETURN 17))
-                                            (T (LIST Z]
-              3)
-             (T 4))
-          (OR [PROG (X (Y (CDR Y)))
-                LPX (RETURN (LIST 3 (COND
-                                       (X (SETQ Z X)
-                                          (SETQ X)
-                                          (GO LPX))
-                                       (Y (SETQ Y NIL)
-                                          (RETURN 17))
-                                       (T (LIST Z]
-              5)
-          (AND [PROG (X (Y (CDR Y)))
-                 LPX (RETURN (LIST 3 (COND
-                                        (X (SETQ Z X)
-                                           (SETQ X)
-                                           (GO LPX))
-                                        (Y (SETQ Y NIL)
-                                           (RETURN 17))
-                                        (T (LIST Z]
-               6)
-          (PROGN [PROG (X (Y (CDR Y)))
-                   LPX (RETURN (LIST 3 (COND
-                                          (X (SETQ Z X)
-                                             (SETQ X)
-                                             (GO LPX))
-                                          (Y (SETQ Y NIL)
-                                             (RETURN 17))
-                                          (T (LIST Z]
-                 7])
-
-(.SPEC
-  [LAMBDA (X Y Z)
-    (LIST 1 [IDIFFERENCE (CONSCOUNT)
-                   (PROG (LISPXHIST)
-                         (DECLARE (LOCALVARS . T))
-                         (/RPLACA X NIL)
-                         (RETURN (CONSCOUNT]
-          (COND
-             ([IDIFFERENCE (CONSCOUNT)
-                     (PROG (LISPXHIST)
-                           (DECLARE (LOCALVARS . T))
-                           (/RPLACA X NIL)
-                           (RETURN (CONSCOUNT]
-              2)
-             ([NOT (IDIFFERENCE (CONSCOUNT)
-                          (PROG (LISPXHIST)
-                                (DECLARE (LOCALVARS . T))
-                                (/RPLACA X NIL)
-                                (RETURN (CONSCOUNT]
-              3)
-             (T 4))
-          (OR [IDIFFERENCE (CONSCOUNT)
-                     (PROG (LISPXHIST)
-                           (DECLARE (LOCALVARS . T))
-                           (/RPLACA X NIL)
-                           (RETURN (CONSCOUNT]
-              5)
-          (AND [IDIFFERENCE (CONSCOUNT)
-                      (PROG (LISPXHIST)
-                            (DECLARE (LOCALVARS . T))
-                            (/RPLACA X NIL)
-                            (RETURN (CONSCOUNT]
-               6)
-          (PROGN [IDIFFERENCE (CONSCOUNT)
-                        (PROG (LISPXHIST)
-                              (DECLARE (LOCALVARS . T))
-                              (/RPLACA X NIL)
-                              (RETURN (CONSCOUNT]
-                 7])
-
-(.COND
-  [LAMBDA (X Y Z)
-    (LIST 1 (COND
-               (X 1)
-               ((NULL X)
-                2)
-               (T 3))
-          (COND
-             ((COND
-                 (X 1)
-                 ((NULL X)
-                  2)
-                 (T 3))
-              2)
-             ((NOT (COND
-                      (X 1)
-                      ((NULL X)
-                       2)
-                      (T 3)))
-              3)
-             (T 4))
-          (OR (COND
-                 (X 1)
-                 ((NULL X)
-                  2)
-                 (T 3))
-              5)
-          (AND (COND
-                  (X 1)
-                  ((NULL X)
-                   2)
-                  (T 3))
-               6)
-          (PROGN (COND
-                    (X 1)
-                    ((NULL X)
-                     2)
-                    (T 3))
-                 7])
-
-(.DELBIND
-  [LAMBDA (X Y Z)
-    (LIST 1 [PROG NIL
-                  (RETURN (LIST 10 (COND
-                                      (X (RETURN 11]
-          (COND
-             ([PROG NIL
-                    (RETURN (LIST 10 (COND
-                                        (X (RETURN 11]
-              2)
-             ([NOT (PROG NIL
-                         (RETURN (LIST 10 (COND
-                                             (X (RETURN 11]
-              3)
-             (T 4))
-          (OR [PROG NIL
-                    (RETURN (LIST 10 (COND
-                                        (X (RETURN 11]
-              5)
-          (AND [PROG NIL
-                     (RETURN (LIST 10 (COND
-                                         (X (RETURN 11]
-               6)
-          (PROGN [PROG NIL
-                       (RETURN (LIST 10 (COND
-                                           (X (RETURN 11]
-                 7])
-)
-
-(RPAQQ TESTC2
-       [(TESTVALS (.SPEC '(NIL))
-               '(1 0 2 0 6 7))
-        (TESTVALS (.COND 3)
-               '(1 1 2 1 6 7)
-               (.COND)
-               '(1 2 2 2 6 7))
-        (TESTVALS (.DELBIND)
-               '(1 (10 NIL)
-                   2
-                   (10 NIL)
-                   6 7)
-               (.DELBIND 10)
-               '(1 11 2 11 6 7])
-(DEFINEQ
-
-(T1
-  [LAMBDA (X)
-    1])
-
-(T0
-  [LAMBDA (X)
-    0])
-
-(TT
-  [LAMBDA (X)
-    T])
-
-(TNIL
-  [LAMBDA (X)
-    NIL])
-
-(T-1
-  [LAMBDA (X)
-    -1])
-
-(T2
-  [LAMBDA (X)
-    2])
-
-(T12
-  [LAMBDA (X)
-    12])
-
-(T377
-  [LAMBDA (X)
-    255])
-
-(T400Q
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:22 by amd")
-    256])
-
-(T-400
-  [LAMBDA (X)
-    -256])
-
-(TSTR
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:22 by amd")
-    "FOO"])
-
-(.NILARGS
-  [LAMBDA (A B C D E F G H I J K L M N O)
-    (DECLARE (LOCALVARS . T))
-    (AND (OR A B C D E F G H I J K L M N O)
-         (FAILTEST])
-)
-
-(RPAQQ TESTC
-       [(TESTVALS (T1)
-               1
-               (T0)
-               0
-               (TT)
-               T
-               (TNIL)
-               NIL
-               (T-1)
-               -1
-               (T2)
-               2
-               (T12)
-               12
-               (T377)
-               255
-               (T400Q)
-               256
-               (T-400)
-               -256
-               (TSTR)
-               "FOO")
-        (PROG [(TEST '(.NILARGS]
-              (RPTQ 1000 (.NILARGS])
-(DEFINEQ
-
-(.BIND0
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:22 by amd")
-    (PROG (Y Z W)
-          (RETURN X])
-
-(.BIND1
-  [LAMBDA (A B)                                          (* ; "Edited  8-Apr-88 13:23 by amd")
-                                                             (* ; "lmm: 22-JUN-76 1 0")
-    (DECLARE (SPECVARS . T))
-    (PROG ((C 1)
-           (D 2))
-          (RETURN (PROG (E F (G 3)
-                           (H 4))
-                        (RETURN (EVALVARS])
-
-(.BIND2
-  [LAMBDA (A B)                                          (* ; "Edited  8-Apr-88 13:23 by amd")
-                                                             (* ; "lmm: 22-JUN-76 1 0")
-    (DECLARE (LOCALVARS . T))
-    (PROG ((C 1)
-           (D 2))
-          (RETURN (PROG (E F (G 3)
-                           (H 4))
-                        (RETURN (EVALVARS])
-
-(.BIND3
-  [LAMBDA (A B)                                          (* ; "Edited  8-Apr-88 13:23 by amd")
-                                                             (* ; "lmm: 24-JUN-76 4 57")
-    (DECLARE (SPECVARS . T))
-    (LIST [PROG ((C 1)
-                 (D 2))
-                (RETURN (PROG (E F (G 3)
-                                 (H 4))
-                              (RETURN (EVALVARS]
-          A B])
-
-(.BIND4
-  [LAMBDA (A B)                                          (* ; "Edited  8-Apr-88 13:23 by amd")
-                                                             (* ; "lmm: 24-JUN-76 4 57")
-    (DECLARE (SPECVARS . T))
-    (LIST [PROG ((C 1)
-                 (D 2))
-                (RETURN (PROG (E F (G 3)
-                                 (H 4))
-                              (RETURN (EVALVARS]
-          A B])
-
-(.BINDASSOC
-  [LAMBDA (V ALST VAR)                                   (* ; "Edited  8-Apr-88 13:23 by amd")
-                                                             (* ; "lmm: 24-JUN-76 8 42")
-    (PROG ((D (ASSOC V ALST)))
-          (RETURN (EVAL VAR])
-
-(.BIND5
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:23 by amd")
-                                                             (* ; "lmm: 24-JUN-76 8 51")
-    (PROG ((D (CDR X)))
-          (PROG ((LC (CDR D)))
-                (DECLARE (LOCALVARS LC))
-                ([LAMBDA (X)
-                   (RETFROM '.BIND5 (EVAL 'X]
-                 LC])
-
-(.BINDPOP
-  [LAMBDA (X Y)                                          (* ; "Edited  8-Apr-88 13:24 by amd")
-                                                             (* ; "lmm: 24-JUN-76 9 40")
-    (PROG1 Y (PROG ((K X))
-                   (CONS K K)
-                   (SETQ Y X])
-)
-
-(RPAQQ TESTBIND
-       [(TESTVALS (.BIND0 173)
-               173
-               (.BIND1 1 2 3)
-               '(1 2 1 2 NIL NIL 3 4)
-               (.BIND2 1 2 3)
-               '(A.TOP B.TOP C.TOP D.TOP E.TOP F.TOP G.TOP H.TOP)
-               (.BIND3 1 2)
-               '((1 2 1 2 NIL NIL 3 4)
-                 1 2)
-               (.BIND4 1 2 3 4)
-               '((1 2 1 2 NIL NIL 3 4)
-                 1 2)
-               (.BINDASSOC 'A '((A . B))
-                      'D)
-               '(A . B)
-               (.BINDPOP 23 73)
-               73
-               (.BIND5 '(A B C D E))
-               '(C D E])
-
-(RPAQQ TESTAT
-       ((TESTVALS (ARGTYPE 'LAM0)
-               0
-               (NARGS 'LAM0)
-               0
-               (ARGLIST 'LAM0)
-               NIL
-               (CALLS 'LAM0)
-               '(NIL NIL NIL NIL)
-               (FNTYP 'LAM0)
-               'CEXPR
-               (CCODEP 'LAM0)
-               T
-               (ARGTYPE 'LAM1)
-               0
-               (NARGS 'LAM1)
-               1
-               (ARGLIST 'LAM1)
-               '(X)
-               (CALLS 'LAM1)
-               '(NIL NIL NIL NIL)
-               (FNTYP 'LAM1)
-               'CEXPR
-               (CCODEP 'LAM1)
-               T
-               (ARGTYPE 'LAMA)
-               2
-               (NARGS 'LAMA)
-               1
-               (ARGLIST 'LAMA)
-               'U
-               (CALLS 'LAMA)
-               '(NIL NIL NIL NIL)
-               (FNTYP 'LAMA)
-               'CEXPR*
-               (CCODEP 'LAMA)
-               T
-               (ARGTYPE 'NLAML)
-               1
-               (NARGS 'NLAML)
-               1
-               (ARGLIST 'NLAML)
-               '(L)
-               (CALLS 'NLAML)
-               '(NIL NIL NIL NIL)
-               (FNTYP 'NLAML)
-               'CFEXPR
-               (CCODEP 'NLAML)
-               T
-               (ARGTYPE 'NLAMA)
-               3
-               (NARGS 'NLAMA)
-               1
-               (CALLS 'NLAMA)
-               '(NIL NIL NIL NIL)
-               (FNTYP 'NLAMA)
-               'CFEXPR*
-               (CCODEP 'NLAMA)
-               T)))
-(DEFINEQ
-
-(LAM0
-  [LAMBDA NIL NIL])
-
-(LAM1
-  [LAMBDA (X)
-    (DECLARE (LOCALVARS X))                          (* ; "Edited  8-Apr-88 13:24 by amd")
-    X])
-
-(LAMA
-  [LAMBDA L
-    (DECLARE (SPECVARS L))                           (* ; "Edited  8-Apr-88 13:24 by amd")
-    L])
-
-(NLAML
-  [NLAMBDA (L)
-    (DECLARE (LOCALVARS L))                          (* ; "Edited  8-Apr-88 13:24 by amd")
-    L])
-
-(NLAMA
-  [NLAMBDA L
-    (DECLARE (LOCALVARS L))                          (* ; "Edited  8-Apr-88 13:25 by amd")
-    L])
-)
-(DEFINEQ
-
-(.SELECTQ
-  [LAMBDA (A B C)                                        (* ; "Edited  8-Apr-88 13:25 by amd")
-    (LIST 3 (PROGN (SELECTQ A
-                       (1 (ADD1VAR C))
-                       ((2 3 4) 
-                            (SUB1VAR C))
-                       (5 (SETQ C (CDR C)))
-                       NIL)
-                   (SELECTQ B
-                       (1 (ADD1VAR C))
-                       ((2 3 4) 
-                            (SUB1VAR C))
-                       (5 (SETQ C (CDR C)))
-                       NIL))
-          (COND
-             ((SELECTQ C
-                  (NIL T)
-                  (0 NIL)
-                  (3 (SMALLP B))
-                  A)
-              22])
-
-(.SUBFNS
-  [LAMBDA NIL                                            (* ; "Edited  8-Apr-88 13:25 by amd")
-    (LIST [PROG1 'GOOD [SETQ FREE1 (FUNCTION (LAMBDA (X)
-                                               (CAR X]
-                 [SETQ FREE2 (FUNCTION (LAMBDA N N]
-                 (SETQ FREE3 (FUNCTION (NLAMBDA L L]
-          (APPLY* FREE1 '(A) '(B))
-          (APPLY* FREE2 1 2 3 4 5)
-          (APPLY* FREE3 1 2 3 4 5)
-          (SUBSET '((NIL)
-                    (3)) FREE1])
-
-(.MISC
-  [LAMBDA (B C A)                                        (* ; "Edited  8-Apr-88 13:25 by amd")
-    (LIST 1 (PROG ((A NIL))
-                  (RETURN (PROGN B C A))
-                  (FOO BAZ WHAMMY)
-                  (PROG (X)
-                        (HELP)))
-          3])
-
-(.FORTEST
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:25 by amd")
-    (for X on (to X collect (to X collect X))
-       when (SOME X (FUNCTION CDDR)) collect (CONS X (LENGTH X])
-
-(.BIGCOND
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:25 by amd")
-    (COND
-       ((LISTP X)
-        (LIST X))
-       ((ARRAYP X)
-        (ELT X 1))
-       ((FIXP X)
-        (ITIMES (ITIMES 60 24 365)
-               X])
-
-(.RECORDTEST
-  [LAMBDA (ARG)                                          (* ; "Edited  8-Apr-88 13:26 by amd")
-                                                             (* DECLARATIONS%: (RECORD A
-                                                           (B . C)))
-    (PROG [(ZZ (create A
-                      C _ (RPLACA (CONS)
-                                 1)
-                      B _ (RPLACA (CONS)
-                                 2]
-          (COND
-             (ARG (replace B of ZZ with 17)))
-          [RPLACD (fetch C of ZZ)
-                 (create A
-                        C _ (LIST 4)
-                        B _ (COND
-                               ((ZEROP ARG)
-                                (GO HOME))
-                               ((EQ ARG 3)
-                                (RETURN ZZ))
-                               (T -2]
-      HOME
-          (RETURN ZZ])
-
-(.PROGRETURN
-  [LAMBDA (X)                                            (* ; "Edited  8-Apr-88 13:26 by amd")
-    (PROG NIL
-          (SETQ X (LIST (LIST 1)
-                        (LIST 2)))
-          (RPLACD (ASSOC 1 X)
-                 T)
-          (RETURN (SOME X (FUNCTION LISTP])
-
-(.ALWAYSFALSE
-  [LAMBDA (A B)                                          (* ; "Edited  8-Apr-88 13:26 by amd")
-    (LIST 1 (COND
-               ((COND
-                   (A NIL)
-                   (B NIL))
-                T)
-               (T NIL))
-          3])
-
-(.ALWAYSTRUE
-  [LAMBDA (A B)                                          (* ; "Edited  8-Apr-88 13:26 by amd")
-    (COND
-       ((COND
-           (A T)
-           (B T)
-           (T T))
-        T)
-       (T NIL])
-
-(.EQ1
-  [LAMBDA (X Y)
-    (DECLARE (LOCALVARS X Y))                        (* ; "Edited  8-Apr-88 13:27 by amd")
-    (COND
-       ((EQ X Y)
-        T)
-       [(NLISTP X)
-        (COND
-           ((OR (NUMBERP X)
-                (STACKP X))
-            (EQP X Y))
-           ((STRINGP X)
-            (STREQUAL X Y]
-       ((LISTP Y)
-        (AND (.EQ1 (CAR X)
-                    (CAR Y))
-             (.EQ1 (CDR X)
-                    (CDR Y])
-
-(.EQ2
-  [LAMBDA (X Y)
-    (DECLARE (LOCALVARS X Y))                        (* ; "Edited  8-Apr-88 13:27 by amd")
-    (COND
-       [(NEQ X Y)
-        (COND
-           [(LISTP X)
-            (AND (LISTP Y)
-                 (.EQ2 (CAR X)
-                        (CAR Y))
-                 (.EQ2 (CDR X)
-                        (CDR Y]
-           [(NOT (OR (NUMBERP X)
-                     (STACKP X)))
-            (COND
-               ((STRINGP X)
-                (STREQUAL X Y]
-           (T (EQP X Y]
-       (T T])
-
-(.EQ3
-  [LAMBDA (X Y)
-    (DECLARE (LOCALVARS X Y))                        (* ; "Edited  8-Apr-88 13:27 by amd")
-    (COND
-       ((EQ X Y)
-        T)
-       ((LISTP X)
-        (COND
-           [(LISTP Y)
-            (AND (.EQ3 (CAR Y)
-                        (CAR X))
-                 (.EQ3 (CDR X)
-                        (CDR Y]
-           (T NIL)))
-       ((OR (NUMBERP X)
-            (STACKP X))
-        (EQP X Y))
-       ((STRINGP X)
-        (STREQUAL X Y))
-       (T NIL])
-)
-
-(RPAQQ TEST3
-       ((TESTVALS (.SELECTQ 1 1 2)
-               '(3 4 22)
-               (.SELECTQ 1 3 3)
-               '(3 3 22)
-               (.SELECTQ 1 3 0)
-               '(3 0 NIL)
-               (.SELECTQ 2 2 2)
-               '(3 0 NIL)
-               (.SELECTQ 5 5 '(NIL NIL . 3))
-               '(3 3 22)
-               (.SELECTQ)
-               '(3 NIL 22)
-               (.SUBFNS)
-               '(GOOD A 5 (1 2 3 4 5)
-                      ((3)))
-               (.MISC)
-               '(1 NIL 3)
-               (.FORTEST 3)
-               '[(((3 3 3)
-                   (3 3 3)
-                   (3 3 3)) . 3)
-                 (((3 3 3)
-                   (3 3 3)) . 2)
-                 (((3 3 3)) . 1]
-               (.FORTEST 2)
-               NIL)))
-(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
-
-(ADDTOVAR NLAMA NLAMA TESTIFSAME TESTVALS)
-
-(ADDTOVAR NLAML NLAML !ADD1VAR .NLSETQ TESTPAIRS)
-
-(ADDTOVAR LAMA LAMA !APPEND .LIST .SUM .TESTARG)
-)
-(PUTPROPS COMPTEST COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1988 1990))
-(DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4163 9052 (MAKEFORM 4173 . 4647) (TESTER 4649 . 5171) (TEST1 5173 . 5469) (TRY 5471 . 
-5724) (FAILTEST 5726 . 5801) (TESTVALS 5803 . 6509) (TESTIFSAME 6511 . 7073) (TESTPAIRS 7075 . 8489) (
-EVALVARS 8491 . 8749) (TRYTEST 8751 . 9050)) (9298 12240 (IVAR 9308 . 9464) (PVAR 9466 . 9785) (
-VARSWAP 9787 . 10109) (VARSWAP2 10111 . 10492) (VARSWAP3 10494 . 10835) (VARSWAP4 10837 . 11126) (
-IVAR3 11128 . 11513) (IVARX 11515 . 12012) (FVAR 12014 . 12238)) (13301 13411 (.GETPROPLST 13311 . 
-13409)) (13412 19707 (.LISTP 13422 . 13462) (.NLISTP 13464 . 13506) (.LITATOM 13508 . 13735) (.FLOATP 
-13737 . 13962) (.FIXP 13964 . 14185) (.NUMBERP 14187 . 14413) (.SMALLP 14415 . 14639) (.STACKP 14641
- . 14866) (.ARRAYP 14868 . 15093) (.NLITATOM 15095 . 15328) (.NFLOATP 15330 . 15378) (.NNUMBERP 15380
- . 15430) (.NFIXP 15432 . 15476) (.NSMALLP 15478 . 15526) (.NARRAYP 15528 . 15576) (.NSTACKP 15578 . 
-15626) (.NZEROP 15628 . 15674) (.ZEROP 15676 . 15899) (.STRINGP 15901 . 15945) (.NSTRINGP 15947 . 
-15997) (.IGREATERP 15999 . 16051) (.NIGREATERP 16053 . 16111) (.ILESSP 16113 . 16159) (.NILESSP 16161
- . 16213) (.ATOM 16215 . 16253) (.NATOM 16255 . 16299) (.EQ 16301 . 16339) (.NEQ 16341 . 16381) (.NULL
- 16383 . 16421) (.NNULL 16423 . 16502) (.IEQP 16504 . 16546) (.NIEQP 16548 . 16776) (.ORLISTP 16778 . 
-17017) (.ANDLISTP 17019 . 17261) (.ORATOM 17263 . 17501) (.ANDATOM 17503 . 17744) (.ORZEROP 17746 . 
-17984) (.ORNULL 17986 . 18223) (.ORARRAYP 18225 . 18466) (.ANDARRAYP 18468 . 18712) (.ANDNLISTP 18714
- . 18964) (.ANDNATOM 18966 . 19214) (.ORFLOATP 19216 . 19458) (.ANDFLOATP 19460 . 19705)) (24294 25310
- (.CONDRET 24304 . 24511) (.CONDRET2 24513 . 24722) (TESTRESUME 24724 . 25049) (GETLEAVES 25051 . 
-25308)) (25590 28446 (.TESTARG 25600 . 25853) (.SET 25855 . 26007) (.EVALV1 26009 . 26232) (.EVALV2 
-26234 . 26459) (.SUM 26461 . 26872) (.FIX 26874 . 27092) (.LIST 27094 . 27650) (.NLSETQ 27652 . 27885)
- (.EQUAL 27887 . 28039) (.SETX 28041 . 28444)) (29739 30661 (.ITIMES 29749 . 29795) (.IPLUS 29797 . 
-29841) (.IQUOTIENT 29843 . 29895) (.IREMAINDER 29897 . 29951) (.ADD1 29953 . 29991) (.SUB1 29993 . 
-30031) (.LLSH 30033 . 30075) (.LRSH 30077 . 30119) (.LSH 30121 . 30161) (.RSH 30163 . 30203) (.LOGAND 
-30205 . 30251) (.LOGOR 30253 . 30297) (.LOGXOR 30299 . 30345) (.IDIFFERENCE 30347 . 30403) (.NT1 30405
- . 30476) (.NT2 30478 . 30547) (.NT3 30549 . 30659)) (31524 36078 (.NCONC 31534 . 31759) (..NCONC 
-31761 . 32028) (.AND 32030 . 32309) (.FRPLNODE 32311 . 32544) (.OR 32546 . 32820) (.FRPLNODE2 32822 . 
-33055) (..NCONC3 33057 . 33326) (.NCONC3 33328 . 33558) (SELECTTEST 33560 . 33879) (.MKLIST 33881 . 
-34105) (.EQMEMB 34107 . 34333) (.NCONC1 34335 . 34561) (.GETPROPLIST 34563 . 34797) (.SETPROPLIST 
-34799 . 35035) (.FGETD 35037 . 35077) (..FRPLNODE2 35079 . 35219) (!AND 35221 . 35652) (!OR 35654 . 
-36076)) (38600 51527 (!ADD1VAR 38610 . 38834) (!APPEND 38836 . 39459) (APPEND2 39461 . 39795) (!ASSOC 
-39797 . 40165) (!ATTACH 40167 . 40429) (!CHANGEPROP 40431 . 40691) (!COPY 40693 . 41044) (!DEFLIST 
-41046 . 41431) (!DREMOVE 41433 . 42209) (!DREVERSE 42211 . 42261) (DREV 42263 . 42545) (!DSUBST 42547
- . 43109) (!EVERY 43111 . 43414) (!GETP 43416 . 43965) (!INTERSECTION 43967 . 44525) (!LAST 44527 . 
-44780) (!LASTN 44782 . 45299) (!LDIFF 45301 . 45758) (!LENGTH 45760 . 45982) (!LISTGET 45984 . 46478) 
-(!LSUBST 46480 . 47233) (!MAP 47235 . 47666) (!GET 47668 . 47847) (!GETLIS 47849 . 48173) (!MEMB 48175
- . 48489) (!NTH 48491 . 48846) (.COLLCT 48848 . 48973) (.ENDCOLLCT 48975 . 49104) (MYAPPEND1 49106 . 
-49346) (MYAPPEND2 49348 . 49658) (COLLCT 49660 . 49906) (ENDCOLLCT 49908 . 50058) (.ATTACH 50060 . 
-50181) (.APPEND0 50183 . 50300) (.APPEND1 50302 . 50527) (.APPEND2 50529 . 50756) (.APPEND3 50758 . 
-50987) (.APPEND4 50989 . 51220) (.MAPCGETP 51222 . 51525)) (57139 59034 (.MAP 57149 . 57496) (.MAPC 
-57498 . 58701) (.MAPCEFF 58703 . 59032)) (59283 60308 (.FPLUS 59293 . 59546) (.FTIMES 59548 . 59804) (
-.FDIFFERENCE 59806 . 60072) (.FQUOTIENT 60074 . 60306)) (60538 62084 (NONLOCALGO 60548 . 61488) (
-CNTDWN 61490 . 61828) (JUMPAROUND 61830 . 62082)) (62332 63275 (FN2 62342 . 62566) (FN3 62568 . 62795)
- (FN1 62797 . 63019) (.IVAR 63021 . 63273)) (63566 64949 (.GETP 63576 . 63618) (.GETPROP 63620 . 63668
-) (.RPLACA 63670 . 63897) (.RPLACD 63899 . 64126) (.FRPLACA 64128 . 64357) (.GET 64359 . 64490) (
-.FRPLACD 64492 . 64721) (.ASSOC 64723 . 64767) (.LENGTH 64769 . 64811) (.LAST 64813 . 64851) (.GETHASH
- 64853 . 64901) (.FMEMB 64903 . 64947)) (66825 69610 (.CONS 66835 . 66877) (LIST0 66879 . 67098) (
-LIST1 67100 . 67138) (LIST2 67140 . 67182) (LIST3 67184 . 67230) (LIST4 67232 . 67459) (LIST5 67461 . 
-67690) (LIST6 67692 . 67923) (LIST7 67925 . 68158) (LIST8 68160 . 68395) (LIST9 68397 . 68634) (LIST10
- 68636 . 68875) (LIST11 68877 . 69118) (LIST12 69120 . 69362) (LIST13 69364 . 69608)) (70456 70937 (
-.CAR 70466 . 70502) (.CDR 70504 . 70540) (.CAAR 70542 . 70580) (.CDAR 70582 . 70620) (.CADR 70622 . 
-70660) (.CDDR 70662 . 70700) (.CAAAAR 70702 . 70935)) (71304 71688 (.LAM0 71314 . 71354) (..LAM0 71356
- . 71409) (.LAM1 71411 . 71451) (..LAM1 71453 . 71532) (.NLAML 71534 . 71618) (LAM1LOC 71620 . 71686))
- (72373 78386 (.PROGS 72383 . 75049) (.SPEC 75051 . 76590) (.COND 76592 . 77472) (.DELBIND 77474 . 
-78384)) (78774 79492 (T1 78784 . 78813) (T0 78815 . 78844) (TT 78846 . 78875) (TNIL 78877 . 78910) (
-T-1 78912 . 78943) (T2 78945 . 78974) (T12 78976 . 79007) (T377 79009 . 79042) (T400Q 79044 . 79167) (
-T-400 79169 . 79204) (TSTR 79206 . 79330) (.NILARGS 79332 . 79490)) (80021 82831 (.BIND0 80031 . 80185
-) (.BIND1 80187 . 80578) (.BIND2 80580 . 80972) (.BIND3 80974 . 81411) (.BIND4 81413 . 81850) (
-.BINDASSOC 81852 . 82124) (.BIND5 82126 . 82530) (.BINDPOP 82532 . 82829)) (84968 85553 (LAM0 84978 . 
-85007) (LAM1 85009 . 85143) (LAMA 85145 . 85277) (NLAML 85279 . 85415) (NLAMA 85417 . 85551)) (85554 
-90847 (.SELECTQ 85564 . 86277) (.SUBFNS 86279 . 86775) (.MISC 86777 . 87069) (.FORTEST 87071 . 87330) 
-(.BIGCOND 87332 . 87603) (.RECORDTEST 87605 . 88538) (.PROGRETURN 88540 . 88835) (.ALWAYSFALSE 88837
- . 89109) (.ALWAYSTRUE 89111 . 89333) (.EQ1 89335 . 89802) (.EQ2 89804 . 90340) (.EQ3 90342 . 90845)))
-))
-STOP
diff --git a/internal/COMPTEST.LCOM b/internal/COMPTEST.LCOM
deleted file mode 100644
index 4aabb3ab..00000000
Binary files a/internal/COMPTEST.LCOM and /dev/null differ
diff --git a/internal/DO-TEST b/internal/DO-TEST
deleted file mode 100644
index 59886fec..00000000
Binary files a/internal/DO-TEST and /dev/null differ
diff --git a/internal/DO-TEST.LCOM b/internal/DO-TEST.LCOM
deleted file mode 100644
index fb8a74a7..00000000
Binary files a/internal/DO-TEST.LCOM and /dev/null differ
diff --git a/internal/DO-TEST.TEDIT b/internal/DO-TEST.TEDIT
deleted file mode 100644
index 93d5255c..00000000
--- a/internal/DO-TEST.TEDIT
+++ /dev/null
@@ -1,165 +0,0 @@
-Writing Software Tests
What File to Load; Conventions
Load the file {Eris}<Lispcore>Internal>Library>Do-Test.DFasl.
All the symbols mentioned in this document are in both the IL: and XCL-TEST: packages, unless otherwise stated.
You should also read the How-To sheet on writing AR Test Cases.
Main Testing Entry Points
(DEFTEST name&options forms)	[Definer]
This is the definer for tests, allowing them to be saved on file-managed files.  The test succeeds if the final form returns a non-NIL result.  If name&options isn't a list, then it's just the name which can be a symbol or string; symbols are preferred for DEFTEST tests.  If you specify options, the CAR of name&options is the name.  If you specify :COMPILED in name&options, the test will run only when it has been compiled.  Since this test is stored as structure rather than as plain text, any symbols will be package-qualified appropriately. If a test fails or an error occurs during evaluation, a message is printed to *ERROR-OUTPUT*.
Unless you have DFNFLG set to PROP, the act of defining a test also causes it to be run (so you'll see if your test fails right away).
Examples:
	(DEFTEST AR1000	; For AR test cases, the test name should be ARar#.
	   (= 3 (+ 1 2)))	; Real simple test of +
	(DEFTEST (+-OPT :COMPILED)	; A test of the compiler, only makes sense to run compiled.
	   (= 3 (+ 1 1 1)))		; Checking that +'s optimizer does the right thing.
	(DEFTEST (MS-TEST :INTERPRETED)	; A test of Masterscope, only makes sense interpreted.
	   (TEST-DEFUN FN (X) (FOO X))
	   (\. IS FOO CALLED BY FN))
(DEFTESTGROUP name&options forms)	[Definer]
This is the definer for groups of tests, allowing them to be saved on file-managed files.  For associating a group of tests.  For instance, a group of tests may all require the same setup and cleanup. If there are any options (see below) then the CAR of name&options is the name and the CDR is a keyword/value list. All forms must be DEFTEST or DO-TEST forms.
Unless you have DFNFLG set to PROP, the act of defining a test group also causes it to be run (so you'll see if your tests fail right away).
:before	 allows for a setup form for a group of tests.
:after	 allows a form to be run after the tests without affecting results.
The normal form of a DEFTESTGROUP using all its features is:
	(DEFTESTGROUP
		(UNWIND-OPCODE-TESTS
		  :BEFORE (progn (before-form-1) (before-form-2)...)
		  :AFTER  (progn (after-form-1) (after-form-2))
		)
		(DEFTEST "first test" ....)
		(DEFTEST "second test" ....)
	)
Functions You'll Find Useful When Building Tests
(EXPECT-ERRORS (error-types) forms)	[Macro]
Error-types is a list of errors that may occur while executing the forms. If one of the listed errors occurs, EXPECT-ERRORS returns (values t error-that-occurred), otherwise NIL.  If all you want to do is make sure that an error is signalled somewhere in the test, you can specify an error-types of T. Normal use of this form is:
	(DEFTEST ERROR-CHECK
		(EXPECT-ERRORS (T)
			(THIS-FORM 'SHOULD 'ERROR)))
	(DEFTEST (+-DETECTS-NILS :INTERPRETED)
		(EXPECT-ERRORS (XCL:TYPE-MISMATCH)
			(+ 3 NIL)))
(TEST-SETQ Variable Value)
(TEST-DEFUN name (arglist) forms)
(TEST-DEFMACRO name (arglist) forms)	[Macros]
These work like SETQ, DEFUN, and DEFMACRO, except that if they are executed within a DEFTEST or DEFTESTGROUP, their effects are manually undone (old values are saved and then restored) upon leaving the test. Use these in :BEFORE forms that a whole group of DEFTESTs want to see. DON'T use TEST-SETQ on locally-bound variables or in loops.
Commands and Functions for Running Tests
run Test-name	[EXEC Command]
Once Test-name has been defined using DEFTEST or DEFTESTGROUP, you can run the test with the run command.
(DO-TEST-FILE filename)
Reads and executes a file of tests.  All forms in the file are read before any are executed. The file should be clear text (clearput in TEdit) and terminate with a STOP.  The format for test names is 
Chap#[-sec#[-subsec#]]-comment.TEST
(DO-ALL-TESTS &key (results *test-batch-results*)
				     (patterns *test-file-pattern*)
				     (sysout-type nil)
				     (resume nil))
Calls DO-TEST-FILE on each file that matches patterns, which is a list of directory patterns, and prints the results to a new version of a file named results. If results is T, results are printed to the window where DO-ALL-TESTS is running. The header of the results file is a message of the date and time the tests are being run and the MAKESYSDATE of the sysout; if sysout-type is supplied, a line for it goes out too. If resume is non-NIL, DO-ALL-TESTS attempts to resume an interrupted test sequence, appending the results onto the latest version of results.
*TEST-MODE*	[Variable]
Default is :batch, which means to report test failures and errors on *ERROR-OUTPUT* (which is usually a file), and continue.  Other values possible are: :interactive which means to print a message before running each test, print another message for test failures, and produce a break window on errors. :batch-verbose which means to generate all the messages of :interactive and do not break on errors.
*TEST-BATCH-RESULTS*	[Variable]
Defaults to "{eris}<lispcore>cml>test>test-results"
*TEST-FILE-PATTERN*	[Variable]
Defaults to ("{eris}<lispcore>cml>test>*.test;" "{eris}<lispcore>cml>test>*.x") which runs all the internal tests.
*TEST-COMPILE*	[Variable]
If this switch is non-nil, DO-TEST compiles its forms before testing them. DO-ALL-TESTS will print a message in its header if this switch is on.
*ALL-FILES-REMAINING*	[Variable]
While DO-ALL-TESTS is running, this variable contains a list of all the files remaining to be processed; files are removed from it AFTER they are read and executed. To restart a test run that somehow crashes the test driver, first clean up whatever blew up the run (if necessary, dump *ALL-FILES-REMAINING* to a file and get a new sysout), then do
(DO-ALL-TESTS :RESUME T [:RESULTS "wherever"]).
Internal Functions
(DO-TEST name&options forms)	[Macro]
This is the obsolete, plain-test-file testing macro; it is still around so that old tests work (and because DEFTEST uses it).  A test succeeds if the final form returns a non-nil result.  If name&options isn't a list, then it's just the name which can be an atom or string; strings are preferred.  If you specify options, the CAR of name&options is the name.  If you specify :COMPILED in name&options, the test will run only when it has been compiled.  Forms are presumed to be read with the Common Lisp reader in package XCL-TEST, which uses LISP and XCL. If a test fails or an error occurs during evaluation, a message is printed to *ERROR-OUTPUT*.
(DO-TEST-GROUP name&options forms)	[Macro]
This is the obsolete, plain-test-file testing macro; it is still around so that old tests work (and because DEFTESTGROUP uses it).  For associating a group of tests.  For instance, a group of tests may all require the same setup and cleanup. If there are any options (see below) then the CAR of name&options is the name and the CDR  is a keyword/value list. All forms must be DO-TEST forms.
:before	 allows for a setup form for a group of tests.
:after	 allows a form to be run after the tests without affecting results.

The normal form of a DO-TEST-GROUP using all its features is:
(DO-TEST-GROUP
	("a test group"
	:BEFORE (progn (before-form-1) (before-form-2)...)
	:AFTER (progn (after-form-1) (after-form-2))
	)
	(DO-TEST "first test" ....)
	(DO-TEST "second test" ....)
)
(CL-READFILE filename)
Reads all forms in filename and returns a list of them. This function is used by DO-TEST-FILE to read test files; test writers who want to see if their files are syntactically valid should first see if CL-READFILE will read them, then see if DO-TEST-FILE will execute them.
(MUNG-TEST-FILES filepattern &key (compiler 'compile-file)
						  (startinglist NIL))
Compiles test files so they can be run by just loading them.  Compiles all files matching filepattern (which is fed to directory) using compiler and writes them out to the directory they came from with an extension appropriate to compiler.  If you want to explicitly specify the list of files to compile, hand a list of pathnames to startinglist.  Prints an error message for files that fail to compile.  You have to use this function (instead of just compiling the test files) because it prefaces the test files with (in-package "XCL-TEST") and (setq *test-file-name* "NAME-OF-FILE") so the compiler will read them properly and the files will know their names for error reporting purposes.  NOTE: tests that fail should not be compiled; the resulting compiled code may not be a valid test.
,;�$Z�;�$Z�8�$�8�$�8�$�5$,
-MODERNMODERNMODERN
-MODERN
-TERMINAL
-?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
-GACHA
-
-TIMESROMAN
-
-TIMESROMAN
-
-TIMESROMAN
->
-p
-@
-	
-p
-
-�
-+
-A�
-
-�
-
-
-/;5!7>
-�
-
-
-
-	
-
-
-�
-0
-E
-
-
-�1	
-8
-&
-
3
-k
-#
-
-J
-9
-
-
-
-
-
-
-
-
-
-
-
-
-,
-^
-
-
-
-	
-	)
-)	
-
-	O
-
-
-
-�
-!
-$
-
-
-
-	
-
-
-	
-
-
-	
-
-
-
-
-
-_
-
-/
-n
-
--
-
-
-c
-
-
-
-4
-F
-�
--
-
-
-4
-
-s
-
-
-)
-:
-
-
-
-*
-
-		
-�
-
-�
-+
-AE
-

-
-P
-
-	
- 
-
-
-
-	
-
-0
-E
-
-
-

-4.

-
-6
-m
-
-
-
-
-

-	
-
-
-Z
-
-
-
-V
-_
-�
-
-&k
-	_
-!��z�
\ No newline at end of file
diff --git a/internal/DO-TEST.pdf b/internal/DO-TEST.pdf
deleted file mode 100644
index 37f4621d..00000000
Binary files a/internal/DO-TEST.pdf and /dev/null differ
diff --git a/internal/DTEST.TEDIT b/internal/DTEST.TEDIT
deleted file mode 100644
index 1e2218e2..00000000
--- a/internal/DTEST.TEDIT
+++ /dev/null
@@ -1 +0,0 @@
-Running DSKTEST
The Disk-file-system test utility

1.	Load the file DSKTEST.DCOM from whichever directory & server it is stored on.
2.	Type
	(DSKTEST '{DSK}<LISPFILES> 
\ No newline at end of file
diff --git a/internal/MACROTEST b/internal/MACROTEST
deleted file mode 100644
index 1ac0281b..00000000
--- a/internal/MACROTEST
+++ /dev/null
@@ -1,1493 +0,0 @@
-(FILECREATED "18-Mar-86 21:13:28" {ERIS}<LISPCORE>LIBRARY>MACROTEST.;12 125367Q
-
-      changes to:  (VARS MACROTESTCOMS)
-                   (FNS !CHARTEST !CHARFILETEST !STRPOSTEST)
-
-      previous date: " 7-Jul-85 12:18:31" {ERIS}<LISPCORE>LIBRARY>MACROTEST.;10)
-
-
-(* Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986 by Xerox Corporation. All rights reserved.)
-
-(PRETTYCOMPRINT MACROTESTCOMS)
-
-(RPAQQ MACROTESTCOMS ((E (RADIX 8))
-                          (DECLARE: EVAL@COMPILE DONTCOPY (MACROS MTHELP MTCHECKSTK CKEQ CKFEQ 
-                                                                 CKFUZZYEQ MTCHECK MTCHECK1))
-                          (FNS !DIAGNOSE !DIAGNOSELP)
-                          (* "Basic entries")
-                          (INITVARS (ERRORMESSAGESTREAM T)
-                                 (!MTALLOWINEXACTFLG T)
-                                 (!MTUSERAIDFLG T))
-                          (FNS !CKEQ !CKFEQ !CKFUZZYEQ !MRAID)
-                          (* "Utility fns")
-                          (FNS !CONSTEST !COPY !SMASH !APPENDTEST)
-                          (FNS !INTERPTEST !CHECKARGS !CHECKLSTARARG !CHECKLSTARSETARG)
-                          (* "CONS and RPLAC tests")
-                          (FNS !GCTEST !GCTEST1 !GCTEST2 !GCTESTSETF !GCTESTSETG)
-                          (* "Test of garbage collector")
-                          (FNS MINILOGOUT)
-                          (* "File MACROTESTAUX contains freevar and numeric tests")
-                          (FNS !CHARTEST !STRPOSTEST !CHARFILETEST)
-                          (DECLARE: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (FILES MACROTESTAUX))))
-(DECLARE: EVAL@COMPILE DONTCOPY 
-(DECLARE: EVAL@COMPILE 
-[PUTPROPS MTHELP MACRO (X (LIST (QUOTE !MRAID)
-                                (COND ((CDR X)
-                                       (CONS (QUOTE LIST)
-                                             X))
-                                      (T (CAR X]
-[PUTPROPS MTCHECKSTK MACRO (ARGS (SUBPAIR (QUOTE (ARGS ID))
-                                        (LIST ARGS (RAND 1 MAX.SMALLP))
-                                        (QUOTE (OR (EQ (PROG1 ID . ARGS)
-                                                       ID)
-                                                   (RAID (QUOTE WRONG#PUSHED]
-(PUTPROPS CKEQ MACRO ((FORM ANSWER)
-                      ([LAMBDA (Password Result)
-                              (DECLARE (LOCALVARS Password Result))
-                              (OR (EQ Password (QUOTE 343Q))
-                                  (RAID (QUOTE WRONG#PUSHED)))
-                              (!CKEQ Result ANSWER (QUOTE FORM]
-                       (QUOTE 343Q)
-                       FORM)))
-(PUTPROPS CKFEQ MACRO ((FORM ANSWER)
-                       ([LAMBDA (Password Result)
-                               (DECLARE (LOCALVARS Password Result))
-                               (OR (EQ Password (QUOTE 343Q))
-                                   (RAID (QUOTE WRONG#PUSHED)))
-                               (!CKFEQ Result ANSWER (QUOTE FORM]
-                        (QUOTE 343Q)
-                        FORM)))
-(PUTPROPS CKFUZZYEQ MACRO ((FORM ANSWER)
-                           ([LAMBDA (Password Result)
-                                   (DECLARE (LOCALVARS Password Result))
-                                   (OR (EQ Password (QUOTE 343Q))
-                                       (RAID (QUOTE WRONG#PUSHED)))
-                                   (!CKFUZZYEQ Result ANSWER (QUOTE FORM]
-                            (QUOTE 343Q)
-                            FORM)))
-[PUTPROPS MTCHECK MACRO (Y (CONS (QUOTE MTCHECKSTK)
-                                 (MAPCAR Y (FUNCTION (LAMBDA (X)
-                                                            (LIST (QUOTE MTCHECK1)
-                                                                  X]
-[PUTPROPS MTCHECK1 MACRO ((X)
-                          (OR X (MTHELP (QUOTE (Failed: X]
-)
-)
-(DEFINEQ
-
-(!DIAGNOSE
-  [LAMBDA NIL                                                (* JonL " 7-Nov-84 19:20")
-    (!NUMBERTEST)
-    (!FNUMTEST)
-    (!MIXNUMTEST)
-    (!GCTEST)
-    (!CONSTEST)
-    (!FVARTEST)
-    (!INTERPTEST)
-    (CHECKCONSPAGES])
-
-(!DIAGNOSELP
-  (LAMBDA NIL                                                (* JonL " 7-Nov-84 18:42")
-    (PROG ((I 0))
-      LP  (!DIAGNOSE)
-          (\STOPDISPLAY)
-          (\RELEASEWORKINGSET)
-          (\STARTDISPLAY)
-          (printout T "Pass " (add I 1)
-		    " completed." T)
-          (GO LP))))
-)
-
-
-
-(* "Basic entries")
-
-
-(RPAQ? ERRORMESSAGESTREAM T)
-
-(RPAQ? !MTALLOWINEXACTFLG T)
-
-(RPAQ? !MTUSERAIDFLG T)
-(DEFINEQ
-
-(!CKEQ
-  (LAMBDA (RESULT ANSWER FORM)                               (* JonL " 7-Nov-84 17:20")
-    (OR (EQ RESULT ANSWER)
-	(AND (EQ (NTYPX RESULT)
-		 (NTYPX ANSWER))
-	     (EQUAL RESULT ANSWER))
-	(!MRAID (LIST FORM (QUOTE =>)
-		      RESULT
-		      (QUOTE should-have-been)
-		      ANSWER)))))
-
-(!CKFEQ
-  (LAMBDA (RESULT ANSWER FORM)                               (* JonL " 7-Nov-84 17:20")
-    (OR (AND (FLOATP RESULT)
-	     (FEQP RESULT ANSWER))
-	(!MRAID (LIST FORM (QUOTE =>)
-		      RESULT
-		      (QUOTE should-have-been)
-		      ANSWER)))))
-
-(!CKFUZZYEQ
-  (LAMBDA (X Y)                                              (* JonL " 7-Nov-84 17:21")
-                                                             (* Essentially FEQP except that the low-order bit is 
-							     ignored.)
-    (OR (AND (FLOATP X)
-	     (FLOATP Y))
-	(!MRAID "An arg to CKFUZZYEQ is non-FLOATP"))
-    (AND (EQ (BITCLEAR (fetch (FLOATP LOWORD) of X)
-		       1)
-	     (BITCLEAR (fetch (FLOATP LOWORD) of Y)
-		       1))
-	 (OR (EQ (fetch (FLOATP HIWORD) of X)
-		 (fetch (FLOATP HIWORD) of Y))
-	     (AND (EQ 0 (fetch (FLOATP HIWORDNOSIGNBIT) of X))
-		  (EQ 0 (fetch (FLOATP HIWORDNOSIGNBIT) of Y)))))))
-
-(!MRAID
-  (LAMBDA (MESS1 MESS2 FLG)                                  (* JonL " 7-Nov-84 17:28")
-    (if !MTUSERAIDFLG
-	then (RAID MESS1 MESS2 FLG)
-      else (printout ERRORMESSAGESTREAM "[RAID-level error] " MESS1 MESS2 T))))
-)
-
-
-
-(* "Utility fns")
-
-(DEFINEQ
-
-(!CONSTEST
-  (LAMBDA NIL                                                (* JonL " 7-Nov-84 19:18")
-    (PROG (A B C D)
-          (MTCHECKSTK (PROG1 NIL (SETQ A (CONS (QUOTE A)
-					       (QUOTE B)))
-			     (MTCHECK (EQ (CAR A)
-					  (QUOTE A))
-				      (EQ (CDR A)
-					  (QUOTE B)))
-			     (SETQ A (CONS (QUOTE A)
-					   (SETQ B (QUOTE (D E F)))))
-			     (MTCHECK (EQ (CAR A)
-					  (QUOTE A))
-				      (EQ (CDR A)
-					  B))
-			     (SETQ A (DOCOLLECT (CONS 1)))
-			     (MTCHECK (EQUAL (CAR A)
-					     (QUOTE (1)))
-				      (EQ (CDR A)
-					  A)
-				      (EQ (\REFCNT A)
-					  1)
-				      (EQ (\REFCNT (CAR A))
-					  1))
-			     (for X on (CDR (for I from 1 to 400Q collect (CONS I)))
-				do (MTCHECK (EQ (\REFCNT X)
-						1))
-				   (EQ (\REFCNT (CAR X))
-				       1))
-			     (SETQ D (for I from 0 to 1000Q collect (LIST I)))
-			     (for X on D do (PROG ((Y (CDR X))
-						   (AX (CAR X))
-						   (AY (CADR X))
-						   (DY (CDDR X)))
-					          (OR Y (RETURN))
-					          (MTCHECK (PROGN (swap (CAR X)
-									(CAR Y))
-								  (AND (EQ (CAR X)
-									   AY)
-								       (EQ (CAR Y)
-									   AX))))
-					          (MTCHECK (PROGN (swap (CDR Y)
-									(CDR X))
-								  (AND (EQ (CDR X)
-									   DY)
-								       (EQ (CDR Y)
-									   Y))))
-					          (MTCHECK (PROGN 
-                                                             (* Now put them back)
-								  (swap (CAR X)
-									(CAR Y))
-								  (swap (CDR Y)
-									(CDR X))
-								  (AND (EQ Y (CDR X))
-								       (EQ (CAR X)
-									   AX)
-								       (EQ (CAR Y)
-									   AY))))))
-			     (for VAR in (LIST NIL D "A STRING")
-				do (for X on D do (MTCHECK (EQ (PROG1 (CDR X)
-								      (swap (CDR X)
-									    VAR)
-								      (swap (CDR X)
-									    VAR))
-							       (CDR X)))))
-			     (for X on (CDR D) do (MTCHECK (EQ (\REFCNT X)
-							       1)
-							   (EQ (\REFCNT (CAR X))
-							       1)))
-			     (for I from 0 to 1000Q do (MTCHECK (EQUAL (pop D)
-								       (LIST I))))
-			     (for X
-				in (QUOTE ((((A) . B))
-					    (A B)
-					    ((A B . C))
-					    ((A B C D . E))
-					    ((A . B)
-					     (C . D)
-					     (E . F)
-					     ((((((((((((((G)))))))))))))))
-					    (1 2 3 4 5 6 7 10Q 11Q 12Q 13Q 14Q 15Q 16Q 17Q 20Q 21Q 22Q
- 23Q 24Q)))
-				bind Y K Z
-				do (MTCHECK (EQUAL X (SETQ Y (!COPY X))))
-				   (MTCHECK (EQUAL X (SETQ Z (COPY X))))
-				   (MTCHECK (EQUAL X (SETQ Z (!SMASH Z))))
-				   (MTCHECK (EQUAL X (SETQ K (MAPCAR X (FUNCTION (LAMBDA (YY)
-									 YY))))))))))))
-
-(!COPY
-  (LAMBDA (X)                                                (* lmm "25-FEB-81 21:47")
-    (COND
-      ((NLISTP X)
-	X)
-      (T (CONS (!COPY (CAR X))
-	       (!COPY (CDR X)))))))
-
-(!SMASH
-  (LAMBDA (X)                                                (* bvm: "14-JAN-82 17:04")
-    (COND
-      ((LISTP X)
-	(RPLACD (RPLACA X (!SMASH (CAR X)))
-		(!SMASH (CDR X))))
-      ((NULL X)
-	(RPLACA (RPLACD X X)
-		X))
-      (T X))))
-
-(!APPENDTEST
-  (LAMBDA NIL                                                (* JonL "16-Dec-84 21:06")
-    (to 1750Q do (MTCHECK (EQUAL (QUOTE (A B C D))
-				 (APPEND (QUOTE (A B))
-					 (QUOTE (C D))))))
-    (to 1000Q do (MTCHECK (EQUAL (QUOTE (A B . C))
-				 (APPEND (QUOTE (A B))
-					 (QUOTE C)))))))
-)
-(DEFINEQ
-
-(!INTERPTEST
-  (LAMBDA NIL                                                (* lmm "30-MAY-83 19:40")
-    (PROG (INTERPDEF ANON)
-          (PUTD (QUOTE !INTERPTESTER)
-		(SETQ INTERPDEF (LIST (QUOTE LAMBDA)
-				      NIL
-				      (QUOTE (!CHECKARGS)))))
-          (for FORMAL in (QUOTE (NIL (A)
-				     (A B)
-				     (A B C)
-				     (A B C D)
-				     (A B C D E)
-				     (A B C D E F)
-				     N))
-	     do (RPLACA (CDR INTERPDEF)
-			FORMAL)
-		(for ACTUAL in (QUOTE (NIL (1)
-					   (1 2)
-					   (1 2 3)
-					   (1 2 3 4)
-					   (1 2 3 4 5)
-					   (1 2 3 4 5 6)))
-		   do (SETQ ANON T)
-		      (APPLY INTERPDEF ACTUAL)
-		      (EVAL (CONS INTERPDEF ACTUAL))
-		      (SETQ ANON)
-		      (APPLY (QUOTE !INTERPTESTER)
-			     ACTUAL)
-		      (EVAL (CONS (QUOTE !INTERPTESTER)
-				  ACTUAL))
-		      (COND
-			((EQ FORMAL (QUOTE N))
-			  (APPLY (QUOTE (LAMBDA N (PROG ((I 1))
-						    LP  (COND
-							  ((NOT (IGREATERP I N))
-							    (!CHECKLSTARARG I (ARG N I))
-							    (SETQ I (ADD1 I))
-							    (GO LP)))
-						        (SETQ I 1)
-						    LP2 (COND
-							  ((NOT (IGREATERP I N))
-							    (SETARG N I (IPLUS 310Q I))
-							    (!CHECKLSTARSETARG I (ARG N I))
-							    (SETQ I (ADD1 I))
-							    (GO LP2))))))
-				 ACTUAL)))))
-          (PROG (A B C D)
-	        (for PAIR in (QUOTE ((3 3)
-				      (T T)
-				      (NIL NIL)
-				      ((SETQ FOOVAR 3)
-				       3)
-				      (A NIL)
-				      (B NIL)
-				      (C NIL)
-				      (D NIL)
-				      ((SETTOPVAL (QUOTE FOOVAR)
-						  45Q)
-				       45Q)
-				      (FOOVAR 45Q)
-				      ((SETQ A 47Q)
-				       47Q)
-				      ((SETQ B 57Q)
-				       57Q)
-				      ((SETQ C 102Q)
-				       102Q)
-				      (A 47Q)
-				      (B 57Q)
-				      (C 102Q)
-				      ((PROG NIL
-					     (RETURN 14Q))
-				       14Q)
-				      ((PROG NIL
-					     (GO L1)
-					 L1  (RETURN 145Q)
-					     (RETURN 146Q)
-					     (RETURN 147Q))
-				       145Q)
-				      ((PROG ((A 504Q))
-					     (RETURN A))
-				       504Q)
-				      ((PROG ((A 1777Q)
-					      (B 634Q))
-					     (OR (AND (EQ A 1777Q)
-						      (EQ B 634Q))
-						 (MTHELP)))
-				       NIL)))
-		   do (OR (EQ (EVAL (CAR PAIR))
-			      (CADR PAIR))
-			  (MTHELP PAIR "TEST FAILED")))
-	        (OR (AND (EQ A 47Q)
-			 (EQ B 57Q)
-			 (EQ C 102Q)
-			 (EQ FOOVAR 45Q))
-		    (MTHELP (QUOTE (COMPILEVAL))))))))
-
-(!CHECKARGS
-  (LAMBDA NIL
-    (DECLARE (USEDFREE ACTUAL ANON FORMAL INTERPDEF A B C D E F N))
-                                                             (* JonL " 7-Nov-84 17:15")
-    (COND
-      ((LISTP FORMAL)
-	(for Y in FORMAL as (X _ ACTUAL) bind VAL by (CDR X)
-	   do (COND
-		((OR (NEQ (SETQ VAL (SELECTQ Y
-					     (A A)
-					     (B B)
-					     (C C)
-					     (D D)
-					     (E E)
-					     (F F)
-					     (SHOULDNT)))
-			  (CAR X))
-		     (NEQ (SETQ VAL (EVALV Y))
-			  (CAR X)))
-		  (MTHELP Y "Free Value wrong - was " VAL "should be" (CAR X))))))
-      (FORMAL (OR (AND (EQ (EVALV FORMAL)
-			   (LENGTH ACTUAL))
-		       (EQ N (EVALV FORMAL)))
-		  (MTHELP (QUOTE ARGCOUNT)))
-	      (for I from 1 to N as X in ACTUAL do (OR (EQ (ARG N I)
-							   X)
-						       (MTHELP (QUOTE ARG)
-							       I)))))
-    (PROG ((FRAME (REALSTKNTH -1 (QUOTE !CHECKARGS)))
-	   SCANFRAME NARGS NAME)
-          (OR FRAME (MTHELP "Interpreter frame not found"))
-          (OR (EQ (COND
-		    (ANON INTERPDEF)
-		    (T (QUOTE !INTERPTESTER)))
-		  (SETQ NAME (STKNAME FRAME)))
-	      (MTHELP "Interpreter frame name wrong:" NAME))
-          (for X in FORMAL
-	     do (OR (EQP FRAME (SETQ SCANFRAME (STKSCAN X)))
-		    (MTHELP "STKSCAN failed for var" X))
-		(RELSTK SCANFRAME))
-          (OR (IGEQ (SETQ NARGS (STKNARGS FRAME))
-		    (LENGTH FORMAL))
-	      (MTHELP "STKNARGS WRONG" NARGS))
-          (RELSTK FRAME))))
-
-(!CHECKLSTARARG
-  (LAMBDA (I VAL)                                            (* bvm: "26-SEP-81 21:19")
-    (OR (EQ VAL (CAR (NTH ACTUAL I)))
-	(MTHELP "INTERPRETED ARG" I))))
-
-(!CHECKLSTARSETARG
-  (LAMBDA (I VAL)                                            (* bvm: "26-SEP-81 21:20")
-    (OR (EQ VAL (IPLUS I 310Q))
-	(MTHELP "INTERPRETED SETARG" I))))
-)
-
-
-
-(* "CONS and RPLAC tests")
-
-(DEFINEQ
-
-(!GCTEST
-  [LAMBDA NIL                                                (* bvm: "30-NOV-81 17:23")
-    (!GCTEST1)
-    (!GCTEST2])
-
-(!GCTEST1
-  [LAMBDA NIL
-    (DECLARE (GLOBALVARS !GV1 !GV2 !GV3))                    (* JonL "16-Mar-84 12:10")
-    (PROG (A B C D E)
-          (MTCHECK (PROGN (SETQ A (CONS 1 2))
-			  (EQ (\REFCNT A)
-			      0))
-		   (PROGN (SETQ B (CONS A))
-			  (AND (EQ (\REFCNT A)
-				   1)
-			       (EQ (\REFCNT B)
-				   0)))
-		   (PROGN (SETQ C (CONS A))
-			  (AND (EQ (\REFCNT A)
-				   2)
-			       (EQ (\REFCNT C)
-				   0)))
-		   (PROGN (RPLACA B (QUOTE FOO))
-			  (AND (EQ (\REFCNT A)
-				   1)
-			       (EQ (\REFCNT B)
-				   0)))
-		   (PROGN (RPLACA C (QUOTE FUM))
-			  (AND (EQ (\REFCNT A)
-				   0)
-			       (EQ (\REFCNT C)
-				   0)))
-		   (PROGN (RPLACD C (SETQ D (CONS)))
-			  (EQ (\REFCNT D)
-			      1))
-		   (PROGN (RPLACD C (SETQ E (CONS)))
-			  (AND (EQ (\REFCNT D)
-				   0)
-			       (EQ (\REFCNT E)
-				   1)))
-		   (PROGN (SETQ !GV1 NIL)
-			  (EQ (\REFCNT !GV1)
-			      1))
-		   (PROGN (SETQ !GV1 E)
-			  (EQ (\REFCNT E)
-			      2))
-		   (PROGN (SETQ !GV1 A)
-			  (AND (EQ (\REFCNT E)
-				   1)
-			       (EQ (\REFCNT A)
-				   1)))
-		   (PROGN (SETQ !GV3 A)
-			  (EQ (\REFCNT A)
-			      2))
-		   (PROGN (SETQ !GV2 C)
-			  (EQ (\REFCNT C)
-			      1])
-
-(!GCTEST2
-  [LAMBDA NIL                                                (* JonL "16-Mar-84 14:03")
-    (PROG ((A (CONS (QUOTE FOO)))
-	   (I 0)
-	   (REFARRAY (ARRAY 200Q (QUOTE POINTER)
-			    NIL 0)))
-          [RPTQ 106Q (MTCHECK (PROGN (SETA REFARRAY (add I 1)
-					   A)
-				     (EQ (\REFCNT A)
-					 I]
-          (RPTQ 106Q (MTCHECK (PROGN (SETA REFARRAY (PROG1 I (add I -1))
-					   NIL)
-				     (EQ (\REFCNT A)
-					 I])
-
-(!GCTESTSETF
-  (LAMBDA NIL                                                (* JonL "16-Mar-84 12:17")
-    (PROG ((A1 (VAG2 71Q 442Q))
-	   (A2 (VAG2 72Q 442Q))
-	   (A3 (VAG2 70Q 442Q))
-	   (A4 (VAG2 67Q 442Q))
-	   (A5 (VAG2 66Q 442Q)))                             (* 5 array pointers that will hash to same place)
-
-          (* (PROG ((STATE (for X in (QUOTE (A1 A2 A3 A4 A5)) collect (LIST X 1))) FORMS FORM BOX1STATE BOX2STATE) 
-	  (FRPTQ 12Q (FRPTQ 12Q (SETQ VAR (CAR (NTH STATE (RAND 1 5)))) (PROG NIL RETRY (SELECTQ (RAND 1 4) 
-	  (1 (COND (BOX1STATE (COND ((ZEROP (CADR BOX1STATE)) (GO RETRY))) (add (CADR BOX1STATE) -1))) 
-	  (add (CADR VAR) 1) (SETQ BOX1STATE VAR) (push FORMS (LIST (QUOTE SETQ) (QUOTE !FVAR1) (CAR VAR)))) 
-	  (2 (COND (BOX2STATE (COND ((ZEROP (CADR BOX2STATE)) (GO RETRY))) (add (CADR BOX2STATE) -1))) 
-	  (add (CADR VAR) 1) (SETQ BOX2STATE VAR) (push FORMS (LIST (QUOTE SETQ) (QUOTE !FVAR2) (CAR VAR)))) 
-	  (3 (add (CADR VAR) 1) (push FORMS (LIST (QUOTE \ADDREF) (CAR VAR)))) (PROGN (COND ((ZEROP (CADR VAR)) 
-	  (GO RETRY))) (add (CADR VAR) -1) (push FORMS (LIST (QUOTE \DELREF) (CAR VAR))))))) (push FORMS 
-	  (CONS (QUOTE MTCHECK) (for X in STATE collect (LIST (QUOTE EQ) (LIST (QUOTE \REFCNT) (CAR X)) 
-	  (CADR X)))))) (for X in STATE do (COND ((ZEROP (CADR X)) (push FORMS (LIST (QUOTE \ADDREF) (CAR X)))) 
-	  (T (FRPTQ (SUB1 (CADR X)) (push FORMS (LIST (QUOTE \DELREF) (CAR X))))))) (RETURN (CONS (QUOTE PROGN) 
-	  (REVERSE FORMS)))))
-
-
-          (MTCHECKSTK (\DELREF A3)
-		      (SETQ !FVAR2 A1)
-		      (SETQ !FVAR1 A3)
-		      (SETQ !FVAR2 A1)
-		      (SETQ !FVAR1 A1)
-		      (SETQ !FVAR2 A5)
-		      (\ADDREF A1)
-		      (SETQ !FVAR1 A2)
-		      (\DELREF A1)
-		      (\ADDREF A5)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   0)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   3))
-		      (SETQ !FVAR1 A5)
-		      (\ADDREF A4)
-		      (\ADDREF A2)
-		      (\ADDREF A5)
-		      (SETQ !FVAR2 A5)
-		      (SETQ !FVAR1 A4)
-		      (\ADDREF A3)
-		      (SETQ !FVAR1 A3)
-		      (SETQ !FVAR2 A2)
-		      (SETQ !FVAR2 A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   3)
-			       (EQ (\REFCNT A5)
-				   3))
-		      (\ADDREF A5)
-		      (SETQ !FVAR1 A2)
-		      (SETQ !FVAR2 A4)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR2 A5)
-		      (\DELREF A1)
-		      (SETQ !FVAR1 A1)
-		      (\DELREF A1)
-		      (\ADDREF A4)
-		      (\DELREF A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   0)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   2)
-			       (EQ (\REFCNT A5)
-				   5))
-		      (SETQ !FVAR2 A5)
-		      (\DELREF A4)
-		      (SETQ !FVAR2 A5)
-		      (\DELREF A3)
-		      (\ADDREF A1)
-		      (SETQ !FVAR1 A1)
-		      (SETQ !FVAR2 A5)
-		      (SETQ !FVAR2 A3)
-		      (\DELREF A1)
-		      (\DELREF A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   0)
-			       (EQ (\REFCNT A2)
-				   1)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   4))
-		      (SETQ !FVAR2 A1)
-		      (SETQ !FVAR2 A4)
-		      (\DELREF A4)
-		      (\ADDREF A1)
-		      (SETQ !FVAR1 A3)
-		      (SETQ !FVAR1 A5)
-		      (\ADDREF A3)
-		      (\ADDREF A1)
-		      (\ADDREF A4)
-		      (SETQ !FVAR2 A3)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   1)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   5))
-		      (SETQ !FVAR2 A2)
-		      (SETQ !FVAR1 A3)
-		      (\ADDREF A5)
-		      (SETQ !FVAR2 A1)
-		      (SETQ !FVAR2 A5)
-		      (\DELREF A2)
-		      (SETQ !FVAR2 A2)
-		      (\DELREF A2)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR1 A3)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   5))
-		      (\ADDREF A1)
-		      (\DELREF A1)
-		      (\ADDREF A5)
-		      (\ADDREF A5)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR1 A4)
-		      (SETQ !FVAR1 A4)
-		      (SETQ !FVAR1 A2)
-		      (SETQ !FVAR2 A2)
-		      (\ADDREF A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   7))
-		      (\DELREF A5)
-		      (SETQ !FVAR2 A5)
-		      (\ADDREF A2)
-		      (\ADDREF A1)
-		      (\DELREF A1)
-		      (\ADDREF A5)
-		      (SETQ !FVAR1 A3)
-		      (\ADDREF A2)
-		      (SETQ !FVAR1 A3)
-		      (\ADDREF A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   2)
-			       (EQ (\REFCNT A5)
-				   10Q))
-		      (\ADDREF A2)
-		      (\DELREF A5)
-		      (\DELREF A3)
-		      (SETQ !FVAR2 A5)
-		      (SETQ !FVAR1 A4)
-		      (SETQ !FVAR1 A2)
-		      (SETQ !FVAR1 A5)
-		      (\DELREF A5)
-		      (SETQ !FVAR2 A5)
-		      (SETQ !FVAR1 A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   4)
-			       (EQ (\REFCNT A3)
-				   0)
-			       (EQ (\REFCNT A4)
-				   2)
-			       (EQ (\REFCNT A5)
-				   6))
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR2 A5)
-		      (\DELREF A2)
-		      (SETQ !FVAR1 A1)
-		      (SETQ !FVAR2 A2)
-		      (SETQ !FVAR2 A1)
-		      (\ADDREF A5)
-		      (SETQ !FVAR2 A4)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR2 A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   3)
-			       (EQ (\REFCNT A3)
-				   0)
-			       (EQ (\REFCNT A4)
-				   2)
-			       (EQ (\REFCNT A5)
-				   7))
-		      (\DELREF A2)
-		      (\DELREF A2)
-		      (\ADDREF A3)
-		      (\DELREF A4)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (SETQ.NOREF !FVAR1 NIL)
-		      (SETQ.NOREF !FVAR2 NIL))
-          (MTCHECKSTK (\DELREF A5)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR2 A2)
-		      (\ADDREF A1)
-		      (SETQ !FVAR1 A2)
-		      (\ADDREF A4)
-		      (SETQ !FVAR1 A1)
-		      (\DELREF A2)
-		      (SETQ !FVAR2 A5)
-		      (SETQ !FVAR1 A5)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   2)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   2)
-			       (EQ (\REFCNT A5)
-				   2))
-		      (\ADDREF A4)
-		      (\DELREF A3)
-		      (\ADDREF A3)
-		      (\ADDREF A2)
-		      (SETQ !FVAR1 A4)
-		      (\ADDREF A4)
-		      (\DELREF A2)
-		      (\ADDREF A3)
-		      (SETQ !FVAR1 A2)
-		      (\ADDREF A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   2)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   4)
-			       (EQ (\REFCNT A5)
-				   1))
-		      (SETQ !FVAR2 A1)
-		      (SETQ !FVAR1 A3)
-		      (SETQ !FVAR2 A1)
-		      (SETQ !FVAR2 A3)
-		      (SETQ !FVAR1 A2)
-		      (SETQ !FVAR2 A4)
-		      (\DELREF A2)
-		      (SETQ !FVAR2 A2)
-		      (SETQ !FVAR2 A5)
-		      (SETQ !FVAR2 A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   2)
-			       (EQ (\REFCNT A2)
-				   1)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   5)
-			       (EQ (\REFCNT A5)
-				   0))
-		      (\ADDREF A3)
-		      (SETQ !FVAR2 A1)
-		      (\DELREF A1)
-		      (\ADDREF A5)
-		      (\ADDREF A5)
-		      (\ADDREF A4)
-		      (SETQ !FVAR2 A4)
-		      (SETQ !FVAR1 A5)
-		      (\ADDREF A4)
-		      (SETQ !FVAR2 A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   1)
-			       (EQ (\REFCNT A3)
-				   3)
-			       (EQ (\REFCNT A4)
-				   6)
-			       (EQ (\REFCNT A5)
-				   3))
-		      (SETQ !FVAR2 A2)
-		      (\ADDREF A1)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR1 A4)
-		      (SETQ !FVAR2 A5)
-		      (\DELREF A3)
-		      (\ADDREF A3)
-		      (SETQ !FVAR2 A5)
-		      (SETQ !FVAR2 A4)
-		      (\ADDREF A3)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   2)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   4)
-			       (EQ (\REFCNT A4)
-				   10Q)
-			       (EQ (\REFCNT A5)
-				   2))
-		      (\DELREF A3)
-		      (\ADDREF A4)
-		      (\ADDREF A5)
-		      (SETQ !FVAR2 A1)
-		      (\ADDREF A1)
-		      (\ADDREF A4)
-		      (\ADDREF A2)
-		      (\DELREF A4)
-		      (SETQ !FVAR2 A2)
-		      (\DELREF A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   3)
-			       (EQ (\REFCNT A2)
-				   1)
-			       (EQ (\REFCNT A3)
-				   3)
-			       (EQ (\REFCNT A4)
-				   10Q)
-			       (EQ (\REFCNT A5)
-				   3))
-		      (SETQ !FVAR1 A2)
-		      (SETQ !FVAR2 A1)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR1 A3)
-		      (\DELREF A3)
-		      (SETQ !FVAR1 A1)
-		      (\ADDREF A4)
-		      (\ADDREF A4)
-		      (\DELREF A3)
-		      (SETQ !FVAR1 A1)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   5)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   11Q)
-			       (EQ (\REFCNT A5)
-				   3))
-		      (SETQ !FVAR2 A1)
-		      (\ADDREF A4)
-		      (SETQ !FVAR1 A3)
-		      (SETQ !FVAR2 A3)
-		      (SETQ !FVAR1 A2)
-		      (SETQ !FVAR1 A1)
-		      (SETQ !FVAR2 A2)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR1 A5)
-		      (SETQ !FVAR2 A5)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   3)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   12Q)
-			       (EQ (\REFCNT A5)
-				   5))
-		      (SETQ !FVAR1 A3)
-		      (SETQ !FVAR2 A3)
-		      (\ADDREF A2)
-		      (SETQ !FVAR2 A5)
-		      (\ADDREF A4)
-		      (\DELREF A1)
-		      (SETQ !FVAR1 A4)
-		      (\DELREF A1)
-		      (\DELREF A2)
-		      (\ADDREF A5)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   14Q)
-			       (EQ (\REFCNT A5)
-				   5))
-		      (\ADDREF A1)
-		      (SETQ !FVAR2 A3)
-		      (SETQ !FVAR1 A4)
-		      (SETQ !FVAR1 A3)
-		      (SETQ !FVAR2 A1)
-		      (SETQ !FVAR1 A2)
-		      (\ADDREF A4)
-		      (\ADDREF A4)
-		      (\ADDREF A4)
-		      (\ADDREF A1)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   4)
-			       (EQ (\REFCNT A2)
-				   1)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   16Q)
-			       (EQ (\REFCNT A5)
-				   4))
-		      (\DELREF A1)
-		      (\DELREF A1)
-		      (\DELREF A1)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A4)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (SETQ.NOREF !FVAR1 NIL)
-		      (SETQ.NOREF !FVAR2 NIL)))))
-
-(!GCTESTSETG
-  (LAMBDA NIL                                                (* JonL "16-Mar-84 12:17")
-    (DECLARE (GLOBALVARS !GVAR1 !GVAR2))
-    (PROG ((A1 (VAG2 71Q 442Q))
-	   (A2 (VAG2 72Q 442Q))
-	   (A3 (VAG2 70Q 442Q))
-	   (A4 (VAG2 67Q 442Q))
-	   (A5 (VAG2 66Q 442Q)))                             (* 5 array pointers that will hash to same place)
-
-          (* (PROG ((STATE (for X in (QUOTE (A1 A2 A3 A4 A5)) collect (LIST X 1))) FORMS FORM BOX1STATE BOX2STATE) 
-	  (FRPTQ 12Q (FRPTQ 12Q (SETQ VAR (CAR (NTH STATE (RAND 1 5)))) (PROG NIL RETRY (SELECTQ (RAND 1 4) 
-	  (1 (COND (BOX1STATE (COND ((ZEROP (CADR BOX1STATE)) (GO RETRY))) (add (CADR BOX1STATE) -1))) 
-	  (add (CADR VAR) 1) (SETQ BOX1STATE VAR) (push FORMS (LIST (QUOTE SETQ) (QUOTE !GVAR1) (CAR VAR)))) 
-	  (2 (COND (BOX2STATE (COND ((ZEROP (CADR BOX2STATE)) (GO RETRY))) (add (CADR BOX2STATE) -1))) 
-	  (add (CADR VAR) 1) (SETQ BOX2STATE VAR) (push FORMS (LIST (QUOTE SETQ) (QUOTE !GVAR2) (CAR VAR)))) 
-	  (3 (add (CADR VAR) 1) (push FORMS (LIST (QUOTE \ADDREF) (CAR VAR)))) (PROGN (COND ((ZEROP (CADR VAR)) 
-	  (GO RETRY))) (add (CADR VAR) -1) (push FORMS (LIST (QUOTE \DELREF) (CAR VAR))))))) (push FORMS 
-	  (CONS (QUOTE MTCHECK) (for X in STATE collect (LIST (QUOTE EQ) (LIST (QUOTE \REFCNT) (CAR X)) 
-	  (CADR X)))))) (for X in STATE do (COND ((ZEROP (CADR X)) (push FORMS (LIST (QUOTE \ADDREF) (CAR X)))) 
-	  (T (FRPTQ (SUB1 (CADR X)) (push FORMS (LIST (QUOTE \DELREF) (CAR X))))))) (RETURN (CONS (QUOTE PROGN) 
-	  (REVERSE FORMS)))))
-
-
-          (MTCHECKSTK (SETQ !GVAR1 A4)
-		      (\DELREF A2)
-		      (SETQ !GVAR1 A4)
-		      (\ADDREF A3)
-		      (SETQ !GVAR1 A4)
-		      (SETQ !GVAR2 A4)
-		      (SETQ !GVAR2 A5)
-		      (SETQ !GVAR1 A2)
-		      (\DELREF A2)
-		      (\DELREF A3)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   2))
-		      (\DELREF A3)
-		      (SETQ !GVAR2 A1)
-		      (\ADDREF A4)
-		      (SETQ !GVAR2 A5)
-		      (SETQ !GVAR2 A2)
-		      (\ADDREF A3)
-		      (SETQ !GVAR1 A2)
-		      (\DELREF A4)
-		      (\DELREF A1)
-		      (\DELREF A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   0)
-			       (EQ (\REFCNT A2)
-				   1)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   1))
-		      (\DELREF A2)
-		      (\ADDREF A2)
-		      (\DELREF A3)
-		      (\ADDREF A1)
-		      (SETQ !GVAR2 A1)
-		      (\ADDREF A5)
-		      (SETQ !GVAR2 A4)
-		      (\ADDREF A5)
-		      (\ADDREF A5)
-		      (\ADDREF A1)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   2)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   0)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   4))
-		      (SETQ !GVAR2 A4)
-		      (\ADDREF A5)
-		      (SETQ !GVAR2 A5)
-		      (\ADDREF A1)
-		      (SETQ !GVAR2 A5)
-		      (SETQ !GVAR2 A2)
-		      (SETQ !GVAR1 A4)
-		      (SETQ !GVAR1 A4)
-		      (\DELREF A4)
-		      (\ADDREF A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   3)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   0)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   5))
-		      (\DELREF A5)
-		      (SETQ !GVAR1 A5)
-		      (\ADDREF A4)
-		      (\ADDREF A1)
-		      (SETQ !GVAR1 A1)
-		      (\DELREF A4)
-		      (SETQ !GVAR1 A5)
-		      (SETQ !GVAR1 A2)
-		      (\ADDREF A3)
-		      (SETQ !GVAR1 A1)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   5)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   4))
-		      (\ADDREF A2)
-		      (\DELREF A3)
-		      (SETQ !GVAR2 A4)
-		      (SETQ !GVAR2 A4)
-		      (SETQ !GVAR2 A3)
-		      (SETQ !GVAR2 A2)
-		      (\ADDREF A2)
-		      (SETQ !GVAR2 A5)
-		      (\ADDREF A4)
-		      (\DELREF A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   5)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   0)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   5))
-		      (SETQ !GVAR1 A2)
-		      (SETQ !GVAR1 A4)
-		      (\ADDREF A3)
-		      (\DELREF A4)
-		      (SETQ !GVAR1 A2)
-		      (SETQ !GVAR2 A4)
-		      (\DELREF A1)
-		      (SETQ !GVAR1 A3)
-		      (SETQ !GVAR2 A1)
-		      (SETQ !GVAR2 A5)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   3)
-			       (EQ (\REFCNT A2)
-				   0)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   5))
-		      (SETQ !GVAR2 A3)
-		      (SETQ !GVAR1 A2)
-		      (\ADDREF A1)
-		      (\ADDREF A5)
-		      (\ADDREF A2)
-		      (\DELREF A5)
-		      (\DELREF A2)
-		      (\DELREF A1)
-		      (\ADDREF A2)
-		      (SETQ !GVAR2 A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   3)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   4))
-		      (\DELREF A1)
-		      (\ADDREF A5)
-		      (\DELREF A1)
-		      (\DELREF A5)
-		      (\DELREF A3)
-		      (\ADDREF A3)
-		      (SETQ !GVAR1 A1)
-		      (SETQ !GVAR2 A2)
-		      (\ADDREF A2)
-		      (SETQ !GVAR2 A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   2)
-			       (EQ (\REFCNT A2)
-				   3)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   4))
-		      (\ADDREF A3)
-		      (\ADDREF A1)
-		      (SETQ !GVAR2 A5)
-		      (SETQ !GVAR1 A3)
-		      (SETQ !GVAR2 A2)
-		      (SETQ !GVAR1 A2)
-		      (SETQ !GVAR2 A4)
-		      (\DELREF A3)
-		      (SETQ !GVAR2 A4)
-		      (\DELREF A1)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   3)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   4))
-		      (\DELREF A2)
-		      (\DELREF A2)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (\DELREF A5)
-		      (SETQ.NOREF !GVAR1 NIL)
-		      (SETQ.NOREF !GVAR2 NIL))
-          (MTCHECKSTK (\ADDREF A3)
-		      (\DELREF A1)
-		      (SETQ !GVAR2 A1)
-		      (SETQ !GVAR1 A2)
-		      (SETQ !GVAR2 A2)
-		      (\ADDREF A3)
-		      (SETQ !GVAR2 A3)
-		      (\DELREF A5)
-		      (SETQ !GVAR2 A4)
-		      (\ADDREF A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   0)
-			       (EQ (\REFCNT A2)
-				   3)
-			       (EQ (\REFCNT A3)
-				   3)
-			       (EQ (\REFCNT A4)
-				   2)
-			       (EQ (\REFCNT A5)
-				   0))
-		      (SETQ !GVAR1 A5)
-		      (SETQ !GVAR2 A3)
-		      (SETQ !GVAR1 A5)
-		      (SETQ !GVAR1 A1)
-		      (\DELREF A1)
-		      (SETQ !GVAR2 A5)
-		      (\ADDREF A1)
-		      (SETQ !GVAR1 A1)
-		      (\DELREF A4)
-		      (SETQ !GVAR1 A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   0)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   3)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   1))
-		      (SETQ !GVAR2 A5)
-		      (SETQ !GVAR1 A1)
-		      (\ADDREF A5)
-		      (\ADDREF A4)
-		      (\DELREF A2)
-		      (SETQ !GVAR2 A5)
-		      (\DELREF A4)
-		      (SETQ !GVAR1 A5)
-		      (\ADDREF A2)
-		      (SETQ !GVAR1 A4)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   0)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   3)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   2))
-		      (\DELREF A2)
-		      (\DELREF A4)
-		      (\DELREF A2)
-		      (\ADDREF A2)
-		      (SETQ !GVAR2 A2)
-		      (\ADDREF A5)
-		      (\ADDREF A2)
-		      (\ADDREF A1)
-		      (SETQ !GVAR2 A3)
-		      (\ADDREF A5)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   1)
-			       (EQ (\REFCNT A2)
-				   2)
-			       (EQ (\REFCNT A3)
-				   4)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   3))
-		      (\ADDREF A2)
-		      (\DELREF A5)
-		      (\ADDREF A1)
-		      (SETQ !GVAR2 A4)
-		      (SETQ !GVAR2 A2)
-		      (SETQ !GVAR2 A5)
-		      (\DELREF A3)
-		      (\ADDREF A2)
-		      (SETQ !GVAR2 A1)
-		      (\DELREF A5)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   3)
-			       (EQ (\REFCNT A2)
-				   4)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   1))
-		      (\DELREF A2)
-		      (SETQ !GVAR2 A2)
-		      (SETQ !GVAR2 A5)
-		      (\ADDREF A1)
-		      (SETQ !GVAR2 A2)
-		      (\DELREF A3)
-		      (\ADDREF A5)
-		      (SETQ !GVAR2 A5)
-		      (SETQ !GVAR2 A1)
-		      (SETQ !GVAR2 A1)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   4)
-			       (EQ (\REFCNT A2)
-				   3)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   2))
-		      (\ADDREF A5)
-		      (SETQ !GVAR2 A4)
-		      (\DELREF A1)
-		      (\ADDREF A3)
-		      (\DELREF A3)
-		      (SETQ !GVAR2 A2)
-		      (SETQ !GVAR2 A2)
-		      (\DELREF A2)
-		      (\DELREF A5)
-		      (\ADDREF A2)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   2)
-			       (EQ (\REFCNT A2)
-				   4)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   2))
-		      (SETQ !GVAR2 A1)
-		      (\DELREF A1)
-		      (\DELREF A5)
-		      (SETQ !GVAR2 A1)
-		      (SETQ !GVAR2 A2)
-		      (\ADDREF A2)
-		      (\ADDREF A4)
-		      (SETQ !GVAR1 A4)
-		      (SETQ !GVAR1 A5)
-		      (\ADDREF A1)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   2)
-			       (EQ (\REFCNT A2)
-				   5)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   2))
-		      (SETQ !GVAR1 A4)
-		      (SETQ !GVAR1 A4)
-		      (\DELREF A5)
-		      (\ADDREF A5)
-		      (SETQ !GVAR2 A1)
-		      (SETQ !GVAR2 A2)
-		      (\DELREF A5)
-		      (SETQ !GVAR1 A1)
-		      (SETQ !GVAR2 A4)
-		      (SETQ !GVAR2 A1)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   4)
-			       (EQ (\REFCNT A2)
-				   4)
-			       (EQ (\REFCNT A3)
-				   1)
-			       (EQ (\REFCNT A4)
-				   0)
-			       (EQ (\REFCNT A5)
-				   0))
-		      (SETQ !GVAR2 A4)
-		      (\ADDREF A4)
-		      (SETQ !GVAR2 A4)
-		      (SETQ !GVAR1 A4)
-		      (SETQ !GVAR2 A5)
-		      (\ADDREF A3)
-		      (SETQ !GVAR1 A4)
-		      (\DELREF A4)
-		      (\ADDREF A1)
-		      (\ADDREF A5)
-		      (MTCHECK (EQ (\REFCNT A1)
-				   3)
-			       (EQ (\REFCNT A2)
-				   4)
-			       (EQ (\REFCNT A3)
-				   2)
-			       (EQ (\REFCNT A4)
-				   1)
-			       (EQ (\REFCNT A5)
-				   2))
-		      (\DELREF A1)
-		      (\DELREF A1)
-		      (\DELREF A2)
-		      (\DELREF A2)
-		      (\DELREF A2)
-		      (\DELREF A3)
-		      (\DELREF A5)
-		      (SETQ.NOREF !GVAR1 NIL)
-		      (SETQ.NOREF !GVAR2 NIL)))))
-)
-
-
-
-(* "Test of garbage collector")
-
-(DEFINEQ
-
-(MINILOGOUT
-  (LAMBDA NIL                                                (* bvm: "10-OCT-81 17:22")
-
-          (* * This one works for hacking in the init.sysout)
-
-
-    (\STOPDISPLAY)
-    (LOGOUT0)
-    (\STARTDISPLAY)
-    (\DEVICEEVENT (QUOTE AFTERLOGOUT))))
-)
-
-
-
-(* "File MACROTESTAUX contains freevar and numeric tests")
-
-(DEFINEQ
-
-(!CHARTEST
-  [LAMBDA NIL                                                      (* edited: 
-                                                                       "18-Mar-86 20:47")
-    (!STRPOSTEST)
-    (!CHARFILETEST])
-
-(!STRPOSTEST
-  [LAMBDA NIL                                                      (* edited: 
-                                                                       "18-Mar-86 18:53")
-    (if [NOT (AND (EQ 4 (STRPOSL (QUOTE (A B))
-                                   "LKDA"))
-                      (NULL (STRPOSL (QUOTE (A B))
-                                   "LKD�&s�"))
-                      (EQ 2 (STRPOSL (QUOTE (�&s� A))
-                                   "B�&s�AASD;FKJ"))
-                      (EQ 2 (STRPOSL (QUOTE (�&s�))
-                                   "B�&s�AASD;FKJ"]
-        then (HELP])
-
-(!CHARFILETEST
-  [LAMBDA NIL                                                      (* edited: 
-                                                                       "18-Mar-86 20:56")
-    (LET ((OUT (OPENSTREAM (QUOTE {CORE}FOO)
-                      (QUOTE OUTPUT)))
-          (PICODE (CHARCODE GREEK,PI)))
-         (PRIN1 (QUOTE A)
-                OUT)
-         (PRIN1 (CHARACTER PICODE)
-                OUT)
-         (TERPRI OUT)
-         (PRIN1 (CHARACTER PICODE)
-                OUT)
-         (TAB 3 NIL OUT)
-         (PRIN1 (CHARACTER PICODE)
-                OUT)
-         (CLOSEF OUT)
-         (SETQ IN (OPENSTREAM (QUOTE {CORE}FOO)
-                         (QUOTE INPUT)))
-         (for C in (BQUOTE (A �&s� (\, (CHARACTER (CHARCODE EOL)))
-                                      �&s�
-                                      (\, (CHARACTER (CHARCODE SPACE)))
-                                      (\, (CHARACTER (CHARCODE SPACE)))
-                                      �&s�)) do (if (NEQ C (READC IN))
-                                                     then (HELP)))
-         (CLOSEF IN)
-         (DELFILE (QUOTE {CORE}FOO])
-)
-(DECLARE: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 
-(FILESLOAD MACROTESTAUX)
-)
-(PUTPROPS MACROTEST COPYRIGHT ("Xerox Corporation" 3675Q 3676Q 3677Q 3700Q 3701Q 3702Q))
-(DECLARE: DONTCOPY
-  (FILEMAP (NIL (7540Q 10734Q (!DIAGNOSE 7552Q . 10176Q) (!DIAGNOSELP 10200Q . 10732Q)) (11132Q 14363Q (
-!CKEQ 11144Q . 11701Q) (!CKFEQ 11703Q . 12352Q) (!CKFUZZYEQ 12354Q . 13761Q) (!MRAID 13763Q . 14361Q))
- (14416Q 24333Q (!CONSTEST 14430Q . 22545Q) (!COPY 22547Q . 23104Q) (!SMASH 23106Q . 23551Q) (
-!APPENDTEST 23553Q . 24331Q)) (24334Q 35631Q (!INTERPTEST 24346Q . 31567Q) (!CHECKARGS 31571Q . 35013Q
-) (!CHECKLSTARARG 35015Q . 35323Q) (!CHECKLSTARSETARG 35325Q . 35627Q)) (35675Q 120247Q (!GCTEST 
-35707Q . 36126Q) (!GCTEST1 36130Q . 41052Q) (!GCTEST2 41054Q . 42047Q) (!GCTESTSETF 42051Q . 71473Q) (
-!GCTESTSETG 71475Q . 120245Q)) (120320Q 120772Q (MINILOGOUT 120332Q . 120770Q)) (121076Q 125074Q (
-!CHARTEST 121110Q . 121466Q) (!STRPOSTEST 121470Q . 122653Q) (!CHARFILETEST 122655Q . 125072Q)))))
-STOP
diff --git a/internal/MACROTEST.LCOM b/internal/MACROTEST.LCOM
deleted file mode 100644
index a9fab59a..00000000
Binary files a/internal/MACROTEST.LCOM and /dev/null differ
diff --git a/internal/MACROTESTAUX b/internal/MACROTESTAUX
deleted file mode 100644
index af5927e0..00000000
--- a/internal/MACROTESTAUX
+++ /dev/null
@@ -1,3359 +0,0 @@
-(FILECREATED " 7-Jul-85 12:26:39" {ERIS}<LISPCORE>LIBRARY>MACROTESTAUX.;2 247232Q
-
-      changes to:  (FNS !MIXNUMTEST)
-
-      previous date: " 3-Dec-84 19:19:33" {ERIS}<LISPCORE>LIBRARY>MACROTESTAUX.;1)
-
-
-(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)
-
-(PRETTYCOMPRINT MACROTESTAUXCOMS)
-
-(RPAQQ MACROTESTAUXCOMS [(E (RADIX 10Q))
-	[DECLARE: EVAL@COMPILE DONTCOPY (P (LOADCOMP (QUOTE MACROTEST)))
-		  (DECLARE: DONTEVAL@LOAD (P (RESETSAVE OPTIMIZATIONSOFF T]
-	(COMS (* "Test out of free variables")
-	      (FNS !FVARTEST PUSH.TEST CALLS.FIRSTARGTEST CALLS.LASTARGTEST CALLS.TOOFEWARGS 
-		   FVAR.FREE FVAR.TEST FVAR.TEST2 FVAR.TEST3 FN.FIRSTARG.FVARS 
-		   FN.FIRSTARG.PVARS.FVARS FN.LASTARG.FVARS FN.LASTARG.FVARS.PVARS FVAR.TESTN 
-		   FN.FREE.SKIPPVARS FN.FREEPVAR FN.FVAR3 FN.FREEARG FN.FR1 FN.FR2 FN.FR3 FAULTTEST)
-	      (VARS (F0 0)
-		    (F1 1)
-		    (F2 2)
-		    (F3 3)
-		    (F4 4)
-		    (F5 5)
-		    (F6 6)
-		    (F7 7)
-		    (F8 10Q)))
-	(* "Test out of numeric capabilities")
-	(FNS !NUMBERTEST !NUMTEST1 !NUMTEST2 !NUMTEST3 !NUMTEST4 !NUMTEST5 !NUMTEST6 !RANDNUMTEST 
-	     !RANDNUMTEST1 !RANDNUMTEST2 !RANDNUMTEST3 !RANDNUMTEST4 !FNUMTEST !FNUMTEST1 !FNUMTEST2 
-	     !FNUMTEST3 !FNUMTEST4 !FNUMTEST5 !MIXNUMTEST)
-	(* "Compiler error may prevent some of the above functions from getting compiled")
-	(DECLARE: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAPC (OR (FILEFNSLST (QUOTE MACROTESTAUX))
-								     (QUOTE (PUSH.TEST)))
-								 (FUNCTION (LAMBDA
-									     (X)
-									     (MOVD? (QUOTE NILL)
-										    X])
-(DECLARE: EVAL@COMPILE DONTCOPY 
-(LOADCOMP (QUOTE MACROTEST))
-
-(DECLARE: DONTEVAL@LOAD 
-(RESETSAVE OPTIMIZATIONSOFF T)
-)
-)
-
-
-
-(* "Test out of free variables")
-
-(DEFINEQ
-
-(!FVARTEST
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (PUSH.TEST)
-    (CALLS.FIRSTARGTEST)
-    (CALLS.LASTARGTEST)
-    (CALLS.TOOFEWARGS)
-    (FVAR.FREE)
-    (FVAR.TEST)
-    (FVAR.TEST2)
-    (FVAR.TEST3)))
-
-(PUSH.TEST
-  (LAMBDA (I0 I1 I2 I3 I4)                                   (* JonL " 1-Jun-84 19:54")
-    (PROG (P0 P1 P2 P3 P4 P5 P6 P7 P8)
-          (PROGN (MTCHECKSTK (COND
-			       ((NULL F0)
-				 F0)))
-		 (MTCHECKSTK (COND
-			       ((NULL F1)
-				 F1)))
-		 (MTCHECKSTK (COND
-			       ((NULL F2)
-				 F2)))
-		 (MTCHECKSTK (COND
-			       ((NULL F3)
-				 F3)))
-		 (MTCHECKSTK (COND
-			       ((NULL F4)
-				 F4)))
-		 (MTCHECKSTK (COND
-			       ((NULL F5)
-				 F5)))
-		 (MTCHECKSTK (COND
-			       ((NULL F6)
-				 F6)))
-		 (MTCHECKSTK (COND
-			       ((NULL F7)
-				 F7)))
-		 (MTCHECKSTK (COND
-			       ((NULL F8)
-				 F8))))
-          (PROGN (MTCHECKSTK (COND
-			       ((NULL P0)
-				 P0)))
-		 (MTCHECKSTK (COND
-			       ((NULL P1)
-				 P1)))
-		 (MTCHECKSTK (COND
-			       ((NULL P7)
-				 P7)))
-		 (MTCHECKSTK (COND
-			       ((NULL P8)
-				 P8)))))))
-
-(CALLS.FIRSTARGTEST
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (MTCHECK (EQ (FN.FIRSTARG.FVARS 1 2 3)
-		 1)
-	     (EQ (FN.FIRSTARG.PVARS.FVARS 1 2 3)
-		 1))))
-
-(CALLS.LASTARGTEST
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (MTCHECK (EQ (FN.LASTARG.FVARS 1 2 3 4 5 6 7 10Q 11Q 12Q 13Q 14Q 15Q 16Q 17Q)
-		 17Q))
-    (MTCHECK (EQ (FN.LASTARG.FVARS.PVARS 1 2 3 4 5 6 7 10Q 11Q 12Q 13Q 14Q 15Q 16Q 17Q)
-		 17Q))))
-
-(CALLS.TOOFEWARGS
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (MTCHECK (EQ (FN.FIRSTARG.PVARS.FVARS 1 2)
-		 1)
-	     (EQ (FN.FIRSTARG.PVARS.FVARS)
-		 NIL)
-	     (EQ (FN.LASTARG.FVARS 1 2 3 4 5 6 7 10Q 11Q 12Q 13Q 14Q 15Q 16Q)
-		 NIL))))
-
-(FVAR.FREE
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (PROGN (SETQ F0 144Q)
-	   (SETQ F1 145Q)
-	   (SETQ F2 146Q)
-	   (SETQ F3 147Q)
-	   (SETQ F4 150Q)
-	   (SETQ F5 151Q)
-	   (SETQ F6 152Q)
-	   (SETQ F7 153Q)
-	   (SETQ F8 154Q)
-	   (MTCHECK (EQ F0 144Q)
-		    (EQ F1 145Q)
-		    (EQ F2 146Q)
-		    (EQ F3 147Q)
-		    (EQ F4 150Q)
-		    (EQ F5 151Q)
-		    (EQ F6 152Q)
-		    (EQ F7 153Q)
-		    (EQ F8 154Q))
-	   (SETQ F0 0)
-	   (SETQ F1 1)
-	   (SETQ F2 2)
-	   (SETQ F3 3)
-	   (SETQ F4 4)
-	   (SETQ F5 5)
-	   (SETQ F6 6)
-	   (SETQ F7 7)
-	   (SETQ F8 10Q))))
-
-(FVAR.TEST
-  (LAMBDA (FLG)                                              (* JonL " 1-Jun-84 18:19")
-    (PROG ((FREE.VAR.FLAG (QUOTE FREE.VALUE))
-	   (FREE.VAR (QUOTE GARBAGE)))
-          (DECLARE (SPECVARS . T))
-          (FN.FR1)
-          (MTCHECK (NULL FREE.VAR.FLAG))
-          (MTCHECK (EQ FREE.VAR (QUOTE FREE.VALUE))))
-    (PROG ((FREE.VAR.FLAG (QUOTE FREE.VALUE)))
-          (DECLARE (SPECVARS . T))
-          (FN.FR1)
-          (MTCHECK (NULL FREE.VAR.FLAG))
-          (MTCHECK (EQ FREE.VAR (QUOTE FREE.VALUE))))))
-
-(FVAR.TEST2
-  (LAMBDA NIL                                                (* lmm "31-JUL-81 15:58")
-    (PROG ((FVAR1 1)
-	   (FVAR2 2)
-	   (FVAR3 3))
-          (FVAR.TEST T))))
-
-(FVAR.TEST3
-  (LAMBDA NIL                                                (* lmm " 3-JAN-80 01:46")
-    (FVAR.TESTN 1 2 3)))
-
-(FN.FIRSTARG.FVARS
-  (LAMBDA (X Y Z)                                            (* JonL " 1-Jun-84 18:32")
-    (COND
-      (NIL FREE.1)
-      (NIL FREE.2)
-      (NIL FREE.3)
-      (T X))))
-
-(FN.FIRSTARG.PVARS.FVARS
-  (LAMBDA (X Y Z)                                            (* JonL " 1-Jun-84 18:33")
-    (PROG (P D Q)
-          (RETURN (COND
-		    (P FREE.1)
-		    (P FREE.2)
-		    (P FREE.3)
-		    (T X))))))
-
-(FN.LASTARG.FVARS
-  (LAMBDA (A1 A2 A3 A4 A5 A6 A7 A8 A9 A10 A11 A12 A13 A14 A15)
-                                                             (* JonL " 1-Jun-84 18:34")
-    (COND
-      (NIL FREE.1)
-      (NIL FREE.2)
-      (NIL FREE.3)
-      (T A15))))
-
-(FN.LASTARG.FVARS.PVARS
-  (LAMBDA (A1 A2 A3 A4 A5 A6 A7 A8 A9 A10 A11 A12 A13 A14 A15)
-                                                             (* JonL " 1-Jun-84 18:35")
-    (PROG (P1 P2 P3)
-          (RETURN (COND
-		    (NIL FREE.1)
-		    (NIL FREE.2)
-		    (NIL FREE.3)
-		    (T A15))))))
-
-(FVAR.TESTN
-  (LAMBDA (FVAR1 FVAR2 FVAR3)                                (* lmm " 3-JAN-80 01:46")
-    (FVAR.TEST T)))
-
-(FN.FREE.SKIPPVARS
-  (LAMBDA NIL                                                (* bvm: "21-OCT-83 12:38")
-    (PROG (FVAR1 FVAR2 FVAR3)
-          ((OPCODES NOP)))
-    (FN.FVAR3)))
-
-(FN.FREEPVAR
-  (LAMBDA NIL                                                (* bvm: "21-OCT-83 12:29")
-    (PROG (FVAR3)
-          (SETQ FVAR3 (QUOTE FREEPVAR.VALUE))
-          (RETURN (FN.FVAR3)))))
-
-(FN.FVAR3
-  (LAMBDA NIL                                                (* bvm: "21-OCT-83 12:29")
-    FVAR3))
-
-(FN.FREEARG
-  (LAMBDA (FVAR3)                                            (* lmm " 3-JAN-80 01:34")
-    (FN.FVAR3)))
-
-(FN.FR1
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (FN.FR2)
-    (MTCHECK (EQ FREE.VAR (QUOTE FREE.VALUE)))))
-
-(FN.FR2
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (FN.FR3)
-    (MTCHECK (EQ FREE.VAR (QUOTE FREE.VALUE)))))
-
-(FN.FR3
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (COND
-      (FREE.VAR.FLAG (SETQ FREE.VAR FREE.VAR.FLAG)
-		     (SETQ FREE.VAR.FLAG NIL))
-      (T (MTCHECK (EQ FREE.VAR (QUOTE FREE.VALUE)))))))
-
-(FAULTTEST
-  (LAMBDA NIL                                                (* JonL " 1-Jun-84 18:19")
-    (SETQ FAULTFVAR 144Q)
-    (MTCHECK (EQ 144Q (PROGN (\RELEASEWORKINGSET)
-			     FAULTFVAR)))))
-)
-
-(RPAQQ F0 0)
-
-(RPAQQ F1 1)
-
-(RPAQQ F2 2)
-
-(RPAQQ F3 3)
-
-(RPAQQ F4 4)
-
-(RPAQQ F5 5)
-
-(RPAQQ F6 6)
-
-(RPAQQ F7 7)
-
-(RPAQQ F8 10Q)
-
-
-
-(* "Test out of numeric capabilities")
-
-(DEFINEQ
-
-(!NUMBERTEST
-  (LAMBDA NIL                                                (* lmm "21-OCT-81 15:50")
-    (!NUMTEST1)
-    (!NUMTEST2)
-    (!NUMTEST3)
-    (!NUMTEST4)
-    (!NUMTEST5)
-    (!NUMTEST6)))
-
-(!NUMTEST1
-  (LAMBDA NIL                                                (* bvm: " 8-MAR-82 22:59")
-    (MTCHECKSTK (CKEQ (IGREATERP 0 0)
-		      NIL)
-		(CKEQ (IPLUS 0 0)
-		      0)
-		(CKEQ (IDIFFERENCE 0 0)
-		      0)
-		(CKEQ (LOGOR 0 0)
-		      0)
-		(CKEQ (LOGAND 0 0)
-		      0)
-		(CKEQ (LOGXOR 0 0)
-		      0)
-		(CKEQ (IGREATERP 0 1)
-		      NIL)
-		(CKEQ (IPLUS 0 1)
-		      1)
-		(CKEQ (IDIFFERENCE 0 1)
-		      -1)
-		(CKEQ (LOGOR 0 1)
-		      1)
-		(CKEQ (LOGAND 0 1)
-		      0)
-		(CKEQ (LOGXOR 0 1)
-		      1)
-		(CKEQ (IGREATERP 0 -1)
-		      T)
-		(CKEQ (IPLUS 0 -1)
-		      -1)
-		(CKEQ (IDIFFERENCE 0 -1)
-		      1)
-		(CKEQ (LOGOR 0 -1)
-		      -1)
-		(CKEQ (LOGAND 0 -1)
-		      0)
-		(CKEQ (LOGXOR 0 -1)
-		      -1)
-		(CKEQ (IGREATERP 0 2)
-		      NIL)
-		(CKEQ (IPLUS 0 2)
-		      2)
-		(CKEQ (IDIFFERENCE 0 2)
-		      -2)
-		(CKEQ (LOGOR 0 2)
-		      2)
-		(CKEQ (LOGAND 0 2)
-		      0)
-		(CKEQ (LOGXOR 0 2)
-		      2)
-		(CKEQ (IGREATERP 0 -2)
-		      T)
-		(CKEQ (IPLUS 0 -2)
-		      -2)
-		(CKEQ (IDIFFERENCE 0 -2)
-		      2)
-		(CKEQ (LOGOR 0 -2)
-		      -2)
-		(CKEQ (LOGAND 0 -2)
-		      0)
-		(CKEQ (LOGXOR 0 -2)
-		      -2)
-		(CKEQ (IGREATERP 0 177777Q)
-		      NIL)
-		(CKEQ (IPLUS 0 177777Q)
-		      177777Q)
-		(CKEQ (IDIFFERENCE 0 177777Q)
-		      -177777Q)
-		(CKEQ (LOGOR 0 177777Q)
-		      177777Q)
-		(CKEQ (LOGAND 0 177777Q)
-		      0)
-		(CKEQ (LOGXOR 0 177777Q)
-		      177777Q)
-		(CKEQ (IGREATERP 0 -200000Q)
-		      T)
-		(CKEQ (IPLUS 0 -200000Q)
-		      -200000Q)
-		(CKEQ (IDIFFERENCE 0 -200000Q)
-		      200000Q)
-		(CKEQ (LOGOR 0 -200000Q)
-		      -200000Q)
-		(CKEQ (LOGAND 0 -200000Q)
-		      0)
-		(CKEQ (LOGXOR 0 -200000Q)
-		      -200000Q)
-		(CKEQ (IGREATERP 0 177776Q)
-		      NIL)
-		(CKEQ (IPLUS 0 177776Q)
-		      177776Q)
-		(CKEQ (IDIFFERENCE 0 177776Q)
-		      -177776Q)
-		(CKEQ (LOGOR 0 177776Q)
-		      177776Q)
-		(CKEQ (LOGAND 0 177776Q)
-		      0)
-		(CKEQ (LOGXOR 0 177776Q)
-		      177776Q)
-		(CKEQ (IGREATERP 0 -200001Q)
-		      T)
-		(CKEQ (IPLUS 0 -200001Q)
-		      -200001Q)
-		(CKEQ (IDIFFERENCE 0 -200001Q)
-		      200001Q)
-		(CKEQ (LOGOR 0 -200001Q)
-		      -200001Q)
-		(CKEQ (LOGAND 0 -200001Q)
-		      0)
-		(CKEQ (LOGXOR 0 -200001Q)
-		      -200001Q)
-		(CKEQ (IGREATERP 1 0)
-		      T)
-		(CKEQ (IPLUS 1 0)
-		      1)
-		(CKEQ (IDIFFERENCE 1 0)
-		      1)
-		(CKEQ (LOGOR 1 0)
-		      1)
-		(CKEQ (LOGAND 1 0)
-		      0)
-		(CKEQ (LOGXOR 1 0)
-		      1)
-		(CKEQ (IGREATERP 1 1)
-		      NIL)
-		(CKEQ (IPLUS 1 1)
-		      2)
-		(CKEQ (IDIFFERENCE 1 1)
-		      0)
-		(CKEQ (LOGOR 1 1)
-		      1)
-		(CKEQ (LOGAND 1 1)
-		      1)
-		(CKEQ (LOGXOR 1 1)
-		      0)
-		(CKEQ (IGREATERP 1 -1)
-		      T)
-		(CKEQ (IPLUS 1 -1)
-		      0)
-		(CKEQ (IDIFFERENCE 1 -1)
-		      2)
-		(CKEQ (LOGOR 1 -1)
-		      -1)
-		(CKEQ (LOGAND 1 -1)
-		      1)
-		(CKEQ (LOGXOR 1 -1)
-		      -2)
-		(CKEQ (IGREATERP 1 2)
-		      NIL)
-		(CKEQ (IPLUS 1 2)
-		      3)
-		(CKEQ (IDIFFERENCE 1 2)
-		      -1)
-		(CKEQ (LOGOR 1 2)
-		      3)
-		(CKEQ (LOGAND 1 2)
-		      0)
-		(CKEQ (LOGXOR 1 2)
-		      3)
-		(CKEQ (IGREATERP 1 -2)
-		      T)
-		(CKEQ (IPLUS 1 -2)
-		      -1)
-		(CKEQ (IDIFFERENCE 1 -2)
-		      3)
-		(CKEQ (LOGOR 1 -2)
-		      -1)
-		(CKEQ (LOGAND 1 -2)
-		      0)
-		(CKEQ (LOGXOR 1 -2)
-		      -1)
-		(CKEQ (IGREATERP 1 177777Q)
-		      NIL)
-		(CKEQ (IPLUS 1 177777Q)
-		      200000Q)
-		(CKEQ (IDIFFERENCE 1 177777Q)
-		      -177776Q)
-		(CKEQ (LOGOR 1 177777Q)
-		      177777Q)
-		(CKEQ (LOGAND 1 177777Q)
-		      1)
-		(CKEQ (LOGXOR 1 177777Q)
-		      177776Q)
-		(CKEQ (IGREATERP 1 -200000Q)
-		      T)
-		(CKEQ (IPLUS 1 -200000Q)
-		      -177777Q)
-		(CKEQ (IDIFFERENCE 1 -200000Q)
-		      200001Q)
-		(CKEQ (LOGOR 1 -200000Q)
-		      -177777Q)
-		(CKEQ (LOGAND 1 -200000Q)
-		      0)
-		(CKEQ (LOGXOR 1 -200000Q)
-		      -177777Q)
-		(CKEQ (IGREATERP 1 177776Q)
-		      NIL)
-		(CKEQ (IPLUS 1 177776Q)
-		      177777Q)
-		(CKEQ (IDIFFERENCE 1 177776Q)
-		      -177775Q))))
-
-(!NUMTEST2
-  (LAMBDA NIL                                                (* bvm: " 8-MAR-82 22:59")
-    (MTCHECKSTK (CKEQ (LOGOR 1 177776Q)
-		      177777Q)
-		(CKEQ (LOGAND 1 177776Q)
-		      0)
-		(CKEQ (LOGXOR 1 177776Q)
-		      177777Q)
-		(CKEQ (IGREATERP 1 -200001Q)
-		      T)
-		(CKEQ (IPLUS 1 -200001Q)
-		      -200000Q)
-		(CKEQ (IDIFFERENCE 1 -200001Q)
-		      200002Q)
-		(CKEQ (LOGOR 1 -200001Q)
-		      -200001Q)
-		(CKEQ (LOGAND 1 -200001Q)
-		      1)
-		(CKEQ (LOGXOR 1 -200001Q)
-		      -200002Q)
-		(CKEQ (IGREATERP -1 0)
-		      NIL)
-		(CKEQ (IPLUS -1 0)
-		      -1)
-		(CKEQ (IDIFFERENCE -1 0)
-		      -1)
-		(CKEQ (LOGOR -1 0)
-		      -1)
-		(CKEQ (LOGAND -1 0)
-		      0)
-		(CKEQ (LOGXOR -1 0)
-		      -1)
-		(CKEQ (IGREATERP -1 1)
-		      NIL)
-		(CKEQ (IPLUS -1 1)
-		      0)
-		(CKEQ (IDIFFERENCE -1 1)
-		      -2)
-		(CKEQ (LOGOR -1 1)
-		      -1)
-		(CKEQ (LOGAND -1 1)
-		      1)
-		(CKEQ (LOGXOR -1 1)
-		      -2)
-		(CKEQ (IGREATERP -1 -1)
-		      NIL)
-		(CKEQ (IPLUS -1 -1)
-		      -2)
-		(CKEQ (IDIFFERENCE -1 -1)
-		      0)
-		(CKEQ (LOGOR -1 -1)
-		      -1)
-		(CKEQ (LOGAND -1 -1)
-		      -1)
-		(CKEQ (LOGXOR -1 -1)
-		      0)
-		(CKEQ (IGREATERP -1 2)
-		      NIL)
-		(CKEQ (IPLUS -1 2)
-		      1)
-		(CKEQ (IDIFFERENCE -1 2)
-		      -3)
-		(CKEQ (LOGOR -1 2)
-		      -1)
-		(CKEQ (LOGAND -1 2)
-		      2)
-		(CKEQ (LOGXOR -1 2)
-		      -3)
-		(CKEQ (IGREATERP -1 -2)
-		      T)
-		(CKEQ (IPLUS -1 -2)
-		      -3)
-		(CKEQ (IDIFFERENCE -1 -2)
-		      1)
-		(CKEQ (LOGOR -1 -2)
-		      -1)
-		(CKEQ (LOGAND -1 -2)
-		      -2)
-		(CKEQ (LOGXOR -1 -2)
-		      1)
-		(CKEQ (IGREATERP -1 177777Q)
-		      NIL)
-		(CKEQ (IPLUS -1 177777Q)
-		      177776Q)
-		(CKEQ (IDIFFERENCE -1 177777Q)
-		      -200000Q)
-		(CKEQ (LOGOR -1 177777Q)
-		      -1)
-		(CKEQ (LOGAND -1 177777Q)
-		      177777Q)
-		(CKEQ (LOGXOR -1 177777Q)
-		      -200000Q)
-		(CKEQ (IGREATERP -1 -200000Q)
-		      T)
-		(CKEQ (IPLUS -1 -200000Q)
-		      -200001Q)
-		(CKEQ (IDIFFERENCE -1 -200000Q)
-		      177777Q)
-		(CKEQ (LOGOR -1 -200000Q)
-		      -1)
-		(CKEQ (LOGAND -1 -200000Q)
-		      -200000Q)
-		(CKEQ (LOGXOR -1 -200000Q)
-		      177777Q)
-		(CKEQ (IGREATERP -1 177776Q)
-		      NIL)
-		(CKEQ (IPLUS -1 177776Q)
-		      177775Q)
-		(CKEQ (IDIFFERENCE -1 177776Q)
-		      -177777Q)
-		(CKEQ (LOGOR -1 177776Q)
-		      -1)
-		(CKEQ (LOGAND -1 177776Q)
-		      177776Q)
-		(CKEQ (LOGXOR -1 177776Q)
-		      -177777Q)
-		(CKEQ (IGREATERP -1 -200001Q)
-		      T)
-		(CKEQ (IPLUS -1 -200001Q)
-		      -200002Q)
-		(CKEQ (IDIFFERENCE -1 -200001Q)
-		      200000Q)
-		(CKEQ (LOGOR -1 -200001Q)
-		      -1)
-		(CKEQ (LOGAND -1 -200001Q)
-		      -200001Q)
-		(CKEQ (LOGXOR -1 -200001Q)
-		      200000Q)
-		(CKEQ (IGREATERP 2 0)
-		      T)
-		(CKEQ (IPLUS 2 0)
-		      2)
-		(CKEQ (IDIFFERENCE 2 0)
-		      2)
-		(CKEQ (LOGOR 2 0)
-		      2)
-		(CKEQ (LOGAND 2 0)
-		      0)
-		(CKEQ (LOGXOR 2 0)
-		      2)
-		(CKEQ (IGREATERP 2 1)
-		      T)
-		(CKEQ (IPLUS 2 1)
-		      3)
-		(CKEQ (IDIFFERENCE 2 1)
-		      1)
-		(CKEQ (LOGOR 2 1)
-		      3)
-		(CKEQ (LOGAND 2 1)
-		      0)
-		(CKEQ (LOGXOR 2 1)
-		      3)
-		(CKEQ (IGREATERP 2 -1)
-		      T)
-		(CKEQ (IPLUS 2 -1)
-		      1)
-		(CKEQ (IDIFFERENCE 2 -1)
-		      3)
-		(CKEQ (LOGOR 2 -1)
-		      -1)
-		(CKEQ (LOGAND 2 -1)
-		      2)
-		(CKEQ (LOGXOR 2 -1)
-		      -3)
-		(CKEQ (IGREATERP 2 2)
-		      NIL)
-		(CKEQ (IPLUS 2 2)
-		      4)
-		(CKEQ (IDIFFERENCE 2 2)
-		      0)
-		(CKEQ (LOGOR 2 2)
-		      2)
-		(CKEQ (LOGAND 2 2)
-		      2)
-		(CKEQ (LOGXOR 2 2)
-		      0)
-		(CKEQ (IGREATERP 2 -2)
-		      T)
-		(CKEQ (IPLUS 2 -2)
-		      0)
-		(CKEQ (IDIFFERENCE 2 -2)
-		      4)
-		(CKEQ (LOGOR 2 -2)
-		      -2)
-		(CKEQ (LOGAND 2 -2)
-		      2)
-		(CKEQ (LOGXOR 2 -2)
-		      -4)
-		(CKEQ (IGREATERP 2 177777Q)
-		      NIL)
-		(CKEQ (IPLUS 2 177777Q)
-		      200001Q)
-		(CKEQ (IDIFFERENCE 2 177777Q)
-		      -177775Q)
-		(CKEQ (LOGOR 2 177777Q)
-		      177777Q)
-		(CKEQ (LOGAND 2 177777Q)
-		      2)
-		(CKEQ (LOGXOR 2 177777Q)
-		      177775Q))))
-
-(!NUMTEST3
-  (LAMBDA NIL                                                (* bvm: " 8-MAR-82 23:00")
-    (MTCHECKSTK (CKEQ (IGREATERP 2 -200000Q)
-		      T)
-		(CKEQ (IPLUS 2 -200000Q)
-		      -177776Q)
-		(CKEQ (IDIFFERENCE 2 -200000Q)
-		      200002Q)
-		(CKEQ (LOGOR 2 -200000Q)
-		      -177776Q)
-		(CKEQ (LOGAND 2 -200000Q)
-		      0)
-		(CKEQ (LOGXOR 2 -200000Q)
-		      -177776Q)
-		(CKEQ (IGREATERP 2 177776Q)
-		      NIL)
-		(CKEQ (IPLUS 2 177776Q)
-		      200000Q)
-		(CKEQ (IDIFFERENCE 2 177776Q)
-		      -177774Q)
-		(CKEQ (LOGOR 2 177776Q)
-		      177776Q)
-		(CKEQ (LOGAND 2 177776Q)
-		      2)
-		(CKEQ (LOGXOR 2 177776Q)
-		      177774Q)
-		(CKEQ (IGREATERP 2 -200001Q)
-		      T)
-		(CKEQ (IPLUS 2 -200001Q)
-		      -177777Q)
-		(CKEQ (IDIFFERENCE 2 -200001Q)
-		      200003Q)
-		(CKEQ (LOGOR 2 -200001Q)
-		      -200001Q)
-		(CKEQ (LOGAND 2 -200001Q)
-		      2)
-		(CKEQ (LOGXOR 2 -200001Q)
-		      -200003Q)
-		(CKEQ (IGREATERP -2 0)
-		      NIL)
-		(CKEQ (IPLUS -2 0)
-		      -2)
-		(CKEQ (IDIFFERENCE -2 0)
-		      -2)
-		(CKEQ (LOGOR -2 0)
-		      -2)
-		(CKEQ (LOGAND -2 0)
-		      0)
-		(CKEQ (LOGXOR -2 0)
-		      -2)
-		(CKEQ (IGREATERP -2 1)
-		      NIL)
-		(CKEQ (IPLUS -2 1)
-		      -1)
-		(CKEQ (IDIFFERENCE -2 1)
-		      -3)
-		(CKEQ (LOGOR -2 1)
-		      -1)
-		(CKEQ (LOGAND -2 1)
-		      0)
-		(CKEQ (LOGXOR -2 1)
-		      -1)
-		(CKEQ (IGREATERP -2 -1)
-		      NIL)
-		(CKEQ (IPLUS -2 -1)
-		      -3)
-		(CKEQ (IDIFFERENCE -2 -1)
-		      -1)
-		(CKEQ (LOGOR -2 -1)
-		      -1)
-		(CKEQ (LOGAND -2 -1)
-		      -2)
-		(CKEQ (LOGXOR -2 -1)
-		      1)
-		(CKEQ (IGREATERP -2 2)
-		      NIL)
-		(CKEQ (IPLUS -2 2)
-		      0)
-		(CKEQ (IDIFFERENCE -2 2)
-		      -4)
-		(CKEQ (LOGOR -2 2)
-		      -2)
-		(CKEQ (LOGAND -2 2)
-		      2)
-		(CKEQ (LOGXOR -2 2)
-		      -4)
-		(CKEQ (IGREATERP -2 -2)
-		      NIL)
-		(CKEQ (IPLUS -2 -2)
-		      -4)
-		(CKEQ (IDIFFERENCE -2 -2)
-		      0)
-		(CKEQ (LOGOR -2 -2)
-		      -2)
-		(CKEQ (LOGAND -2 -2)
-		      -2)
-		(CKEQ (LOGXOR -2 -2)
-		      0)
-		(CKEQ (IGREATERP -2 177777Q)
-		      NIL)
-		(CKEQ (IPLUS -2 177777Q)
-		      177775Q)
-		(CKEQ (IDIFFERENCE -2 177777Q)
-		      -200001Q)
-		(CKEQ (LOGOR -2 177777Q)
-		      -1)
-		(CKEQ (LOGAND -2 177777Q)
-		      177776Q)
-		(CKEQ (LOGXOR -2 177777Q)
-		      -177777Q)
-		(CKEQ (IGREATERP -2 -200000Q)
-		      T)
-		(CKEQ (IPLUS -2 -200000Q)
-		      -200002Q)
-		(CKEQ (IDIFFERENCE -2 -200000Q)
-		      177776Q)
-		(CKEQ (LOGOR -2 -200000Q)
-		      -2)
-		(CKEQ (LOGAND -2 -200000Q)
-		      -200000Q)
-		(CKEQ (LOGXOR -2 -200000Q)
-		      177776Q)
-		(CKEQ (IGREATERP -2 177776Q)
-		      NIL)
-		(CKEQ (IPLUS -2 177776Q)
-		      177774Q)
-		(CKEQ (IDIFFERENCE -2 177776Q)
-		      -200000Q)
-		(CKEQ (LOGOR -2 177776Q)
-		      -2)
-		(CKEQ (LOGAND -2 177776Q)
-		      177776Q)
-		(CKEQ (LOGXOR -2 177776Q)
-		      -200000Q)
-		(CKEQ (IGREATERP -2 -200001Q)
-		      T)
-		(CKEQ (IPLUS -2 -200001Q)
-		      -200003Q)
-		(CKEQ (IDIFFERENCE -2 -200001Q)
-		      177777Q)
-		(CKEQ (LOGOR -2 -200001Q)
-		      -1)
-		(CKEQ (LOGAND -2 -200001Q)
-		      -200002Q)
-		(CKEQ (LOGXOR -2 -200001Q)
-		      200001Q)
-		(CKEQ (IGREATERP 177777Q 0)
-		      T)
-		(CKEQ (IPLUS 177777Q 0)
-		      177777Q)
-		(CKEQ (IDIFFERENCE 177777Q 0)
-		      177777Q)
-		(CKEQ (LOGOR 177777Q 0)
-		      177777Q)
-		(CKEQ (LOGAND 177777Q 0)
-		      0)
-		(CKEQ (LOGXOR 177777Q 0)
-		      177777Q)
-		(CKEQ (IGREATERP 177777Q 1)
-		      T)
-		(CKEQ (IPLUS 177777Q 1)
-		      200000Q)
-		(CKEQ (IDIFFERENCE 177777Q 1)
-		      177776Q)
-		(CKEQ (LOGOR 177777Q 1)
-		      177777Q)
-		(CKEQ (LOGAND 177777Q 1)
-		      1)
-		(CKEQ (LOGXOR 177777Q 1)
-		      177776Q)
-		(CKEQ (IGREATERP 177777Q -1)
-		      T)
-		(CKEQ (IPLUS 177777Q -1)
-		      177776Q)
-		(CKEQ (IDIFFERENCE 177777Q -1)
-		      200000Q)
-		(CKEQ (LOGOR 177777Q -1)
-		      -1)
-		(CKEQ (LOGAND 177777Q -1)
-		      177777Q)
-		(CKEQ (LOGXOR 177777Q -1)
-		      -200000Q)
-		(CKEQ (IGREATERP 177777Q 2)
-		      T)
-		(CKEQ (IPLUS 177777Q 2)
-		      200001Q)
-		(CKEQ (IDIFFERENCE 177777Q 2)
-		      177775Q)
-		(CKEQ (LOGOR 177777Q 2)
-		      177777Q)
-		(CKEQ (LOGAND 177777Q 2)
-		      2)
-		(CKEQ (LOGXOR 177777Q 2)
-		      177775Q)
-		(CKEQ (IGREATERP 177777Q -2)
-		      T)
-		(CKEQ (IPLUS 177777Q -2)
-		      177775Q)
-		(CKEQ (IDIFFERENCE 177777Q -2)
-		      200001Q)
-		(CKEQ (LOGOR 177777Q -2)
-		      -1))))
-
-(!NUMTEST4
-  (LAMBDA NIL                                                (* bvm: " 8-MAR-82 23:00")
-    (MTCHECKSTK (CKEQ (LOGAND 177777Q -2)
-		      177776Q)
-		(CKEQ (LOGXOR 177777Q -2)
-		      -177777Q)
-		(CKEQ (IGREATERP 177777Q 177777Q)
-		      NIL)
-		(CKEQ (IPLUS 177777Q 177777Q)
-		      377776Q)
-		(CKEQ (IDIFFERENCE 177777Q 177777Q)
-		      0)
-		(CKEQ (LOGOR 177777Q 177777Q)
-		      177777Q)
-		(CKEQ (LOGAND 177777Q 177777Q)
-		      177777Q)
-		(CKEQ (LOGXOR 177777Q 177777Q)
-		      0)
-		(CKEQ (IGREATERP 177777Q -200000Q)
-		      T)
-		(CKEQ (IPLUS 177777Q -200000Q)
-		      -1)
-		(CKEQ (IDIFFERENCE 177777Q -200000Q)
-		      377777Q)
-		(CKEQ (LOGOR 177777Q -200000Q)
-		      -1)
-		(CKEQ (LOGAND 177777Q -200000Q)
-		      0)
-		(CKEQ (LOGXOR 177777Q -200000Q)
-		      -1)
-		(CKEQ (IGREATERP 177777Q 177776Q)
-		      T)
-		(CKEQ (IPLUS 177777Q 177776Q)
-		      377775Q)
-		(CKEQ (IDIFFERENCE 177777Q 177776Q)
-		      1)
-		(CKEQ (LOGOR 177777Q 177776Q)
-		      177777Q)
-		(CKEQ (LOGAND 177777Q 177776Q)
-		      177776Q)
-		(CKEQ (LOGXOR 177777Q 177776Q)
-		      1)
-		(CKEQ (IGREATERP 177777Q -200001Q)
-		      T)
-		(CKEQ (IPLUS 177777Q -200001Q)
-		      -2)
-		(CKEQ (IDIFFERENCE 177777Q -200001Q)
-		      400000Q)
-		(CKEQ (LOGOR 177777Q -200001Q)
-		      -200001Q)
-		(CKEQ (LOGAND 177777Q -200001Q)
-		      177777Q)
-		(CKEQ (LOGXOR 177777Q -200001Q)
-		      -400000Q)
-		(CKEQ (IGREATERP -200000Q 0)
-		      NIL)
-		(CKEQ (IPLUS -200000Q 0)
-		      -200000Q)
-		(CKEQ (IDIFFERENCE -200000Q 0)
-		      -200000Q)
-		(CKEQ (LOGOR -200000Q 0)
-		      -200000Q)
-		(CKEQ (LOGAND -200000Q 0)
-		      0)
-		(CKEQ (LOGXOR -200000Q 0)
-		      -200000Q)
-		(CKEQ (IGREATERP -200000Q 1)
-		      NIL)
-		(CKEQ (IPLUS -200000Q 1)
-		      -177777Q)
-		(CKEQ (IDIFFERENCE -200000Q 1)
-		      -200001Q)
-		(CKEQ (LOGOR -200000Q 1)
-		      -177777Q)
-		(CKEQ (LOGAND -200000Q 1)
-		      0)
-		(CKEQ (LOGXOR -200000Q 1)
-		      -177777Q)
-		(CKEQ (IGREATERP -200000Q -1)
-		      NIL)
-		(CKEQ (IPLUS -200000Q -1)
-		      -200001Q)
-		(CKEQ (IDIFFERENCE -200000Q -1)
-		      -177777Q)
-		(CKEQ (LOGOR -200000Q -1)
-		      -1)
-		(CKEQ (LOGAND -200000Q -1)
-		      -200000Q)
-		(CKEQ (LOGXOR -200000Q -1)
-		      177777Q)
-		(CKEQ (IGREATERP -200000Q 2)
-		      NIL)
-		(CKEQ (IPLUS -200000Q 2)
-		      -177776Q)
-		(CKEQ (IDIFFERENCE -200000Q 2)
-		      -200002Q)
-		(CKEQ (LOGOR -200000Q 2)
-		      -177776Q)
-		(CKEQ (LOGAND -200000Q 2)
-		      0)
-		(CKEQ (LOGXOR -200000Q 2)
-		      -177776Q)
-		(CKEQ (IGREATERP -200000Q -2)
-		      NIL)
-		(CKEQ (IPLUS -200000Q -2)
-		      -200002Q)
-		(CKEQ (IDIFFERENCE -200000Q -2)
-		      -177776Q)
-		(CKEQ (LOGOR -200000Q -2)
-		      -2)
-		(CKEQ (LOGAND -200000Q -2)
-		      -200000Q)
-		(CKEQ (LOGXOR -200000Q -2)
-		      177776Q)
-		(CKEQ (IGREATERP -200000Q 177777Q)
-		      NIL)
-		(CKEQ (IPLUS -200000Q 177777Q)
-		      -1)
-		(CKEQ (IDIFFERENCE -200000Q 177777Q)
-		      -377777Q)
-		(CKEQ (LOGOR -200000Q 177777Q)
-		      -1)
-		(CKEQ (LOGAND -200000Q 177777Q)
-		      0)
-		(CKEQ (LOGXOR -200000Q 177777Q)
-		      -1)
-		(CKEQ (IGREATERP -200000Q -200000Q)
-		      NIL)
-		(CKEQ (IPLUS -200000Q -200000Q)
-		      -400000Q)
-		(CKEQ (IDIFFERENCE -200000Q -200000Q)
-		      0)
-		(CKEQ (LOGOR -200000Q -200000Q)
-		      -200000Q)
-		(CKEQ (LOGAND -200000Q -200000Q)
-		      -200000Q)
-		(CKEQ (LOGXOR -200000Q -200000Q)
-		      0)
-		(CKEQ (IGREATERP -200000Q 177776Q)
-		      NIL)
-		(CKEQ (IPLUS -200000Q 177776Q)
-		      -2)
-		(CKEQ (IDIFFERENCE -200000Q 177776Q)
-		      -377776Q)
-		(CKEQ (LOGOR -200000Q 177776Q)
-		      -2)
-		(CKEQ (LOGAND -200000Q 177776Q)
-		      0)
-		(CKEQ (LOGXOR -200000Q 177776Q)
-		      -2)
-		(CKEQ (IGREATERP -200000Q -200001Q)
-		      T)
-		(CKEQ (IPLUS -200000Q -200001Q)
-		      -400001Q)
-		(CKEQ (IDIFFERENCE -200000Q -200001Q)
-		      1)
-		(CKEQ (LOGOR -200000Q -200001Q)
-		      -1)
-		(CKEQ (LOGAND -200000Q -200001Q)
-		      -400000Q)
-		(CKEQ (LOGXOR -200000Q -200001Q)
-		      377777Q)
-		(CKEQ (IGREATERP 177776Q 0)
-		      T)
-		(CKEQ (IPLUS 177776Q 0)
-		      177776Q)
-		(CKEQ (IDIFFERENCE 177776Q 0)
-		      177776Q)
-		(CKEQ (LOGOR 177776Q 0)
-		      177776Q)
-		(CKEQ (LOGAND 177776Q 0)
-		      0)
-		(CKEQ (LOGXOR 177776Q 0)
-		      177776Q)
-		(CKEQ (IGREATERP 177776Q 1)
-		      T)
-		(CKEQ (IPLUS 177776Q 1)
-		      177777Q)
-		(CKEQ (IDIFFERENCE 177776Q 1)
-		      177775Q)
-		(CKEQ (LOGOR 177776Q 1)
-		      177777Q)
-		(CKEQ (LOGAND 177776Q 1)
-		      0)
-		(CKEQ (LOGXOR 177776Q 1)
-		      177777Q)
-		(CKEQ (IGREATERP 177776Q -1)
-		      T)
-		(CKEQ (IPLUS 177776Q -1)
-		      177775Q)
-		(CKEQ (IDIFFERENCE 177776Q -1)
-		      177777Q)
-		(CKEQ (LOGOR 177776Q -1)
-		      -1)
-		(CKEQ (LOGAND 177776Q -1)
-		      177776Q)
-		(CKEQ (LOGXOR 177776Q -1)
-		      -177777Q)
-		(CKEQ (IGREATERP 177776Q 2)
-		      T))))
-
-(!NUMTEST5
-  (LAMBDA NIL                                                (* bvm: " 8-MAR-82 23:00")
-    (MTCHECKSTK (CKEQ (IPLUS 177776Q 2)
-		      200000Q)
-		(CKEQ (IDIFFERENCE 177776Q 2)
-		      177774Q)
-		(CKEQ (LOGOR 177776Q 2)
-		      177776Q)
-		(CKEQ (LOGAND 177776Q 2)
-		      2)
-		(CKEQ (LOGXOR 177776Q 2)
-		      177774Q)
-		(CKEQ (IGREATERP 177776Q -2)
-		      T)
-		(CKEQ (IPLUS 177776Q -2)
-		      177774Q)
-		(CKEQ (IDIFFERENCE 177776Q -2)
-		      200000Q)
-		(CKEQ (LOGOR 177776Q -2)
-		      -2)
-		(CKEQ (LOGAND 177776Q -2)
-		      177776Q)
-		(CKEQ (LOGXOR 177776Q -2)
-		      -200000Q)
-		(CKEQ (IGREATERP 177776Q 177777Q)
-		      NIL)
-		(CKEQ (IPLUS 177776Q 177777Q)
-		      377775Q)
-		(CKEQ (IDIFFERENCE 177776Q 177777Q)
-		      -1)
-		(CKEQ (LOGOR 177776Q 177777Q)
-		      177777Q)
-		(CKEQ (LOGAND 177776Q 177777Q)
-		      177776Q)
-		(CKEQ (LOGXOR 177776Q 177777Q)
-		      1)
-		(CKEQ (IGREATERP 177776Q -200000Q)
-		      T)
-		(CKEQ (IPLUS 177776Q -200000Q)
-		      -2)
-		(CKEQ (IDIFFERENCE 177776Q -200000Q)
-		      377776Q)
-		(CKEQ (LOGOR 177776Q -200000Q)
-		      -2)
-		(CKEQ (LOGAND 177776Q -200000Q)
-		      0)
-		(CKEQ (LOGXOR 177776Q -200000Q)
-		      -2)
-		(CKEQ (IGREATERP 177776Q 177776Q)
-		      NIL)
-		(CKEQ (IPLUS 177776Q 177776Q)
-		      377774Q)
-		(CKEQ (IDIFFERENCE 177776Q 177776Q)
-		      0)
-		(CKEQ (LOGOR 177776Q 177776Q)
-		      177776Q)
-		(CKEQ (LOGAND 177776Q 177776Q)
-		      177776Q)
-		(CKEQ (LOGXOR 177776Q 177776Q)
-		      0)
-		(CKEQ (IGREATERP 177776Q -200001Q)
-		      T)
-		(CKEQ (IPLUS 177776Q -200001Q)
-		      -3)
-		(CKEQ (IDIFFERENCE 177776Q -200001Q)
-		      377777Q)
-		(CKEQ (LOGOR 177776Q -200001Q)
-		      -200001Q)
-		(CKEQ (LOGAND 177776Q -200001Q)
-		      177776Q)
-		(CKEQ (LOGXOR 177776Q -200001Q)
-		      -377777Q)
-		(CKEQ (IGREATERP -200001Q 0)
-		      NIL)
-		(CKEQ (IPLUS -200001Q 0)
-		      -200001Q)
-		(CKEQ (IDIFFERENCE -200001Q 0)
-		      -200001Q)
-		(CKEQ (LOGOR -200001Q 0)
-		      -200001Q)
-		(CKEQ (LOGAND -200001Q 0)
-		      0)
-		(CKEQ (LOGXOR -200001Q 0)
-		      -200001Q)
-		(CKEQ (IGREATERP -200001Q 1)
-		      NIL)
-		(CKEQ (IPLUS -200001Q 1)
-		      -200000Q)
-		(CKEQ (IDIFFERENCE -200001Q 1)
-		      -200002Q)
-		(CKEQ (LOGOR -200001Q 1)
-		      -200001Q)
-		(CKEQ (LOGAND -200001Q 1)
-		      1)
-		(CKEQ (LOGXOR -200001Q 1)
-		      -200002Q)
-		(CKEQ (IGREATERP -200001Q -1)
-		      NIL)
-		(CKEQ (IPLUS -200001Q -1)
-		      -200002Q)
-		(CKEQ (IDIFFERENCE -200001Q -1)
-		      -200000Q)
-		(CKEQ (LOGOR -200001Q -1)
-		      -1)
-		(CKEQ (LOGAND -200001Q -1)
-		      -200001Q)
-		(CKEQ (LOGXOR -200001Q -1)
-		      200000Q)
-		(CKEQ (IGREATERP -200001Q 2)
-		      NIL)
-		(CKEQ (IPLUS -200001Q 2)
-		      -177777Q)
-		(CKEQ (IDIFFERENCE -200001Q 2)
-		      -200003Q)
-		(CKEQ (LOGOR -200001Q 2)
-		      -200001Q)
-		(CKEQ (LOGAND -200001Q 2)
-		      2)
-		(CKEQ (LOGXOR -200001Q 2)
-		      -200003Q)
-		(CKEQ (IGREATERP -200001Q -2)
-		      NIL)
-		(CKEQ (IPLUS -200001Q -2)
-		      -200003Q)
-		(CKEQ (IDIFFERENCE -200001Q -2)
-		      -177777Q)
-		(CKEQ (LOGOR -200001Q -2)
-		      -1)
-		(CKEQ (LOGAND -200001Q -2)
-		      -200002Q)
-		(CKEQ (LOGXOR -200001Q -2)
-		      200001Q)
-		(CKEQ (IGREATERP -200001Q 177777Q)
-		      NIL)
-		(CKEQ (IPLUS -200001Q 177777Q)
-		      -2)
-		(CKEQ (IDIFFERENCE -200001Q 177777Q)
-		      -400000Q)
-		(CKEQ (LOGOR -200001Q 177777Q)
-		      -200001Q)
-		(CKEQ (LOGAND -200001Q 177777Q)
-		      177777Q)
-		(CKEQ (LOGXOR -200001Q 177777Q)
-		      -400000Q)
-		(CKEQ (IGREATERP -200001Q -200000Q)
-		      NIL)
-		(CKEQ (IPLUS -200001Q -200000Q)
-		      -400001Q)
-		(CKEQ (IDIFFERENCE -200001Q -200000Q)
-		      -1)
-		(CKEQ (LOGOR -200001Q -200000Q)
-		      -1)
-		(CKEQ (LOGAND -200001Q -200000Q)
-		      -400000Q)
-		(CKEQ (LOGXOR -200001Q -200000Q)
-		      377777Q)
-		(CKEQ (IGREATERP -200001Q 177776Q)
-		      NIL)
-		(CKEQ (IPLUS -200001Q 177776Q)
-		      -3)
-		(CKEQ (IDIFFERENCE -200001Q 177776Q)
-		      -377777Q)
-		(CKEQ (LOGOR -200001Q 177776Q)
-		      -200001Q)
-		(CKEQ (LOGAND -200001Q 177776Q)
-		      177776Q)
-		(CKEQ (LOGXOR -200001Q 177776Q)
-		      -377777Q)
-		(CKEQ (IGREATERP -200001Q -200001Q)
-		      NIL)
-		(CKEQ (IPLUS -200001Q -200001Q)
-		      -400002Q)
-		(CKEQ (IDIFFERENCE -200001Q -200001Q)
-		      0)
-		(CKEQ (LOGOR -200001Q -200001Q)
-		      -200001Q)
-		(CKEQ (LOGAND -200001Q -200001Q)
-		      -200001Q)
-		(CKEQ (LOGXOR -200001Q -200001Q)
-		      0)
-		(CKEQ (LRSH 0 1)
-		      0)
-		(CKEQ (LLSH 0 1)
-		      0)
-		(CKEQ (LRSH 0 10Q)
-		      0)
-		(CKEQ (LLSH 0 10Q)
-		      0)
-		(CKEQ (LRSH 1 1)
-		      0)
-		(CKEQ (LLSH 1 1)
-		      2)
-		(CKEQ (LRSH 1 10Q)
-		      0)
-		(CKEQ (LLSH 1 10Q)
-		      400Q)
-		(CKEQ (LLSH -1 1)
-		      -2)
-		(CKEQ (LLSH -1 10Q)
-		      -400Q))))
-
-(!NUMTEST6
-  (LAMBDA NIL                                                (* bvm: " 8-MAR-82 23:00")
-    (MTCHECKSTK (CKEQ (LRSH 2 1)
-		      1)
-		(CKEQ (LLSH 2 1)
-		      4)
-		(CKEQ (LRSH 2 10Q)
-		      0)
-		(CKEQ (LLSH 2 10Q)
-		      1000Q)
-		(CKEQ (LLSH -2 1)
-		      -4)
-		(CKEQ (LLSH -2 10Q)
-		      -1000Q)
-		(CKEQ (LRSH 177777Q 1)
-		      77777Q)
-		(CKEQ (LLSH 177777Q 1)
-		      377776Q)
-		(CKEQ (LRSH 177777Q 10Q)
-		      377Q)
-		(CKEQ (LLSH 177777Q 10Q)
-		      77777400Q)
-		(CKEQ (LLSH -200000Q 1)
-		      -400000Q)
-		(CKEQ (LLSH -200000Q 10Q)
-		      -100000000Q)
-		(CKEQ (LRSH 177776Q 1)
-		      77777Q)
-		(CKEQ (LLSH 177776Q 1)
-		      377774Q)
-		(CKEQ (LRSH 177776Q 10Q)
-		      377Q)
-		(CKEQ (LLSH 177776Q 10Q)
-		      77777000Q)
-		(CKEQ (LLSH -200001Q 1)
-		      -400002Q)
-		(CKEQ (LLSH -200001Q 10Q)
-		      -100000400Q)
-		(CKEQ (IQUOTIENT 0 1)
-		      0)
-		(CKEQ (IREMAINDER 0 1)
-		      0)
-		(CKEQ (ITIMES 0 1)
-		      0)
-		(CKEQ (IQUOTIENT 0 10Q)
-		      0)
-		(CKEQ (IREMAINDER 0 10Q)
-		      0)
-		(CKEQ (ITIMES 0 10Q)
-		      0)
-		(CKEQ (IQUOTIENT 1 1)
-		      1)
-		(CKEQ (IREMAINDER 1 1)
-		      0)
-		(CKEQ (ITIMES 1 1)
-		      1)
-		(CKEQ (IQUOTIENT 1 10Q)
-		      0)
-		(CKEQ (IREMAINDER 1 10Q)
-		      1)
-		(CKEQ (ITIMES 1 10Q)
-		      10Q)
-		(CKEQ (IQUOTIENT -1 1)
-		      -1)
-		(CKEQ (IREMAINDER -1 1)
-		      0)
-		(CKEQ (ITIMES -1 1)
-		      -1)
-		(CKEQ (IQUOTIENT -1 10Q)
-		      0)
-		(CKEQ (IREMAINDER -1 10Q)
-		      -1)
-		(CKEQ (ITIMES -1 10Q)
-		      -10Q)
-		(CKEQ (IQUOTIENT 2 1)
-		      2)
-		(CKEQ (IREMAINDER 2 1)
-		      0)
-		(CKEQ (ITIMES 2 1)
-		      2)
-		(CKEQ (IQUOTIENT 2 10Q)
-		      0)
-		(CKEQ (IREMAINDER 2 10Q)
-		      2)
-		(CKEQ (ITIMES 2 10Q)
-		      20Q)
-		(CKEQ (IQUOTIENT -2 1)
-		      -2)
-		(CKEQ (IREMAINDER -2 1)
-		      0)
-		(CKEQ (ITIMES -2 1)
-		      -2)
-		(CKEQ (IQUOTIENT -2 10Q)
-		      0)
-		(CKEQ (IREMAINDER -2 10Q)
-		      -2)
-		(CKEQ (ITIMES -2 10Q)
-		      -20Q)
-		(CKEQ (IQUOTIENT 177777Q 1)
-		      177777Q)
-		(CKEQ (IREMAINDER 177777Q 1)
-		      0)
-		(CKEQ (ITIMES 177777Q 1)
-		      177777Q)
-		(CKEQ (IQUOTIENT 177777Q 10Q)
-		      17777Q)
-		(CKEQ (IREMAINDER 177777Q 10Q)
-		      7)
-		(CKEQ (ITIMES 177777Q 10Q)
-		      1777770Q)
-		(CKEQ (IQUOTIENT -200000Q 1)
-		      -200000Q)
-		(CKEQ (IREMAINDER -200000Q 1)
-		      0)
-		(CKEQ (ITIMES -200000Q 1)
-		      -200000Q)
-		(CKEQ (IQUOTIENT -200000Q 10Q)
-		      -20000Q)
-		(CKEQ (IREMAINDER -200000Q 10Q)
-		      0)
-		(CKEQ (ITIMES -200000Q 10Q)
-		      -2000000Q)
-		(CKEQ (IQUOTIENT 177776Q 1)
-		      177776Q)
-		(CKEQ (IREMAINDER 177776Q 1)
-		      0)
-		(CKEQ (ITIMES 177776Q 1)
-		      177776Q)
-		(CKEQ (IQUOTIENT 177776Q 10Q)
-		      17777Q)
-		(CKEQ (IREMAINDER 177776Q 10Q)
-		      6)
-		(CKEQ (ITIMES 177776Q 10Q)
-		      1777760Q)
-		(CKEQ (IQUOTIENT -200001Q 1)
-		      -200001Q)
-		(CKEQ (IREMAINDER -200001Q 1)
-		      0)
-		(CKEQ (ITIMES -200001Q 1)
-		      -200001Q)
-		(CKEQ (IQUOTIENT -200001Q 10Q)
-		      -20000Q)
-		(CKEQ (IREMAINDER -200001Q 10Q)
-		      -1)
-		(CKEQ (ITIMES -200001Q 10Q)
-		      -2000010Q)
-		(CKEQ (IQUOTIENT 3 1)
-		      3)
-		(CKEQ (IREMAINDER 3 1)
-		      0)
-		(CKEQ (ITIMES 3 1)
-		      3)
-		(CKEQ (IQUOTIENT 3 10Q)
-		      0)
-		(CKEQ (IREMAINDER 3 10Q)
-		      3)
-		(CKEQ (ITIMES 3 10Q)
-		      30Q)
-		(CKEQ (IQUOTIENT -3 1)
-		      -3)
-		(CKEQ (IREMAINDER -3 1)
-		      0)
-		(CKEQ (ITIMES -3 1)
-		      -3)
-		(CKEQ (IQUOTIENT -3 10Q)
-		      0)
-		(CKEQ (IREMAINDER -3 10Q)
-		      -3)
-		(CKEQ (ITIMES -3 10Q)
-		      -30Q)
-		(CKEQ (IQUOTIENT 4 1)
-		      4)
-		(CKEQ (IREMAINDER 4 1)
-		      0)
-		(CKEQ (ITIMES 4 1)
-		      4)
-		(CKEQ (IQUOTIENT 4 10Q)
-		      0)
-		(CKEQ (IREMAINDER 4 10Q)
-		      4)
-		(CKEQ (ITIMES 4 10Q)
-		      40Q)
-		(CKEQ (IQUOTIENT -4 1)
-		      -4)
-		(CKEQ (IREMAINDER -4 1)
-		      0)
-		(CKEQ (ITIMES -4 1)
-		      -4)
-		(CKEQ (IQUOTIENT -4 10Q)
-		      0)
-		(CKEQ (IREMAINDER -4 10Q)
-		      -4)
-		(CKEQ (ITIMES -4 10Q)
-		      -40Q))))
-
-(!RANDNUMTEST
-  (LAMBDA NIL                                                (* lmm " 5-JAN-82 20:03")
-
-          (* (PROG (FORMS FORM ARG1 ARG2) (FRPTQ 36Q (SETQ ARG1 (SELECTQ (RAND 0 2) (0 (RAND -200000Q 177777Q)) 
-	  (1 (RAND -5 5)) (RAND -20000000000Q 17777777777Q))) (SETQ ARG2 (SELECTQ (RAND 0 2) (0 (RAND -200000Q 177777Q)) 
-	  (1 (RAND -5 5)) (RAND -20000000000Q 17777777777Q))) (for FN in (QUOTE (ITIMES IQUOTIENT IPLUS IDIFFERENCE 
-	  IREMAINDER)) do (COND ((OR (NEQ ARG2 0) (NEQ FN (QUOTE IQUOTIENT))) (SETQ FORM (APPLY* (PACK* 
-	  (QUOTE F) (SUBATOM FN 2 -1)) (FLOAT ARG1) (FLOAT ARG2))) (COND ((AND (FGREATERP FORM -20000000000Q) 
-	  (FLESSP FORM -20000000000Q)) (SETQ FORM (LIST FN ARG1 ARG2)) (push FORMS (LIST (QUOTE CKEQ) FORM 
-	  (EVAL FORM))))))))) (RETURN (CONS (QUOTE MTCHECKSTK) FORMS))))
-
-
-    (!RANDNUMTEST1)
-    (!RANDNUMTEST2)
-    (!RANDNUMTEST3)
-    (!RANDNUMTEST4)))
-
-(!RANDNUMTEST1
-  (LAMBDA NIL                                                (* lmm " 5-JAN-82 20:00")
-    (MTCHECKSTK (CKEQ (IDIFFERENCE 225103021Q -41354Q)
-		      225144375Q)
-		(CKEQ (IPLUS 225103021Q -41354Q)
-		      225041445Q)
-		(CKEQ (IQUOTIENT 225103021Q -41354Q)
-		      -4351Q)
-		(CKEQ (IDIFFERENCE 55211Q -170231Q)
-		      245442Q)
-		(CKEQ (IPLUS 55211Q -170231Q)
-		      -113020Q)
-		(CKEQ (IQUOTIENT 55211Q -170231Q)
-		      0)
-		(CKEQ (ITIMES 55211Q -170231Q)
-		      -12505505741Q)
-		(CKEQ (IDIFFERENCE 7527556636Q 6230151670Q)
-		      1277404746Q)
-		(CKEQ (IPLUS 7527556636Q 6230151670Q)
-		      15757730526Q)
-		(CKEQ (IQUOTIENT 7527556636Q 6230151670Q)
-		      1)
-		(CKEQ (IDIFFERENCE 46753Q 147206Q)
-		      -100233Q)
-		(CKEQ (IPLUS 46753Q 147206Q)
-		      216161Q)
-		(CKEQ (IQUOTIENT 46753Q 147206Q)
-		      0)
-		(CKEQ (ITIMES 46753Q 147206Q)
-		      7666761402Q)
-		(CKEQ (IDIFFERENCE -2102475710Q 2301345735Q)
-		      -4404043645Q)
-		(CKEQ (IPLUS -2102475710Q 2301345735Q)
-		      176650025Q)
-		(CKEQ (IQUOTIENT -2102475710Q 2301345735Q)
-		      0)
-		(CKEQ (IDIFFERENCE -2623Q 4352565011Q)
-		      -4352567634Q)
-		(CKEQ (IPLUS -2623Q 4352565011Q)
-		      4352562166Q)
-		(CKEQ (IQUOTIENT -2623Q 4352565011Q)
-		      0)
-		(CKEQ (IDIFFERENCE -14153253501Q -57651Q)
-		      -14153173630Q)
-		(CKEQ (IPLUS -14153253501Q -57651Q)
-		      -14153333352Q)
-		(CKEQ (IQUOTIENT -14153253501Q -57651Q)
-		      202545Q)
-		(CKEQ (IDIFFERENCE 165526Q 2720657437Q)
-		      -2720471711Q)
-		(CKEQ (IPLUS 165526Q 2720657437Q)
-		      2721045165Q)
-		(CKEQ (IQUOTIENT 165526Q 2720657437Q)
-		      0)
-		(CKEQ (IDIFFERENCE 2225143040Q 64675Q)
-		      2225056143Q)
-		(CKEQ (IPLUS 2225143040Q 64675Q)
-		      2225227735Q)
-		(CKEQ (IQUOTIENT 2225143040Q 64675Q)
-		      26141Q)
-		(CKEQ (IPLUS -12315334401Q 14120673261Q)
-		      1603336660Q)
-		(CKEQ (IQUOTIENT -12315334401Q 14120673261Q)
-		      0)
-		(CKEQ (IDIFFERENCE -10505775255Q 163226Q)
-		      -10506160503Q)
-		(CKEQ (IPLUS -10505775255Q 163226Q)
-		      -10505612027Q)
-		(CKEQ (IQUOTIENT -10505775255Q 163226Q)
-		      -46265Q)
-		(CKEQ (IDIFFERENCE 122271Q 173021Q)
-		      -50530Q)
-		(CKEQ (IPLUS 122271Q 173021Q)
-		      315312Q)
-		(CKEQ (IQUOTIENT 122271Q 173021Q)
-		      0)
-		(CKEQ (IDIFFERENCE 16047667244Q -135273Q)
-		      16050024537Q)
-		(CKEQ (IPLUS 16047667244Q -135273Q)
-		      16047531751Q)
-		(CKEQ (IQUOTIENT 16047667244Q -135273Q)
-		      -115146Q)
-		(CKEQ (IDIFFERENCE -16411515370Q 21036Q)
-		      -16411536426Q)
-		(CKEQ (IPLUS -16411515370Q 21036Q)
-		      -16411474332Q)
-		(CKEQ (IQUOTIENT -16411515370Q 21036Q)
-		      -663613Q)
-		(CKEQ (IDIFFERENCE -11057170232Q -34634Q)
-		      -11057133376Q)
-		(CKEQ (IPLUS -11057170232Q -34634Q)
-		      -11057225066Q)
-		(CKEQ (IQUOTIENT -11057170232Q -34634Q)
-		      241472Q)
-		(CKEQ (IPLUS 14517530732Q -6065652751Q)
-		      6431655761Q)
-		(CKEQ (IQUOTIENT 14517530732Q -6065652751Q)
-		      -2)
-		(CKEQ (IDIFFERENCE 137044Q -4034725370Q)
-		      4035064434Q)
-		(CKEQ (IPLUS 137044Q -4034725370Q)
-		      -4034566324Q)
-		(CKEQ (IQUOTIENT 137044Q -4034725370Q)
-		      0)
-		(CKEQ (IDIFFERENCE -14543070643Q -1302005044Q)
-		      -13241063577Q)
-		(CKEQ (IPLUS -14543070643Q -1302005044Q)
-		      -16045075707Q)
-		(CKEQ (IQUOTIENT -14543070643Q -1302005044Q)
-		      11Q)
-		(CKEQ (IDIFFERENCE 14210657030Q 16531056111Q)
-		      -2320177061Q)
-		(CKEQ (IQUOTIENT 14210657030Q 16531056111Q)
-		      0)
-		(CKEQ (IDIFFERENCE 550212747Q 1055626226Q)
-		      -305413257Q)
-		(CKEQ (IPLUS 550212747Q 1055626226Q)
-		      1626041175Q)
-		(CKEQ (IQUOTIENT 550212747Q 1055626226Q)
-		      0)
-		(CKEQ (IDIFFERENCE -11131703146Q -11764360741Q)
-		      632455573Q)
-		(CKEQ (IQUOTIENT -11131703146Q -11764360741Q)
-		      0)
-		(CKEQ (IDIFFERENCE 1541425342Q 12472345535Q)
-		      -10730720173Q)
-		(CKEQ (IPLUS 1541425342Q 12472345535Q)
-		      14233773077Q)
-		(CKEQ (IQUOTIENT 1541425342Q 12472345535Q)
-		      0)
-		(CKEQ (IDIFFERENCE -15531366430Q -100526Q)
-		      -15531265702Q)
-		(CKEQ (IPLUS -15531366430Q -100526Q)
-		      -15531467156Q)
-		(CKEQ (IQUOTIENT -15531366430Q -100526Q)
-		      154211Q)
-		(CKEQ (IDIFFERENCE -41050Q -326400641Q)
-		      326337571Q)
-		(CKEQ (IPLUS -41050Q -326400641Q)
-		      -326441711Q)
-		(CKEQ (IQUOTIENT -41050Q -326400641Q)
-		      0)
-		(CKEQ (IPLUS 16630056316Q -13347047476Q)
-		      3261006620Q)
-		(CKEQ (IQUOTIENT 16630056316Q -13347047476Q)
-		      -1)
-		(CKEQ (IDIFFERENCE -31740Q -6001042052Q)
-		      6001010112Q)
-		(CKEQ (IPLUS -31740Q -6001042052Q)
-		      -6001074012Q)
-		(CKEQ (IQUOTIENT -31740Q -6001042052Q)
-		      0)
-		(CKEQ (IDIFFERENCE -110217Q -12653617250Q)
-		      12653507031Q)
-		(CKEQ (IPLUS -110217Q -12653617250Q)
-		      -12653727467Q)
-		(CKEQ (IQUOTIENT -110217Q -12653617250Q)
-		      0)
-		(CKEQ (IDIFFERENCE 116216Q 2453154032Q)
-		      -2453035614Q)
-		(CKEQ (IPLUS 116216Q 2453154032Q)
-		      2453272250Q)
-		(CKEQ (IQUOTIENT 116216Q 2453154032Q)
-		      0)
-		(CKEQ (IDIFFERENCE 4553332136Q -4142306347Q)
-		      10715640505Q)
-		(CKEQ (IPLUS 4553332136Q -4142306347Q)
-		      411023567Q)
-		(CKEQ (IQUOTIENT 4553332136Q -4142306347Q)
-		      -1)
-		(CKEQ (IPLUS 17161754144Q -3270231756Q)
-		      13671522166Q)
-		(CKEQ (IQUOTIENT 17161754144Q -3270231756Q)
-		      -4))))
-
-(!RANDNUMTEST2
-  (LAMBDA NIL                                                (* lmm " 5-JAN-82 20:01")
-    (MTCHECKSTK (CKEQ (IREMAINDER 7372147664Q -161456Q)
-		      64130Q)
-		(CKEQ (IDIFFERENCE 7372147664Q -161456Q)
-		      7372331342Q)
-		(CKEQ (IPLUS 7372147664Q -161456Q)
-		      7371766206Q)
-		(CKEQ (IQUOTIENT 7372147664Q -161456Q)
-		      -41602Q)
-		(CKEQ (IREMAINDER 17634621231Q -146562Q)
-		      124171Q)
-		(CKEQ (IDIFFERENCE 17634621231Q -146562Q)
-		      17634770013Q)
-		(CKEQ (IPLUS 17634621231Q -146562Q)
-		      17634452447Q)
-		(CKEQ (IQUOTIENT 17634621231Q -146562Q)
-		      -116620Q)
-		(CKEQ (IREMAINDER -117002Q 11327523020Q)
-		      -117002Q)
-		(CKEQ (IDIFFERENCE -117002Q 11327523020Q)
-		      -11327642022Q)
-		(CKEQ (IPLUS -117002Q 11327523020Q)
-		      11327404016Q)
-		(CKEQ (IQUOTIENT -117002Q 11327523020Q)
-		      0)
-		(CKEQ (IREMAINDER 7040503561Q 5360767723Q)
-		      1457513636Q)
-		(CKEQ (IDIFFERENCE 7040503561Q 5360767723Q)
-		      1457513636Q)
-		(CKEQ (IPLUS 7040503561Q 5360767723Q)
-		      14421473504Q)
-		(CKEQ (IQUOTIENT 7040503561Q 5360767723Q)
-		      1)
-		(CKEQ (IREMAINDER 2701423332Q -17633736657Q)
-		      2701423332Q)
-		(CKEQ (IPLUS 2701423332Q -17633736657Q)
-		      -14732313325Q)
-		(CKEQ (IQUOTIENT 2701423332Q -17633736657Q)
-		      0)
-		(CKEQ (IREMAINDER -15075426141Q 53650Q)
-		      -15721Q)
-		(CKEQ (IDIFFERENCE -15075426141Q 53650Q)
-		      -15075502011Q)
-		(CKEQ (IPLUS -15075426141Q 53650Q)
-		      -15075352271Q)
-		(CKEQ (IQUOTIENT -15075426141Q 53650Q)
-		      -231212Q)
-		(CKEQ (IREMAINDER 11564140373Q 5167Q)
-		      3101Q)
-		(CKEQ (IDIFFERENCE 11564140373Q 5167Q)
-		      11564133204Q)
-		(CKEQ (IPLUS 11564140373Q 5167Q)
-		      11564145562Q)
-		(CKEQ (IQUOTIENT 11564140373Q 5167Q)
-		      1667626Q)
-		(CKEQ (IREMAINDER -766157106Q 11221047643Q)
-		      -766157106Q)
-		(CKEQ (IDIFFERENCE -766157106Q 11221047643Q)
-		      -12207226751Q)
-		(CKEQ (IPLUS -766157106Q 11221047643Q)
-		      10232670535Q)
-		(CKEQ (IQUOTIENT -766157106Q 11221047643Q)
-		      0)
-		(CKEQ (IREMAINDER -134743Q -10243Q)
-		      -1342Q)
-		(CKEQ (IDIFFERENCE -134743Q -10243Q)
-		      -124500Q)
-		(CKEQ (IPLUS -134743Q -10243Q)
-		      -145206Q)
-		(CKEQ (IQUOTIENT -134743Q -10243Q)
-		      13Q)
-		(CKEQ (ITIMES -134743Q -10243Q)
-		      1405105611Q)
-		(CKEQ (IREMAINDER 156361Q 44021Q)
-		      2276Q)
-		(CKEQ (IDIFFERENCE 156361Q 44021Q)
-		      112340Q)
-		(CKEQ (IPLUS 156361Q 44021Q)
-		      222402Q)
-		(CKEQ (IQUOTIENT 156361Q 44021Q)
-		      3)
-		(CKEQ (ITIMES 156361Q 44021Q)
-		      7614472001Q)
-		(CKEQ (IREMAINDER -7606212052Q -12463650767Q)
-		      -7606212052Q)
-		(CKEQ (IDIFFERENCE -7606212052Q -12463650767Q)
-		      2655436715Q)
-		(CKEQ (IQUOTIENT -7606212052Q -12463650767Q)
-		      0)
-		(CKEQ (IREMAINDER -23644Q 2024103014Q)
-		      -23644Q)
-		(CKEQ (IDIFFERENCE -23644Q 2024103014Q)
-		      -2024126660Q)
-		(CKEQ (IPLUS -23644Q 2024103014Q)
-		      2024057150Q)
-		(CKEQ (IQUOTIENT -23644Q 2024103014Q)
-		      0)
-		(CKEQ (IREMAINDER 142402Q -11771213026Q)
-		      142402Q)
-		(CKEQ (IDIFFERENCE 142402Q -11771213026Q)
-		      11771355430Q)
-		(CKEQ (IPLUS 142402Q -11771213026Q)
-		      -11771050424Q)
-		(CKEQ (IQUOTIENT 142402Q -11771213026Q)
-		      0)
-		(CKEQ (IREMAINDER 137211Q 123321Q)
-		      13670Q)
-		(CKEQ (IDIFFERENCE 137211Q 123321Q)
-		      13670Q)
-		(CKEQ (IPLUS 137211Q 123321Q)
-		      262532Q)
-		(CKEQ (IQUOTIENT 137211Q 123321Q)
-		      1)
-		(CKEQ (ITIMES 137211Q 123321Q)
-		      17412061731Q)
-		(CKEQ (IREMAINDER -203262767Q 163647Q)
-		      -107633Q)
-		(CKEQ (IDIFFERENCE -203262767Q 163647Q)
-		      -203446636Q)
-		(CKEQ (IPLUS -203262767Q 163647Q)
-		      -203077120Q)
-		(CKEQ (IQUOTIENT -203262767Q 163647Q)
-		      -1104Q)
-		(CKEQ (IREMAINDER -6313474405Q 6752273462Q)
-		      -6313474405Q)
-		(CKEQ (IDIFFERENCE -6313474405Q 6752273462Q)
-		      -15265770067Q)
-		(CKEQ (IPLUS -6313474405Q 6752273462Q)
-		      436577055Q)
-		(CKEQ (IQUOTIENT -6313474405Q 6752273462Q)
-		      0)
-		(CKEQ (IREMAINDER -14063014353Q 113451Q)
-		      -72715Q)
-		(CKEQ (IDIFFERENCE -14063014353Q 113451Q)
-		      -14063130024Q)
-		(CKEQ (IPLUS -14063014353Q 113451Q)
-		      -14062700702Q)
-		(CKEQ (IQUOTIENT -14063014353Q 113451Q)
-		      -121756Q)
-		(CKEQ (IREMAINDER 10227145055Q 6462363731Q)
-		      1544561124Q)
-		(CKEQ (IDIFFERENCE 10227145055Q 6462363731Q)
-		      1544561124Q)
-		(CKEQ (IPLUS 10227145055Q 6462363731Q)
-		      16711531006Q)
-		(CKEQ (IQUOTIENT 10227145055Q 6462363731Q)
-		      1)
-		(CKEQ (IREMAINDER -75324Q 175652Q)
-		      -75324Q)
-		(CKEQ (IDIFFERENCE -75324Q 175652Q)
-		      -273176Q)
-		(CKEQ (IPLUS -75324Q 175652Q)
-		      100326Q)
-		(CKEQ (IQUOTIENT -75324Q 175652Q)
-		      0)
-		(CKEQ (ITIMES -75324Q 175652Q)
-		      -17057666310Q)
-		(CKEQ (IREMAINDER 115610Q 11164020356Q)
-		      115610Q)
-		(CKEQ (IDIFFERENCE 115610Q 11164020356Q)
-		      -11163702546Q)
-		(CKEQ (IPLUS 115610Q 11164020356Q)
-		      11164136166Q)
-		(CKEQ (IQUOTIENT 115610Q 11164020356Q)
-		      0)
-		(CKEQ (IREMAINDER -31121Q 161167Q)
-		      -31121Q)
-		(CKEQ (IDIFFERENCE -31121Q 161167Q)
-		      -212310Q)
-		(CKEQ (IPLUS -31121Q 161167Q)
-		      130046Q)
-		(CKEQ (IQUOTIENT -31121Q 161167Q)
-		      0)
-		(CKEQ (ITIMES -31121Q 161167Q)
-		      -5440562647Q)
-		(CKEQ (IREMAINDER -1077046130Q 2302031512Q)
-		      -1077046130Q)
-		(CKEQ (IDIFFERENCE -1077046130Q 2302031512Q)
-		      -3401077642Q)
-		(CKEQ (IPLUS -1077046130Q 2302031512Q)
-		      1202763362Q)
-		(CKEQ (IQUOTIENT -1077046130Q 2302031512Q)
-		      0)
-		(CKEQ (IREMAINDER 162464Q 5724142525Q)
-		      162464Q)
-		(CKEQ (IDIFFERENCE 162464Q 5724142525Q)
-		      -5723760041Q)
-		(CKEQ (IPLUS 162464Q 5724142525Q)
-		      5724325211Q)
-		(CKEQ (IQUOTIENT 162464Q 5724142525Q)
-		      0)
-		(CKEQ (IREMAINDER -16247235274Q 2154207235Q)
-		      -1035561416Q)
-		(CKEQ (IPLUS -16247235274Q 2154207235Q)
-		      -14073026037Q)
-		(CKEQ (IQUOTIENT -16247235274Q 2154207235Q)
-		      -6)
-		(CKEQ (IREMAINDER -2773332645Q 145350Q)
-		      -75045Q)
-		(CKEQ (IDIFFERENCE -2773332645Q 145350Q)
-		      -2773500215Q)
-		(CKEQ (IPLUS -2773332645Q 145350Q)
-		      -2773165275Q)
-		(CKEQ (IQUOTIENT -2773332645Q 145350Q)
-		      -17060Q)
-		(CKEQ (IREMAINDER -30761Q -26031Q)
-		      -2730Q)
-		(CKEQ (IDIFFERENCE -30761Q -26031Q)
-		      -2730Q)
-		(CKEQ (IPLUS -30761Q -26031Q)
-		      -57012Q)
-		(CKEQ (IQUOTIENT -30761Q -26031Q)
-		      1)
-		(CKEQ (ITIMES -30761Q -26031Q)
-		      1046446211Q)
-		(CKEQ (IREMAINDER -70373Q -115660Q)
-		      -70373Q)
-		(CKEQ (IDIFFERENCE -70373Q -115660Q)
-		      25265Q)
-		(CKEQ (IPLUS -70373Q -115660Q)
-		      -206253Q)
-		(CKEQ (IQUOTIENT -70373Q -115660Q)
-		      0)
-		(CKEQ (ITIMES -70373Q -115660Q)
-		      10455322620Q)
-		(CKEQ (IREMAINDER -161501Q -106613Q)
-		      -52666Q)
-		(CKEQ (IDIFFERENCE -161501Q -106613Q)
-		      -52666Q)
-		(CKEQ (IPLUS -161501Q -106613Q)
-		      -270314Q)
-		(CKEQ (IQUOTIENT -161501Q -106613Q)
-		      1)
-		(CKEQ (ITIMES -161501Q -106613Q)
-		      17551430513Q)
-		(CKEQ (IREMAINDER -37733Q 6613741611Q)
-		      -37733Q)
-		(CKEQ (IDIFFERENCE -37733Q 6613741611Q)
-		      -6614001544Q)
-		(CKEQ (IPLUS -37733Q 6613741611Q)
-		      6613701656Q)
-		(CKEQ (IQUOTIENT -37733Q 6613741611Q)
-		      0)
-		(CKEQ (IREMAINDER 5403313261Q 170515Q)
-		      106045Q)
-		(CKEQ (IDIFFERENCE 5403313261Q 170515Q)
-		      5403122544Q)
-		(CKEQ (IPLUS 5403313261Q 170515Q)
-		      5403503776Q)
-		(CKEQ (IQUOTIENT 5403313261Q 170515Q)
-		      27274Q))))
-
-(!RANDNUMTEST3
-  (LAMBDA NIL                                                (* lmm " 5-JAN-82 20:02")
-    (MTCHECKSTK (CKEQ (IREMAINDER 7362115002Q 33052Q)
-		      12214Q)
-		(CKEQ (IDIFFERENCE 7362115002Q 33052Q)
-		      7362061730Q)
-		(CKEQ (IPLUS 7362115002Q 33052Q)
-		      7362150054Q)
-		(CKEQ (IQUOTIENT 7362115002Q 33052Q)
-		      215217Q)
-		(CKEQ (IREMAINDER 156125Q -77040Q)
-		      57065Q)
-		(CKEQ (IDIFFERENCE 156125Q -77040Q)
-		      255165Q)
-		(CKEQ (IPLUS 156125Q -77040Q)
-		      57065Q)
-		(CKEQ (IQUOTIENT 156125Q -77040Q)
-		      -1)
-		(CKEQ (ITIMES 156125Q -77040Q)
-		      -15443260240Q)
-		(CKEQ (IREMAINDER 17144576471Q 63524Q)
-		      36051Q)
-		(CKEQ (IDIFFERENCE 17144576471Q 63524Q)
-		      17144512745Q)
-		(CKEQ (IPLUS 17144576471Q 63524Q)
-		      17144662215Q)
-		(CKEQ (IQUOTIENT 17144576471Q 63524Q)
-		      226464Q)
-		(CKEQ (IREMAINDER -1004475702Q -3747655621Q)
-		      -1004475702Q)
-		(CKEQ (IDIFFERENCE -1004475702Q -3747655621Q)
-		      2743157717Q)
-		(CKEQ (IPLUS -1004475702Q -3747655621Q)
-		      -4754353523Q)
-		(CKEQ (IQUOTIENT -1004475702Q -3747655621Q)
-		      0)
-		(CKEQ (IREMAINDER 7154Q 74266Q)
-		      7154Q)
-		(CKEQ (IDIFFERENCE 7154Q 74266Q)
-		      -65112Q)
-		(CKEQ (IPLUS 7154Q 74266Q)
-		      103442Q)
-		(CKEQ (IQUOTIENT 7154Q 74266Q)
-		      0)
-		(CKEQ (ITIMES 7154Q 74266Q)
-		      663160310Q)
-		(CKEQ (IREMAINDER 14551535630Q -16006147276Q)
-		      14551535630Q)
-		(CKEQ (IPLUS 14551535630Q -16006147276Q)
-		      -1234411446Q)
-		(CKEQ (IQUOTIENT 14551535630Q -16006147276Q)
-		      0)
-		(CKEQ (IREMAINDER -7700724341Q -13323635271Q)
-		      -7700724341Q)
-		(CKEQ (IDIFFERENCE -7700724341Q -13323635271Q)
-		      3422710730Q)
-		(CKEQ (IQUOTIENT -7700724341Q -13323635271Q)
-		      0)
-		(CKEQ (IREMAINDER -130016Q -37545Q)
-		      -30504Q)
-		(CKEQ (IDIFFERENCE -130016Q -37545Q)
-		      -70251Q)
-		(CKEQ (IPLUS -130016Q -37545Q)
-		      -167563Q)
-		(CKEQ (IQUOTIENT -130016Q -37545Q)
-		      2)
-		(CKEQ (ITIMES -130016Q -37545Q)
-		      5346163606Q)
-		(CKEQ (IREMAINDER 145065Q 142234Q)
-		      2631Q)
-		(CKEQ (IDIFFERENCE 145065Q 142234Q)
-		      2631Q)
-		(CKEQ (IPLUS 145065Q 142234Q)
-		      307321Q)
-		(CKEQ (IQUOTIENT 145065Q 142234Q)
-		      1)
-		(CKEQ (IREMAINDER -114603Q 54774426Q)
-		      -114603Q)
-		(CKEQ (IDIFFERENCE -114603Q 54774426Q)
-		      -55111231Q)
-		(CKEQ (IPLUS -114603Q 54774426Q)
-		      54657623Q)
-		(CKEQ (IQUOTIENT -114603Q 54774426Q)
-		      0)
-		(CKEQ (IREMAINDER 12673322761Q -11447432721Q)
-		      1223670040Q)
-		(CKEQ (IPLUS 12673322761Q -11447432721Q)
-		      1223670040Q)
-		(CKEQ (IQUOTIENT 12673322761Q -11447432721Q)
-		      -1)
-		(CKEQ (IREMAINDER -173542Q -65615Q)
-		      -20110Q)
-		(CKEQ (IDIFFERENCE -173542Q -65615Q)
-		      -105725Q)
-		(CKEQ (IPLUS -173542Q -65615Q)
-		      -261357Q)
-		(CKEQ (IQUOTIENT -173542Q -65615Q)
-		      2)
-		(CKEQ (ITIMES -173542Q -65615Q)
-		      14773433372Q)
-		(CKEQ (IREMAINDER 104500Q 12532705726Q)
-		      104500Q)
-		(CKEQ (IDIFFERENCE 104500Q 12532705726Q)
-		      -12532601226Q)
-		(CKEQ (IPLUS 104500Q 12532705726Q)
-		      12533012426Q)
-		(CKEQ (IQUOTIENT 104500Q 12532705726Q)
-		      0)
-		(CKEQ (IREMAINDER 70447Q -45711Q)
-		      22536Q)
-		(CKEQ (IDIFFERENCE 70447Q -45711Q)
-		      136360Q)
-		(CKEQ (IPLUS 70447Q -45711Q)
-		      22536Q)
-		(CKEQ (IQUOTIENT 70447Q -45711Q)
-		      -1)
-		(CKEQ (ITIMES 70447Q -45711Q)
-		      -4137642237Q)
-		(CKEQ (IREMAINDER 157014Q 6410506327Q)
-		      157014Q)
-		(CKEQ (IDIFFERENCE 157014Q 6410506327Q)
-		      -6410327313Q)
-		(CKEQ (IPLUS 157014Q 6410506327Q)
-		      6410665343Q)
-		(CKEQ (IQUOTIENT 157014Q 6410506327Q)
-		      0)
-		(CKEQ (IREMAINDER -5531662541Q 33210Q)
-		      -22461Q)
-		(CKEQ (IDIFFERENCE -5531662541Q 33210Q)
-		      -5531715751Q)
-		(CKEQ (IPLUS -5531662541Q 33210Q)
-		      -5531627331Q)
-		(CKEQ (IQUOTIENT -5531662541Q 33210Q)
-		      -152446Q)
-		(CKEQ (IREMAINDER -757266226Q -155715Q)
-		      -122057Q)
-		(CKEQ (IDIFFERENCE -757266226Q -155715Q)
-		      -757110311Q)
-		(CKEQ (IPLUS -757266226Q -155715Q)
-		      -757444143Q)
-		(CKEQ (IQUOTIENT -757266226Q -155715Q)
-		      4403Q)
-		(CKEQ (IREMAINDER 12561101665Q 6715622627Q)
-		      3643257036Q)
-		(CKEQ (IDIFFERENCE 12561101665Q 6715622627Q)
-		      3643257036Q)
-		(CKEQ (IQUOTIENT 12561101665Q 6715622627Q)
-		      1)
-		(CKEQ (IREMAINDER 36575Q -146507Q)
-		      36575Q)
-		(CKEQ (IDIFFERENCE 36575Q -146507Q)
-		      205304Q)
-		(CKEQ (IPLUS 36575Q -146507Q)
-		      -107712Q)
-		(CKEQ (IQUOTIENT 36575Q -146507Q)
-		      0)
-		(CKEQ (ITIMES 36575Q -146507Q)
-		      -6123423253Q)
-		(CKEQ (IREMAINDER 43155Q 125453Q)
-		      43155Q)
-		(CKEQ (IDIFFERENCE 43155Q 125453Q)
-		      -62276Q)
-		(CKEQ (IPLUS 43155Q 125453Q)
-		      170630Q)
-		(CKEQ (IQUOTIENT 43155Q 125453Q)
-		      0)
-		(CKEQ (ITIMES 43155Q 125453Q)
-		      5705521517Q)
-		(CKEQ (IREMAINDER -13215101247Q 3476554023Q)
-		      -320775156Q)
-		(CKEQ (IDIFFERENCE -13215101247Q 3476554023Q)
-		      -16713655272Q)
-		(CKEQ (IPLUS -13215101247Q 3476554023Q)
-		      -7516325224Q)
-		(CKEQ (IQUOTIENT -13215101247Q 3476554023Q)
-		      -3)
-		(CKEQ (IREMAINDER 163010Q 13235743316Q)
-		      163010Q)
-		(CKEQ (IDIFFERENCE 163010Q 13235743316Q)
-		      -13235560306Q)
-		(CKEQ (IPLUS 163010Q 13235743316Q)
-		      13236126326Q)
-		(CKEQ (IQUOTIENT 163010Q 13235743316Q)
-		      0)
-		(CKEQ (IREMAINDER 13003244144Q -173327Q)
-		      140535Q)
-		(CKEQ (IDIFFERENCE 13003244144Q -173327Q)
-		      13003437473Q)
-		(CKEQ (IPLUS 13003244144Q -173327Q)
-		      13003050615Q)
-		(CKEQ (IQUOTIENT 13003244144Q -173327Q)
-		      -55521Q)
-		(CKEQ (IREMAINDER -46215Q 12704061362Q)
-		      -46215Q)
-		(CKEQ (IDIFFERENCE -46215Q 12704061362Q)
-		      -12704127577Q)
-		(CKEQ (IPLUS -46215Q 12704061362Q)
-		      12704013145Q)
-		(CKEQ (IQUOTIENT -46215Q 12704061362Q)
-		      0)
-		(CKEQ (IREMAINDER -2241Q -4264546202Q)
-		      -2241Q)
-		(CKEQ (IDIFFERENCE -2241Q -4264546202Q)
-		      4264543741Q)
-		(CKEQ (IPLUS -2241Q -4264546202Q)
-		      -4264550443Q)
-		(CKEQ (IQUOTIENT -2241Q -4264546202Q)
-		      0)
-		(CKEQ (IREMAINDER -20207Q 17333457066Q)
-		      -20207Q)
-		(CKEQ (IDIFFERENCE -20207Q 17333457066Q)
-		      -17333477275Q)
-		(CKEQ (IPLUS -20207Q 17333457066Q)
-		      17333436657Q)
-		(CKEQ (IQUOTIENT -20207Q 17333457066Q)
-		      0)
-		(CKEQ (IREMAINDER -6472607512Q 3122034574Q)
-		      -226516122Q)
-		(CKEQ (IDIFFERENCE -6472607512Q 3122034574Q)
-		      -11614644306Q)
-		(CKEQ (IPLUS -6472607512Q 3122034574Q)
-		      -3350552716Q)
-		(CKEQ (IQUOTIENT -6472607512Q 3122034574Q)
-		      -2)
-		(CKEQ (IREMAINDER -157453Q 15475670672Q)
-		      -157453Q)
-		(CKEQ (IDIFFERENCE -157453Q 15475670672Q)
-		      -15476050345Q)
-		(CKEQ (IPLUS -157453Q 15475670672Q)
-		      15475511217Q)
-		(CKEQ (IQUOTIENT -157453Q 15475670672Q)
-		      0)
-		(CKEQ (IREMAINDER -102550Q 5520722570Q)
-		      -102550Q)
-		(CKEQ (IDIFFERENCE -102550Q 5520722570Q)
-		      -5521025340Q)
-		(CKEQ (IPLUS -102550Q 5520722570Q)
-		      5520620020Q)
-		(CKEQ (IQUOTIENT -102550Q 5520722570Q)
-		      0)
-		(CKEQ (IREMAINDER 115632Q -13773705461Q)
-		      115632Q)
-		(CKEQ (IDIFFERENCE 115632Q -13773705461Q)
-		      13774023313Q)
-		(CKEQ (IPLUS 115632Q -13773705461Q)
-		      -13773567627Q)
-		(CKEQ (IQUOTIENT 115632Q -13773705461Q)
-		      0))))
-
-(!RANDNUMTEST4
-  (LAMBDA NIL                                                (* lmm "19-Jul-84 18:02")
-    (MTCHECKSTK (CKEQ (IREMAINDER 46416Q 73661Q)
-		      46416Q)
-		(CKEQ (IDIFFERENCE 46416Q 73661Q)
-		      -25243Q)
-		(CKEQ (IPLUS 46416Q 73661Q)
-		      142277Q)
-		(CKEQ (IQUOTIENT 46416Q 73661Q)
-		      0)
-		(CKEQ (ITIMES 46416Q 73661Q)
-		      4401544256Q)
-		(CKEQ (IREMAINDER -165357Q -15133072242Q)
-		      -165357Q)
-		(CKEQ (IDIFFERENCE -165357Q -15133072242Q)
-		      15132704663Q)
-		(CKEQ (IPLUS -165357Q -15133072242Q)
-		      -15133257621Q)
-		(CKEQ (IQUOTIENT -165357Q -15133072242Q)
-		      0)
-		(CKEQ (IREMAINDER -4052Q 622430174Q)
-		      -4052Q)
-		(CKEQ (IDIFFERENCE -4052Q 622430174Q)
-		      -622434246Q)
-		(CKEQ (IPLUS -4052Q 622430174Q)
-		      622424122Q)
-		(CKEQ (IQUOTIENT -4052Q 622430174Q)
-		      0)
-		(CKEQ (IREMAINDER -10566613407Q 6004741132Q)
-		      -2561652255Q)
-		(CKEQ (IDIFFERENCE -10566613407Q 6004741132Q)
-		      -16573554541Q)
-		(CKEQ (IPLUS -10566613407Q 6004741132Q)
-		      -2561652255Q)
-		(CKEQ (IQUOTIENT -10566613407Q 6004741132Q)
-		      -1)
-		(CKEQ (IREMAINDER -2 -4)
-		      -2)
-		(CKEQ (IDIFFERENCE -2 -4)
-		      2)
-		(CKEQ (IPLUS -2 -4)
-		      -6)
-		(CKEQ (IQUOTIENT -2 -4)
-		      0)
-		(CKEQ (ITIMES -2 -4)
-		      10Q)
-		(CKEQ (IREMAINDER 162662613Q -6300165562Q)
-		      162662613Q)
-		(CKEQ (IDIFFERENCE 162662613Q -6300165562Q)
-		      6463050375Q)
-		(CKEQ (IPLUS 162662613Q -6300165562Q)
-		      -6115302747Q)
-		(CKEQ (IQUOTIENT 162662613Q -6300165562Q)
-		      0)
-		(CKEQ (IREMAINDER -2 3)
-		      -2)
-		(CKEQ (IDIFFERENCE -2 3)
-		      -5)
-		(CKEQ (IPLUS -2 3)
-		      1)
-		(CKEQ (IQUOTIENT -2 3)
-		      0)
-		(CKEQ (ITIMES -2 3)
-		      -6)
-		(CKEQ (IREMAINDER -16047Q -171315Q)
-		      -16047Q)
-		(CKEQ (IDIFFERENCE -16047Q -171315Q)
-		      153246Q)
-		(CKEQ (IPLUS -16047Q -171315Q)
-		      -207364Q)
-		(CKEQ (IQUOTIENT -16047Q -171315Q)
-		      0)
-		(CKEQ (ITIMES -16047Q -171315Q)
-		      3254664473Q)
-		(CKEQ (IPLUS -4510035224Q 0)
-		      -4510035224Q)
-		(CKEQ (ITIMES -4510035224Q 0)
-		      0)
-		(CKEQ (IREMAINDER 4 167331711Q)
-		      4)
-		(CKEQ (IDIFFERENCE 4 167331711Q)
-		      -167331705Q)
-		(CKEQ (IPLUS 4 167331711Q)
-		      167331715Q)
-		(CKEQ (IQUOTIENT 4 167331711Q)
-		      0)
-		(CKEQ (ITIMES 4 167331711Q)
-		      735547444Q)
-		(CKEQ (IREMAINDER 10175626173Q -15244050032Q)
-		      10175626173Q)
-		(CKEQ (IPLUS 10175626173Q -15244050032Q)
-		      -5046221637Q)
-		(CKEQ (IQUOTIENT 10175626173Q -15244050032Q)
-		      0)
-		(CKEQ (IREMAINDER -1771422055Q 16116655424Q)
-		      -1771422055Q)
-		(CKEQ (IPLUS -1771422055Q 16116655424Q)
-		      14125233347Q)
-		(CKEQ (IQUOTIENT -1771422055Q 16116655424Q)
-		      0)
-		(CKEQ (IREMAINDER -5 -2)
-		      -1)
-		(CKEQ (IDIFFERENCE -5 -2)
-		      -3)
-		(CKEQ (IPLUS -5 -2)
-		      -7)
-		(CKEQ (IQUOTIENT -5 -2)
-		      2)
-		(CKEQ (ITIMES -5 -2)
-		      12Q)
-		(CKEQ (IREMAINDER -13001Q -125515Q)
-		      -13001Q)
-		(CKEQ (IDIFFERENCE -13001Q -125515Q)
-		      112514Q)
-		(CKEQ (IPLUS -13001Q -125515Q)
-		      -140516Q)
-		(CKEQ (IQUOTIENT -13001Q -125515Q)
-		      0)
-		(CKEQ (ITIMES -13001Q -125515Q)
-		      1656244515Q)
-		(CKEQ (IREMAINDER -166401Q -7027Q)
-		      -5621Q)
-		(CKEQ (IDIFFERENCE -166401Q -7027Q)
-		      -157352Q)
-		(CKEQ (IPLUS -166401Q -7027Q)
-		      -175430Q)
-		(CKEQ (IQUOTIENT -166401Q -7027Q)
-		      20Q)
-		(CKEQ (ITIMES -166401Q -7027Q)
-		      1502654427Q)
-		(CKEQ (IREMAINDER 4257756512Q -127717Q)
-		      56223Q)
-		(CKEQ (IDIFFERENCE 4257756512Q -127717Q)
-		      4260106431Q)
-		(CKEQ (IPLUS 4257756512Q -127717Q)
-		      4257626573Q)
-		(CKEQ (IQUOTIENT 4257756512Q -127717Q)
-		      -31231Q)
-		(CKEQ (IREMAINDER 4 -5)
-		      4)
-		(CKEQ (IDIFFERENCE 4 -5)
-		      11Q)
-		(CKEQ (IPLUS 4 -5)
-		      -1)
-		(CKEQ (IQUOTIENT 4 -5)
-		      0)
-		(CKEQ (ITIMES 4 -5)
-		      -24Q)
-		(CKEQ (IREMAINDER 146317Q 5230002636Q)
-		      146317Q)
-		(CKEQ (IDIFFERENCE 146317Q 5230002636Q)
-		      -5227634317Q)
-		(CKEQ (IPLUS 146317Q 5230002636Q)
-		      5230151155Q)
-		(CKEQ (IQUOTIENT 146317Q 5230002636Q)
-		      0)
-		(CKEQ (IREMAINDER 10650Q -66166Q)
-		      10650Q)
-		(CKEQ (IDIFFERENCE 10650Q -66166Q)
-		      77036Q)
-		(CKEQ (IPLUS 10650Q -66166Q)
-		      -55316Q)
-		(CKEQ (IQUOTIENT 10650Q -66166Q)
-		      0)
-		(CKEQ (ITIMES 10650Q -66166Q)
-		      -736601560Q)
-		(CKEQ (IREMAINDER -5 -32766Q)
-		      -5)
-		(CKEQ (IDIFFERENCE -5 -32766Q)
-		      32761Q)
-		(CKEQ (IPLUS -5 -32766Q)
-		      -32773Q)
-		(CKEQ (IQUOTIENT -5 -32766Q)
-		      0)
-		(CKEQ (ITIMES -5 -32766Q)
-		      206716Q)
-		(CKEQ (IREMAINDER 113703Q -2733011560Q)
-		      113703Q)
-		(CKEQ (IDIFFERENCE 113703Q -2733011560Q)
-		      2733125463Q)
-		(CKEQ (IPLUS 113703Q -2733011560Q)
-		      -2732675655Q)
-		(CKEQ (IQUOTIENT 113703Q -2733011560Q)
-		      0)
-		(CKEQ (IPLUS 1124452466Q 0)
-		      1124452466Q)
-		(CKEQ (ITIMES 1124452466Q 0)
-		      0)
-		(CKEQ (IDIFFERENCE -4 0)
-		      -4)
-		(CKEQ (IPLUS -4 0)
-		      -4)
-		(CKEQ (ITIMES -4 0)
-		      0)
-		(CKEQ (IREMAINDER 1 -5061322610Q)
-		      1)
-		(CKEQ (IDIFFERENCE 1 -5061322610Q)
-		      5061322611Q)
-		(CKEQ (IPLUS 1 -5061322610Q)
-		      -5061322607Q)
-		(CKEQ (IQUOTIENT 1 -5061322610Q)
-		      0)
-		(CKEQ (ITIMES 1 -5061322610Q)
-		      -5061322610Q)
-		(CKEQ (IREMAINDER 0 113566Q)
-		      0)
-		(CKEQ (IDIFFERENCE 0 113566Q)
-		      -113566Q)
-		(CKEQ (IPLUS 0 113566Q)
-		      113566Q)
-		(CKEQ (IQUOTIENT 0 113566Q)
-		      0)
-		(CKEQ (ITIMES 0 113566Q)
-		      0)
-		(CKEQ (IREMAINDER -5 3)
-		      -2)
-		(CKEQ (IDIFFERENCE -5 3)
-		      -10Q)
-		(CKEQ (IPLUS -5 3)
-		      -2)
-		(CKEQ (IQUOTIENT -5 3)
-		      -1)
-		(CKEQ (ITIMES -5 3)
-		      -17Q)
-		(CKEQ (IREMAINDER 5 -145277Q)
-		      5)
-		(CKEQ (IDIFFERENCE 5 -145277Q)
-		      145304Q)
-		(CKEQ (IPLUS 5 -145277Q)
-		      -145272Q)
-		(CKEQ (IQUOTIENT 5 -145277Q)
-		      0)
-		(CKEQ (ITIMES 5 -145277Q)
-		      -772673Q)
-		(CKEQ (IREMAINDER 3216Q -7537760666Q)
-		      3216Q)
-		(CKEQ (IDIFFERENCE 3216Q -7537760666Q)
-		      7537764104Q)
-		(CKEQ (IPLUS 3216Q -7537760666Q)
-		      -7537755450Q)
-		(CKEQ (IQUOTIENT 3216Q -7537760666Q)
-		      0)
-		(CKEQ (IREMAINDER 4601134451Q -154036Q)
-		      131071Q)
-		(CKEQ (IDIFFERENCE 4601134451Q -154036Q)
-		      4601310507Q)
-		(CKEQ (IPLUS 4601134451Q -154036Q)
-		      4600760413Q)
-		(CKEQ (IQUOTIENT 4601134451Q -154036Q)
-		      -26410Q)
-		(CKEQ (IREMAINDER 0 2)
-		      0)
-		(CKEQ (IDIFFERENCE 0 2)
-		      -2)
-		(CKEQ (IPLUS 0 2)
-		      2)
-		(CKEQ (IQUOTIENT 0 2)
-		      0)
-		(CKEQ (ITIMES 0 2)
-		      0))))
-
-(!FNUMTEST
-  (LAMBDA NIL                                                (* JonL " 7-Nov-84 17:57")
-    (!FNUMTEST1)
-    (!FNUMTEST2)
-    (!FNUMTEST3)
-    (!FNUMTEST4)
-    (!FNUMTEST5)))
-
-(!FNUMTEST1
-  (LAMBDA NIL                                                (* JonL " 7-Nov-84 16:29")
-                                                             (* Some very simple cases especially involving a 16-bit
-							     overflow)
-    (CKFEQ (FPLUS -65536.0 1.0)
-	   -65535.0)
-    (CKFEQ (FDIFFERENCE -65536.0 1.0)
-	   -65537.0)
-    (CKFEQ (FTIMES -65536.0 1.0)
-	   -65536.0)
-    (CKFEQ (FQUOTIENT -65536.0 1.0)
-	   -65536.0)
-    (CKFEQ (FPLUS 65535.0 0.0)
-	   65535.0)
-    (CKFEQ (FDIFFERENCE 65535.0 0.0)
-	   65535.0)
-    (CKFEQ (FTIMES 65535.0 0.0)
-	   0.0)
-    (CKFEQ (FPLUS 65535.0 -1.0)
-	   65534.0)
-    (CKFEQ (FDIFFERENCE 65535.0 -1.0)
-	   65536.0)
-    (CKFEQ (FTIMES 65535.0 -1.0)
-	   -65535.0)
-    (CKFEQ (FQUOTIENT 65535.0 -1.0)
-	   -65535.0)
-    (CKFEQ (FPLUS 65535.0 1.0)
-	   65536.0)
-    (CKFEQ (FDIFFERENCE 65535.0 1.0)
-	   65534.0)
-    (CKFEQ (FTIMES 65535.0 1.0)
-	   65535.0)
-    (CKFEQ (FQUOTIENT 65535.0 1.0)
-	   65535.0)
-    (CKFEQ (FPLUS 0.0 -65536.0)
-	   -65536.0)
-    (CKFEQ (FDIFFERENCE 0.0 -65536.0)
-	   65536.0)
-    (CKFEQ (FTIMES 0.0 -65536.0)
-	   0.0)
-    (CKFEQ (FQUOTIENT 0.0 -65536.0)
-	   0.0)))
-
-(!FNUMTEST2
-  (LAMBDA NIL                                                (* JonL " 7-Nov-84 18:47")
-    (for I F FORM from 0 to (SUB1 BITSPERCELL)
-       do (SETQ F (create FLOATP
-			  FLOATCONTENTS _(LOGXOR (MASK.1'S I 1)
-						 (CONSTANT (fetch (FLOATP FLOATCONTENTS)
-							      of (create FLOATP
-									 EXPONENT _ 201Q))))))
-	  (SETQ FORM (LIST (QUOTE FPLUS)
-			   0.0
-			   (CONCAT "{ 2.0 xor 2^" I)))
-	  (!CKFEQ (FPLUS 0.0 F)
-		  F FORM)
-	  (!CKFEQ (FTIMES 1.0 F)
-		  F
-		  (QUOTE (FTIMES 1.0 F))))))
-
-(!FNUMTEST3
-  (LAMBDA NIL                                                (* JonL " 7-Nov-84 16:32")
-                                                             (* Check for coercions)
-    (CKFEQ (FPLUS -200000Q 1)
-	   -65535.0)
-    (CKFEQ (FDIFFERENCE -200000Q 1)
-	   -65537.0)
-    (CKFEQ (FTIMES -200000Q 1)
-	   -65536.0)
-    (CKFEQ (FQUOTIENT -200000Q 1)
-	   -65536.0)
-    (CKFEQ (FPLUS -65536.0 1)
-	   -65535.0)
-    (CKFEQ (FDIFFERENCE -65536.0 1)
-	   -65537.0)
-    (CKFEQ (FTIMES -65536.0 1)
-	   -65536.0)
-    (CKFEQ (FQUOTIENT -65536.0 1)
-	   -65536.0)
-    (CKFEQ (FPLUS -200000Q 1.0)
-	   -65535.0)
-    (CKFEQ (FDIFFERENCE -200000Q 1.0)
-	   -65537.0)
-    (CKFEQ (FTIMES -200000Q 1.0)
-	   -65536.0)
-    (CKFEQ (FQUOTIENT -200000Q 1.0)
-	   -65536.0)))
-
-(!FNUMTEST4
-  (LAMBDA NIL                                                (* JonL " 7-Nov-84 20:58")
-                                                             (* Some random kludgy number tests)
-    (!CKFEQ (FPLUS 1.234568 1.111111)
-	    2.345679
-	    (QUOTE (FPLUS 1.234568 1.111111)))
-    (!CKFEQ (FPLUS (DEFERREDCONSTANT (create FLOATP
-					     FLOATCONTENTS _ 7747403121Q))
-		   1.111111)
-	    (DEFERREDCONSTANT (create FLOATP
-				      FLOATCONTENTS _ 10005417632Q))
-	    (QUOTE (FPLUS "1.2345678" 1.111111)))))
-
-(!FNUMTEST5
-  (LAMBDA NIL                                                (* JonL " 7-Nov-84 16:33")
-                                                             (* Check out the comparators)
-    (MTCHECK (FGREATERP 1.0 0.0))
-    (MTCHECK (NOT (FGREATERP -1.0 0.0)))))
-
-(!MIXNUMTEST
-  [LAMBDA NIL                                                (* lmm "19-Jul-84 18:07")
-    (!RANDNUMTEST)
-    (PROGN (CKEQ (DIFFERENCE -200000Q -200000Q)
-		 0)
-	   (CKEQ (PLUS -200000Q -200000Q)
-		 -400000Q)
-	   (CKEQ (QUOTIENT -200000Q -200000Q)
-		 1)
-	   (CKEQ (DIFFERENCE -200000Q 177777Q)
-		 -377777Q)
-	   (CKEQ (PLUS -200000Q 177777Q)
-		 -1)
-	   (CKEQ (QUOTIENT -200000Q 177777Q)
-		 -1)
-	   (CKFEQ (DIFFERENCE -200000Q 0.0)
-		  -65536.0)
-	   (CKFEQ (TIMES -200000Q 0.0)
-		  0.0)
-	   (CKFEQ (PLUS -200000Q 0.0)
-		  -65536.0)
-	   (CKEQ (DIFFERENCE -200000Q 0)
-		 -200000Q)
-	   (CKEQ (TIMES -200000Q 0)
-		 0)
-	   (CKEQ (PLUS -200000Q 0)
-		 -200000Q)
-	   (CKEQ (DIFFERENCE -200000Q 3)
-		 -200003Q)
-	   (CKEQ (TIMES -200000Q 3)
-		 -600000Q)
-	   (CKEQ (PLUS -200000Q 3)
-		 -177775Q)
-	   (CKEQ (QUOTIENT -200000Q 3)
-		 -52525Q)
-	   (CKFEQ (DIFFERENCE -200000Q -1.0)
-		  -65535.0)
-	   (CKFEQ (TIMES -200000Q -1.0)
-		  65536.0)
-	   (CKFEQ (PLUS -200000Q -1.0)
-		  -65537.0)
-	   (CKFEQ (QUOTIENT -200000Q -1.0)
-		  65536.0)
-	   (CKEQ (DIFFERENCE -200000Q -1)
-		 -177777Q)
-	   (CKEQ (TIMES -200000Q -1)
-		 200000Q)
-	   (CKEQ (PLUS -200000Q -1)
-		 -200001Q)
-	   (CKEQ (QUOTIENT -200000Q -1)
-		 200000Q)
-	   (CKEQ (DIFFERENCE -200000Q 2)
-		 -200002Q)
-	   (CKEQ (TIMES -200000Q 2)
-		 -400000Q)
-	   (CKEQ (PLUS -200000Q 2)
-		 -177776Q)
-	   (CKEQ (QUOTIENT -200000Q 2)
-		 -100000Q)
-	   (CKFEQ (DIFFERENCE -200000Q 1.0)
-		  -65537.0)
-	   (CKFEQ (TIMES -200000Q 1.0)
-		  -65536.0)
-	   (CKFEQ (PLUS -200000Q 1.0)
-		  -65535.0)
-	   (CKFEQ (QUOTIENT -200000Q 1.0)
-		  -65536.0)
-	   (CKEQ (DIFFERENCE -200000Q 1)
-		 -200001Q)
-	   (CKEQ (TIMES -200000Q 1)
-		 -200000Q)
-	   (CKEQ (PLUS -200000Q 1)
-		 -177777Q)
-	   (CKEQ (QUOTIENT -200000Q 1)
-		 -200000Q)
-	   (CKEQ (DIFFERENCE 177777Q -200000Q)
-		 377777Q)
-	   (CKEQ (PLUS 177777Q -200000Q)
-		 -1)
-	   (CKEQ (QUOTIENT 177777Q -200000Q)
-		 0)
-	   (CKEQ (DIFFERENCE 177777Q 177777Q)
-		 0)
-	   (CKEQ (PLUS 177777Q 177777Q)
-		 377776Q)
-	   (CKEQ (QUOTIENT 177777Q 177777Q)
-		 1)
-	   (CKFEQ (DIFFERENCE 177777Q 0.0)
-		  65535.0)
-	   (CKFEQ (TIMES 177777Q 0.0)
-		  0.0)
-	   (CKFEQ (PLUS 177777Q 0.0)
-		  65535.0)
-	   (CKEQ (DIFFERENCE 177777Q 0)
-		 177777Q)
-	   (CKEQ (TIMES 177777Q 0)
-		 0)
-	   (CKEQ (PLUS 177777Q 0)
-		 177777Q)
-	   (CKEQ (DIFFERENCE 177777Q 3)
-		 177774Q)
-	   (CKEQ (TIMES 177777Q 3)
-		 577775Q)
-	   (CKEQ (PLUS 177777Q 3)
-		 200002Q)
-	   (CKEQ (QUOTIENT 177777Q 3)
-		 52525Q)
-	   (CKFEQ (DIFFERENCE 177777Q -1.0)
-		  65536.0)
-	   (CKFEQ (TIMES 177777Q -1.0)
-		  -65535.0)
-	   (CKFEQ (PLUS 177777Q -1.0)
-		  65534.0)
-	   (CKFEQ (QUOTIENT 177777Q -1.0)
-		  -65535.0)
-	   (CKEQ (DIFFERENCE 177777Q -1)
-		 200000Q)
-	   (CKEQ (TIMES 177777Q -1)
-		 -177777Q)
-	   (CKEQ (PLUS 177777Q -1)
-		 177776Q)
-	   (CKEQ (QUOTIENT 177777Q -1)
-		 -177777Q)
-	   (CKEQ (DIFFERENCE 177777Q 2)
-		 177775Q)
-	   (CKEQ (TIMES 177777Q 2)
-		 377776Q)
-	   (CKEQ (PLUS 177777Q 2)
-		 200001Q)
-	   (CKEQ (QUOTIENT 177777Q 2)
-		 77777Q)
-	   (CKFEQ (DIFFERENCE 177777Q 1.0)
-		  65534.0)
-	   (CKFEQ (TIMES 177777Q 1.0)
-		  65535.0)
-	   (CKFEQ (PLUS 177777Q 1.0)
-		  65536.0)
-	   (CKFEQ (QUOTIENT 177777Q 1.0)
-		  65535.0)
-	   (CKEQ (DIFFERENCE 177777Q 1)
-		 177776Q)
-	   (CKEQ (TIMES 177777Q 1)
-		 177777Q)
-	   (CKEQ (PLUS 177777Q 1)
-		 200000Q)
-	   (CKEQ (QUOTIENT 177777Q 1)
-		 177777Q)
-	   (CKFEQ (DIFFERENCE 0.0 -200000Q)
-		  65536.0)
-	   (CKFEQ (TIMES 0.0 -200000Q)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 -200000Q)
-		  -65536.0)
-	   (CKFEQ (QUOTIENT 0.0 -200000Q)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 177777Q)
-		  -65535.0)
-	   (CKFEQ (TIMES 0.0 177777Q)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 177777Q)
-		  65535.0)
-	   (CKFEQ (QUOTIENT 0.0 177777Q)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 0.0)
-		  0.0)
-	   (CKFEQ (TIMES 0.0 0.0)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 0.0)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 0)
-		  0.0)
-	   (CKFEQ (TIMES 0.0 0)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 0)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 3)
-		  -3.0)
-	   (CKFEQ (TIMES 0.0 3)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 3)
-		  3.0)
-	   (CKFEQ (QUOTIENT 0.0 3)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 -1.0)
-		  1.0)
-	   (CKFEQ (TIMES 0.0 -1.0)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 -1.0)
-		  -1.0)
-	   (CKFEQ (QUOTIENT 0.0 -1.0)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 -1)
-		  1.0)
-	   (CKFEQ (TIMES 0.0 -1)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 -1)
-		  -1.0)
-	   (CKFEQ (QUOTIENT 0.0 -1)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 2)
-		  -2.0)
-	   (CKFEQ (TIMES 0.0 2)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 2)
-		  2.0)
-	   (CKFEQ (QUOTIENT 0.0 2)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 1.0)
-		  -1.0)
-	   (CKFEQ (TIMES 0.0 1.0)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 1.0)
-		  1.0)
-	   (CKFEQ (QUOTIENT 0.0 1.0)
-		  0.0)
-	   (CKFEQ (DIFFERENCE 0.0 1)
-		  -1.0)
-	   (CKFEQ (TIMES 0.0 1)
-		  0.0)
-	   (CKFEQ (PLUS 0.0 1)
-		  1.0)
-	   (CKFEQ (QUOTIENT 0.0 1)
-		  0.0)
-	   (CKEQ (DIFFERENCE 0 -200000Q)
-		 200000Q)
-	   (CKEQ (TIMES 0 -200000Q)
-		 0)
-	   (CKEQ (PLUS 0 -200000Q)
-		 -200000Q)
-	   (CKEQ (QUOTIENT 0 -200000Q)
-		 0)
-	   (CKEQ (DIFFERENCE 0 177777Q)
-		 -177777Q)
-	   (CKEQ (TIMES 0 177777Q)
-		 0)
-	   (CKEQ (PLUS 0 177777Q)
-		 177777Q)
-	   (CKEQ (QUOTIENT 0 177777Q)
-		 0)
-	   (CKFEQ (DIFFERENCE 0 0.0)
-		  0.0)
-	   (CKFEQ (TIMES 0 0.0)
-		  0.0)
-	   (CKFEQ (PLUS 0 0.0)
-		  0.0)
-	   (CKEQ (DIFFERENCE 0 0)
-		 0)
-	   (CKEQ (TIMES 0 0)
-		 0)
-	   (CKEQ (PLUS 0 0)
-		 0)
-	   (CKEQ (DIFFERENCE 0 3)
-		 -3)
-	   (CKEQ (TIMES 0 3)
-		 0)
-	   (CKEQ (PLUS 0 3)
-		 3)
-	   (CKEQ (QUOTIENT 0 3)
-		 0)
-	   (CKFEQ (DIFFERENCE 0 -1.0)
-		  1.0)
-	   (CKFEQ (TIMES 0 -1.0)
-		  0.0)
-	   (CKFEQ (PLUS 0 -1.0)
-		  -1.0)
-	   (CKFEQ (QUOTIENT 0 -1.0)
-		  0.0)
-	   (CKEQ (DIFFERENCE 0 -1)
-		 1)
-	   (CKEQ (TIMES 0 -1)
-		 0)
-	   (CKEQ (PLUS 0 -1)
-		 -1)
-	   (CKEQ (QUOTIENT 0 -1)
-		 0)
-	   (CKEQ (DIFFERENCE 0 2)
-		 -2)
-	   (CKEQ (TIMES 0 2)
-		 0)
-	   (CKEQ (PLUS 0 2)
-		 2)
-	   (CKEQ (QUOTIENT 0 2)
-		 0)
-	   (CKFEQ (DIFFERENCE 0 1.0)
-		  -1.0)
-	   (CKFEQ (TIMES 0 1.0)
-		  0.0)
-	   (CKFEQ (PLUS 0 1.0)
-		  1.0)
-	   (CKFEQ (QUOTIENT 0 1.0)
-		  0.0)
-	   (CKEQ (DIFFERENCE 0 1)
-		 -1)
-	   (CKEQ (TIMES 0 1)
-		 0)
-	   (CKEQ (PLUS 0 1)
-		 1)
-	   (CKEQ (QUOTIENT 0 1)
-		 0)
-	   (CKEQ (DIFFERENCE 3 -200000Q)
-		 200003Q)
-	   (CKEQ (TIMES 3 -200000Q)
-		 -600000Q)
-	   (CKEQ (PLUS 3 -200000Q)
-		 -177775Q)
-	   (CKEQ (QUOTIENT 3 -200000Q)
-		 0)
-	   (CKEQ (DIFFERENCE 3 177777Q)
-		 -177774Q)
-	   (CKEQ (TIMES 3 177777Q)
-		 577775Q)
-	   (CKEQ (PLUS 3 177777Q)
-		 200002Q)
-	   (CKEQ (QUOTIENT 3 177777Q)
-		 0)
-	   (CKFEQ (DIFFERENCE 3 0.0)
-		  3.0)
-	   (CKFEQ (TIMES 3 0.0)
-		  0.0)
-	   (CKFEQ (PLUS 3 0.0)
-		  3.0)
-	   (CKEQ (DIFFERENCE 3 0)
-		 3)
-	   (CKEQ (TIMES 3 0)
-		 0)
-	   (CKEQ (PLUS 3 0)
-		 3)
-	   (CKEQ (DIFFERENCE 3 3)
-		 0)
-	   (CKEQ (TIMES 3 3)
-		 11Q)
-	   (CKEQ (PLUS 3 3)
-		 6)
-	   (CKEQ (QUOTIENT 3 3)
-		 1)
-	   (CKFEQ (DIFFERENCE 3 -1.0)
-		  4.0)
-	   (CKFEQ (TIMES 3 -1.0)
-		  -3.0)
-	   (CKFEQ (PLUS 3 -1.0)
-		  2.0)
-	   (CKFEQ (QUOTIENT 3 -1.0)
-		  -3.0)
-	   (CKEQ (DIFFERENCE 3 -1)
-		 4)
-	   (CKEQ (TIMES 3 -1)
-		 -3)
-	   (CKEQ (PLUS 3 -1)
-		 2)
-	   (CKEQ (QUOTIENT 3 -1)
-		 -3)
-	   (CKEQ (DIFFERENCE 3 2)
-		 1)
-	   (CKEQ (TIMES 3 2)
-		 6)
-	   (CKEQ (PLUS 3 2)
-		 5)
-	   (CKEQ (QUOTIENT 3 2)
-		 1)
-	   (CKFEQ (DIFFERENCE 3 1.0)
-		  2.0)
-	   (CKFEQ (TIMES 3 1.0)
-		  3.0)
-	   (CKFEQ (PLUS 3 1.0)
-		  4.0)
-	   (CKFEQ (QUOTIENT 3 1.0)
-		  3.0)
-	   (CKEQ (DIFFERENCE 3 1)
-		 2)
-	   (CKEQ (TIMES 3 1)
-		 3)
-	   (CKEQ (PLUS 3 1)
-		 4)
-	   (CKEQ (QUOTIENT 3 1)
-		 3)
-	   (CKFEQ (DIFFERENCE -1.0 -200000Q)
-		  65535.0)
-	   (CKFEQ (TIMES -1.0 -200000Q)
-		  65536.0)
-	   (CKFEQ (PLUS -1.0 -200000Q)
-		  -65537.0)
-	   (CKFUZZYEQ (QUOTIENT -1.0 -200000Q)
-		      .00001525879)
-	   (CKFEQ (DIFFERENCE -1.0 177777Q)
-		  -65536.0)
-	   (CKFEQ (TIMES -1.0 177777Q)
-		  -65535.0)
-	   (CKFEQ (PLUS -1.0 177777Q)
-		  65534.0)
-	   (CKFUZZYEQ (QUOTIENT -1.0 177777Q)
-		      -.00001525902)
-	   (CKFEQ (DIFFERENCE -1.0 0.0)
-		  -1.0)
-	   (CKFEQ (TIMES -1.0 0.0)
-		  0.0)
-	   (CKFEQ (PLUS -1.0 0.0)
-		  -1.0)
-	   (CKFEQ (DIFFERENCE -1.0 0)
-		  -1.0)
-	   (CKFEQ (TIMES -1.0 0)
-		  0.0)
-	   (CKFEQ (PLUS -1.0 0)
-		  -1.0)
-	   (CKFEQ (DIFFERENCE -1.0 3)
-		  -4.0)
-	   (CKFEQ (TIMES -1.0 3)
-		  -3.0)
-	   (CKFEQ (PLUS -1.0 3)
-		  2.0)
-	   (CKFUZZYEQ (QUOTIENT -1.0 3)
-		      -.3333333)
-	   (CKFEQ (DIFFERENCE -1.0 -1.0)
-		  0.0)
-	   (CKFEQ (TIMES -1.0 -1.0)
-		  1.0)
-	   (CKFEQ (PLUS -1.0 -1.0)
-		  -2.0)
-	   (CKFEQ (QUOTIENT -1.0 -1.0)
-		  1.0)
-	   (CKFEQ (DIFFERENCE -1.0 -1)
-		  0.0)
-	   (CKFEQ (TIMES -1.0 -1)
-		  1.0)
-	   (CKFEQ (PLUS -1.0 -1)
-		  -2.0)
-	   (CKFEQ (QUOTIENT -1.0 -1)
-		  1.0)
-	   (CKFEQ (DIFFERENCE -1.0 2)
-		  -3.0)
-	   (CKFEQ (TIMES -1.0 2)
-		  -2.0)
-	   (CKFEQ (PLUS -1.0 2)
-		  1.0)
-	   (CKFEQ (QUOTIENT -1.0 2)
-		  -.5)
-	   (CKFEQ (DIFFERENCE -1.0 1.0)
-		  -2.0)
-	   (CKFEQ (TIMES -1.0 1.0)
-		  -1.0)
-	   (CKFEQ (PLUS -1.0 1.0)
-		  0.0)
-	   (CKFEQ (QUOTIENT -1.0 1.0)
-		  -1.0)
-	   (CKFEQ (DIFFERENCE -1.0 1)
-		  -2.0)
-	   (CKFEQ (TIMES -1.0 1)
-		  -1.0)
-	   (CKFEQ (PLUS -1.0 1)
-		  0.0)
-	   (CKFEQ (QUOTIENT -1.0 1)
-		  -1.0)
-	   (CKEQ (DIFFERENCE -1 -200000Q)
-		 177777Q)
-	   (CKEQ (TIMES -1 -200000Q)
-		 200000Q)
-	   (CKEQ (PLUS -1 -200000Q)
-		 -200001Q)
-	   (CKEQ (QUOTIENT -1 -200000Q)
-		 0)
-	   (CKEQ (DIFFERENCE -1 177777Q)
-		 -200000Q)
-	   (CKEQ (TIMES -1 177777Q)
-		 -177777Q)
-	   (CKEQ (PLUS -1 177777Q)
-		 177776Q)
-	   (CKEQ (QUOTIENT -1 177777Q)
-		 0)
-	   (CKFEQ (DIFFERENCE -1 0.0)
-		  -1.0)
-	   (CKFEQ (TIMES -1 0.0)
-		  0.0)
-	   (CKFEQ (PLUS -1 0.0)
-		  -1.0)
-	   (CKEQ (DIFFERENCE -1 0)
-		 -1)
-	   (CKEQ (TIMES -1 0)
-		 0)
-	   (CKEQ (PLUS -1 0)
-		 -1)
-	   (CKEQ (DIFFERENCE -1 3)
-		 -4)
-	   (CKEQ (TIMES -1 3)
-		 -3)
-	   (CKEQ (PLUS -1 3)
-		 2)
-	   (CKEQ (QUOTIENT -1 3)
-		 0)
-	   (CKFEQ (DIFFERENCE -1 -1.0)
-		  0.0)
-	   (CKFEQ (TIMES -1 -1.0)
-		  1.0)
-	   (CKFEQ (PLUS -1 -1.0)
-		  -2.0)
-	   (CKFEQ (QUOTIENT -1 -1.0)
-		  1.0)
-	   (CKEQ (DIFFERENCE -1 -1)
-		 0)
-	   (CKEQ (TIMES -1 -1)
-		 1)
-	   (CKEQ (PLUS -1 -1)
-		 -2)
-	   (CKEQ (QUOTIENT -1 -1)
-		 1)
-	   (CKEQ (DIFFERENCE -1 2)
-		 -3)
-	   (CKEQ (TIMES -1 2)
-		 -2)
-	   (CKEQ (PLUS -1 2)
-		 1)
-	   (CKEQ (QUOTIENT -1 2)
-		 0)
-	   (CKFEQ (DIFFERENCE -1 1.0)
-		  -2.0)
-	   (CKFEQ (TIMES -1 1.0)
-		  -1.0)
-	   (CKFEQ (PLUS -1 1.0)
-		  0.0)
-	   (CKFEQ (QUOTIENT -1 1.0)
-		  -1.0)
-	   (CKEQ (DIFFERENCE -1 1)
-		 -2)
-	   (CKEQ (TIMES -1 1)
-		 -1)
-	   (CKEQ (PLUS -1 1)
-		 0)
-	   (CKEQ (QUOTIENT -1 1)
-		 -1)
-	   (CKEQ (DIFFERENCE 2 -200000Q)
-		 200002Q)
-	   (CKEQ (TIMES 2 -200000Q)
-		 -400000Q)
-	   (CKEQ (PLUS 2 -200000Q)
-		 -177776Q)
-	   (CKEQ (QUOTIENT 2 -200000Q)
-		 0)
-	   (CKEQ (DIFFERENCE 2 177777Q)
-		 -177775Q)
-	   (CKEQ (TIMES 2 177777Q)
-		 377776Q)
-	   (CKEQ (PLUS 2 177777Q)
-		 200001Q)
-	   (CKEQ (QUOTIENT 2 177777Q)
-		 0)
-	   (CKEQ (DIFFERENCE 2 0.0)
-		 2.0)
-	   (CKFEQ (TIMES 2 0.0)
-		  0.0)
-	   (CKFEQ (PLUS 2 0.0)
-		  2.0)
-	   (CKEQ (DIFFERENCE 2 0)
-		 2)
-	   (CKEQ (TIMES 2 0)
-		 0)
-	   (CKEQ (PLUS 2 0)
-		 2)
-	   (CKEQ (DIFFERENCE 2 3)
-		 -1)
-	   (CKEQ (TIMES 2 3)
-		 6)
-	   (CKEQ (PLUS 2 3)
-		 5)
-	   (CKEQ (QUOTIENT 2 3)
-		 0)
-	   (CKFEQ (DIFFERENCE 2 -1.0)
-		  3.0)
-	   (CKFEQ (TIMES 2 -1.0)
-		  -2.0)
-	   (CKFEQ (PLUS 2 -1.0)
-		  1.0)
-	   (CKFEQ (QUOTIENT 2 -1.0)
-		  -2.0)
-	   (CKEQ (DIFFERENCE 2 -1)
-		 3)
-	   (CKEQ (TIMES 2 -1)
-		 -2)
-	   (CKEQ (PLUS 2 -1)
-		 1)
-	   (CKEQ (QUOTIENT 2 -1)
-		 -2)
-	   (CKEQ (DIFFERENCE 2 2)
-		 0)
-	   (CKEQ (TIMES 2 2)
-		 4)
-	   (CKEQ (PLUS 2 2)
-		 4)
-	   (CKEQ (QUOTIENT 2 2)
-		 1)
-	   (CKFEQ (DIFFERENCE 2 1.0)
-		  1.0)
-	   (CKFEQ (TIMES 2 1.0)
-		  2.0)
-	   (CKFEQ (PLUS 2 1.0)
-		  3.0)
-	   (CKFEQ (QUOTIENT 2 1.0)
-		  2.0)
-	   (CKEQ (DIFFERENCE 2 1)
-		 1)
-	   (CKEQ (TIMES 2 1)
-		 2)
-	   (CKEQ (PLUS 2 1)
-		 3)
-	   (CKEQ (QUOTIENT 2 1)
-		 2)
-	   (CKFEQ (DIFFERENCE 1.0 -200000Q)
-		  65537.0)
-	   (CKFEQ (TIMES 1.0 -200000Q)
-		  -65536.0)
-	   (CKFEQ (PLUS 1.0 -200000Q)
-		  -65535.0)
-	   (CKFUZZYEQ (QUOTIENT 1.0 -200000Q)
-		      -.00001525879)
-	   (CKFEQ (DIFFERENCE 1.0 177777Q)
-		  -65534.0)
-	   (CKFEQ (TIMES 1.0 177777Q)
-		  65535.0)
-	   (CKFEQ (PLUS 1.0 177777Q)
-		  65536.0)
-	   (CKFUZZYEQ (QUOTIENT 1.0 177777Q)
-		      .00001525902)
-	   (CKFEQ (DIFFERENCE 1.0 0.0)
-		  1.0)
-	   (CKFEQ (TIMES 1.0 0.0)
-		  0.0)
-	   (CKFEQ (PLUS 1.0 0.0)
-		  1.0)
-	   (CKFEQ (DIFFERENCE 1.0 0)
-		  1.0)
-	   (CKFEQ (TIMES 1.0 0)
-		  0.0)
-	   (CKFEQ (PLUS 1.0 0)
-		  1.0)
-	   (CKFEQ (DIFFERENCE 1.0 3)
-		  -2.0)
-	   (CKFEQ (TIMES 1.0 3)
-		  3.0)
-	   (CKFEQ (PLUS 1.0 3)
-		  4.0)
-	   (CKFUZZYEQ (QUOTIENT 1.0 3)
-		      .3333333)
-	   (CKFEQ (DIFFERENCE 1.0 -1.0)
-		  2.0)
-	   (CKFEQ (TIMES 1.0 -1.0)
-		  -1.0)
-	   (CKFEQ (PLUS 1.0 -1.0)
-		  0.0)
-	   (CKFEQ (QUOTIENT 1.0 -1.0)
-		  -1.0)
-	   (CKFEQ (DIFFERENCE 1.0 -1)
-		  2.0)
-	   (CKFEQ (TIMES 1.0 -1)
-		  -1.0)
-	   (CKFEQ (PLUS 1.0 -1)
-		  0.0)
-	   (CKFEQ (QUOTIENT 1.0 -1)
-		  -1.0)
-	   (CKFEQ (DIFFERENCE 1.0 2)
-		  -1.0)
-	   (CKFEQ (TIMES 1.0 2)
-		  2.0)
-	   (CKFEQ (PLUS 1.0 2)
-		  3.0)
-	   (CKFEQ (QUOTIENT 1.0 2)
-		  .5)
-	   (CKFEQ (DIFFERENCE 1.0 1.0)
-		  0.0)
-	   (CKFEQ (TIMES 1.0 1.0)
-		  1.0)
-	   (CKFEQ (PLUS 1.0 1.0)
-		  2.0)
-	   (CKFEQ (QUOTIENT 1.0 1.0)
-		  1.0)
-	   (CKFEQ (DIFFERENCE 1.0 1)
-		  0.0)
-	   (CKFEQ (TIMES 1.0 1)
-		  1.0)
-	   (CKFEQ (PLUS 1.0 1)
-		  2.0)
-	   (CKFEQ (QUOTIENT 1.0 1)
-		  1.0)
-	   (CKEQ (DIFFERENCE 1 -200000Q)
-		 200001Q)
-	   (CKEQ (TIMES 1 -200000Q)
-		 -200000Q)
-	   (CKEQ (PLUS 1 -200000Q)
-		 -177777Q)
-	   (CKEQ (QUOTIENT 1 -200000Q)
-		 0)
-	   (CKEQ (DIFFERENCE 1 177777Q)
-		 -177776Q)
-	   (CKEQ (TIMES 1 177777Q)
-		 177777Q)
-	   (CKEQ (PLUS 1 177777Q)
-		 200000Q)
-	   (CKEQ (QUOTIENT 1 177777Q)
-		 0)
-	   (CKFEQ (DIFFERENCE 1 0.0)
-		  1.0)
-	   (CKFEQ (TIMES 1 0.0)
-		  0.0)
-	   (CKFEQ (PLUS 1 0.0)
-		  1.0)
-	   (CKEQ (DIFFERENCE 1 0)
-		 1)
-	   (CKEQ (TIMES 1 0)
-		 0)
-	   (CKEQ (PLUS 1 0)
-		 1)
-	   (CKEQ (DIFFERENCE 1 3)
-		 -2)
-	   (CKEQ (TIMES 1 3)
-		 3)
-	   (CKEQ (PLUS 1 3)
-		 4)
-	   (CKEQ (QUOTIENT 1 3)
-		 0)
-	   (CKEQ (DIFFERENCE 1 -1.0)
-		 2.0)
-	   (CKFEQ (TIMES 1 -1.0)
-		  -1.0)
-	   (CKFEQ (PLUS 1 -1.0)
-		  0.0)
-	   (CKFEQ (QUOTIENT 1 -1.0)
-		  -1.0)
-	   (CKEQ (DIFFERENCE 1 -1)
-		 2)
-	   (CKEQ (TIMES 1 -1)
-		 -1)
-	   (CKEQ (PLUS 1 -1)
-		 0)
-	   (CKEQ (QUOTIENT 1 -1)
-		 -1)
-	   (CKEQ (DIFFERENCE 1 2)
-		 -1)
-	   (CKEQ (TIMES 1 2)
-		 2)
-	   (CKEQ (PLUS 1 2)
-		 3)
-	   (CKEQ (QUOTIENT 1 2)
-		 0)
-	   (CKFEQ (DIFFERENCE 1 1.0)
-		  0.0)
-	   (CKFEQ (TIMES 1 1.0)
-		  1.0)
-	   (CKFEQ (PLUS 1 1.0)
-		  2.0)
-	   (CKFEQ (QUOTIENT 1 1.0)
-		  1.0)
-	   (CKEQ (DIFFERENCE 1 1)
-		 0)
-	   (CKEQ (TIMES 1 1)
-		 1)
-	   (CKEQ (PLUS 1 1)
-		 2)
-	   (CKEQ (QUOTIENT 1 1)
-		 1])
-)
-
-
-
-(* "Compiler error may prevent some of the above functions from getting compiled")
-
-(DECLARE: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 
-[MAPC (OR (FILEFNSLST (QUOTE MACROTESTAUX))
-	  (QUOTE (PUSH.TEST)))
-      (FUNCTION (LAMBDA (X)
-			(MOVD? (QUOTE NILL)
-			       X]
-)
-(PUTPROPS MACROTESTAUX COPYRIGHT ("Xerox Corporation" 3700Q 3701Q))
-(DECLARE: DONTCOPY
-  (FILEMAP (NIL (3310Q 20067Q (!FVARTEST 3322Q . 3770Q) (PUSH.TEST 3772Q . 5721Q) (CALLS.FIRSTARGTEST 
-5723Q . 6272Q) (CALLS.LASTARGTEST 6274Q . 6774Q) (CALLS.TOOFEWARGS 6776Q . 7472Q) (FVAR.FREE 7474Q . 
-11020Q) (FVAR.TEST 11022Q . 12151Q) (FVAR.TEST2 12153Q . 12452Q) (FVAR.TEST3 12454Q . 12663Q) (
-FN.FIRSTARG.FVARS 12665Q . 13175Q) (FN.FIRSTARG.PVARS.FVARS 13177Q . 13561Q) (FN.LASTARG.FVARS 13563Q
- . 14173Q) (FN.LASTARG.FVARS.PVARS 14175Q . 14670Q) (FVAR.TESTN 14672Q . 15074Q) (FN.FREE.SKIPPVARS 
-15076Q . 15402Q) (FN.FREEPVAR 15404Q . 15745Q) (FN.FVAR3 15747Q . 16134Q) (FN.FREEARG 16136Q . 16335Q)
- (FN.FR1 16337Q . 16620Q) (FN.FR2 16622Q . 17103Q) (FN.FR3 17105Q . 17526Q) (FAULTTEST 17530Q . 20065Q
-)) (20413Q 246456Q (!NUMBERTEST 20425Q . 20772Q) (!NUMTEST1 20774Q . 31247Q) (!NUMTEST2 31251Q . 
-41611Q) (!NUMTEST3 41613Q . 52720Q) (!NUMTEST4 52722Q . 64753Q) (!NUMTEST5 64755Q . 76701Q) (!NUMTEST6
- 76703Q . 107223Q) (!RANDNUMTEST 107225Q . 111105Q) (!RANDNUMTEST1 111107Q . 124024Q) (!RANDNUMTEST2 
-124026Q . 143354Q) (!RANDNUMTEST3 143356Q . 162401Q) (!RANDNUMTEST4 162403Q . 200141Q) (!FNUMTEST 
-200143Q . 200470Q) (!FNUMTEST1 200472Q . 203004Q) (!FNUMTEST2 203006Q . 204154Q) (!FNUMTEST3 204156Q
- . 205635Q) (!FNUMTEST4 205637Q . 206742Q) (!FNUMTEST5 206744Q . 207407Q) (!MIXNUMTEST 207411Q . 
-246454Q)))))
-STOP
diff --git a/internal/MACROTESTAUX.LCOM b/internal/MACROTESTAUX.LCOM
deleted file mode 100644
index 6710a0d0..00000000
Binary files a/internal/MACROTESTAUX.LCOM and /dev/null differ
diff --git a/internal/envos/DSKTEST b/internal/envos/DSKTEST
deleted file mode 100644
index 700adcc1..00000000
--- a/internal/envos/DSKTEST
+++ /dev/null
@@ -1,1144 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "15-Jun-90 14:09:54" {DSK}<usr>local>lde>lispcore>internal>library>DSKTEST.;2 62325  
-
-      changes to%:  (VARS DSKTESTCOMS)
-                    (FNS TESTEOFOP)
-
-      previous date%: " 7-Dec-88 11:51:36" {DSK}<usr>local>lde>lispcore>internal>library>DSKTEST.;1
-)
-
-
-(* ; "
-Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.
-")
-
-(PRETTYCOMPRINT DSKTESTCOMS)
-
-(RPAQQ DSKTESTCOMS
-       (
-        (* ;; "This program is a file system tester.  It is suitable for testing any random-access filing device.  It is NOT intended for customer release.  DSKTEST is the entry function.")
-
-        (FNS DSKTEST DELETETESTFILES)
-        (FNS CHECKCONSISTENCY CHECKLENGTHANDCONTENTS CHOOSERANDOMFILEOPERATION DEFAULT.DSKFREEPAGESFN
-             DEFAULT.DSKMINALLOCFN DEFAULT.DSKPAGESOVERHEADFN DOTESTFILEOP DSKFREEPAGES DSKMINALLOC 
-             DSKPAGESOVERHEAD EXTENDTESTFILE FILEINFOFROMFILE GENERATEADDFILEOP GENERATECHANGEFILEOP
-             GENERATEDELETEFILEOP GENERATEEOFPFILEOP GENERATEPEEKBINFILEOP GENERATEDELETEALLFILEOP 
-             RANDOMELT RANDOMFILELENGTH RANDOMFILENAME RANDOMSTR RANDOMTESTFILE SORTBYCAR TESTFILEP 
-             TESTEOFP TESTEOFOP TESTFILEPTR TESTPEEKBIN TRUNCATETESTFILE WORDIN WORDOUT DOUBLEWORDIN
-             DOUBLEWORDOUT WRITETESTFILE WRITETESTFILELENGTH)
-        (VARS (DSKFREEPAGESFN (FUNCTION DEFAULT.DSKFREEPAGESFN))
-              (DSKPAGESOVERHEADFN (FUNCTION DEFAULT.DSKPAGESOVERHEADFN))
-              (DSKMINALLOCFN (FUNCTION DEFAULT.DSKMINALLOCFN)))
-        [VARS (MINTESTFILELENGTH 10)
-              (FIRSTTESTWORD 48094)
-              (SECONDTESTWORD 56187)
-              (NUMBEROFTESTBYTES 5)
-              (EXHAUSTIVETESTFLG)
-              (DEFAULTREPLAYFILE '{PHYLUM}<LISPCORE>DLIONFS>REPLAY.LOG)
-              (DONTCLOSEFILESFLG)
-              (LEGALFILENAMECHARS '(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g
-                                      h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9))
-              (LEGALFIRSTFILENAMECHARS '(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d
-                                           e f g h i j k l m n o p q r s t u v w x y z]
-        (VARS (MINFILENAMELENGTH 1)
-              (MAXFILENAMELENGTH 15)
-              (MINFILEEXTENSIONLENGTH 0)
-              (MAXFILEEXTENSIONLENGTH 6)
-              (MAXVERSION 64000)
-              TESTFILEPAGELENGTHS)
-        (GLOBALVARS FIRSTTESTWORD SECONDTESTWORD MINTESTFILELENGTH NUMBEROFTESTBYTES 
-               EXHAUSTIVETESTFLG DSKFREEPAGESFN DSKPAGESOVERHEADFN TESTFILEPAGELENGTHS)
-        (RECORDS TESTFILEINFO TESTFILEOP)))
-
-
-
-(* ;; 
-"This program is a file system tester.  It is suitable for testing any random-access filing device.  It is NOT intended for customer release.  DSKTEST is the entry function."
-)
-
-(DEFINEQ
-
-(DSKTEST
-  [LAMBDA (HOST/DIR KEEPREPLAYFILEFLG NUMOPERATIONS CURRENTFILES? DSKTESTBACKUP LOGFILE REPLAYFILE)
-                                                             (* ; "Edited  6-Dec-88 19:31 by jds")
-                                                             (* ; 
-                                                        "note: SOME OF THIS MAY NOT BE IMPLEMENTED")
-
-    (* ;; "this is a tester for file systems.  Basically it adds, deletes, extends and truncates files of various names and versions checking the consistency of the file system after each operation.  A log is kept of the operations so that it can be replayed to duplicate problems that may arise.")
-
-    (* ;; "the two variables DSKFREEPAGESFN and DSKPAGESOVERHEADFN should be set to functions that return the number of free pages available and the overhead for a file with a given number of pages.")
-
-    (* ;; "CURRENTFILES?  controls what the tester does with current files.  NIL means that their existance will be checked each time but not their contents.  T means that the files will be copied into directory DSKTESTBACKUP {defaults is CORE} and their contents will be checked.  DELETE will delete all of the test files before the test starts but will leave non test files on the directory.  Files written by DSKTEST have a two word key plus length which marks them as DSKTEST files.  The rest of them is all the same byte.")
-
-    (* ;; "EXHAUSTIVEFLG if non-NIL indicates that every pass through, the entire contents of each file is checked.  Otherwise NUMBEROFTESTBYTES random bytes are examined each time.")
-
-    (* ;; "LOGFILE is where print of progress is put {default to T}.  If KEEPREPLAYFILEFLG is T, REPLAYFILE is where the log of event suitable for replaying is kept {default is DEFAULTREPLAYFILE }.  If KEEPREPLAYFILEFLG is a file name, events are taken from that file until the last one.  Before the last event, BREAK1 is called.")
-
-    (* ;; "DONTCLOSEFILESFLG if non-NIL indicates that files should be left open.  This should be faster as it avoids opening and closing files.")
-                                                             (* ; 
-                       "TESTFILEPAGELENGTHS is a list of page lengths that the files will be near.")
-    (COND
-       ((NOT (DIRECTORYNAME HOST/DIR))
-        (CL:ERROR "Can't connect to directory ~A." HOST/DIR)))
-    (SETQ HOST/DIR (DIRECTORYNAME HOST/DIR))
-    (RESETLST
-        (PROG ((NUMBEROFOPERATIONSDONE 0)
-               FILESINFO FILEOP X FROMREPLAYFILE STARTINGTIME)
-              [COND
-                 [LOGFILE (SETQ LOGFILE (OPENSTREAM LOGFILE 'OUTPUT]
-                 (T (SETQ LOGFILE T)
-                    (COND
-                       ([SETQ X (WFROMDS (GETSTREAM T 'OUTPUT]
-                                                             (* ; "stop page holding")
-                        (RESETSAVE (WINDOWPROP X 'PAGEFULLFN (FUNCTION NILL))
-                               (LIST 'WINDOWPROP X 'PAGEFULLFN NIL]
-              (COND
-                 ((EQ KEEPREPLAYFILEFLG T)
-                  (COND
-                     [REPLAYFILE (SETQ REPLAYFILE (OPENSTREAM REPLAYFILE 'OUTPUT]
-                     (T (SETQ REPLAYFILE DEFAULTREPLAYFILE)))(* ; 
-                                                     "create a replay file and save its full name.")
-                  (SETQ REPLAYFILE (OPENSTREAM REPLAYFILE 'OUTPUT))
-                  (CLOSEF REPLAYFILE))
-                 (KEEPREPLAYFILEFLG                          (* ; "use replay file")
-                        (COND
-                           ((SETQ FROMREPLAYFILE (OPENSTREAM KEEPREPLAYFILEFLG 'INPUT))
-                            (SETFILEPTR FROMREPLAYFILE 0))
-                           (T (ERROR KEEPREPLAYFILEFLG "replay file not found")))
-                                                             (* ; 
-                                                  "set so that no replay will be made of this run.")
-                        (SETQ KEEPREPLAYFILEFLG)))           (* ; 
-                                                           "connect to the tested directory.")
-                                                             (* ; 
-                              "RESETSAVE (CNDIR HOST/DIR) (LIST (QUOTE CNDIR) (DIRECTORYNAME T T))")
-              (COND
-                 ((EQ CURRENTFILES? 'DELETE)
-                  (printout LOGFILE "Deleting any test files ...." T)
-                  (DELETETESTFILES HOST/DIR)
-                  (printout LOGFILE T)))
-              [COND
-                 [(AND CURRENTFILES? (NEQ CURRENTFILES? 'DELETE))
-                                                             (* ; 
-                                                           "check their contents after every sweep")
-                  (printout T "Not implemented to check old file contents yet.")
-
-                  (* ;; "this should copy each file into the backup directory and set the copy as the contents of the file information for the non-test files.")
-
-                  (SETQ FILESINFO (for FILE in (SORT (DIRECTORY HOST/DIR))
-                                     collect (FILEINFOFROMFILE FILE]
-                 (T (SETQ FILESINFO (for FILE in (SORT (DIRECTORY HOST/DIR))
-                                       collect (FILEINFOFROMFILE FILE]
-              (SETQ STARTINGTIME (DATE))
-              (printout LOGFILE "Beginning initial check at " STARTINGTIME " ......")
-              (CHECKCONSISTENCY FILESINFO HOST/DIR)
-              (BLOCK)
-              (printout LOGFILE "  done." T)
-          LP  (SETQ NUMBEROFOPERATIONSDONE (ADD1 NUMBEROFOPERATIONSDONE))
-              [COND
-                 ((AND (NUMBERP NUMOPERATIONS)
-                       (GREATERP NUMBEROFOPERATIONSDONE NUMOPERATIONS))
-                  (RETURN (LIST (SUB1 NUMBEROFOPERATIONSDONE)
-                                'operations% done.]          (* ; "choose a new file operation")
-              [COND
-                 [FROMREPLAYFILE                             (* ; 
-                                                           "getting events from the replay file")
-                        (SETQ FILEOP (READ FROMREPLAYFILE))
-                        (SKIPSEPRS FROMREPLAYFILE)
-                        (COND
-                           ((EOFP FROMREPLAYFILE)
-                            (CLOSEF FROMREPLAYFILE)
-                            (SETQ FROMREPLAYFILE)
-                            (BREAK1 T T "Before last event on replay file"]
-                 (T (SETQ FILEOP (CHOOSERANDOMFILEOPERATION FILESINFO HOST/DIR]
-              [COND
-                 (KEEPREPLAYFILEFLG                          (* ; 
-                                                "put op on REPLAYFILE and make sure it gets there.")
-                        (PROG [(STRM (OPENSTREAM REPLAYFILE 'APPEND]
-                              (PRINT FILEOP STRM)
-                              (CLOSEF STRM]
-              (printout LOGFILE ".......... start=" STARTINGTIME "   time=" (DATE)
-                     T)
-              (PRINT FILEOP LOGFILE)
-              (SETQ FILESINFO (DOTESTFILEOP FILEOP FILESINFO HOST/DIR LOGFILE))
-              (printout LOGFILE "Consistency check after operation " NUMBEROFOPERATIONSDONE " .....")
-              (BLOCK)
-              [COND
-                 ((NOT DONTCLOSEFILESFLG)
-
-                  (* ;; "All files dshould be closed at this point:")
-
-                  (for FILE in FILESINFO when (for OPENFILE in (OPENP)
-                                                             thereis (EQ (FULLNAME OPENFILE)
-                                                                             (fetch (TESTFILEINFO
-                                                                                         
-                                                                                     TESTFILEFULLNAME
-                                                                                         )
-                                                                                of FILE)))
-                     do (HELP "File open that shouldn't be:" (fetch (TESTFILEINFO 
-                                                                                   TESTFILEFULLNAME)
-                                                                    of FILE]
-              (CHECKCONSISTENCY FILESINFO HOST/DIR)
-              (printout LOGFILE "  done." T)
-              (GO LP)))])
-
-(DELETETESTFILES
-  [LAMBDA (HOST/DIR CHECKENTIRECONTENTSFLG)                  (* hts%: "22-Oct-84 16:27")
-                                                             (* deletes any TEST files from 
-                                                             directory HOST/DIR)
-    (for FILE in (DIRECTORY HOST/DIR) when (TESTFILEP FILE (NOT CHECKENTIRECONTENTSFLG))
-       do (if (OPENP FILE)
-              then (CLOSEF FILE))
-          (PRINT (DELFILE FILE)
-                 T])
-)
-(DEFINEQ
-
-(CHECKCONSISTENCY
-  [LAMBDA (FILESINFO HOST/DIR)                               (* ; "Edited  2-Nov-87 13:55 by jds")
-          
-          (* ;; "checks that the state of the currently connected directory (or HOST/DIR, if given) is exactly the same as FILESINFO.")
-
-    (PROG [(DIRFILES (SORT (DIRECTORY HOST/DIR]
-          (for DIRFILE in DIRFILES as FILEINFO in FILESINFO
-             do (BLOCK)
-                [COND
-                   ((NEQ (U-CASE DIRFILE)
-                         (U-CASE (fetch (TESTFILEINFO TESTFILEFULLNAME) of FILEINFO)))
-                                                             (* ; 
-                                              "something is wrong with the directory.  Find out what")
-
-                    (COND
-                       ((FASSOC (U-CASE DIRFILE)
-                               (MEMB FILEINFO FILESINFO))    (* ; "this file shows up later")
-
-                        (ERROR "FILE MISSING .. " (fetch (TESTFILEINFO TESTFILEFULLNAME) of FILEINFO)
-                               ))
-                       (T (ERROR "NEW FILE HAS APPEARED .. " DIRFILE]
-                (CHECKLENGTHANDCONTENTS FILEINFO])
-
-(CHECKLENGTHANDCONTENTS
-  [LAMBDA (FILEINFO)                                         (* ; "Edited  4-Nov-87 11:24 by jds")
-          
-          (* ;; "checks the length and contents of a file from its in core representation.")
-
-    (PROG ((STRM (OPENSTREAM (fetch (TESTFILEINFO TESTFILEFULLNAME) of FILEINFO)
-                        'INPUT))
-           (FILELENGTH (fetch (TESTFILEINFO FILELENGTH) of FILEINFO))
-           (STARTBYTE (fetch (TESTFILEINFO STARTBYTE) of FILEINFO))
-           (PERIOD (fetch (TESTFILEINFO PERIOD) of FILEINFO)))
-          (COND
-             ([NOT (EQP FILELENGTH (GETFILEINFO STRM 'LENGTH]
-              (ERROR "FILE has wrong length ... " FILEINFO)))
-          [COND
-             ((AND STARTBYTE PERIOD (IGEQ FILELENGTH MINTESTFILELENGTH))
-          
-          (* ;; "test files contain at least enough bytes to hold keys and stuff.  Maybe should have a special test for zero length files.")
-
-              (COND
-                 ((OR (NEQ (WORDIN STRM)
-                           FIRSTTESTWORD)
-                      (NEQ (WORDIN STRM)
-                           SECONDTESTWORD)
-                      (NOT (EQP FILELENGTH (DOUBLEWORDIN STRM)))
-                      (NEQ (BIN STRM)
-                           STARTBYTE)
-                      (NEQ (BIN STRM)
-                           PERIOD))
-                  (ERROR "FIRST 10 bytes of file is wrong .. " FILEINFO)))
-              [COND
-                 ((IGREATERP FILELENGTH MINTESTFILELENGTH)   (* ; 
-                                                         "only bother checking if we have data bytes")
-
-                  (COND
-                     ((EQ 1 (RAND 1 7))
-          
-          (* ;; "SCAN ENTIRE FILE once in about every seven tests.")
-
-                      (bind READBYTE (CURVALUE _ STARTBYTE)
-                            (BLOCKCOUNT _ 0) for COMPUTEDBYTE from STARTBYTE
-                         to (IPLUS STARTBYTE FILELENGTH (IMINUS MINTESTFILELENGTH)
-                                   -1) by 1 when [PROGN (COND
-                                                           ((ZEROP (SETQ BLOCKCOUNT
-                                                                    (IMOD (ADD1 BLOCKCOUNT)
-                                                                          100)))
-                                                            (BLOCK)))
-                                                        (PROG1 (NEQ (SETQ READBYTE (\BIN STRM))
-                                                                    CURVALUE)
-                                                               (SETQ CURVALUE (IMOD (ADD1 CURVALUE)
-                                                                                    PERIOD]
-                         do (printout LOGFILE "FILE HAS WRONG BYTE .. " T "should have "
-                                   (IMOD COMPUTEDBYTE PERIOD)
-                                   " but read " READBYTE " from file" T "at location "
-                                   (SUB1 (GETFILEPTR STRM))
-                                   T)
-                            (ERROR "FILE HAS WRONG BYTE .. " FILEINFO)))
-                     (T 
-
-(* ;;; "SPOT CHECK FILE")
-
-                        [bind SPOT COMPUTEDBYTE READBYTE to 7
-                           do (BLOCK)
-                              (SETQ SPOT (RAND MINTESTFILELENGTH (SUB1 FILELENGTH)))
-                              (SETQ COMPUTEDBYTE (PLUS (MINUS MINTESTFILELENGTH)
-                                                       SPOT STARTBYTE))
-                              (SETFILEPTR STRM SPOT)
-                              (COND
-                                 ((NEQ (SETQ READBYTE (\BIN STRM))
-                                       (IMOD COMPUTEDBYTE PERIOD))
-                                  (printout LOGFILE "FILE HAS WRONG BYTE .. " T "should have "
-                                         (IMOD COMPUTEDBYTE PERIOD)
-                                         " but read " READBYTE " from file" T "at location "
-                                         (SUB1 (GETFILEPTR STRM))
-                                         T)
-                                  (ERROR "FILE HAS WRONG BYTE .. " FILEINFO]
-                        (SETFILEPTR STRM FILELENGTH]
-              (OR (EOFP STRM)
-                  (ERROR "FILE doesn't get EOFP ... " FILEINFO]
-          (OR DONTCLOSEFILESFLG (CLOSEF STRM])
-
-(CHOOSERANDOMFILEOPERATION
-  [LAMBDA (FILESINFO HOST/DIR)                               (* ; "Edited  2-Nov-87 12:25 by jds")
-          
-          (* ;; "chooses a random file operation add delete setlength on a random file and return a TESTFILEOP record for it.")
-
-    (COND
-       [FILESINFO (PROG ((RANDNUM (RAND 1 300)))
-                        (RETURN (COND
-                                   ((ILEQ RANDNUM 75)        (* ; "add a file")
-
-                                    (GENERATEADDFILEOP FILESINFO NIL HOST/DIR))
-                                   ((ILEQ RANDNUM 125)       (* ; "Change the length of a file")
-
-                                    (GENERATECHANGEFILEOP FILESINFO HOST/DIR))
-                                   ((ILEQ RANDNUM 175)       (* ; "delete a file")
-
-                                    (GENERATEDELETEFILEOP FILESINFO NIL HOST/DIR))
-                                   ((ILEQ RANDNUM 225)       (* ; "do EOFP test")
-
-                                    (GENERATEEOFPFILEOP FILESINFO HOST/DIR))
-                                   ((ILEQ RANDNUM 295)       (* ; "do PEEKBIN test")
-
-                                    (GENERATEPEEKBINFILEOP FILESINFO HOST/DIR))
-                                   (T                        (* ; "delete all files once in a while")
-
-                                      (GENERATEDELETEALLFILEOP]
-       (T                                                    (* ; "add a file")
-
-          (GENERATEADDFILEOP FILESINFO NIL HOST/DIR])
-
-(DEFAULT.DSKFREEPAGESFN
-  [LAMBDA (HOST/DIR)                                     (* mjs "17-Apr-86 14:59")
-    (SELECTQ (FILENAMEFIELD HOST/DIR 'HOST)
-        (DSK (SELECTQ (MACHINETYPE)
-                 ((DORADO) 
-                      (DISKFREEPAGES HOST))
-                 ((DANDELION DOVE) 
-                      (DISKFREEPAGES HOST/DIR))
-                 (MAIKO 500)
-                 (SHOULDNT)))
-        (FLOPPY (FLOPPY.FREE.PAGES))
-        (PCDISK                                              (* remember to strip trailing colon 
-                                                           off of device name!!)
-                (VPCDISK.FREEPAGES (SUBATOM (FILENAMEFIELD HOST/DIR 'DEVICE)
-                                          1 -2)))
-        MAX.SMALLP])
-
-(DEFAULT.DSKMINALLOCFN
-  [LAMBDA (HOST/DIR)                                     (* mjs "22-Jan-86 12:18")
-                                                             (* Default minimum-allocation unit 
-                                                           function)
-    (SELECTQ (FILENAMEFIELD HOST/DIR 'HOST)
-        (DSK (SELECTQ (MACHINETYPE)
-                 ((DANDELION DOVE)                           (* DLIONFS allocates 25 at a crackj.)
-                      25)
-                 ((DOLPHIN DORADO) 
-                      1)
-                 (MAIKO 1)
-                 (SHOULDNT)))
-        (FLOPPY 1)
-        1])
-
-(DEFAULT.DSKPAGESOVERHEADFN
-  [LAMBDA (HOST/DIR NEWFILELENGTH)                       (* mjs "22-Jan-86 12:18")
-                                                             (* default overhead function)
-    (SELECTQ (FILENAMEFIELD HOST/DIR 'HOST)
-        (DSK (SELECTQ (MACHINETYPE)
-                 ((DANDELION DOVE) 
-
-         (* * 11 is 5 for worst-case btree split on file, 5 for split on directory, 1 
-       for leaderpage; NEWFILELENGTH and \LFrunSize for maximum length file will 
-       attain during allocation; and \LFrunSize for possible directory extension.)
-
-                      (PLUS 11 NEWFILELENGTH \LFrunSize \LFrunSize))
-                 ((DOLPHIN DORADO) 
-                      (IPLUS NEWFILELENGTH 5))
-                 (MAIKO (IPLUS NEWFILELENGTH 5))
-                 (SHOULDNT)))
-        (FLOPPY (IPLUS NEWFILELENGTH 5))
-        (IPLUS NEWFILELENGTH 5])
-
-(DOTESTFILEOP
-  [LAMBDA (FILEOP FILEINFOLST HOST/DIR LOGFILE)          (* ; "Edited  7-Dec-88 06:03 by jds")
-
-    (* ;; "performs a TESTFILEOPERATION and updates the incore idea about what the directory should now look like.  Returns the changed FILEINFOLST.")
-                                                             (* ; 
-                                                     "operation can be add, delete or changelength")
-    (SELECTQ (fetch (TESTFILEOP TESTOPERATION) of FILEOP)
-        (ADD [PROG ((FULLFILE (fetch (TESTFILEOP TESTOPFILENAME) of FILEOP))
-                    (BYTELEN (fetch (TESTFILEOP TESTOPFILELENGTH) of FILEOP))
-                    (STARTBYTE (fetch (TESTFILEOP STARTBYTE) of FILEOP))
-                    (PERIOD (fetch (TESTFILEOP PERIOD) of FILEOP))
-                    (OLDDISKFREEPAGES (DSKFREEPAGES HOST/DIR)))
-                   (COND
-                      ((SETQ FULLFILE (WRITETESTFILE FULLFILE BYTELEN STARTBYTE PERIOD))
-                       (BLOCK))
-                      (T (ERROR "file wasn't written. " FILEOP)))
-                   (COND
-                      ((EQ FULLFILE T)
-                       (HELP)))
-                   (RETURN (SORTBYCAR (CONS (create TESTFILEINFO
-                                                       TESTFILEFULLNAME _ FULLFILE
-                                                       FILELENGTH _ BYTELEN
-                                                       STARTBYTE _ STARTBYTE
-                                                       PERIOD _ PERIOD
-                                                       TESTFILEORIGNAME _ (fetch (TESTFILEOP
-                                                                                      TESTOPFILENAME)
-                                                                             of FILEOP))
-                                                FILEINFOLST])
-        (DELETE (PROG ((DELFILEINFO (fetch (TESTFILEOP TESTOPFILENAME) of FILEOP)))
-                      (COND
-                         ((DELFILE (fetch (TESTFILEINFO TESTFILEFULLNAME) of DELFILEINFO))
-                          (BLOCK))
-                         (T (ERROR "file won't delete" DELFILEINFO)))
-                      (RETURN (REMOVE DELFILEINFO FILEINFOLST))))
-        (DELETEALL (for F in FILEINFOLST unless (PROGN (BLOCK)
-                                                                   (DELFILE (fetch (TESTFILEINFO
-                                                                                        
-                                                                                     TESTFILEFULLNAME
-                                                                                        )
-                                                                               of F)))
-                      do (ERROR "file won't delete" F))
-                   NIL)
-        (CHANGELENGTH (PROG ((TESTFILE (fetch (TESTFILEINFO TESTFILEFULLNAME)
-                                          of (fetch (TESTFILEOP TESTOPFILENAME) of FILEOP
-                                                        )))
-                             (NEWLENGTH (fetch (TESTFILEOP TESTOPFILELENGTH) of FILEOP))
-                             (OLDDISKFREEPAGES (DSKFREEPAGES HOST/DIR))
-                             NOWLENGTH CHANGEFILEINFO XFILEINFO)
-                            (COND
-                               ((SETQ CHANGEFILEINFO (for FILEINFO in FILEINFOLST
-                                                        thereis (EQ (fetch (TESTFILEINFO
-                                                                                    TESTFILEFULLNAME)
-                                                                           of FILEINFO)
-                                                                        TESTFILE)))
-
-                                (* ;; "look for the one on FILEINFOLST that has the same name as this one may have been read in from the replay file and not be EQ.")
-
-                                NIL)
-                               (T (ERROR "changing a file that is not on file information list." 
-                                         CHANGEFILEINFO)
-                                  (RETURN)))
-                            (COND
-                               ((IGREATERP NEWLENGTH (SETQ NOWLENGTH (fetch (TESTFILEINFO 
-                                                                                       FILELENGTH)
-                                                                        of CHANGEFILEINFO)))
-                                                             (* ; "extend the file")
-                                (EXTENDTESTFILE TESTFILE (fetch (TESTFILEINFO STARTBYTE)
-                                                                of CHANGEFILEINFO)
-                                       (fetch (TESTFILEINFO PERIOD) of CHANGEFILEINFO)
-                                       NOWLENGTH NEWLENGTH)
-                                (BLOCK))
-                               (T                            (* ; "truncate the file.")
-                                  (TRUNCATETESTFILE TESTFILE NEWLENGTH)))
-                            (replace (TESTFILEINFO FILELENGTH) of CHANGEFILEINFO with
-                                                                                         NEWLENGTH)
-                            (RETURN FILEINFOLST)))
-        (EOFP (PROG ((TESTFILE (fetch (TESTFILEINFO TESTFILEFULLNAME) of (fetch
-                                                                                  (TESTFILEOP 
-                                                                                       TESTOPFILENAME
-                                                                                         )
-                                                                                    of FILEOP)))
-                     (NEWLENGTH (fetch (TESTFILEOP TESTOPFILELENGTH) of FILEOP))
-                     (OLDDISKFREEPAGES (DSKFREEPAGES HOST/DIR))
-                     NOWLENGTH CHANGEFILEINFO XFILEINFO)
-                    (COND
-                       ((SETQ CHANGEFILEINFO (for FILEINFO in FILEINFOLST
-                                                thereis (EQ (fetch (TESTFILEINFO 
-                                                                                  TESTFILEFULLNAME)
-                                                                   of FILEINFO)
-                                                                TESTFILE)))
-
-                        (* ;; "look for the one on FILEINFOLST that has the same name as this one may have been read in from the replay file and not be EQ.")
-
-                        NIL)
-                       (T (ERROR "changing a file that is not on file information list." 
-                                 CHANGEFILEINFO)
-                          (RETURN)))
-                    (TESTEOFP TESTFILE (fetch (TESTFILEINFO STARTBYTE) of CHANGEFILEINFO)
-                           (fetch (TESTFILEINFO PERIOD) of CHANGEFILEINFO)
-                           NEWLENGTH LOGFILE)
-                    (replace (TESTFILEINFO FILELENGTH) of CHANGEFILEINFO with NEWLENGTH)
-                    (RETURN FILEINFOLST)))
-        (PEEKBIN (PROG ((TESTFILE (fetch (TESTFILEINFO TESTFILEFULLNAME)
-                                     of (fetch (TESTFILEOP TESTOPFILENAME) of FILEOP)))
-                        CHANGEFILEINFO)
-                       (COND
-                          ((SETQ CHANGEFILEINFO (for FILEINFO in FILEINFOLST
-                                                   thereis (EQ (fetch (TESTFILEINFO 
-                                                                                     TESTFILEFULLNAME
-                                                                                     ) of 
-                                                                                             FILEINFO
-                                                                          )
-                                                                   TESTFILE)))
-
-                           (* ;; "look for the one on FILEINFOLST that has the same name as this one may have been read in from the replay file and not be EQ.")
-
-                           NIL)
-                          (T (ERROR "changing a file that is not on file information list." 
-                                    CHANGEFILEINFO)
-                             (RETURN)))
-                       (TESTPEEKBIN TESTFILE NIL LOGFILE)
-                       (RETURN FILEINFOLST)))
-        (ERROR "unknown file operation" FILEOP])
-
-(DSKFREEPAGES
-  [LAMBDA (HOST/DIR)                                         (* hts%: "29-Apr-84 16:23")
-          
-          (* returns the number of free pages in the connected directory if it knows how.)
-
-    (APPLY* DSKFREEPAGESFN HOST/DIR])
-
-(DSKMINALLOC
-  [LAMBDA (HOST/DIR)                                         (* mjs "22-Jan-86 12:18")
-          
-          (* Calls the device dependent function that gives the minimum %# of pages the 
-          file system will allocate at a crack.)
-
-    (APPLY* DSKMINALLOCFN HOST/DIR])
-
-(DSKPAGESOVERHEAD
-  [LAMBDA (HOST/DIR NEWFILELENGTH)                           (* mjs "22-Jan-86 12:18")
-          
-          (* calls the device dependent function that gives the overhead per file)
-
-    (APPLY* DSKPAGESOVERHEADFN HOST/DIR NEWFILELENGTH])
-
-(EXTENDTESTFILE
-  [LAMBDA (FILENAME STARTBYTE PERIOD OLDLENGTH NEWLENGTH)(* ; "Edited  7-Dec-88 05:59 by jds")
-
-    (* ;; "extends a file by writing CONTENTS byte to it until it has length LONGERLENGTH.")
-
-    (COND
-       ((OPENP FILENAME)                                     (* ; 
-                                                           "file may be open already for read.")
-        (CLOSEF FILENAME)))
-    (PROG [(STRM (OPENSTREAM FILENAME 'BOTH]
-          (COND
-             ((NULL STRM)
-              (ERROR "file that it supposed to exist won't open for extending." FILENAME)))
-                                                             (* ; 
-                                                      "update the length count stored in the file.")
-          (WRITETESTFILELENGTH STRM NEWLENGTH)
-          (SETFILEPTR STRM OLDLENGTH)
-          [for BYTE from (IPLUS STARTBYTE OLDLENGTH (IMINUS MINTESTFILELENGTH))
-             to (IPLUS STARTBYTE NEWLENGTH (IMINUS MINTESTFILELENGTH)
-                           -1) do (BOUT STRM (IMOD BYTE PERIOD))
-                                     (COND
-                                        ((ZEROP (IMOD BYTE 100))
-                                         (BLOCK]
-          (OR DONTCLOSEFILESFLG (CLOSEF STRM])
-
-(FILEINFOFROMFILE
-  [LAMBDA (FILE)                                             (* hts%: "22-Oct-84 15:44")
-                                                             (* returns a TESTFILEINFO record of 
-                                                             information about FILE.)
-          
-          (* keep track of test files differently because contents can be represented as 
-          a single byte.)
-
-    (if (EQ FILE T)
-        then (HELP "FILE IS T!!?"))
-    (PROG ((CONTENTS (TESTFILEP FILE NIL T)))
-          (RETURN (create TESTFILEINFO
-                         TESTFILEFULLNAME _ FILE
-                         FILELENGTH _ (GETFILEINFO FILE 'LENGTH)
-                         STARTBYTE _ (CAR CONTENTS)
-                         PERIOD _ (CDR CONTENTS])
-
-(GENERATEADDFILEOP
-  [LAMBDA (FILEINFOLST STOPIFCANTFLG HOST/DIR)               (* edited%: "13-Aug-85 11:28")
-    (PROG ((LENGTH (RANDOMFILELENGTH HOST/DIR))
-           (PERIOD (RAND 1 255)))
-          (RETURN (COND
-                     (LENGTH (create TESTFILEOP
-                                    TESTOPERATION _ 'ADD
-                                    TESTOPFILENAME _ (RANDOMFILENAME HOST/DIR)
-                                    TESTOPFILELENGTH _ LENGTH
-                                    STARTBYTE _ (RAND 0 PERIOD)
-                                    PERIOD _ PERIOD))
-                     (STOPIFCANTFLG (ERROR "probably out of disk space."))
-                     (T (GENERATEDELETEFILEOP FILEINFOLST T HOST/DIR])
-
-(GENERATECHANGEFILEOP
-  [LAMBDA (FILEINFOLST HOST/DIR)                             (* hts%: "29-Apr-84 16:29")
-    (PROG ((FILETOCHANGE (RANDOMTESTFILE FILEINFOLST))
-           (LENGTH (RANDOMFILELENGTH HOST/DIR)))
-          (RETURN (COND
-                     ((NULL FILETOCHANGE)                    (* create a file instead)
-                      (GENERATEADDFILEOP FILEINFOLST T HOST/DIR))
-                     ((NULL LENGTH)                          (* if can't change the length, try 
-                                                             deleting a file.)
-                      (GENERATEDELETEFILEOP FILEINFOLST T HOST/DIR))
-                     (T (create TESTFILEOP
-                               TESTOPERATION _ 'CHANGELENGTH
-                               TESTOPFILENAME _ FILETOCHANGE
-                               TESTOPFILELENGTH _ LENGTH])
-
-(GENERATEDELETEFILEOP
-  [LAMBDA (FILEINFOLST STOPIFNONEFLG HOST/DIR)               (* hts%: "22-Oct-84 16:54")
-                                                             (* generates a delete file operation.)
-          
-          (* if it can't, it generates an file operation to ADD unless STOPIFNONEFLG is T)
-
-    (PROG ((FILETODEL (RANDOMTESTFILE FILEINFOLST)))
-          (RETURN (COND
-                     (FILETODEL (create TESTFILEOP
-                                       TESTOPERATION _ 'DELETE
-                                       TESTOPFILENAME _ FILETODEL))
-                     (STOPIFNONEFLG (ERROR "No file to delete"))
-                     (T (GENERATEADDFILEOP FILEINFOLST T HOST/DIR])
-
-(GENERATEEOFPFILEOP
-  [LAMBDA (FILEINFOLST HOST/DIR)                             (* AJB "31-Jul-86 15:46")
-    (PROG ((FILETOCHANGE (RANDOMTESTFILE FILEINFOLST))
-           (LENGTH (RANDOMFILELENGTH HOST/DIR)))
-          (RETURN (COND
-                     ((NULL FILETOCHANGE)                    (* create a file instead)
-                      (GENERATEADDFILEOP FILEINFOLST T HOST/DIR))
-                     ((NULL LENGTH)                          (* if can't change the length, try 
-                                                             deleting a file.)
-                      (GENERATEDELETEFILEOP FILEINFOLST T HOST/DIR))
-                     (T (create TESTFILEOP
-                               TESTOPERATION _ 'EOFP
-                               TESTOPFILENAME _ FILETOCHANGE
-                               TESTOPFILELENGTH _ LENGTH])
-
-(GENERATEPEEKBINFILEOP
-  [LAMBDA (FILEINFOLST HOST/DIR)                             (* AJB " 1-Aug-86 10:14")
-    (PROG ((FILETOCHANGE (RANDOMTESTFILE FILEINFOLST)))
-          (RETURN (COND
-                     ((NULL FILETOCHANGE)                    (* create a file instead)
-                      (GENERATEADDFILEOP FILEINFOLST T HOST/DIR))
-                     ((NULL LENGTH)                          (* if can't change the length, try 
-                                                             deleting a file.)
-                      (GENERATEDELETEFILEOP FILEINFOLST T HOST/DIR))
-                     (T (create TESTFILEOP
-                               TESTOPERATION _ 'PEEKBIN
-                               TESTOPFILENAME _ FILETOCHANGE])
-
-(GENERATEDELETEALLFILEOP
-  [LAMBDA NIL                                                (* hts%: " 5-Jun-84 08:58")
-    (create TESTFILEOP
-           TESTOPERATION _ 'DELETEALL])
-
-(RANDOMELT
-  [LAMBDA (LST)                                              (* rrb "27-Mar-84 09:59")
-                                                             (* returns a random element of a list.)
-    (CAR (NTH LST (RAND 1 (LENGTH LST])
-
-(RANDOMFILELENGTH
-  [LAMBDA (HOST/DIR)                                         (* ; "Edited  2-Nov-87 12:27 by jds")
-          
-          (* ;; "returns a random file length.  (In bytes) that's guaranteed to fit in the file system in its current state.")
-
-    (PROG ((NPAGES (RANDOMELT TESTFILEPAGELENGTHS))
-           (DSKPAGES (DSKFREEPAGES HOST/DIR))
-           (MINALLOC (DSKMINALLOC HOST/DIR))
-           FILEOVERHEAD)                                     (* ; 
-                                         "checks that there are enough free pages to store the file.")
-
-          [COND
-             ((ILEQ DSKPAGES (IPLUS MINALLOC (DSKPAGESOVERHEAD HOST/DIR MINALLOC)))
-          
-          (* ;; "There is no room for this file under any conditions -- there aren't enough pages to allocate a minimum-sized file")
-
-              (RETURN NIL))
-             ((IGREATERP (IPLUS NPAGES (SETQ FILEOVERHEAD (DSKPAGESOVERHEAD HOST/DIR NPAGES)))
-                     DSKPAGES)
-          
-          (* ;; "There is room for A file.  Now pick a file size that will fit.  FILEOVERHEAD should be a high estimate of the overhead for the file, since the new NPAGES will be lower than the prior number.")
-
-              (SETQ NPAGES (IDIFFERENCE DSKPAGES FILEOVERHEAD]
-                                                             (* ; 
-                                          "weight to return a length around an even number of pages.")
-
-          (RETURN (IMAX MINTESTFILELENGTH (IPLUS (ITIMES NPAGES BYTESPERPAGE)
-                                                 (SELECTQ (RAND 0 3)
-                                                     (0 0)
-                                                     (1 1)
-                                                     (2 -1)
-                                                     (RAND -511 512])
-
-(RANDOMFILENAME
-  [LAMBDA (HOST/DIR)                                         (* mjs "18-Apr-86 08:27")
-                                                             (* generates a random file name.)
-    (U-CASE (PACK* HOST/DIR (COND
-                               [(EQ 'PCDISK (FILENAMEFIELD HOST/DIR 'HOST))
-                                (PACKFILENAME 'NAME (RANDOMSTR (RAND 1 6))
-                                       'EXTENSION
-                                       (RANDOMSTR (RAND 0 3]
-                               (T (PACKFILENAME 'NAME (RANDOMSTR (RAND MINFILENAMELENGTH 
-                                                                       MAXFILENAMELENGTH))
-                                         'EXTENSION
-                                         (RANDOMSTR (RAND MINFILEEXTENSIONLENGTH 
-                                                          MAXFILEEXTENSIONLENGTH))
-                                         'VERSION
-                                         (SELECTQ (RAND 0 1)
-                                             (0              (* give an explicit extension)
-                                                (RAND 1 MAXVERSION))
-                                             NIL])
-
-(RANDOMSTR
-  [LAMBDA (NCHARS)                                           (* rrb "27-Mar-84 09:38")
-                                                             (* returns a random string NCHARS 
-                                                             long.)
-    (PACK (CONS [CAR (NTH LEGALFIRSTFILENAMECHARS (RAND 1 (LENGTH LEGALFIRSTFILENAMECHARS]
-                (bind (%#LEGALFILENAMECHARS _ (LENGTH LEGALFILENAMECHARS)) for I from 1
-                   to (SUB1 NCHARS) collect (CAR (NTH LEGALFILENAMECHARS (RAND 1 %#LEGALFILENAMECHARS
-                                                                               ])
-
-(RANDOMTESTFILE
-  [LAMBDA (FILEINFOLST)                                      (* hts%: "22-Oct-84 16:10")
-          
-          (* chooses a random test file from FILEINFOLST.
-          This avoids deleting not test files.)
-
-    (PROG ((NTESTFILES (for FILE in FILEINFOLST when (SMALLP (fetch (TESTFILEINFO STARTBYTE)
-                                                                of FILE)) sum 1))
-           NFILE)
-          (RETURN (if (NEQ NTESTFILES 0)
-                      then (SETQ NFILE (RAND 1 NTESTFILES))
-                           (for FILE in FILEINFOLST when (SMALLP (fetch (TESTFILEINFO STARTBYTE)
-                                                                    of FILE))
-                              do (if (ZEROP (SETQ NFILE (SUB1 NFILE)))
-                                     then (RETURN FILE])
-
-(SORTBYCAR
-  [LAMBDA (LST)                                          (* ; "Edited  6-Dec-88 22:54 by jds")
-                                                             (* sorts a list by its CARs)
-    (SORT LST (FUNCTION (LAMBDA (A B)
-                          (ALPHORDER (U-CASE (CAR A))
-                                 (U-CASE (CAR B])
-
-(TESTFILEP
-  [LAMBDA (FILE HINTONLYFLG RETURNCONTENTSFLG)               (* ; "Edited  3-Nov-87 16:26 by jds")
-          
-          (* ;; "determines if a file is a test file.")
-
-    (PROG ((STRM (OPENSTREAM FILE 'INPUT))
-           FILELENGTH STARTBYTE PERIOD)
-          (SETQ FILELENGTH (GETFILEINFO STRM 'LENGTH))
-          (RETURN (PROG1 [COND
-                            ((ILESSP FILELENGTH MINTESTFILELENGTH)
-          
-          (* ;; "test files contain at least enough bytes to hold keys and stuff.  Maybe should have a special test for zero length files.")
-
-                             NIL)
-                            ((AND (EQ (WORDIN STRM)
-                                      FIRSTTESTWORD)
-                                  (EQ (WORDIN STRM)
-                                      SECONDTESTWORD)
-                                  (EQP FILELENGTH (DOUBLEWORDIN STRM)))
-                             (COND
-                                (HINTONLYFLG                 (* ; 
-                                                   "if asking about hint only, don't check contents.")
-
-                                       (COND
-                                          (RETURNCONTENTSFLG (CONS (BIN STRM)
-                                                                   (BIN STRM)))
-                                          (T FILE)))
-                                (T (SETQ STARTBYTE (BIN STRM))
-                                   (SETQ PERIOD (BIN STRM))
-                                   (bind (RUNNINGVALUE _ STARTBYTE) for COMPUTEDBYTE from STARTBYTE
-                                      to (IPLUS STARTBYTE FILELENGTH -1 (IMINUS MINTESTFILELENGTH))
-                                      when (PROG1 (NEQ (BIN STRM)
-                                                       RUNNINGVALUE)
-                                                  (SETQ RUNNINGVALUE (IMOD (ADD1 RUNNINGVALUE)
-                                                                           PERIOD)))
-                                      do (RETURN NIL) finally (RETURN (COND
-                                                                         (RETURNCONTENTSFLG
-                                                                          (CONS STARTBYTE PERIOD))
-                                                                         (T FILE]
-                         (CLOSEF STRM])
-
-(TESTEOFP
-  [LAMBDA (FILENAME STARTBYTE PERIOD NEWLENGTH LOGFILE)  (* ; "Edited  7-Dec-88 06:04 by jds")
-
-    (* ;; "Test the EOFP method for this file device.")
-
-    (COND
-       ((OPENP FILENAME)                                     (* ; 
-                                                           "file may be open already for read.")
-        (CLOSEF FILENAME)))
-    (LET* [(STRM (OPENSTREAM FILENAME 'BOTH))
-           (OLDLENGTH (GETFILEINFO STRM 'LENGTH]
-          (COND
-             ((NULL STRM)
-              (CL:WARN "file ~A won't open for end of file tests." FILENAME)))
-          [COND
-             [(SETFILEINFO STRM 'LENGTH NEWLENGTH)
-              (COND
-                 ((NOT (= (\GETEOFPTR STRM)
-                          NEWLENGTH))
-                  (CL:FORMAT LOGFILE "Changing file ~A to NEWLENGTH ~D didn't change EOFPTR.
-" FILENAME NEWLENGTH)
-                  (CL:WARN "Changing file ~A to NEWLENGTH ~D didn't change EOFPTR.
-" FILENAME NEWLENGTH)))
-              (SETFILEPTR STRM NEWLENGTH)
-              (WRITETESTFILELENGTH STRM NEWLENGTH)
-              (CLOSEF STRM)
-              [COND
-                 ((NOT (EQP (GETFILEINFO FILENAME 'LENGTH)
-                            NEWLENGTH))
-                  (CL:FORMAT LOGFILE "Changing file ~A to NEWLENGTH ~D didn't take; length still ~D"
-                         FILENAME NEWLENGTH (GETFILEINFO FILENAME 'LENGTH))
-                  (CL:WARN "Changing file ~A to NEWLENGTH ~D didn't take; length still ~D" FILENAME 
-                         NEWLENGTH (GETFILEINFO FILENAME 'LENGTH]
-              (SETQ STRM (OPENSTREAM FILENAME 'BOTH))
-              (COND
-                 ((NOT (EQP (GETFILEINFO FILENAME 'LENGTH)
-                            NEWLENGTH))
-                  (CL:FORMAT LOGFILE 
-                         "Re-opening file ~A after changing to NEWLENGTH ~D lost new length.
-" FILENAME NEWLENGTH)
-                  (CL:WARN "Re-opening file ~A after changing to NEWLENGTH ~D lost new length.
-" FILENAME NEWLENGTH)))
-              (TESTFILEPTR STRM NEWLENGTH LOGFILE)
-              (SETFILEINFO STRM 'LENGTH NEWLENGTH)
-              (CLOSEF STRM)
-              (COND
-                 ((NOT (EQP (GETFILEINFO FILENAME 'LENGTH)
-                            NEWLENGTH))
-                  (CL:WARN "Changing file ~A to NEWLENGTH ~D the second time didn't take either.
-" FILENAME NEWLENGTH]
-             (T (SETQ NEWLENGTH (GETFILEINFO STRM 'LENGTH]
-          (SETQ STRM (OPENSTREAM FILENAME 'INPUT))
-          [for I from 0 to (SUB1 NEWLENGTH) do (COND
-                                                                  ((EOFP STRM)
-                                                                   (ERROR "EARLY EOF" I)))
-                                                              (BIN STRM)
-             finally (COND
-                            ((NOT (EOFP STRM))
-                             (ERROR "EOFP not true at end of file"]
-          (TESTEOFOP STRM NEWLENGTH (FUNCTION ZERO)
-                 0 LOGFILE)
-          (TESTEOFOP STRM NEWLENGTH (FUNCTION NILL)
-                 NIL LOGFILE)
-          (CLOSEF STRM)
-          (EXTENDTESTFILE FILENAME STARTBYTE PERIOD OLDLENGTH NEWLENGTH])
-
-(TESTEOFOP
-  [LAMBDA (STREAM FILESIZE FN EOFVALUE LOGFILE)          (* ; "Edited 15-Jun-90 14:04 by jds")
-
-    (* ;; 
-  "Test ENDOFSTREAMOP, using FN as the function to call (THAT FUNCTION SHOULD RETURN EOFVALUE)")
-
-    (PRINTOUT LOGFILE %,, %,, "Testing with ENDOFSTREAMOP set to " FN T)
-    (SETFILEPTR STREAM 0)
-    (replace (STREAM ENDOFSTREAMOP) of STREAM with FN)
-    (for I from 0 to (SUB1 FILESIZE) do (COND
-                                                           ((EOFP STREAM)
-                                                            (ERROR "Early EOF at" I)))
-                                                       (BIN STREAM)
-       finally (COND
-                      ((NOT (EOFP STREAM))
-                       (ERROR "EOFP NIL at EOF.")))
-             (OR (EQ EOFVALUE (BIN STREAM))
-                 (ERROR "End-of-stream value not returned right from function " FN))
-             (OR (EOFP STREAM)
-                 (ERROR "EOFP is NIL after a BIN at EOF"])
-
-(TESTFILEPTR
-  [LAMBDA (STRM FILESIZE LOGFILE)                        (* ; "Edited  7-Dec-88 11:42 by jds")
-
-(* ;;; "Test setting fileptr past EOF")
-
-    (PRINTOUT LOGFILE .TAB 5 "Testing FILEPTR" T)
-    (PRINTOUT LOGFILE .TAB 10 "FILESIZE = " FILESIZE T)
-    (bind BYTE for FILEPTR in '(8192 512 4096 8191 513 4097 8193 511 4095)
-       do (PRINTOUT LOGFILE .TAB 10 "Setting EOF and FILEPTR to " FILESIZE T)
-             (SETFILEINFO STRM 'LENGTH FILESIZE)
-             (SETFILEPTR STRM FILESIZE)
-             (COND
-                ((NOT (EOFP STRM))
-                 (CL:WARN "EOFP not set at ~D " FILESIZE)))
-             (PRINTOUT LOGFILE .TAB 10 "FILESIZE extended by " FILEPTR T)
-             (SETFILEPTR STRM (IPLUS FILESIZE FILEPTR))
-             [COND
-                ((CL:/= (IPLUS FILESIZE FILEPTR)
-                        (GETFILEPTR STRM))
-                 (CL:WARN "FILEPOS wrong after SETFILEPTR; is ~D, should be ~D.
-" (GETFILEPTR STRM)
-                        (IPLUS FILESIZE FILEPTR]
-             (BOUT STRM 6)
-             [COND
-                ((CL:/= (IPLUS FILESIZE FILEPTR 1)
-                        (GETFILEPTR STRM))
-                 (CL:WARN "FILEPOS wrong after BOUT; is ~D, should be ~D.
-" (GETFILEPTR STRM)
-                        (IPLUS FILESIZE FILEPTR 1]
-             (SETFILEPTR STRM FILESIZE)
-             (PRINTOUT LOGFILE .TAB 10 "Testing new allocated area = zero" T)
-             [for I from FILESIZE to (IPLUS FILESIZE FILEPTR -1)
-                do (COND
-                          ((NEQ (BIN STRM)
-                                0)
-                           (CL:WARN "Newly-allocated area not zeroed.")
-                           (RETURN]
-             (PRINTOUT LOGFILE .TAB 10 "Testing new EOF and last byte written" T)
-             (COND
-                ((EOFP STRM)
-                 (CL:WARN "Early EOF; before BINning file's last byte.
-")))
-             (COND
-                ((NEQ (SETQ BYTE (BIN STRM))
-                      6)
-                 (CL:WARN "BIN didn't return what was just BOUTed; was ~D, should be 6.
-" BYTE)))
-             (COND
-                ((EOFP STRM))
-                (T (CL:WARN "EOFP false after BINning file's final byte.")))
-       finally (SETFILEINFO STRM 'LENGTH FILESIZE)
-             (SETFILEPTR STRM FILESIZE])
-
-(TESTPEEKBIN
-  [LAMBDA (FILE DONT.TRY.HARD.FLG LOGFILE)               (* ; "Edited  3-Nov-88 11:23 by jds")
-
-    (* ;; "Test the various cases of PEEKBIN")
-
-    (PROG ((STRM (OPENSTREAM FILE 'INPUT 'OLD))
-           STRMLEN)
-          (RESETLST
-              (RESETSAVE NIL (LIST 'CLOSEF? STRM))
-              (SETQ STRMLEN (GETEOFPTR STRM))
-              [for PTR in (APPEND [LIST 0 STRMLEN (IMAX (SUB1 STRMLEN)
-                                                                0)
-                                                (ADD1 STRMLEN)
-                                                (IPLUS (RAND 1 10)
-                                                       (IMIN 16777200 (ITIMES (RAND 2 5)
-                                                                             STRMLEN]
-                                         (for X from -1 to STRMLEN by 512
-                                            when (IGREATERP X 0) collect X)
-                                         (for X from 0 to STRMLEN by 512 collect
-                                                                                         X)
-                                         (for X from 1 to STRMLEN by 512 collect
-                                                                                         X)
-                                         (for X from 1 to 5 collect (RAND 0 STRMLEN))
-                                         ) bind C.PEEK.NIL C.PEEK.T C.BIN PTR2 PTR3
-                 do (SETFILEPTR STRM PTR)
-                       (SETQ C.PEEK.NIL (NLSETQ (\PEEKBIN STRM)))
-                       (SETQ PTR2 (GETFILEPTR STRM))
-                       [COND
-                          ((NOT DONT.TRY.HARD.FLG)
-                           (COND
-                              ((NOT (EQUAL PTR PTR2))
-                               (PRINTOUT LOGFILE "\PEEKBIN moving file ptr!" T]
-                       (SETQ C.PEEK.T (NLSETQ (\PEEKBIN STRM T)))
-                       (SETQ PTR3 (GETFILEPTR STRM))
-                       [COND
-                          ((NOT DONT.TRY.HARD.FLG)
-                           (COND
-                              ((NOT (EQUAL PTR PTR3))
-                               (PRINTOUT LOGFILE "\PEEKBIN moving file ptr!" T]
-                       (SETQ C.BIN (NLSETQ (BIN STRM)))
-                       (COND
-                          [(IGEQ PTR STRMLEN)                (* ; "at EOS")
-                           [COND
-                              ((NOT DONT.TRY.HARD.FLG)
-                               (COND
-                                  ((NOT (AND (EQUAL C.PEEK.NIL NIL)
-                                             (EQUAL C.PEEK.T '(NIL))
-                                             (EQUAL C.BIN NIL)))
-                                   (PRINTOUT LOGFILE "\PEEKBIN or BIN not working correctly at EOS" T
-                                          ]
-                           (COND
-                              ((NOT DONT.TRY.HARD.FLG)
-                               (COND
-                                  ((NOT (EQUAL (GETFILEPTR STRM)
-                                               PTR))
-                                   (PRINTOUT LOGFILE "BIN moving fileptr at eos" T]
-                          (T                                 (* ; "before EOS")
-                             (COND
-                                ((NOT (AND (EQUAL C.PEEK.NIL C.PEEK.T)
-                                           (EQUAL C.PEEK.T C.BIN)))
-                                 (PRINTOUT LOGFILE "\PEEKBIN and BIN not returning same value!" T)))
-                             (COND
-                                ((NOT (EQUAL (GETFILEPTR STRM)
-                                             (ADD1 PTR)))
-                                 (PRINTOUT LOGFILE "BIN not moving ptr correctly!" T]
-              (CLOSEF? STRM))])
-
-(TRUNCATETESTFILE
-  [LAMBDA (FILENAME NEWLENGTH)                           (* ; "Edited  3-Nov-87 13:43 by jds")
-                                                             (* ; "truncates a test file")
-    [COND
-       ((OPENP FILENAME)                                     (* ; 
-                                                           "file may be open already for read.")
-        (CLOSEF (OPENP FILENAME]
-    (PROG [(STRM (OPENSTREAM FILENAME 'BOTH]
-          (COND
-             ((NULL STRM)
-              (ERROR "file that it supposed to exist won't open for truncation." FILENAME)))
-          (WRITETESTFILELENGTH STRM NEWLENGTH)
-          (SETFILEPTR STRM NEWLENGTH)
-          (SETFILEINFO STRM 'LENGTH NEWLENGTH)
-          (CLOSEF STRM)
-          (COND
-             ((CL:/= (GETFILEINFO FILENAME 'LENGTH)
-                     NEWLENGTH)
-              (CL:WARN "changing file ~A to NEWLENGTH ~D didn't take" FILENAME NEWLENGTH])
-
-(WORDIN
-  [LAMBDA (STRM)                                             (* rrb "27-Mar-84 14:37")
-                                                             (* read two bytes from a stream)
-    (LOGOR (LLSH (\BIN STRM)
-                 8)
-           (\BIN STRM])
-
-(WORDOUT
-  [LAMBDA (STRM WORD)                                        (* bouts two bytes onto stream)
-    (\BOUT STRM (LRSH WORD 8))
-    (\BOUT STRM (LOGAND WORD 255])
-
-(DOUBLEWORDIN
-  [LAMBDA (FILE)                                             (* jds " 3-JAN-83 16:08")
-    (IPLUS (LLSH (\BIN FILE)
-                 24)
-           (LLSH (\BIN FILE)
-                 16)
-           (LLSH (\BIN FILE)
-                 8)
-           (\BIN FILE])
-
-(DOUBLEWORDOUT
-  [LAMBDA (FILE NUMBER)                                      (* jds " 3-JAN-83 15:30")
-    (\BOUT FILE (LOGAND 255 (LRSH NUMBER 24)))
-    (\BOUT FILE (LOGAND 255 (LRSH NUMBER 16)))
-    (\BOUT FILE (LOGAND 255 (LRSH NUMBER 8)))
-    (\BOUT FILE (LOGAND 255 NUMBER])
-
-(WRITETESTFILE
-  [LAMBDA (NAME LENGTH STARTBYTE PERIOD)                     (* ; "Edited  4-Nov-87 11:21 by jds")
-          
-          (* ;; "writes a test file of length LENGTH with contents CONTENTBYTE")
-
-    (PROG [(STRM (OPENSTREAM NAME 'OUTPUT]
-          (OR STRM (RETURN NIL))
-          (COND
-             ((ILESSP LENGTH MINTESTFILELENGTH)
-              (ERROR "test files must have a minimum length " MINTESTFILELENGTH)))
-          (WORDOUT STRM FIRSTTESTWORD)
-          (WORDOUT STRM SECONDTESTWORD)
-          (DOUBLEWORDOUT STRM LENGTH)
-          (BOUT STRM STARTBYTE)
-          (BOUT STRM PERIOD)
-          [bind (CURRENTBYTE _ STARTBYTE)
-                BLOCKCOUNT _ 0 for COMPUTEDBYTE from STARTBYTE to (IPLUS STARTBYTE LENGTH
-                                                                         (IMINUS MINTESTFILELENGTH)
-                                                                         -1)
-             do (BOUT STRM CURRENTBYTE)
-                (SETQ CURRENTBYTE (IMOD (ADD1 CURRENTBYTE)
-                                        PERIOD))
-                (COND
-                   ((ZEROP (SETQ BLOCKCOUNT (IMOD (ADD1 BLOCKCOUNT)
-                                                  100)))
-                    (BLOCK]
-          (CLOSEF STRM)
-          (RETURN (FULLNAME STRM])
-
-(WRITETESTFILELENGTH
-  [LAMBDA (STRM NEWLENGTH)                               (* ; "Edited  3-Nov-88 10:45 by jds")
-                                                             (* ; 
-                                                      "update the length count stored in the file.")
-    (SETFILEPTR STRM 4)
-    (DOUBLEWORDOUT STRM NEWLENGTH])
-)
-
-(RPAQ DSKFREEPAGESFN (FUNCTION DEFAULT.DSKFREEPAGESFN))
-
-(RPAQ DSKPAGESOVERHEADFN (FUNCTION DEFAULT.DSKPAGESOVERHEADFN))
-
-(RPAQ DSKMINALLOCFN (FUNCTION DEFAULT.DSKMINALLOCFN))
-
-(RPAQQ MINTESTFILELENGTH 10)
-
-(RPAQQ FIRSTTESTWORD 48094)
-
-(RPAQQ SECONDTESTWORD 56187)
-
-(RPAQQ NUMBEROFTESTBYTES 5)
-
-(RPAQQ EXHAUSTIVETESTFLG NIL)
-
-(RPAQQ DEFAULTREPLAYFILE {PHYLUM}<LISPCORE>DLIONFS>REPLAY.LOG)
-
-(RPAQQ DONTCLOSEFILESFLG NIL)
-
-(RPAQQ LEGALFILENAMECHARS
-       (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u
-          v w x y z 0 1 2 3 4 5 6 7 8 9))
-
-(RPAQQ LEGALFIRSTFILENAMECHARS
-       (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u
-          v w x y z))
-
-(RPAQQ MINFILENAMELENGTH 1)
-
-(RPAQQ MAXFILENAMELENGTH 15)
-
-(RPAQQ MINFILEEXTENSIONLENGTH 0)
-
-(RPAQQ MAXFILEEXTENSIONLENGTH 6)
-
-(RPAQQ MAXVERSION 64000)
-
-(RPAQQ TESTFILEPAGELENGTHS
-       (1 2 3 5 7 8 11 13 16 17 19 21 23 24 29 31 34 37 41 43 47 64 55 78 89 128 129 255 256 257 333
-          512 837 1024 1997 2048 3333 4096 5432 8192 11321 16384 19997 32768 43210 65535))
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS FIRSTTESTWORD SECONDTESTWORD MINTESTFILELENGTH NUMBEROFTESTBYTES EXHAUSTIVETESTFLG 
-       DSKFREEPAGESFN DSKPAGESOVERHEADFN TESTFILEPAGELENGTHS)
-)
-(DECLARE%: EVAL@COMPILE
-
-(RECORD TESTFILEINFO (TESTFILEFULLNAME FILELENGTH STARTBYTE PERIOD TESTFILEORIGNAME))
-
-(RECORD TESTFILEOP (
-                        (* ;; "Describes one DSKTEST file operation, for the log and for replay.")
-
-                        TESTOPERATION                        (* ; 
-                            "Operation to be performed.  One of: ADD DELETE CHANGELENGTH DELETEALL")
-                        TESTOPFILENAME                       (* ; 
-                                                           "File name of the file operated on")
-                        TESTOPFILELENGTH                     (* ; "New length for the file")
-                        STARTBYTE                            (* ; "%"Random%" data start < PERIOD")
-                        PERIOD                               (* ; "%"Random%" data period < 256")
-                        ))
-)
-(PUTPROPS DSKTEST COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990))
-(DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2943 12078 (DSKTEST 2953 . 11544) (DELETETESTFILES 11546 . 12076)) (12079 59900 (
-CHECKCONSISTENCY 12089 . 13302) (CHECKLENGTHANDCONTENTS 13304 . 17796) (CHOOSERANDOMFILEOPERATION 
-17798 . 19365) (DEFAULT.DSKFREEPAGESFN 19367 . 20152) (DEFAULT.DSKMINALLOCFN 20154 . 20803) (
-DEFAULT.DSKPAGESOVERHEADFN 20805 . 21709) (DOTESTFILEOP 21711 . 30611) (DSKFREEPAGES 30613 . 30872) (
-DSKMINALLOC 30874 . 31180) (DSKPAGESOVERHEAD 31182 . 31453) (EXTENDTESTFILE 31455 . 32765) (
-FILEINFOFROMFILE 32767 . 33586) (GENERATEADDFILEOP 33588 . 34342) (GENERATECHANGEFILEOP 34344 . 35248)
- (GENERATEDELETEFILEOP 35250 . 35987) (GENERATEEOFPFILEOP 35989 . 36881) (GENERATEPEEKBINFILEOP 36883
- . 37672) (GENERATEDELETEALLFILEOP 37674 . 37866) (RANDOMELT 37868 . 38122) (RANDOMFILELENGTH 38124 . 
-40003) (RANDOMFILENAME 40005 . 41255) (RANDOMSTR 41257 . 41921) (RANDOMTESTFILE 41923 . 42826) (
-SORTBYCAR 42828 . 43181) (TESTFILEP 43183 . 45623) (TESTEOFP 45625 . 48865) (TESTEOFOP 48867 . 49898) 
-(TESTFILEPTR 49900 . 52243) (TESTPEEKBIN 52245 . 56179) (TRUNCATETESTFILE 56181 . 57146) (WORDIN 57148
- . 57425) (WORDOUT 57427 . 57602) (DOUBLEWORDIN 57604 . 57889) (DOUBLEWORDOUT 57891 . 58181) (
-WRITETESTFILE 58183 . 59529) (WRITETESTFILELENGTH 59531 . 59898)))))
-STOP
diff --git a/internal/envos/DSKTEST.TEDIT b/internal/envos/DSKTEST.TEDIT
deleted file mode 100644
index 33b0ae37..00000000
Binary files a/internal/envos/DSKTEST.TEDIT and /dev/null differ
diff --git a/internal/envos/FLOPPYTESTER b/internal/envos/FLOPPYTESTER
deleted file mode 100644
index 6e481381..00000000
--- a/internal/envos/FLOPPYTESTER
+++ /dev/null
@@ -1,105 +0,0 @@
-(FILECREATED "24-Mar-86 15:18:14" {ERIS}<LISPCORE>SOURCES>FLOPPYTESTER.;9 4308   
-
-      changes to:  (FNS STARTTEST STOPTEST KILLTEST)
-		   (VARS FLOPPYTESTERCOMS)
-
-      previous date: "20-Mar-86 21:06:46" {ERIS}<LISPCORE>SOURCES>FLOPPYTESTER.;5)
-
-
-(* Copyright (c) 1985, 1986 by Xerox Corporation. All rights reserved.)
-
-(PRETTYCOMPRINT FLOPPYTESTERCOMS)
-
-(RPAQQ FLOPPYTESTERCOMS ((* * FLOPPYTESTER -- Runs FILEBANGER on FLOPPY. *)
-			   (P (LOAD? (QUOTE {ERINYES}<TEST>TOOLS>FILEBANGER.DCOM)))
-			   (INITVARS (ALLOCATIONSW NIL))
-			   (FNS STARTTEST STOPTEST KILLTEST BLTALLOCS BLTALLOC)))
-(* * FLOPPYTESTER -- Runs FILEBANGER on FLOPPY. *)
-
-(LOAD? (QUOTE {ERINYES}<TEST>TOOLS>FILEBANGER.DCOM))
-
-(RPAQ? ALLOCATIONSW NIL)
-(DEFINEQ
-
-(STARTTEST
-  (LAMBDA (N)                                                (* kbr: "24-Mar-86 15:15")
-    (SETQ STARTTIME (GDATE))
-    (CNDIR (QUOTE {FLOPPY}))
-    (FLOPPY.FORMAT (QUOTE TEST))
-    (DIRECTORY (QUOTE {FLOPPY}*))
-    (BLTALLOCS)
-    (for I from 1 to N do (DOFILEBANGER (PACK* (QUOTE {FLOPPY})
-							   (QUOTE TESTFILE)
-							   I)
-						  (RAND 10 30)))))
-
-(STOPTEST
-  (LAMBDA NIL                                                (* kbr: "24-Mar-86 15:16")
-    (SETQ STOPTIME (GDATE))
-    (for P in FILEBANGERS when (NOT (EQ P (THIS.PROCESS))) do (SUSPEND.PROCESS P))))
-
-(KILLTEST
-  (LAMBDA NIL                                                (* kbr: "22-Mar-86 17:18")
-    (for P in FILEBANGERS do (DEL.PROCESS P))
-    (SETQ FILEBANGERS NIL)))
-
-(BLTALLOCS
-  [LAMBDA NIL                                                (* kbr: "18-Nov-85 12:32")
-                                                             (* Debugging fn. Puts up a window representation of 
-							     allocations on floppy. *)
-    (PROG (PIXELS XLENGTH YLENGTH)
-	    (SETQ PIXELS 5)
-	    (SETQ XLENGTH (ITIMES \FLOPPY.TRACKSPERCYLINDER \FLOPPY.SECTORSPERTRACK))
-	    (SETQ YLENGTH \FLOPPY.CYLINDERS)
-	    [COND
-	      ((NULL ALLOCATIONSW)
-		(SETQ ALLOCATIONSW (CREATEW (GETBOXREGION (WIDTHIFWINDOW (ITIMES PIXELS 
-											  XLENGTH))
-								(HEIGHTIFWINDOW (ITIMES PIXELS 
-											  YLENGTH)
-										  T)
-								NIL NIL NIL 
-							     "Position FLOPPY ALLOCATIONS window")
-						"FLOPPY ALLOCATIONS"))
-		(UNADVISE (QUOTE \PFLOPPY.ALLOCATE))
-		(ADVISE (QUOTE \PFLOPPY.ALLOCATE)
-			  (QUOTE AFTER)
-			  (QUOTE (COND (!VALUE (BLTALLOC !VALUE]
-	    (BITBLT NIL NIL NIL ALLOCATIONSW NIL NIL NIL NIL (QUOTE TEXTURE)
-		      (QUOTE REPLACE)
-		      WHITESHADE)
-	    (for Y from 0 to (SUB1 YLENGTH) do (for X from 0 to (SUB1 XLENGTH)
-							    do (BITMAPBIT ALLOCATIONSW
-									      (ITIMES PIXELS X)
-									      (ITIMES PIXELS Y)
-									      1)))
-	    (for PFALLOC in (fetch (PFLOPPYFDEV PFALLOCS) of \FLOPPYFDEV)
-	       when [NOT (EQUAL (fetch (PFALLOC FILENAME) of PFALLOC)
-				      (QUOTE (FREE]
-	       do (BLTALLOC PFALLOC])
-
-(BLTALLOC
-  [LAMBDA (PFALLOC)                                          (* kbr: "18-Nov-85 12:21")
-    (PROG (SHADE OPSHADE LEFT BOTTOM PIXELS XLENGTH)
-	    (SETQ PIXELS 5)
-	    (SETQ XLENGTH (ITIMES \FLOPPY.TRACKSPERCYLINDER \FLOPPY.SECTORSPERTRACK))
-	    (SETQ SHADE (COND
-		((EQUAL (fetch (PFALLOC FILENAME) of PFALLOC)
-			  (QUOTE (FREE)))
-		  WHITESHADE)
-		(T BLACKSHADE)))
-	    (SETQ OPSHADE (IDIFFERENCE BLACKSHADE SHADE))
-	    (for I from (fetch (PFALLOC START) of PFALLOC) to (fetch (PFALLOC END)
-									   of PFALLOC)
-	       do (SETQ LEFT (ITIMES PIXELS (IREMAINDER (SUB1 I)
-								XLENGTH)))
-		    (SETQ BOTTOM (ITIMES PIXELS (IQUOTIENT (SUB1 I)
-								 XLENGTH)))
-		    (BLTSHADE SHADE ALLOCATIONSW LEFT BOTTOM PIXELS PIXELS (QUOTE REPLACE))
-		    (BLTSHADE OPSHADE ALLOCATIONSW LEFT BOTTOM 1 1 (QUOTE REPLACE])
-)
-(PUTPROPS FLOPPYTESTER COPYRIGHT ("Xerox Corporation" 1985 1986))
-(DECLARE: DONTCOPY
-  (FILEMAP (NIL (745 4220 (STARTTEST 755 . 1203) (STOPTEST 1205 . 1463) (KILLTEST 1465 . 1665) (
-BLTALLOCS 1667 . 3253) (BLTALLOC 3255 . 4218)))))
-STOP
diff --git a/internal/envos/RS232TEST b/internal/envos/RS232TEST
deleted file mode 100644
index 52a236df..00000000
--- a/internal/envos/RS232TEST
+++ /dev/null
@@ -1,242 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
-(FILECREATED "26-Jun-90 19:15:35" |{DSK}<usr>local>lde>lispcore>internal>library>RS232TEST.;2| 9419   
-
-      |changes| |to:|  (VARS RS232TESTCOMS)
-
-      |previous| |date:| "20-Feb-87 00:10:14" 
-|{DSK}<usr>local>lde>lispcore>internal>library>RS232TEST.;1|)
-
-
-; Copyright (c) 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.
-
-(PRETTYCOMPRINT RS232TESTCOMS)
-
-(RPAQQ RS232TESTCOMS
-       ((FNS RSTEST TESTCLEANUP XMITTEST)
-        
-        (* |;;| 
-      "Exhaustive test for RS-232 for 5- 6- 7- and 8-bit chars, with parity NONE, EVEN, and ODD")
-
-        (FNS RS232.TEST RS232.MICROTEST RS232.QUICKTEST RS232.MENU RS232TMENU.SELFN)
-        (VARS RS232.TEST.MENU.ITEMS)
-        
-        (* |;;| 
-   "Exhaustive test for the TTY port for 5- 6- 7- and 8-bit chars, with parity NONE, EVEN, and ODD")
-
-        (FNS TTY.TEST TTY.MICROTEST TTY.QUICKTEST TTY.MENU TTYTMENU.SELFN)))
-(DEFINEQ
-
-(rstest
-  (lambda nil                                                (* \; "Edited 14-Jan-87 16:00 by jds")
-    (let (oo)
-         (resetlst (resetsave (setq oo (openstream '{rs232} 'output))
-                          'closef?)
-                (|for| i |from| 1 |do| (printout oo "Line " i 
-                                              ":  1 2 3 4 5 6 7 8 9 0 9 8 7 6 5 4 3 2 1.
-\
-")
-                                       (printout t "Line " i t))))))
-
-(testcleanup
-  (lambda nil                                                (* \; "Edited 16-Jan-87 09:51 by jds")
-          
-          (* |;;| "Close the streams used by the rs232 test.")
-
-    (and (boundp 'out)
-         out
-         (closef? out))
-    (and (boundp in)
-         in
-         (closef? in))))
-
-(XMITTEST
-  (LAMBDA (BAUDRATE XONXOFF?)                                (* \; "Edited 19-Feb-87 20:59 by jds")
-          
-          (* |;;| "Set up the rs232 port at BAUDRATE with XOn-XOff flow control if XONXOFF? is T.  Then print forever, lines of text.  Show an indication on the screen for each line, so the user can tell if flow control has shut things off.")
-
-    (RS232C.INIT BAUDRATE 8 'NONE 1 (COND
-                                       (XONXOFF? 'XONXOFF)
-                                       (T 'NONE)))
-    (SETQ OUT (OPENSTREAM '{RS232} 'OUTPUT))
-    (SETQ IN (OPENSTREAM '{RS232} 'INPUT))
-    (ERSETQ (FOR I FROM 1 DO (PRINTOUT OUT "Line " I ":  0 1 2 3 4 5 6 7 8 9 0 9 8 7 6 5 4 3 2 1.
-\
-")
-                             (|printout| T "Line " I T)))
-    (CLOSEF? OUT)
-    (CLOSEF? IN)))
-)
-
-
-
-(* |;;| "Exhaustive test for RS-232 for 5- 6- 7- and 8-bit chars, with parity NONE, EVEN, and ODD")
-
-(DEFINEQ
-
-(rs232.test
-  (lambda nil                                                (* \; "Edited 19-Feb-87 22:43 by jds")
-          
-          (* |;;| "Run quickly thru all the possible combinations of RS-232 bit lengths and parities and stop bits for testing sake.")
-
-    (printout t t t "Starting RS-232 port test." t 
-           "Make sure the line monitor is attached to the RS-232 port, " 
-           "and its cable goes to the DCE socket on the monitor." t)
-    (mouseconfirm)
-    (printout t "Set the line monitor for: " t)
-    (|for| bits |in| '(5 6 7 8) |do| (|for| parity |in| '(none odd even)
-                                        |do| (|for| stopbits |in| '(1 1.5 2)
-                                                |do| (rs232.microtest 9600 bits parity stopbits))))))
-
-(rs232.microtest
-  (lambda (speed bits parity stopbits)                       (* \; "Edited 19-Feb-87 22:37 by jds")
-          
-          (* |;;| "Transmit a short test pattern to the RS232 port at SPEED baud, using BITS-bit characters, with PARITY and STOPBITS.")
-
-    (printout t bits "bits, " (cond
-                                 ((eq parity 'none)
-                                  "NO")
-                                 (t parity))
-           " parity, " stopbits " stop bits..." t)
-    (mouseconfirm)
-    (rs232.quicktest speed bits parity stopbits)))
-
-(rs232.quicktest
-  (lambda (speed bits parity stopbits)                       (* \; "Edited 19-Feb-87 22:38 by jds")
-          
-          (* |;;| "Transmit a short test pattern to the RS232 port at SPEED baud, using BITS-bit characters, with PARITY and STOPBITS.")
-
-    (rs232c.init speed bits parity stopbits 'none)
-    (let ((out (openstream '{rs232} 'output)))
-         (prin1 (concat "0123 ABC abc " (packc '(1 2 3 255)))
-                out)
-         (closef out))))
-
-(rs232.menu
-  (lambda nil                                                (* \; "Edited 19-Feb-87 22:45 by jds")
-    (let ((ww (addmenu (|create| menu
-                              menucolumns _ 4
-                              items _ rs232.test.menu.items
-                              whenselectedfn _ (function rs232tmenu.selfn)))))
-         (windowprop ww 'title "RS-232 Tests"))))
-
-(rs232tmenu.selfn
-  (lambda (item menu key)                                    (* \; "Edited 19-Feb-87 22:57 by jds")
-          
-          (* |;;| "Called from the RS-232 test menu")
-
-    (let* ((info (cadr item))
-           (bits (car info))
-           (parity (cadr info))
-           (stopbits (caddr info)))
-          (rs232.quicktest 9600 bits parity stopbits))))
-)
-
-(RPAQQ RS232.TEST.MENU.ITEMS
-       ((|5/N/1| (5 NONE 1))
-        (|6/N/1| (6 NONE 1))
-        (|7/N/1| (7 NONE 1))
-        (|8/N/1| (8 NONE 1))
-        (|5/N/1.5| (5 NONE 1.5))
-        (|6/N/1.5| (6 NONE 1.5))
-        (|7/N/1.5| (7 NONE 1.5))
-        (|8/N/1.5| (8 NONE 1.5))
-        (|5/N/2| (5 NONE 2))
-        (|6/N/2| (6 NONE 2))
-        (|7/N/2| (7 NONE 2))
-        (|8/N/2| (8 NONE 2))
-        (|5/O/1| (5 ODD 1))
-        (|6/O/1| (6 ODD 1))
-        (|7/O/1| (7 ODD 1))
-        (|8/O/1| (8 ODD 1))
-        (|5/O/1.5| (5 ODD 1.5))
-        (|6/O/1.5| (6 ODD 1.5))
-        (|7/O/1.5| (7 ODD 1.5))
-        (|8/O/1.5| (8 ODD 1.5))
-        (|5/O/2| (5 ODD 2))
-        (|6/O/2| (6 ODD 2))
-        (|7/O/2| (7 ODD 2))
-        (|8/O/2| (8 ODD 2))
-        (|5/E/1| (5 EVEN 1))
-        (|6/E/1| (6 EVEN 1))
-        (|7/E/1| (7 EVEN 1))
-        (|8/E/1| (8 EVEN 1))
-        (|5/E/1.5| (5 EVEN 1.5))
-        (|6/E/1.5| (6 EVEN 1.5))
-        (|7/E/1.5| (7 EVEN 1.5))
-        (|8/E/1.5| (8 EVEN 1.5))
-        (|5/E/2| (5 EVEN 2))
-        (|6/E/2| (6 EVEN 2))
-        (|7/E/2| (7 EVEN 2))
-        (|8/E/2| (8 EVEN 2))))
-
-
-
-(* |;;| 
-"Exhaustive test for the TTY port for 5- 6- 7- and 8-bit chars, with parity NONE, EVEN, and ODD")
-
-(DEFINEQ
-
-(tty.test
-  (lambda nil                                                (* \; "Edited 19-Feb-87 22:42 by jds")
-          
-          (* |;;| "Run quickly thru all the possible combinations of RS-232 bit lengths and parities and stop bits for testing sake.")
-
-    (printout t t t "Starting TTY port test." t 
-           "Make sure the line monitor is attached to the TTY port, " 
-           "and its cable goes to the DTE socket on the monitor." t)
-    (mouseconfirm)
-    (printout t "Set the line monitor for: " t)
-    (|for| bits |in| '(5 6 7 8) |do| (|for| parity |in| '(none odd even)
-                                        |do| (|for| stopbits |in| '(1 1.5 2)
-                                                |do| (tty.microtest 9600 bits parity stopbits))))))
-
-(tty.microtest
-  (lambda (speed bits parity stopbits)                       (* \; "Edited 19-Feb-87 22:41 by jds")
-          
-          (* |;;| "Transmit a short test pattern to the RS232 port at SPEED baud, using BITS-bit characters, with PARITY and STOPBITS.")
-
-    (printout t bits "bits, " (cond
-                                 ((eq parity 'none)
-                                  "NO")
-                                 (t parity))
-           " parity, " stopbits " stop bits..." t)
-    (mouseconfirm)
-    (tty.init speed bits parity stopbits)))
-
-(tty.quicktest
-  (lambda (speed bits parity stopbits)                       (* \; "Edited 19-Feb-87 22:40 by jds")
-          
-          (* |;;| "Transmit a short test pattern to the RS232 port at SPEED baud, using BITS-bit characters, with PARITY and STOPBITS.")
-
-    (tty.init speed bits parity stopbits 'none)
-    (let ((out (openstream '{tty} 'output)))
-         (prin1 (concat "0123 ABC abc " (packc '(1 2 3 255)))
-                out)
-         (closef out))))
-
-(tty.menu
-  (lambda nil                                                (* \; "Edited 19-Feb-87 22:57 by jds")
-    (let ((ww (addmenu (|create| menu
-                              menucolumns _ 4
-                              items _ rs232.test.menu.items
-                              whenselectedfn _ (function ttytmenu.selfn)))))
-         (windowprop ww 'title "TTY Tests"))))
-
-(ttytmenu.selfn
-  (lambda (item menu key)                                    (* \; "Edited 19-Feb-87 22:59 by jds")
-          
-          (* |;;| "Called from the RS-232 test menu")
-
-    (let* ((info (cadr item))
-           (bits (car info))
-           (parity (cadr info))
-           (stopbits (caddr info)))
-          (tty.quicktest 9600 bits parity stopbits))))
-)
-(PUTPROPS RS232TEST COPYRIGHT ("Venue & Xerox Corporation" 1987 1990))
-(DECLARE\: DONTCOPY
-  (FILEMAP (NIL (979 2623 (RSTEST 989 . 1466) (TESTCLEANUP 1468 . 1789) (XMITTEST 1791 . 2621)) (2732 
-5433 (RS232.TEST 2742 . 3570) (RS232.MICROTEST 3572 . 4151) (RS232.QUICKTEST 4153 . 4640) (RS232.MENU 
-4642 . 5042) (RS232TMENU.SELFN 5044 . 5431)) (6665 9325 (TTY.TEST 6675 . 7493) (TTY.MICROTEST 7495 . 
-8061) (TTY.QUICKTEST 8063 . 8543) (TTY.MENU 8545 . 8938) (TTYTMENU.SELFN 8940 . 9323)))))
-STOP
diff --git a/internal/test/filepos/BIG.XCCS b/internal/test/filepos/BIG.XCCS
deleted file mode 100644
index 6c8dcb27..00000000
--- a/internal/test/filepos/BIG.XCCS
+++ /dev/null
@@ -1 +0,0 @@
-aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa012345X1245
\ No newline at end of file
diff --git a/internal/test/filepos/BIGGREEK.UTF8 b/internal/test/filepos/BIGGREEK.UTF8
deleted file mode 100644
index b1365330..00000000
--- a/internal/test/filepos/BIGGREEK.UTF8
+++ /dev/null
@@ -1 +0,0 @@
-aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaδσγδφβcδδb
\ No newline at end of file
diff --git a/internal/test/filepos/BIGGREEK.XCCS b/internal/test/filepos/BIGGREEK.XCCS
deleted file mode 100644
index 316de294..00000000
--- a/internal/test/filepos/BIGGREEK.XCCS
+++ /dev/null
@@ -1 +0,0 @@
-aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa�&evdezb�c�&ee�b
\ No newline at end of file
diff --git a/internal/test/filepos/FIVE b/internal/test/filepos/FIVE
deleted file mode 100644
index bd41cba7..00000000
--- a/internal/test/filepos/FIVE
+++ /dev/null
@@ -1 +0,0 @@
-12345
\ No newline at end of file
diff --git a/internal/test/filepos/FPTESTS b/internal/test/filepos/FPTESTS
deleted file mode 100644
index d1ce3afd..00000000
Binary files a/internal/test/filepos/FPTESTS and /dev/null differ
diff --git a/internal/test/filepos/GREEK.UTF8 b/internal/test/filepos/GREEK.UTF8
deleted file mode 100644
index dbd8f910..00000000
--- a/internal/test/filepos/GREEK.UTF8
+++ /dev/null
@@ -1 +0,0 @@
-aδσγδφβc
\ No newline at end of file
diff --git a/internal/test/filepos/GREEK.XCCS b/internal/test/filepos/GREEK.XCCS
deleted file mode 100644
index 9ff71d29..00000000
Binary files a/internal/test/filepos/GREEK.XCCS and /dev/null differ
diff --git a/internal/test/filepos/README b/internal/test/filepos/README
deleted file mode 100644
index cd9bd182..00000000
Binary files a/internal/test/filepos/README and /dev/null differ
diff --git a/internal/test/filepos/SHORT.XCCS b/internal/test/filepos/SHORT.XCCS
deleted file mode 100644
index 488e6300..00000000
--- a/internal/test/filepos/SHORT.XCCS
+++ /dev/null
@@ -1 +0,0 @@
-012345X1245
\ No newline at end of file
diff --git a/internal/test/filepos/TFP b/internal/test/filepos/TFP
deleted file mode 100644
index 5a8ea6f9..00000000
--- a/internal/test/filepos/TFP
+++ /dev/null
@@ -1,495 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
-(FILECREATED " 3-Jul-2022 14:07:11" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>internal>test>filepos>TFP.;31 27425  
-
-      :CHANGES-TO (FNS TFP TFP1)
-
-      :PREVIOUS-DATE " 3-Jul-2022 13:32:16" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>internal>test>filepos>TFP.;27)
-
-
-(PRETTYCOMPRINT TFPCOMS)
-
-(RPAQQ TFPCOMS
-       ((FNS TFP TFP1 FPC FPCS)
-        (FNS OLDFILEPOS OLDFFILEPOS)
-        (FILES FPTESTS)
-        (ADDVARS (DIRECTORIES {WMEDLEY}<internal>test>filepos>))
-        
-        (* ;; "Compiling also requires EXPORTS.ALL")
-
-        (DECLARE%: DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
-                                                  IOCHAR))))
-(DEFINEQ
-
-(TFP
-  [LAMBDA (TESTNAMES TAGS FN)                                (* ; "Edited  3-Jul-2022 14:06 by rmk")
-    (CL:UNLESS TESTNAMES (SETQ TESTNAMES ALLTESTS))
-    (LET [(TESTS (FOR TN INSIDE TESTNAMES FIRST (PRINTOUT T "Testing")
-                    JOIN (PRINTOUT T " " TN)
-                         (CONS (MKSTRING TN)
-                               (COPY (EVALV TN))) FINALLY (TERPRI T]
-         (CL:WHEN TAGS
-             (SETQ TESTS (FOR TEST IN TESTS WHEN (THEREIS TAG INSIDE TAGS
-                                                    SUCHTHAT (MEMB TAG TEST)) COLLECT TEST)))
-         (PRINTOUT T (LENGTH TESTS)
-                " tests" T)
-         (FOR TEST VAL COMMENT PRINTED IN TESTS EACHTIME (CL:WHEN (STRINGP TEST)
-                                                             (SETQ COMMENT TEST)
-                                                             (SETQ PRINTED NIL))
-            WHEN [AND (LISTP TEST)
-                      (NOT (AND FN (CADDR TEST] UNLESS (EQUAL (CAR TEST)
-                                                              (SETQ VAL (TFP1 (CADR TEST)
-                                                                              FN)))
-            COLLECT (CL:WHEN COMMENT
-                        (CL:UNLESS PRINTED (PRINTOUT T COMMENT T)))
-                  (PRINTOUT T 5 VAL " <- " .P2 TEST T)
-                  (CONS VAL TEST])
-
-(TFP1
-  [LAMBDA (FPARGS FN)                                        (* ; "Edited  3-Jul-2022 14:04 by rmk")
-
-    (* ;; "FN is the search function to apply: NIL = FILEPOS, OLDFILEPOS, FFILEPOS. OLDFFILEPOS")
-
-    (* ;; "For convenience: NIL -> FILEPOS, OF -> OLDFILEPOS, FF -> FFILEPOS, OFF -> OLDFFILEPOS.")
-
-    (* ;; "OLDFILEPOS and OLDFFILEPOS do only a byte searches.")
-
-    (* ;; 
- "FPARGS is a list of  FILEPOS args. CASEARRAY=T means Transparent case array, pushes to FFILEPOS.  ")
-
-    (* ;; "The file extension gives the format, defaulting to *DEFAULT-EXTERNALFORMAT* = :XCCS")
-
-    (SETQ FN (SELECTQ FN
-                 ((NIL FILEPOS) 
-                      'FILEPOS)
-                 ((FF FFILEPOS) 
-                      'FFILEPOS)
-                 ((OF OLDFILEPOS) 
-                      'OLDFILEPOS)
-                 ((OFF OLDFFILEPOS) 
-                      'OLDFFILEPOS)
-                 (HELP "BAD FN" FN)))
-    (CL:WHEN (OR (FIXP (CAR FPARGS))
-                 (NULL (CAR FPARGS))
-                 (AND (LISTP (CAR FPARGS))
-                      (FIXP (CAAR FPARGS))
-                      (FIXP (CDAR FPARGS)))
-                 (LISTP (CADR FPARGS)))
-        (SETQ FPARGS (CADR FPARGS)))
-    (LET (STREAM VAL PATTERN FILE START END SKIP TAIL CASEARRAY EXT (FORMAT *DEFAULT-EXTERNALFORMAT*)
-                )
-         (SETQ PATTERN (EVAL (POP FPARGS)))                  (* ; 
-                                                            "So we can do substrings, CHARACTER etc.")
-         (SETQ FILE (POP FPARGS))
-         (SETQ START (POP FPARGS))
-         (SETQ END (POP FPARGS))
-         (SETQ SKIP (POP FPARGS))
-         (SETQ TAIL (POP FPARGS))
-         (SETQ CASEARRAY (POP FPARGS))
-         (SETQ EXT (FILENAMEFIELD.STRING FILE 'EXTENSION))
-         (CL:WHEN EXT
-             (CL:WHEN (STRPOS "UTF8" EXT)
-                    (SETQ EXT "UTF-8"))
-             [SETQ FORMAT (FIND-FORMAT (CL:INTERN EXT 'KEYWORD])
-         [SETQ STREAM (OPENSTREAM (OR (FINDFILE FILE T)
-                                      FILE)
-                             'INPUT NIL `((FORMAT ,FORMAT]
-         (SETQ CASEARRAY (IF (EQ CASEARRAY T)
-                             THEN (CASEARRAY)
-                           ELSE (EVAL CASEARRAY)))
-         (SETQ VAL (APPLY* FN PATTERN STREAM START END SKIP TAIL CASEARRAY))
-         (CLOSEF? STREAM)
-         VAL])
-
-(FPC
-  [LAMBDA (STR FILE START END SKIP TAIL CASEARRAY)           (* ; "Edited 29-Jun-2022 21:22 by rmk")
-
-    (* ;; "Compare old and new filepos")
-
-    (LET (OLD NEW EXT FORMAT)
-         (CL:UNLESS (STREAMP FILE)
-             (SETQ EXT (FILENAMEFIELD.STRING FILE 'EXTENSION))
-             (SETQ FORMAT (CL:INTERN EXT 'KEYWORD))
-             (CL:UNLESS (FIND-FORMAT FORMAT T)
-                    (SETQ FORMAT :XCCS))
-             (STREAMPROP FILE 'FORMAT FORMAT))
-         (SETQ OLD (OLDFILEPOS STR FILE START END SKIP TAIL CASEARRAY))
-         (SETQ NEW (FILEPOS STR FILE START END SKIP TAIL CASEARRAY))
-         (CLOSEF FILE)
-         (CL:UNLESS (EQUAL OLD (IF (EQ TAIL 'BOTH)
-                                   THEN (CDR NEW)
-                                 ELSE NEW))
-             (HELP (CONCAT "OLD=" (OR OLD "NIL")
-                          "  NEW="
-                          (OR NEW "NIL"))))
-         (LIST OLD NEW])
-
-(FPCS
-  [LAMBDA (STR FILE START END SKIP TAIL)                     (* ; "Edited 29-Jun-2022 23:56 by rmk")
-                                                             (* ; "Edited 28-Jun-2022 22:21 by rmk")
-
-    (* ;; "Compare old and new slow filepos")
-
-    (LET (FAST SLOW EXT FORMAT)
-         (CL:UNLESS (STREAMP FILE)
-             (SETQ EXT (FILENAMEFIELD.STRING FILE 'EXTENSION))
-             (SETQ FORMAT (CL:INTERN EXT 'KEYWORD))
-             (CL:UNLESS (FIND-FORMAT FORMAT T)
-                    (SETQ FORMAT :XCCS))
-             (STREAMPROP FILE 'FORMAT FORMAT))
-         (SETQ FAST (FILEPOS STR FILE START END SKIP TAIL))
-         (SETQ SLOW (FILEPOS STR FILE START END SKIP TAIL (CASEARRAY)))
-         (CLOSEF FILE)
-         (CL:UNLESS (EQUAL FAST SLOW)
-             (HELP (CONCAT "FAST=" (OR FAST "NIL")
-                          "  SLOW="
-                          (OR SLOW "NIL"))))
-         (LIST FAST SLOW])
-)
-(DEFINEQ
-
-(OLDFILEPOS
-  [LAMBDA (STR FILE START END SKIP TAIL CASEARRAY)           (* ; "Edited 27-Jun-2022 23:35 by rmk")
-                                                            (* ; "Edited 10-Aug-2020 21:44 by rmk:")
-                                                             (* Pavel "12-Oct-86 15:13")
-
-    (* ;; "RMK:  Added coercion from internal XCCS string to UTF8 if searching a UTF8 file")
-
-    (* ;; "NB: this function now works on non-PAGEMAPPED files.  It must use only IO functions that respect that.")
-
-    (PROG ((SKIPCHAR (AND SKIP (CHCON1 SKIP)))
-           [CA (fetch (ARRAYP BASE) of (COND
-                                          [CASEARRAY (COND
-                                                        ((AND (ARRAYP CASEARRAY)
-                                                              (EQ (fetch (ARRAYP TYP) of CASEARRAY)
-                                                                  \ST.BYTE))
-                                                         CASEARRAY)
-                                                        (T (CASEARRAY CASEARRAY]
-                                          (T \TRANSPARENT]
-           (STREAM (\GETSTREAM FILE 'INPUT))
-           CHAR FIRSTCHAR STRBASE STRINDEX PATLEN PATINDEX ORGFILEPTR LASTINDEX STARTBYTE ENDBYTE 
-           BIGENDBYTE STARTSEG ENDSEG)
-          (CL:WHEN (EQ :UTF-8 (\EXTERNALFORMAT STREAM))
-              (SETQ STR (XTOUSTRING STR)))
-          [COND
-             ((LITATOM STR)
-              (SETQ STRBASE (fetch (LITATOM PNAMEBASE) of STR))
-              (SETQ STRINDEX 1)
-              (SETQ PATLEN (fetch (LITATOM PNAMELENGTH) of STR)))
-             (T (OR (STRINGP STR)
-                    (SETQ STR (MKSTRING STR)))
-                (SETQ STRBASE (fetch (STRINGP BASE) of STR))
-                (SETQ STRINDEX (fetch (STRINGP OFFST) of STR))
-                (SETQ PATLEN (fetch (STRINGP LENGTH) of STR] (* ; 
-                                                             "calculate start addr and set file ptr.")
-          [SETQ STARTBYTE (COND
-                             (START (COND
-                                       ((NOT (AND (FIXP START)
-                                                  (IGEQ START 0)))
-                                        (LISPERROR "ILLEGAL ARG" START)))
-                                    (SETQ ORGFILEPTR (\GETFILEPTR STREAM))
-                                    (\SETFILEPTR STREAM START)
-                                    START)
-                             (T (SETQ ORGFILEPTR (\GETFILEPTR STREAM]
-                                                             (* ; 
-                    "calculate the character address of the character after the last possible match.")
-          [SETQ ENDBYTE (ADD1 (COND
-                                 ((NULL END)                 (* ; "Default is end of file")
-                                  (IDIFFERENCE (\GETEOFPTR STREAM)
-                                         PATLEN))
-                                 ((IGEQ END 0)               (* ; "Absolute byte pointer given")
-                                  (IMIN END (IDIFFERENCE (\GETEOFPTR STREAM)
-                                                   PATLEN)))
-                                 ((IGREATERP PATLEN (IMINUS END))
-                                                             (* ; 
-                                                             "END is too far, use eof less length")
-                                  (IDIFFERENCE (\GETEOFPTR STREAM)
-                                         PATLEN))
-                                 (T (IDIFFERENCE (IPLUS (\GETEOFPTR STREAM)
-                                                        END 1)
-                                           PATLEN]
-
-     (* ;; "use STARTBYTE and ENDBYTE instead of START and END because vm functions shouldn't change their arguments.")
-
-          (COND
-             ((IGEQ STARTBYTE ENDBYTE)                       (* ; "nothing to search")
-              (GO FAILED)))
-          (SETQ LASTINDEX PATLEN)
-      SKIPLP
-                                                             (* ; 
-                                      "set the first character to FIRSTCHAR, handling leading skips.")
-          (COND
-             ((EQ LASTINDEX 0)                               (* ; "null case")
-              (GO FOUNDIT))
-             ((EQ (SETQ FIRSTCHAR (\GETBASEBYTE CA (\GETBASEBYTE STRBASE STRINDEX)))
-                  SKIPCHAR)                                  (* ; 
-                                                             "first character in pattern is skip.")
-              (SETQ LASTINDEX (SUB1 LASTINDEX))
-              (\BIN STREAM)                                  (* ; "Move forward a character.")
-              (add STRINDEX 1)
-              (add STARTBYTE 1)
-              (GO SKIPLP)))
-          (SETQ LASTINDEX (IPLUS LASTINDEX STRINDEX))        (* ; 
-                                     "Used for end of pattern check, comparing against current INDEX")
-          [COND
-             ((SMALLP ENDBYTE)
-              (SETQ STARTSEG (SETQ ENDSEG 0)))
-             (T 
-                (* ;; "The search will be in the large integers at least part of the time, so split the start and end fileptrs into hi and lo parts.  The `segment' size we choose is smaller than 2^16 so that we are still smallp near the boundary (can get around that here by decrementing everyone, but can't in FFILEPOS).  Note that STARTBYTE and ENDBYTE are never actually used as file ptrs, just for counting.")
-
-                (SETQ ENDSEG (FOLDLO ENDBYTE FILEPOS.SEGMENT.SIZE))
-                (SETQ BIGENDBYTE (IMOD ENDBYTE FILEPOS.SEGMENT.SIZE))
-                (SETQ STARTSEG (FOLDLO STARTBYTE FILEPOS.SEGMENT.SIZE))
-                (SETQ STARTBYTE (IMOD STARTBYTE FILEPOS.SEGMENT.SIZE))
-                (SETQ ENDBYTE (COND
-                                 ((EQ STARTSEG ENDSEG)
-                                  BIGENDBYTE)
-                                 (T 
-
-                                   (* ;; "In different segments, so we'll have to search all the way to the end of this seg;  hence, `end' is currently as big as it gets")
-
-                                    FILEPOS.SEGMENT.SIZE]
-      FIRSTCHARLP
-          
-
-     (* ;; "STARTBYTE is the possible beginning of a match.  the file ptr of the file is always at STARTBYTE position when the FIRSTCHAR loop is passed.")
-
-          (COND
-             ((EQ STARTBYTE ENDBYTE)                         (* ; "end of this part of search")
-              (COND
-                 ((EQ STARTSEG ENDSEG)                       (* ; "failed")
-                  (GO FAILED)))                              (* ; 
-                                                      "Finished this segment, roll over into new one")
-              (SETQ STARTBYTE 0)                             (* ; "= STARTBYTE-FILEPOS.SEGMENT.SIZE")
-              [COND
-                 ((EQ (add STARTSEG 1)
-                      ENDSEG)                                (* ; 
-                        "Entering final segment, so set ENDBYTE to actual end instead of segment end")
-                  (COND
-                     ((EQ (SETQ ENDBYTE BIGENDBYTE)
-                          0)
-                      (GO FAILED]
-              (GO FIRSTCHARLP))
-             ((NEQ FIRSTCHAR (\GETBASEBYTE CA (\BIN STREAM)))
-              (add STARTBYTE 1)
-              (GO FIRSTCHARLP)))
-          (SETQ PATINDEX STRINDEX)
-      MATCHLP
-                                                             (* ; 
-                                                 "At this point, STR is matched thru offset PATINDEX")
-          (COND
-             ((EQ (SETQ PATINDEX (ADD1 PATINDEX))
-                  LASTINDEX)                                 (* ; "matched for entire length")
-              (GO FOUNDIT))
-             ((OR (EQ (SETQ CHAR (\GETBASEBYTE CA (\GETBASEBYTE STRBASE PATINDEX)))
-                      (\GETBASEBYTE CA (\BIN STREAM)))
-                  (EQ CHAR SKIPCHAR))                        (* ; 
-                                                             "Char from file matches char from STR")
-              (GO MATCHLP))
-             (T                                              (* ; 
-                                            "Match failed, so we have to start again with first char")
-                (\SETFILEPTR STREAM (IDIFFERENCE (\GETFILEPTR STREAM)
-                                           (IDIFFERENCE PATINDEX STRINDEX)))
-
-                (* ;; "Back up over the chars we have just read in trying to match, less one.  I.e.  go back to one past the previous starting point")
-
-                (add STARTBYTE 1)
-                (GO FIRSTCHARLP)))
-      FOUNDIT
-                                                             (* ; 
-                                   "set fileptr, adjust for beginning skips and return proper value.")
-          [COND
-             ((NOT TAIL)                                     (* ; 
-                                                             "Fileptr wants to be at start of string")
-              (\SETFILEPTR STREAM (IDIFFERENCE (\GETFILEPTR STREAM)
-                                         PATLEN]
-          (RETURN (\GETFILEPTR STREAM))
-      FAILED
-                                                             (* ; 
-                                                        "return the fileptr to its initial position.")
-          (\SETFILEPTR STREAM ORGFILEPTR)
-          (RETURN NIL])
-
-(OLDFFILEPOS
-  [LAMBDA (PATTERN FILE START END SKIP TAIL CASEARRAY)      (* ; "Edited 10-Aug-2020 21:44 by rmk:")
-
-    (* ;; "RMK:  Added coercion from internal XCCS string to UTF8 if searching a UTF8 file")
-                                                             (* Pavel "12-Oct-86 15:20")
-    (PROG ([STREAM (\GETSTREAM (OR FILE (INPUT]
-           PATBASE PATOFFSET PATLEN ORGFILEPTR STARTOFFSET ENDOFFSET BIGENDOFFSET STARTSEG ENDSEG EOF
-           )
-          (COND
-             (SKIP                                           (* ; "Slow case--use FILEPOS")
-                   (GO TRYFILEPOS))
-             ((NOT (fetch PAGEMAPPED of (fetch (STREAM DEVICE) of STREAM)))
-                                                             (* ; 
-                                            "This is a non-page-oriented file.  Use FILEPOS instead.")
-              (GO TRYFILEPOS)))                              (* ; 
-                                                             "calculate start addr and set file ptr.")
-          (CL:WHEN (EQ :UTF8 (\EXTERNALFORMAT STREAM))
-              (SETQ PATTERN (XTOUSTRING PATTERN)))
-          [COND
-             ((LITATOM PATTERN)
-              (SETQ PATBASE (fetch (LITATOM PNAMEBASE) of PATTERN))
-              (SETQ PATOFFSET 1)
-              (SETQ PATLEN (fetch (LITATOM PNAMELENGTH) of PATTERN)))
-             (T (OR (STRINGP PATTERN)
-                    (SETQ PATTERN (MKSTRING PATTERN)))
-                (SETQ PATBASE (fetch (STRINGP BASE) of PATTERN))
-                (SETQ PATOFFSET (fetch (STRINGP OFFST) of PATTERN))
-                (SETQ PATLEN (fetch (STRINGP LENGTH) of PATTERN]
-          (COND
-             ((OR (IGREATERP PATLEN \MAX.PATTERN.SIZE)
-                  (ILESSP PATLEN \MIN.PATTERN.SIZE))
-              (GO TRYFILEPOS)))
-          (SETQ ORGFILEPTR (\GETFILEPTR STREAM))
-          (SETQ STARTOFFSET (IPLUS (COND
-                                      (START (COND
-                                                ((NOT (AND (FIXP START)
-                                                           (IGEQ START 0)))
-                                                 (LISPERROR "ILLEGAL ARG" START)))
-                                             START)
-                                      (T ORGFILEPTR))
-                                   (SUB1 PATLEN)))           (* ; 
-        "STARTOFFSET is the address of the character corresponding to the last character of PATTERN.")
-          (SETQ EOF (\GETEOFPTR STREAM))                     (* ; 
-                    "calculate the character address of the character after the last possible match.")
-          [SETQ ENDOFFSET (COND
-                             ((NULL END)                     (* ; "Default is end of file")
-                              EOF)
-                             (T (IMIN (IPLUS (COND
-                                                ((ILESSP END 0)
-                                                 (IPLUS EOF END 1))
-                                                (T END))
-                                             PATLEN)
-                                      EOF]
-
-     (* ;; "use STARTOFFSET and ENDOFFSET instead of START and END because vm functions shouldn't change their arguments.")
-
-          (COND
-             ((IGEQ STARTOFFSET ENDOFFSET)                   (* ; "nothing to search")
-              (RETURN))
-             ((ILESSP (IDIFFERENCE ENDOFFSET STARTOFFSET)
-                     \MIN.SEARCH.LENGTH)                     (* ; 
-                                                             "too small to make FFILEPOS worthwhile")
-              (GO TRYFILEPOS)))
-          (\SETFILEPTR STREAM STARTOFFSET)
-          [RETURN (GLOBALRESOURCE
-                   (\FFDELTA1 \FFDELTA2 \FFPATCHAR)
-                   (PROG ((CASE (fetch (ARRAYP BASE)
-                                   of (COND
-                                         [CASEARRAY (COND
-                                                       ((AND (ARRAYP CASEARRAY)
-                                                             (EQ (fetch (ARRAYP TYP) of CASEARRAY)
-                                                                 \ST.BYTE))
-                                                        CASEARRAY)
-                                                       (T (CASEARRAY CASEARRAY]
-                                         (T \TRANSPARENT))))
-                          (DELTA1 (fetch (ARRAYP BASE) of \FFDELTA1))
-                          (DELTA2 (fetch (ARRAYP BASE) of \FFDELTA2))
-                          (PATCHAR (fetch (ARRAYP BASE) of \FFPATCHAR))
-                          (MAXPATINDEX (SUB1 PATLEN))
-                          CHAR CURPATINDEX LASTCHAR INC)
-
-                    (* ;; "Use Boyer-Moore string search algorithm.  Use two auxiliary tables, DELTA1 and DELTA2, to tell how far ahead to move in the file when a partial match fails.  DELTA1 contains, for each character code, the distance of that character from the right end of the pattern, or PATLEN if the character does not occur in the pattern.  DELTA2 contains, for each character position in the pattern, how far ahead to move such that the partial substring discovered to the right of the position now matches some other substring (to the left) in the pattern.  PATCHAR is just PATTERN translated thru CASEARRAY")
-
-                         (\SETUP.FFILEPOS PATBASE PATOFFSET PATLEN PATCHAR DELTA1 DELTA2 CASE)
-                         [COND
-                            ((SMALLP ENDOFFSET)
-                             (SETQ STARTSEG (SETQ ENDSEG 0)))
-                            (T 
-                               (* ;; "The search will be in the large integers at least part of the time, so split the start and end fileptrs into hi and lo parts.  The `segment' size we choose is smaller than 2^16 so that we are still smallp near the boundary.  Note that STARTOFFSET and ENDOFFSET are never actually used as file ptrs, just for counting.")
-
-                               (SETQ ENDSEG (FOLDLO ENDOFFSET FILEPOS.SEGMENT.SIZE))
-                               (SETQ BIGENDOFFSET (MOD ENDOFFSET FILEPOS.SEGMENT.SIZE))
-                               (SETQ STARTSEG (FOLDLO STARTOFFSET FILEPOS.SEGMENT.SIZE))
-                               (SETQ STARTOFFSET (MOD STARTOFFSET FILEPOS.SEGMENT.SIZE))
-                               (SETQ ENDOFFSET (COND
-                                                  ((EQ STARTSEG ENDSEG)
-                                                   BIGENDOFFSET)
-                                                  (T 
-
-                                   (* ;; "In different segments, so we'll have to search all the way to the end of this seg;  hence, `end' is currently as big as it gets")
-
-                                                     FILEPOS.SEGMENT.SIZE]
-                         (SETQ LASTCHAR (GETBASEBYTE PATCHAR MAXPATINDEX))
-                     FIRSTCHARLP
-                         (COND
-                            [(IGEQ STARTOFFSET ENDOFFSET)    (* ; "End of this chunk")
-                             (COND
-                                ((EQ STARTSEG ENDSEG)        (* ; "failed")
-                                 (GO FAILED))
-                                (T                           (* ; 
-                                                      "Finished this segment, roll over into new one")
-                                   (add STARTSEG 1)
-                                   (SETQ STARTOFFSET (IDIFFERENCE STARTOFFSET FILEPOS.SEGMENT.SIZE))
-                                   (COND
-                                      ((EQ STARTSEG ENDSEG)
-                                       (SETQ ENDOFFSET BIGENDOFFSET)))
-                                   (GO FIRSTCHARLP]
-                            ((NEQ (SETQ CHAR (GETBASEBYTE CASE (\BIN STREAM)))
-                                  LASTCHAR)
-                             (add STARTOFFSET (SETQ INC (GETBASEBYTE DELTA1 CHAR)))
-                             (OR (EQ INC 1)
-                                 (\INCFILEPTR STREAM (SUB1 INC)))
-                                                             (* ; 
-                                    "advance file pointer accordingly (\BIN already advanced it one)")
-                             (GO FIRSTCHARLP)))
-                         (SETQ CURPATINDEX (SUB1 MAXPATINDEX))
-                     MATCHLP
-                         (COND
-                            ((ILESSP CURPATINDEX 0)
-                             (GO FOUNDIT)))
-                         (\DECFILEPTR STREAM 2)              (* ; "back up to read previous char")
-                         (COND
-                            ((NEQ (SETQ CHAR (GETBASEBYTE CASE (\BIN STREAM)))
-                                  (GETBASEBYTE PATCHAR CURPATINDEX))
-                                                             (* ; 
-                                                  "Mismatch, advance by greater of delta1 and delta2")
-                             (add STARTOFFSET (IDIFFERENCE (SETQ INC (IMAX (GETBASEBYTE DELTA1 CHAR)
-                                                                           (GETBASEBYTE DELTA2 
-                                                                                  CURPATINDEX)))
-                                                     (IDIFFERENCE MAXPATINDEX CURPATINDEX)))
-                             (OR (EQ INC 1)
-                                 (\INCFILEPTR STREAM (SUB1 INC)))
-                             (GO FIRSTCHARLP)))
-                         (SETQ CURPATINDEX (SUB1 CURPATINDEX))
-                         (GO MATCHLP)
-                     FOUNDIT
-                                                             (* ; 
-                                   "set fileptr, adjust for beginning skips and return proper value.")
-                         (\INCFILEPTR STREAM (COND
-                                                (TAIL        (* ; "Put fileptr at end of string")
-                                                      (SUB1 PATLEN))
-                                                (T           (* ; 
-                            "back up over the last char we looked at, i.e.  the first char of string")
-                                                   -1)))
-                         (RETURN (\GETFILEPTR STREAM))
-                     FAILED
-                                                             (* ; 
-                                                        "return the fileptr to its initial position.")
-                         (\SETFILEPTR STREAM ORGFILEPTR)
-                         (RETURN NIL]
-      TRYFILEPOS
-          (RETURN (FILEPOS PATTERN STREAM START END SKIP TAIL CASEARRAY])
-)
-
-(FILESLOAD FPTESTS)
-
-(ADDTOVAR DIRECTORIES {WMEDLEY}<internal>test>filepos>)
-
-
-
-(* ;; "Compiling also requires EXPORTS.ALL")
-
-(DECLARE%: DOEVAL@COMPILE DONTCOPY 
-
-(FILESLOAD (LOADCOMP)
-       IOCHAR)
-)
-(DECLARE%: DONTCOPY
-  (FILEMAP (NIL (759 6571 (TFP 769 . 2219) (TFP1 2221 . 4656) (FPC 4658 . 5619) (FPCS 5621 . 6569)) (
-6572 27191 (OLDFILEPOS 6582 . 16284) (OLDFFILEPOS 16286 . 27189)))))
-STOP
diff --git a/internal/test/filepos/TFP.LCOM b/internal/test/filepos/TFP.LCOM
deleted file mode 100644
index aabd3f1d..00000000
Binary files a/internal/test/filepos/TFP.LCOM and /dev/null differ
diff --git a/internal/test/filepos/ZEROONETWO.XCCS b/internal/test/filepos/ZEROONETWO.XCCS
deleted file mode 100644
index 108d4a6e..00000000
--- a/internal/test/filepos/ZEROONETWO.XCCS
+++ /dev/null
@@ -1 +0,0 @@
-012
\ No newline at end of file
diff --git a/internal/test/printing/BADFILES.TEST b/internal/test/printing/BADFILES.TEST
deleted file mode 100644
index a7067a53..00000000
--- a/internal/test/printing/BADFILES.TEST
+++ /dev/null
@@ -1 +0,0 @@
-(HCFILES "{DSK}<home>larry>ilisp>envos>" "{DSK}<home>larry>medley>tmp>psfiles>")
diff --git a/internal/test/printing/BADFILES.TXT b/internal/test/printing/BADFILES.TXT
deleted file mode 100644
index da197495..00000000
--- a/internal/test/printing/BADFILES.TXT
+++ /dev/null
@@ -1,66 +0,0 @@
-{DSK}<home>larry>ilisp>envos>xd0e>DOC>PUBS>admin>doc-dirs>ERIS-DOC-WO-LOOPS.TEDIT;2
-{DSK}<home>larry>ilisp>envos>xd0e>DOC>medley1.2>RS6000>keybaord-layout.tedit;3
-{DSK}<home>larry>ilisp>envos>xd0e>DOC>medley2.0>final>ug>APP-D-DIFFERENCES.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>DOC>printers>recommendation.tedit;3
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>DOC>1982BUGS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>DOC>BRIEFINGBLURB-DRAFT.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>DOC>CHAT-GENERIC.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>DOC>HELLO.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>DOC>IDDESCRIPTION.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>DOC>LISPARFIELDS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>DOC>NSCHARACTERS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>DOC>SOURCEFILES.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>library>COLOROBJ.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>internal>library>DSKTEST.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>notecards>library>BOONE-V-COE.TED;1
-{DSK}<home>larry>ilisp>envos>xd0e>LISPCORE>notecards>library>NCPLOTCARD.TED;1
-{DSK}<home>larry>ilisp>envos>xd0e>MISC>test>GC>HAND-AUX>ADVDICT-N-Z.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>MISC>test>Library>TEdit>Hand-Aux>AR10063.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>MISC>test>i>o>Hardcopy>Hand>testfiles>04PARA.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>OTHER>lafite>Doc>LAFITEDELTA.TED;1
-{DSK}<home>larry>ilisp>envos>xd0e>OTHER>lafite>Doc>LAFITEIMPL.TED;1
-{DSK}<home>larry>ilisp>envos>xd0e>OTHER>lafite>Doc>Manual>LAFITEMANUAL-INDEXINTERNAL.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>RELEASE>lispusers>2.0>src>EQUATIONEXAMPLES.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>RELEASE>notecards>1.2>doc>03-SOFTWARE-INSTALLATION.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>RELEASE>notecards>1.2>doc>05-NOTECARDS-BASICS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>RELEASE>notecards>1.2>doc>11-SYSTEM-CARDS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd0e>RELEASE>notecards>2.0>src>library>BOONE-V-COE.TED;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>nilsson>intercalc>inter-calc>INTERCALCDEMO.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>nilsson>intercalc>inter-calc>INTERCALCDOCUMENTATION.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>JELLINEK>graphics>DDLCOLORHAX.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>JELLINEK>graphics>LUCASFILMFORMAT.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>basics>INVOICE.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>genis>FLYER-COV-CHOICE.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>genis>FLYER-COV.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>inter-calc>INTERCALCDEMO.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>inter-calc>INTERCALCDOCUMENTATION.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>sd>ADVERTS>Cherry-RidgeWFH.TEdit;5
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>sd>Callerlab>Adv-Committee>Defns>ADVDEFNS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>sd>Callerlab>Board>CALLERLAB-BYLAWCHANGE.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>sd>Callerlab>Challenge-Committee>C1-NEW-DEFNS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>sd>Callerlab>Challenge-Committee>C1DEFNS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>sd>Callerlab>Challenge-Committee>C2DEFNS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>sd>NUMBERART.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>ADVDICT-A-M.TEDIT;13
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>ADVDICT-N-Z.TEDIT;9
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>C1DEFNS-I-R.TEDIT;9
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>C1DEFNS-S.TEDIT;7
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>C1DEFNS-T-Z.TEDIT;9
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>C2DEFNS-A-E.TEDIT;11
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>C2DEFNS-F-O.TEDIT;5
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>C2DEFNS-P-S.TEDIT;6
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>C2DEFNS-T-Z.TEDIT;6
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>DICT-PREFACE.TEDIT;14
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>Dictionaries>leftover-calls.tedit;3
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>top10-87>FRA>ARRANGEMENTS.TEDIT;28
-{DSK}<home>larry>ilisp>envos>xd1d>users>sybalsky>venue>ads>aaai>top-rapid-dev.TEdit;4
-{DSK}<home>larry>ilisp>envos>xd1d>users>turpin>IRM-3>old>24-STREAMS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>turpin>IRM-3>old>25-IO.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>turpin>IRM-3>old>27-GRAPHICS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>turpin>IRM-3>old>28-WINDOWS.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>turpin>IRM-3>old>29-HARDCOPY.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>turpin>IRM-3>old>30-ETHERNET.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>turpin>IRM-3>old>30-TERMINAL.TEDIT;1
-{DSK}<home>larry>ilisp>envos>xd1d>users>turpin>IRM-3>old>31-ETHERNET.TEDIT;1
-{DSK}<home>larry>medley>lispusers>ACE>ACE-MAINTAINERS-NOTES.TEDIT;1
-{DSK}<home>larry>medley>lispusers>EQUATIONEXAMPLES.TEDIT;1
diff --git a/internal/test/unpackfilename/TESTUPF b/internal/test/unpackfilename/TESTUPF
deleted file mode 100644
index 691c3380..00000000
--- a/internal/test/unpackfilename/TESTUPF
+++ /dev/null
@@ -1,546 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
-(FILECREATED "23-May-2022 12:30:29" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>TESTUPF.;1 32843  )
-
-
-(PRETTYCOMPRINT TESTUPFCOMS)
-
-(RPAQQ TESTUPFCOMS
-       ((COMS                                                (* ; "Original code")
-              (FNS OLD-UNPACKFILENAME.STRING \UPF.NEXTPOS \UPF.TEMPFILEP)
-              (DECLARE%: DONTCOPY (MACROS CANONICAL.DIRECTORY UNPACKFILE1.DIRECTORY UNPACKFILE1)))
-        
-        (* ;; "Debugging")
-
-        
-        (* ;; "DOTTEDNAMES:  mismatch intended")
-
-        
-        (* ;; "RETURNFAILS:  mismatch with DIRFLG=RETURN, DIRECTORY and SUBDIRECTORY are swapped.  But original doesn't agree with its own complete analaysis.")
-
-        (VARS DOTTEDNAMES TESTS RETURNFAILS)
-        (FNS TRY TRYALL DT)))
-
-
-
-(* ; "Original code")
-
-(DEFINEQ
-
-(OLD-UNPACKFILENAME.STRING
-  [LAMBDA (FILE ONEFIELDFLG DIRFLG OSTYPE PACKFLG CLFLG)     (* ; "Edited 25-Jan-2022 17:16 by rmk")
-                                                             (* ; "Edited  5-Jan-2022 11:03 by rmk")
-                                                             (* ; "Edited 30-Mar-90 22:37 by nm")
-
-(* ;;; "Given a string or atom representation of a file name, unpack it into its component parts")
-
-(* ;;; "rmk: devices must come before directories.")
-
-    (PROG ((POS 1)
-           (LEN (NCHARS FILE))
-           TEM BEYONDNAME BEYONDEXT VAL CODE HOSTP SUBDIREND FIRSTDOT SECONDDOT USEDSEMI)
-          (COND
-             ((NULL FILE)
-              (RETURN NIL))
-             ((OR (LITATOM FILE)
-                  (STRINGP FILE)
-                  (NUMBERP FILE)))
-             ((TYPEP FILE 'PATHNAME)
-              (RETURN (UNPACKPATHNAME.STRING FILE ONEFIELDFLG DIRFLG PACKFLG)))
-             [(STREAMP FILE)                                 (* ; 
-                                                 "For streams, use full name.  If anonymous, fake it")
-              (SETQ FILE (OR (ffetch FULLFILENAME of FILE)
-                             (RETURN (COND
-                                        (ONEFIELDFLG (AND (EQ ONEFIELDFLG 'NAME)
-                                                          FILE))
-                                        (T (LIST 'NAME FILE]
-             (T (\ILLEGAL.ARG FILE)))
-          (COND
-             ((SELCHARQ (NTHCHARCODE FILE 1)
-                   ({                                        (* ; "normal use in Interlisp-D")
-                      (SETQ TEM (SUB1 (OR (\UPF.NEXTPOS (CHARCODE })
-                                                 FILE 2)
-                                          0))))
-                   (%[                                       (* ; 
-                                                    "some Xerox and Arpanet systems use '[' for host")
-                       (SETQ TEM (SUB1 (OR (\UPF.NEXTPOS (CHARCODE "]")
-                                                  FILE 2)
-                                           0))))
-                   (%(                                       (* ; 
-                                                  "this is the 'proposed standard' for Xerox servers")
-                       (SETQ TEM (SUB1 (OR (\UPF.NEXTPOS (CHARCODE ")")
-                                                  FILE 2)
-                                           0))))
-                   NIL)
-              (UNPACKFILE1 'HOST 2 TEM)
-              [COND
-                 ((EQ TEM -1)                                (* ; 
-      "Started with the host field delimiter, but there was no corresponding terminating delimiter .")
-                                                             (* ; 
-                                             "I'm not sure why the name is dealt with the host name.")
-                  (RETURN (DREVERSE VAL]
-              (SETQ POS (IPLUS TEM 2))
-              [if (EQ OSTYPE T)
-                  then                                       (* ; 
-                                                             "Use actual host to determine os type")
-                       (SETQ OSTYPE (GETHOSTINFO (CAR VAL)
-                                           'OSTYPE]
-              (SETQ HOSTP T)))
-
-     (* ;; "rmk:  if there is a colon before the next < or /, then we must be looking at a device.  A device appears to end after the last colon, i.e., a device name can have a colon inside it.")
-
-          (COND
-             ((AND (SETQ TEM (\UPF.NEXTPOS (CHARCODE (%: < /))
-                                    FILE POS))
-                   (EQ (CHARCODE %:)
-                       (NTHCHARCODE FILE TEM)))              (* ; 
-                                   "all device returned have DEVICE.END on it so that NIL: will work")
-              (UNPACKFILE1 'DEVICE POS (if CLFLG
-                                           then (SUB1 TEM)
-                                         else TEM))
-              (SETQ POS (ADD1 TEM))
-              (SETQ HOSTP T)))
-          (COND
-             ((EQ DIRFLG 'RETURN)                            (* ; "assert that this is a directory; more forgiving about missing trailing delimiter. There are two distinct cases for the missing initial delimiter.  If HOST is also specified, it is dealt with as the true %"relative pathname%" by device dependent manner, otherwise it is dealt with following the %"incomplete file names%" convention.  In the first case, returns RELATIVEDIRECTORY instead of DIRECTORY and in the second case, returns SUBDIRECTORY.")
-              (LET ((TYPE 'DIRECTORY)
-                    (START (SELCHARQ (NTHCHARCODE FILE POS)
-                                (NIL                         (* ; "just host, return")
-                                     (RETURN (DREVERSE VAL)))
-                                ((/ <)                       (* ; 
-                                                      "Started with the initial directory delimiter.")
-                                     (ADD1 POS))
-                                POS))
-                    END)
-                   (SETQ END (SELCHARQ (NTHCHARCODE FILE -1)
-                                  ((/ >) 
-                                       [COND
-                                          ((EQ START POS)    (* ; 
-                                                           "Didn't start with a directory delimiter,")
-                                           (COND
-                                              ((NOT HOSTP)   (* ; "%"Incomplete file names%" case defined in IRM.  This is a subdirectory of the current connected directory")
-                                               (SETQ TYPE 'SUBDIRECTORY))
-                                              (T             (* ; "True %"relative pathname%".  The way to deal with it is dependent on the device on which HOST is implemented.")
-                                                 (SETQ TYPE 'RELATIVEDIRECTORY]
-                                       (COND
-                                          ((EQ LEN POS)      (* ; 
-                                         "Only the initial directory is specified (i.e. %"{DSK}/%").")
-                                           (SETQ START POS)
-                                           -1)
-                                          (T -2)))
-                                  (PROGN [COND
-                                            [(EQ START POS)  (* ; 
-                                              "Both of the initial and trail delimiters are omitted.")
-                                             (COND
-                                                ((NOT HOSTP) (* ; "%"Incomplete file names%" case defined in IRM.  This is a subdirectory of the current connected directory")
-                                                 (SETQ TYPE 'SUBDIRECTORY))
-                                                (T           (* ; "True %"relative pathname%".  The way to deal with it is dependent on the device on which HOST is implemented.")
-                                                   (SETQ TYPE 'RELATIVEDIRECTORY]
-                                            (T (COND
-                                                  ((EQ LEN POS)
-                                                             (* ; 
-                                         "Only the initial directory is specified (i.e. %"{DSK}<%").")
-                                                   (SETQ START POS]
-                                         -1)))
-                   (UNPACKFILE1.DIRECTORY TYPE START END))
-              (RETURN (DREVERSE VAL)))
-             ((SELCHARQ (NTHCHARCODE FILE POS)
-                   (/                                        (* ; 
-                                                  "unix and the 'xerox standard' use / for delimiter")
-                                                             (* ; 
-                         "In the case of the {DSK}/FOO>BAR, FOO should be dealt with as a directory.")
-                      (SETQ TEM (LASTCHPOS (CHARCODE (/ >))
-                                       FILE
-                                       (ADD1 POS)))
-                      T)
-                   ((< >)                                    (* ; 
-               "Interlisp-D and most other Xerox systems, and Tops-20/Tenex use <>.  Jericho uses >>")
-                                                             (* ; 
-                         "In the case of the {DSK}<FOO/BAR, FOO should be dealt with as a directory.")
-                        (SETQ TEM (LASTCHPOS (CHARCODE (> /))
-                                         FILE
-                                         (ADD1 POS)))
-                        T)
-                   NIL)
-
-              (* ;; "allow {DSK}/etc   to be a directory specification.")
-
-              (if TEM
-                  then (UNPACKFILE1.DIRECTORY 'DIRECTORY (ADD1 POS)
-                              (SUB1 TEM))
-                       (SETQ POS (ADD1 TEM))
-                else 
-                     (* ;; "{DSK}/foo: the directory is /, the name is foo")
-
-                     (UNPACKFILE1.DIRECTORY 'DIRECTORY POS POS)
-                     (SETQ POS (ADD1 POS)))
-              (SETQ HOSTP T))
-             ((SETQ TEM (LASTCHPOS (CHARCODE (/ >))
-                               FILE POS))                    (* ; " {eris}abc>  relative")
-
-              (* ;; 
-          " This is the true %"relative pathname%".  Returns RELATIVEDIRECTORY instead of DIRECTORY.")
-
-              [COND
-                 ((NOT HOSTP)                                (* ; "%"Incomplete file names%" case.")
-                  (UNPACKFILE1.DIRECTORY (if (EQ DIRFLG 'FIELD)
-                                             then 'DIRECTORY
-                                           else 'SUBDIRECTORY)
-                         POS
-                         (SUB1 TEM)))
-                 (T                                          (* ; "True %"relative pathname%".")
-                    (UNPACKFILE1.DIRECTORY (if (EQ DIRFLG 'FIELD)
-                                               then 'DIRECTORY
-                                             else 'RELATIVEDIRECTORY)
-                           POS
-                           (SUB1 TEM]
-              (SETQ POS (ADD1 TEM))
-              (SETQ HOSTP T)))
-          (OR (SETQ CODE (NTHCHARCODE FILE (SETQ TEM POS)))
-              (RETURN (DREVERSE VAL)))
-          (if (EQ OSTYPE T)
-              then                                           (* ; 
-                                          "There wasn't a host field in the name, so we have no clue")
-                   (SETQ OSTYPE NIL))
-      NAMELP
-          
-
-     (* ;; "At this point, CODE is the TEM'th char of file name.  POS is the first character of the field we are currently working on.")
-
-          (SELCHARQ CODE
-               (%.                                           (* ; 
-                            "Note position for later--we only want to deal with the last set of dots")
-                   (if BEYONDNAME
-                       then                                  (* ; 
-                                                   "no longer of interest (probably a bad name, too)")
-                     elseif FIRSTDOT
-                       then                                  (* ; "We're recording the second dot")
-                            (if SECONDDOT
-                                then                         (* ; 
-                                                             "Note only the two most recent dots")
-                                     (SETQ FIRSTDOT SECONDDOT))
-                            (SETQ SECONDDOT TEM)
-                     else (SETQ FIRSTDOT TEM)))
-               ((! ; NIL)                                    (* ; 
-                               "SUBDIRECTORY, NAME and EXTENSION fields definitely terminated by now")
-                    (if (SELCHARQ CODE
-                             (!                              (* ; 
-                 "! is only a delimiter on IFS, so ignore it if we know the ostype is something else")
-                                (AND OSTYPE (NEQ OSTYPE 'IFS)))
-                             (;                              (* ; "If we've already parsed the extension, then we have a semi in the middle of the version.  Skip it unless it's ;T or ;S")
-                                [AND BEYONDEXT (NOT (\UPF.TEMPFILEP FILE (ADD1 TEM])
-                             NIL)
-                        then (GO NEXTCHAR))
-                    (if FIRSTDOT
-                        then                                 (* ; 
-                                                          "Have a name and/or extension to parse now")
-                        (if
-                         [AND SECONDDOT
-                              (NOT (if OSTYPE
-                                       then                  (* ; 
-                                        "Known OS type must be Tops20 for second dot to mean version")
-                                            (EQ OSTYPE 'TOPS20)
-                                     else                    (* ; 
-                                  "Unknown OS type, so check that %"version%" is numeric or wildcard")
-                                          (AND [for I from (ADD1 SECONDDOT) to (SUB1 TEM)
-                                                  bind CH
-                                                  always (OR (DIGITCHARP (SETQ CH (NTHCHARCODE FILE I
-                                                                                         )))
-                                                             (EQ CH (CHARCODE *]
-                                               (SELCHARQ CODE
-                                                    (NIL     (* ; "end of file name, ok")
-                                                         T)
-                                                    (;       (* ; 
-                                                "This semi-colon better not be introducing a version")
-                                                       (\UPF.TEMPFILEP FILE (ADD1 TEM)))
-                                                    NIL]
-                            then                             (* ; 
-                                                             "Second dot is not intoducing a version")
-                                 (SETQ FIRSTDOT SECONDDOT)
-                                 (SETQ SECONDDOT NIL))
-                        (UNPACKFILE1 'NAME POS (SUB1 FIRSTDOT))
-                        (SETQ POS (ADD1 (if SECONDDOT
-                                            then (UNPACKFILE1 'EXTENSION (ADD1 FIRSTDOT)
-                                                        (SUB1 SECONDDOT))
-                                                 (SETQ BEYONDEXT T)
-                                                 SECONDDOT
-                                          else FIRSTDOT)))
-                        (SETQ BEYONDNAME T)
-                        (SETQ FIRSTDOT NIL))
-                    (UNPACKFILE1 (COND
-                                    ((NOT BEYONDNAME)
-                                     (SETQQ BEYONDNAME NAME))
-                                    ((NOT BEYONDEXT)
-                                     'EXTENSION)
-                                    ((AND (EQ BEYONDEXT (CHARCODE ";"))
-                                          (\UPF.TEMPFILEP FILE POS)))
-                                    (T                       (* ; 
-                                                             "Everything after the semi was version")
-                                       'VERSION))
-                           POS
-                           (SUB1 TEM))
-                    (if (NULL CODE)
-                        then                                 (* ; "End of string")
-                             (RETURN (DREVERSE VAL)))
-                    (SETQ BEYONDEXT CODE)                    (* ; 
-                                                    "Note the character that terminated the name/ext")
-                    (SETQ POS (ADD1 TEM)))
-               (%'                                           (* ; "Quoter")
-                   (add TEM 1))
-               NIL)
-      NEXTCHAR
-          (SETQ CODE (NTHCHARCODE FILE (add TEM 1)))
-          (GO NAMELP])
-
-(\UPF.NEXTPOS
-  [LAMBDA (CHAR STRING POS)                                  (* lmm " 5-Oct-84 18:41")
-    (bind NCH while (SETQ NCH (NTHCHARCODE STRING POS)) do (COND
-                                                              ((EQMEMB NCH CHAR)
-                                                               (RETURN POS))
-                                                              ((EQ NCH (CHARCODE %'))
-                                                               (add POS 1)))
-                                                           (add POS 1])
-
-(\UPF.TEMPFILEP
-  [LAMBDA (FILENAME START)                                   (* ; "Edited  6-Jan-88 13:12 by bvm:")
-
-    (* ;; "Checks whether START denotes a temporary mark for Twenex filename beginning at START.  Returns the appropriate field name if so.  Not sure we should parse this junk any more, but this at least localizes it.")
-
-    (SELCHARQ (NTHCHARCODE FILENAME START)
-         ((T S)                                              (* ; "Funny temp stuff")
-              (AND (EQ START (NCHARS FILENAME))
-                   'TEMPORARY))
-         NIL])
-)
-(DECLARE%: DONTCOPY 
-(DECLARE%: EVAL@COMPILE 
-
-(PUTPROPS CANONICAL.DIRECTORY MACRO
-          [OPENLAMBDA (SRCSTRING)
-            (AND
-             SRCSTRING
-             (LET
-              ((LEN (NCHARS SRCSTRING)))
-              (COND
-                 ((EQ LEN 1)
-                  (if (STREQUAL SRCSTRING "/")
-                      then "<"
-                    else SRCSTRING))
-                 (T
-                  (LET*
-                   ((FATP (ffetch (STRINGP FATSTRINGP) of SRCSTRING))
-                    (DSTSTRING (ALLOCSTRING LEN NIL NIL (AND FATP T)))
-                    (DSTBASE (ffetch (STRINGP BASE) of DSTSTRING))
-                    (DSTPOS 0)
-                    (NEXTPOS -1))
-                   (if (NOT FATP)
-                       then [for SRCPOS from 1 to LEN bind CODE
-                               first (while (EQMEMB (NTHCHARCODE SRCSTRING SRCPOS)
-                                                   (CHARCODE (< / >))) do (add SRCPOS 1))
-                                     (if (> SRCPOS LEN)
-                                         then (RETURN "<"))
-                               do (SELCHARQ (SETQ CODE (NTHCHARCODE SRCSTRING SRCPOS))
-                                       ((> /) 
-                                            (if (> DSTPOS NEXTPOS)
-                                                then (\PUTBASETHIN DSTBASE DSTPOS (CHARCODE >))
-                                                     (SETQ NEXTPOS (add DSTPOS 1))))
-                                       (%' (\PUTBASETHIN DSTBASE DSTPOS CODE)
-                                           (add DSTPOS 1)
-                                           (if (NEQ SRCPOS LEN)
-                                               then (\PUTBASETHIN DSTBASE DSTPOS
-                                                           (NTHCHARCODE SRCSTRING (add SRCPOS 1)))
-                                                    (add DSTPOS 1)))
-                                       (PROGN (\PUTBASETHIN DSTBASE DSTPOS CODE)
-                                              (add DSTPOS 1)))
-                               finally (RETURN (if (EQ DSTPOS LEN)
-                                                   then (if (EQMEMB (NTHCHARCODE DSTSTRING -1)
-                                                                   (CHARCODE (> /)))
-                                                            then (SUBSTRING DSTSTRING 1 -2)
-                                                          else DSTSTRING)
-                                                 elseif (EQMEMB (NTHCHARCODE DSTSTRING DSTPOS)
-                                                               (CHARCODE (> /)))
-                                                   then (SUBSTRING DSTSTRING 1 (SUB1 DSTPOS))
-                                                 else (SUBSTRING DSTSTRING 1 DSTPOS]
-                     else (for SRCPOS from 1 to LEN bind CODE
-                             first (while (EQMEMB (NTHCHARCODE SRCSTRING SRCPOS)
-                                                 (CHARCODE (< / >))) do (add SRCPOS 1))
-                             do (SELCHARQ (SETQ CODE (NTHCHARCODE SRCSTRING SRCPOS))
-                                     ((> /) 
-                                          (if (> DSTPOS NEXTPOS)
-                                              then (\PUTBASEFAT DSTBASE DSTPOS (CHARCODE >))
-                                                   (SETQ NEXTPOS (add DSTPOS 1))))
-                                     (%' (\PUTBASEFAT DSTBASE DSTPOS CODE)
-                                         (add DSTPOS 1)
-                                         (if (NEQ SRCPOS LEN)
-                                             then (\PUTBASEFAT DSTBASE DSTPOS (NTHCHARCODE
-                                                                               SRCSTRING
-                                                                               (add SRCPOS 1)))
-                                                  (add DSTPOS 1)))
-                                     (PROGN (\PUTBASEFAT DSTBASE DSTPOS CODE)
-                                            (add DSTPOS 1)))
-                             finally (RETURN (if (EQ DSTPOS LEN)
-                                                 then (if (EQMEMB (NTHCHARCODE DSTSTRING -1)
-                                                                 (CHARCODE (> /)))
-                                                          then (SUBSTRING DSTSTRING 1 -2)
-                                                        else DSTSTRING)
-                                               elseif (EQMEMB (NTHCHARCODE DSTSTRING DSTPOS)
-                                                             (CHARCODE (> /)))
-                                                 then (SUBSTRING DSTSTRING 1 (SUB1 DSTPOS))
-                                               else (SUBSTRING DSTSTRING 1 DSTPOS])
-
-(PUTPROPS UNPACKFILE1.DIRECTORY MACRO [OPENLAMBDA (NAM ST END)
-                                        (LET* ((OLDDIR (SUBSTRING FILE ST END))
-                                               (NEWDIR (CANONICAL.DIRECTORY OLDDIR)))
-                                              (COND
-                                                 [(NOT ONEFIELDFLG)
-                                                  (SETQ VAL (CONS (COND
-                                                                     (PACKFLG (AND NEWDIR
-                                                                                   (MKATOM NEWDIR)))
-                                                                     (T (OR NEWDIR "")))
-                                                                  (CONS NAM VAL]
-                                                 ((EQMEMB NAM ONEFIELDFLG)
-                                                  (RETURN (COND
-                                                             (PACKFLG (AND NEWDIR (MKATOM NEWDIR)))
-                                                             (T (OR NEWDIR ""])
-
-(PUTPROPS UNPACKFILE1 MACRO [OPENLAMBDA (NAM ST END)         (* lmm "22-APR-81 22:21")
-                              (COND
-                                 [(NOT ONEFIELDFLG)
-                                  (SETQ VAL (CONS (COND
-                                                     (PACKFLG (SUBATOM FILE ST END))
-                                                     (T (OR (SUBSTRING FILE ST END)
-                                                            "")))
-                                                  (CONS NAM VAL]
-                                 ((EQMEMB NAM ONEFIELDFLG)
-                                  (RETURN (COND
-                                             (PACKFLG (SUBATOM FILE ST END))
-                                             (T (OR (SUBSTRING FILE ST END)
-                                                    ""])
-)
-)
-
-
-
-(* ;; "Debugging")
-
-
-
-
-(* ;; "DOTTEDNAMES:  mismatch intended")
-
-
-
-
-(* ;; 
-"RETURNFAILS:  mismatch with DIRFLG=RETURN, DIRECTORY and SUBDIRECTORY are swapped.  But original doesn't agree with its own complete analaysis."
-)
-
-
-(RPAQQ DOTTEDNAMES (".x" ">.git" "x.y.100"))
-
-(RPAQQ TESTS
-       ("*,;" "*.*;*" "*.;" "*.;*" "///abc/x" "/abc.x" "<" "<<<abc" "<<<abc>" "<<<abc>>" "<<<abc>x" 
-              "<<abc" "<<xyz>>>zz" "<<xyz>>>zzz/" "<<xyz>>zz" "<<xyz>zz" "<ABC>" "<XYZ>aa" "<a.b>" 
-              "<a;b>" "<ab;c" "<ab>" "<abc" "<abc*." "<abc.x" "<abc.x;1" "<abc;x" "<abc<<<x" 
-              "<abc<xyz<foo" "<abc<xyz>qrs" "<abc>" "<abc>;1" "<abc>xyz" "<abc>xyz>foo" "<xxx" 
-              "<xy>>zz" "<xyz>>>zzz/" ">" ">>>abc/x" ">abc" ">abc;1" ">abc>" ">abc>xyz>foo" ">xxx" 
-              "A.B.C" "XXX<yyy" "a;b" "a;b/d" "a;b;c" "a;b;c;d" "aa" "aa;" "aa;NEWEST" "aa;newest" 
-              "aaa" "aaa/bbb" "aaa/bbb/" "aaa/xyz;x;m" "aaa<bbb" "aaa<bbb/" "aaa<xyz>" "aaa>bbb>" 
-              "aaa>xyz.e;m;n" "aaa>xyz>qrs" "abc" "abc...c" "abc///XYZ//" "abc/d" "abc/xyz" 
-              "abc/xyz.qrs" "abc/xyz.qrs;2" "abc:x<qrs>z" "abc<<<XYZ//" "abc<x" "abc<xyz" 
-              "abc<xyz>qq" "abc<xyzqq" "abc>;1" "abc>qr.x" "abc>xy" "abc>xyz" "abc>xyz;2" 
-              "dev:aaa>xyz>qrs" "foo:" "foo:aaa<xyz" "foo:aaa<xyz>" "foo:x<qrs>z" "foo<a:B>" "s;n;b"
-              "x.y.z;w" "x.y;z" "x;y" "x<abc<xyz>qrs" "x<abc<z" "x<abc>z" "xxx<yyy" "xxx<yyy>" 
-              "xxx<yyy>zzz" "xxx>yyy" "xxx>yyy>" "{ABC}" "{ABC}XXX:" "{DSK}" "{DSK}*.;*" "{DSK}...<a"
-              "{DSK}<a" "{DSK}xxx<a" "{DSK}xxx<xxx>yyy" "{DSK}xxx>xxx" "{DSK}xxx>yyy" 
-              "{HOST}foo:x<qrs>z" "{HOST}x<qrs>z" "{abc}" "{dsk}foo:aaa>b>.c.e.g;f" 
-              "{dsk}foo:aaa>b>.c.e;f" "{dsk}foo:aaa>b>c.e;f" "{eris}abc>" "{host}abc/xyz;2" 
-              "{host}abc>xyz;2" "{x}abc<xyz>qq" "{x}abc<xyzqq" "<abc<xyz>abc" "<abc<xyz>qrs" 
-              "<abc<xyz>"))
-
-(RPAQQ RETURNFAILS (">" ">>>abc/x" ">abc" ">abc;1" ">abc>" ">abc>xyz>foo" ">xxx" ">" ">>>abc/x" 
-                        ">abc" ">abc;1" ">abc>" ">abc>xyz>foo" ">xxx"))
-(DEFINEQ
-
-(TRY
-  [LAMBDA (FILE ONEFIELDFLG DIRFLG)                          (* ; "Edited 23-May-2022 12:09 by rmk")
-                                                             (* ; "Edited 25-Apr-2022 14:15 by rmk")
-                                                             (* ; "Edited 24-Apr-2022 08:45 by rmk")
-                                                             (* ; "Edited 21-Apr-2022 15:36 by rmk")
-    (CL:WHEN (LISTP (CAR (LISTP FILE)))
-        (SETQ FILE (CAR FILE)))
-    (LET (ORIG NEW)
-         (CL:WHEN (LISTP FILE)
-             (SETQ ONEFIELDFLG (CADR FILE))
-             (SETQ DIRFLG (CADDR FILE))
-             (SETQ FILE (CAR FILE)))
-         (SETQ ORIG (OLD-UNPACKFILENAME.STRING FILE ONEFIELDFLG DIRFLG))
-         (SETQ NEW (UNPACKFILENAME.STRING FILE ONEFIELDFLG DIRFLG))
-         (LIST (LIST FILE ONEFIELDFLG DIRFLG)
-               (AND (EQUAL ORIG NEW)
-                    '=)
-               ORIG NEW])
-
-(TRYALL
-  [LAMBDA (FILES ALLFLAG ONEFIELDFLG DIRFLG)                 (* ; "Edited 21-Apr-2022 17:56 by rmk")
-                                                             (* ; "Edited  2-Apr-2022 23:50 by rmk")
-                                                             (* ; "Edited 31-Mar-2022 22:57 by rmk")
-    (CL:WHEN (LISTP FILES)
-        (SETQ FILES (FOR F IN FILES COLLECT (CL:IF (LISTP (CAR (LISTP F)))
-                                                (CAR F)
-                                                F))))
-    (FOR FILE INFO (SAME _ 0)
-         (DIFF _ 0) IN FILES EACHTIME (SETQ INFO (TRY FILE ONEFIELDFLG DIRFLG))
-                                   (CL:IF (CADR INFO)
-                                       (ADD SAME 1)
-                                       (ADD DIFF 1)) UNLESS (AND (CADR INFO)
-                                                                 (NOT ALLFLAG))
-       COLLECT (PRINTOUT T .P2 (CAAR INFO)
-                      31)
-             (IF (CADR INFO)
-                 THEN (PRINTOUT T "  = " .P2 (CADDR INFO))
-                      (CL:WHEN (OR (CADAR INFO)
-                                   (CADDAR INFO))
-                          (PRINTOUT T 60 (CADAR INFO)
-                                 %,,
-                                 (CADDAR INFO))
-                          (TERPRI T))
-               ELSE (PRINTOUT T " ~= " -2 "old: " .P2 (CADDR INFO))
-                    (CL:WHEN (OR (CADAR INFO)
-                                 (CADDAR INFO))
-                        (PRINTOUT T 60 (CADAR INFO)
-                               %,,
-                               (CADDAR INFO))
-                        (TERPRI T))
-                    (PRINTOUT T 37 "new: " .P2 (CADDDR INFO)
-                           T))
-             INFO FINALLY (PRINTOUT T SAME " matches, " DIFF " mismatches" T])
-
-(DT
-  [LAMBDA (STRINGS ALLFLAG)                                  (* ; "Edited 21-Apr-2022 17:53 by rmk")
-                                                             (* ; "Edited 19-Apr-2022 20:55 by rmk")
-
-    (* ;; "Tests the DIRFLG options on STRINGS.  If an element of STRINGS is a list, it is assumed to be a (STRING ONEFIELD DIRFLG), STRING is extracted.")
-
-    (SETQ STRINGS (FOR S INSIDE STRINGS COLLECT (CL:IF (LISTP S)
-                                                    (CAR S)
-                                                    S)))
-    [AND NIL (FOR ONEFIELD IN '(NAME DIRECTORY SUBDIRECTORY RELATIVEDIRECTORY)
-                JOIN (FOR DIR ORIG NEW SAME IN '(FIELD RETURN)
-                        JOIN (PRINTOUT T T "ONEFIELDFLG = " ONEFIELD -3 "DIRFLG = " DIR T T)
-                             (TRYALL STRINGS ALLFLAG ONEFIELD DIR))
-                FINALLY (FOR INFO SAME (DIFF _ 0) IN $$VAL DO (CL:IF (CADR INFO)
-                                                                  (ADD SAME 1)
-                                                                  (ADD DIFF 1))
-                           FINALLY (SETQ SAME (IDIFFERENCE (LENGTH STRINGS)
-                                                     DIFF))
-                                 (PRINTOUT T T "Overall:  " SAME " matched, " DIFF " mismatched" T]
-    (TRYALL (FOR S IN STRINGS JOIN (FOR ONEFIELD IN '(NAME DIRECTORY SUBDIRECTORY RELATIVEDIRECTORY)
-                                      JOIN (FOR DIR IN '(FIELD RETURN)
-                                              COLLECT (LIST S ONEFIELD DIR])
-)
-(DECLARE%: DONTCOPY
-  (FILEMAP (NIL (893 18981 (OLD-UNPACKFILENAME.STRING 903 . 17808) (\UPF.NEXTPOS 17810 . 18396) (
-\UPF.TEMPFILEP 18398 . 18979)) (28216 32820 (TRY 28226 . 29192) (TRYALL 29194 . 31111) (DT 31113 . 
-32818)))))
-STOP
diff --git a/internal/test/unpackfilename/TESTUPF.LCOM b/internal/test/unpackfilename/TESTUPF.LCOM
deleted file mode 100644
index bbc31436..00000000
Binary files a/internal/test/unpackfilename/TESTUPF.LCOM and /dev/null differ
diff --git a/internal/test/unpackfilename/TESTUPF.TXT b/internal/test/unpackfilename/TESTUPF.TXT
deleted file mode 100644
index 76b7a10c..00000000
--- a/internal/test/unpackfilename/TESTUPF.TXT
+++ /dev/null
@@ -1,23 +0,0 @@
-TESTUPF contains functions for testing the new implementation of UNPACKFILENAME.STRING (now in ADIR) and the original definition.
-
-The original definition is also provided here, under the name OLD-UNPACKFILENAME.STRING
-
-TESTUPF also includes some test functions, and some of the strings that I have been testing with.
-
-(TRY FILE ONEDIRFLG DIRFLG)
-
-returns a comparison of the behavior of the original version and the new version in a list of the form 
-
-(FILE ONEDIRFLG DIRFLG) MATCH ORIG NEW)
-
-where MATCH is = if ORIG and NEW are EQUAL, otherwise NIL. (For convenience, a list of this form can also be passed in as an argument.)
-
-(TRYALL FILES ALLFLG ONDIRFLG DIRFLG)
-
-applies TRY to each file-string in FILES, prints and reports what it discovers. If ALLFLG, it prints the result on every file, otherwise just the mismatches. Value is a list of TRY values that it printed.
-
-(DT FILES) sets up a call to TRYALL for DIRFLG testing (setting DIRFLG NIL, FIELD, RETURN for each file in FILES).
-
-The variable TESTS has the strings that I have tested against, the variable DOTTEDNAMES has the strings that I intend to be different (.cshrc as NAME, not EXTENSION).  The new behavior avoids the bug that (PACKFILENAME.STRING 'EXTENSION "txt "BODY ".bashrc") produces  ".txt" instead of ".bashrc.txt".
-
-The variable RETURNFAILS is a list of strings with DIRFLG=RETURN that also don�t match, in that the DIRECTORY and SUBDIRECTORY classifications are inverted between old and new for strings beginning with �>". But the old code is inconsistent  for these inputs:  it returns different classifications of those substrings with or without the RETURN. (I think RETURN is for the case "/Users/kaplan" where the caller knows that the whole thing is a directory, doesn�t want �kaplan� to be parsed as a name. Just wants it to be normalized, with host and device stripped off.)
