EXPORT PRIMITIVES QUOTE PRIMITIVES0 ALLOCATE-CODE-SPACECONS ALLOCATE-STRUCTURECONS ALLOCATE-STRUCTURE-IN-AREACONS CAAAARCONS CAAADRCONS CAAARCONS CAADARCONS CAADDRCONS CAADRCONS CAARCONS CADAARCONS CADADRCONS CADARCONS CADDARCONS CADDDRCONS CADDRCONS CADRCONS CARCONS CDAAARCONS CDAADRCONS CDAARCONS CDADARCONS CDADDRCONS CDADRCONS CDARCONS CDDAARCONS CDDADRCONS CDDARCONS CDDDARCONS CDDDDRCONS CDDDRCONS CDDRCONS CDRCONS CONSCONS  CONS-IN-AREACONS CONTENTSCONS CONTENTS-OFFSETCONS ENDPCONS  MAKE-HEADERCONS  MAKE-POINTERCONS RPLACACONS RPLACDCONS SET-CARCONS SET-CDRCONS SET-DEFAULT-CONS-AREACONS SET-DEFAULT-STRUCTURE-CONS-AREACONS STORE-CONTENTSCONS STORE-CONTENTS-OFFSETCONS  MAKE-POINTERCONS  MAKE-POINTERCONS    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BE&@@%F Af@fB @A   %%DATA-TYPEVINCULUM  DPB-BOXEDHARDWARE  MAKE-HEADERCONS  MAKE-HEADERCONS    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BE&@@%F Af@fB @A   %%DATA-TYPEVINCULUM  DPB-BOXEDHARDWARE CONTENTSCONS CONTENTSCONS   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BA%B(@@AF Ab@bB @A  READ-MDHARDWARE PROGN PRIMITIVES !VMA-START-READ-VMA-BOXED-MD-BOXEDHARDWARE CONTENTS-OFFSETCONS CONTENTS-OFFSETCONS    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BA$@'B(@AB(@@AF Af@fB @A  READ-MDHARDWARE PROGN PRIMITIVES #VMA-START-READ-VMA-UNBOXED-MD-BOXEDHARDWARE 24+HARDWARE STORE-CONTENTSCONS STORE-CONTENTSCONS0!ichx f@@AT^!gch("D STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS0!ichx f@AT^!gch($D SET-CARCONS SET-CARCONS  ERRORLISP-INTERNALS Fsb @A  @A0!ichx fh@AT^!gch("DE!F Not a cons to set-car RPLACACONS RPLACACONS  ERRORLISP-INTERNALS Fsb @A  @A0!ichx fh@AT^!gch( DE!F Not a cons to rplaca SET-CDRCONS SET-CDRCONS  ERRORLISP-INTERNALS Fsb @A  @A0!ichx nh@AT^!gch("DE!F Not a cons to set-cdr RPLACDCONS RPLACDCONS  ERRORLISP-INTERNALS Fsb @A  @A0!ichx nh@AT^!gch( DE!F Not a cons to rplacd CARCONS CARCONS bh@ATD CDRCONS CDRCONS jh@ATD CAARCONS CAARCONS bh@ATD@Dbh@ATD CDARCONS CDARCONS bh@ATD@Djh@ATD CADRCONS CADRCONS jh@ATD@Dbh@ATD CDDRCONS CDDRCONS jh@ATD@Djh@ATD CAAARCONS CAAARCONS  bh@ATD@Dbh@ATD@Dbh@ATD CDAARCONS CDAARCONS  bh@ATD@Dbh@ATD@Djh@ATD CADARCONS CADARCONS  bh@ATD@Djh@ATD@Dbh@ATD CDDARCONS CDDARCONS  bh@ATD@Djh@ATD@Djh@ATD CAADRCONS CAADRCONS  jh@ATD@Dbh@ATD@Dbh@ATD CDADRCONS CDADRCONS  jh@ATD@Dbh@ATD@Djh@ATD CADDRCONS CADDRCONS  jh@ATD@Djh@ATD@Dbh@ATD CDDDRCONS CDDDRCONS  jh@ATD@Djh@ATD@Djh@ATD CAAAARCONS CAAAARCONS  bh@ATD@Dbh@ATD@Dbh@ATD@Dbh@ATD CDAAARCONS CDAAARCONS  bh@ATD@Dbh@ATD@Dbh@ATD@Djh@ATD CADAARCONS CADAARCONS  bh@ATD@Dbh@ATD@Djh@ATD@Dbh@ATD CDDAARCONS CDDAARCONS  bh@ATD@Dbh@ATD@Djh@ATD@Djh@ATD CAADARCONS CAADARCONS  bh@ATD@Djh@ATD@Dbh@ATD@Dbh@ATD CDADARCONS CDADARCONS  bh@ATD@Djh@ATD@Dbh@ATD@Djh@ATD CADDARCONS CADDARCONS  bh@ATD@Djh@ATD@Djh@ATD@Dbh@ATD CDDDARCONS CDDDARCONS  bh@ATD@Djh@ATD@Djh@ATD@Djh@ATD CAAADRCONS CAAADRCONS  jh@ATD@Dbh@ATD@Dbh@ATD@Dbh@ATD CDAADRCONS CDAADRCONS  jh@ATD@Dbh@ATD@Dbh@ATD@Djh@ATD CADADRCONS CADADRCONS  jh@ATD@Dbh@ATD@Djh@ATD@Dbh@ATD CDDADRCONS CDDADRCONS  jh@ATD@Dbh@ATD@Djh@ATD@Djh@ATD CAADDRCONS CAADDRCONS  jh@ATD@Djh@ATD@Dbh@ATD@Dbh@ATD CDADDRCONS CDADDRCONS  jh@ATD@Djh@ATD@Dbh@ATD@Djh@ATD CADDDRCONS CADDDRCONS  jh@ATD@Djh@ATD@Djh@ATD@Dbh@ATD CDDDDRCONS CDDDDRCONS  jh@ATD@Djh@ATD@Djh@ATD@Djh@ATD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES CARCONS LAMBDA PRIMITIVES &REST PRIMITIVES ARGS3054CONS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS3054CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS3054CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  VALUE3055CONS STOREVARSETF ARGS3054CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CARCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS3054CONS  XR-BQ-LISTSYSTEM-INTERNALS  VALUE3055CONS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES CARCONS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES CARCONS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES CDRCONS LAMBDA PRIMITIVES &REST PRIMITIVES ARGS3056CONS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS3056CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS3056CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  VALUE3057CONS STOREVARSETF ARGS3056CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CDRCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS3056CONS  XR-BQ-LISTSYSTEM-INTERNALS  VALUE3057CONS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES CDRCONS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES CDRCONS %%STRUCTURE-HANDLE-FIRST-HEADERCONS BYTE PRIMITIVES  %%STRUCTURE-HANDLE-BOXED-QSCONS BYTE PRIMITIVES   *NO-FIRST-HEADER-CODE*CONS WRITE-STRUCTURE-HANDLESCONS  NAMED-LAMBDANC WRITE-STRUCTURE-HANDLESCONS CLUSTERCONS  FIRST-HEADERCONS LEFT-OVER-BOXED-QSCONS WRITE-MD-BOXEDHARDWARE DPBHARDWARE LEFT-OVER-BOXED-QSCONS %%STRUCTURE-HANDLE-BOXED-QSCONS  FIRST-HEADERCONS VMA-START-WRITE-BOXEDHARDWARE 24+HARDWARE *STRUCTURE-HANDLES*GLOBAL-REGISTERS CLUSTERCONS WRITE-STRUCTURE-HANDLESCONSk!"T@ !#[@jD READ-STRUCTURE-HANDLESCONS  NAMED-LAMBDANC READ-STRUCTURE-HANDLESCONS CLUSTERCONS THUNKCONS VMA-START-READHARDWARE 24+HARDWARE *STRUCTURE-HANDLES*GLOBAL-REGISTERS CLUSTERCONS LET PRIMITIVES STUFFCONS READ-MDHARDWARE FUNCALL PRIMITIVES THUNKCONS LDBHARDWARE STUFFCONS %%STRUCTURE-HANDLE-FIRST-HEADERCONS LDBHARDWARE STUFFCONS %%STRUCTURE-HANDLE-BOXED-QSCONS READ-STRUCTURE-HANDLESCONS FUNCALL-INTERNALLISP-INTERNALS !#c@AT&@ `$@+&`D@"@h@@f@$EEF MODIFY-STRUCTURE-HANDLESCONS  NAMED-LAMBDANC MODIFY-STRUCTURE-HANDLESCONS CLUSTERCONS THUNKCONS READ-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS FUNCALL PRIMITIVES THUNKCONS  FIRST-HEADERCONS BOXED-QSCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES NEW-FIRST-HEADERCONS  NEW-BOXED-QSCONS MD-START-WRITE-BOXEDHARDWARE DPBHARDWARE  NEW-BOXED-QSCONS %%STRUCTURE-HANDLE-BOXED-QSCONS NEW-FIRST-HEADERCONS MODIFY-STRUCTURE-HANDLESCONS FUNCALL-INTERNALLISP-INTERNALS !#c@AT&@ `$@+&`D@"@h@@f@$ED@@AF  INTERNALKEYWORD MODIFY-STRUCTURE-HANDLESCONSP_33k! ^@jD STRUCTURE-HANDLE-FIRST-HEADERCONS  NAMED-LAMBDANC STRUCTURE-HANDLE-FIRST-HEADERCONS CLUSTERCONS READ-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS BOXED-QSCONS  FIRST-HEADERCONS STRUCTURE-HANDLE-FIRST-HEADERCONS !#c@ATD@ a"@"D STRUCTURE-HANDLE-BOXED-QSCONS  NAMED-LAMBDANC STRUCTURE-HANDLE-BOXED-QSCONS CLUSTERCONS READ-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS  FIRST-HEADERCONS BOXED-QSCONS STRUCTURE-HANDLE-BOXED-QSCONS !#c@ATD@+&a"@"D WRITE-STRUCTURE-HANDLE-BOXED-QSCONS  NAMED-LAMBDANC WRITE-STRUCTURE-HANDLE-BOXED-QSCONS CLUSTERCONS  NEW-VALUECONS MODIFY-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS WRITERCONS  FIRST-HEADERCONS FUNCALL PRIMITIVES WRITERCONS  NEW-VALUECONS BOXED-QSCONS WRITE-STRUCTURE-HANDLE-BOXED-QSCONS !#c@ATD@+&aD@k!#^@jD #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS  NAMED-LAMBDANC #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS CLUSTERCONS  NEW-VALUECONS MODIFY-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS WRITERCONS BOXED-QSCONS FUNCALL PRIMITIVES WRITERCONS  FIRST-HEADERCONS  NEW-VALUECONS #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS !#c@ATD@ aD@k!D^@jD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES STRUCTURE-HANDLE-FIRST-HEADERCONS LAMBDA PRIMITIVES &REST PRIMITIVES ARGS3058CONS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS3058CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS3058CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  VALUE3059CONS STOREVARSETF ARGS3058CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS3058CONS  XR-BQ-LISTSYSTEM-INTERNALS  VALUE3059CONS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES STRUCTURE-HANDLE-FIRST-HEADERCONS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES STRUCTURE-HANDLE-FIRST-HEADERCONS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES STRUCTURE-HANDLE-BOXED-QSCONS LAMBDA PRIMITIVES &REST PRIMITIVES ARGS3060CONS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS3060CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS3060CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  VALUE3061CONS STOREVARSETF ARGS3060CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES WRITE-STRUCTURE-HANDLE-BOXED-QSCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS3060CONS  XR-BQ-LISTSYSTEM-INTERNALS  VALUE3061CONS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES STRUCTURE-HANDLE-BOXED-QSCONS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES STRUCTURE-HANDLE-BOXED-QSCONS *STRUCTURE-HANDLES-QUANTA*CONS CEILING PRIMITIVES *NUMBER-OF-VIRTUAL-CLUSTERS*VINCULUM *QS-IN-QUANTUM*VINCULUM INITIALIZE-STRUCTURE-HANDLESCONS INITIALIZE-STRUCTURE-HANDLESCONS MAKE-AREA-FIXED AREA-DATA MAKE-REGION-IN-AREA AREA-DATA   MAKE-AREA AREA-DATA`A@@aB"Ar@`@`@b@p @` @`@`@`BlB@L!C c"C` @B@@B0@A@AjD`T@ !#[@0  x  ENDPCONS ENDPCONS h@A@AjDhD CONSCONS CONSCONS   LOAD-CONS-CACHECONS CONS-NEW-CLUSTERCONS0ich@"T@0e[@pee@0c ePeQ@  ^@i`h@F3Q D@ApeF3Q,$@@A`Cich@$D@C@A LOAD-CONS-CACHECONS LOAD-CONS-CACHECONS LOAD-CONS-CACHE-FOR-AREACONSaG CONS-NEW-CLUSTERCONS CONS-NEW-CLUSTERCONS LOAD-CONS-CACHE-FOR-AREACONS  REGION-END REGION-DATA dA@ m"@bC mD@@ D@A@AaGjD SET-DEFAULT-CONS-AREACONS SET-DEFAULT-CONS-AREACONS LOAD-CONS-CACHE-FOR-AREACONS p`0@A @AjD0!ichx @r@ C!ichxh`D LOAD-CONS-CACHE-FOR-AREACONS LOAD-CONS-CACHE-FOR-AREACONS GET-ACTIVE-REGION AREA-DATA Ep@b@j@gF  CONS-IN-AREACONS  CONS-IN-AREACONS LOAD-CONS-CACHE-FOR-AREACONS CONSCONS LOAD-CONS-CACHE-FOR-AREACONS CONSCONS p`0@A @A E#F0!ichx`)@$C A# B(C!ichx&D ALLOCATE-STRUCTURECONS ALLOCATE-STRUCTURECONS 4.(")//223 "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS STRUCTURE-CONS-CACHE-INVALID? REGION-DATA50!ichx "Dx a8@ glD@ m7@ C4@@A 2@A _l2nA@ mD@LD@A2@AF#l1@P&_`.@&T@0XPqG6@A/@AP&G`,@`*@ (@p3.0@A @A _`D@k!'DT@/ -#[@ B@@$B0@A)@A T@ -#[@0)**x01,,xB@@$B(x B@k!'BT@ -#[@0)**x01,,x`(@ 6m@!ichx0DhA8B@A "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS GET-ACTIVE-REGION AREA-DATA Er@b@j@#F SET-DEFAULT-STRUCTURE-CONS-AREACONS SET-DEFAULT-STRUCTURE-CONS-AREACONS "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS ph0@A @AjD0!ichx i@ A`B!ichxh`D ALLOCATE-STRUCTURE-IN-AREACONS ALLOCATE-STRUCTURE-IN-AREACONS "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS ALLOCATE-STRUCTURECONS "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS ALLOCATE-STRUCTURECONSp#h0@A @A E"@$@'F0!ichxh-@ "y(B A"@$@' B,A`B!ichx*D CODE-HEADER-INSTRUCTION-HIGHCONS UNBOXED-CONSTANTHARDWARE ALLOCATE-CODE-SPACECONS ALLOCATE-CODE-SPACECONS# " SET-REGION-FREE-POINTER REGION-DATA SET-REGION-FREE-POINTER REGION-DATA REGION-FREE-POINTER REGION-DATA GET-ACTIVE-REGION AREA-DATA$0!ichxx 0@ x@0 DxE.xj,@j*@$At@b@j@. B,C @@F#E*@ <*(@)D-q/D@A  @A,A(B x@"T@*Z@T0+X@AT@@0 x@!ichx*D )&@,A&B@A